radiobutton de no venta se desmarcan y no deja eliminar su venta deshabilitando los botones

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