From 7a7ffcfb9ea6dd3d191893233ef73b8e3429b29a Mon Sep 17 00:00:00 2001 From: cvaldes1201 Date: Tue, 14 Nov 2023 14:19:04 -0600 Subject: [PATCH] Arreglo de encuestas --- B4A/C_Cliente.bas | 79 +++++++++++++++++++++-------------------- B4A/KelloggsV3.b4a | 2 +- B4A/KelloggsV3.b4a.meta | 2 +- 3 files changed, 42 insertions(+), 41 deletions(-) diff --git a/B4A/C_Cliente.bas b/B4A/C_Cliente.bas index 0dc9dfd..1fd4b5c 100644 --- a/B4A/C_Cliente.bas +++ b/B4A/C_Cliente.bas @@ -2536,11 +2536,13 @@ Sub Cuestionario If logger Then LogColor($"Hist:encuesta=${CUANTOS}, hist_encuesta2 = ${CUANTOS2}"$, Colors.Magenta) End If If CUANTOS = 0 And CUANTOS2 = 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)") - If c.RowCount>0 Then - For i=0 To c.RowCount -1 + Dim f As Cursor=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)") + If f.RowCount>0 Then + For i=0 To f.RowCount -1 + f.Position=i + Dim elid As String = f.GetString("CAT_EP_ID") If TOMAR_FOTO = 1 Then - If CURSOR_FOTO + 1 > c.RowCount -1 Then + If CURSOR_FOTO + 1 > f.RowCount -1 Then TOMAR_FOTO = 0 Exit Else @@ -2549,22 +2551,21 @@ Sub Cuestionario 'Msgbox(i,"a") TOMAR_FOTO = 0 End If - c.Position=i - Dim tipoPregunta As String = c.GetString("CAT_EP_IDTIPOPREGUNTA") + Dim tipoPregunta As String = f.GetString("CAT_EP_IDTIPOPREGUNTA") ' If Logger Then Log("=================== "&tipoPregunta) ' If Logger Then Log($"Pregunta tipo: ${tipoPregunta}"$) ' Msgbox("paso1","a") - If c.GetString("CAT_EP_IDTIPOPREGUNTA") = 5 Then - id_encuesta = c.GetString("CAT_EP_ID") + If f.GetString("CAT_EP_IDTIPOPREGUNTA") = 5 Then + id_encuesta = f.GetString("CAT_EP_ID") TOMAR_FOTO = 1 CURSOR_FOTO = i Subs.iniciaActividad("foto") ' Msgbox("paso2","a") Exit - ELSE IF c.GetString("CAT_EP_IDTIPOPREGUNTA") = 3 Then ' Tipo SI/NO + ELSE IF f.GetString("CAT_EP_IDTIPOPREGUNTA") = 3 Then ' Tipo SI/NO botonPresionado = 0 ' Bandera para que espere a que se conteste la pregunta - l_titEncuesta.Text = c.GetString("CAT_CE_DESCRIPCION") - l_txtEncuesta.Text = c.GetString("CAT_EP_PREGUNTA") + l_titEncuesta.Text = f.GetString("CAT_CE_DESCRIPCION") + l_txtEncuesta.Text = f.GetString("CAT_EP_PREGUNTA") Subs.centraEtiqueta(l_txtEncuesta, Root.Width) muestraBoton(b_encuesta_1,"SI", centroPantalla-350, 580, 300, 160) muestraBoton(b_encuesta_2, "NO", centroPantalla+50, 580, 300, 160) @@ -2572,54 +2573,54 @@ Sub Cuestionario Do Until botonPresionado = 1 'Esperamos que respondan la pregunta Sleep(0) Loop - Starter.skmt.ExecNonQuery2("insert into HIST_ENCUESTA(HE_CLIE, HE_RES, HE_FECHA, HE_TIPO) VALUES (?,?,?,?)", Array As Object(la_cuenta.Text, encuestaRes,sDate & sTime,c.GetString("CAT_EP_ID"))) + Starter.skmt.ExecNonQuery2("insert into HIST_ENCUESTA(HE_CLIE, HE_RES, HE_FECHA, HE_TIPO) VALUES (?,?,?,?)", Array As Object(la_cuenta.Text, encuestaRes,sDate & sTime,f.GetString("CAT_EP_ID"))) ocultaPanelEncuesta - ELSE IF c.GetString("CAT_EP_IDTIPOPREGUNTA") = 4 Then - res = Msgbox2(c.GetString("CAT_EP_PREGUNTA"),c.GetString("CAT_CE_DESCRIPCION"), "Si", "", "No",LoadBitmap(File.DirAssets,"alert2.png")) 'ignore + ELSE IF f.GetString("CAT_EP_IDTIPOPREGUNTA") = 4 Then + res = Msgbox2(f.GetString("CAT_EP_PREGUNTA"),f.GetString("CAT_CE_DESCRIPCION"), "Si", "", "No",LoadBitmap(File.DirAssets,"alert2.png")) 'ignore If res = DialogResponse.POSITIVE Then - Starter.skmt.ExecNonQuery2("insert into HIST_ENCUESTA(HE_CLIE, HE_RES, HE_FECHA, HE_TIPO) VALUES (?,?,?,?)", Array As Object(la_cuenta.Text, "SI",sDate & sTime,c.GetString("CAT_EP_ID"))) + Starter.skmt.ExecNonQuery2("insert into HIST_ENCUESTA(HE_CLIE, HE_RES, HE_FECHA, HE_TIPO) VALUES (?,?,?,?)", Array As Object(la_cuenta.Text, "SI",sDate & sTime,f.GetString("CAT_EP_ID"))) Else IF res = DialogResponse.NEGATIVE Then - Starter.skmt.ExecNonQuery2("insert into HIST_ENCUESTA(HE_CLIE, HE_RES, HE_FECHA, HE_TIPO) VALUES (?,?,?,?)", Array As Object(la_cuenta.Text, "NO",sDate & sTime,c.GetString("CAT_EP_ID"))) - i = c.GetInt("CAT_EP_RES2_PRED") -2 + Starter.skmt.ExecNonQuery2("insert into HIST_ENCUESTA(HE_CLIE, HE_RES, HE_FECHA, HE_TIPO) VALUES (?,?,?,?)", Array As Object(la_cuenta.Text, "NO",sDate & sTime,f.GetString("CAT_EP_ID"))) + i = f.GetInt("CAT_EP_RES2_PRED") -2 Else IF res = DialogResponse.CANCEL Then i = i -1 End If ' Msgbox("paso3","a") - ELSE If c.GetString("CAT_EP_IDTIPOPREGUNTA") = 2 Then ' Tipo 3 opciones. + ELSE If f.GetString("CAT_EP_IDTIPOPREGUNTA") = 2 Then ' Tipo 3 opciones. botonPresionado = 0 ' Bandera para que espere a que se conteste la pregunta. - l_titEncuesta.Text = c.GetString("CAT_CE_DESCRIPCION") - l_txtEncuesta.Text = c.GetString("CAT_EP_PREGUNTA") - muestraBoton(b_encuesta_1, c.GetString("CAT_EP_RES2_PRED"), centroPantalla-250, 580, 500, 160) - muestraBoton(b_encuesta_2, c.GetString("CAT_EP_RES3_PRED"), centroPantalla-250, 740, 500, 160) - muestraBoton(b_encuesta_3, c.GetString("CAT_EP_RES1_PRED"), centroPantalla-250, 900, 500, 160) + l_titEncuesta.Text = f.GetString("CAT_CE_DESCRIPCION") + l_txtEncuesta.Text = f.GetString("CAT_EP_PREGUNTA") + muestraBoton(b_encuesta_1, f.GetString("CAT_EP_RES2_PRED"), centroPantalla-250, 580, 500, 160) + muestraBoton(b_encuesta_2, f.GetString("CAT_EP_RES3_PRED"), centroPantalla-250, 740, 500, 160) + muestraBoton(b_encuesta_3, f.GetString("CAT_EP_RES1_PRED"), centroPantalla-250, 900, 500, 160) muestraEncuesta Do Until botonPresionado = 1 'Esperamos que respondan la pregunta. Sleep(0) Loop - Starter.skmt.ExecNonQuery2("insert into HIST_ENCUESTA(HE_CLIE, HE_RES, HE_FECHA, HE_TIPO) VALUES (?,?,?,?)", Array As Object(la_cuenta.Text, encuestaRes,sDate & sTime,c.GetString("CAT_EP_ID"))) + Starter.skmt.ExecNonQuery2("insert into HIST_ENCUESTA(HE_CLIE, HE_RES, HE_FECHA, HE_TIPO) VALUES (?,?,?,?)", Array As Object(la_cuenta.Text, encuestaRes,sDate & sTime,elid)) ocultaPanelEncuesta - ELSE If c.GetString("CAT_EP_IDTIPOPREGUNTA") = 6 Then + ELSE If f.GetString("CAT_EP_IDTIPOPREGUNTA") = 6 Then Panel10.Visible = True - l_chk_e.Text = c.GetString("CAT_EP_PREGUNTA") + l_chk_e.Text = f.GetString("CAT_EP_PREGUNTA") Chk_1.Checked = False chk_2.Checked = False chk_3.Checked = False - Chk_1.Text = c.GetString("CAT_EP_RES1_PRED") - chk_2.Text = c.GetString("CAT_EP_RES2_PRED") - chk_3.Text = c.GetString("CAT_EP_RES3_PRED") - chk_1_valor = c.GetString("CAT_EP_RES1_PRED") - chk_2_valor = c.GetString("CAT_EP_RES2_PRED") - chk_3_valor = c.GetString("CAT_EP_RES3_PRED") - Chk_1.Tag = c.GetString("CAT_EP_ID") - chk_2.Tag = c.GetString("CAT_EP_ID") - chk_3.Tag = c.GetString("CAT_EP_ID") + Chk_1.Text = f.GetString("CAT_EP_RES1_PRED") + chk_2.Text = f.GetString("CAT_EP_RES2_PRED") + chk_3.Text = f.GetString("CAT_EP_RES3_PRED") + chk_1_valor = f.GetString("CAT_EP_RES1_PRED") + chk_2_valor = f.GetString("CAT_EP_RES2_PRED") + chk_3_valor = f.GetString("CAT_EP_RES3_PRED") + Chk_1.Tag = f.GetString("CAT_EP_ID") + chk_2.Tag = f.GetString("CAT_EP_ID") + chk_3.Tag = f.GetString("CAT_EP_ID") TOMAR_FOTO = 1 CURSOR_FOTO = i Exit - ELSE If c.GetString("CAT_EP_IDTIPOPREGUNTA") = 1 Then + ELSE If f.GetString("CAT_EP_IDTIPOPREGUNTA") = 1 Then botonPresionado = 0 ' Bandera para que espere a que se conteste la pregunta - l_titEncuesta.Text = c.GetString("CAT_CE_DESCRIPCION") - l_txtEncuesta.Text = c.GetString("CAT_EP_PREGUNTA") + l_titEncuesta.Text = f.GetString("CAT_CE_DESCRIPCION") + l_txtEncuesta.Text = f.GetString("CAT_EP_PREGUNTA") Subs.centraEditText(et_encuesta, Root.Width) et_encuesta.Visible = True b_encuesta_continuar.Enabled = False @@ -2628,7 +2629,7 @@ Sub Cuestionario Do Until botonPresionado = 1 'Esperamos que respondan la pregunta Sleep(0) Loop - Starter.skmt.ExecNonQuery2("insert into HIST_ENCUESTA(HE_CLIE, HE_RES, HE_FECHA, HE_TIPO) VALUES (?,?,?,?)", Array As Object(la_cuenta.Text, encuestaRes,sDate & sTime,c.GetString("CAT_EP_ID"))) + Starter.skmt.ExecNonQuery2("insert into HIST_ENCUESTA(HE_CLIE, HE_RES, HE_FECHA, HE_TIPO) VALUES (?,?,?,?)", Array As Object(la_cuenta.Text, encuestaRes,sDate & sTime,f.GetString("CAT_EP_ID"))) ocultaPanelEncuesta Else Starter.tipov = "VENTA" diff --git a/B4A/KelloggsV3.b4a b/B4A/KelloggsV3.b4a index 4a08e5e..97a6a09 100644 --- a/B4A/KelloggsV3.b4a +++ b/B4A/KelloggsV3.b4a @@ -176,7 +176,7 @@ Version=12.5 #Region Project Attributes #ApplicationLabel: Kelloggs Venta #VersionCode: 3000 - #VersionName: 3.11.12 RMI + #VersionName: 3.11.13 RMI #SupportedOrientations: portrait #CanInstallToExternalStorage: False #BridgeLogger:true diff --git a/B4A/KelloggsV3.b4a.meta b/B4A/KelloggsV3.b4a.meta index 3f95095..090c606 100644 --- a/B4A/KelloggsV3.b4a.meta +++ b/B4A/KelloggsV3.b4a.meta @@ -82,6 +82,6 @@ ModuleClosedNodes6= ModuleClosedNodes7= ModuleClosedNodes8= ModuleClosedNodes9= -NavigationStack=C_NoVenta,Class_Globals,0,0,C_Nota,GPS_LocationChanged,211,0,C_Nota,borra_Click,244,2,C_Nota,Activity_KeyPress,224,0,C_Cliente,Mods,0,0,C_Cliente,P_BOLETA_Click,3896,0,C_Cliente,B4XPage_Appear,667,0,C_Cliente,BP_DOE_A_Click,4064,0,C_Cliente,GPS_LocationChanged,761,0,C_Cliente,b_aceptarrpomo_Click,3916,6,C_Cliente,b_whats_Click,3903,0 +NavigationStack=C_Cliente,B4XPage_Appear,667,0,Diseñador Visual,proitem.bal,-100,1,Diseñador Visual,productos.bal,-100,1,B4XMainPage,Class_Globals,30,0,C_Cliente,muestraBotonCentrado,2517,0,C_Cliente,Cuestionario,2532,6,C_Cliente,GPS_LocationChanged,779,0 SelectedBuild=0 VisibleModules=1,2,3,4,5,6,7,8,9,10