Modificacion en mandaPendientes para que mande en los productos de pedido dos columnas extra, el total de productos y el total de la venta, esto para tratar de solucionar el que los pedidos caigan incompletos.

This commit is contained in:
2024-02-09 00:04:23 -06:00
parent de7500a994
commit a49397e3ea
6 changed files with 69 additions and 33 deletions

View File

@@ -66,7 +66,7 @@ Sub B4XPage_Appear
Dim x As Cursor = B4XPages.MainPage.skmt.ExecQuery($"select sum(PE_CANT) as PC_NOART from PEDIDO where PE_CLIENTE = '${c.GetString("PC_CLIENTE")}' AND PE_PROID NOT IN (SELECT CAT_PA_ID FROM PROMOS_COMP)"$)
If x.RowCount > 0 Then
x.Position = 0
Log(x.GetString("PC_NOART"))
' Log(x.GetString("PC_NOART"))
noArticulos = x.GetString("PC_NOART")
End If
Dim label1 As Label