From 3004841676ef4441277ae1198cea601112a0d066 Mon Sep 17 00:00:00 2001 From: cvaldes1201 Date: Mon, 6 Nov 2023 20:11:38 -0600 Subject: [PATCH] Cambios funcionamiento --- Durakelo_reparto.b4a | 4 ++-- Durakelo_reparto.b4a.meta | 4 ++-- Starter.bas | 2 +- seleccion.bas | 18 +++++++++++++----- 4 files changed, 18 insertions(+), 10 deletions(-) diff --git a/Durakelo_reparto.b4a b/Durakelo_reparto.b4a index 036e0c6..ce6b5ec 100644 --- a/Durakelo_reparto.b4a +++ b/Durakelo_reparto.b4a @@ -180,8 +180,8 @@ Sub Activity_Create(FirstTime As Boolean) End If skmt.Initialize(ruta,"kmt.db", True) -' server = "http://10.0.0.205:1782" - server = "http://keymon.lat:1782" +' server = "http://11.0.0.120:1782" + server = "http://keymon.lat:1781" If FirstTime Then ' reqManager.Initialize(Me,"http://201.99.139.28:1782") diff --git a/Durakelo_reparto.b4a.meta b/Durakelo_reparto.b4a.meta index 32faba7..d89fb52 100644 --- a/Durakelo_reparto.b4a.meta +++ b/Durakelo_reparto.b4a.meta @@ -64,6 +64,6 @@ ModuleClosedNodes6= ModuleClosedNodes7= ModuleClosedNodes8=3,6,8,17,18,19 ModuleClosedNodes9= -NavigationStack=seleccion,inv_Click,1071,0,seleccion,e_ruta_EnterPressed,1042,0,seleccion,JobDone,679,0,seleccion,cargar_Click,484,0,seleccion,Subir_Click,436,0,seleccion,trabajar_Click,422,0,seleccion,Activity_Pause,418,0,seleccion,to_number_vb,410,0,seleccion,Activity_Resume,287,0,colonia,Activity_Create,33,0,Main,Activity_Create,81,0 +NavigationStack=seleccion,to_number_vb,410,0,colonia,Activity_Create,33,0,seleccion,Activity_Create,110,0,Main,Activity_Create,76,0,Starter,ENVIA_ULTIMA_GPS,82,0,Diseñador Visual,seleccion.bal,-100,1,seleccion,Activity_Resume,197,5,MAPA_RUTAS,MapFragment1_Ready,146,0,seleccion,JobDone,626,6,seleccion,cargar_Click,549,6 SelectedBuild=0 -VisibleModules=18,21,10,9,12,8,4,14,11,2,5,7,15,16,17,20,19 +VisibleModules=18,21,10,9,12,8,4,14,11,2,17 diff --git a/Starter.bas b/Starter.bas index 8a539fb..10b94cc 100644 --- a/Starter.bas +++ b/Starter.bas @@ -46,7 +46,7 @@ End Sub Sub pe_BatteryChanged (Level As Int, Scale As Int, Plugged As Boolean, Intent As Intent) Main.batt=Level - Log(main.batt) + Log(Main.batt) End Sub Private Sub Timer1_Tick diff --git a/seleccion.bas b/seleccion.bas index bf373a8..5d2fcd7 100644 --- a/seleccion.bas +++ b/seleccion.bas @@ -198,6 +198,8 @@ Sub Activity_Resume c=skmt.ExecQuery("select noversion from version") c.Position=0 HORAINGRESO ="000000" + If c.RowCount > 0 Then + If c.GetString("NOVERSION") <> "2.1" Then ToastMessageShow("EXISTE UNA NUEVA VERSION ACTUALIZA POR FAVOR." , True) cargar.Visible = False @@ -207,6 +209,7 @@ Sub Activity_Resume BUSCA.Visible = False inv.Visible = False + End If End If c.Close @@ -506,7 +509,7 @@ Sub cargar_Click 'cmd.Initialize 'cmd.Name = "Select_count_clie" 'reqManager.ExecuteQuery(cmd,0,"count_cli") - + Log(ALMACEN) If ALMACEN = "5" Or ALMACEN ="6" Or ALMACEN = "3" Then cmd.Initialize cmd.Name = "select_punteo_re_DUR2" @@ -539,15 +542,17 @@ Sub cargar_Click reqManager.ExecuteQuery(cmd , 0, "hist_datos") 'reparto rechazo REP_CLIENTE, REP_PRONOMBRE, REP_CANT, REP_COSTO_TOT Else + + Log("aqui") cmd.Initialize cmd.Name = "select_punteo_re_DUR" cmd.Parameters = Array As Object(e_ruta.text, ALMACEN,ALMACEN,ALMACEN) reqManager.ExecuteQuery(cmd , 0, "punteo") - cmd.Initialize - cmd.Name = "select_almacen_guna_re_dur" - cmd.Parameters = Array As Object(e_ruta.text, ALMACEN) - reqManager.ExecuteQuery(cmd , 0, "gunaprod") +' cmd.Initialize +' cmd.Name = "select_almacen_guna_re_dur" +' cmd.Parameters = Array As Object(e_ruta.text, ALMACEN) +' reqManager.ExecuteQuery(cmd , 0, "gunaprod") cmd.Initialize cmd.Name = "select_almacen_guna_re_dur" @@ -625,6 +630,7 @@ Sub JobDone(Job As HttpJob) Dim RESULT As DBResult = reqManager.HandleJob(Job) If RESULT.Tag = "kmt_datos" Then 'query tag For Each records() As Object In RESULT.Rows + Dim CAT_CL_CODIGO As String = records(RESULT.Columns.Get("CAT_CL_CODIGO")) Dim CAT_CL_RUTA As String = records(RESULT.Columns.Get("CAT_CL_RUTA")) Dim CAT_CL_NOMBRE As String = records(RESULT.Columns.Get("CAT_CL_NOMBRE")) @@ -754,7 +760,9 @@ Sub JobDone(Job As HttpJob) If Job.JobName = "DBRequest" Then Dim RESULT As DBResult = reqManager.HandleJob(Job) If RESULT.Tag = "punteo" Then 'query tag + Log("punteo") For Each records() As Object In RESULT.Rows + Log("punteo2") Dim HV_CLIENTE As String = records(RESULT.Columns.Get("HV_CLIENTE")) Dim HV_LONG As String = records(RESULT.Columns.Get("HV_LONG")) Dim HV_LAT As String = records(RESULT.Columns.Get("HV_LAT"))