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

- VERSION 5.02.17

Browse Source 
- Se agregó en mandaPenddientesNuevosClientes que se envie la informacion a HIST_CENSOS_GEOCERCA.
- Se quito que la direccion se envie a HC_COMENTARIO cuando se modifica un cliente, solo se manda con los clientes nuevos.
This commit is contained in:
Jose Alberto Guerra Ugalde
2025-02-18 13:46:13 -06:00
parent 5d010a9401
commit e3e0781608
4 changed files with 17 additions and 11 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
B4A/C_Cliente.bas
View File

@@ -449,7 +449,7 @@ Sub mandaPendientes
End If
cmd.Initialize
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"))
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_ESTATUS"))
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")}"$)

20
B4A/C_NuevoCliente.bas
View File

@@ -504,14 +504,20 @@ Sub mandaPendientesNuevosClientes
' TMP_ALMACENID, TMP_RUTA, TMP_USUARIO, TMP_ID_CLIENTE, TMP_NOMBRE, TMP_DOMICILIO, TMP_FECHA_CAPTURA_MOVIL, TMP_FECHA_SINCRONIZACION, TMP_LATITUD, TMP_LONGITUD
cmd.Parameters = Array As Object(Subs.traeAlmacen, c.GetString("CAT_CL_RUTA"), Subs.traeUsuarioDeBD, c.GetString("CAT_CL_CODIGO"), c.GetString("CAT_CL_NOMBRE"), c.GetString("CAT_CL_CALLE1"), c.GetString("CAT_CL_FECHA_CAPTURA"), sDateP, c.GetString("CAT_CL_LAT"), c.GetString("CAT_CL_LONG"), fotox, c.GetString("CAT_CL_GIRO"), Starter.dia_semana, c.GetString("CAT_CL_TELEFONO"), c.GetString("CAT_CL_EMAIL"), cuestionarioTexto, c.GetString("CAT_CL_ATIENDE1"))
Log($"${c.GetString("CAT_CL_CODIGO")}, ${Subs.traeAlmacen}, ${c.GetString("CAT_CL_LAT")}, ${c.GetString("CAT_CL_LONG")}, ${c.GetString("CAT_CL_SECUENCIA")}, ${c.GetString("CAT_CL_RUTA")}, ${c.GetString("CAT_CL_DIASEMANA")}, ${c.GetString("CAT_CL_GIRO")}, ${c.GetString("CAT_CL_NOMBRE")}, ${c.GetString("CAT_CL_ATIENDE1")}, ${c.GetString("CAT_CL_CALLE")}, ${c.GetString("CAT_CL_NOINT")}, ${c.GetString("CAT_CL_NOEXT")}, ${c.GetString("CAT_CL_CALLE1")}, ${c.GetString("CAT_CL_CRUCE1")}, ${c.GetString("CAT_CL_CALLE2")}, ${c.GetString("CAT_CL_CP")}, ${c.GetString("CAT_CL_COLONIA")}, ${c.GetString("CAT_CL_MUNI")}, ${c.GetString("CAT_CL_EDO")}, ${c.GetString("CAT_CL_ESTATUS")}, ${c.GetString("CAT_CL_FECHA_CAPTURA")}, ${sDate}, ${Subs.traeUsuarioDeBD}"$)
LogColor(c.GetString("CAT_CL_CODIGO"),Colors.DarkGray)
reqManager.ExecuteCommand(cmd , $"guardaClienteNuevo_${c.GetString("CAT_CL_CODIGO")}"$)
LogColor(c.GetString("CAT_CL_CODIGO"),Colors.DarkGray)
reqManager.ExecuteCommand(cmd , $"guardaClienteNuevo_${c.GetString("CAT_CL_CODIGO")}"$)
cmd.Initialize
cmd.Name = "guardaClientesNuevosMods_MARDS"
cmd.Parameters = Array As Object(Subs.traeUsuarioDeBD, Subs.traeAlmacen, Subs.traeAlmacen, c.GetString("CAT_CL_RUTA"), Subs.traeCliente, c.GetString("CAMPOS_MODIFICADOS"))
Log($"${Subs.traeUsuarioDeBD}, ${Subs.traeAlmacen}, ${Subs.traeAlmacen}, ${c.GetString("CAT_CL_RUTA")}, ${Subs.traeCliente}, ${c.GetString("CAMPOS_MODIFICADOS")}"$)
reqManager.ExecuteCommand(cmd , $"guardaClientesNuevosMods_${c.GetString("CAT_CL_CODIGO")}"$)
cmd.Initialize
cmd.Name = "guardaClientesNuevosMods_MARDS"
cmd.Parameters = Array As Object(Subs.traeUsuarioDeBD, Subs.traeAlmacen, Subs.traeAlmacen, c.GetString("CAT_CL_RUTA"), Subs.traeCliente, c.GetString("CAMPOS_MODIFICADOS"))
Log($"${Subs.traeUsuarioDeBD}, ${Subs.traeAlmacen}, ${Subs.traeAlmacen}, ${c.GetString("CAT_CL_RUTA")}, ${Subs.traeCliente}, ${c.GetString("CAMPOS_MODIFICADOS")}"$)
reqManager.ExecuteCommand(cmd , $"guardaClientesNuevosMods_${c.GetString("CAT_CL_CODIGO")}"$)
cmd.Initialize
cmd.Name = "guardaClienteGeocerca4_MARDS"
cmd.Parameters = Array As Object(c.GetString("CAT_CL_CODIGO"), sDateP, Subs.traeUsuarioDeBD, c.GetString("CAT_CL_LAT"), c.GetString("CAT_CL_LONG"), Subs.traeRuta, Subs.traeAlmacen, c.GetString("LAT_CENSADOR"), c.GetString("LON_CENSADOR"), "CLIENTE NUEVO CENSOS", 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")}, ${sDateP}, ${Subs.traeUsuarioDeBD}, ${c.GetString("CAT_CL_LAT")}, ${c.GetString("CAT_CL_LONG")}, ${Subs.traeRuta}, ${Subs.traeAlmacen}, ${c.GetString("LAT_CENSADOR")}, ${c.GetString("LON_CENSADOR")}, "CLIENTE NUEVO CENSOS", ${c.GetString("CAT_CL_ESTATUS")}, ${cuestionarioTexto}, ${c.GetString("CAT_CL_DIASEMANA")}, ${c.GetString("CAT_CL_SECUENCIA")}, ${c.GetString("CAT_CL_CALLE1")}"$, Colors.magenta)
reqManager.ExecuteCommand(cmd, $"guaradClienteGeocerca_${c.GetString("CAT_CL_CODIGO")}"$)
' End If
Next
End If

2
B4A/Mariana Censos.b4a
View File

@@ -755,7 +755,7 @@ Version=12.8
#Region Project Attributes
#ApplicationLabel: Mariana Censos
#VersionCode: 1
#VersionName: 5.02.11
#VersionName: 5.02.17
'SupportedOrientations possible values: unspecified, landscape or portrait.
#SupportedOrientations: portrait
#CanInstallToExternalStorage: False

4
B4A/Mariana Censos.b4a.meta
View File

@@ -49,6 +49,6 @@ ModuleClosedNodes6=
ModuleClosedNodes7=
ModuleClosedNodes8=1
ModuleClosedNodes9=1
NavigationStack=B4XMainPage,b_mandaUsrs_Click,726,0,B4XMainPage,Class_Globals,25,0,C_Principal,B4XPage_Appear,334,0,C_Principal,b_subir_Click,453,0,C_Principal,Class_Globals,0,0,C_Principal,cargar_Click,512,0,MAPA_RUTAS,MapFragment1_Ready,207,3,C_NuevoCliente,b_guardar_Click,278,0,C_NuevoCliente,mandaPendientesNuevosClientes,504,0,C_Cliente,mandaPendientes,445,1
NavigationStack=Diseñador Visual,cliente.bal,-100,1,Diseñador Visual,clienteDatos.bal,-100,1,C_Cliente,NUEVO_Click,409,0,C_Cliente,b_guardaCambios_Click,405,0,C_Cliente,p_cliente_Click,413,0,C_NuevoCliente,Class_Globals,0,0,C_NuevoCliente,B4XPage_Created,82,0,C_NuevoCliente,b_guardar_Click,278,0,C_NuevoCliente,mandaPendientesNuevosClientes,512,1,C_Cliente,mandaPendientes,443,1
SelectedBuild=0
VisibleModules=2,14,9,4,15,7,16,13,5,8
VisibleModules=2,14,9,4,8,15,7,16,13,5