diff --git a/B4A/ADM.b4a b/B4A/ADM.b4a
index d92e6a4..200d4f0 100644
--- a/B4A/ADM.b4a
+++ b/B4A/ADM.b4a
@@ -1121,7 +1121,7 @@ Version=12.8
 #Region  Project Attributes 
 	#ApplicationLabel: ADM
 	#VersionCode: 1
-	#VersionName: 5.08.31
+	#VersionName: 5.09.01
 	'SupportedOrientations possible values: unspecified, landscape or portrait.
 	#SupportedOrientations: portrait
 	#CanInstallToExternalStorage: False
diff --git a/B4A/ADM.b4a.meta b/B4A/ADM.b4a.meta
index 5fc3f40..95274dc 100644
--- a/B4A/ADM.b4a.meta
+++ b/B4A/ADM.b4a.meta
@@ -88,7 +88,7 @@ ModuleClosedNodes27=
 ModuleClosedNodes28=
 ModuleClosedNodes29=
 ModuleClosedNodes3=
-ModuleClosedNodes30=4,5,6,7,8
+ModuleClosedNodes30=2,4,5,6,7,8
 ModuleClosedNodes31=
 ModuleClosedNodes32=15,16,17,18,19
 ModuleClosedNodes4=
@@ -97,6 +97,6 @@ ModuleClosedNodes6=
 ModuleClosedNodes7=
 ModuleClosedNodes8=
 ModuleClosedNodes9=
-NavigationStack=MAPA_RUTAS,MapFragment1_Ready,325,0,MAPA_RUTAS,Camera1_PictureTaken,621,0,MAPA_RUTAS,b_guardaNoVenta_Click,579,0,Diseñador Visual,mapa_rutas.bal,-100,2,C_TicketsDia,mandaPendientes,331,0,Diseñador Visual,ticketsdia.bal,-100,2,C_TicketsDia,b_guardaNoVenta_Click,288,0,B4XMainPage,Class_Globals,116,0,MAPA_RUTAS,p_guardarPeso_Click,527,0,MAPA_RUTAS,b_guardarPeso_Click,525,0,MAPA_RUTAS,Activity_KeyPress,505,0
+NavigationStack=B4XMainPage,Class_Globals,116,0,MAPA_RUTAS,p_guardarPeso_Click,527,0,MAPA_RUTAS,b_guardarPeso_Click,525,0,MAPA_RUTAS,Activity_KeyPress,505,0,C_Cliente,Class_Globals,0,0,C_Cliente,JobDone,2336,0,C_Clientes,JobDone,947,0,Starter,JobDone,210,2,Tracker,guardaYEnviaUbicacion,309,6,C_Principal,JobDone,2069,0
 SelectedBuild=0
-VisibleModules=30,2,14,5,6,19,31,27,18,11
+VisibleModules=30,2,14,5,6,19,31,27,18,11,32
diff --git a/B4A/Starter.bas b/B4A/Starter.bas
index e7d18c5..1139978 100644
--- a/B4A/Starter.bas
+++ b/B4A/Starter.bas
@@ -226,6 +226,20 @@ Sub JobDone(Job As HttpJob)
 						End If
 					Next
 				End If
+				
+				'GUARDA PESOS
+				If result.Tag.As(String).StartsWith("insertPesos_") Then
+					For Each records() As Object In result.Rows
+						Private id() = Regex.Split("_", result.tag)
+						If id.Length > 1 Then
+							For Each k As String In result.Columns.Keys
+'							Log(RESULT.Tag & ": " & k & ": " & records(RESULT.Columns.Get(k)))
+								skmt.ExecNonQuery($"update pesos set PE_ENVIO_OK = 1 where PE_CLIENTE = '${id(1)}'"$)
+'							Log($"update bitacoragps set enviado = 1 where id = '${id(1)}'"$)
+							Next
+						End If
+					Next
+				End If
 			End If
 		End If
 		Log(">>>>> Job.Release Starter")
diff --git a/B4A/Tracker.bas b/B4A/Tracker.bas
index 98d520f..97ef97c 100644
--- a/B4A/Tracker.bas
+++ b/B4A/Tracker.bas
@@ -304,6 +304,9 @@ Sub revisaUUG 'ignore
 End Sub
 
 Sub guardaYEnviaUbicacion(lat As String, lon As String)
+	LogColor("#######################################", Colors.Magenta)
+	LogColor("#######################################", Colors.Magenta)
+	LogColor("#######################################", Colors.Magenta)
 	DateTime.DateFormat="yy-MM-dd HH:mm:ss"
 	Private fecha As String = DateTime.Date(DateTime.Now)
 	DateTime.DateFormat="yyMMddHHmmss"
@@ -315,5 +318,6 @@ Sub guardaYEnviaUbicacion(lat As String, lon As String)
 	cmd.Name = "guardaHistorialUbicaciones"
 	If B4XPages.MainPage.lat_gps.Length < 15 Then B4XPages.MainPage.lat_gps = B4XPages.MainPage.lat_gps&"0"
 	cmd.Parameters = Array As Object(Subs.traeAlmacen, Subs.traeRuta, usuario, lat, lon, fecha)
+	Log($"${Subs.traeAlmacen}, ${Subs.traeRuta}, ${usuario}, ${lat}, ${lon}, ${fecha}"$)
 	Starter.reqManager.ExecuteCommand(cmd, $"guardaHistorialUbicaciones_${id}"$)
 End Sub
\ No newline at end of file