cheveguerra/ADM
1
0
Fork 0
mirror of https://github.com/KeymonSoft/ADM.git synced 2026-04-20 20:59:25 +00:00
Code Issues Packages Projects Releases Wiki Activity

- VERSION 5.08.22

Browse Source 
- Cambios para que desde clienets y mapa aparezcan losbotones de inicio y fin venta
This commit is contained in:
Jose Alberto Guerra Ugalde
2025-08-22 20:21:24 -06:00
parent 08289ecef0
commit 79897e5efd
25 changed files with 2789 additions and 1287 deletions
Download Patch File Download Diff File Expand all files Collapse all files

75
B4A/C_Productos.bas
View File

@@ -209,45 +209,42 @@ Sub B4XPage_Appear
End If
c2.Close
End If
Sleep(100)
l_total.Visible = False
l_totProds.Visible = False
l_total.Left = 5dip
l_totProds.Width = Root.Width * 0.19
l_total.Left = l_totProds.Width + 20
l_total.Width = Root.Width * 0.25
' Log(Subs.traeTotalesClienteActual)
Dim m As Map = Subs.traeTotalesClienteActual
prodsPedidoActual = m.Get("productos")
montoPedidoActual = m.Get("monto")
hayPedido = Subs.hayPedido
' LogColor("Pedido ant? - "&hayPedido, Colors.Magenta)
B4XPages.MainPage.productos.clv_prods_ll.Clear
If reiniciarlistaProds Then
' Log("Llamamos LlenaProdsLL")
' LlenaProdsLL(Null)
clv_prods_ll.Clear
else If hayPedido Then
' LogColor("HAY PEDIDO ANTERIOR", Colors.red)
' Log("Llamamos LlenaProdsLL")
' LlenaProdsLL(Null)
clv_prods_ll.Clear
End If
If clv_prods_ll.Size = 0 Then LlenaProdsLL(Null)
clv_prods_ll.JumpToItem(0) 'Vamos al primer artículo de la lista.
PCLV.lblHint.SetTextSizeAnimated(0,13)
PCLV.B4XSeekBar1.Color1=Colors.DarkGray
PCLV.B4XSeekBar1.Color2=Colors.DarkGray
PCLV.B4XSeekBar1.ThumbColor=Colors.red
PCLV.B4XSeekBar1.mBase.Left=Root.Width *0.91
' PCLV.B4XSeekBar1.mBase.Top=-50
PCLV.B4XSeekBar1.mBase.Height=clv_prods_ll.AsView.Height
PCLV.pnlOverlay.Height = clv_prods_ll.AsView.Height
PCLV.B4XSeekBar1.Update
'
' Sleep(100)
' l_total.Visible = False
' l_totProds.Visible = False
' l_total.Left = 5dip
' l_totProds.Width = Root.Width * 0.19
' l_total.Left = l_totProds.Width + 20
' l_total.Width = Root.Width * 0.25
'' Log(Subs.traeTotalesClienteActual)
' Dim m As Map = Subs.traeTotalesClienteActual
' prodsPedidoActual = m.Get("productos")
' montoPedidoActual = m.Get("monto")
' hayPedido = Subs.hayPedido
'' LogColor("Pedido ant? - "&hayPedido, Colors.Magenta)
' B4XPages.MainPage.productos.clv_prods_ll.Clear
' If reiniciarlistaProds Then
'' Log("Llamamos LlenaProdsLL")
'' LlenaProdsLL(Null)
' clv_prods_ll.Clear
' else If hayPedido Then
'' LogColor("HAY PEDIDO ANTERIOR", Colors.red)
'' Log("Llamamos LlenaProdsLL")
'' LlenaProdsLL(Null)
' clv_prods_ll.Clear
' End If
' If clv_prods_ll.Size = 0 Then LlenaProdsLL(Null)
' clv_prods_ll.JumpToItem(0) 'Vamos al primer artículo de la lista.
' PCLV.lblHint.SetTextSizeAnimated(0,13)
' PCLV.B4XSeekBar1.Color1=Colors.DarkGray
' PCLV.B4XSeekBar1.Color2=Colors.DarkGray
' PCLV.B4XSeekBar1.ThumbColor=Colors.red
' PCLV.B4XSeekBar1.mBase.Left=Root.Width *0.91
'' PCLV.B4XSeekBar1.mBase.Top=-50
' PCLV.B4XSeekBar1.mBase.Height=clv_prods_ll.AsView.Height
' PCLV.pnlOverlay.Height = clv_prods_ll.AsView.Height
' PCLV.B4XSeekBar1.Update
End Sub
Sub PCLV_AddProds