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

19/09/23 Cambio para que el cargar día no reste RMI del inventario

Browse Source
This commit is contained in:
cvaldes1201
2023-09-19 10:01:47 -06:00
parent 732d0eeb74
commit 6e0a47136c
2 changed files with 2 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
B4A/C_Principal.bas
View File

@@ -1238,7 +1238,7 @@ Sub JobDone(Job As HttpJob)
cuantos_pedidosc = c.GetString("CUANTOS") cuantos_pedidosc = c.GetString("CUANTOS")
c.Close c.Close
If cuantos_pedidosc > 0 Then If cuantos_pedidosc > 0 Then
c=Starter.skmt.ExecQUERY("SELECT PE_PROID, SUM(PE_CANT) AS PE_CANT FROM PEDIDO WHERE PE_CLIENTE <> 0 GROUP BY PE_PROID") c=Starter.skmt.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 If c.RowCount>0 Then
For i=0 To c.RowCount -1 For i=0 To c.RowCount -1
c.Position=i c.Position=i

2
B4A/KelloggsV3.b4a
View File

@@ -161,7 +161,7 @@ Module9=C_NuevoCliente
NumberOfFiles=51 NumberOfFiles=51
NumberOfLibraries=28 NumberOfLibraries=28
NumberOfModules=27 NumberOfModules=27
Version=12.2 Version=12.5
@EndOfDesignText@ @EndOfDesignText@
#Region Project Attributes #Region Project Attributes
#ApplicationLabel: Kelloggs Venta #ApplicationLabel: Kelloggs Venta