From 162514aff7ef08c42b28abffb77b145f4367ce76 Mon Sep 17 00:00:00 2001 From: Jose Alberto Guerra Ugalde Date: Thu, 25 Jan 2024 10:22:14 -0600 Subject: [PATCH] Cambios para guardar cuestionario en web --- B4A/C_Cliente.bas | 4 ++-- B4A/Mariana Censos.b4a.meta | 4 ++-- B4A/Starter.bas | 3 +-- B4A/Subs.bas | 12 ++++++++++++ 4 files changed, 17 insertions(+), 6 deletions(-) diff --git a/B4A/C_Cliente.bas b/B4A/C_Cliente.bas index 03dd401..fa263fa 100644 --- a/B4A/C_Cliente.bas +++ b/B4A/C_Cliente.bas @@ -428,8 +428,8 @@ Sub mandaPendientes End If cmd.Initialize - cmd.Name = "guardaClienteGeocerca_MARDS" - cmd.Parameters = Array As Object(c.GetString("CAT_CL_CODIGO"), fechaCaptura, Subs.traeUsuarioDeBD, c.GetString("CAT_CL_LAT"), c.GetString("CAT_CL_LONG"), l_ruta.text, Subs.traeAlmacen, c.GetString("LAT_CENSADOR"), c.GetString("LON_CENSADOR"), motivo, comentario) + cmd.Name = "guardaClienteGeocerca2_MARDS" + cmd.Parameters = Array As Object(c.GetString("CAT_CL_CODIGO"), fechaCaptura, Subs.traeUsuarioDeBD, c.GetString("CAT_CL_LAT"), c.GetString("CAT_CL_LONG"), l_ruta.text, Subs.traeAlmacen, c.GetString("LAT_CENSADOR"), c.GetString("LON_CENSADOR"), motivo, comentario, cuestionarioTexto) reqManager.ExecuteCommand(cmd, "guaradClienteGeocerca") cmd.Initialize diff --git a/B4A/Mariana Censos.b4a.meta b/B4A/Mariana Censos.b4a.meta index 2a9c71c..03451c6 100644 --- a/B4A/Mariana Censos.b4a.meta +++ b/B4A/Mariana Censos.b4a.meta @@ -39,7 +39,7 @@ ModuleClosedNodes11= ModuleClosedNodes12= ModuleClosedNodes13=3,5 ModuleClosedNodes14= -ModuleClosedNodes15=63,64,65,67,68 +ModuleClosedNodes15= ModuleClosedNodes16=4,5,6,10,13,17,18,19 ModuleClosedNodes2= ModuleClosedNodes3= @@ -49,6 +49,6 @@ ModuleClosedNodes6= ModuleClosedNodes7= ModuleClosedNodes8=6,9,11,12,13,14,16,17 ModuleClosedNodes9=3,5 -NavigationStack=Subs,traeCliente,681,0,C_NuevoCliente,b_guardar_Click,247,0,C_NuevoCliente,B4XPage_Appear,93,0,Main,Globals,24,0,Visual Designer,productos.bal,-100,1,C_Cliente,mandaPendientes,417,4,B4XMainPage,B4XPage_Created,81,0,B4XMainPage,Initialize,79,0,B4XMainPage,b_menu_Click,509,0,B4XMainPage,Class_Globals,35,0 +NavigationStack=Subs,logJobDoneResultados,1234,0,Subs,hayPedido,1224,0,Visual Designer,principal.bal,-100,4,C_NuevoCliente,b_guardar_Click,232,0,Subs,traeTotalesClienteActual,1181,0,Subs,revisaMaxPromosProdsVariablesPorInventario,1103,0,Subs,traeRuta,665,6,Subs,traeAlmacen,660,0,C_Cliente,mandaPendientes,409,5,Starter,JobDone,131,1,Starter,Application_Error,111,0 SelectedBuild=0 VisibleModules=2,14,6,9,4,8,5,15,7,16 diff --git a/B4A/Starter.bas b/B4A/Starter.bas index b9ebe32..b2c6f4f 100644 --- a/B4A/Starter.bas +++ b/B4A/Starter.bas @@ -116,7 +116,6 @@ Sub Application_Error (Error As Exception, StackTrace As String) As Boolean Return True End Sub - Sub JobDone(Job As HttpJob) ' Log(Job.Success) If Job.Success = False Then @@ -138,7 +137,7 @@ Sub JobDone(Job As HttpJob) cmd.Initialize cmd.Name = "insert_UTR_MARDS_C" If B4XPages.MainPage.lat_gps.Length < 15 Then B4XPages.MainPage.lat_gps = B4XPages.MainPage.lat_gps&"0" - cmd.Parameters = Array As Object(Subs.traeAlmacen, B4XPages.MainPage.batt, B4XPages.MainPage.principal.l_dia.text, B4XPages.MainPage.principal.l_nuevos_c.text, B4XPages.MainPage.principal.l_nuevos_p.text, B4XPages.MainPage.principal.l_ruta.Text, B4XPages.MainPage.principal.l_total.text, Subs.traeUsuarioDeBD, B4XPages.MainPage.principal.l_visitados.text, B4XPages.MainPage.lat_gps, B4XPages.MainPage.lon_gps) + cmd.Parameters = Array As Object(Subs.traeAlmacen, B4XPages.MainPage.batt, B4XPages.MainPage.principal.l_dia.text, B4XPages.MainPage.principal.l_nuevos_c.text, B4XPages.MainPage.principal.l_nuevos_p.text, Subs.traeRuta, B4XPages.MainPage.principal.l_total.text, Subs.traeUsuarioDeBD, B4XPages.MainPage.principal.l_visitados.text, B4XPages.MainPage.lat_gps, B4XPages.MainPage.lon_gps) '' If logger Then Log($"${Subs.traeAlmacen}, ${B4XPages.MainPage.batt}, ${B4XPages.MainPage.principal.l_dia.text}, ${B4XPages.MainPage.principal.l_nuevos_c.text}, ${B4XPages.MainPage.principal.l_nuevos_p.text}, ${B4XPages.MainPage.principal.l_ruta.Text}, ${B4XPages.MainPage.principal.l_total.text}, ${Subs.traeUsuarioDeBD}, ${B4XPages.MainPage.principal.l_visitados.text}, ${B4XPages.MainPage.lat_gps}, ${B4XPages.MainPage.lon_gps}"$) reqManager.ExecuteCommand(cmd, "ins_UTR") End If diff --git a/B4A/Subs.bas b/B4A/Subs.bas index d3d200a..308087d 100644 --- a/B4A/Subs.bas +++ b/B4A/Subs.bas @@ -664,6 +664,18 @@ Sub traeAlmacen As String 'ignore Return a End Sub +'Regresa la ruta desde kmt_info. +Sub traeRuta As String 'ignore + Private r As Cursor + Private r2 As String = "" + r = B4XPages.MainPage.skmt.ExecQuery("select CAT_CL_RUTA from kmt_info limit 1") + If r.RowCount > 0 Then + r.Position = 0 + r2 = r.GetString("CAT_CL_RUTA") + End If + Return r2 +End Sub + 'Regresa el nombre del producto desde CAT_GUNAPROD Sub traeProdNombre(id As String) As String Private h As Cursor