FullNameGroup — различия между версиями
Материал из Фабиус wiki
Hisava (обсуждение | вклад) м (→Смотрите также) |
Hisava (обсуждение | вклад) м (→Полный текст функции) |
||
| Строка 5: | Строка 5: | ||
type | type | ||
| − | + | TQREv[[FullNameGroup]] = class(TQREvDbFunction) | |
public | public | ||
function Calculate: TQREvResult; override; | function Calculate: TQREvResult; override; | ||
end; | end; | ||
| − | function | + | function TQREv[[FullNameGroup]].Calculate: TQREvResult; |
begin | begin | ||
if (ArgList.Count = 2) and (Argument(0).Kind = ResString) and (Argument(1).Kind = ResString) then | if (ArgList.Count = 2) and (Argument(0).Kind = ResString) and (Argument(1).Kind = ResString) then | ||
Версия 15:00, 5 мая 2017
FullNameGroup - это функция, описанная в файле QrAddFn.pas
Функция возвращает полное название группы
FullNameGroup( KINDDOC, CODEGROUP )
Полный текст функции
type
TQREvFullNameGroup = class(TQREvDbFunction)
public
function Calculate: TQREvResult; override;
end;
function TQREvFullNameGroup.Calculate: TQREvResult;
begin
if (ArgList.Count = 2) and (Argument(0).Kind = ResString) and (Argument(1).Kind = ResString) then
begin
Result.Kind := ResString;
Result.StrResult := FullNameGroup(Argument(0).StrResult, Argument(1).StrResult);
end
else
Result := ErrorCreate(Format(SqrExpWrongArguments, ['FullNameGroup']));
end;
