diff --git a/B4A/B4XMainPage.bas b/B4A/B4XMainPage.bas
index c6f392b..36981d5 100644
--- a/B4A/B4XMainPage.bas
+++ b/B4A/B4XMainPage.bas
@@ -5,7 +5,7 @@ Type=Class
 Version=9.85
 @EndOfDesignText@
 #Region Shared Files
-#CustomBuildAction: folders ready, %WINDIR%\System32\Robocopy.exe,"..\..\Shared Files" "..\Files"
+'#CustomBuildAction: folders ready, %WINDIR%\System32\Robocopy.exe,"..\..\Shared Files" "..\Files"
 	'Ctrl + click to sync files: ide://run?file=%WINDIR%\System32\Robocopy.exe&args=..\..\Shared+Files&args=..\Files&FilesSync=True
 	'Ctrl + click to export as zip: ide://run?File=%B4X%\Zipper.jar&Args=Project.zip
 	'###########################################################################################################
diff --git a/B4A/C_Cliente.bas b/B4A/C_Cliente.bas
index 61e9f15..382ffe8 100644
--- a/B4A/C_Cliente.bas
+++ b/B4A/C_Cliente.bas
@@ -699,7 +699,7 @@ Sub GPS_LocationChanged (Location1 As Location)
 	gest.Visible = True
 '	gps_boton_doe ="1"
 '	LogColor($"Distancia actual: ${distance}"$, Colors.Blue)
-	If distance <= 5000000 Or usuario = "KMTSKLL1" Then
+	If distance <= 5000000 Or usuario = "KMTSKLL1" Or la_cuenta.Text = "0" Then
 '		If pgs_boton_noventa = "1" Then b_noVenta.Visible = True
 '		If gps_boton_doe ="1" Then b_whats.Visible = True
 		B_VENTA.Visible = True
diff --git a/B4A/C_Productos.bas b/B4A/C_Productos.bas
index a8e2c6b..61d9858 100644
--- a/B4A/C_Productos.bas
+++ b/B4A/C_Productos.bas
@@ -890,7 +890,7 @@ Private Sub lv_prodsPedido_ItemLongClick (Position As Int, Value As Object)
 	Log("lista prods="&list_prodsPedido.Get(Position))
 	Private m As Map = list_prodsPedido.Get(Position)
 	Log("m1= "&m)
-	If c.GetString("CUANTOS") = 0 Or Subs.clienteActual = "0" Then 'Si la venta no está impresa o es abordo entonces continuamos ...
+	If c.GetString("CUANTOS") = 0 Then 'Si la venta no está impresa o es abordo entonces continuamos ...  'Para que baordo pueda borra poner "Or Subs.clienteActual = "0""
 		Private sDate,sTime, clie_id, usuario As String
 		result =  Msgbox2("Seguro que desea borrar este articulo?","Borrar Articulo", "Si", "", "No",LoadBitmap(File.DirAssets,"alert2.png")) 'ignore
 		If result = DialogResponse.POSITIVE Then
diff --git a/B4A/KelloggsV4.b4a b/B4A/KelloggsV4.b4a
index 57cdc60..682811c 100644
--- a/B4A/KelloggsV4.b4a
+++ b/B4A/KelloggsV4.b4a
@@ -172,7 +172,7 @@ Version=12.5
 #Region  Project Attributes	
 	#ApplicationLabel: Kelloggs Venta
 	#VersionCode: 3000
-	#VersionName: 3.09.19 PRUEBA V4
+	#VersionName: 3.09.24 PRUEBA V4
 	#SupportedOrientations: portrait
 	#CanInstallToExternalStorage: False
 	#BridgeLogger:true
diff --git a/B4A/KelloggsV4.b4a.meta b/B4A/KelloggsV4.b4a.meta
index 63c5938..8f24261 100644
--- a/B4A/KelloggsV4.b4a.meta
+++ b/B4A/KelloggsV4.b4a.meta
@@ -85,6 +85,6 @@ ModuleClosedNodes6=
 ModuleClosedNodes7=
 ModuleClosedNodes8=
 ModuleClosedNodes9=
-NavigationStack=C_Cliente,B4XPage_Created,299,0,C_Cliente,B4XPage_Appear,440,3,C_Cliente,B_IMP2_Click,1019,0,C_Cliente,B_IMP2BAK_Click,1494,0,C_Cliente,B_VENTA_Click,1919,0,C_Nota,B4XPage_Appear,93,0,C_Nota,borra_Click,193,6,C_Nota,clv_pedidos_ItemLongClick,360,6,C_Nota,Class_Globals,1,0,C_Mapas,Class_Globals,0,0,C_Pedidos,Class_Globals,4,0
+NavigationStack=C_Pedidos,Class_Globals,4,0,C_Cliente,Class_Globals,0,0,C_Cliente,B4XPage_Created,281,0,C_Cliente,Initialize,278,0,C_Cliente,B_VENTA_Click,1918,0,C_Cliente,B4XPage_Appear,452,0,Visual Designer,cliente.bal,-100,2,C_Cliente,ListView1_ItemLongClick,708,0,C_Cliente,GPS_LocationChanged,695,5,C_Productos,lv_prodsPedido_ItemLongClick,886,6,C_Productos,clv_prods_ll_VisibleRangeChanged,1030,0
 SelectedBuild=0
 VisibleModules=1,26,11,14,27,3,4,13,12,2,10