Tareas #846: Se arregla fallo de selección en el grid al cambiar de estado una linea seleccionada sobre un grid filtrado

git-svn-id: https://192.168.0.254/svn/Proyectos.AbetoDesign_FactuGES/trunk@49 93f398dd-4eb6-7a46-baf6-13f46f578da2
This commit is contained in:
roberto 2012-03-14 15:25:31 +00:00
parent c923ea07b1
commit d1a9a9cd27

View File

@ -88,12 +88,13 @@ var
AList: TList; AList: TList;
AKeyValue: Variant; AKeyValue: Variant;
begin begin
I := 0;
Result := nil;
if not Assigned(RecordInfo) then if not Assigned(RecordInfo) then
Exit; Exit;
I := 0;
ARecordIndex := AView.DataController.FindRecordIndexByKey(RecordInfo.KeyValues); ARecordIndex := AView.DataController.FindRecordIndexByKey(RecordInfo.KeyValues);
Result := nil;
AList := TList.Create; AList := TList.Create;
try try
while I < AView.ViewData.RowCount do while I < AView.ViewData.RowCount do