From a6bd4febba927dd0608a3a3fa508eda8bee1dfbe Mon Sep 17 00:00:00 2001 From: Javier Date: Fri, 26 Sep 2025 13:12:45 -0600 Subject: [PATCH] Se corrige la descarga del hist_ventas --- B4A/B4XMainPage.bas | 2 +- B4A/C_Principal.bas | 2 +- B4A/Mariana_Reparto.b4a | 2 +- B4A/Mariana_Reparto.b4a.meta | 4 ++-- B4A/Starter.bas | 2 +- 5 files changed, 6 insertions(+), 6 deletions(-) diff --git a/B4A/B4XMainPage.bas b/B4A/B4XMainPage.bas index 4397059..3b0e2ad 100644 --- a/B4A/B4XMainPage.bas +++ b/B4A/B4XMainPage.bas @@ -204,7 +204,7 @@ Private Sub B4XPage_Created (Root1 As B4XView) Subs.agregaColumna("CAT_GUNAPROD","PRECIOCONVER","TEXT") Starter.skmt.ExecNonQuery("CREATE TABLE IF NOT EXISTS RUTAA (RUTAA TEXT)") Starter.skmt.ExecNonQuery("CREATE TABLE IF NOT EXISTS wayPoints (codigo TEXT, indice INT)") - Dim server As String = "http://187.189.244.154:1781" + Dim server As String = "http://keymon.net:1781" ' Dim server As String = "http://192.168.100.10:1781" ' Dim server As String = "http://keymon.lat:9000" ' server = "http://10.0.0.205:1782" diff --git a/B4A/C_Principal.bas b/B4A/C_Principal.bas index 28ec4ac..1d3804c 100644 --- a/B4A/C_Principal.bas +++ b/B4A/C_Principal.bas @@ -1642,7 +1642,7 @@ Sub JobDone(Job As HttpJob) Starter.skmt.ExecNonQuery2("INSERT INTO HIST_VENTAS2(HVD_CLIENTE,HVD_PRONOMBRE,HVD_CANT,HVD_COSTO_TOT, HVD_FECHA, HVD_CODPROMO, HVD_PROID,HVD_NUM_TICKET, HVD_NUM_REGISTRO, HVD_RECHAZO, HVD_ESTATUS, HVD_PARCIAL) VALUES (?,?,?,?,?,?,?,?,?,?,0,0)", Array As Object (HVD_CLIENTE,HVD_PRONOMBRE,HVD_CANT,HVD_COSTO_TOT,HVD_FECHA, HVD_CODPROMO, HVD_PROID,HVD_NUM_TICKET, HVD_NUM_REGISTRO, HVD_RECHAZO)) Else 'Si ya hay ruta cargada, solo guardamos los clientes nuevos. ' Log("Hay ruta, guardamos los nuevos") - Private tc As Cursor = Starter.skmt.ExecQuery($"select HVD_CLIENTE from HIST_VENTAS where HVD_CLIENTE = '${HVD_CLIENTE}' and HVD_PROID = '${HVD_PROID}'"$) + Private tc As Cursor = Starter.skmt.ExecQuery($"select HVD_CLIENTE from HIST_VENTAS where HVD_CLIENTE = '${HVD_CLIENTE}' and HVD_PROID = '${HVD_PROID}' AND HVD_CANT = '${HVD_CANT}' AND HVD_CODPROMO = '${HVD_CODPROMO}'"$) If tc.RowCount = 0 Then Log($"Guardamos ${HVD_CLIENTE}"$) Starter.skmt.ExecNonQuery2("INSERT INTO HIST_VENTAS(HVD_CLIENTE,HVD_PRONOMBRE,HVD_CANT,HVD_COSTO_TOT, HVD_FECHA, HVD_CODPROMO, HVD_PROID,HVD_NUM_TICKET, HVD_NUM_REGISTRO, HVD_RECHAZO, HVD_ESTATUS, HVD_PARCIAL, PLACA,BCAJAS,CANTC,CONSECUTIVO,BCAJAS_OR,CANTC_OR) VALUES (?,?,?,?,?,?,?,?,?,?,0,0,?,?,?,?,?,?)", Array As Object (HVD_CLIENTE,HVD_PRONOMBRE,HVD_CANT,HVD_COSTO_TOT,HVD_FECHA, HVD_CODPROMO, HVD_PROID,HVD_NUM_TICKET, HVD_NUM_REGISTRO, HVD_RECHAZO, HVD_PLACA,bcajas,cantc,consecutivo,bcajas,cantc)) diff --git a/B4A/Mariana_Reparto.b4a b/B4A/Mariana_Reparto.b4a index 7458a55..e3a6c54 100644 --- a/B4A/Mariana_Reparto.b4a +++ b/B4A/Mariana_Reparto.b4a @@ -214,7 +214,7 @@ Version=12.8 #Region Project Attributes #ApplicationLabel: MARIANA Reparto #VersionCode: 1 - #VersionName: 5.06.06 + #VersionName: 5.09.06 'SupportedOrientations possible values: unspecified, landscape or portrait. #SupportedOrientations: portrait #CanInstallToExternalStorage: False diff --git a/B4A/Mariana_Reparto.b4a.meta b/B4A/Mariana_Reparto.b4a.meta index cf6ac53..8245869 100644 --- a/B4A/Mariana_Reparto.b4a.meta +++ b/B4A/Mariana_Reparto.b4a.meta @@ -91,6 +91,6 @@ ModuleClosedNodes6= ModuleClosedNodes7= ModuleClosedNodes8= ModuleClosedNodes9=8,9 -NavigationStack=Diseñador Visual,login.bal,-100,1,B4XMainPage,b_server_Click,579,0,B4XMainPage,b_apk_Click,576,0,B4XMainPage,JobDone,479,0,B4XMainPage,B4XPage_Created,222,6,C_Principal,JobDone,1762,0,C_Principal,B4XPage_Appear,234,0,MAPA_RUTAS,Activity_KeyPress,356,0,B4XMainPage,i_engrane_Click,528,1,MAPA_RUTAS,MapFragment1_Ready,259,4 +NavigationStack=B4XMainPage,b_server_Click,579,0,B4XMainPage,b_apk_Click,576,0,B4XMainPage,JobDone,479,0,C_Principal,B4XPage_Appear,234,0,MAPA_RUTAS,Activity_KeyPress,356,0,MAPA_RUTAS,MapFragment1_Ready,259,4,C_Principal,JobDone,1638,0,B4XMainPage,i_engrane_Click,537,1,Starter,Process_Globals,29,0,B4XMainPage,B4XPage_Created,200,6 SelectedBuild=0 -VisibleModules=28,2,3,4,5,6,7,8,9,10,21,27,16 +VisibleModules=28,2,3,4,5,6,7,8,9,10,27,16 diff --git a/B4A/Starter.bas b/B4A/Starter.bas index d37eb2f..89d59dc 100644 --- a/B4A/Starter.bas +++ b/B4A/Starter.bas @@ -33,7 +33,7 @@ Sub Process_Globals Public SharedFolder As String 'Para actualizar apk Dim cedisLocation As Location Dim reqManager As DBRequestManager - Dim server As String = "http://187.189.244.154:1781" + Dim server As String = "http://keymon.net:1781" ' Dim server As String = "http://192.168.100.10:1781" ' Dim server As String = "http://keymon.lat:9000" ' Dim server = "http://192.168.100.10:1781"