From a073c2e8a4d5f650b871be7ef30c883261826a57 Mon Sep 17 00:00:00 2001 From: Jose Alberto Guerra Ugalde Date: Sat, 13 Apr 2024 01:24:19 -0600 Subject: [PATCH] =?UTF-8?q?-=20Se=20migr=C3=B3=20el=20modulo=20de=20encues?= =?UTF-8?q?tas=20que=20usa=20Kelloggs?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- B4A/B4XMainPage.bas | 23 +- B4A/C_Cliente.bas | 876 +++++++++++++++++++++++----------- B4A/C_Principal.bas | 42 +- B4A/Files/cliente.bal | Bin 35427 -> 42761 bytes B4A/Guna Vistas V3.1.b4a | 4 +- B4A/Guna Vistas V3.1.b4a.meta | 4 +- B4A/Subs.bas | 4 + 7 files changed, 647 insertions(+), 306 deletions(-) diff --git a/B4A/B4XMainPage.bas b/B4A/B4XMainPage.bas index 4bbe465..ab94583 100644 --- a/B4A/B4XMainPage.bas +++ b/B4A/B4XMainPage.bas @@ -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 diff --git a/B4A/C_Cliente.bas b/B4A/C_Cliente.bas index 8f64893..9f4c30e 100644 --- a/B4A/C_Cliente.bas +++ b/B4A/C_Cliente.bas @@ -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 \ No newline at end of file diff --git a/B4A/C_Principal.bas b/B4A/C_Principal.bas index 9abff74..cda9756 100644 --- a/B4A/C_Principal.bas +++ b/B4A/C_Principal.bas @@ -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" diff --git a/B4A/Files/cliente.bal b/B4A/Files/cliente.bal index 452cfdbea6223b33a39652ed053c2be815ec446e..7f04d73eacde0a36a1faa52b511c407886a92a1a 100644 GIT binary patch delta 3207 zcmai$T~HHO6vy{&KukhNh(QP#2nZ%IfNa8N)s_lav3yyr-!(26z6=p)0BvRBM@QQ? z?deP(IYh9kPTLL5mWuC)_}|k#G~?X2LCm zUqb)7gN=kY5#CJrWx}rzZYBIG;Vp#Q2)C=8<~!>k6I%(tMtB?HPQu#>zfQP|a5v!| z!o7l!)_31WCUy{hgYZtmy9mFDtlgE}$a~QCqU|HRpYQ>lG5-hkfgrp^_z>Y3;ls!> zT0hzV;Uk3Oga-)^ArGUCppBwQyrlRM97WT1khpd~=R+pC*|iz#Uyd}dezk6SRqJi0 znNO&FgQMCoIjWt2cQvKY8QyC#_O3d<%Gd;JTf^EpG-w+$CE>RBN06xlElZPZ}Z&t z>pd{0xBqL03jdpAm*CdB-7r|?g6}3A>=FDhQH_7ER&~HH4OY)yQBXP)JIONbiPeeF zR}_SQPKMyfIv;xs<>!l`ch>EEjBa?3$mK23`Uu8no8Zs1)pG`iWoRrO?6# z@J8WAX(jmkeQW{#ty=}(1~xkva4D6!IqHWCEjFkOwkmS`mKfzWW#m2!+Q9ezmvErG z6UGOl>T&%Y`m+?xEirEaVPgK}>sqhN0;<)TYyYG8cRt~*KyV}i9 z78m`vg7t`yAMnDRlTKK8FM?UVQdj`<=e**IOmK69R+tNv6s=H$vu6vLU**Q5{zOX% zPqSFeVQ|sA8v1GqJ!er^Nn|U&qjSS1=4T7-EAcr-B3P{qZbnN)8-p8%!#3VU z`F9R$2iy)67uhtI_(=KDUGAt-%40HA4Y45)zeILD*?$Nye}3CjF6_&>aM@KCnfm3s zSw^}77b)9Oqyx}%#s&+ar+1ONtc%=dybnpmj-es4)8nnoHV8i_QFcQzR6*h%an>1OdC z)MBu8F!&2BEPh4#8NRunbI-XsxjE-7t-M?+nn?%|Hw#gK=T1`FFU$v~Bi@ML8xAC& zGBRy&N=*q_vkMmD(Y;vkAa?5dH*(8+#UtMpn{063Gxnl6r%A`Is)-FE8Hd|^;NL~7Uas-^C#-;U+=x#=fWF^EqWLr|{( diff --git a/B4A/Guna Vistas V3.1.b4a b/B4A/Guna Vistas V3.1.b4a index fad570e..1067664 100644 --- a/B4A/Guna Vistas V3.1.b4a +++ b/B4A/Guna Vistas V3.1.b4a @@ -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 diff --git a/B4A/Guna Vistas V3.1.b4a.meta b/B4A/Guna Vistas V3.1.b4a.meta index 40841d3..4a167ea 100644 --- a/B4A/Guna Vistas V3.1.b4a.meta +++ b/B4A/Guna Vistas V3.1.b4a.meta @@ -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 diff --git a/B4A/Subs.bas b/B4A/Subs.bas index b0e22c8..33de890 100644 --- a/B4A/Subs.bas +++ b/B4A/Subs.bas @@ -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