From d75ec225910c7f60d4b6afa70b5ccf6a8c2cb134 Mon Sep 17 00:00:00 2001
From: cvaldes1201 <cj.valdes@keymonsoft.com>
Date: Mon, 6 May 2024 15:26:28 -0600
Subject: [PATCH] ...

---
 B4A/C_Cliente.bas             | 12 ++++++------
 B4A/Guna Vistas V3.1.b4a      |  4 ++--
 B4A/Guna Vistas V3.1.b4a.meta |  2 +-
 3 files changed, 9 insertions(+), 9 deletions(-)

diff --git a/B4A/C_Cliente.bas b/B4A/C_Cliente.bas
index 57f1a77..f796db6 100644
--- a/B4A/C_Cliente.bas
+++ b/B4A/C_Cliente.bas
@@ -680,7 +680,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
 		Tels.Visible = False
 '		ToastMessageShow("aaa", False)
@@ -720,16 +720,16 @@ Sub GPS_LocationChanged (Location1 As Location)
 		c.Close
 		If gest.IsInitialized And Tels.IsInitialized Then
 			
-		If ALMACEN <> "32" And ALMACEN <> "33" And ALMACEN <> 6 Then 
+		If ALMACEN <> "32" And ALMACEN <> "33" Then 
 			gest.Visible = True
 			Tels.Visible = True
-		Else If ALMACEN = "32" And ALMACEN = "33" And ALMACEN = 6 Then
+		Else If ALMACEN = "32" And ALMACEN = "33" Then
 			gest.Visible = False
 			Tels.Visible = False
 		End If
 		End If
 		
-		If ALMACEN = "32" Or ALMACEN = "33" Or ALMACEN = "6" Then
+		If ALMACEN = "32" Or ALMACEN = "33"  Then
 			If distance < 100 Then
 				LA_GEO.TextColor = Colors.Blue
 				Tels.Visible = True
@@ -3753,8 +3753,8 @@ Sub Cuestionario
 			For i = 0 To enc.RowCount - 1
 '				If logger Then Log($"ROWCOUNT: ${enc.RowCount}"$)
 '				If logger Then Log($"tipo: ${enc.GetString("CAT_EP_IDTIPOPREGUNTA")}"$)
-				If logger Then Log($"Tipo: ${enc.GetString("CAT_EP_IDTIPOPREGUNTA")}, CAT_EP_ID=${enc.GetString("CAT_EP_ID")}, CAT_EP_PREGUNTA=${enc.GetString("CAT_EP_PREGUNTA")}"$)
-				If enc.GetString("CAT_EP_IDTIPOPREGUNTA") <> 4 and indicePregunta <> 0 Then
+				If logger Then Log($"CAT_EP_ID=${enc.GetString("CAT_EP_ID")}, CAT_EP_PREGUNTA=${enc.GetString("CAT_EP_PREGUNTA")}"$)
+				If indicePregunta <> 0 Then
 					indicePregunta = listaPreguntas.IndexOf(enc.GetString("CAT_EP_ID")) + 1 'Nos movemos a la posicion especificada por la respuesta, en las preguntas de tipo desicion, la respuesta nos indica a que pregunta movernos.
 					i = indicePregunta
 					Log($"i = ${i}"$)
diff --git a/B4A/Guna Vistas V3.1.b4a b/B4A/Guna Vistas V3.1.b4a
index 29f6758..b84b836 100644
--- a/B4A/Guna Vistas V3.1.b4a	
+++ b/B4A/Guna Vistas V3.1.b4a	
@@ -184,12 +184,12 @@ Module9=C_NoVenta
 NumberOfFiles=62
 NumberOfLibraries=33
 NumberOfModules=23
-Version=12.8
+Version=12.5
 @EndOfDesignText@
 #Region  Project Attributes 
 	#ApplicationLabel: Guna V3.1
 	#VersionCode: 1
-	#VersionName: 4.04.22 ENC Geo
+	#VersionName: 4.05.04 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 cd494f9..fa9418a 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=Main,Activity_KeyPress,40,0,C_Cliente,b_encuesta_1_Click,3929,0,C_Cliente,b_encuesta_continuar_Click,3969,0,C_Principal,JobDone,960,0,C_Cliente,Class_Globals,0,0,C_Cliente,CB2_P8_M3_CheckedChange,3681,0,C_Cliente,CB3_P8_M3_CheckedChange,3693,0,C_Cliente,CB4_P8_M3_CheckedChange,3709,0,Main,Activity_Create,29,0,C_Cliente,Cuestionario,3750,1
+NavigationStack=C_Cliente,b_encuesta_1_Click,3929,0,C_Cliente,b_encuesta_continuar_Click,3969,0,C_Principal,JobDone,960,0,C_Cliente,Class_Globals,0,0,C_Cliente,CB2_P8_M3_CheckedChange,3681,0,C_Cliente,CB3_P8_M3_CheckedChange,3693,0,C_Cliente,CB4_P8_M3_CheckedChange,3709,0,C_Cliente,Cuestionario,3710,0,C_Cliente,B4XPage_Appear,676,0,C_Cliente,GPS_LocationChanged,716,0
 SelectedBuild=0
 VisibleModules=21,2,22,12,13,4,8,11,5,10