cheveguerra/Mariana_Censos
1
0
Fork 0
mirror of https://github.com/KeymonSoft/Mariana_Censos.git synced 2026-04-19 13:49:32 +00:00
Code Issues Packages Projects Releases Wiki Activity

Correccion porque no descargaba email, telefono y cuestionario de clientes nuevos (HIST_CLIENTES_CENSOS)

Browse Source
This commit is contained in:
Jose Alberto Guerra Ugalde
2024-01-29 15:53:07 -06:00
parent 9bd7df8a16
commit c272afe218
2 changed files with 19 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

20
B4A/C_Principal.bas
View File

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

2
B4A/Mariana Censos.b4a.meta
View File

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