cheveguerra/Mariana_Censos
1
0
Fork 0
mirror of https://github.com/KeymonSoft/Mariana_Censos.git synced 2026-04-20 22:29:13 +00:00
Code Issues Packages Projects Releases Wiki Activity

- VERSION 5.02.11

Browse Source 
- Se agregó en web a HIST_CENSOS_GEOCERCA la columna HC_ESTATUS, y se manda ahi el estatus actual y en HC_COMENTARIO se manda la direccion que se mandaba antes.
- Se agregó al config.properties el query "guardaClienteGeocerca4_MARDS"
This commit is contained in:
Jose Alberto Guerra Ugalde
2025-02-12 16:15:39 -06:00
parent 16c82b3a43
commit 5d010a9401
2 changed files with 6 additions and 6 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
B4A/C_Cliente.bas
View File

@@ -448,10 +448,10 @@ Sub mandaPendientes
Next
End If
cmd.Initialize
cmd.Name = "guardaClienteGeocerca3_MARDS"
cmd.Parameters = Array As Object(c.GetString("CAT_CL_CODIGO"), fechaCaptura, Subs.traeUsuarioDeBD, c.GetString("CAT_CL_LAT"), c.GetString("CAT_CL_LONG"), Subs.traeRuta, Subs.traeAlmacen, c.GetString("LAT_CENSADOR"), c.GetString("LON_CENSADOR"), motivo, c.GetString("CAT_CL_ESTATUS"), cuestionarioTexto, c.GetString("CAT_CL_DIASEMANA"), c.GetString("CAT_CL_SECUENCIA"))
cmd.Name = "guardaClienteGeocerca4_MARDS"
cmd.Parameters = Array As Object(c.GetString("CAT_CL_CODIGO"), fechaCaptura, Subs.traeUsuarioDeBD, c.GetString("CAT_CL_LAT"), c.GetString("CAT_CL_LONG"), Subs.traeRuta, Subs.traeAlmacen, c.GetString("LAT_CENSADOR"), c.GetString("LON_CENSADOR"), motivo, c.GetString("CAT_CL_ESTATUS"), cuestionarioTexto, c.GetString("CAT_CL_DIASEMANA"), c.GetString("CAT_CL_SECUENCIA"), c.GetString("CAT_CL_CALLE1"))
LogColor($"${c.GetString("CAT_CL_CODIGO")}, ${fechaCaptura}, ${Subs.traeUsuarioDeBD}, ${c.GetString("CAT_CL_LAT")}, ${c.GetString("CAT_CL_LONG")}, ${Subs.traeRuta}, ${Subs.traeAlmacen}, ${c.GetString("LAT_CENSADOR")}, ${c.GetString("LON_CENSADOR")}, ${motivo}, ${comentario}, ${cuestionarioTexto}"$, Colors.magenta)
reqManager.ExecuteCommand(cmd, $"guaradClienteGeocerca_${c.GetString("CAT_CL_CODIGO")}"$)
cmd.Initialize