cheveguerra/Mazapa-Reparto
1
0
Fork 0
mirror of https://github.com/KeymonSoft/Mazapa-Reparto.git synced 2026-04-19 22:09:16 +00:00
Code Issues Packages Projects Releases Wiki Activity

...

Browse Source
This commit is contained in:
cvaldes1201
2025-01-21 17:12:03 -06:00
parent da46e318db
commit de4c5240a5
609 changed files with 2651 additions and 2493 deletions
Download Patch File Download Diff File Expand all files Collapse all files

13
B4A/C_Cliente.bas
View File

@@ -343,10 +343,11 @@ Sub Guardado
d.Position = 0
Dim rutapre As String = d.GetString("CAT_CL_RUTA")
d.Close
d = Starter.skmt.ExecQuery("SELECT HVD_FECHA FROM HIST_VENTAS WHERE HVD_CLIENTE IN (SELECT CUENTA FROM CUENTAA)")
d.Position = 0
Dim fechaprev As String = d.GetString("HVD_FECHA")
d.Close
' d = Starter.skmt.ExecQuery("SELECT HVD_FECHA FROM HIST_VENTAS WHERE HVD_CLIENTE IN (SELECT CUENTA FROM CUENTAA)")
' d.Position = 0
Dim fechaprev As String = Subs.traefECHAPREV
' d.Close
Dim rutaactualizar As String
Dim rut As Cursor = Starter.skmt.ExecQuery("SELECT CAT_CL_RUTA FROM kmt_info WHERE CAT_CL_CODIGO IN (SELECT CUENTA FROM CUENTAA)")
@@ -363,7 +364,7 @@ Sub Guardado
mandaPendientesreparto
Dim mandamapa As Cursor = Starter.skmt.ExecQuery("SELECT * FROM kmt_info WHERE gestion = 0")
Dim mandamapa As Cursor = Starter.skmt.ExecQuery("SELECT * FROM kmt_info WHERE gestion = 0 and CAT_CL_CODIGO <> 63403")
If mandamapa.RowCount > 0 Then
StartActivity(MAPA_RUTAS)
Else If mandamapa.RowCount = 0 Then
@@ -393,7 +394,7 @@ Sub DATOS_Click
End Sub
Sub Guardar_Click
Dim mandamapa As Cursor = Starter.skmt.ExecQuery("SELECT * FROM kmt_info WHERE gestion = 0")
Dim mandamapa As Cursor = Starter.skmt.ExecQuery("SELECT * FROM kmt_info WHERE gestion = 0 AND cat_cl_codigo <> 63403")
If mandamapa.RowCount > 0 Then
StartActivity(MAPA_RUTAS)
Else If mandamapa.RowCount = 0 Then