Tecistel/Tecsitel_FactuGES2
0
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Ticket #114 -> En una ficha de presupuesto, sin haber hecho ningún cambio, siempre dice que hay cambios pendientes. Se ha reescrito el comportamiento de 'GetModified' en el editor de presupuesto.

Browse Source 
git-svn-id: https://192.168.0.254/svn/Proyectos.Tecsitel_FactuGES2/trunk@814 0c75b7a4-871f-7646-8a2f-f78d34cc349f
This commit is contained in:
David Arranz 2008-12-23 10:48:13 +00:00
parent 1a9ff7d514
commit c0250fee9f
1 changed files with 9 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
Source/Modulos/Presupuestos de cliente/Views/uEditorPresupuestoCliente.pas
View File

@ -105,7 +105,7 @@ implementation
uses uses
uViewDatosYSeleccionCliente, uDataModuleUsuarios, uClientesController, uViewDatosYSeleccionCliente, uDataModuleUsuarios, uClientesController,
uBizDireccionesContacto, uDialogUtils, uFactuGES_App; uBizDireccionesContacto, uDialogUtils, uFactuGES_App, uDataTableUtils;
{$R *.dfm} {$R *.dfm}
@ -232,10 +232,15 @@ end;
function TfEditorPresupuestoCliente.GetModified: Boolean; function TfEditorPresupuestoCliente.GetModified: Boolean;
begin 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 if not Result then
Result := frViewDocumentosPresupuestoCliente1.Modified; Result := frViewDocumentosPresupuestoCliente1.Modified;
end;
end; end;
function TfEditorPresupuestoCliente.GetPresupuesto: IBizPresupuestoCliente; function TfEditorPresupuestoCliente.GetPresupuesto: IBizPresupuestoCliente;