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

5.09.01

Browse Source 
Se cambia querie para descargar clientes nuevos
Se cambia proceso para que si hay coordenadas en 0 de multiples clientes si los muestre
This commit is contained in:
Javier
2025-09-09 13:28:29 -06:00
parent 7ac6729054
commit 8e9761bdb5
154 changed files with 1470 additions and 1421 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
B4A/C_NoVenta.bas
View File

@@ -95,7 +95,7 @@ Sub GUARDA_Click
rut.Position = 0
rutaactualizar = rut.GetString("CAT_CL_RUTA")
End If
Starter.skmt.ExecNonQuery($"DELETE FROM NOVENTA WHERE NV_CLIENTE IN (select cuenta from cuentaa) AND NV_RUTA ='${rutaactualizar}' "$)
Starter.skmt.ExecNonQuery($"DELETE FROM NOVENTA WHERE NV_CLIENTE IN (select cuenta from cuentaa) "$)
'Traemos los productos del pedido.
c=Starter.skmt.ExecQuery("select HVD_NUM_REGISTRO, HVD_CLIENTE, HVD_PRONOMBRE, HVD_CANT, HVD_COSTO_TOT, HVD_FECHA, HVD_PROID, CAT_GP_PRECIO from HIST_VENTAS2 join CAT_GUNAPROD on CAT_GP_ID = HVD_PROID WHERE HVD_CLIENTE IN (Select CUENTA from cuentaa) order by HVD_PRONOMBRE asc")
If c.RowCount > 0 Then 'Si hay pedido en HIST_VENTAS ...