PrnFreeBookmarks — различия между версиями
Материал из Фабиус wiki
Hisava (обсуждение | вклад) м |
Hisava (обсуждение | вклад) м |
||
| Строка 4: | Строка 4: | ||
Отключение помеченных записей для генератора отчетов | Отключение помеченных записей для генератора отчетов | ||
| + | |||
| + | = Текст программы = | ||
| + | |||
| + | 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; | ||
| + | |||
= Смотрите также = | = Смотрите также = | ||
Версия 10:07, 2 сентября 2016
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;
