diff --git a/B4A/B4XMainPage.bas b/B4A/B4XMainPage.bas index 01d5f03..8c27f19 100644 --- a/B4A/B4XMainPage.bas +++ b/B4A/B4XMainPage.bas @@ -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")) diff --git a/B4A/C_Cliente.bas b/B4A/C_Cliente.bas index 8ae320c..aa429cf 100644 --- a/B4A/C_Cliente.bas +++ b/B4A/C_Cliente.bas @@ -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}"$) diff --git a/B4A/C_Principal.bas b/B4A/C_Principal.bas index 2697bd4..51b92d7 100644 --- a/B4A/C_Principal.bas +++ b/B4A/C_Principal.bas @@ -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") diff --git a/B4A/Durakelo.b4a b/B4A/Durakelo.b4a index 5cbcac7..24a696d 100644 --- a/B4A/Durakelo.b4a +++ b/B4A/Durakelo.b4a @@ -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 diff --git a/B4A/Durakelo.b4a.meta b/B4A/Durakelo.b4a.meta index 2e22275..f2a2a5f 100644 --- a/B4A/Durakelo.b4a.meta +++ b/B4A/Durakelo.b4a.meta @@ -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