20/12/23 - Correcciones en el abordo, carga local y boton de noVenta

- En los productos del pedido de abordo ahora aparece el inventario que traen en ese momento.
- Al hacer la restauracion de carga local mandaba un error.
- El boton de NoVenta aparecia momentaneamente al poner una contraseña equivocada en la geocerca.

B4A/C_Cliente.bas

@@ -811,6 +811,7 @@ Sub GPS_LocationChanged (Location1 As Location)
 
 		If gps_boton_doe = "1" And clienteConPromo = "0" And revisaExistenciasDOE Then b_whats.Visible = True
 		If Not(clienteDeudor) Then B_VENTA.Visible = True 'Si el cliente no tiene adeudo, habilitamos el boton de venta
+		If Not(clienteId.StartsWith("N")) And la_cuenta.Text <> "0" Then b_noVenta.Visible = True 'Ni cliente nuevo, ni abordo.
 		If Not(p_rechazoDOE.Visible) Then pedido_doe_muestra
 	Else
 		b_noVenta.Visible = False
@@ -3906,7 +3907,6 @@ Private Sub b_geopass_Click
 		Log($"${Starter.DBReqServer}, ${et_geopass.Text}, ${Subs.traeAlmacen}, ${Subs.traeRuta}"$)
 		et_geopass.Text = ""
 	End If
-	If Not(clienteId.StartsWith("N")) And la_cuenta.Text <> "0" Then b_noVenta.Visible = True 'Ni cliente nuevo, ni abordo.
 	p_pideGeoPass.Visible = False
 	ime.HideKeyboard
 '	Log("Guardamos coords")