cheveguerra/Durakelo
1
0
Fork 0
mirror of https://github.com/KeymonSoft/Durakelo.git synced 2026-04-20 04:39:17 +00:00
Code Issues Packages Projects Releases Wiki Activity

- Se corrigió que no se enviaba el ID de grupo de la encuesta.

Browse Source 
- Se corrigió que no caia la primera pregunta de la encuesta en web.
- Se corrigió queno se enviaba el id de almacen a TMP_ENCUESTA.
- Se corrigió el formato de la fecha de la encuesta.
- Se cambio el query de conexión para poder deshablilitar versiones viejas.
This commit is contained in:
Jose Alberto Guerra Ugalde
2024-05-28 11:25:07 -06:00
parent f3a9cac35a
commit 5289bb7051
5 changed files with 21 additions and 13 deletions
Download Patch File Download Diff File Expand all files Collapse all files

20
B4A/C_Principal.bas
View File

@@ -608,7 +608,7 @@ Sub Subir_Click
Next
c.Close
End If
c=skmt.ExecQuery("SELECT HE_CLIE, HE_RES, HE_FECHA, HE_TIPO, HE_ORDEN FROM HIST_ENCUESTA4")
' S_CP.Text = "Envio Encuesta"
PB2.Progress = 1
@@ -626,17 +626,18 @@ Sub Subir_Click
End If
'ENCUESTAS
c=skmt.ExecQuery("SELECT * FROM HIST_ENCUESTA")
c=skmt.ExecQuery("SELECT CAT_EP_IDGRUPO, HIST_ENCUESTA.* FROM HIST_ENCUESTA join CAT_ENCUESTA_PREGUNTA on CAT_EP_ID = HE_TIPO")
' S_CP.Text = "Envio Encuesta"
' PB2.Progress = 1
If c.RowCount>0 Then
For i=0 To c.RowCount -1
c.Position=i
c.Position = i
Dim cmd As DBCommand
cmd.Initialize
cmd.Name = "insert_encuesta_DUR"
cmd.Parameters = Array As Object(C.GetString("HE_CLIE"),C.GetString("HE_RES"),C.GetString("HE_FECHA"), c.GetString("HE_TIPO"),l_ruta.Text )
reqManager.ExecuteQuery(cmd , 0, "inst_noventa")
cmd.Name = "insert_encuesta2_DUR"
cmd.Parameters = Array As Object(C.GetString("HE_CLIE"), C.GetString("HE_RES"), C.GetString("HE_FECHA"), c.GetString("HE_TIPO"), l_ruta.Text, c.GetString("CAT_EP_IDGRUPO"), Subs.traeAlmacen)
Log($"${C.GetString("HE_RES")}, ${C.GetString("HE_FECHA")}, ${c.GetString("HE_TIPO")}, ${l_ruta.Text}, ${c.GetString("CAT_EP_IDGRUPO")}, ${Subs.traeAlmacen}"$)
reqManager.ExecuteCommand(cmd , "ins_encuesta")
Next
End If
c.Close
@@ -906,7 +907,7 @@ Sub cargar_Click
cmd.Initialize
cmd.Name = "select_cat_gunaprod2_DUR"
cmd.Parameters = Array As Object(ALMACEN, e_ruta.Text)
log(ALMACEN & "|" & e_ruta.Text)
Log(ALMACEN & "|" & e_ruta.Text)
reqManager.ExecuteQuery(cmd , 0, "gunaprod2")
cmd.Initialize
@@ -1626,6 +1627,7 @@ Sub JobDone(Job As HttpJob)
If RESULT.Tag = "carga_encuesta" Then 'query tag
For Each records() As Object In RESULT.Rows
Dim CAT_EP_ID As String = records(RESULT.COLUMNS.GET("CAT_EP_ID"))
Dim CAT_EP_IDGRUPO As String = records(RESULT.COLUMNS.GET("CAT_EP_IDGRUPO"))
Dim CAT_EP_IDTIPOPREGUNTA As String = records(RESULT.COLUMNS.GET("CAT_EP_IDTIPOPREGUNTA"))
Dim CAT_CE_DESCRIPCION As String = records(RESULT.COLUMNS.GET("CAT_CE_DESCRIPCION"))
Dim CAT_EP_PREGUNTA As String = records(RESULT.COLUMNS.GET("CAT_EP_PREGUNTA"))
@@ -1633,7 +1635,7 @@ Sub JobDone(Job As HttpJob)
Dim CAT_EP_RES2_PRED As String = records(RESULT.COLUMNS.GET("CAT_EP_RES2_PRED"))
Dim CAT_EP_RES3_PRED As String = records(RESULT.COLUMNS.GET("CAT_EP_RES3_PRED"))
Dim CAT_EP_ORDEN_PREGUNTA As String = records(RESULT.COLUMNS.GET("CAT_EP_ORDEN_PREGUNTA"))
skmt.ExecNonQuery2("INSERT INTO CAT_ENCUESTA_PREGUNTA (CAT_EP_ID ,CAT_EP_IDTIPOPREGUNTA ,CAT_CE_DESCRIPCION ,CAT_EP_PREGUNTA ,CAT_EP_RES1_PRED ,CAT_EP_RES2_PRED ,CAT_EP_RES3_PRED ,CAT_EP_ORDEN_PREGUNTA ) VALUES (?,?,?,?,?,?,?,?)", Array As Object (CAT_EP_ID ,CAT_EP_IDTIPOPREGUNTA ,CAT_CE_DESCRIPCION ,CAT_EP_PREGUNTA ,CAT_EP_RES1_PRED ,CAT_EP_RES2_PRED ,CAT_EP_RES3_PRED ,CAT_EP_ORDEN_PREGUNTA))
skmt.ExecNonQuery2("INSERT INTO CAT_ENCUESTA_PREGUNTA (CAT_EP_ID ,CAT_EP_IDTIPOPREGUNTA ,CAT_CE_DESCRIPCION ,CAT_EP_PREGUNTA ,CAT_EP_RES1_PRED ,CAT_EP_RES2_PRED ,CAT_EP_RES3_PRED ,CAT_EP_ORDEN_PREGUNTA,CAT_EP_IDGRUPO) VALUES (?,?,?,?,?,?,?,?,?)", Array As Object (CAT_EP_ID,CAT_EP_IDTIPOPREGUNTA,CAT_CE_DESCRIPCION,CAT_EP_PREGUNTA,CAT_EP_RES1_PRED,CAT_EP_RES2_PRED,CAT_EP_RES3_PRED,CAT_EP_ORDEN_PREGUNTA,CAT_EP_IDGRUPO))
Next
End If
End If
@@ -1960,7 +1962,7 @@ Sub connecta_Click
Dim cmd As DBCommand
cmd.Initialize
cmd.Name = "select_ruta_DUR2_2"
cmd.Name = "select_ruta_DUR3" 'Se cambio de "select_ruta_DUR2_2" el 28/5/2024 para poder deshabilitar el query de las versiones anteriores.
cmd.Parameters = Array As Object(ALMACEN,e_ruta.text,imei)
Log($"${ALMACEN},${e_ruta.text},${imei}"$)
reqManager.ExecuteQuery(cmd , 0, "ruta")