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

- Correccion al mandar almacen en una venta

Browse Source
This commit is contained in:
Jose Alberto Guerra Ugalde
2024-03-05 16:37:16 -06:00
parent 02dfabbdbb
commit bbd456111f
3 changed files with 3 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
B4A/C_NoVenta.bas
View File

@@ -134,7 +134,7 @@ Sub mandaPendientesnoventa
'PEDIDO_CLIENTE (Pendientes)
' c = B4XPages.MainPage.skmt.ExecQuery("SELECT PC_CLIENTE, PC_FECHA, PC_USER, PC_NOART, PC_MONTO,PC_LON, PC_LAT, PC_COSTO_SIN, PC_RUTA, PC_ALMACEN, PC_FACTURA FROM PEDIDO_CLIENTE where pc_envio_ok <> 1")
c = B4XPages.MainPage.skmt.ExecQuery("SELECT * FROM NOVENTA where ifnull(NV_ENVIO_OK, 0) <> 1")
Log($"Pedido_Cliente PENDIENTE: ${c.RowCount}"$)
Log($"NO VENTA PENDIENTE: ${c.RowCount}"$)
If c.RowCount>0 Then
For i=0 To c.RowCount -1
c.Position=i