В скрипте отчета хочу узнать Dataset

Vasily Grechishnikov

Задача:
В отчете есть несколько бэндов MasterData
Хочу в каждой строке иметь
индивидуальные настройки форматирования
количество знаков после запятой в одной из колонок.

Решение тривиальное
OnBeforePrint который меняет DisplayFormat в из поля
в датасете который выводит MasterData.

procedure
GuarantedQltValueOnBeforePrint(Sender: TfrxComponent);
begin

TfrxMemoView(Sender).DisplayFormat.FormatStr := '%2.' + Trim(IntToStr(<frdsGuarantedQlt."RoundDigits">)) + 'n';
end;


Но у меня к примеру три различных MasterData мне приходится писать
три обработчика отличающихся только ссылкой на разные датасеты.

Хочу их унифицировать.
Есть ли возможность из OnBeforePrint узнать на каком б\нде лежит View и далее из беэнда уточнить датасет и далее сказать
ему filedByName?

gpi

procedure Memo8OnBeforePrint(Sender: TfrxComponent);
begin
    if TfrxMemoView(Sender).Parent<>nil then                                               
    ShowMessage(TfrxMemoView(Sender).Parent.Name);    
end;

Vasily Grechishnikov

gpi написал: »

procedure Memo8OnBeforePrint(Sender: TfrxComponent);
begin
    if TfrxMemoView(Sender).Parent<>nil then                                               
    ShowMessage(TfrxMemoView(Sender).Parent.Name);    
end;

Я хочу немного другого

TfrxMemoView(Sender).DisplayFormat.FormatStr := '%2.' + Trim(IntToStr(<TfrxMemoView(Sender).Parent.DataSet."RoundDigits">)) + 'n';

gpi

procedure Memo8OnBeforePrint(Sender: TfrxComponent);
begin
    if TfrxMemoView(Sender).Parent<>nil then
     if TfrxMemoView(Sender).Parent is TfrxMasterData then                                             
    ShowMessage(TfrxMasterData(TfrxMemoView(Sender).Parent).DataSet.Value('Cust No'));    
end;