diff --git a/B4A/B4XMainPage.bas b/B4A/B4XMainPage.bas index 4276ef9..ec4f211 100644 --- a/B4A/B4XMainPage.bas +++ b/B4A/B4XMainPage.bas @@ -74,7 +74,6 @@ Sub Class_Globals Private lv_server As ListView Private l_server As Label Private et_server As EditText - Dim q As C_Cuestionario ' Private bAceptarPregunta As Button ' Dim encuestaIniciada As Boolean = False diff --git a/B4A/C_Cliente.bas b/B4A/C_Cliente.bas index 5def81a..63b5827 100644 --- a/B4A/C_Cliente.bas +++ b/B4A/C_Cliente.bas @@ -428,7 +428,7 @@ Sub mandaPendientes c.Position = i ' Dim fechaCaptura As String = c.GetString("CAT_CL_FECHA_CAPTURA").As(String).SubString2(0,10) Dim fechaCaptura As String = c.GetString("CAT_CL_FECHA_CAPTURA") - Log(fechaCaptura) +' Log(fechaCaptura) Dim cmd As DBCommand Dim motivo As String = "VERIFICACION DE DATOS" Dim comentario As String = c.GetString("ESTATUS_ORIGINAL") @@ -449,20 +449,22 @@ Sub mandaPendientes End If cmd.Initialize 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.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, comentario, cuestionarioTexto) + 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 cmd.Name = "sp_confirmaCliente2" - Log("******* LARGO - " & cuestionarioTexto.Length) +' Log("******* LARGO - " & cuestionarioTexto.Length) cmd.Parameters = Array As Object(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"), Subs.escapeSQLString(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"), Subs.escapeSQLString(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, c.GetString("CAT_CL_TELEFONO"), c.GetString("CAT_CL_EMAIL"), cuestionarioTexto) - 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")}, ${Subs.escapeSQLString(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}, ${c.GetString("CAT_CL_TELEFONO")}, ${c.GetString("CAT_CL_EMAIL")}, ${cuestionarioTexto}"$) +' 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")}, ${Subs.escapeSQLString(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}, ${c.GetString("CAT_CL_TELEFONO")}, ${c.GetString("CAT_CL_EMAIL")}, ${cuestionarioTexto}"$) reqManager.ExecuteCommand(cmd , $"confirmaCliente_${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")}"$) +' 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")}"$) Next End If @@ -472,6 +474,7 @@ Sub JobDone(Job As HttpJob) Log(Job.Success) If Job.Success = False Then ' ToastMessageShow("Error: " & Job.ErrorMessage, True) + LogColor("ERROR EN: " & Job.tag, Colors.red) LogColor("Error: " & Job.ErrorMessage, Colors.red) Else LogColor("JobDone: '" & reqManager.HandleJob(Job).tag & "' - Registros: " & reqManager.HandleJob(Job).Rows.Size, Colors.Green) 'Mod por CHV - 211027 diff --git a/B4A/C_Principal.bas b/B4A/C_Principal.bas index c03c997..98a3fbd 100644 --- a/B4A/C_Principal.bas +++ b/B4A/C_Principal.bas @@ -623,6 +623,15 @@ Sub JobDone(Job As HttpJob) Dim CAT_CL_ESTATUS As String = records(RESULT.Columns.Get("CAT_CL_ESTATUS")) Dim CAT_CL_GIRO As String = records(RESULT.Columns.Get("CAT_CL_GIRO")) Dim CAT_CL_FECHA_CAPTURA As String = records(RESULT.Columns.Get("CAT_CL_FALTA")) + + DateTime.DateFormat = "yyyy-MM-dd HH:mm:ss" +' Log(">>>>>>>>>>>>>>>>>>>>>>><< " & CAT_CL_FECHA_CAPTURA) +' Log(DateTime.DateParse(CAT_CL_FECHA_CAPTURA)) + Private x As String = DateTime.DateParse(CAT_CL_FECHA_CAPTURA) + DateTime.DateFormat = "dd/MM/yyyy HH:mm:ss" +' Log(DateTime.Date(x)) + CAT_CL_FECHA_CAPTURA = DateTime.Date(x) 'Cambiamos el formato de la fecha. + ' Dim CAT_CL_FECHA_CAPTURA As String = "26/04/23" Starter.dia_semana = CAT_CL_DIASEMANA B4XPages.MainPage.skmt.ExecNonQuery2("INSERT INTO kmt_info(CAT_CL_CODIGO,CAT_CL_RUTA,CAT_CL_NOMBRE,CAT_CL_ATIENDE1,CAT_CL_ATIENTE2,CAT_CL_TELEFONO,CAT_CL_EMAIL,CAT_CL_CALLE,CAT_CL_NOEXT,CAT_CL_NOINT,CAT_CL_CALLE1,CAT_CL_CALLE2,CAT_CL_COLONIA,CAT_CL_MUNI,CAT_CL_EDO,CAT_CL_CP,CAT_CL_LONG,CAT_CL_LAT,CAT_CL_MTOCOMPRA,CAT_CL_NUM_SERIEFISICO, gestion, CAT_CL_DIASEMANA, CAT_CL_SECUENCIA, CAT_CL_ESTATUS, CAT_CL_ENVIO_PENDIENTE, CAT_CL_GIRO, NUEVO, CAT_CL_FECHA_CAPTURA) VALUES (?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,0,?,?,?,0,?,0,?)", Array As Object (CAT_CL_CODIGO,CAT_CL_RUTA,CAT_CL_NOMBRE,CAT_CL_ATIENDE1,CAT_CL_ATIENTE2,CAT_CL_TELEFONO,CAT_CL_EMAIL,CAT_CL_CALLE,CAT_CL_NOEXT,CAT_CL_NOINT,CAT_CL_CALLE1,CAT_CL_CALLE2,CAT_CL_COLONIA,CAT_CL_MUNI,CAT_CL_EDO,CAT_CL_CP,CAT_CL_LONG,CAT_CL_LAT,CAT_CL_MTOCOMPRA,CAT_CL_NUM_SERIEFISICO, CAT_CL_DIASEMANA, CAT_CL_SECUENCIA, CAT_CL_ESTATUS, CAT_CL_GIRO, CAT_CL_FECHA_CAPTURA)) @@ -691,6 +700,15 @@ Sub JobDone(Job As HttpJob) Dim CAT_CL_LONG As String = records(RESULT.Columns.Get("HCC_LONGITUD")) Dim CAT_CL_LAT As String = records(RESULT.Columns.Get("HCC_LATITUD")) Dim CAT_CL_FECHA_CAPTURA As String = records(RESULT.Columns.Get("HCC_FECHA_CAPTURA_MOVIL")) + + DateTime.DateFormat = "yyyy-MM-dd HH:mm:ss" +' Log(">>>>>>>>>>>>>>>>>>>>>>><< " & CAT_CL_FECHA_CAPTURA) +' Log(DateTime.DateParse(CAT_CL_FECHA_CAPTURA)) + Private x As String = DateTime.DateParse(CAT_CL_FECHA_CAPTURA) + DateTime.DateFormat = "dd/MM/yyyy HH:mm:ss" +' Log(DateTime.Date(x)) + CAT_CL_FECHA_CAPTURA = DateTime.Date(x) 'Cambiamos el formato de la fecha. + Dim CAT_CL_ESTATUS As String = records(RESULT.Columns.Get("HCC_ESTATUS")) Dim CAT_CL_GIRO As String = records(RESULT.Columns.Get("HCC_GIRO")) Dim CAT_CL_FOTO As String = records(RESULT.Columns.Get("HCC_FOTO")) diff --git a/B4A/Mariana Censos.b4a b/B4A/Mariana Censos.b4a index 66942a6..f901a83 100644 --- a/B4A/Mariana Censos.b4a +++ b/B4A/Mariana Censos.b4a @@ -753,7 +753,7 @@ Version=12.8 #Region Project Attributes #ApplicationLabel: Mariana Censos #VersionCode: 1 - #VersionName: 4.02.24 + #VersionName: 4.03.14 'SupportedOrientations possible values: unspecified, landscape or portrait. #SupportedOrientations: portrait #CanInstallToExternalStorage: False diff --git a/B4A/Mariana Censos.b4a.meta b/B4A/Mariana Censos.b4a.meta index 232cf7b..d845c84 100644 --- a/B4A/Mariana Censos.b4a.meta +++ b/B4A/Mariana Censos.b4a.meta @@ -48,7 +48,7 @@ ModuleClosedNodes5= ModuleClosedNodes6= ModuleClosedNodes7= ModuleClosedNodes8=9,13,14,17,18 -ModuleClosedNodes9= -NavigationStack=C_Cliente,ajustaTamano,818,0,C_Cliente,et_NoInt_TextChanged,679,0,C_Cliente,et_diaSemana_TextChanged,712,0,Visual Designer,clienteDatos.bal,-100,2,C_Cliente,et_telefono_TextChanged,715,0,C_Cliente,et_NoExt_TextChanged,684,0,C_Cliente,GPS_LocationChanged,356,0,B4XMainPage,B4XPage_Created,125,0,C_Principal,JobDone,707,0,C_Cliente,B4XPage_CloseRequest,361,6 +ModuleClosedNodes9=1 +NavigationStack=C_Principal,cargar_Click,506,0,B4XMainPage,B4XPage_Created,125,0,C_Cliente,B4XPage_CloseRequest,361,6,C_Principal,Class_Globals,0,0,C_Principal,b_subir_Click,408,0,Visual Designer,principal.bal,-100,1,C_Cliente,JobDone,487,6,C_Principal,JobDone,704,6,C_Cliente,mandaPendientes,422,6,B4XMainPage,Class_Globals,69,0 SelectedBuild=0 VisibleModules=2,14,6,9,4,8,5,15,7,16