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

Al descargar cuestionarios, que los parse y los meta a la tabla Cuestionario

Browse Source
This commit is contained in:
Jose Alberto Guerra Ugalde
2024-01-25 11:46:52 -06:00
parent 162514aff7
commit 40de9f3010
4 changed files with 27 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

16
B4A/C_Principal.bas
View File

@@ -256,6 +256,7 @@ Private Sub B4XPage_Created (Root1 As B4XView)
' DateTime.DateFormat = "MM/dd/yyyy"
' fecha=DateTime.Date(DateTime.Now)
B4XPages.MainPage.skmt.Initialize(ruta,"kmt.db", True)
Subs.guardaAppInfo
' b=B4XPages.MainPage.skmt.ExecQuery("Select count(*) as CUANTOS from pedido_cliente")
' b.Position=0
' Cuantos = b.GetString("CUANTOS")
@@ -625,7 +626,22 @@ Sub JobDone(Job As HttpJob)
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")))
' 20240117|1|¿Se puede acceder al negocio o está enrejado?|2|Si se pude acceder|2|¿Tiene al menos 2 pasillos con acceso directo a la mercancía?|1|Si tiene al menos 2 pasillos con acceso directo a la mercancía|6|¿Cuenta con caja de salida para cobro con sistema de computo?|1|Si, tiene sistema de computo para cobro - 2, 0
' LogColor($"${CAT_CL_CODIGO}, ${CAT_CL_NOMBRE}"$, Colors.Magenta)
If records(RESULT.Columns.Get("CAT_CL_CUESTIONARIO")).As(String).Length > 8 Then
Private cuest0 As String = records(RESULT.Columns.Get("CAT_CL_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("CAT_CL_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
Listo1 = 1
' S_CC.Text = "LISTO"