From 8d2b46857fb6ca43345a01511355760d47e73d86 Mon Sep 17 00:00:00 2001 From: Jose Alberto Guerra Ugalde Date: Wed, 24 Apr 2024 15:40:32 -0600 Subject: [PATCH] =?UTF-8?q?-=20Se=20corrigio=20el=20c=C3=B3digo=20de=20la?= =?UTF-8?q?=20encuesta=20para=20preguntas=20abiertas.?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- B4A/C_Cliente.bas | 30 +++++++--- B4A/Files/cliente.bal | Bin 42761 -> 42761 bytes B4A/Guna Vistas V3.1.b4a | 100 +++++++++++++++++----------------- B4A/Guna Vistas V3.1.b4a.meta | 6 +- B4A/Tracker.bas | 6 +- 5 files changed, 78 insertions(+), 64 deletions(-) diff --git a/B4A/C_Cliente.bas b/B4A/C_Cliente.bas index 356492b..b891b90 100644 --- a/B4A/C_Cliente.bas +++ b/B4A/C_Cliente.bas @@ -507,7 +507,7 @@ Sub B4XPage_Appear If c.GetString("CAT_CL_NUM_SERIEFISICO") = "0" Then L_QR.TEXT = "SIN CODIGO" L_QR.TextColor = Colors.Red - If ALMACEN <> "32" And ALMACEN <> "33" And ALMACEN <> 6 Then gest.VISIBLE = True And Tels.Visible = True + If ALMACEN <> "32" And ALMACEN <> "33" Then gest.VISIBLE = True And Tels.Visible = True BT_QR.Visible = True Else L_QR.TEXT = c.GetString("CAT_CL_NUM_SERIEFISICO") @@ -641,7 +641,7 @@ Sub B4XPage_Appear B_IMP.Visible = False End If ' Log(distance) - If (ALMACEN = "32" Or ALMACEN = "33" Or ALMACEN = "6") And distance > 100 Then + If (ALMACEN = "32" Or ALMACEN = "33") And distance > 100 Then gest.Visible = False ' ToastMessageShow("aaa", False) End If @@ -706,9 +706,9 @@ Sub GPS_LocationChanged (Location1 As Location) Dim habi = c.GetString("HABILITADO") End If c.Close - If ALMACEN <> "32" And ALMACEN <> "33" And ALMACEN <> 6 Then gest.Visible = True - If ALMACEN <> "32" And ALMACEN <> "33" And ALMACEN <> 6 Then Tels.Visible = True - If ALMACEN = "32" Or ALMACEN = "33" Or ALMACEN = "6" Then + If ALMACEN <> "32" And ALMACEN <> "33" Then gest.Visible = True + If ALMACEN <> "32" And ALMACEN <> "33" Then Tels.Visible = True + If ALMACEN = "32" Or ALMACEN = "33" Then If distance < 100 Then LA_GEO.TextColor = Colors.Blue Tels.Visible = True @@ -3626,6 +3626,10 @@ End Sub 'Esta subrutina muestra las encuestas. Sub Cuestionario Log("Entramos a Cuestionario") + b_encuesta_continuar.Visible = False + et_encuesta.Visible = False + + Private logger As Boolean = True DateTime.DateFormat = "MM/dd/yyyy" sDate=DateTime.Date(DateTime.Now) @@ -3698,9 +3702,11 @@ Sub Cuestionario 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 + Log("Esperamos respuesta") Do Until botonPresionado = 1 'Esperamos que respondan la pregunta Sleep(0) Loop + Log("encuestaRes: " & encuestaRes) B4XPages.MainPage.skmt.ExecNonQuery2("insert into HIST_ENCUESTA(HE_CLIE, HE_RES, HE_FECHA, HE_TIPO, HE_LAT, HE_LON) VALUES (?,?,?,?,?,?)", Array As Object(la_cuenta.Text, encuestaRes, fecha, enc.GetString("CAT_EP_ID"), B4XPages.MainPage.lat_gps, B4XPages.MainPage.lon_gps)) ocultaPanelEncuesta ELSE IF enc.GetString("CAT_EP_IDTIPOPREGUNTA") = 4 Then @@ -3708,10 +3714,12 @@ Sub Cuestionario 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") + Log(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 + Log("Esperamos respuesta") Do Until botonPresionado = 1 'Esperamos que respondan la pregunta Sleep(0) Loop @@ -3736,13 +3744,16 @@ Sub Cuestionario 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") + Log(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 + Log("Esperamos respuesta") Do Until botonPresionado = 1 'Esperamos que respondan la pregunta. Sleep(0) Loop + Log("encuestaRes: " & encuestaRes) Log($"Guardamos tipo 2 : ${encuestaRes}"$) B4XPages.MainPage.skmt.ExecNonQuery2("insert into HIST_ENCUESTA(HE_CLIE, HE_RES, HE_FECHA, HE_TIPO, HE_LAT, HE_LON) VALUES (?,?,?,?,?,?)", Array As Object(la_cuenta.Text, encuestaRes, fecha, enc.GetString("CAT_EP_ID"), B4XPages.MainPage.lat_gps, B4XPages.MainPage.lon_gps)) ocultaPanelEncuesta @@ -3770,15 +3781,18 @@ Sub Cuestionario 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") + Log(enc.GetString("CAT_EP_PREGUNTA") &"|"&enc.GetString("CAT_EP_ORDEN_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) + muestraBoton(b_encuesta_continuar,"Continuar", enc.GetString("CAT_EP_ID"), centroPantalla-250, bTop, 500, 160) muestraEncuesta + Log("Esperamos respuesta") Do Until botonPresionado = 1 'Esperamos que respondan la pregunta Sleep(0) Loop + Log($"Respuesta: ${encuestaRes}"$) B4XPages.MainPage.skmt.ExecNonQuery2("insert into HIST_ENCUESTA(HE_CLIE, HE_RES, HE_FECHA, HE_TIPO, HE_LAT, HE_LON) VALUES (?,?,?,?,?,?)", Array As Object(la_cuenta.Text, encuestaRes, fecha, enc.GetString("CAT_EP_ID"), B4XPages.MainPage.lat_gps, B4XPages.MainPage.lon_gps)) ocultaPanelEncuesta Else @@ -3860,8 +3874,10 @@ Private Sub b_encuesta_3_Click End Sub Private Sub b_encuesta_continuar_Click - Log("BOTON CONTINUAR CLICK") + Dim btn As Button = Sender + Log("BOTON CONTINUAR CLICK - " & btn.Text & " - " & btn.Tag) encuestaRes = et_encuesta.Text + indicePregunta = btn.Tag et_encuesta.Text = "" et_encuesta.Visible = False b_encuesta_continuar.Visible = False diff --git a/B4A/Files/cliente.bal b/B4A/Files/cliente.bal index e11f9a43537d46df5057bd2db3263cc765d3e59c..7f04d73eacde0a36a1faa52b511c407886a92a1a 100644 GIT binary patch delta 18 acmeA?$JBX_X@gwoCH3%gD diff --git a/B4A/Guna Vistas V3.1.b4a b/B4A/Guna Vistas V3.1.b4a index 4bdd5dd..31d51cc 100644 --- a/B4A/Guna Vistas V3.1.b4a +++ b/B4A/Guna Vistas V3.1.b4a @@ -6,58 +6,57 @@ File12=ENCUESTA_PED.bal File13=engrane.jpg File14=engrane.png File15=engrane18.png -File16=engraneactual.png -File17=ESNCUESTA_M2.bal -File18=fondo_kmt.jpg -File19=gps20.png +File16=ESNCUESTA_M2.bal +File17=fondo_kmt.jpg +File18=gps20.png +File19=guna.png File2=bus-ar.png -File20=guna.png -File21=guna18.png -File22=guna-fondo.png -File23=Hacer pedido.jpg -File24=hacerpedido30.png -File25=ic_cloud_download_white_24dp.png -File26=itembuttonblue.png -File27=login.bal -File28=Logo Guna_192x192.png -File29=logo-guna-18.png +File20=guna18.png +File21=guna-fondo.png +File22=Hacer pedido.jpg +File23=hacerpedido30.png +File24=ic_cloud_download_white_24dp.png +File25=itembuttonblue.png +File26=login.bal +File27=Logo Guna_192x192.png +File28=logo-guna-18.png +File29=MainPage.bal File3=carrito.png -File30=MainPage.bal -File31=Malo.jpg -File32=mapa_rutas.bal -File33=mas-azul.png -File34=mas-azul-red.png -File35=mas-azul-red1.png -File36=menos.png -File37=menosred.png -File38=menos-red.png -File39=nota.bal +File30=Malo.jpg +File31=mapa_rutas.bal +File32=mas-azul.png +File33=mas-azul-red.png +File34=mas-azul-red1.png +File35=menos.png +File36=menosred.png +File37=menos-red.png +File38=nota.bal +File39=noventa.bal File4=celltitle.bal -File40=noventa.bal -File41=nuevocliente.bal -File42=nuevo-cliente20.png -File43=Nvo Cliente.jpg -File44=palomita_verde.png -File45=pedido.bal -File46=planfia_logo.png -File47=principal.bal -File48=proditem.bal -File49=productos.bal +File40=nuevocliente.bal +File41=nuevo-cliente20.png +File42=Nvo Cliente.jpg +File43=palomita_verde.png +File44=pedido.bal +File45=planfia_logo.png +File46=principal.bal +File47=proditem.bal +File48=productos.bal +File49=promociones.bal File5=cliente.bal -File50=promociones.bal -File51=qr_gallina.jpg -File52=resdia.bal -File53=ResDia.jpg -File54=resdia20.png -File55=salma.jpg -File56=salma.png -File57=senial.jpg -File58=sync.png -File59=Ticket dia.jpg +File50=qr_gallina.jpg +File51=resdia.bal +File52=ResDia.jpg +File53=resdia20.png +File54=salma.jpg +File55=salma.png +File56=senial.jpg +File57=sync.png +File58=Ticket dia.jpg +File59=ticketdia20.png File6=clientes.bal -File60=ticketdia20.png -File61=ticketsdia.bal -File62=Tiendita.jpg +File60=ticketsdia.bal +File61=Tiendita.jpg File7=durakelo.png File8=ENCUESSTA_M3.bal File9=ENCUESTA.bal @@ -119,7 +118,6 @@ FileGroup59=Default Group FileGroup6=Default Group FileGroup60=Default Group FileGroup61=Default Group -FileGroup62=Default Group FileGroup7=Default Group FileGroup8=Default Group FileGroup9=Default Group @@ -181,15 +179,15 @@ Module6=C_Historico Module7=C_Mapas Module8=C_Nota Module9=C_NoVenta -NumberOfFiles=62 +NumberOfFiles=61 NumberOfLibraries=33 NumberOfModules=23 -Version=12.5 +Version=12.8 @EndOfDesignText@ #Region Project Attributes #ApplicationLabel: Guna V3.1 #VersionCode: 1 - #VersionName: 4.04.16_1 ENC Geo + #VersionName: 4.04.24.ENC.Geo '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 c6255bf..d9f3d7e 100644 --- a/B4A/Guna Vistas V3.1.b4a.meta +++ b/B4A/Guna Vistas V3.1.b4a.meta @@ -50,7 +50,7 @@ ModuleClosedNodes0= ModuleClosedNodes1=5,7,8,9,10,11,12,13,14 ModuleClosedNodes10= ModuleClosedNodes11=6 -ModuleClosedNodes12=2,3,8,10,14 +ModuleClosedNodes12= ModuleClosedNodes13=6,10,11,13,14,16,17,20,21,22,23 ModuleClosedNodes14= ModuleClosedNodes15= @@ -70,6 +70,6 @@ ModuleClosedNodes6= ModuleClosedNodes7= ModuleClosedNodes8= ModuleClosedNodes9= -NavigationStack=C_Principal,Class_Globals,0,0,C_Principal,connecta_Click,1707,0,C_Principal,JobDone,992,6,C_Productos,Class_Globals,0,0,Subs,notiHigh,78,0,Subs,agregaColumna,1128,0,Subs,guardaAppInfo,1133,0,B4XMainPage,Initialize,99,0,B4XMainPage,B4XPage_Created,230,0,C_Cliente,B4XPage_Appear,451,1,C_Cliente,GPS_LocationChanged,802,0 +NavigationStack=C_Cliente,CB4_P8_M3_CheckedChange,3805,0,C_Cliente,Cuestionario,3805,6,C_Cliente,centroPantalla,3838,0,C_Cliente,b_encuesta_1_Click,3839,0,C_Cliente,b_encuesta_continuar_Click,3879,0,C_Cliente,B4XPage_Appear,637,0,C_Cliente,GPS_LocationChanged,701,0,Tracker,CreateLocationRequestSmallD,128,0,Tracker,StartFLPSmall,109,0,Tracker,CreateLocationRequest,115,0,Main,Globals,22,0 SelectedBuild=0 -VisibleModules=21,2,22,12,13,4,8,11,5,10 +VisibleModules=21,2,22,12,13,4,8,11,5,10,23 diff --git a/B4A/Tracker.bas b/B4A/Tracker.bas index d66b4fc..46849a2 100644 --- a/B4A/Tracker.bas +++ b/B4A/Tracker.bas @@ -130,10 +130,10 @@ Private Sub CreateLocationRequestSmallD As LocationRequest ' Log("Iniciamos CreateLocationRequestSmallD") Dim lr As LocationRequest lr.Initialize - lr.SetInterval(2000) 'Intervalo deseado para actualizaciones de ubicacion + lr.SetInterval(1000) 'Intervalo deseado para actualizaciones de ubicacion lr.SetFastestInterval(lr.GetInterval / 2) 'Intervalo minimo para actualizaciones de ubicacion - lr.setNumUpdates(2) 'Solicitamos solo 2 actualizaciones con estos parametros - lr.SetSmallestDisplacement(1) 'Solo registra cambio de ubicacion si es mayor a XX mts + lr.setNumUpdates(3) 'Solicitamos solo 2 actualizaciones con estos parametros + lr.SetSmallestDisplacement(0) 'Solo registra cambio de ubicacion si es mayor a XX mts lr.SetPriority(lr.Priority.PRIORITY_HIGH_ACCURACY) actualLR=lr Return lr