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

Arreglo de encuestas

Browse Source
This commit is contained in:
cvaldes1201
2023-11-14 14:19:04 -06:00
parent a1c4dc0bcd
commit 7a7ffcfb9e
3 changed files with 42 additions and 41 deletions
Download Patch File Download Diff File Expand all files Collapse all files

79
B4A/C_Cliente.bas
View File

@@ -2536,11 +2536,13 @@ Sub Cuestionario
If logger Then LogColor($"Hist:encuesta=${CUANTOS}, hist_encuesta2 = ${CUANTOS2}"$, Colors.Magenta) If logger Then LogColor($"Hist:encuesta=${CUANTOS}, hist_encuesta2 = ${CUANTOS2}"$, Colors.Magenta)
End If End If
If CUANTOS = 0 And CUANTOS2 = 0 Then 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)") 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 c.RowCount>0 Then If f.RowCount>0 Then
For i=0 To c.RowCount -1 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 TOMAR_FOTO = 1 Then
If CURSOR_FOTO + 1 > c.RowCount -1 Then If CURSOR_FOTO + 1 > f.RowCount -1 Then
TOMAR_FOTO = 0 TOMAR_FOTO = 0
Exit Exit
Else Else
@@ -2549,22 +2551,21 @@ Sub Cuestionario
'Msgbox(i,"a") 'Msgbox(i,"a")
TOMAR_FOTO = 0 TOMAR_FOTO = 0
End If End If
c.Position=i Dim tipoPregunta As String = f.GetString("CAT_EP_IDTIPOPREGUNTA")
Dim tipoPregunta As String = c.GetString("CAT_EP_IDTIPOPREGUNTA")
' If Logger Then Log("=================== "&tipoPregunta) ' If Logger Then Log("=================== "&tipoPregunta)
' If Logger Then Log($"Pregunta tipo: ${tipoPregunta}"$) ' If Logger Then Log($"Pregunta tipo: ${tipoPregunta}"$)
' Msgbox("paso1","a") ' Msgbox("paso1","a")
If c.GetString("CAT_EP_IDTIPOPREGUNTA") = 5 Then If f.GetString("CAT_EP_IDTIPOPREGUNTA") = 5 Then
id_encuesta = c.GetString("CAT_EP_ID") id_encuesta = f.GetString("CAT_EP_ID")
TOMAR_FOTO = 1 TOMAR_FOTO = 1
CURSOR_FOTO = i CURSOR_FOTO = i
Subs.iniciaActividad("foto") Subs.iniciaActividad("foto")
' Msgbox("paso2","a") ' Msgbox("paso2","a")
Exit 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 botonPresionado = 0 ' Bandera para que espere a que se conteste la pregunta
l_titEncuesta.Text = c.GetString("CAT_CE_DESCRIPCION") l_titEncuesta.Text = f.GetString("CAT_CE_DESCRIPCION")
l_txtEncuesta.Text = c.GetString("CAT_EP_PREGUNTA") l_txtEncuesta.Text = f.GetString("CAT_EP_PREGUNTA")
Subs.centraEtiqueta(l_txtEncuesta, Root.Width) Subs.centraEtiqueta(l_txtEncuesta, Root.Width)
muestraBoton(b_encuesta_1,"SI", centroPantalla-350, 580, 300, 160) muestraBoton(b_encuesta_1,"SI", centroPantalla-350, 580, 300, 160)
muestraBoton(b_encuesta_2, "NO", centroPantalla+50, 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 Do Until botonPresionado = 1 'Esperamos que respondan la pregunta
Sleep(0) Sleep(0)
Loop 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 ocultaPanelEncuesta
ELSE IF c.GetString("CAT_EP_IDTIPOPREGUNTA") = 4 Then ELSE IF f.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 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 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 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"))) 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 = c.GetInt("CAT_EP_RES2_PRED") -2 i = f.GetInt("CAT_EP_RES2_PRED") -2
Else IF res = DialogResponse.CANCEL Then Else IF res = DialogResponse.CANCEL Then
i = i -1 i = i -1
End If End If
' Msgbox("paso3","a") ' 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. botonPresionado = 0 ' Bandera para que espere a que se conteste la pregunta.
l_titEncuesta.Text = c.GetString("CAT_CE_DESCRIPCION") l_titEncuesta.Text = f.GetString("CAT_CE_DESCRIPCION")
l_txtEncuesta.Text = c.GetString("CAT_EP_PREGUNTA") l_txtEncuesta.Text = f.GetString("CAT_EP_PREGUNTA")
muestraBoton(b_encuesta_1, c.GetString("CAT_EP_RES2_PRED"), centroPantalla-250, 580, 500, 160) muestraBoton(b_encuesta_1, f.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_2, f.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) muestraBoton(b_encuesta_3, f.GetString("CAT_EP_RES1_PRED"), centroPantalla-250, 900, 500, 160)
muestraEncuesta muestraEncuesta
Do Until botonPresionado = 1 'Esperamos que respondan la pregunta. Do Until botonPresionado = 1 'Esperamos que respondan la pregunta.
Sleep(0) Sleep(0)
Loop 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 ocultaPanelEncuesta
ELSE If c.GetString("CAT_EP_IDTIPOPREGUNTA") = 6 Then ELSE If f.GetString("CAT_EP_IDTIPOPREGUNTA") = 6 Then
Panel10.Visible = True 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_1.Checked = False
chk_2.Checked = False chk_2.Checked = False
chk_3.Checked = False chk_3.Checked = False
Chk_1.Text = c.GetString("CAT_EP_RES1_PRED") Chk_1.Text = f.GetString("CAT_EP_RES1_PRED")
chk_2.Text = c.GetString("CAT_EP_RES2_PRED") chk_2.Text = f.GetString("CAT_EP_RES2_PRED")
chk_3.Text = c.GetString("CAT_EP_RES3_PRED") chk_3.Text = f.GetString("CAT_EP_RES3_PRED")
chk_1_valor = c.GetString("CAT_EP_RES1_PRED") chk_1_valor = f.GetString("CAT_EP_RES1_PRED")
chk_2_valor = c.GetString("CAT_EP_RES2_PRED") chk_2_valor = f.GetString("CAT_EP_RES2_PRED")
chk_3_valor = c.GetString("CAT_EP_RES3_PRED") chk_3_valor = f.GetString("CAT_EP_RES3_PRED")
Chk_1.Tag = c.GetString("CAT_EP_ID") Chk_1.Tag = f.GetString("CAT_EP_ID")
chk_2.Tag = c.GetString("CAT_EP_ID") chk_2.Tag = f.GetString("CAT_EP_ID")
chk_3.Tag = c.GetString("CAT_EP_ID") chk_3.Tag = f.GetString("CAT_EP_ID")
TOMAR_FOTO = 1 TOMAR_FOTO = 1
CURSOR_FOTO = i CURSOR_FOTO = i
Exit 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 botonPresionado = 0 ' Bandera para que espere a que se conteste la pregunta
l_titEncuesta.Text = c.GetString("CAT_CE_DESCRIPCION") l_titEncuesta.Text = f.GetString("CAT_CE_DESCRIPCION")
l_txtEncuesta.Text = c.GetString("CAT_EP_PREGUNTA") l_txtEncuesta.Text = f.GetString("CAT_EP_PREGUNTA")
Subs.centraEditText(et_encuesta, Root.Width) Subs.centraEditText(et_encuesta, Root.Width)
et_encuesta.Visible = True et_encuesta.Visible = True
b_encuesta_continuar.Enabled = False b_encuesta_continuar.Enabled = False
@@ -2628,7 +2629,7 @@ Sub Cuestionario
Do Until botonPresionado = 1 'Esperamos que respondan la pregunta Do Until botonPresionado = 1 'Esperamos que respondan la pregunta
Sleep(0) Sleep(0)
Loop 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 ocultaPanelEncuesta
Else Else
Starter.tipov = "VENTA" Starter.tipov = "VENTA"

2
B4A/KelloggsV3.b4a
View File

@@ -176,7 +176,7 @@ Version=12.5
#Region Project Attributes #Region Project Attributes
#ApplicationLabel: Kelloggs Venta #ApplicationLabel: Kelloggs Venta
#VersionCode: 3000 #VersionCode: 3000
#VersionName: 3.11.12 RMI #VersionName: 3.11.13 RMI
#SupportedOrientations: portrait #SupportedOrientations: portrait
#CanInstallToExternalStorage: False #CanInstallToExternalStorage: False
#BridgeLogger:true #BridgeLogger:true

2
B4A/KelloggsV3.b4a.meta
View File

@@ -82,6 +82,6 @@ ModuleClosedNodes6=
ModuleClosedNodes7= ModuleClosedNodes7=
ModuleClosedNodes8= ModuleClosedNodes8=
ModuleClosedNodes9= 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 SelectedBuild=0
VisibleModules=1,2,3,4,5,6,7,8,9,10 VisibleModules=1,2,3,4,5,6,7,8,9,10