Версия 10:00, 10 мая 2017

PrnFreeBookmarks - это процедура

Отключение помеченных записей для генератора отчетов

PrnFreeBookmarks( pipeline )

Текст

type
 TQREvPrnFreeBookmarks = class(TQREvDbFunction)
 public
   function Calculate: TQREvResult; override;
 end;

function TQREvPrnFreeBookmarks.Calculate: TQREvResult;
begin
 if (ArgList.Count > 0) and (Argument(0).Kind = ResObject) and
   (Argument(0).ObjResult is TppDataPipeline) then
   with Argument(0).ObjResult as TppDataPipeline do
     FreeBookmarks
 else
 begin
   if PrintForm = nil then
     Result := ErrorCreate(Format(SqrExpWrongArguments, ['PrnFreeBookmarks']))
   else if PrintForm is TFormRpt then
     if TFormRpt(PrintForm).Report.DataPipeLine <> nil then
       TFormRpt(PrintForm).Report.DataPipeLine.FreeBookmarks
     else
       Result := ErrorCreate(Format(SqrExpWrongArguments,
         ['PrnFreeBookmarks']));
 end;
end;

Смотрите также

Полезные функции

Функции Delphi