cheveguerra/Durakelo
1
0
Fork 0
mirror of https://github.com/KeymonSoft/Durakelo.git synced 2026-04-21 13:19:16 +00:00
Code Issues Packages Projects Releases Wiki Activity

CAMBIOS EN IMPRESION

Browse Source
This commit is contained in:
cvaldes1201
2024-01-17 15:57:24 -06:00
parent 7031c3e19f
commit 58a19bbf87
4 changed files with 95 additions and 13 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
B4A/C_Productos.bas
View File

@@ -276,6 +276,7 @@ Sub B4XPage_Appear
If c2.RowCount > 0 Then
For i=0 To c2.RowCount - 1
c2.Position=i
LogColor(c2.GetString("CAT_GP_ID"),Colors.Green)
Private tm As Map = Subs.procesaPromocion(c2.GetString("CAT_GP_ID"), clienteId) 'Revisamos que la promo tenga inventario suficiente.
If tm.Get("status") = "ok" Then 'Si tiene inventario suficiente, la agregamos al mapa de proveedores
' LogColor($">>>>>>>>>> ${c2.GetString("CAT_GP_NOMBRE")} - "$, Colors.red)
@@ -347,6 +348,7 @@ Sub lv_catalogos_ItemClick (Position As Int, Value As Object)
If c2.RowCount > 0 Then
For i=0 To c2.RowCount -1
c2.Position=i
Logcolor(c2.GetString("CAT_GP_ID"),Colors.Green)
Private tm As Map = Subs.procesaPromocion(c2.GetString("CAT_GP_ID"), clienteId)
If tm.Get("status") = "ok" Then 'Solo muestrala si hay producto.
Log(c2.GetString("CAT_GP_NOMBRE"))