cheveguerra/Mariana_Censos
1
0
Fork 0
mirror of https://github.com/KeymonSoft/Mariana_Censos.git synced 2026-04-21 14:49:18 +00:00
Code Issues Packages Projects Releases Wiki Activity

Cambios para guardar cuestionario en web

Browse Source
This commit is contained in:
Jose Alberto Guerra Ugalde
2024-01-25 10:22:14 -06:00
parent 2dc1c96db1
commit 162514aff7
4 changed files with 17 additions and 6 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
B4A/C_Cliente.bas
View File

@@ -428,8 +428,8 @@ Sub mandaPendientes
End If End If
cmd.Initialize cmd.Initialize
cmd.Name = "guardaClienteGeocerca_MARDS" 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) 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") reqManager.ExecuteCommand(cmd, "guaradClienteGeocerca")
cmd.Initialize cmd.Initialize

4
B4A/Mariana Censos.b4a.meta
View File

@@ -39,7 +39,7 @@ ModuleClosedNodes11=
ModuleClosedNodes12= ModuleClosedNodes12=
ModuleClosedNodes13=3,5 ModuleClosedNodes13=3,5
ModuleClosedNodes14= ModuleClosedNodes14=
ModuleClosedNodes15=63,64,65,67,68 ModuleClosedNodes15=
ModuleClosedNodes16=4,5,6,10,13,17,18,19 ModuleClosedNodes16=4,5,6,10,13,17,18,19
ModuleClosedNodes2= ModuleClosedNodes2=
ModuleClosedNodes3= ModuleClosedNodes3=
@@ -49,6 +49,6 @@ ModuleClosedNodes6=
ModuleClosedNodes7= ModuleClosedNodes7=
ModuleClosedNodes8=6,9,11,12,13,14,16,17 ModuleClosedNodes8=6,9,11,12,13,14,16,17
ModuleClosedNodes9=3,5 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 SelectedBuild=0
VisibleModules=2,14,6,9,4,8,5,15,7,16 VisibleModules=2,14,6,9,4,8,5,15,7,16

3
B4A/Starter.bas
View File

@@ -116,7 +116,6 @@ Sub Application_Error (Error As Exception, StackTrace As String) As Boolean
Return True Return True
End Sub End Sub
Sub JobDone(Job As HttpJob) Sub JobDone(Job As HttpJob)
' Log(Job.Success) ' Log(Job.Success)
If Job.Success = False Then If Job.Success = False Then
@@ -138,7 +137,7 @@ Sub JobDone(Job As HttpJob)
cmd.Initialize cmd.Initialize
cmd.Name = "insert_UTR_MARDS_C" cmd.Name = "insert_UTR_MARDS_C"
If B4XPages.MainPage.lat_gps.Length < 15 Then B4XPages.MainPage.lat_gps = B4XPages.MainPage.lat_gps&"0" 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}"$) '' 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") reqManager.ExecuteCommand(cmd, "ins_UTR")
End If End If

12
B4A/Subs.bas
View File

@@ -664,6 +664,18 @@ Sub traeAlmacen As String 'ignore
Return a Return a
End Sub 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 'Regresa el nombre del producto desde CAT_GUNAPROD
Sub traeProdNombre(id As String) As String Sub traeProdNombre(id As String) As String
Private h As Cursor Private h As Cursor