diff --git a/B4A/B4XMainPage.bas b/B4A/B4XMainPage.bas
index 37ef329..816d600 100644
--- a/B4A/B4XMainPage.bas
+++ b/B4A/B4XMainPage.bas
@@ -180,7 +180,6 @@ Private Sub B4XPage_Created (Root1 As B4XView)
 	skmt.ExecNonQuery("CREATE TABLE IF NOT EXISTS HIST_PRO3054(H_IDCLIENTE TEXT)")
 	skmt.ExecNonQuery("CREATE TABLE IF NOT EXISTS HIST_PRO3055(H_IDCLIENTE TEXT)")
 	skmt.ExecNonQuery("CREATE TABLE IF NOT EXISTS RUTA_SUPLENCIA(RS_RUTA TEXT)")
-	skmt.ExecNonQuery("CREATE TABLE IF NOT EXISTS RUTA_SUPLENCIA(RS_RUTA TEXT)")
 	skmt.ExecNonQuery("CREATE TABLE IF NOT EXISTS TICKET_IMPRESO (idCliente TEXT)")
 '	skmt.ExecNonQuery("CREATE TABLE IF NOT EXISTS CAT_VARIABLES (CAT_VA_DESCRIPCION TEXT, CAT_VA_VALOR TEXT)")
 	Subs.agregaColumna("HIST_ENCUESTA", "HE_LAT", "TEXT")
diff --git a/B4A/C_NoVenta.bas b/B4A/C_NoVenta.bas
index 2f8b37c..73aa460 100644
--- a/B4A/C_NoVenta.bas
+++ b/B4A/C_NoVenta.bas
@@ -118,7 +118,7 @@ Sub GUARDA_Click
 	sTime=DateTime.Time(DateTime.Now)
 	B4XPages.MainPage.skmt.ExecNonQuery2("UPDATE HIST_STAY_STORE set HSS_OUT = ?  where HSS_CODIGO In (select cuenta from cuentaa)", Array As Object(sTime))
 	'  B4XPages.MainPage.skmt.ExecNonQuery("UPDATE HIST_STAY_STORE set HSS_TOT = HSS_OUT - HSS_IN where HSS_CODIGO In (select cuenta from cuentaa)")
-	
+
 	c=B4XPages.MainPage.skmt.ExecQuery(" Select (substr(HSS_OUT,1,2) - substr(HSS_IN,1,2)) - Case when  (substr(HSS_OUT,3,2) - substr(HSS_IN,3,2)) < 0 Then 1 Else 0 end HORAS_TOTALES, " & _
 	"Case when  (substr(HSS_OUT,3,2) - substr(HSS_IN,3,2)) < 0 Then (substr(HSS_OUT,3,2) + 60 - substr(HSS_IN,3,2)) " & _
 	"	Else (substr(HSS_OUT,3,2) - substr(HSS_IN,3,2)) End - Case when  (substr(HSS_OUT,5,2) - substr(HSS_IN,5,2)) < 0 Then 1 Else 0 end  MINUTOS_TOTALES, " & _
diff --git a/B4A/C_Principal.bas b/B4A/C_Principal.bas
index 6272256..9a08ad1 100644
--- a/B4A/C_Principal.bas
+++ b/B4A/C_Principal.bas
@@ -1095,18 +1095,19 @@ Sub cargar_Click
 	cmd.Name = "selectPromo3055Jul-Sep_Guna"
 	cmd.Parameters = Array As Object(e_ruta.text, ALMACEN)
 	B4XPages.MainPage.reqManager.ExecuteQuery(cmd , 0, "hist_pro3055")
-	
+
 	'SUPLENCIA
 	If E_RUTA2.text <> "" Then
+		Starter.skmt.ExecNonQuery("DELETE from RUTA_SUPLENCIA")
 		B4XPages.MainPage.skmt.ExecNonQuery2("INSERT INTO RUTA_SUPLENCIA(RS_RUTA) VALUES(?)",Array As String(E_RUTA2.Text))
 		E_RUTA2.Visible = False
 		p_ruta2.Visible = False
-		
+
 		cmd.Initialize
 		cmd.Name = "select_cat_clientes_guna_GV2"
 		cmd.Parameters = Array As Object(E_RUTA2.text, ALMACEN)
 		B4XPages.MainPage.reqManager.ExecuteQuery(cmd , 0, "kmt_datos2")
-	
+
 		cmd.Initialize
 		cmd.Name = "select_hist_datos_GV2_2"
 		cmd.Parameters = Array As Object(E_RUTA2.text, ALMACEN,E_RUTA2.text, ALMACEN,E_RUTA2.text, ALMACEN)
diff --git a/B4A/Guna Vistas V3.1.b4a b/B4A/Guna Vistas V3.1.b4a
index 0cc89ec..ba16883 100644
--- a/B4A/Guna Vistas V3.1.b4a	
+++ b/B4A/Guna Vistas V3.1.b4a	
@@ -261,7 +261,7 @@ Version=12.8
 #Region  Project Attributes 
 	#ApplicationLabel: Guna Preventa
 	#VersionCode: 1
-	#VersionName: 5.02.22
+	#VersionName: 5.03.10
 	'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 a98ded1..426aa6a 100644
--- a/B4A/Guna Vistas V3.1.b4a.meta	
+++ b/B4A/Guna Vistas V3.1.b4a.meta	
@@ -60,7 +60,7 @@ ModuleClosedNodes10=
 ModuleClosedNodes11=
 ModuleClosedNodes12=
 ModuleClosedNodes13=
-ModuleClosedNodes14=14,17,18,22,28,29,30
+ModuleClosedNodes14=14,17,18,28,29,30
 ModuleClosedNodes15=3,17
 ModuleClosedNodes16=
 ModuleClosedNodes17=
@@ -82,6 +82,6 @@ ModuleClosedNodes6=
 ModuleClosedNodes7=5,6,8,9,10,11
 ModuleClosedNodes8=
 ModuleClosedNodes9=
-NavigationStack=C_Nota,Initialize,37,0,B4XMainPage,Class_Globals,20,0,C_Cliente,B4XPage_Appear,837,0,C_Principal,Subir_Click,778,0,C_Nota,Class_Globals,32,0,C_Nota,B4XPage_Appear,114,0,Main,Globals,23,0,Main,Process_Globals,21,0,C_Principal,B4XPage_Appear,445,5,C_Nota,ListView1_ItemLongClick,251,6
+NavigationStack=C_NoVenta,Class_Globals,0,0,C_NoVenta,GUARDA_Click,114,0,Subs,traePromo,798,0,Subs,traeMaxPromos,934,0,Subs,procesaPromocion,982,1,C_Principal,Class_Globals,0,0,Diseñador Visual,resdia.bal,-100,4,C_Principal,resdia_Click,2604,0,B4XMainPage,B4XPage_Created,174,0,C_Principal,cargar_Click,1094,6
 SelectedBuild=0
-VisibleModules=25,2,14,26,5,10,15
+VisibleModules=25,2,14,26,5,10,15,11
diff --git a/B4A/Subs.bas b/B4A/Subs.bas
index 1da72ac..1caf67d 100644
--- a/B4A/Subs.bas
+++ b/B4A/Subs.bas
@@ -974,7 +974,7 @@ Sub traePromosVendidas(promo As String, cliente As String) As Int
 End Sub
 
 Sub procesaPromocion(idPromo As String, cliente As String) As Map 'ignore
-	Private thisLog As Boolean = False  'Si es verdadero, muestra los logs de este sub.
+	Private thisLog As Boolean = True  'Si es verdadero, muestra los logs de este sub.
 	Private inicioContador As String = DateTime.Now
 	If thisLog Then LogColor($"********* Iniciamos revision de Promo ${idPromo} *********"$, Colors.Magenta)
 	'Obtenemos el mapa con toda la info de la promoción.