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 codigo de la encuesta para que guarde almacen y ruta en la base de datos.

Browse Source 
- Se puso una validacion al salir de cliente, para que si hay campos modificados y no se han guardado, mande un aviso.
This commit is contained in:
Jose Alberto Guerra Ugalde
2024-02-26 15:32:40 -06:00
parent c600d9e044
commit 20fee54acb
9 changed files with 69 additions and 23 deletions
Download Patch File Download Diff File Expand all files Collapse all files

5
B4A/C_Principal.bas
View File

@@ -598,6 +598,7 @@ Sub JobDone(Job As HttpJob)
For Each records() As Object In RESULT.Rows
Dim CAT_CL_CODIGO As String = records(RESULT.Columns.Get("CAT_CL_CODIGO"))
Dim CAT_CL_RUTA As String = records(RESULT.Columns.Get("CAT_CL_RUTA"))
Dim CAT_CL_ALMACEN As String = records(RESULT.Columns.Get("CAT_CL_IDALMACEN"))
Dim CAT_CL_NOMBRE As String = records(RESULT.Columns.Get("CAT_CL_NOMBRE"))
Dim CAT_CL_ATIENDE1 As String = records(RESULT.Columns.Get("CAT_CL_ATIENDE1"))
Dim CAT_CL_ATIENTE2 As String = records(RESULT.Columns.Get("CAT_CL_ATIENTE2"))
@@ -636,7 +637,7 @@ Sub JobDone(Job As HttpJob)
' 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}')"$)
B4XPages.MainPage.skmt.ExecNonQuery($"insert into cuestionario (Q_RUTA, Q_ALMACEN, Q_IDCLIENTE, Q_IDPREGUNTA, Q_PREGUNTA, Q_IDRESPUESTA, Q_RESPUESTA, Q_FECHA) values ('${CAT_CL_RUTA}', '${CAT_CL_ALMACEN}', '${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
@@ -708,7 +709,7 @@ Sub JobDone(Job As HttpJob)
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}')"$)
B4XPages.MainPage.skmt.ExecNonQuery($"insert into cuestionario (Q_RUTA, Q_ALMACEN, Q_IDCLIENTE, Q_IDPREGUNTA, Q_PREGUNTA, Q_IDRESPUESTA, Q_RESPUESTA, Q_FECHA) values ('${CAT_CL_RUTA}', '${CAT_CL_CEDIS}', '${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