PrnFreeBookmarks — различия между версиями

Материал из Фабиус wiki
Перейти к: навигация, поиск
м
м
 
(не показаны 3 промежуточные версии этого же участника)
Строка 1: Строка 1:
PrnFreeBookmarks - это процедура
+
[[PrnFreeBookmarks]] - это процедура
 
+
Отключение помеченных записей для генератора отчетов
PrnFreeBookmarks(pipeline)
+
[[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]]
 
[[Функции Delphi]]
 
[[Полезные функции]]
 

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

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

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

PrnFreeBookmarks( pipeline )

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

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

Функции Delphi