diff --git a/B4A/C_NoVenta.bas b/B4A/C_NoVenta.bas
index 1d567c9..db27b32 100644
--- a/B4A/C_NoVenta.bas
+++ b/B4A/C_NoVenta.bas
@@ -60,6 +60,11 @@ Sub B4XPage_Appear
 		ToastMessageShow("Es necesario tener el GPS encendido", True)
 		StartActivity(Starter.gps.LocationSettingsIntent)
 	End If
+	r_1.Checked = False
+	r_2.Checked = False
+	r_3.Checked = False
+	r_4.Checked = False
+	e_comm.Text = ""
 End Sub
 
 Sub GPS_LocationChanged (Location1 As Location)
@@ -98,8 +103,8 @@ Sub GUARDA_Click
 	End If
 	
 	
-	B4XPages.MainPage.skmt.ExecNonQuery("delete from pedido_cliente where pc_cliente in (Select CUENTA from cuentaa)")
-	B4XPages.MainPage.skmt.ExecNonQuery("delete from pedido where pe_cliente in (Select CUENTA from cuentaa)")
+'	B4XPages.MainPage.skmt.ExecNonQuery("delete from pedido_cliente where pc_cliente in (Select CUENTA from cuentaa)")
+'	B4XPages.MainPage.skmt.ExecNonQuery("delete from pedido where pe_cliente in (Select CUENTA from cuentaa)")
 	
 	B4XPages.MainPage.skmt.ExecNonQuery2("INSERT INTO  NOVENTA (NV_CLIENTE,NV_FECHA,NV_USER,NV_MOTIVO,NV_COMM,NV_LAT,NV_LON) VALUES(?,?,?,?,?,?,?) ", Array As Object (cuenta,sDate & sTime, usuario, motivo,e_comm.text, B4XPages.MainPage.lat_gps, B4XPages.MainPage.lon_gps))
 	B4XPages.MainPage.skmt.ExecNonQuery("UPDATE kmt_info set gestion = 3  where CAT_CL_CODIGO In (select cuenta from cuentaa)")
diff --git a/B4A/MARQUEZ.b4a b/B4A/MARQUEZ.b4a
index c62e428..2a1608a 100644
--- a/B4A/MARQUEZ.b4a
+++ b/B4A/MARQUEZ.b4a
@@ -189,7 +189,7 @@ Version=12.5
 #Region  Project Attributes 
 	#ApplicationLabel: Marquez
 	#VersionCode: 1
-	#VersionName: 4.05.19
+	#VersionName: 4.05.20
 	'SupportedOrientations possible values: unspecified, landscape or portrait.
 	#SupportedOrientations: portrait
 	#CanInstallToExternalStorage: False
diff --git a/B4A/MARQUEZ.b4a.meta b/B4A/MARQUEZ.b4a.meta
index f597800..39d64f4 100644
--- a/B4A/MARQUEZ.b4a.meta
+++ b/B4A/MARQUEZ.b4a.meta
@@ -85,6 +85,6 @@ ModuleClosedNodes6=
 ModuleClosedNodes7=
 ModuleClosedNodes8=
 ModuleClosedNodes9=
-NavigationStack=Diseñador Visual,login.bal,-100,1,C_Mapas,Class_Globals,0,0,MAPA_RUTAS,MapFragment1_Ready,231,1,MAPA_RUTAS,OnInfoWindowClickListener1_click,270,1,Starter,Timer1_Tick,61,0,Starter,ENVIA_ULTIMA_GPS,87,0,C_Principal,B4XPage_Appear,425,4,C_Cliente,MODS,0,0,Starter,Process_Globals,17,0,B4XMainPage,i_engrane_Click,689,0
+NavigationStack=MAPA_RUTAS,OnInfoWindowClickListener1_click,270,1,Starter,Timer1_Tick,61,0,Starter,ENVIA_ULTIMA_GPS,87,0,C_Principal,B4XPage_Appear,425,4,C_Cliente,MODS,0,0,Starter,Process_Globals,17,0,B4XMainPage,i_engrane_Click,689,0,C_NoVenta,B4XPage_Created,37,0,Subs,pedidoGuardado,1414,0,C_NoVenta,GUARDA_Click,94,0,C_NoVenta,B4XPage_Appear,51,0
 SelectedBuild=0
-VisibleModules=1,2,3,4,5,6,7,8,9,10,13,26
+VisibleModules=1,2,3,4,5,6,7,8,9,10,27
diff --git a/B4A/Subs.bas b/B4A/Subs.bas
index b15feb3..4e7e4cf 100644
--- a/B4A/Subs.bas
+++ b/B4A/Subs.bas
@@ -1418,7 +1418,7 @@ Sub pedidoGuardado As Boolean
 	Private g As Cursor = B4XPages.MainPage.skmt.ExecQuery("select gestion from kmt_info where CAT_CL_CODIGO in (Select CUENTA from cuentaa)")
 	If g.RowCount > 0 Then
 		g.Position=0
-		If g.GetString("gestion") = "2" Then guardado = True
+		If g.GetString("gestion") = "2" or g.GetString("gestion") = "3" Then guardado = True
 	End If
 '	Log($"Guardado=${guardado}"$)
 	Return guardado