PrnFreeBookmarks — различия между версиями
Материал из Фабиус wiki
Hisava (обсуждение | вклад) м (→Текст программы) |
Hisava (обсуждение | вклад) м |
||
| Строка 1: | Строка 1: | ||
| − | PrnFreeBookmarks - это процедура | + | [[PrnFreeBookmarks]] - это процедура |
| − | + | Отключение помеченных записей для генератора отчетов | |
| − | + | [[PrnFreeBookmarks]]( pipeline ) | |
| − | + | = Текст = | |
| − | Отключение помеченных записей для генератора отчетов | + | |
| − | + | ||
| − | = Текст | + | |
type | type | ||
| − | + | TQREv[[PrnFreeBookmarks]] = class(TQREvDbFunction) | |
public | public | ||
function Calculate: TQREvResult; override; | function Calculate: TQREvResult; override; | ||
end; | end; | ||
| − | function | + | function TQREv[[PrnFreeBookmarks]].Calculate: TQREvResult; |
begin | begin | ||
if (ArgList.Count > 0) and (Argument(0).Kind = ResObject) and | if (ArgList.Count > 0) and (Argument(0).Kind = ResObject) and | ||
| Строка 22: | Строка 19: | ||
begin | begin | ||
if PrintForm = nil then | if PrintForm = nil then | ||
| − | Result := ErrorCreate(Format(SqrExpWrongArguments, [' | + | Result := ErrorCreate(Format(SqrExpWrongArguments, ['[[PrnFreeBookmarks]]'])) |
else if PrintForm is TFormRpt then | else if PrintForm is TFormRpt then | ||
if TFormRpt(PrintForm).Report.DataPipeLine <> nil then | if TFormRpt(PrintForm).Report.DataPipeLine <> nil then | ||
| Строка 28: | Строка 25: | ||
else | else | ||
Result := ErrorCreate(Format(SqrExpWrongArguments, | Result := ErrorCreate(Format(SqrExpWrongArguments, | ||
| − | [' | + | ['[[PrnFreeBookmarks]]'])); |
end; | end; | ||
end; | end; | ||
Версия 09:51, 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;
