From 0692b7cb252d8cb44cc39d27318d837ca9a7a5a6 Mon Sep 17 00:00:00 2001
From: Jose Alberto Guerra Ugalde <ja.guerra@keymonsoft.com>
Date: Tue, 8 Oct 2024 19:34:47 -0600
Subject: [PATCH] - VERSION 4.10.07.EP_d - Se activo la encuesta 2 de Pedigree
 para los almacenes 6 y 79 (Scat y Norte 45), para las rutas 3 y 702, 703,
 707, 718, 730, 732, 733, 734 respectivamente.

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

diff --git a/B4A/C_Cliente.bas b/B4A/C_Cliente.bas
index ecdffc0..f6b39d7 100644
--- a/B4A/C_Cliente.bas
+++ b/B4A/C_Cliente.bas
@@ -950,7 +950,7 @@ Sub B4XPage_Appear
 '		ToastMessageShow("aaa", False)
 	End If
 	
-	
+	Log($"ALMACEN: ${ALMACEN}${CRLF}RUTA:${LA_RUTA}"$)
 End Sub
 
 Sub GPS_LocationChanged (Location1 As Location)
@@ -1221,11 +1221,23 @@ Sub gest_Click
 '	If ALMACEN = "4" Or ALMACEN = "36" Then
 '	Log(Subs.traeAlmacen)
 
-'	Log($"${cuest.encuestaIniciada} - ${cuest.clienteConCuestionario(Subs.traeCliente)}"$)
-'	If Not(cuest.encuestaIniciada) And Not(cuest.clienteConCuestionario(Subs.traeCliente)) Then
-'		cuest.agregaPreguntaCheckbox("1", "¿Qué productos de Kileo Perro encuentras en esta tienda?", Array As String("Pedigree Adulto", "Pedigree Cachorro", "Pedigree Razas Pequeñas", "Champ", "PAL","DOG CHOW ADULTO","DOG CHOW CACHORRO","DOG CHOW RAZAS PEQUEÑAS","Campeon","Ganador","Poder canino","Perron","Silverkan","Woow","Chapetes","Dyno","Beriscan","Nogacan","Nutrescan","Fidus","Amigo Gourmet","Otros","Ninguno de los anteriores"))
-'		Return False
-'	End If
+'	Almacenes 6 y 79 de SCAT y Norte 45.
+'	En SCAT es ruta 3
+'	Norte 45 (79) Rutas: 702, 703, 707, 718, 730, 732, 733, 734.
+
+	Private rutasEncuesta As List
+	rutasEncuesta.Initialize2(Array As Int(702, 703, 707, 718, 730, 732, 733, 734))
+	
+'	ALMACEN = 79
+'	LA_RUTA = 732
+	
+	If (ALMACEN = 6 And LA_RUTA = 3) Or (ALMACEN = 79 And rutasEncuesta.IndexOf(LA_RUTA.As(Int)) > -1) Then
+		Log($"${cuest.encuestaIniciada} - ${cuest.clienteConCuestionario(Subs.traeCliente)}"$)
+		If Not(cuest.encuestaIniciada) And Not(cuest.clienteConCuestionario(Subs.traeCliente)) Then
+			cuest.agregaPreguntaCheckbox("1", "¿Qué productos de Kileo Perro encuentras en esta tienda?", Array As String("Pedigree Adulto", "Pedigree Cachorro", "Pedigree Razas Pequeñas", "Champ", "PAL","DOG CHOW ADULTO","DOG CHOW CACHORRO","DOG CHOW RAZAS PEQUEÑAS","Campeon","Ganador","Poder canino","Perron","Silverkan","Woow","Chapetes","Dyno","Beriscan","Nogacan","Nutrescan","Fidus","Amigo Gourmet","Otros","Ninguno de los anteriores"))
+			Return False
+		End If
+	End If
 
 	If TOMAR_FOTO = 0 Then
 		Cuestionario
diff --git a/B4A/Guna Vistas V3.1.b4a b/B4A/Guna Vistas V3.1.b4a
index 74a760a..29b200f 100644
--- a/B4A/Guna Vistas V3.1.b4a	
+++ b/B4A/Guna Vistas V3.1.b4a	
@@ -251,7 +251,7 @@ Version=12.8
 #Region  Project Attributes 
 	#ApplicationLabel: Guna V3.1
 	#VersionCode: 1
-	#VersionName: 4.10.06.EP_d
+	#VersionName: 4.10.07.EP_d
 	'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 d2ee5a9..b41376c 100644
--- a/B4A/Guna Vistas V3.1.b4a.meta	
+++ b/B4A/Guna Vistas V3.1.b4a.meta	
@@ -76,6 +76,6 @@ ModuleClosedNodes6=8,9,10
 ModuleClosedNodes7=
 ModuleClosedNodes8=
 ModuleClosedNodes9=
-NavigationStack=Subs,traeRutasSup,686,0,Subs,traeRutaBitacora,667,0,C_Cliente,b_Inicio_Fin_venta_Click,4774,0,C_Clientes,Class_Globals,0,0,C_Cliente,Class_Globals,416,0,C_NoVenta,GUARDA_Click,125,1,Subs,iniciaActividad,1322,0,Subs,bitacora,1285,0,Main,Activity_Create,27,0,B4XMainPage,Class_Globals,27,1
+NavigationStack=C_Clientes,Class_Globals,0,0,C_Cliente,Class_Globals,416,0,C_NoVenta,GUARDA_Click,125,1,Subs,iniciaActividad,1322,0,Subs,bitacora,1285,0,Main,Activity_Create,27,0,B4XMainPage,Class_Globals,27,1,C_Cliente,cuest_preguntaContestada,4619,0,C_Cliente,ListView1_ItemLongClick,1212,0,C_Cliente,gest_Click,1218,6,C_Cliente,B4XPage_Appear,946,0
 SelectedBuild=0
-VisibleModules=23,2,24,13,14,4,6,9,12,5,10
+VisibleModules=23,2,24,13,14,4,6,9,12,5