- VERSION 5.09.03

- Se corrigieron textos.
- Se corrigio que a veces mandaba coordenadas en blanco a la bitacora, ahora nos aseguramos de siempre tener las coordenadas disponibles

B4A/Subs.bas

@@ -1584,6 +1584,18 @@ End Sub
 'Mandar fecha de sync(sysdate)
 Sub bitacora(fechab As String, usuariob As String, almacenb As String, rutab As String, eventob As String, clienteb As String, iniciob As String, finb As String, latitudb As String, longitudb As String, precision As String, motivonoventa As String, motivonovisita As String, otro As String)
 	Log($"Bitacora: ${eventob}, mnven: ${motivonoventa}, mnvis: ${motivonovisita}"$)
+	
+	If latitudb.Length < 4 Then
+		ProgressDialogShow2("Buscando ubicación ...", False)
+		CallSubDelayed(Tracker, "Track")
+		CallSubDelayed(Tracker, "StartFLPSmall")
+		Log($"Coords actuales: ${B4XPages.MainPage.lat_gps}, ${B4XPages.MainPage.lon_gps}"$)
+		If B4XPages.MainPage.lat_gps.Length > 3 And B4XPages.MainPage.lon_gps.Length > 3 Then
+			ProgressDialogHide
+		End If
+	End If
+	
+	
 	If Starter.Logger Then Log("bitacora")
 	Private cmd As DBCommand
 	Private id As String