diff --git a/B4A/C_Cliente.bas b/B4A/C_Cliente.bas
index e20e807..1169fa4 100644
--- a/B4A/C_Cliente.bas
+++ b/B4A/C_Cliente.bas
@@ -2046,7 +2046,8 @@ Sub guardadoventa
 		b_Inicio_Fin_venta.Visible = False
 		Starter.enVenta = False
 		LogColor(">>>>>> ABORDO: " & Starter.enVenta, Colors.red)
-		Subs.bitacora(Subs.fechanormal(DateTime.Now), usuario, Subs.traeAlmacen, Subs.traeRuta, "Venta Abordo", "0", Subs.fechanormal(DateTime.Now), Subs.fechanormal(DateTime.Now), B4XPages.MainPage.lat_gps, B4XPages.MainPage.lon_gps, precision, "", "")
+		Subs.bitacora(Subs.fechanormal(DateTime.Now), usuario, Subs.traeAlmacen, Subs.traeRutasSup, "Venta Abordo", "0", Subs.fechanormal(DateTime.Now), Subs.fechanormal(DateTime.Now), B4XPages.MainPage.lat_gps, B4XPages.MainPage.lon_gps, precision, "", "")
+		LogColor(">>>>>> Ruta: <<<<<<<<<<<<" & Subs.traeRutasSup, Colors.Blue)
 		Subs.iniciaActividad("principal")
 		B4XPages.ShowPageAndRemovePreviousPages("Principal")
 	End If
diff --git a/B4A/C_NoVenta.bas b/B4A/C_NoVenta.bas
index 2fffbb8..1c8f33d 100644
--- a/B4A/C_NoVenta.bas
+++ b/B4A/C_NoVenta.bas
@@ -129,6 +129,6 @@ Sub GUARDA_Click
 	B4XPages.MainPage.skmt.ExecNonQuery2("UPDATE HIST_STAY_STORE set HSS_TOT = ?  where HSS_CODIGO In (select cuenta from cuentaa)", Array As Object(stay_hh + stay_mi + stay_ss))
 	B4XPages.MainPage.skmt.ExecNonQuery2("UPDATE HIST_STAY_OUT set HSO_FIN = ?  ", Array As Object(sTime))
 	DateTime.TimeFormat = "HH:mm:ss"
-	Subs.bitacora(Subs.fechanormal(DateTime.Now), usuario, Subs.traeAlmacen, Subs.traeRuta, "MOTIVO NO VENTA ACTIVO", Subs.traeCliente, Subs.fechanormal(DateTime.Now), Subs.fechanormal(DateTime.Now), B4XPages.MainPage.lat_gps, B4XPages.MainPage.lon_gps, 2, "", r_1.Checked)
+	Subs.bitacora(Subs.fechanormal(DateTime.Now), usuario, Subs.traeAlmacen, Subs.traeRuta, "NO VENTA", Subs.traeCliente, Subs.fechanormal(DateTime.Now), Subs.fechanormal(DateTime.Now), B4XPages.MainPage.lat_gps, B4XPages.MainPage.lon_gps, 2, "", r_1.Checked)
 	B4XPages.ShowPage("Principal")
 End Sub
\ No newline at end of file
diff --git a/B4A/C_Pedidos.bas b/B4A/C_Pedidos.bas
index 3d66f63..ef112b0 100644
--- a/B4A/C_Pedidos.bas
+++ b/B4A/C_Pedidos.bas
@@ -284,7 +284,7 @@ Sub guardar_Click
 					f.Close
 				End If
 				e.Close
-				B4XPages.MainPage.skmt.ExecNonQuery2("INSERT INTO  PEDIDO (PE_CEDIS,PE_COSTO_TOT,PE_COSTOU,PE_CANT,PE_PRONOMBRE,PE_PROID,PE_CLIENTE,PE_FECHA,PE_USUARIO,PE_RUTA,PE_FOLIO) VALUES(?,?,?,?,?,?,?,?,?,?,?) ", Array As Object (L_PROID.text,0 , 0, cantidad.text, l_desc.text, L_PROID.Text,clie_id, sDate & sTime, usuario,cl_ruta, b4xpages.MainPage.tipo_venta))
+				B4XPages.MainPage.skmt.ExecNonQuery2("INSERT INTO  PEDIDO (PE_CEDIS,PE_COSTO_TOT,PE_COSTOU,PE_CANT,PE_PRONOMBRE,PE_PROID,PE_CLIENTE,PE_FECHA,PE_USUARIO,PE_RUTA,PE_FOLIO) VALUES(?,?,?,?,?,?,?,?,?,?,?) ", Array As Object (L_PROID.text,0 , 0, cantidad.text, l_desc.text, L_PROID.Text,clie_id, sDate & sTime, usuario,cl_ruta, B4XPages.MainPage.tipo_venta))
 				B4XPages.MainPage.skmt.ExecNonQuery2("update cat_gunaprod set cat_gp_almacen = cat_gp_almacen - ? where cat_gp_id = ? ", Array As Object(cantidad.Text, L_PROID.Text))
 			Else
 				Msgbox("Tiene " & TOT_ART_PROMO & " " & TOT_ART_PROMOR & " y necesita " & PROMO_C & " " & PROMO_CR & " Para la Promo. " , "ADVERTENCIA") 'ignore
diff --git a/B4A/C_Principal.bas b/B4A/C_Principal.bas
index 8f36151..6a504d4 100644
--- a/B4A/C_Principal.bas
+++ b/B4A/C_Principal.bas
@@ -576,9 +576,12 @@ Sub Subir_Click
 				clienteb = ""
 				finb = h.GetString("iniciob")
 			End If
+			Private VarXRu As String = ("R:"&e_ruta.Text & " R:" & E_RUTA2.Text)
+			LogColor("----------->" & VarXRu, Colors.Red)
 			If eventob = "Salida almacen" Then nombreCliente = "CHECKLIST"
 			If eventob = "Fin Día" Then nombreCliente = "FIN DIA"
 			If eventob = "Carga día" Then nombreCliente = "CARGA DIA"
+			If eventob = "Suplencia" Then nombreCliente = VarXRu
 '			Log($"'${almacenb}', '${usuariob}', '${rutab}', '${eventob}', '${clienteb}', '${nombreCliente}','${ iniciob}', '${finb}','${ latitudb}','${ longitudb}', '${precision}', '${motivonoventa}', '${motivonovisita}', '${fechab}'"$)
 '			TMP_ALMACEN, TMP_USUARIO, TMP_RUTA, TMP_EVENTO, TMP_ID_CLIENTE, TMP_NOMBRE_CLIENTE, TMP_INICIO, TMP_FINAL, TMP_LATITUD, TMP_LONGITUD, TMP_PRESICION, TMP_MOTIVO_NO_VENTA, TMP_MOTIVO_NO_VISITA, TMP_FECHA_SINC, TMP_FECHA_MOVIL
 			cmd.Parameters = Array As Object(h.GetString("almacenb"), h.GetString("usuariob"), h.GetString("rutab"), eventob, clienteb, nombreCliente, h.GetString("iniciob"), finb, h.GetString("latitudb"), h.GetString("longitudb"), h.GetString("precision"), h.GetString("motivonoventa"), h.GetString("motivonovisita"), h.GetString("fechab"))
@@ -1167,9 +1170,17 @@ Sub JobDone(Job As HttpJob)
 					Dim CAT_CL_MTOCOMPRA As String = records(RESULT.Columns.Get("CAT_CL_MTOCOMPRA"))
 					Dim CAT_CL_NUM_SERIEFISICO As String = records(RESULT.Columns.Get("CAT_CL_NUM_SERIEFISICO"))
 					B4XPages.MainPage.skmt.ExecNonQuery2("INSERT INTO kmt_info2(CAT_CL_CODIGO,CAT_CL_RUTA,CAT_CL_NOMBRE,CAT_CL_ATIENDE1,CAT_CL_ATIENTE2,CAT_CL_TELEFONO,CAT_CL_EMAIL,CAT_CL_CALLE,CAT_CL_NOEXT,CAT_CL_NOINT,CAT_CL_CALLE1,CAT_CL_CALLE2,CAT_CL_COLONIA,CAT_CL_MUNI,CAT_CL_EDO,CAT_CL_CP,CAT_CL_LONG,CAT_CL_LAT,CAT_CL_MTOCOMPRA,CAT_CL_NUM_SERIEFISICO, gestion) VALUES (?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,0)", Array As Object (CAT_CL_CODIGO,E_RUTA2.Text,CAT_CL_NOMBRE,CAT_CL_ATIENDE1,CAT_CL_ATIENTE2,CAT_CL_TELEFONO,CAT_CL_EMAIL,CAT_CL_CALLE,CAT_CL_NOEXT,CAT_CL_NOINT,CAT_CL_CALLE1,CAT_CL_CALLE2,CAT_CL_COLONIA,CAT_CL_MUNI,CAT_CL_EDO,CAT_CL_CP,CAT_CL_LONG,CAT_CL_LAT,CAT_CL_MTOCOMPRA,CAT_CL_NUM_SERIEFISICO))
+					Subs.bitacora(Subs.fechanormal(DateTime.Now),usuario,Subs.traeAlmacen, e_ruta.Text, "Suplencia", "",Subs.fechanormal(DateTime.Now),Subs.fechanormal(DateTime.Now),B4XPages.MainPage.lat_gps,B4XPages.MainPage.lon_gps,"2","","")
 					B4XPages.MainPage.skmt.ExecNonQuery2("INSERT INTO HIST_STAY_STORE(HSS_CODIGO,  HSS_IN , HSS_OUT , HSS_TOT) VALUES (?,0,0,0)", Array As Object (CAT_CL_CODIGO))
 				Next
-				
+				Listo1 = 1
+				S_CC.Text = "LISTO"
+'				If Starter.marcaCel <> "Sony" Then ToastMessageShow("Catalogo Clientes Actualizados." , True)
+				If Listo1 =1 And Listo2 =1 And Listo3 = 1 And Listo4 = 1 Then
+					B4XPage_Appear
+					img2.Visible=False
+					EJECUTANDO=0
+				End If
 			End If
 		End If
 		
@@ -1966,6 +1977,8 @@ Sub e_ruta_EnterPressed
 			B4XPages.MainPage.skmt.ExecNonQuery2("UPDATE GPS SET HABILITADO = (?)",Array As Object(0))
 			B4XPage_Appear
 			Subs.bitacora(Subs.fechanormal(DateTime.Now),usuario,Subs.traeAlmacen, Rut_Rep,"Fin Día", "",Subs.fechanormal(DateTime.Now),Subs.fechanormal(DateTime.Now),B4XPages.MainPage.lat_gps,B4XPages.MainPage.lon_gps,"2","","")
+			E_RUTA2.Visible = False
+			Panel11.Visible = False
 		End If
 	End If
 	
diff --git a/B4A/Guna Vistas V3.1.b4a b/B4A/Guna Vistas V3.1.b4a
index 4fab1eb..04e5870 100644
--- a/B4A/Guna Vistas V3.1.b4a	
+++ b/B4A/Guna Vistas V3.1.b4a	
@@ -191,7 +191,7 @@ Version=12.8
 #Region  Project Attributes 
 	#ApplicationLabel: Guna V3.1
 	#VersionCode: 1
-	#VersionName: 4.08.18.EP_d
+	#VersionName: 4.08.30.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 e8315ea..7eab7a9 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=Tracker,flp_LocationChanged,186,0,C_Principal,B4XPage_Appear,456,0,C_Principal,Class_Globals,16,0,B4XMainPage,i_engrane_Click,737,0,C_Promos,b_continuar_Click,374,0,C_Productos,B4XPage_Appear,114,0,Diseñador Visual,pedido.bal,-100,2,Diseñador Visual,productos.bal,-100,6,C_Productos,lv_catalogos_ItemClick,193,0,C_Principal,B_OK_PAS_Click,2055,0,C_Principal,cargar_Click,853,0
+NavigationStack=C_Principal,cargar_Click,971,0,C_Principal,e_ruta_EnterPressed,1986,4,C_Principal,JobDone,1166,0,C_Principal,Subir_Click,573,0,C_Principal,B_OK_PAS_Click,2092,0,Subs,traeProdNombre,653,0,Subs,traeRutasSup,668,0,C_Cliente,guardadoventa,2043,0,C_NoVenta,GUARDA_Click,125,0,Subs,traeRuta,667,0
 SelectedBuild=0
-VisibleModules=23,2,24,13,14,4,6,9,12,5
+VisibleModules=23,2,24,13,14,4,6,9,12,5,10
diff --git a/B4A/Subs.bas b/B4A/Subs.bas
index 25552bf..6933a51 100644
--- a/B4A/Subs.bas
+++ b/B4A/Subs.bas
@@ -671,6 +671,20 @@ Sub traeRuta As String 'ignore
 	Return r
 End Sub
 
+'Regresa la ruta actual de la base de datos.
+Sub traeRutasSup As String 'ignore
+	Private c As Cursor
+	Private r As String
+	c=B4XPages.MainPage.skmt.ExecQuery("select CAT_CL_RUTA from kmt_info2 Where CAT_CL_CODIGO IN (SELECT CUENTA FROM CUENTAA)")
+	r = "0"
+	If c.RowCount > 0 Then
+		c.Position=0
+		r = c.GetString("CAT_CL_RUTA")
+	End If
+	c.Close
+	Return r
+End Sub
+
 Sub traeCliente As String 'ignore
 	Private c As Cursor
 	Private cl As String
@@ -1232,7 +1246,7 @@ Sub bitacora(fechab As String, usuariob As String, almacenb As String, rutab As
 	Log("bitacora")
 	Private cmd As DBCommand
 	cmd.Initialize
-	cmd.Name = "mandaBitacora3"
+	cmd.Name = "mandaBitacora3_GUNA"
 	Log("BITACORA3")
 	Private nombreCliente As String = traeNombreCliente(clienteb)
 	If eventob = "Llega a almacen" Then
@@ -1291,7 +1305,7 @@ Sub bitacoraX(fechab As String, usuariob As String, almacenb As String, rutab As
 	Private cmd As DBCommand
 	cmd.Initialize
 	If eventob <> "Termina Venta" And eventob <> "No Venta" Then
-		cmd.Name = "mandaBitacora3"
+		cmd.Name = "mandaBitacora3_GUNA"
 		Log("BITACORA3")
 		Private nombreCliente As String = traeNombreCliente(clienteb)
 		If eventob = "Llega a almacen" Then