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

17/10/23 - Cambios para implementar los botones de mas y menos (No terminado)

Browse Source
This commit is contained in:
Jose Alberto Guerra Ugalde
2023-10-17 19:43:42 -06:00
parent d87228a568
commit 9d15183c48
8 changed files with 779 additions and 83 deletions
Download Patch File Download Diff File Expand all files Collapse all files

15
B4A/C_Productos.bas
View File

@@ -7,6 +7,7 @@ Version=11.5
Sub Class_Globals
Private Root As B4XView 'ignore
Private xui As XUI 'ignore
dim kh as kms_helperSubs
Dim ruta As String
Dim q_buscar As String
Dim forzarBusqueda As Boolean = False
@@ -108,6 +109,7 @@ Private Sub B4XPage_Created (Root1 As B4XView)
' Activity.RemoveAllViews
Root.LoadLayout("productos")
ruta = File.DirInternal
kh.Initialize(Me, "kh")
If File.Exists(ruta, "kmt.db") = False Then
File.Copy(File.DirAssets, "kmt.db", ruta, "kmt.db")
End If
@@ -147,8 +149,8 @@ Sub B4XPage_Appear
' clv_prods_ll.Initialize(Me, "clv_prods_ll")
' list_prodsPedido.Initialize
' Log("list_prodsPedido.Initialize")
clienteId = Subs.traeCliente
rutaUsuario = Subs.traeRuta
clienteId = kh.traeCliente(Starter.skmt)
rutaUsuario = kh.traeRuta(Starter.skmt)
If p_rmi.Visible Then p_rmi.Visible = False
' l_mDisponible.Visible = False
' Starter.skmt.ExecNonQuery2("UPDATE CAT_GUNAPROD SET CAT_GP_TIPOPROD = (?) WHERE CAT_GP_TIPOPROD = (?) ",Array As Object("PRIORITARIO","1"))
@@ -203,7 +205,7 @@ Sub B4XPage_Appear
c = Starter.skmt.ExecQuery("select count(*) as hayPromos from promos_comp")
c.Position = 0
' Log(Subs.revisaImpresa)
If c.GetInt("hayPromos") > 0 And Subs.traeCliente <> 0 And Subs.revisaImpresa = False Then
If c.GetInt("hayPromos") > 0 And clienteId <> 0 And kh.revisaImpresa(Starter.skmt) = False Then
lv_catalogos.AddSingleLine("PROMOS")
End If
Sleep(100)
@@ -213,12 +215,12 @@ Sub B4XPage_Appear
' 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
Dim m As Map = subs.traeTotalesClienteActual
prodsPedidoActual = m.Get("productos")
montoPedidoActual = m.Get("monto")
hayPedido = Subs.hayPedido
hayPedido = kh.hayPedido(Starter.skmt)
' LogColor("Pedido ant? - "&hayPedido, Colors.Magenta)
If reiniciarlistaProds Then
' Log("Llamamos LlenaProdsLL")
@@ -228,6 +230,7 @@ Sub B4XPage_Appear
' Log("Llamamos LlenaProdsLL")
LlenaProdsLL(Null, Null)
End If
If clv_prods_ll.Size > 0 Then
clv_prods_ll.JumpToItem(0) 'Vamos al primer artículo de la lista.
PCLV.lblHint.SetTextSizeAnimated(0,13)