- Se corrigio el código de la encuesta para preguntas abiertas.

2026-04-17 21:06:08 +00:00 · 2024-04-24 15:40:32 -06:00
parent 9da6091ee5
commit 8d2b46857f
5 changed files with 78 additions and 64 deletions
--- 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
--- a/B4A/Files/cliente.bal
+++ b/B4A/Files/cliente.bal
--- a/V3.1.b4a
+++ b/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
--- a/V3.1.b4a.meta
+++ b/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
--- 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