mirror of
https://github.com/KeymonSoft/Guna_Preventa.git
synced 2026-04-17 21:06:32 +00:00
- Se migró el modulo de encuestas que usa Kelloggs
This commit is contained in:
@@ -374,6 +374,33 @@ Sub Class_Globals
|
||||
Private p_m4 As Panel
|
||||
Dim impresoraConectada As Boolean = False
|
||||
Dim errorImpresora As Int = 0
|
||||
|
||||
'Encuestas
|
||||
Private botonPresionado As Int
|
||||
Private encuestaRes As String
|
||||
Dim indicePregunta As Int
|
||||
Dim TOMAR_FOTO As String
|
||||
Dim CURSOR_FOTO As Int
|
||||
Dim id_encuesta As String
|
||||
Private chk_1_valor As String
|
||||
Private chk_2_valor As String
|
||||
Private chk_3_valor As String
|
||||
Private Panel10 As Panel
|
||||
Private b_chk_e As Button
|
||||
Private chk_3 As CheckBox
|
||||
Private chk_2 As CheckBox
|
||||
Private Chk_1 As CheckBox
|
||||
Private l_chk_e As Label
|
||||
Private Label28 As Label
|
||||
Private p_encuesta As Panel
|
||||
Private b_encuesta_continuar As Button
|
||||
Private b_encuesta_3 As Button
|
||||
Private b_encuesta_2 As Button
|
||||
Private b_encuesta_1 As Button
|
||||
Private et_encuesta As EditText
|
||||
Private l_txtEncuesta As Label
|
||||
Private l_titEncuesta As Label
|
||||
Private ImageView11 As ImageView
|
||||
End Sub
|
||||
|
||||
'You can add more parameters here.
|
||||
@@ -416,6 +443,7 @@ Private Sub B4XPage_Created (Root1 As B4XView)
|
||||
End If
|
||||
c.Close
|
||||
s.Close
|
||||
TOMAR_FOTO = 0
|
||||
btAdmin.Initialize("BlueTeeth")
|
||||
cmp20.Initialize("Printer")
|
||||
SV_ENCUESTA.Height = Root.Height
|
||||
@@ -428,6 +456,10 @@ End Sub
|
||||
|
||||
Sub B4XPage_Appear
|
||||
que_modulo = 1
|
||||
|
||||
indicePregunta = 0
|
||||
If TOMAR_FOTO <> 0 Then Cuestionario
|
||||
|
||||
B4XPages.MainPage.tipo_venta = tipo_venta
|
||||
encuentasmapa.Initialize
|
||||
Starter.rp.CheckAndRequest(Starter.rp.PERMISSION_CAMERA)
|
||||
@@ -443,6 +475,8 @@ Sub B4XPage_Appear
|
||||
StartActivity(Starter.gps.LocationSettingsIntent)
|
||||
End If
|
||||
skmt.Initialize(ruta,"kmt.db", True)
|
||||
|
||||
|
||||
c=B4XPages.MainPage.skmt.ExecQuery("select CAT_CL_CODIGO,CAT_CL_RUTA,CAT_CL_NOMBRE,CAT_CL_ATIENDE1,CAT_CL_ATIENTE2,CAT_CL_TELEFONO,CAT_CL_EMAIL,CAT_CL_CALLE,CAT_CL_NOEXT,CAT_CL_NOINT,CAT_CL_CALLE1,CAT_CL_CALLE2,CAT_CL_COLONIA,CAT_CL_MUNI,CAT_CL_EDO,CAT_CL_CP,CAT_CL_LONG,CAT_CL_LAT,CAT_CL_MTOCOMPRA,CAT_CL_NUM_SERIEFISICO from kmt_info where CAT_CL_CODIGO In (Select cuenta from cuentaa)")
|
||||
s=B4XPages.MainPage.skmt.ExecQuery("select sum(pe_costo_tot) as TOTAL_CLIE, SUM(PE_CANT) AS CANT_CLIE FROM PEDIDO WHERE PE_CLIENTE IN (Select CUENTA from cuentaa)")
|
||||
s.Position=0
|
||||
@@ -582,12 +616,12 @@ Sub B4XPage_Appear
|
||||
Starter.MAC_IMPRESORA = c.GetString("CAT_VA_VALOR")
|
||||
End If
|
||||
If Starter.MAC_IMPRESORA = "" Then Starter.MAC_IMPRESORA = "0"
|
||||
Log("|" & Starter.MAC_IMPRESORA & "|")
|
||||
' Log("|" & Starter.MAC_IMPRESORA & "|")
|
||||
Printer1.Initialize(Me, "Printer1")
|
||||
|
||||
If Printer1.IsConnected = False Then
|
||||
' Printer1.Connect
|
||||
Log("1")
|
||||
' Log("1")
|
||||
Else
|
||||
Printer1.DisConnect
|
||||
Printer1.Connect
|
||||
@@ -650,155 +684,144 @@ Sub ListView1_ItemLongClick (Position As Int, Value As Object)
|
||||
End Sub
|
||||
|
||||
Sub gest_Click
|
||||
|
||||
'If ALMACEN = "4" Or ALMACEN = "36" Then
|
||||
Log(Subs.traeAlmacen)
|
||||
Dim Items As List
|
||||
Items.Initialize
|
||||
Items.Add("Selecciona una opción")
|
||||
Items.Add("Tienda de Abarrotes (Abarrotes, Misceláneas, Minisupers, Particulares con Venta y Cremerías)")
|
||||
Items.Add("Recaudería (Frutas y Verduras)")
|
||||
Items.Add("Vinos y Licores")
|
||||
Items.Add("Carnicería o Pollería")
|
||||
Items.Add("Farmacia")
|
||||
Items.Add("Jarciería (Productos de Limpieza)")
|
||||
Items.Add("Papelería y Regalos")
|
||||
Items.Add("Tortillería")
|
||||
Items.Add("Escuelas")
|
||||
Items.Add("Estanquillos (Puestos Semifijos)")
|
||||
Items.Add("Fonda, Cocina Económica, Cafetería)")
|
||||
Items.Add("Tlapalería, Ferretería")
|
||||
Items.Add("Dulcería, Materias Primas")
|
||||
Items.Add("Semillas y Chiles Secos")
|
||||
Items.Add("Cybercafé")
|
||||
Items.Add("Hotel")
|
||||
Items.Add("Veterinaria")
|
||||
Items.Add("Tienda de Mascotas")
|
||||
Items.Add("Otros")
|
||||
cb_pregunta.SetItems(Items)
|
||||
|
||||
girotienda = "Selecciona una opcion"
|
||||
|
||||
c=skmt.ExecQuery("SELECT COUNT(*) AS CUANTOS FROM HIST_ENCUESTA_CLIENTE WHERE HEC_CLIENTE IN (Select CUENTA from cuentaa)")
|
||||
c.Position=0
|
||||
CUENTA_MODULO = c.GetString("CUANTOS")
|
||||
c.Close
|
||||
If CUENTA_MODULO > 0 Then
|
||||
c=skmt.ExecQuery("SELECT HEC_MODULO FROM HIST_ENCUESTA_CLIENTE WHERE HEC_CLIENTE IN (Select CUENTA from cuentaa)")
|
||||
' If ALMACEN = "4" Or ALMACEN = "36" Then
|
||||
' Log(Subs.traeAlmacen)
|
||||
If TOMAR_FOTO = 0 Then
|
||||
Cuestionario
|
||||
Else
|
||||
Dim Items As List
|
||||
Items.Initialize
|
||||
Items.Add("Selecciona una opción")
|
||||
Items.Add("Tienda de Abarrotes (Abarrotes, Misceláneas, Minisupers, Particulares con Venta y Cremerías)")
|
||||
Items.Add("Recaudería (Frutas y Verduras)")
|
||||
Items.Add("Vinos y Licores")
|
||||
Items.Add("Carnicería o Pollería")
|
||||
Items.Add("Farmacia")
|
||||
Items.Add("Jarciería (Productos de Limpieza)")
|
||||
Items.Add("Papelería y Regalos")
|
||||
Items.Add("Tortillería")
|
||||
Items.Add("Escuelas")
|
||||
Items.Add("Estanquillos (Puestos Semifijos)")
|
||||
Items.Add("Fonda, Cocina Económica, Cafetería)")
|
||||
Items.Add("Tlapalería, Ferretería")
|
||||
Items.Add("Dulcería, Materias Primas")
|
||||
Items.Add("Semillas y Chiles Secos")
|
||||
Items.Add("Cybercafé")
|
||||
Items.Add("Hotel")
|
||||
Items.Add("Veterinaria")
|
||||
Items.Add("Tienda de Mascotas")
|
||||
Items.Add("Otros")
|
||||
cb_pregunta.SetItems(Items)
|
||||
girotienda = "Selecciona una opcion"
|
||||
c=skmt.ExecQuery("SELECT COUNT(*) AS CUANTOS FROM HIST_ENCUESTA_CLIENTE WHERE HEC_CLIENTE IN (Select CUENTA from cuentaa)")
|
||||
c.Position=0
|
||||
que_modulo = c.GetString("HEC_MODULO")
|
||||
CUENTA_MODULO = c.GetString("CUANTOS")
|
||||
c.Close
|
||||
If CUENTA_MODULO > 0 Then
|
||||
c=skmt.ExecQuery("SELECT HEC_MODULO FROM HIST_ENCUESTA_CLIENTE WHERE HEC_CLIENTE IN (Select CUENTA from cuentaa)")
|
||||
c.Position=0
|
||||
que_modulo = c.GetString("HEC_MODULO")
|
||||
c.Close
|
||||
End If
|
||||
Log(Subs.traeAlmacen)
|
||||
c=skmt.ExecQuery("SELECT COUNT(*) AS CUANTOS FROM ENCUESTA_MODULO1 WHERE CLIENTE IN (Select CUENTA from cuentaa)")
|
||||
c.Position=0
|
||||
EXISTE = c.GetString("CUANTOS")
|
||||
c.Close
|
||||
End If
|
||||
Log(Subs.traeAlmacen)
|
||||
c=skmt.ExecQuery("SELECT COUNT(*) AS CUANTOS FROM ENCUESTA_MODULO1 WHERE CLIENTE IN (Select CUENTA from cuentaa)")
|
||||
c.Position=0
|
||||
EXISTE = c.GetString("CUANTOS")
|
||||
c.Close
|
||||
|
||||
c=skmt.ExecQuery("SELECT COUNT(*) AS CUANTOS FROM ENCUESTA_MODULO2 WHERE CLIENTE IN (Select CUENTA from cuentaa)")
|
||||
c.Position=0
|
||||
EXISTE2 = c.GetString("CUANTOS")
|
||||
c.Close
|
||||
c=skmt.ExecQuery("SELECT COUNT(*) AS CUANTOS FROM ENCUESTA_MODULO2 WHERE CLIENTE IN (Select CUENTA from cuentaa)")
|
||||
c.Position=0
|
||||
EXISTE2 = c.GetString("CUANTOS")
|
||||
c.Close
|
||||
|
||||
c=skmt.ExecQuery("SELECT COUNT(*) AS CUANTOS FROM ENCUESTA_MODULO3 WHERE CLIENTE IN (Select CUENTA from cuentaa)")
|
||||
c.Position=0
|
||||
EXISTE3 = c.GetString("CUANTOS")
|
||||
c.Close
|
||||
c=skmt.ExecQuery("SELECT COUNT(*) AS CUANTOS FROM ENCUESTA_MODULO3 WHERE CLIENTE IN (Select CUENTA from cuentaa)")
|
||||
c.Position=0
|
||||
EXISTE3 = c.GetString("CUANTOS")
|
||||
c.Close
|
||||
|
||||
c=skmt.ExecQuery("SELECT COUNT(*) AS CUANTOS FROM ENCUESTA_MODULO4 WHERE CLIENTE IN (Select CUENTA from cuentaa)")
|
||||
c.Position=0
|
||||
EXISTE4 = c.GetString("CUANTOS")
|
||||
c.Close
|
||||
c=skmt.ExecQuery("SELECT COUNT(*) AS CUANTOS FROM ENCUESTA_MODULO4 WHERE CLIENTE IN (Select CUENTA from cuentaa)")
|
||||
c.Position=0
|
||||
EXISTE4 = c.GetString("CUANTOS")
|
||||
c.Close
|
||||
|
||||
c=skmt.ExecQuery("SELECT COUNT(*) AS CUANTOS FROM ENCUESTA_MODULO5 WHERE CLIENTE IN (Select CUENTA from cuentaa)")
|
||||
c.Position=0
|
||||
EXISTE5 = c.GetString("CUANTOS")
|
||||
c.Close
|
||||
c=skmt.ExecQuery("SELECT COUNT(*) AS CUANTOS FROM ENCUESTA_MODULO5 WHERE CLIENTE IN (Select CUENTA from cuentaa)")
|
||||
c.Position=0
|
||||
EXISTE5 = c.GetString("CUANTOS")
|
||||
c.Close
|
||||
|
||||
'' esto para la primera encuesta m1
|
||||
' p_cliente.Visible = False
|
||||
' SV_ENCUESTA.Visible = True
|
||||
' SV_ENCUESTA.Panel.LoadLayout("ENCUESTA")
|
||||
' Panel5.Width = Root.Width * 0.94
|
||||
' SV_ENCUESTA.Panel.Height = Panel5.Height + 60
|
||||
' Panel7.Visible = False
|
||||
|
||||
'' para la m2
|
||||
' p_cliente.Visible = False
|
||||
' SV_ENCUESTA.Visible = True
|
||||
' SV_ENCUESTA.Panel.LoadLayout("ESNCUESTA_m2")
|
||||
' Panel5.Width = Root.Width * 0.94
|
||||
' SV_ENCUESTA.Panel.Height = Panel5.Height + 60
|
||||
' Panel7_M2.Visible = False
|
||||
' esto para la primera encuesta m1
|
||||
' p_cliente.Visible = False
|
||||
' SV_ENCUESTA.Visible = True
|
||||
' SV_ENCUESTA.Panel.LoadLayout("ENCUESTA")
|
||||
' Panel5.Width = Root.Width * 0.94
|
||||
' SV_ENCUESTA.Panel.Height = Panel5.Height + 60
|
||||
' Panel7.Visible = False
|
||||
'
|
||||
' ' para la m2
|
||||
' p_cliente.Visible = False
|
||||
' SV_ENCUESTA.Visible = True
|
||||
' SV_ENCUESTA.Panel.LoadLayout("ESNCUESTA_m2")
|
||||
' Panel5.Width = Root.Width * 0.94
|
||||
' SV_ENCUESTA.Panel.Height = Panel5.Height + 60
|
||||
' Panel7_M2.Visible = False
|
||||
'
|
||||
'' para la m3
|
||||
' p_cliente.Visible = False
|
||||
' SV_ENCUESTA.Visible = True
|
||||
' SV_ENCUESTA.Panel.LoadLayout("ENCUESSTA_M3")
|
||||
' Panel5.Width = Root.Width * 0.94
|
||||
' SV_ENCUESTA.Panel.Height = Panel5.Height + 60
|
||||
' ' para la m3
|
||||
' p_cliente.Visible = False
|
||||
' SV_ENCUESTA.Visible = True
|
||||
' SV_ENCUESTA.Panel.LoadLayout("ENCUESSTA_M3")
|
||||
' Panel5.Width = Root.Width * 0.94
|
||||
' SV_ENCUESTA.Panel.Height = Panel5.Height + 60
|
||||
|
||||
If EXISTE = 0 And EXISTE2 = 0 And EXISTE3 = 0 And EXISTE4 = 0 And EXISTE5 = 0 Then
|
||||
|
||||
|
||||
S=skmt.ExecQuery2("SELECT CAT_VA_VALOR FROM CAT_VARIABLES WHERE CAT_VA_DESCRIPCION = ?", Array As String ("CUESTIONARIO"))
|
||||
S.Position=0
|
||||
|
||||
If s.GetString("CAT_VA_VALOR") > "0" Then
|
||||
'' If "3" > "0" Then
|
||||
ENCUESTA = s.GetString("CAT_VA_VALOR")
|
||||
' ENCUESTA = "3"
|
||||
|
||||
|
||||
' c=skmt.ExecQuery("SELECT COUNT(*) AS CUANTOS FROM HIST_ENCUESTA_PED_DIST_1 WHERE TIENDA IN (Select CUENTA from cuentaa)")
|
||||
' c.Position=0
|
||||
' EXISTE = c.GetString("CUANTOS")
|
||||
' c.Close
|
||||
' If EXISTE = 0 Then
|
||||
' Dim result As Int= -3
|
||||
' Do While result=-3
|
||||
' result = Msgbox2("Entiendo, acepto y consiento que GUNA usará mis datos Personales y serán tratados acorde con lo establecido en la Ley Federal de Protección de Datos Personales en Posesión de los Particulares (en lo sucesivo la “Ley”), y su respectivo Reglamento; bajo lo manifestado en el Aviso de Privacidad – Texto Completo – que se encuentra en la página www.guna.com.mx", "AVISO DE PRIVACIDAD","ACEPTO","", "NO ACEPTO",LoadBitmap(File.DirAssets,"alert2.png"))
|
||||
' Select Case result
|
||||
' Case DialogResponse.POSITIVE
|
||||
If EXISTE = 0 And EXISTE2 = 0 And EXISTE3 = 0 And EXISTE4 = 0 And EXISTE5 = 0 Then
|
||||
S = skmt.ExecQuery2("SELECT CAT_VA_VALOR FROM CAT_VARIABLES WHERE CAT_VA_DESCRIPCION = ?", Array As String ("CUESTIONARIO"))
|
||||
S.Position = 0
|
||||
If s.GetString("CAT_VA_VALOR") > "0" Then
|
||||
'' If "3" > "0" Then
|
||||
ENCUESTA = s.GetString("CAT_VA_VALOR")
|
||||
ENCUESTA = "3"
|
||||
' c=skmt.ExecQuery("SELECT COUNT(*) AS CUANTOS FROM HIST_ENCUESTA_PED_DIST_1 WHERE TIENDA IN (Select CUENTA from cuentaa)")
|
||||
' c.Position=0
|
||||
' EXISTE = c.GetString("CUANTOS")
|
||||
' c.Close
|
||||
' If EXISTE = 0 Then
|
||||
' Dim result As Int= -3
|
||||
' Do While result=-3
|
||||
' result = Msgbox2("Entiendo, acepto y consiento que GUNA usará mis datos Personales y serán tratados acorde con lo establecido en la Ley Federal de Protección de Datos Personales en Posesión de los Particulares (en lo sucesivo la “Ley”), y su respectivo Reglamento; bajo lo manifestado en el Aviso de Privacidad – Texto Completo – que se encuentra en la página www.guna.com.mx", "AVISO DE PRIVACIDAD","ACEPTO","", "NO ACEPTO",LoadBitmap(File.DirAssets,"alert2.png"))
|
||||
' Select Case result
|
||||
' Case DialogResponse.POSITIVE
|
||||
' p_pregunta1.Visible = True
|
||||
' Case DialogResponse.NEGATIVE
|
||||
' ''HIST_ENCUESTA_AVISO_GIRO (HEAV_CLIENTE TEXT, HEAV_MODULO TEXT, HEAV_AVISO TEXT, HEAV_GIRO TEXT)
|
||||
' skmt.ExecNonQuery2("INSERT INTO HIST_ENCUESTA_AVISO_GIRO(HEAV_CLIENTE , HEAV_MODULO , HEAV_AVISO ) VALUES (?,?,?) ", Array As Object( clie_id, ENCUESTA, "NO ACEPTA"))
|
||||
'
|
||||
' B4XPages.ShowPage("productos")
|
||||
' End Select
|
||||
'
|
||||
'
|
||||
' Loop
|
||||
' result = Msgbox2("Entiendo, acepto y consciento que GUNA usará mis datos Personales y serán tratados acorde con lo establecido en la Ley Federal de Protección de Datos Personales en Posesión de los Particulares (en lo sucesivo la “Ley”), y su respectivo Reglamento; bajo lo manifestado en el Aviso de Privacidad – Texto Completo – que se encuentra en la página www.guna.com.mx", "AVISO DE PRIVACIDAD","ACEPTO","", "NO ACEPTO",LoadBitmap(File.DirAssets,"alert2.png"))
|
||||
' If result = DialogResponse.Positive Then
|
||||
'
|
||||
' p_pregunta1.Visible = True
|
||||
' Case DialogResponse.NEGATIVE
|
||||
'
|
||||
' Else
|
||||
' ''HIST_ENCUESTA_AVISO_GIRO (HEAV_CLIENTE TEXT, HEAV_MODULO TEXT, HEAV_AVISO TEXT, HEAV_GIRO TEXT)
|
||||
' skmt.ExecNonQuery2("INSERT INTO HIST_ENCUESTA_AVISO_GIRO(HEAV_CLIENTE , HEAV_MODULO , HEAV_AVISO ) VALUES (?,?,?) ", Array As Object( clie_id, ENCUESTA, "NO ACEPTA"))
|
||||
'
|
||||
'
|
||||
' B4XPages.ShowPage("productos")
|
||||
' End Select
|
||||
'
|
||||
'
|
||||
' Loop
|
||||
' result = Msgbox2("Entiendo, acepto y consciento que GUNA usará mis datos Personales y serán tratados acorde con lo establecido en la Ley Federal de Protección de Datos Personales en Posesión de los Particulares (en lo sucesivo la “Ley”), y su respectivo Reglamento; bajo lo manifestado en el Aviso de Privacidad – Texto Completo – que se encuentra en la página www.guna.com.mx", "AVISO DE PRIVACIDAD","ACEPTO","", "NO ACEPTO",LoadBitmap(File.DirAssets,"alert2.png"))
|
||||
' If result = DialogResponse.Positive Then
|
||||
p_pregunta1.Visible = True
|
||||
'
|
||||
'
|
||||
' Else
|
||||
' ''HIST_ENCUESTA_AVISO_GIRO (HEAV_CLIENTE TEXT, HEAV_MODULO TEXT, HEAV_AVISO TEXT, HEAV_GIRO TEXT)
|
||||
' skmt.ExecNonQuery2("INSERT INTO HIST_ENCUESTA_AVISO_GIRO(HEAV_CLIENTE , HEAV_MODULO , HEAV_AVISO ) VALUES (?,?,?) ", Array As Object( clie_id, ENCUESTA, "NO ACEPTA"))
|
||||
'
|
||||
' B4XPages.ShowPage("productos")
|
||||
' End If
|
||||
|
||||
|
||||
' End If
|
||||
Else
|
||||
B4XPages.ShowPage("productos")
|
||||
End If
|
||||
Else
|
||||
B4XPages.ShowPage("productos")
|
||||
End If
|
||||
Else
|
||||
B4XPages.ShowPage("productos")
|
||||
|
||||
s.Close
|
||||
End If
|
||||
|
||||
|
||||
|
||||
s.Close
|
||||
|
||||
|
||||
'Else
|
||||
' B4XPages.ShowPage("productos")
|
||||
'End If
|
||||
|
||||
End Sub
|
||||
|
||||
|
||||
@@ -846,158 +869,158 @@ Private Sub b_preguntag_Click
|
||||
' Guardar.Visible = False
|
||||
' HIST.Visible = False
|
||||
'
|
||||
'
|
||||
' Else
|
||||
Log(que_modulo)
|
||||
If que_modulo = Null Or que_modulo = " " Then que_modulo = "1"
|
||||
' Msgbox(que_modulo,"ALO")
|
||||
If que_modulo < = ENCUESTA Then
|
||||
If que_modulo = "1" Then
|
||||
|
||||
|
||||
If p_m2.IsInitialized And p_m2.Visible Then
|
||||
p_m2.Visible = False
|
||||
Else If p_m3.IsInitialized And p_m3.Visible Then
|
||||
p_m3.Visible = False
|
||||
Else If p_m4.IsInitialized And p_m4.Visible Then
|
||||
p_m4.Visible = False
|
||||
Else If p_modulo5.IsInitialized And p_modulo5.Visible Then
|
||||
p_modulo5.Visible = False
|
||||
Else
|
||||
End If
|
||||
' esto para la primera encuesta m1
|
||||
p_pregunta1.Visible = False
|
||||
p_cliente.Visible = False
|
||||
SV_ENCUESTA.Visible = True
|
||||
SV_ENCUESTA.Panel.LoadLayout("ENCUESTA")
|
||||
p_m1.Width = Root.Width * 0.94
|
||||
SV_ENCUESTA.Panel.Height = p_m1.Height + 60
|
||||
Panel7.Visible = False
|
||||
|
||||
else if que_modulo = "2" Then
|
||||
|
||||
|
||||
'' para la m2
|
||||
If p_m1.IsInitialized And p_m1.Visible Then
|
||||
p_m1.Visible = False
|
||||
Else
|
||||
|
||||
End If
|
||||
p_pregunta1.Visible = False
|
||||
p_cliente.Visible = False
|
||||
SV_ENCUESTA.Visible = True
|
||||
SV_ENCUESTA.Panel.LoadLayout("ESNCUESTA_m2")
|
||||
p_m2.Width = Root.Width * 0.94
|
||||
SV_ENCUESTA.Panel.Height = p_m2.Height + 60
|
||||
Panel7_M2.Visible = False
|
||||
else if que_modulo = "3" Then
|
||||
'para la m3
|
||||
If p_m2.IsInitialized And p_m2.Visible Then
|
||||
p_m2.Visible = False
|
||||
Else
|
||||
|
||||
End If
|
||||
p_pregunta1.Visible = False
|
||||
p_cliente.Visible = False
|
||||
SV_ENCUESTA.Visible = True
|
||||
SV_ENCUESTA.Panel.LoadLayout("ENCUESSTA_M3")
|
||||
|
||||
p_m3.Width = Root.Width * 0.94
|
||||
SV_ENCUESTA.Panel.Height = p_m3.Height + 60
|
||||
else if que_modulo = "4" Then
|
||||
|
||||
'' para la m4
|
||||
|
||||
If p_m3.IsInitialized And p_m3.Visible Then
|
||||
|
||||
p_m3.Visible = False
|
||||
Else
|
||||
|
||||
End If
|
||||
p_pregunta1.Visible = False
|
||||
p_cliente.Visible = False
|
||||
SV_ENCUESTA.Visible = True
|
||||
p_pregunta1.Visible = False
|
||||
SV_ENCUESTA.Panel.LoadLayout("ENCUESTA_M4")
|
||||
p_m4.Width = Root.Width * 0.94
|
||||
SV_ENCUESTA.Panel.Height = p_m4.Height + 60
|
||||
|
||||
Dim Items2 As List
|
||||
Items2.Initialize
|
||||
Items2.Add("Selecciona una opcion")
|
||||
Items2.Add("Propio")
|
||||
Items2.Add("Rentado")
|
||||
cb_p3_m4.SetItems(Items2)
|
||||
itemselect2 = "Selecciona una opcion"
|
||||
|
||||
|
||||
Dim Items3 As List
|
||||
Items3.Initialize
|
||||
Items3.Add("Selecciona una opcion")
|
||||
Items3.Add("Completamente Surtido")
|
||||
Items3.Add("Bien Surtido")
|
||||
Items3.Add("Poco Surtido")
|
||||
Items3.Add("Muy Poco Surtido")
|
||||
Items3.Add("Sin Existencias")
|
||||
cb_p4_1_m4.SetItems(Items3)
|
||||
itemselect3 = "Selecciona una opcion"
|
||||
cb_p4_2_m4.SetItems(Items3)
|
||||
itemselect4 = "Selecciona una opcion"
|
||||
cb_p4_3_m4.SetItems(Items3)
|
||||
itemselect5 = "Selecciona una opcion"
|
||||
cb_p4_4_m4.SetItems(Items3)
|
||||
itemselect6 = "Selecciona una opcion"
|
||||
cb_p4_5_m4.SetItems(Items3)
|
||||
itemselect7 = "Selecciona una opcion"
|
||||
'
|
||||
else if que_modulo = "5" Then
|
||||
'' 'MODULO 5
|
||||
If p_m4.IsInitialized And p_m4.Visible Then
|
||||
p_m4.Visible = False
|
||||
Else
|
||||
|
||||
End If
|
||||
p_cliente.Visible = False
|
||||
SV_ENCUESTA.Visible = True
|
||||
p_pregunta1.Visible = False
|
||||
SV_ENCUESTA.Panel.LoadLayout("ENCUESTA_M5")
|
||||
p_modulo5.Width = Root.Width * 0.94
|
||||
SV_ENCUESTA.Panel.Height = p_modulo5.Height + 30
|
||||
' Else
|
||||
Log(que_modulo)
|
||||
If que_modulo = Null Or que_modulo = " " Then que_modulo = "1"
|
||||
' Msgbox(que_modulo,"ALO")
|
||||
If que_modulo < = ENCUESTA Then
|
||||
If que_modulo = "1" Then
|
||||
|
||||
Dim Items8 As List
|
||||
Items8.Initialize
|
||||
Items8.Add("Selecciona una opcion")
|
||||
Items8.Add("Completamente Surtido")
|
||||
Items8.Add("Bien Surtido")
|
||||
Items8.Add("Poco Surtido")
|
||||
Items8.Add("Muy Poco Surtido")
|
||||
Items8.Add("Sin Existencias")
|
||||
cb_p1_m5.SetItems(Items8)
|
||||
itemselect8 = "Selecciona una opcion"
|
||||
cb_p2_m5.SetItems(Items8)
|
||||
itemselect9 = "Selecciona una opcion"
|
||||
cb_p3_m5.SetItems(Items8)
|
||||
itemselect10 = "Selecciona una opcion"
|
||||
cb_p4_m5.SetItems(Items8)
|
||||
itemselect11 = "Selecciona una opcion"
|
||||
cb_p5_m5.SetItems(Items8)
|
||||
itemselect12 = "Selecciona una opcion"
|
||||
cb_p6_m5.SetItems(Items8)
|
||||
itemselect13 = "Selecciona una opcion"
|
||||
cb_p7_m5.SetItems(Items8)
|
||||
itemselect14 = "Selecciona una opcion"
|
||||
cb_p8_m5.SetItems(Items8)
|
||||
itemselect15 = "Selecciona una opcion"
|
||||
cb_p9_m5.SetItems(Items8)
|
||||
itemselect16 = "Selecciona una opcion"
|
||||
End If
|
||||
Else
|
||||
p_pregunta1.Visible = False
|
||||
|
||||
If p_m2.IsInitialized And p_m2.Visible Then
|
||||
p_m2.Visible = False
|
||||
Else If p_m3.IsInitialized And p_m3.Visible Then
|
||||
p_m3.Visible = False
|
||||
Else If p_m4.IsInitialized And p_m4.Visible Then
|
||||
p_m4.Visible = False
|
||||
Else If p_modulo5.IsInitialized And p_modulo5.Visible Then
|
||||
p_modulo5.Visible = False
|
||||
Else
|
||||
End If
|
||||
' esto para la primera encuesta m1
|
||||
p_pregunta1.Visible = False
|
||||
p_cliente.Visible = False
|
||||
SV_ENCUESTA.Visible = True
|
||||
SV_ENCUESTA.Panel.LoadLayout("ENCUESTA")
|
||||
p_m1.Width = Root.Width * 0.94
|
||||
SV_ENCUESTA.Panel.Height = p_m1.Height + 60
|
||||
Panel7.Visible = False
|
||||
|
||||
else if que_modulo = "2" Then
|
||||
|
||||
|
||||
'' para la m2
|
||||
If p_m1.IsInitialized And p_m1.Visible Then
|
||||
p_m1.Visible = False
|
||||
Else
|
||||
|
||||
End If
|
||||
p_pregunta1.Visible = False
|
||||
p_cliente.Visible = False
|
||||
SV_ENCUESTA.Visible = True
|
||||
SV_ENCUESTA.Panel.LoadLayout("ESNCUESTA_m2")
|
||||
p_m2.Width = Root.Width * 0.94
|
||||
SV_ENCUESTA.Panel.Height = p_m2.Height + 60
|
||||
Panel7_M2.Visible = False
|
||||
else if que_modulo = "3" Then
|
||||
'para la m3
|
||||
If p_m2.IsInitialized And p_m2.Visible Then
|
||||
p_m2.Visible = False
|
||||
Else
|
||||
|
||||
End If
|
||||
p_pregunta1.Visible = False
|
||||
p_cliente.Visible = False
|
||||
SV_ENCUESTA.Visible = True
|
||||
SV_ENCUESTA.Panel.LoadLayout("ENCUESSTA_M3")
|
||||
|
||||
p_m3.Width = Root.Width * 0.94
|
||||
SV_ENCUESTA.Panel.Height = p_m3.Height + 60
|
||||
else if que_modulo = "4" Then
|
||||
|
||||
'' para la m4
|
||||
|
||||
If p_m3.IsInitialized And p_m3.Visible Then
|
||||
|
||||
p_m3.Visible = False
|
||||
Else
|
||||
|
||||
End If
|
||||
p_pregunta1.Visible = False
|
||||
p_cliente.Visible = False
|
||||
SV_ENCUESTA.Visible = True
|
||||
p_pregunta1.Visible = False
|
||||
SV_ENCUESTA.Panel.LoadLayout("ENCUESTA_M4")
|
||||
p_m4.Width = Root.Width * 0.94
|
||||
SV_ENCUESTA.Panel.Height = p_m4.Height + 60
|
||||
|
||||
Dim Items2 As List
|
||||
Items2.Initialize
|
||||
Items2.Add("Selecciona una opcion")
|
||||
Items2.Add("Propio")
|
||||
Items2.Add("Rentado")
|
||||
cb_p3_m4.SetItems(Items2)
|
||||
itemselect2 = "Selecciona una opcion"
|
||||
|
||||
|
||||
Dim Items3 As List
|
||||
Items3.Initialize
|
||||
Items3.Add("Selecciona una opcion")
|
||||
Items3.Add("Completamente Surtido")
|
||||
Items3.Add("Bien Surtido")
|
||||
Items3.Add("Poco Surtido")
|
||||
Items3.Add("Muy Poco Surtido")
|
||||
Items3.Add("Sin Existencias")
|
||||
cb_p4_1_m4.SetItems(Items3)
|
||||
itemselect3 = "Selecciona una opcion"
|
||||
cb_p4_2_m4.SetItems(Items3)
|
||||
itemselect4 = "Selecciona una opcion"
|
||||
cb_p4_3_m4.SetItems(Items3)
|
||||
itemselect5 = "Selecciona una opcion"
|
||||
cb_p4_4_m4.SetItems(Items3)
|
||||
itemselect6 = "Selecciona una opcion"
|
||||
cb_p4_5_m4.SetItems(Items3)
|
||||
itemselect7 = "Selecciona una opcion"
|
||||
'
|
||||
else if que_modulo = "5" Then
|
||||
'' 'MODULO 5
|
||||
If p_m4.IsInitialized And p_m4.Visible Then
|
||||
p_m4.Visible = False
|
||||
Else
|
||||
|
||||
End If
|
||||
p_cliente.Visible = False
|
||||
SV_ENCUESTA.Visible = True
|
||||
p_pregunta1.Visible = False
|
||||
SV_ENCUESTA.Panel.LoadLayout("ENCUESTA_M5")
|
||||
p_modulo5.Width = Root.Width * 0.94
|
||||
SV_ENCUESTA.Panel.Height = p_modulo5.Height + 30
|
||||
|
||||
Dim Items8 As List
|
||||
Items8.Initialize
|
||||
Items8.Add("Selecciona una opcion")
|
||||
Items8.Add("Completamente Surtido")
|
||||
Items8.Add("Bien Surtido")
|
||||
Items8.Add("Poco Surtido")
|
||||
Items8.Add("Muy Poco Surtido")
|
||||
Items8.Add("Sin Existencias")
|
||||
cb_p1_m5.SetItems(Items8)
|
||||
itemselect8 = "Selecciona una opcion"
|
||||
cb_p2_m5.SetItems(Items8)
|
||||
itemselect9 = "Selecciona una opcion"
|
||||
cb_p3_m5.SetItems(Items8)
|
||||
itemselect10 = "Selecciona una opcion"
|
||||
cb_p4_m5.SetItems(Items8)
|
||||
itemselect11 = "Selecciona una opcion"
|
||||
cb_p5_m5.SetItems(Items8)
|
||||
itemselect12 = "Selecciona una opcion"
|
||||
cb_p6_m5.SetItems(Items8)
|
||||
itemselect13 = "Selecciona una opcion"
|
||||
cb_p7_m5.SetItems(Items8)
|
||||
itemselect14 = "Selecciona una opcion"
|
||||
cb_p8_m5.SetItems(Items8)
|
||||
itemselect15 = "Selecciona una opcion"
|
||||
cb_p9_m5.SetItems(Items8)
|
||||
itemselect16 = "Selecciona una opcion"
|
||||
End If
|
||||
Else
|
||||
p_pregunta1.Visible = False
|
||||
|
||||
B4XPages.ShowPage("productos")
|
||||
B4XPages.ShowPage("productos")
|
||||
|
||||
|
||||
End If
|
||||
End If
|
||||
' End IF
|
||||
|
||||
Case DialogResponse.NEGATIVE
|
||||
@@ -1376,7 +1399,9 @@ End Sub
|
||||
Private Sub B4XPage_CloseRequest As ResumableSub
|
||||
' BACK key pressed
|
||||
' Return True To close, False To cancel
|
||||
If p_pregunta1.Visible Then
|
||||
If p_encuesta.Visible Then
|
||||
p_encuesta.Visible = False
|
||||
else If p_pregunta1.Visible Then
|
||||
p_pregunta1.Visible = False
|
||||
Else if SV_ENCUESTA.Visible Then
|
||||
SV_ENCUESTA.visible = False
|
||||
@@ -3352,10 +3377,6 @@ Private Sub CB7_P6_M3_CheckedChange(Checked As Boolean)
|
||||
Log(textemp6)
|
||||
End Sub
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
Private Sub CB1_P7_M3_CheckedChange(Checked As Boolean)
|
||||
textemp7 = ""
|
||||
If CB1_P7_M3.Checked Then
|
||||
@@ -3450,3 +3471,292 @@ Private Sub CB4_P8_M3_CheckedChange(Checked As Boolean)
|
||||
End Sub
|
||||
|
||||
|
||||
'Esta subrutina muestra las encuestas.
|
||||
Sub Cuestionario
|
||||
Log("Entramos a Cuestionario")
|
||||
Private logger As Boolean = True
|
||||
DateTime.DateFormat = "MM/dd/yyyy"
|
||||
sDate=DateTime.Date(DateTime.Now)
|
||||
sTime=DateTime.Time(DateTime.Now)
|
||||
CUANTOS = 0
|
||||
' indicePregunta = 0
|
||||
Log($"Tomar_Foto = ${TOMAR_FOTO}"$)
|
||||
If TOMAR_FOTO = 0 Then
|
||||
s = B4XPages.MainPage.skmt.ExecQuery("select COUNT(*) AS CUANTOS from HIST_ENCUESTA where HE_CLIE In (Select cuenta from cuentaa)")
|
||||
s.Position= 0
|
||||
CUANTOS = s.GetString("CUANTOS")
|
||||
Private CUANTOS2 As Int = 0
|
||||
s = B4XPages.MainPage.skmt.ExecQuery("select COUNT(*) AS CUANTOS2 from HIST_ENCUESTA2 where HE_CLIENTE In (Select cuenta from cuentaa)")
|
||||
s.Position = 0
|
||||
CUANTOS2 = s.GetString("CUANTOS2")
|
||||
If logger Then LogColor($"Hist:encuesta=${CUANTOS}, hist_encuesta2 = ${CUANTOS2}"$, Colors.Magenta)
|
||||
End If
|
||||
If CUANTOS = 0 And CUANTOS2 = 0 Then
|
||||
Private enc As Cursor = B4XPages.MainPage.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 enc.RowCount > 0 Then
|
||||
enc.position = 0
|
||||
Log($"CAT_EP_ID=${enc.GetString("CAT_EP_ID")}"$)
|
||||
Private listaPreguntas As List
|
||||
listaPreguntas.Initialize
|
||||
For j = 0 To enc.RowCount - 1 'Ponemos en una lista los ID de las preguntas.
|
||||
enc.Position = j
|
||||
listaPreguntas.Add(enc.GetString("CAT_EP_ID"))
|
||||
Next
|
||||
Log(listaPreguntas)
|
||||
enc.position = 0
|
||||
For i = 0 To enc.RowCount - 1
|
||||
' Log($"ROWCOUNT: ${enc.RowCount}"$)
|
||||
' Log($"tipo: ${enc.GetString("CAT_EP_IDTIPOPREGUNTA")}"$)
|
||||
' Log($"CAT_EP_ID=${enc.GetString("CAT_EP_ID")}, CAT_EP_PREGUNTA=${enc.GetString("CAT_EP_PREGUNTA")}"$)
|
||||
If indicePregunta <> 0 Then
|
||||
i = indicePregunta
|
||||
' Log($"i = ${i}"$)
|
||||
End If
|
||||
' Log("indicePregunta: " & indicePregunta)
|
||||
' Log($"Tomar_Foto = ${TOMAR_FOTO}"$)
|
||||
' Log($"EncuestaRes = ${encuestaRes}"$)
|
||||
Log(listaPreguntas)
|
||||
If TOMAR_FOTO = 1 Then
|
||||
If CURSOR_FOTO + 1 > enc.RowCount -1 Then
|
||||
TOMAR_FOTO = 0
|
||||
Exit
|
||||
Else
|
||||
i = CURSOR_FOTO + 1
|
||||
End If
|
||||
' Log(i)
|
||||
TOMAR_FOTO = 0
|
||||
End If
|
||||
If i > (enc.RowCount - 1) Then Exit ' Si se contestó la ultima pregunta, entonces salimos.
|
||||
enc.Position = i
|
||||
' Log($"POSICION = ${enc.Position}"$)
|
||||
If enc.GetString("CAT_EP_IDTIPOPREGUNTA") = 5 Then
|
||||
Log("Pregunta tipo 5")
|
||||
id_encuesta = enc.GetString("CAT_EP_ID")
|
||||
TOMAR_FOTO = 1
|
||||
CURSOR_FOTO = i
|
||||
Exit
|
||||
ELSE IF enc.GetString("CAT_EP_IDTIPOPREGUNTA") = 3 Then ' Tipo SI/NO
|
||||
Log("Pregunta tipo 3")
|
||||
botonPresionado = 0 ' Bandera para que espere a que se conteste la pregunta
|
||||
l_titEncuesta.Text = enc.GetString("CAT_CE_DESCRIPCION")
|
||||
l_txtEncuesta.Text = enc.GetString("CAT_EP_PREGUNTA")
|
||||
Subs.centraEtiqueta(l_txtEncuesta, Root.Width)
|
||||
muestraBoton(b_encuesta_1,"SI", enc.GetString("CAT_EP_ID"), centroPantalla-350, 580, 300, 160)
|
||||
muestraBoton(b_encuesta_2, "NO", enc.GetString("CAT_EP_ID"), centroPantalla+50, 580, 300, 160)
|
||||
muestraEncuesta
|
||||
Do Until botonPresionado = 1 'Esperamos que respondan la pregunta
|
||||
Sleep(0)
|
||||
Loop
|
||||
B4XPages.MainPage.skmt.ExecNonQuery2("insert into HIST_ENCUESTA(HE_CLIE, HE_RES, HE_FECHA, HE_TIPO) VALUES (?,?,?,?)", Array As Object(la_cuenta.Text, encuestaRes,sDate & sTime,enc.GetString("CAT_EP_ID")))
|
||||
ocultaPanelEncuesta
|
||||
ELSE IF enc.GetString("CAT_EP_IDTIPOPREGUNTA") = 4 Then
|
||||
Log("Pregunta tipo 4")
|
||||
botonPresionado = 0 ' Bandera para que espere a que se conteste la pregunta
|
||||
l_titEncuesta.Text = enc.GetString("CAT_CE_DESCRIPCION")
|
||||
l_txtEncuesta.Text = enc.GetString("CAT_EP_PREGUNTA")
|
||||
Subs.centraEtiqueta(l_txtEncuesta, Root.Width)
|
||||
muestraBoton(b_encuesta_1,"SI", enc.GetString("CAT_EP_ID"), centroPantalla-350, 580, 300, 160)
|
||||
muestraBoton(b_encuesta_2, "NO", enc.GetString("CAT_EP_ID"), centroPantalla+50, 580, 300, 160)
|
||||
muestraEncuesta
|
||||
Do Until botonPresionado = 1 'Esperamos que respondan la pregunta
|
||||
Sleep(0)
|
||||
Loop
|
||||
Log("encuestaRes: " & encuestaRes)
|
||||
If encuestaRes = "SI" Then
|
||||
B4XPages.MainPage.skmt.ExecNonQuery2("insert into HIST_ENCUESTA(HE_CLIE, HE_RES, HE_FECHA, HE_TIPO) VALUES (?,?,?,?)", Array As Object(la_cuenta.Text, "SI", sDate & sTime, enc.GetString("CAT_EP_ID")))
|
||||
indicePregunta = listaPreguntas.IndexOf(enc.GetString("CAT_EP_RES1_PRED")) 'Nos movemos a la posicion especificada por la respuesta, en las preguntas de tipo desicion, la respuesta nos indica a que pregunta movernos.
|
||||
Log($"IndicePreg = ${indicePregunta}"$)
|
||||
i = indicePregunta
|
||||
else if encuestaRes = "NO" Then
|
||||
B4XPages.MainPage.skmt.ExecNonQuery2("insert into HIST_ENCUESTA(HE_CLIE, HE_RES, HE_FECHA, HE_TIPO) VALUES (?,?,?,?)", Array As Object(la_cuenta.Text, "NO", sDate & sTime, enc.GetString("CAT_EP_ID")))
|
||||
indicePregunta = listaPreguntas.IndexOf(enc.GetString("CAT_EP_RES2_PRED")) 'Nos movemos a la posicion especificada por la respuesta, en las preguntas de tipo desicion, la respuesta nos indica a que pregunta movernos.
|
||||
Log($"IndicePreg = ${indicePregunta}"$)
|
||||
i = indicePregunta
|
||||
Log($"I = ${i}"$)
|
||||
End If
|
||||
If i = enc.RowCount - 1 Then
|
||||
i = i - 1
|
||||
End If
|
||||
ELSE If enc.GetString("CAT_EP_IDTIPOPREGUNTA") = 2 Then ' Tipo 3 opciones.
|
||||
Log("Pregunta tipo 2")
|
||||
botonPresionado = 0 ' Bandera para que espere a que se conteste la pregunta.
|
||||
l_titEncuesta.Text = enc.GetString("CAT_CE_DESCRIPCION")
|
||||
l_txtEncuesta.Text = enc.GetString("CAT_EP_PREGUNTA")
|
||||
muestraBoton(b_encuesta_1, enc.GetString("CAT_EP_RES1_PRED"), enc.GetString("CAT_EP_ID"), centroPantalla-250, 580, 500, 160)
|
||||
muestraBoton(b_encuesta_2, enc.GetString("CAT_EP_RES2_PRED"), enc.GetString("CAT_EP_ID"), centroPantalla-250, 740, 500, 160)
|
||||
muestraBoton(b_encuesta_3, enc.GetString("CAT_EP_RES3_PRED"), enc.GetString("CAT_EP_ID"), centroPantalla-250, 900, 500, 160)
|
||||
muestraEncuesta
|
||||
Do Until botonPresionado = 1 'Esperamos que respondan la pregunta.
|
||||
Sleep(0)
|
||||
Loop
|
||||
Log($"Guardamos tipo 2 : ${encuestaRes}"$)
|
||||
B4XPages.MainPage.skmt.ExecNonQuery2("insert into HIST_ENCUESTA(HE_CLIE, HE_RES, HE_FECHA, HE_TIPO) VALUES (?,?,?,?)", Array As Object(la_cuenta.Text, encuestaRes, sDate & sTime, enc.GetString("CAT_EP_ID")))
|
||||
ocultaPanelEncuesta
|
||||
ELSE If enc.GetString("CAT_EP_IDTIPOPREGUNTA") = 6 Then
|
||||
Log("Pregunta tipo 6")
|
||||
Panel10.Visible = True
|
||||
l_chk_e.Text = enc.GetString("CAT_EP_PREGUNTA")
|
||||
Chk_1.Checked = False
|
||||
chk_2.Checked = False
|
||||
chk_3.Checked = False
|
||||
Chk_1.Text = enc.GetString("CAT_EP_RES1_PRED")
|
||||
chk_2.Text = enc.GetString("CAT_EP_RES2_PRED")
|
||||
chk_3.Text = enc.GetString("CAT_EP_RES3_PRED")
|
||||
chk_1_valor = enc.GetString("CAT_EP_RES1_PRED")
|
||||
chk_2_valor = enc.GetString("CAT_EP_RES2_PRED")
|
||||
chk_3_valor = enc.GetString("CAT_EP_RES3_PRED")
|
||||
Chk_1.Tag = enc.GetString("CAT_EP_ID")
|
||||
chk_2.Tag = enc.GetString("CAT_EP_ID")
|
||||
chk_3.Tag = enc.GetString("CAT_EP_ID")
|
||||
TOMAR_FOTO = 1
|
||||
CURSOR_FOTO = i
|
||||
Exit
|
||||
ELSE If enc.GetString("CAT_EP_IDTIPOPREGUNTA") = 1 Then
|
||||
Log("Pregunta tipo 1")
|
||||
botonPresionado = 0 ' Bandera para que espere a que se conteste la pregunta
|
||||
l_titEncuesta.Text = enc.GetString("CAT_CE_DESCRIPCION")
|
||||
l_txtEncuesta.Text = enc.GetString("CAT_EP_PREGUNTA")
|
||||
Subs.centraEditText(et_encuesta, Root.Width)
|
||||
et_encuesta.Visible = True
|
||||
b_encuesta_continuar.Enabled = False
|
||||
Private bTop = et_encuesta.Top + 130
|
||||
muestraBoton(b_encuesta_continuar,"Continuar", "Continuar", centroPantalla-250, bTop, 500, 160)
|
||||
muestraEncuesta
|
||||
Do Until botonPresionado = 1 'Esperamos que respondan la pregunta
|
||||
Sleep(0)
|
||||
Loop
|
||||
B4XPages.MainPage.skmt.ExecNonQuery2("insert into HIST_ENCUESTA(HE_CLIE, HE_RES, HE_FECHA, HE_TIPO) VALUES (?,?,?,?)", Array As Object(la_cuenta.Text, encuestaRes,sDate & sTime,enc.GetString("CAT_EP_ID")))
|
||||
ocultaPanelEncuesta
|
||||
Else
|
||||
' Starter.tipov = "VENTA"
|
||||
B4XPages.ShowPage("productos")
|
||||
End If
|
||||
Next
|
||||
enc.Close
|
||||
Else
|
||||
' Starter.tipov = "VENTA"
|
||||
B4XPages.ShowPage("productos")
|
||||
End If
|
||||
Else
|
||||
' Starter.tipov = "VENTA"
|
||||
B4XPages.ShowPage("productos")
|
||||
End If
|
||||
End Sub
|
||||
|
||||
'Muestra el panel de la encuesta, le da el alto y ancho de la pantalla y la pone en 0,0
|
||||
Sub muestraEncuesta
|
||||
Log("Muestra Encuesta")
|
||||
p_encuesta.Top = 0
|
||||
p_encuesta.left = 0
|
||||
p_encuesta.Height = GetDeviceLayoutValues.Height
|
||||
p_encuesta.Width = GetDeviceLayoutValues.Width
|
||||
p_encuesta.SetVisibleAnimated(200, True)
|
||||
p_encuesta.Elevation = 90 'ignore
|
||||
p_encuesta.BringToFront
|
||||
' P_INF_GENERAL.Visible = False
|
||||
' Log("Panel general="&P_INF_GENERAL.Visible)
|
||||
End Sub
|
||||
|
||||
' Oculta el panel de la encuesta y los botones de la misma.
|
||||
Sub ocultaPanelEncuesta
|
||||
' Log("Oculta Encuesta")
|
||||
b_encuesta_1.Visible = False
|
||||
b_encuesta_2.Visible = False
|
||||
b_encuesta_3.Visible = False
|
||||
p_encuesta.Visible = False
|
||||
' P_INF_GENERAL.Visible = True
|
||||
' If logger Then Log("Panel general="&P_INF_GENERAL.Visible)
|
||||
End Sub
|
||||
|
||||
'Regresa el valor de "left" para el centro de la pantalla
|
||||
Sub centroPantalla As Int
|
||||
Private anchoPantalla As Int = GetDeviceLayoutValues.Width
|
||||
Private anchoPantalla As Int = Root.Width
|
||||
Return anchoPantalla/2
|
||||
End Sub
|
||||
|
||||
Private Sub b_encuesta_1_Click
|
||||
Log("BOTON 1 CLICK")
|
||||
Dim btn As Button = Sender
|
||||
Log("BOTON 1 CLICKED "& " clicked - " & btn.Text & " - " & btn.Tag)
|
||||
encuestaRes = btn.Text
|
||||
indicePregunta = btn.Tag
|
||||
ocultaPanelEncuesta
|
||||
botonPresionado = 1
|
||||
End Sub
|
||||
|
||||
Private Sub b_encuesta_2_Click
|
||||
Log("BOTON 2 CLICK")
|
||||
Dim btn As Button = Sender
|
||||
Log("BOTON 2 CLICKED "& " clicked - " & btn.Text & " - " & btn.Tag)
|
||||
encuestaRes = btn.Text
|
||||
indicePregunta = btn.Tag
|
||||
ocultaPanelEncuesta
|
||||
botonPresionado = 1
|
||||
End Sub
|
||||
|
||||
Private Sub b_encuesta_3_Click
|
||||
Log("BOTON 3 CLICK")
|
||||
Dim btn As Button = Sender
|
||||
Log("BOTON 3 CLICKED "& " clicked - " & btn.Text & " - " & btn.Tag)
|
||||
encuestaRes = btn.Text
|
||||
indicePregunta = btn.Tag
|
||||
ocultaPanelEncuesta
|
||||
botonPresionado = 1
|
||||
End Sub
|
||||
|
||||
Private Sub b_encuesta_continuar_Click
|
||||
Log("BOTON CONTINUAR CLICK")
|
||||
encuestaRes = et_encuesta.Text
|
||||
et_encuesta.Text = ""
|
||||
et_encuesta.Visible = False
|
||||
b_encuesta_continuar.Visible = False
|
||||
ocultaPanelEncuesta
|
||||
botonPresionado = 1
|
||||
End Sub
|
||||
|
||||
Private Sub et_encuesta_TextChanged (Old As String, New As String)
|
||||
' Log($"|${Old}|,|${New}|"$)
|
||||
If New.Length > 0 Then b_encuesta_continuar.Enabled = True
|
||||
If New.Length < 1 Then b_encuesta_continuar.Enabled = False
|
||||
End Sub
|
||||
|
||||
'Muestra un boton con las dimensiones, posicion y texto especificados.
|
||||
Sub muestraBoton (thisButton As Button, theText As String, theTag As String, Left As Int, Top As Int, width As Int, height As Int)
|
||||
thisButton.Text = theText
|
||||
thisButton.Tag = theTag
|
||||
thisButton.Left = Left
|
||||
thisButton.Top = Top
|
||||
thisButton.Width = width
|
||||
thisButton.Height = height
|
||||
thisButton.Visible = True
|
||||
End Sub
|
||||
|
||||
'Muestra un boton con las dimensiones, posicion y texto especificados.
|
||||
Sub muestraBotonCentrado (thisButton As Button, theText As String, theTag As String, Top As Int, width As Int, height As Int) 'ignore
|
||||
Private anchoPantalla As Int
|
||||
thisButton.Text = theText
|
||||
thisButton.Tag = theTag
|
||||
anchoPantalla = GetDeviceLayoutValues.Width
|
||||
thisButton.Left = (anchoPantalla/2) - (width/2)
|
||||
thisButton.Top = Top
|
||||
thisButton.Width = width
|
||||
thisButton.Height = height
|
||||
thisButton.Visible = True
|
||||
End Sub
|
||||
|
||||
Private Sub l_chk_e_Click
|
||||
|
||||
End Sub
|
||||
|
||||
Private Sub b_chk_e_Click
|
||||
|
||||
End Sub
|
||||
|
||||
Private Sub Panel10_Click
|
||||
|
||||
End Sub
|
||||
|
||||
Private Sub p_encuesta_Click
|
||||
|
||||
End Sub
|
||||
Reference in New Issue
Block a user