Acana_Interiorismo/FactuGES2
2
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Arreglado un error que se producía al comprobar si un DataTable sin deltas preparados ha sido modificado.

Browse Source 
git-svn-id: https://192.168.0.254/svn/Proyectos.Acana_FactuGES2/trunk@58 f4e31baf-9722-1c47-927c-6f952f962d4b
This commit is contained in:
roberto 2007-12-12 19:52:04 +00:00
parent cac301c1e1
commit 444d97c881
1 changed files with 5 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
Source/Base/Utiles/uDataTableUtils.pas
View File

@ -185,10 +185,11 @@ var
i : integer; i : integer;
begin begin
bCambiado := False; bCambiado := False;
if Assigned(ADataTable) and (ADataTable.Active) then if Assigned(ADataTable) and (ADataTable.Active) then
begin begin
bCambiado := (ADataTable.State = dsEdit) or bCambiado :=(ADataTable.State = dsEdit) or
DeltaValuesAreDifferent(ADataTable.Delta); (ADataTable.HasDelta and DeltaValuesAreDifferent(ADataTable.Delta));
if (not bCambiado) then if (not bCambiado) then
begin begin
@ -197,7 +198,8 @@ begin
begin begin
bCambiado := bCambiado or bCambiado := bCambiado or
((TDADataTable(dtDetails.Items[i])).State in dsEditModes) or ((TDADataTable(dtDetails.Items[i])).State in dsEditModes) or
DeltaValuesAreDifferent((TDADataTable(dtDetails.Items[i])).Delta); ((TDADataTable(dtDetails.Items[i])).HasDelta and
DeltaValuesAreDifferent((TDADataTable(dtDetails.Items[i])).Delta));
if bCambiado then if bCambiado then
Break; Break;
end; end;