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

_ Se agregó el modulo de Cuestionario desde Guna.

Browse Source
This commit is contained in:
Jose Alberto Guerra Ugalde
2024-05-17 01:17:56 -06:00
parent a2f036d7f7
commit bad642477c
9 changed files with 381 additions and 26 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
B4A/C_Productos.bas
View File

@@ -270,7 +270,7 @@ Sub B4XPage_Appear
'Traemos las promociones con el proveedor incluido.
c2=Starter.skmt.ExecQuery("Select distinct CAT_GP_ID, CAT_GP_NOMBRE, CAT_GP_PRECIO, CAT_GP_ALMACEN, CAT_GP_TIPO, CAT_DP_CLASIF, CAT_CLASF_PROD.* from " & query & " join CAT_DETALLES_PAQ on CAT_DP_ID = CAT_GP_ID join CAT_CLASF_PROD on CAT_DP_CLASIF = CAT_CP_ID where CAT_GP_ALMACEN > 0 And CAT_GP_TIPO = 'PROMOS' AND CAT_GP_SUBTIPO ='PROMOS' AND CAT_GP_TIPOPROD <> 1 and (length(CAT_GP_CODPROMO) = 1 OR CAT_GP_CODPROMO = CAT_GP_ID) order by CAT_CP_NOMPROD")
Log($"Resultados : ${c2.RowCount}"$)
' Log($"Resultados : ${c2.RowCount}"$)
Private mPromosProv As Map
mPromosProv.Initialize
If c2.RowCount > 0 Then
@@ -1504,7 +1504,7 @@ End Sub
'Regresa la lista de precios de acuerdo al almacen, ruta, perfil y id dados.
Sub traeListaPrecios (almacenX As String, rutaX As String, idX As String, perfilX As String) As List 'ignore
Log($"${almacenX}, ${rutaX}, ${idX}, ${perfilX}"$)
' Log($"${almacenX}, ${rutaX}, ${idX}, ${perfilX}"$)
Private listaPrecios As List
listaPrecios.Initialize
listaPrecios.Add("-= Seleccione Precio =-")