diff --git a/B4A/C_Principal.bas b/B4A/C_Principal.bas index 43f6dde..c03c997 100644 --- a/B4A/C_Principal.bas +++ b/B4A/C_Principal.bas @@ -696,6 +696,7 @@ Sub JobDone(Job As HttpJob) Dim CAT_CL_FOTO As String = records(RESULT.Columns.Get("HCC_FOTO")) Dim CAT_CL_TELEFONO As String = records(RESULT.Columns.Get("HCC_TELEFONO")) Dim CAT_CL_EMAIL As String = records(RESULT.Columns.Get("HCC_EMAIL")) + Dim CAT_CL_ATIENDE1 As String = records(RESULT.Columns.Get("HCC_ATIENDE")) Dim CAT_CL_DIASEMANA As String = records(RESULT.Columns.Get("DIASEMANA")).As(String).ToUpperCase 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)) LogColor($"${CAT_CL_CODIGO}, ${RESULT.Columns.Get("CAT_CL_CUESTIONARIO")}"$, Colors.blue) diff --git a/B4A/Mariana Censos.b4a b/B4A/Mariana Censos.b4a index 66942a6..3b84e8b 100644 --- a/B4A/Mariana Censos.b4a +++ b/B4A/Mariana Censos.b4a @@ -748,7 +748,7 @@ Module9=C_Principal NumberOfFiles=349 NumberOfLibraries=30 NumberOfModules=16 -Version=12.8 +Version=12.5 @EndOfDesignText@ #Region Project Attributes #ApplicationLabel: Mariana Censos