PrnFreeBookmarks — различия между версиями
Материал из Фабиус wiki
Hisava (обсуждение | вклад) м |
Hisava (обсуждение | вклад) м (→Текст программы) |
||
| Строка 7: | Строка 7: | ||
= Текст программы = | = Текст программы = | ||
| − | type | + | type |
TQREvPrnFreeBookMarks = class(TQREvDbFunction) | TQREvPrnFreeBookMarks = class(TQREvDbFunction) | ||
public | public | ||
| Строка 13: | Строка 13: | ||
end; | end; | ||
| − | function TQREvPrnFreeBookMarks.Calculate: TQREvResult; | + | function TQREvPrnFreeBookMarks.Calculate: TQREvResult; |
| − | begin | + | begin |
if (ArgList.Count > 0) and (Argument(0).Kind = ResObject) and | if (ArgList.Count > 0) and (Argument(0).Kind = ResObject) and | ||
(Argument(0).ObjResult is TppDataPipeline) then | (Argument(0).ObjResult is TppDataPipeline) then | ||
| Строка 30: | Строка 30: | ||
['PrnFreeBookMarks'])); | ['PrnFreeBookMarks'])); | ||
end; | end; | ||
| − | end; | + | end; |
| − | + | ||
= Смотрите также = | = Смотрите также = | ||
Версия 10:08, 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;
