Текущая версия на 16:54, 11 января 2020

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

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

PrnFreeBookmarks( pipeline )

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

@@ Строка 2: / Строка 2: @@
   Отключение помеченных записей для генератора отчетов
 [[PrnFreeBookmarks]]( pipeline )
-= Текст =
- type
-  TQREv[[PrnFreeBookmarks]] = class(TQREvDbFunction)
-  public
-    function Calculate: TQREvResult; override;
-  end;
- function TQREv[[PrnFreeBookmarks]].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]]