diff --git a/B4A/C_Principal.bas b/B4A/C_Principal.bas index 29e07ad..8e69495 100644 --- a/B4A/C_Principal.bas +++ b/B4A/C_Principal.bas @@ -625,8 +625,8 @@ Sub JobDone(Job As HttpJob) 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)) B4XPages.MainPage.skmt.ExecNonQuery2("INSERT INTO HIST_STAY_STORE(HSS_CODIGO, HSS_IN , HSS_OUT , HSS_TOT) VALUES (?,0,0,0)", Array As Object (CAT_CL_CODIGO)) - l_ruta.Text = records(RESULT.Columns.Get(("CAT_CL_RUTA"))) ' LogColor($"${CAT_CL_CODIGO}, ${CAT_CL_NOMBRE}"$, Colors.Magenta) + l_ruta.Text = records(RESULT.Columns.Get(("CAT_CL_RUTA"))) If records(RESULT.Columns.Get("CAT_CL_CUESTIONARIO")).As(String).Length > 8 Then 'Parseamos y guardamos el cuestioario en la tabla correspondiente. Private cuest0 As String = records(RESULT.Columns.Get("CAT_CL_CUESTIONARIO")) Private cuestionario() As String = Regex.split("\|", cuest0) @@ -683,9 +683,25 @@ Sub JobDone(Job As HttpJob) 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")) + 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_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}, ${CAT_CL_NOMBRE}"$, Colors.blue) + LogColor($"${CAT_CL_CODIGO}, ${RESULT.Columns.Get("CAT_CL_CUESTIONARIO")}"$, Colors.blue) + Log($"|${records(RESULT.Columns.Get("HCC_CUESTIONARIO"))}|"$) + Private cuest0 As String = records(RESULT.Columns.Get("HCC_CUESTIONARIO")).As(String) + If cuest0 <> Null And cuest0.Length > 8 Then 'Parseamos y guardamos el cuestioario en la tabla correspondiente. + Private cuest0 As String = records(RESULT.Columns.Get("HCC_CUESTIONARIO")) + Private cuestionario() As String = Regex.split("\|", cuest0) + Private qFecha As String = cuestionario(0) + B4XPages.MainPage.skmt.ExecNonQuery($"delete from cuestionario where Q_IDCLIENTE = '${CAT_CL_CODIGO}'"$) + Log(records(RESULT.Columns.Get("HCC_CUESTIONARIO"))) +' Log($"${CAT_CL_CODIGO}"$) + For i = 1 To cuestionario.Length - 1 Step 4 + B4XPages.MainPage.skmt.ExecNonQuery($"insert into cuestionario (Q_IDCLIENTE, Q_IDPREGUNTA, Q_PREGUNTA, Q_IDRESPUESTA, Q_RESPUESTA, Q_FECHA) values ('${CAT_CL_CODIGO}', '${cuestionario(i)}', '${cuestionario(i+1)}', '${cuestionario(i+2)}', '${cuestionario(i+3)}', '${qFecha}')"$) + Log($"${i} - ${qFecha}, ${cuestionario(i)}, ${cuestionario(i+1)}, ${cuestionario(i+2)}, ${cuestionario(i+3)}"$) + Next + End If Next reqs.RemoveAt(reqs.IndexOf("clientes_nuevos")) End If diff --git a/B4A/Mariana Censos.b4a.meta b/B4A/Mariana Censos.b4a.meta index f979695..0d02029 100644 --- a/B4A/Mariana Censos.b4a.meta +++ b/B4A/Mariana Censos.b4a.meta @@ -49,6 +49,6 @@ ModuleClosedNodes6= ModuleClosedNodes7= ModuleClosedNodes8=6,9,11,12,13,14,16,17 ModuleClosedNodes9=1,5 -NavigationStack=C_Principal,CARGA_Click,1040,0,C_Principal,cargar_Click,505,0,C_Principal,JobDone,632,6,B4XMainPage,B4XPage_Created,84,3,C_Cliente,mandaPendientes,427,0,C_Cliente,ajustaTamano,783,0,C_Cliente,B4XPage_Appear,317,0,Visual Designer,clienteDatos.bal,-100,2,C_NuevoCliente,ajustaTamano,553,0,C_NuevoCliente,B4XPage_Appear,107,6 +NavigationStack=C_Cliente,mandaPendientes,427,0,C_Cliente,ajustaTamano,783,0,C_NuevoCliente,B4XPage_Appear,107,6,C_Cliente,B4XPage_Appear,310,0,C_NuevoCliente,ajustaTamano,568,0,B4XMainPage,Initialize,78,0,Visual Designer,clienteDatos.bal,-100,3,C_Principal,Class_Globals,0,0,C_Principal,cargar_Click,517,0,C_Principal,JobDone,666,6 SelectedBuild=0 VisibleModules=2,14,6,9,4,8,5,15,7,16