Tecistel/Tecsitel_FactuGES2
0
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.Tecsitel_FactuGES2/trunk@165 0c75b7a4-871f-7646-8a2f-f78d34cc349f
This commit is contained in:
David Arranz 2007-12-12 20:02:04 +00:00
parent 9b9ed5726d
commit e8182186cf
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;
begin
bCambiado := False;
if Assigned(ADataTable) and (ADataTable.Active) then
begin
bCambiado := (ADataTable.State = dsEdit) or
DeltaValuesAreDifferent(ADataTable.Delta);
bCambiado :=(ADataTable.State = dsEdit) or
(ADataTable.HasDelta and DeltaValuesAreDifferent(ADataTable.Delta));
if (not bCambiado) then
begin
@ -197,7 +198,8 @@ begin
begin
bCambiado := bCambiado 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
Break;
end;