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

- VERSION 5.09.30

Browse Source 
- Se corrigio que cuando se entraba a productos a veces se perdian los productos YA seleccionados.
This commit is contained in:
Jose Alberto Guerra Ugalde
2025-10-01 12:12:11 -06:00
parent ec467d0d5f
commit ffcd98543d
4 changed files with 32 additions and 15 deletions
Download Patch File Download Diff File Expand all files Collapse all files

41
B4A/C_Productos.bas
View File

@@ -87,7 +87,7 @@ Sub B4XPage_Appear
B4XPages.MainPage.skmt.ExecNonQuery2("UPDATE CAT_GUNAPROD SET CAT_GP_TIPOPROD = (?) WHERE CAT_GP_TIPOPROD = (?) ",Array As Object("COMPLEMENTARIO","3"))
B4XPages.MainPage.skmt.ExecNonQuery2("UPDATE CAT_GUNAPROD SET CAT_GP_TIPOPROD = (?) WHERE CAT_GP_TIPOPROD = (?) ",Array As Object("CATALOGO REGULAR","0"))
B4XPages.MainPage.skmt.ExecNonQuery2("UPDATE CAT_GUNAPROD SET CAT_GP_TIPOPROD = (?) WHERE CAT_GP_CLASIF = (?) ",Array As Object("PROMOS","PROMOS"))
' Private left = (Root.Width/2) - ((clv_productos.AsView.Width)/2)
clv_productos.GetBase.SetLayoutAnimated(100, 0dip, 140dip, Root.Width, Root.Height * 0.68) 'Cambiamos el tamaño y posición de la lista de productos
clv_productos.Base_Resize(clv_productos.GetBase.Width, clv_productos.GetBase.Height) 'Cambiamos el tamaño del panel interno de la lista para que ajuste al nuevo tamaño.
@@ -296,25 +296,41 @@ Sub llenaCatalogo(limpiar As Boolean)
Log("LlenaCatalogo")
If limpiar Then clv_productos.Clear
Private c2 As Cursor
c2 = B4XPages.MainPage.skmt.ExecQuery($"select CAT_GP_ID, CAT_GP_NOMBRE, CAT_GP_PRECIO, CAT_GP_ALMACEN, CAT_GP_IMG, CAT_GP_TIPOPROD, CAT_GP_INICIATIVA from cat_gunaprod where CAT_GP_PRECIO > 0 AND CAT_GP_ALMACEN > 0 and CAT_GP_TIPOPROD <> 'PROMOS'
Private cp As Cursor = B4XPages.MainPage.skmt.ExecQuery($"select CAT_GP_ID, CAT_GP_NOMBRE, CAT_GP_PRECIO, CAT_GP_ALMACEN, CAT_GP_IMG, CAT_GP_TIPOPROD, CAT_GP_INICIATIVA from cat_gunaprod where CAT_GP_ID in (select pe_proid from pedido where pe_cliente = '${Subs.traeCliente}')"$)
c2 = B4XPages.MainPage.skmt.ExecQuery($"select CAT_GP_ID, CAT_GP_NOMBRE, CAT_GP_PRECIO, CAT_GP_ALMACEN, CAT_GP_IMG, CAT_GP_TIPOPROD, CAT_GP_INICIATIVA from cat_gunaprod where
CAT_GP_PRECIO > 0 AND CAT_GP_ALMACEN > 0 and CAT_GP_TIPOPROD <> 'PROMOS'
and CAT_GP_ID not in (select pe_proid from pedido where pe_cliente = '${Subs.traeCliente}')
order by
Case CAT_GP_TIPOPROD when 'PRIORITARIO' THEN 0
WHEN 'ESTRATEGICO' THEN 1
WHEN 'COMPLEMENTARIO' then 2
Else 3
End, CAT_GP_NOMBRE"$)
' Select cAT_GP_ID, cat_gp_tipoprod from cat_gunaprod order by
' Case CAT_GP_TIPOPROD
' When 'PRIORITARIO' THEN 0
' WHEN 'ESTRATEGICO' THEN 1
' WHEN 'CATALOGO REGULAR' then 2
' Else 3
' End
Private bgColor, textColor As Int
If c2.RowCount > 0 And clv_productos.Size <> c2.RowCount Then
Private cuantosProds = cp.RowCount + c2.RowCount
If cp.RowCount > 0 And clv_productos.Size <> cuantosProds Then
clv_productos.Clear : Log("limpiamos productos")
For i=0 To cp.RowCount -1
cp.Position=i
If cp.GetString("CAT_GP_TIPOPROD") = "PRIORITARIO" Then
bgColor = Colors.RGB(255, 212, 163) 'naranja
Else If cp.GetString("CAT_GP_TIPOPROD") = "COMPLEMENTARIO" Then
bgColor = Colors.RGB(177, 200, 249)'azul
else If cp.GetString("CAT_GP_TIPOPROD") = "CATALOGO REGULAR" Then
bgColor = Colors.White
else If cp.GetString("CAT_GP_TIPOPROD") = "ESTRATEGICO" Then
bgColor = Colors.RGB(241, 255, 163) 'amarillo
End If
textColor = Colors.Black
clv_productos.Add(CreateListItem(cp.GetString("CAT_GP_NOMBRE"), cp.GetString("CAT_GP_PRECIO"), cp.GetString("CAT_GP_ALMACEN"), clv_productos.AsView.Width, 50dip, bmp, cp.GetString("CAT_GP_ID"), bgColor, textColor), cp.GetString("CAT_GP_NOMBRE"))
Next
End If
If c2.RowCount > 0 And clv_productos.Size <> cuantosProds Then
' clv_productos.Clear : Log("limpiamos productos")
For i=0 To c2.RowCount -1
c2.Position=i
If c2.GetString("CAT_GP_TIPOPROD") = "PRIORITARIO" Then
@@ -331,6 +347,7 @@ Sub llenaCatalogo(limpiar As Boolean)
Next
End If
ponProdsEnCero
cp.Close
c2.Close
End Sub