diff --git a/B4A/C_Principal.bas b/B4A/C_Principal.bas index e49897b..95788c1 100644 --- a/B4A/C_Principal.bas +++ b/B4A/C_Principal.bas @@ -1238,7 +1238,7 @@ Sub JobDone(Job As HttpJob) cuantos_pedidosc = c.GetString("CUANTOS") c.Close 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 For i=0 To c.RowCount -1 c.Position=i diff --git a/B4A/KelloggsV3.b4a b/B4A/KelloggsV3.b4a index 40750fd..b8eb8f5 100644 --- a/B4A/KelloggsV3.b4a +++ b/B4A/KelloggsV3.b4a @@ -161,7 +161,7 @@ Module9=C_NuevoCliente NumberOfFiles=51 NumberOfLibraries=28 NumberOfModules=27 -Version=12.2 +Version=12.5 @EndOfDesignText@ #Region Project Attributes #ApplicationLabel: Kelloggs Venta