diff --git a/B4A/C_NoVenta.bas b/B4A/C_NoVenta.bas
index d953887..0b96007 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)
diff --git a/B4A/INTMEX.b4a b/B4A/INTMEX.b4a
index ff3e1fb..c0c7fc6 100644
--- a/B4A/INTMEX.b4a
+++ b/B4A/INTMEX.b4a
@@ -163,7 +163,7 @@ Version=12.5
 #Region  Project Attributes 
 	#ApplicationLabel: Intmex
 	#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/INTMEX.b4a.meta b/B4A/INTMEX.b4a.meta
index 91a61df..71b9f99 100644
--- a/B4A/INTMEX.b4a.meta
+++ b/B4A/INTMEX.b4a.meta
@@ -85,6 +85,6 @@ ModuleClosedNodes6=
 ModuleClosedNodes7=
 ModuleClosedNodes8=
 ModuleClosedNodes9=
-NavigationStack=C_Productos,b_continuar_Click,792,0,C_Productos,clv_prods_ll_VisibleRangeChanged,999,0,C_Productos,b_prodMas_Click,572,0,C_Productos,cuentaProds,710,0,C_Productos,et_pCant_TextChanged,675,6,MAPA_RUTAS,MapFragment1_Ready,230,0,Starter,ENVIA_ULTIMA_GPS,86,0,C_Principal,B4XPage_Created,264,3,C_Principal,B4XPage_Appear,436,2,C_NoVenta,B4XPage_Created,37,0,C_NoVenta,GUARDA_Click,110,0
+NavigationStack=C_Principal,B4XPage_Appear,436,2,C_NoVenta,B4XPage_Created,37,0,C_Nota,Class_Globals,0,0,C_Nota,borra_Click,162,0,C_Nota,B4XPage_CloseRequest,146,0,Subs,pedidoGuardado,1400,0,C_Nota,B4XPage_Appear,124,0,C_NoVenta,GUARDA_Click,67,0,Diseñador Visual,noventa.bal,-100,2,C_NoVenta,B4XPage_Appear,56,6
 SelectedBuild=0
 VisibleModules=2,26,13,16,14,4,27,15,9,6,10
diff --git a/B4A/Subs.bas b/B4A/Subs.bas
index 70f5217..31f513c 100644
--- a/B4A/Subs.bas
+++ b/B4A/Subs.bas
@@ -1404,7 +1404,8 @@ 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