diff --git a/B4A/C_Cliente.bas b/B4A/C_Cliente.bas
index f6478ff..ab46ffe 100644
--- a/B4A/C_Cliente.bas
+++ b/B4A/C_Cliente.bas
@@ -1948,15 +1948,15 @@ Sub gestionar
 					compra
 				Catch
 					Starter.encuesta = 0
-'					Dim cmd As DBCommand
-'					skmt.ExecNonQuery2("UPDATE kmt_info3 SET encuesta = (?) WHERE CAT_CL_CODIGO IN (SELECT CUENTA FROM CUENTAA)",Array As Object(2))
-'					ToastMessageShow("La aplicación Tienda 360 no está instalada o no puede manejar la URL.", True)
+					Dim cmd As DBCommand
+					skmt.ExecNonQuery2("UPDATE kmt_info3 SET encuesta = (?) WHERE CAT_CL_CODIGO IN (SELECT CUENTA FROM CUENTAA)",Array As Object(2))
+					ToastMessageShow("La aplicación Tienda 360 no está instalada o no puede manejar la URL.", True)
 					compra
 				End Try
-'				cmd.Initialize
-'				cmd.Name = "SELECT_TMP_DROP_ENCUESTA_GUNA"
-'				cmd.Parameters = Array As Object(usuario, B4XPages.MainPage.principal.e_ruta.text, ALMACEN, "ENCUESTA")
-'				B4XPages.MainPage.reqManager.ExecuteQuery(cmd , 0, "CHECAENCUESTA")
+				cmd.Initialize
+				cmd.Name = "SELECT_TMP_DROP_ENCUESTA_GUNA"
+				cmd.Parameters = Array As Object(usuario, B4XPages.MainPage.principal.e_ruta.text, ALMACEN, "ENCUESTA")
+				B4XPages.MainPage.reqManager.ExecuteQuery(cmd , 0, "CHECAENCUESTA")
 			Else
 				compra
 			End If
@@ -1979,15 +1979,15 @@ Sub gestionar
 				compra
 			Catch
 				Starter.encuesta = 0
-'				Dim cmd As DBCommand
-'				skmt.ExecNonQuery2("UPDATE kmt_info3 SET encuesta = (?) WHERE CAT_CL_CODIGO IN (SELECT CUENTA FROM CUENTAA)",Array As Object(2))
-'				ToastMessageShow("La aplicación Tienda 360 no está instalada o no puede manejar la URL.", True)
+				Dim cmd As DBCommand
+				skmt.ExecNonQuery2("UPDATE kmt_info3 SET encuesta = (?) WHERE CAT_CL_CODIGO IN (SELECT CUENTA FROM CUENTAA)",Array As Object(2))
+				ToastMessageShow("La aplicación Tienda 360 no está instalada o no puede manejar la URL.", True)
 				compra
 			End Try
-'			cmd.Initialize
-'			cmd.Name = "SELECT_TMP_DROP_ENCUESTA_GUNA"
-'			cmd.Parameters = Array As Object(usuario, B4XPages.MainPage.principal.e_ruta.text, ALMACEN, "ENCUESTA")
-'			B4XPages.MainPage.reqManager.ExecuteQuery(cmd , 0, "CHECAENCUESTA")
+			cmd.Initialize
+			cmd.Name = "SELECT_TMP_DROP_ENCUESTA_GUNA"
+			cmd.Parameters = Array As Object(usuario, B4XPages.MainPage.principal.e_ruta.text, ALMACEN, "ENCUESTA")
+			B4XPages.MainPage.reqManager.ExecuteQuery(cmd , 0, "CHECAENCUESTA")
 		Else
 			compra
 		End If
@@ -2936,7 +2936,7 @@ Sub B_IMP_Click
 		
 		Impresion3
 	Else 
-		Impresion
+		Impresion3
 	End If
 	
 	B4XPages.MainPage.skmt.ExecNonQuery("delete from TICKET_IMPRESO where idCliente In (select cuenta from cuentaa)")
diff --git a/B4A/Files/fondo-rojo.rar b/B4A/Files/fondo-rojo.rar
new file mode 100644
index 0000000..c35ad86
Binary files /dev/null and b/B4A/Files/fondo-rojo.rar differ
diff --git a/B4A/Guna Vistas V3.1.b4a b/B4A/Guna Vistas V3.1.b4a
index 93af547..063dbe2 100644
--- a/B4A/Guna Vistas V3.1.b4a	
+++ b/B4A/Guna Vistas V3.1.b4a	
@@ -294,7 +294,7 @@ Version=12.8
 #Region  Project Attributes 
 	#ApplicationLabel: Guna Preventa
 	#VersionCode: 1
-	#VersionName: 6.01.10
+	#VersionName: 6.02.05
 	'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 2b00637..cab34ff 100644
--- a/B4A/Guna Vistas V3.1.b4a.meta	
+++ b/B4A/Guna Vistas V3.1.b4a.meta	
@@ -88,6 +88,6 @@ ModuleClosedNodes6=
 ModuleClosedNodes7=6,8,9,10,11
 ModuleClosedNodes8=
 ModuleClosedNodes9=
-NavigationStack=C_Cliente,Class_Globals,0,0,C_Cliente,B4XPage_Appear,1274,6,C_Cliente,GPS_LocationChanged,1440,0,C_Cliente,MejorarPrecisionGPS,1278,0,C_Cliente,LA_GPS_Click,1359,0,C_Cliente,B_IMP_Click,2930,0,C_Cliente,Impresion3,2984,6,C_Cliente,Impresion2,3225,0,C_Cliente,Impresion,3388,0,B4XMainPage,revisaActualizacion,1037,0
+NavigationStack=C_Cliente,GPS_LocationChanged,1440,0,C_Cliente,MejorarPrecisionGPS,1278,0,C_Cliente,LA_GPS_Click,1359,0,C_Cliente,Impresion3,2984,6,C_Cliente,Impresion2,3225,0,B4XMainPage,revisaActualizacion,1037,0,C_Cliente,gestionar,1929,0,C_Principal,JobDone,1445,0,C_Cliente,Impresion,3548,0,C_Cliente,B_IMP_Click,2905,0
 SelectedBuild=0
-VisibleModules=27,2,16,28,5,13,17,29,19,4,6,12,18,22,24,25
+VisibleModules=27,2,16,28,5,13,17,29,19,4