cheveguerra/Guna_Preventa
1
0
Fork 0
mirror of https://github.com/KeymonSoft/Guna_Preventa.git synced 2026-04-17 21:06:32 +00:00
Code Issues Packages Projects Releases Wiki Activity

- Se migró el modulo de encuestas que usa Kelloggs

Browse Source
This commit is contained in:
Jose Alberto Guerra Ugalde
2024-04-13 01:24:19 -06:00
parent 264c3dea0a
commit a073c2e8a4
7 changed files with 647 additions and 306 deletions
Download Patch File Download Diff File Expand all files Collapse all files

23
B4A/B4XMainPage.bas
View File

@@ -165,11 +165,11 @@ Private Sub B4XPage_Created (Root1 As B4XView)
skmt.ExecNonQuery("CREATE TABLE IF NOT EXISTS HIST_CODIGO_BARRAS(CODIGOKMTS TEXT, CODIGOB TEXT, LAT TEXT, LON TEXT)")
skmt.ExecNonQuery("CREATE TABLE IF NOT EXISTS ENCUESTA_MODULO1(CLIENTE TEXT,ALMACEN TEXT, P1 TEXT, P2 TEXT, P3 TEXT, P4 TEXT, P5 TEXT, P6 TEXT, P7 TEXT, P8 TEXT, P9 TEXT)")
skmt.ExecNonQuery("CREATE TABLE IF NOT EXISTS ENCUESTA_MODULO2 (CLIENTE TEXT, ALMACEN TEXT,P1 TEXT, P2 TEXT, P3 TEXT , P4 TEXT, P5 TEXT, P6 TEXT)")
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)")
skmt.ExecNonQuery("CREATE TABLE IF NOT EXISTS ENCUESTA_MODULO3(CLIENTE TEXT,ALMACEN TEXT, P1 TEXT, P2 TEXT, P3 TEXT, P4 TEXT, P5 TEXT, P6 TEXT, P7 TEXT, P8 TEXT, P9 TEXT, P10 TEXT, P11 TEXT)")
skmt.ExecNonQuery("CREATE TABLE IF NOT EXISTS ENCUESTA_MODULO4 (CLIENTE TEXT, ALMACEN TEXT,P1 TEXT, P2 TEXT, P3 TEXT , P4 TEXT, P5 TEXT, P6 TEXT, P7 TEXT, P8 TEXT)")
skmt.ExecNonQuery("CREATE TABLE IF NOT EXISTS ENCUESTA_MODULO5 (CLIENTE TEXT, ALMACEN TEXT,P1 TEXT, P2 TEXT, P3 TEXT , P4 TEXT, P5 TEXT, P6 TEXT, P7 TEXT, P8 TEXT, P9 TEXT)")
skmt.ExecNonQuery("CREATE TABLE IF NOT EXISTS HIST_ENCUESTA2(HE_CLIENTE TEXT)")
skmt.ExecNonQuery("CREATE TABLE IF NOT EXISTS HIST_ENCUESTA_CLIENTE (HEC_CLIENTE TEXT, HEC_MODULO TEXT)")
skmt.ExecNonQuery("CREATE TABLE IF NOT EXISTS HIST_ENCUESTA_AVISO_GIRO (HEAV_CLIENTE TEXT, HEAV_MODULO TEXT, HEAV_AVISO TEXT, HEAV_GIRO TEXT)")
@@ -415,6 +415,7 @@ End Sub
Sub JobDone(Job As HttpJob)
Log(Job.Success)
If Job.Success = False Then
LogColor("Error: " & Job.tag & " : " & Job.ErrorMessage, Colors.red)
ToastMessageShow("Error: " & Job.ErrorMessage, True)
Else
LogColor("JobDone: '" & reqManager.HandleJob(Job).tag & "' - Registros: " & reqManager.HandleJob(Job).Rows.Size, Colors.Green) 'Mod por CHV - 211027
@@ -486,8 +487,26 @@ Sub JobDone(Job As HttpJob)
IMEI = ""
End If
End If
If Job.JobName = "DBRequest" Then
Dim result As DBResult = reqManager.HandleJob(Job)
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_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"))
Dim CAT_EP_RES1_PRED As String = records(result.COLUMNS.GET("CAT_EP_RES1_PRED"))
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))
Next
End If
End If
Job.Release
End If
Log($"Paso1 = ${paso1} - Name: ${name} - IMEI: ${IMEI} - IMEI_BASE: ${IMEI_BASE}"$)
If paso1 = 1 Then
If IMEI = "" Then

876
B4A/C_Cliente.bas
View File

@@ -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

42
B4A/C_Principal.bas
View File

@@ -784,6 +784,7 @@ Sub cargar_Click
B4XPages.MainPage.skmt.ExecNonQuery("DELETE FROM HIST_GEOCERCA")
B4XPages.MainPage.skmt.ExecNonQuery("DELETE FROM HIST_MARCAS_CUOTAS")
B4XPages.MainPage.skmt.ExecNonQuery("DELETE FROM HIST_ENCUESTA_CLIENTE")
B4XPages.MainPage.skmt.ExecNonQuery("DELETE FROM CAT_ENCUESTA_PREGUNTA")
c = B4XPages.MainPage.skmt.ExecQuery2("select count(CAT_VA_DESCRIPCION) as HoraIngreso from cat_variables where CAT_VA_DESCRIPCION = ? ", Array As String("HoraIngreso"))
c.Position = 0
@@ -863,6 +864,11 @@ Sub cargar_Click
cmd.Parameters = Array As Object( ALMACEN, e_ruta.text)
B4XPages.MainPage.reqManager.ExecuteQuery(cmd , 0, "HIST_MARCAS_CUOTAS")
cmd.Initialize
cmd.Name = "select_cat_encuesta_p_GUNA"
cmd.Parameters = Array As Object( ALMACEN,e_ruta.text )
B4XPages.MainPage.reqManager.ExecuteQuery(cmd , 0, "carga_encuesta")
If E_RUTA2.text <> "" Then
cmd.Initialize
cmd.Name = "select_cat_clientes_guna_GV2"
@@ -944,6 +950,7 @@ Sub JobDone(Job As HttpJob)
' End If
'Log(Job.Tag)
If Job.Success = False Then
If Job.ErrorMessage <> "STREAM" Then LogColor("Error: " & Job.tag & " : " & Job.ErrorMessage, Colors.red)
'ToastMessageShow("Error: " & Job.ErrorMessage, True)
If Job.ErrorMessage = "STREAM" Then
If CARGA = "SUBIR" Then
@@ -1102,7 +1109,6 @@ Sub JobDone(Job As HttpJob)
Dim HIST_RA_SEMANA5_LPT As String = records(RESULT.Columns.Get("HIST_RA_SEMANA5_LPT"))
Dim HIST_RA_RUTA As String = records(RESULT.Columns.Get("HIST_RA_RUTA"))
Dim HIST_RA_IDALMACEN As String = records(RESULT.Columns.Get("HIST_RA_IDALMACEN"))
B4XPages.MainPage.skmt.ExecNonQuery2("INSERT INTO HIST_RESUM_APK(HIST_RA_OBJMES,HIST_RA_VENTA,HIST_RA_TENDENCIA,HIST_RA_ALCANCE,HISR_RA_DRAOBJ,HIST_RA_DRAVTA,HIST_RA_DSOBJ,HIST_RA_DSVTA,HIST_RA_VPOOBJ,HIST_RA_VPOVTA,HIST_RA_CTES,HIST_RA_COBCCC,HIST_RA_ECO,HIST_RA_VISITPLAN,HIST_RA_VISIREAL,HIST_RA_COBVISIT,HIST_RA_FRECCOMPOBJ,HIST_RA_FRECCOMREAL,HIST_RA_VENTAMES1,HIST_RA_VENTAMES2,HIST_RA_VENTAMES3,HIST_RA_VENTAMES4,HIST_RA_RECHAZO,HIST_RA_RECHAZOPORCEN,HIST_RA_SEMANA1,HIST_RA_SEMANA1_DIAS,HIST_RA_SEMANA1_DRA,HIST_RA_SEMANA2,HIST_RA_SEMANA2_DIAS,HIST_RA_SEMANA2_DRA,HIST_RA_SEMANA3,HIST_RA_SEMANA3_DIAS,HIST_RA_SEMANA3_DRA,HIST_RA_SEMANA4,HIST_RA_SEMANA4_DIAS,HIST_RA_SEMANA4_DRA,HIST_RA_SEMANA5,HIST_RA_SEMANA5_DIAS,HIST_RA_SEMANA5_DRA,HIST_RA_SEMANA1_LPT,HIST_RA_SEMANA2_LPT,HIST_RA_SEMANA3_LPT,HIST_RA_SEMANA4_LPT,HIST_RA_SEMANA5_LPT,HIST_RA_RUTA,HIST_RA_IDALMACEN) VALUES (?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?)", Array As Object (HIST_RA_OBJMES,HIST_RA_VENTA,HIST_RA_TENDENCIA,HIST_RA_ALCANCE,HISR_RA_DRAOBJ,HIST_RA_DRAVTA,HIST_RA_DSOBJ,HIST_RA_DSVTA,HIST_RA_VPOOBJ,HIST_RA_VPOVTA,HIST_RA_CTES,HIST_RA_COBCCC,HIST_RA_ECO,HIST_RA_VISITPLAN,HIST_RA_VISIREAL,HIST_RA_COBVISIT,HIST_RA_FRECCOMPOBJ,HIST_RA_FRECCOMREAL,HIST_RA_VENTAMES1,HIST_RA_VENTAMES2,HIST_RA_VENTAMES3,HIST_RA_VENTAMES4,HIST_RA_RECHAZO,HIST_RA_RECHAZOPORCEN,HIST_RA_SEMANA1,HIST_RA_SEMANA1_DIAS,HIST_RA_SEMANA1_DRA,HIST_RA_SEMANA2,HIST_RA_SEMANA2_DIAS,HIST_RA_SEMANA2_DRA,HIST_RA_SEMANA3,HIST_RA_SEMANA3_DIAS,HIST_RA_SEMANA3_DRA,HIST_RA_SEMANA4,HIST_RA_SEMANA4_DIAS,HIST_RA_SEMANA4_DRA,HIST_RA_SEMANA5,HIST_RA_SEMANA5_DIAS,HIST_RA_SEMANA5_DRA,HIST_RA_SEMANA1_LPT,HIST_RA_SEMANA2_LPT,HIST_RA_SEMANA3_LPT,HIST_RA_SEMANA4_LPT,HIST_RA_SEMANA5_LPT,HIST_RA_RUTA,HIST_RA_IDALMACEN))
' Msgbox("pasa","alo")
Next
@@ -1223,7 +1229,6 @@ Sub JobDone(Job As HttpJob)
Dim HC_META6 As String = records(RESULT.Columns.Get("HC_META6"))
B4XPages.MainPage.skmt.ExecNonQuery2("INSERT INTO HIST_CUOTAS(HC_RUTA, HC_CUOTA1,HC_CUOTA2,HC_CUOTA3,HC_CUOTA4,HC_CUOTA5,HC_CUOTA6,HC_META1,HC_META2,HC_META3,HC_META4,HC_META5,HC_META6) VALUES (?,?,?,?,?,?,?,?,?,?,?,?,?)", Array As Object (HC_RUTA, HC_CUOTA1,HC_CUOTA2,HC_CUOTA3,HC_CUOTA4,HC_CUOTA5,HC_CUOTA6,HC_META1,HC_META2,HC_META3,HC_META4,HC_META5,HC_META6))
Next
End If
End If
'COMISIONES
@@ -1241,7 +1246,6 @@ Sub JobDone(Job As HttpJob)
End If
End If
If Job.JobName = "DBRequest" Then
Dim RESULT As DBResult = B4XPages.MainPage.reqManager.HandleJob(Job)
If RESULT.Tag = "ENCUESTA_CLIENTE" Then 'query tag
@@ -1253,7 +1257,6 @@ Sub JobDone(Job As HttpJob)
End If
End If
If Job.JobName = "DBRequest" Then
Dim RESULT As DBResult = B4XPages.MainPage.reqManager.HandleJob(Job)
If RESULT.Tag = "gunaprod" Then 'query tag
@@ -1345,7 +1348,6 @@ Sub JobDone(Job As HttpJob)
Dim RESULT As DBResult = B4XPages.MainPage.reqManager.HandleJob(Job)
If RESULT.Tag = "gunaprodps" Then 'query tag
For Each records() As Object In RESULT.Rows
Dim CAT_GP_ID As String = records(RESULT.Columns.Get("CAT_GP_ID"))
Dim CAT_GP_NOMBRE As String = records(RESULT.Columns.Get("CAT_GP_NOMBRE"))
Dim CAT_GP_IMP1 As String = records(RESULT.Columns.Get("CAT_GP_IMP1"))
@@ -1358,7 +1360,6 @@ Sub JobDone(Job As HttpJob)
Dim CAT_GP_IMG() As Byte = records(RESULT.Columns.Get("CAT_GP_IMG"))
Dim CAT_GP_ALMACEN As Int = records(RESULT.Columns.Get("CAT_GP_ALMACEN"))
Dim CAT_GP_TIPOPROD As Int = records(RESULT.Columns.Get("CAT_GP_TIPOPROD"))
'
B4XPages.MainPage.skmt.ExecNonQuery2("INSERT INTO CAT_GUNAPROD(CAT_GP_ID,CAT_GP_NOMBRE,CAT_GP_IMP1,CAT_GP_IMP2,CAT_GP_PRECIO,CAT_GP_CLASIF,CAT_GP_STS,CAT_GP_TIPO,CAT_GP_SUBTIPO,CAT_GP_IMG,CAT_GP_ALMACEN,CAT_GP_TIPOPROD) VALUES (?,?,?,?,?,?,?,?,?,?,?,?)", Array As Object (CAT_GP_ID,CAT_GP_NOMBRE,CAT_GP_IMP1,CAT_GP_IMP2,CAT_GP_PRECIO,CAT_GP_CLASIF,CAT_GP_STS,CAT_GP_TIPO,CAT_GP_SUBTIPO,CAT_GP_IMG, CAT_GP_ALMACEN,CAT_GP_TIPOPROD))
Next
If PB2.Progress = 0 Then
@@ -1373,7 +1374,6 @@ Sub JobDone(Job As HttpJob)
'Log("3")
End If
' If Starter.marcaCel <> "Sony" Then ToastMessageShow("Promociones especiales Actualizados." , True)
Listo4=1
If Listo1 =1 And Listo2 =1 And Listo3 = 1 And Listo4 = 1 Then
B4XPage_Appear
@@ -1423,7 +1423,6 @@ Sub JobDone(Job As HttpJob)
img2.Visible=False
EJECUTANDO=0
End If
End If
End If
@@ -1433,14 +1432,12 @@ Sub JobDone(Job As HttpJob)
Dim cont As Int = 0
For Each records() As Object In RESULT.Rows
cont = cont +1
Dim HVD_CLIENTE As String = records(RESULT.Columns.Get("HVD_CLIENTE"))
Dim HVD_PRONOMBRE As String = records(RESULT.Columns.Get("HVD_PRONOMBRE"))
Dim HVD_CANT As String = records(RESULT.Columns.Get("HVD_CANT"))
Dim HVD_COSTO_TOT As String = records(RESULT.Columns.Get("HVD_COSTO_TOT"))
Log(cont &" " &HVD_CLIENTE&"--"&HVD_PRONOMBRE&"--"&HVD_CANT&"--"&HVD_COSTO_TOT)
' Log(cont &" " &HVD_CLIENTE&"--"&HVD_PRONOMBRE&"--"&HVD_CANT&"--"&HVD_COSTO_TOT)
B4XPages.MainPage.skmt.ExecNonQuery2("INSERT INTO HIST_VENTAS(HVD_CLIENTE,HVD_PRONOMBRE,HVD_CANT,HVD_COSTO_TOT) VALUES (?,?,?,?)", Array As Object (HVD_CLIENTE,HVD_PRONOMBRE,HVD_CANT,HVD_COSTO_TOT))
Next
Listo3 =1
If PB1.Progress = 0 Then
@@ -1482,14 +1479,29 @@ Sub JobDone(Job As HttpJob)
Next
End If
End If
If Job.JobName = "DBRequest" Then
Dim RESULT As DBResult = B4XPages.MainPage.reqManager.HandleJob(Job)
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_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"))
Dim CAT_EP_RES1_PRED As String = records(RESULT.COLUMNS.GET("CAT_EP_RES1_PRED"))
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"))
B4XPages.MainPage.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))
Next
End If
End If
If Job.JobName = "DBRequest" Then
Dim RESULT As DBResult = B4XPages.MainPage.reqManager.HandleJob(Job)
If RESULT.Tag = "valida_pedido" Then 'query tag
For Each records() As Object In RESULT.Rows
Dim CUANTOSP As Int = records(RESULT.Columns.Get("CUANTOSP"))
If cuantos_pedido < = CUANTOSP Then
' ToastMessageShow("rojo val ok 1 cuantosp." , True)
datos_iguales = "ok"
@@ -1498,8 +1510,6 @@ Sub JobDone(Job As HttpJob)
If Starter.marcaCel <> "Sony" Then ToastMessageShow("No se cargo bien la info P. Sync Nuevamente" & CUANTOSP & " " & cuantos_pedido, True)
S_CP.Text = "ENVIAR DATOS (K-2)"
End If
Next
End If
End If
@@ -1508,9 +1518,7 @@ Sub JobDone(Job As HttpJob)
Dim RESULT As DBResult = B4XPages.MainPage.reqManager.HandleJob(Job)
If RESULT.Tag = "valida_pedidoc" Then 'query tag
For Each records() As Object In RESULT.Rows
Dim CUANTOSC As Int = records(RESULT.Columns.Get("CUANTOSC"))
If cuantos_pedidosc = CUANTOSC Then
' ToastMessageShow("rojo val ok 1 cuantosp." , True)
datos_iguales = "ok"

BIN
B4A/Files/cliente.bal
View File

Binary file not shown.

4
B4A/Guna Vistas V3.1.b4a
View File

@@ -182,12 +182,12 @@ Module9=C_NoVenta
NumberOfFiles=61
NumberOfLibraries=33
NumberOfModules=23
Version=12.5
Version=12.8
@EndOfDesignText@
#Region Project Attributes
#ApplicationLabel: Guna V3.1
#VersionCode: 1
#VersionName: 4.03.10ENC
#VersionName: 4.04.13 ENC
'SupportedOrientations possible values: unspecified, landscape or portrait.
#SupportedOrientations: portrait
#CanInstallToExternalStorage: False

4
B4A/Guna Vistas V3.1.b4a.meta
View File

@@ -70,6 +70,6 @@ ModuleClosedNodes6=
ModuleClosedNodes7=
ModuleClosedNodes8=
ModuleClosedNodes9=
NavigationStack=C_Cliente,B_IMP_Click,1596,6,B4XMainPage,B4XSwitch1_ValueChanged,706,6,C_Principal,Class_Globals,0,0,C_Cliente,B4XPage_Appear,599,4,Diseñador Visual,cliente.bal,-100,1,B4XMainPage,B4XPage_Appear,284,6,Diseñador Visual,MainPage.bal,-100,1,Diseñador Visual,login.bal,-100,6,C_Cliente,B_GUARDA_C_Click,1849,0,C_Principal,Subir_Click,618,0
NavigationStack=C_Cliente,muestraBotonCentrado,3734,1,C_Cliente,B4XPage_Created,449,0,C_Cliente,B4XPage_Appear,454,0,C_Cliente,Class_Globals,9,0,C_Cliente,muestraBoton,3730,0,Visual Designer,cliente.bal,-100,3,C_Cliente,B4XPage_CloseRequest,1399,6,C_Cliente,b_encuesta_1_Click,3675,0,C_Cliente,Cuestionario,3556,6,C_Cliente,gest_Click,686,6
SelectedBuild=0
VisibleModules=21,2,22,12,13,4,8,11,5,10
VisibleModules=21,2,22,12,13,4,8,11,5,10,17

4
B4A/Subs.bas
View File

@@ -561,6 +561,10 @@ Sub centraProgressBar(elemento As ProgressBar, anchoElementoSuperior As Int) 'ig
elemento.Left = Round(anchoElementoSuperior/2)-(elemento.Width/2)
End Sub
Sub centraEditText(elemento As EditText, anchoElementoSuperior As Int) 'ignore
elemento.Left = Round(anchoElementoSuperior/2)-(elemento.Width/2)
End Sub
'Regresa el usuario de la tabla USUARIOA si es que existe, si no existe, regresa "SinUsuario".
Sub buscaDBUsuario As String 'ignore
Private c As Cursor