cheveguerra/Kelloggs_v4
1
0
Fork 0
mirror of https://github.com/KeymonSoft/Kelloggs_v4.git synced 2026-04-23 04:40:08 +00:00
Code Issues Packages Projects Releases Wiki Activity

VERSION 6.04.20

Browse Source 
- Cambio en productos para agilizar la carga de la lista de productos
This commit is contained in:
Jose Alberto Guerra Ugalde
2026-04-22 19:58:39 -06:00
parent 048deef8c1
commit a2c94752fa
5 changed files with 18 additions and 15 deletions
Download Patch File Download Diff File Expand all files Collapse all files

24
B4A/C_Productos.bas
View File

@@ -1454,14 +1454,16 @@ Private Sub clv_prods_ll_VisibleRangeChanged (FirstIndex As Int, LastIndex As In
cs.Initialize
l_prodX.Width = p_prods.Width - p_botMasMen.Width
l_prodX.SetTextSizeAnimated(0, 13)
Private p1 As Cursor = Starter.skmt.ExecQuery($"select CAT_GP_TIPOPROD2 from ${Subs.traeTablaProds(Starter.tipov)} where CAT_GP_ID = '${clv_prods_ll.GetValue(i).As(Map).Get("id")}'"$)
Private prioridad As Int = 0
If p1.RowCount > 0 Then
p1.Position = 0
prioridad = p1.GetInt("CAT_GP_TIPOPROD2")
' Log(prioridad)
End If
p1.Close
' Private p1 As Cursor = Starter.skmt.ExecQuery($"select CAT_GP_TIPOPROD2 from ${Subs.traeTablaProds(Starter.tipov)} where CAT_GP_ID = '${clv_prods_ll.GetValue(i).As(Map).Get("id")}'"$)
' Private prioridad As Int = 0
' If p1.RowCount > 0 Then
' p1.Position = 0
' prioridad = p1.GetInt("CAT_GP_TIPOPROD2")
'' Log(prioridad)
' End If
' p1.Close
Private prioridad As Int = clv_prods_ll.GetValue(i).As(Map).Get("prioridad")
' Log("NIVEL: " & lfila.Text)
If lfila.Text = "RMI" Then ' Si es RMI, la cantidad solo se puede cambiar con los botones.
et_pCant.Enabled = False
@@ -1590,9 +1592,9 @@ Sub LlenaProdsLL(p As ResultSet, extra As String)
Else
' Log("NO HAY RESULTSET")
If clienteId = "0" Then
Dim p As ResultSet = Starter.skmt.ExecQuery($"select CAT_GP_ID, CAT_GP_NOMBRE, CAT_GP_ALMACEN, CAT_GP_PRECIO, CAT_GP_TIPO, CAT_GP_TIPOPROD from ${Subs.traeTablaProds(Starter.tipov)} where CAT_GP_PRECIO > 0 And CAT_GP_CLASIF <> 'PROMOS' ORDER BY CAT_GP_TIPOPROD2 DESC, CAT_GP_NOMBRE"$)
Dim p As ResultSet = Starter.skmt.ExecQuery($"select CAT_GP_ID, CAT_GP_NOMBRE, CAT_GP_ALMACEN, CAT_GP_PRECIO, CAT_GP_TIPO, CAT_GP_TIPOPROD, CAT_GP_TIPOPROD2 from ${Subs.traeTablaProds(Starter.tipov)} where CAT_GP_PRECIO > 0 And CAT_GP_CLASIF <> 'PROMOS' ORDER BY CAT_GP_TIPOPROD2 DESC, CAT_GP_NOMBRE"$)
Else
Dim p As ResultSet = Starter.skmt.ExecQuery($"select CAT_GP_ID, CAT_GP_NOMBRE, CAT_GP_ALMACEN, CAT_GP_PRECIO, CAT_GP_TIPO, CAT_GP_TIPOPROD from ${Subs.traeTablaProds(Starter.tipov)} where CAT_GP_PRECIO > 0 And CAT_GP_CLASIF <> 'PROMOS' and CAT_GP_PROMOCION <> '1' ORDER BY CAT_GP_TIPOPROD2 DESC, CAT_GP_NOMBRE"$)
Dim p As ResultSet = Starter.skmt.ExecQuery($"select CAT_GP_ID, CAT_GP_NOMBRE, CAT_GP_ALMACEN, CAT_GP_PRECIO, CAT_GP_TIPO, CAT_GP_TIPOPROD, CAT_GP_TIPOPROD2 from ${Subs.traeTablaProds(Starter.tipov)} where CAT_GP_PRECIO > 0 And CAT_GP_CLASIF <> 'PROMOS' and CAT_GP_PROMOCION <> '1' ORDER BY CAT_GP_TIPOPROD2 DESC, CAT_GP_NOMBRE"$)
End If
' If Starter.Logger Then Log($"select CAT_GP_ID, CAT_GP_NOMBRE, CAT_GP_ALMACEN, CAT_GP_PRECIO, CAT_GP_TIPO, CAT_GP_TIPOPROD from ${Subs.traeTablaProds(Starter.tipov)} where CAT_GP_PRECIO > 0 And CAT_GP_CLASIF <> 'PROMOS' and CAT_GP_PROMOCION <> '1' ORDER BY CAT_GP_TIPOPROD2 DESC, CAT_GP_NOMBRE"$)
' Log(p.RowCount & " - " & Subs.traeTablaProds(Starter.tipov))
@@ -1622,7 +1624,7 @@ Sub LlenaProdsLL(p As ResultSet, extra As String)
Private descXSku As String = kh.traeDescXSku(clienteId, p.GetString("CAT_GP_ID"))
If Starter.Logger And descXSku > 0 Then LogColor(">>> DESCXSKU CC - " & descXSku & " | " & p.GetString("CAT_GP_NOMBRE"), Colors.red)
precio = NumberFormat2((precio-(precio*(descXSku/100))), 1, 2, 2, False)
Dim tempMap As Map = CreateMap("prod":p.GetString("CAT_GP_NOMBRE"), "precio":precio, "almacen":p.GetString("CAT_GP_ALMACEN"), "abordo":invAbordo, "id":p.GetString("CAT_GP_ID"), "cant":cant, "tipo":p.GetString("CAT_GP_TIPO"))
Dim tempMap As Map = CreateMap("prod":p.GetString("CAT_GP_NOMBRE"), "precio":precio, "almacen":p.GetString("CAT_GP_ALMACEN"), "abordo":invAbordo, "id":p.GetString("CAT_GP_ID"), "cant":cant, "tipo":p.GetString("CAT_GP_TIPO"), "prioridad": p.GetInt("CAT_GP_TIPOPROD2")) ' MOD by Cheve - 20260422 - Agregamos "Prioridad"
listaProds.Add(tempMap)
Loop
p.Close

BIN
B4A/Files/cliente.bal
View File

Binary file not shown.

2
B4A/KelloggsV4.b4a
View File

@@ -918,7 +918,7 @@ Version=12.8
#Region Project Attributes
#ApplicationLabel: Kelloggs Venta
#VersionCode: 3000
#VersionName: 6.03.30
#VersionName: 6.04.20
#SupportedOrientations: portrait
#CanInstallToExternalStorage: False
#BridgeLogger:true

6
B4A/KelloggsV4.b4a.meta
View File

@@ -97,12 +97,12 @@ ModuleClosedNodes31=
ModuleClosedNodes32=
ModuleClosedNodes33=
ModuleClosedNodes34=
ModuleClosedNodes4=1,3
ModuleClosedNodes4=3
ModuleClosedNodes5=
ModuleClosedNodes6=
ModuleClosedNodes7=
ModuleClosedNodes8=
ModuleClosedNodes9=
NavigationStack=Subs,parseHTTPError,2013,0,C_Principal,revisaHistNotificaciones,2355,6,C_Principal,enviaHistNotificaciones,2325,6,C_NuevoCliente,Class_Globals,2,0,B4XMainPage,i_engranes_LongClick,745,0,DBRequestManagerW,ExecuteQuery,50,0,DBRequestManagerW,Initialize,42,0,DBRequestManagerW,JobDone,135,6,DBRequestManagerW,Class_Globals,20,0,DBRequestManagerW,ExecuteCommand,105,0
NavigationStack=DBRequestManagerW,ExecuteCommand,105,0,C_Principal,enviaHistNotificaciones,2325,6,B4XMainPage,i_engranes_LongClick,745,0,DBRequestManagerW,JobDone,123,6,C_Cliente,b_notificacion_Click,4474,0,Diseñador Visual,cliente.bal,-100,4,C_Cliente,Class_Globals,295,0,C_Productos,Class_Globals,0,0,C_Productos,LlenaProdsLL,1618,6,C_Productos,clv_prods_ll_VisibleRangeChanged,1447,0,DBRequestManager,Initialize,25,0
SelectedBuild=0
VisibleModules=32,1,13,4,33,16,34,14,15,24,22
VisibleModules=32,1,13,4,33,16,34,14,15,24,21

1
B4A/_juntaBas.ps1
View File

@@ -47,6 +47,7 @@ $Header = @"
5. **Formato:** Usa bloques 'vb'.
6. **Navegacion Estructural:** Usa los tags <module>, <interface> y <method> para localizar codigo.
7. **Inferencia de Datos:** Deduce la BD solo de los strings SQL presentes.
8. **Limpieza de Salida:** Los tags <module>, <interface> y <method> son metadatos de navegación. Al entregar código, ESTÁ ESTRICTAMENTE PROHIBIDO incluirlos en los bloques 'vb'. Entrega código B4A crudo (Sub...End Sub).
"@
Set-Content -Path $OutFile -Value $Header -Encoding UTF8