- VERSION 4.12.02

- Se modificó como se trae la ruta para suplencia, porque en elgunas ocasiones resgresaba la ruta como CERO.

B4A/C_Cliente.bas

@@ -934,6 +934,7 @@ Sub B4XPage_Appear
 '	Log($">>>>>>>>>>    |${la_cuenta.Text.trim}|"$)
 	If la_cuenta.Text.trim = "0" Then gest.Text = "Carga Abordo"
 '	Log($"ALMACEN: ${ALMACEN}${CRLF}RUTA:${LA_RUTA}"$)
+	Log(Subs.traeRuta)
 End Sub
 
 Sub GPS_LocationChanged (Location1 As Location)
@@ -4801,6 +4802,7 @@ Private Sub LA_GEO_Click
 		geoCont = 0
 		If distance > 99 Then
 			p_pideGeoPass.BringToFront
+			et_geopass.RequestFocus
 			p_pideGeoPass.Visible = True
 		End If
 	End If