mirror of
https://github.com/KeymonSoft/Kelloggs_V3.git
synced 2026-04-17 21:06:22 +00:00
Arreglo de encuestas
This commit is contained in:
cvaldes1201
@@ -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"
|
||||
|
||||
@@ -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
|
||||
|
||||
@@ -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
|
||||
|
||||
Reference in New Issue
Block a user