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

- Se corrigio el formato de las fecha de captura al cargar dia

Browse Source
This commit is contained in:
Jose Alberto Guerra Ugalde
2024-03-15 12:47:09 -06:00
parent 04a01eea79
commit 4a2bbfd319
5 changed files with 30 additions and 10 deletions
Download Patch File Download Diff File Expand all files Collapse all files

18
B4A/C_Principal.bas
View File

@@ -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"))