mirror of
https://github.com/KeymonSoft/Durakelo.git
synced 2026-04-17 19:36:12 +00:00
- Se corrigió que no se enviaba el ID de grupo de la encuesta.
- 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:
@@ -165,6 +165,7 @@ Private Sub B4XPage_Created (Root1 As B4XView)
|
||||
Starter.skmt.ExecNonQuery("CREATE TABLE IF NOT EXISTS CAT_ENCUESTA_PREGUNTA (CAT_EP_ID TEXT,CAT_EP_IDTIPOPREGUNTA TEXT,CAT_CE_DESCRIPCION TEXT,CAT_EP_PREGUNTA TEXT,CAT_EP_RES1_PRED TEXT,CAT_EP_RES2_PRED TEXT,CAT_EP_RES3_PRED TEXT,CAT_EP_ORDEN_PREGUNTA TEXT)")
|
||||
Starter.skmt.ExecNonQuery("CREATE TABLE IF NOT EXISTS CAT_ENCUESTA_PREGUNTA5P (CAT_EP_ID TEXT,CAT_EP_IDTIPOPREGUNTA TEXT,CAT_CE_DESCRIPCION TEXT,CAT_EP_PREGUNTA TEXT,CAT_EP_RES1_PRED TEXT,CAT_EP_RES2_PRED TEXT,CAT_EP_RES3_PRED TEXT,CAT_EP_ORDEN_PREGUNTA TEXT)")
|
||||
Starter.skmt.ExecNonQuery("CREATE TABLE IF NOT EXISTS CAT_CLASF_PROD (CAT_CP_ID TEXT, CAT_CP_NOMPROD TEXT)")
|
||||
Subs.agregaColumna("CAT_ENCUESTA_PREGUNTA", "CAT_EP_IDGRUPO", "TEXT")
|
||||
Subs.agregaColumna("HIST_ENCUESTA", "HE_LAT", "TEXT")
|
||||
Subs.agregaColumna("HIST_ENCUESTA", "HE_LON", "TEXT")
|
||||
c=Starter.skmt.ExecQuery2("select count(*) as CUANTOS from CAT_VARIABLES WHERE CAT_VA_DESCRIPCION = ?", Array As String ("SERVER"))
|
||||
|
||||
@@ -1499,7 +1499,7 @@ Sub StartPrinter
|
||||
End Sub
|
||||
|
||||
Sub cuestionario2
|
||||
DateTime.DateFormat = "MM/dd/yyyy"
|
||||
DateTime.DateFormat = "MM/dd/yyyy HH:mm:ss"
|
||||
sDate=DateTime.Date(DateTime.Now)
|
||||
sTime=DateTime.Time(DateTime.Now)
|
||||
|
||||
@@ -1511,9 +1511,12 @@ Sub cuestionario2
|
||||
CUANTOS = 0
|
||||
End If
|
||||
If CUANTOS = 0 Then
|
||||
c=Starter.skmt.ExecQuery("SELECT 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 FROM CAT_ENCUESTA_PREGUNTA ORDER BY CAT_CE_DESCRIPCION, CAST(CAT_EP_ORDEN_PREGUNTA AS DECIMAL)")
|
||||
c=Starter.skmt.ExecQuery("SELECT * FROM CAT_ENCUESTA_PREGUNTA ORDER BY CAT_CE_DESCRIPCION, CAST(CAT_EP_ORDEN_PREGUNTA AS DECIMAL)")
|
||||
If c.RowCount>0 Then
|
||||
For i=0 To c.RowCount -1
|
||||
|
||||
Log($"#### |${sDate}|${sTime}| ######"$)
|
||||
|
||||
If TOMAR_FOTO = 1 Then
|
||||
If CURSOR_FOTO + 1 > c.RowCount -1 Then
|
||||
TOMAR_FOTO = 0
|
||||
@@ -1845,6 +1848,7 @@ Sub Cuestionario
|
||||
b_encuesta_continuar.Visible = False
|
||||
et_encuesta.Visible = False
|
||||
DateTime.DateFormat = "MM/dd/yyyy"
|
||||
DateTime.TimeFormat = "HH:mm:ss"
|
||||
sDate = DateTime.Date(DateTime.Now)
|
||||
sTime = DateTime.Time(DateTime.Now)
|
||||
Private fecha As String = $"${DateTime.Date(DateTime.Now)} ${DateTime.Time(DateTime.Now)}"$
|
||||
@@ -1872,6 +1876,7 @@ Sub Cuestionario
|
||||
enc.position = 0
|
||||
For i = 0 To enc.RowCount - 1
|
||||
Log($"SALIR DE ENCUESTA = ${salirDeEncuesta}"$)
|
||||
Log($"|${sDate}|${sTime}|"$)
|
||||
i = indicePregunta
|
||||
Log("####################################################")
|
||||
Log($"i = ${i}, indicePregunta = ${indicePregunta}"$)
|
||||
|
||||
@@ -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")
|
||||
|
||||
@@ -1398,7 +1398,7 @@ Version=12.8
|
||||
#Region Project Attributes
|
||||
#ApplicationLabel: Durakelo
|
||||
#VersionCode: 1
|
||||
#VersionName: 4.05.24
|
||||
#VersionName: 4.05.27
|
||||
'SupportedOrientations possible values: unspecified, landscape or portrait.
|
||||
#SupportedOrientations: portrait
|
||||
#CanInstallToExternalStorage: False
|
||||
|
||||
@@ -73,6 +73,6 @@ ModuleClosedNodes6=
|
||||
ModuleClosedNodes7=
|
||||
ModuleClosedNodes8=
|
||||
ModuleClosedNodes9=
|
||||
NavigationStack=C_Principal,B_OK_PANEL5_Click,2560,0,C_Principal,b_e_resumen_Click,2732,0,C_Cliente,B4XPage_Appear,254,0,C_Principal,SUBIR_P_Click,2717,0,C_Principal,trabajar_Click,476,0,C_Principal,Subir_Click,636,1,B4XMainPage,Entrar_Click,305,5,Main,Process_Globals,20,0,Visual Designer,Cliente.bal,-100,1,B4XMainPage,JobDone,366,0
|
||||
NavigationStack=B4XMainPage,JobDone,366,0,Main,Process_Globals,21,0,B4XMainPage,B4XPage_Created,161,0,C_Cliente,cuestionario2,1511,6,C_Cliente,Cuestionario,1843,6,Main,Activity_Create,27,0,Main,Globals,23,0,C_Principal,Subir_Click,483,6,C_Principal,connecta_Click,1958,6,C_Principal,JobDone,1770,0
|
||||
SelectedBuild=0
|
||||
VisibleModules=2,10,4,19,5,6,8,9,11,24
|
||||
|
||||
Reference in New Issue
Block a user