From 530971af1107f830cae9f0589e899735c70ed1b6 Mon Sep 17 00:00:00 2001 From: cvaldes1201 Date: Tue, 21 May 2024 16:34:06 -0600 Subject: [PATCH] Correccion de reprogramados y envio de los rechazos --- intmex_reparto.b4a | 3 ++- intmex_reparto.b4a.meta | 4 ++-- seleccion.bas | 25 ++++++++++++++----------- 3 files changed, 18 insertions(+), 14 deletions(-) diff --git a/intmex_reparto.b4a b/intmex_reparto.b4a index fad1753..5524bd6 100644 --- a/intmex_reparto.b4a +++ b/intmex_reparto.b4a @@ -134,7 +134,7 @@ Version=12.5 #Region Project Attributes #ApplicationLabel: Intmex-Reparto #VersionCode: 1 - #VersionName: 4.05.08 + #VersionName: 4.05.19 'SupportedOrientations possible values: unspecified, landscape or portrait. #SupportedOrientations: portrait #CanInstallToExternalStorage: False @@ -226,6 +226,7 @@ Sub Activity_Create(FirstTime As Boolean) 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://11.0.0.107:1781" ' server = "http://10.0.0.205:1782" ' server = "http://11.0.0.44:1782" If FirstTime Then diff --git a/intmex_reparto.b4a.meta b/intmex_reparto.b4a.meta index 7d7f01f..061d896 100644 --- a/intmex_reparto.b4a.meta +++ b/intmex_reparto.b4a.meta @@ -56,7 +56,7 @@ ModuleClosedNodes14= ModuleClosedNodes15= ModuleClosedNodes16= ModuleClosedNodes17= -ModuleClosedNodes18=2,3,4,6,7,8,9 +ModuleClosedNodes18=3,6,7,8,9 ModuleClosedNodes19=3,4,5,6,7,8 ModuleClosedNodes2= ModuleClosedNodes20= @@ -70,6 +70,6 @@ ModuleClosedNodes6= ModuleClosedNodes7= ModuleClosedNodes8=2,7,11 ModuleClosedNodes9= -NavigationStack=seleccion,Subir_Click,445,6,seleccion,cargar_Click,486,0,Main,Activity_Create,76,0,Main,i_engrane_Click,262,2,Main,b_envioBD_Click,277,0,Main,Globals,73,0,Main,Activity_Resume,116,0,Diseñador Visual,login.bal,-100,6,Main,b_server_Click,302,1,Main,b_regesar_Click,277,0 +NavigationStack=nopago,cb_reprogramar_CheckedChange,124,0,nopago,GUARDA_Click,80,0,seleccion,JobDone,798,0,Diseñador Visual,nopago.bal,-100,4,Diseñador Visual,seleccion.bal,-100,1,seleccion,Activity_Create,102,0,seleccion,Activity_Resume,246,0,seleccion,Subir_Click,451,6,seleccion,cargar_Click,559,0,Main,Activity_Create,94,3 SelectedBuild=0 VisibleModules=19,23,20,18,4,5,8,15,6,9 diff --git a/seleccion.bas b/seleccion.bas index 81c54a9..ae2bfa3 100644 --- a/seleccion.bas +++ b/seleccion.bas @@ -190,6 +190,7 @@ Sub Activity_Create(FirstTime As Boolean) End Sub Sub Activity_Resume + reqManager.Initialize(Me, Main.server) Subs.centraPanel(p_principal, Activity.Width) c=Starter.skmt.ExecQuery("select noversion from version") c.Position=0 @@ -457,19 +458,20 @@ Sub Subir_Click 'Buscamos ordenes a reprogramar. Dim r As Cursor =Starter.skmt.ExecQuery("select * from noventa where nv_reprogramar = 1") If r.RowCount > 0 Then - Dim o As Cursor = Starter.skmt.ExecQuery2("select HVD_FECHA, CAT_CL_RUTA FROM HIST_VENTAS INNER JOIN on kmt_info on HVD_CLIENTE = cat_cl_codigo WHERE HVD_CLIENTE = ?",Array As String(r.GetString("NV_CLIENTE"))) - If o.RowCount > 0 Then - o.Position = 0 - Log("Enviamos reprogramados: " & r.RowCount) - For rx = 0 To r.RowCount - 1 - r.Position = rx + For rx = 0 To r.RowCount - 1 + r.Position = rx + Dim o As Cursor = Starter.skmt.ExecQuery2("select HVD_FECHA, CAT_CL_RUTA FROM HIST_VENTAS INNER JOIN kmt_info on HVD_CLIENTE = cat_cl_codigo WHERE HVD_CLIENTE = ?",Array As String(r.GetString("NV_CLIENTE"))) + If o.RowCount > 0 Then + o.Position = 0 + Log("Enviamos reprogramados: " & r.RowCount) + Dim cmd As DBCommand cmd.Initialize - cmd.Name = "insert_reparto_reprogramar2_INTMEX" + cmd.Name = "insert_reparto_reprogramar3_INTMEX" cmd.Parameters = Array As Object(r.GetString("NV_CLIENTE"),r.GetString("NV_REPROGRAMAR"),o.GetString("HVD_FECHA"),o.GetString("CAT_CL_RUTA"),ALMACEN) reqManager.ExecuteCommand(cmd , "ins_reprogramar") - Next - End If + End If + Next End If r.Close 'd.Position=0 @@ -527,7 +529,7 @@ Sub cargar_Click LogColor("Reqs Agregamos kmt_datos", Colors.Blue) cmd.Initialize - cmd.Name = "select_ventad_INTMEX_re_REPG" + cmd.Name = "select_ventad2_INTMEX_re_REPG" cmd.Parameters = Array As Object(e_ruta.text, ALMACEN) reqManager.ExecuteQuery(cmd , 0, "hist_datos") reqs.Add("hist_datos") @@ -565,7 +567,7 @@ Sub cargar_Click LogColor("Reqs Agregamos kmt_datos", Colors.Blue) cmd.Initialize - cmd.Name = "select_ventad_INTMEX_re_REPG" + cmd.Name = "select_ventad2_INTMEX_re_REPG" cmd.Parameters = Array As Object(e_ruta.text, ALMACEN) reqManager.ExecuteQuery(cmd , 0, "hist_datos") reqs.Add("hist_datos") @@ -1024,6 +1026,7 @@ Sub connecta_Click cmd.Name = "select_ruta_re_REPG_INTMEX" cmd.Parameters = Array As Object(ALMACEN,e_ruta.text,imei) reqManager.ExecuteQuery(cmd , 0, "ruta") + Log(Main.server) ToastMessageShow("Validando Conexión." , True) End Sub