FullNameGroup — различия между версиями
Материал из Фабиус wiki
Hisava (обсуждение | вклад) м |
Hisava (обсуждение | вклад) м |
||
| Строка 15: | Строка 15: | ||
begin | begin | ||
Result.Kind := ResString; | Result.Kind := ResString; | ||
| − | Result.StrResult := FullNameGroup(Argument(0).StrResult, Argument(1).StrResult); | + | Result.StrResult := [[FullNameGroup]](Argument(0).StrResult, Argument(1).StrResult); |
end | end | ||
else | else | ||
Версия 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;
Смотрите также
Функция FULLNAMEGROUP2
