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

uGridClipboardUtils: corregido un if que estaba mal.

Browse Source 
git-svn-id: https://192.168.0.254/svn/Proyectos.Tecsitel_FactuGES2/trunk@410 0c75b7a4-871f-7646-8a2f-f78d34cc349f
This commit is contained in:
David Arranz 2008-06-02 18:12:24 +00:00
parent ecd7a905bf
commit 458961b56c
1 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
Source/Base/Utiles/uGridClipboardUtils.pas
View File

@ -76,7 +76,6 @@ var
Result := False; Result := False;
for i := 0 to AView.ItemCount - 1 do for i := 0 to AView.ItemCount - 1 do
begin begin
bNombreOk := False;
if (AView.Items[i].DataBinding is TcxGridItemDBDataBinding) then if (AView.Items[i].DataBinding is TcxGridItemDBDataBinding) then
with (AView.Items[i].DataBinding as TcxGridItemDBDataBinding) do with (AView.Items[i].DataBinding as TcxGridItemDBDataBinding) do
bNombreOk := (FieldName = AName) bNombreOk := (FieldName = AName)
@ -129,8 +128,10 @@ begin
begin begin
ARecordIndex := AView.DataController.FocusedRecordIndex; ARecordIndex := AView.DataController.FocusedRecordIndex;
if ARecordIndex >= 0 then if ARecordIndex >= 0 then
begin
ARecordID := AView.DataController.GetRecordId(ARecordIndex); ARecordID := AView.DataController.GetRecordId(ARecordIndex);
ADataSet.Locate(AView.DataController.KeyFieldNames, ARecordID, []); ADataSet.Locate(AView.DataController.KeyFieldNames, ARecordID, []);
end;
end; end;
for iContador := 0 to NumFilas - 1 do for iContador := 0 to NumFilas - 1 do