Печать итоговой суммы по группе в заголовке группы
GroupnameGroupHeader: Ошибка в выражении '4,687': ';' expected
procedure GroupnameGroupFooterOnBeforePrint(Sender: TfrxComponent);
begin
Set(<ADOTable."groupname">+<ADOTable."_nameobxkt">+'q', FloatToStr(<SUM(<ADOTable."quantity">,MasterData)>));
end;
procedure GroupnameGroupHeaderOnBeforePrint(Sender: TfrxComponent);
begin
if (Engine.FinalPass) and (<ADOTable."sign"><>99) then
begin
Memo69.Text :=Get(<ADOTable."groupname">+<ADOTable."_nameobxkt">+'q'
end;
Как это победить эту ошибку?
procedure GroupnameGroupFooterOnBeforePrint(Sender: TfrxComponent);
begin
Set(<ADOTable."groupname">+<ADOTable."_nameobxkt">+'q', FloatToStr(<SUM(<ADOTable."quantity">,MasterData)>));
end;
procedure GroupnameGroupHeaderOnBeforePrint(Sender: TfrxComponent);
begin
if (Engine.FinalPass) and (<ADOTable."sign"><>99) then
begin
Memo69.Text :=Get(<ADOTable."groupname">+<ADOTable."_nameobxkt">+'q'
end;
Как это победить эту ошибку?
Комментарии
Это ИМНО не очень удобно, то такова особенность FR.
Подробнее в Руководстве пользователя.