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

19/9/23 - Cambio para que al cargar día no reste los RMIs del inventario.

Browse Source
This commit is contained in:
cheveguerra
2023-09-19 10:50:52 -06:00
parent d490910a66
commit 169daa74b3
4 changed files with 21 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

3
B4A/C_Principal.bas
View File

@@ -1135,7 +1135,8 @@ Sub JobDone(Job As HttpJob)
cuantos_pedidosc = c.GetString("CUANTOS")
c.Close
If cuantos_pedidosc > 0 Then
c=Starter.db.ExecQUERY("SELECT PE_PROID, SUM(PE_CANT) AS PE_CANT FROM PEDIDO WHERE PE_CLIENTE <> 0 GROUP BY PE_PROID")
' c=Starter.db.ExecQUERY("SELECT PE_PROID, SUM(PE_CANT) AS PE_CANT FROM PEDIDO WHERE PE_CLIENTE <> 0 GROUP BY PE_PROID")
c=Starter.db.ExecQUERY("SELECT PE_PROID, SUM(PE_CANT) AS PE_CANT, PE_PRONOMBRE FROM PEDIDO WHERE PE_CLIENTE <> '0' AND PE_PRONOMBRE NOT LIKE '%CAMBIO%' GROUP BY PE_PROID, PE_PRONOMBRE")
If c.RowCount>0 Then
For i=0 To c.RowCount -1
c.Position=i

2
B4A/KelloggsV4.b4a.meta
View File

@@ -85,6 +85,6 @@ ModuleClosedNodes6=
ModuleClosedNodes7=
ModuleClosedNodes8=
ModuleClosedNodes9=
NavigationStack=C_Subs,dbInit,25,0,Starter,Service_Create,61,0,B4XMainPage,B4XPage_Appear,353,0,Starter,Service_Start,88,0,Starter,Subs_dbOk,90,0,C_Principal,B4XPage_Created,192,1,C_Principal,B4XPage_Appear,376,0,C_Principal,B_OK_PAS_Click,2145,1,B4XMainPage,Class_Globals,35,0,C_Principal,JobDone,1122,3
NavigationStack=C_Subs,dbInit,25,0,Starter,Service_Create,61,0,B4XMainPage,B4XPage_Appear,353,0,Starter,Service_Start,88,0,Starter,Subs_dbOk,90,0,C_Principal,B4XPage_Created,192,1,C_Principal,B4XPage_Appear,376,0,C_Principal,B_OK_PAS_Click,2145,1,B4XMainPage,Class_Globals,35,0,C_Principal,JobDone,1131,5
SelectedBuild=0
VisibleModules=1,26,11,14,27,3,4,13,12,2