diff --git a/Source/Modulos/Presupuestos de cliente/Views/uEditorPresupuestoCliente.pas b/Source/Modulos/Presupuestos de cliente/Views/uEditorPresupuestoCliente.pas
index 782a4400..a832fffc 100644
--- a/Source/Modulos/Presupuestos de cliente/Views/uEditorPresupuestoCliente.pas	
+++ b/Source/Modulos/Presupuestos de cliente/Views/uEditorPresupuestoCliente.pas	
@@ -105,7 +105,7 @@ implementation
 
 uses
   uViewDatosYSeleccionCliente, uDataModuleUsuarios, uClientesController,
-  uBizDireccionesContacto, uDialogUtils, uFactuGES_App;
+  uBizDireccionesContacto, uDialogUtils, uFactuGES_App, uDataTableUtils;
 
 {$R *.dfm}
 
@@ -232,10 +232,15 @@ end;
 
 function TfEditorPresupuestoCliente.GetModified: Boolean;
 begin
-  Result := inherited GetModified;
+  // inherited;  <- No llamar al padre porque queremos tratamiento especial.
+  if ReadOnly then
+     Result := False
+  else begin
+    Result := DataTableModified(dsDataTable.DataTable);
 
-  if not Result then
-     Result := frViewDocumentosPresupuestoCliente1.Modified;
+    if not Result then
+      Result := frViewDocumentosPresupuestoCliente1.Modified;
+  end;
 end;
 
 function TfEditorPresupuestoCliente.GetPresupuesto: IBizPresupuestoCliente;