Получение юр.адр - L_KatOrg::OrganizationJuridicalInfo

[masygreen]

День добрый (гал 8.1)... необходимо получить юридический адрес организации ..
в Галактике есть соответствующие функции ..но чего то не получается

Код: Выделить всё

.var
Rez:Boolean;
OrgJu:OrganizationJuridicalInfo;
vcatorg:comp;
juraddr:string;
.endvar
.begin
vcatorg:=comp(0);
vcatorg:=t2.katorg.nrec;
Rez := OrgJu.Seek(vcatorg);
juraddr:= OrgJu.GetJuridicalAddressStr();
end.

чего не так ? подскажите?

[masygreen]

Такой код тоже ошибку дает

Код: Выделить всё

.var
vcatorg:comp;
OrganizationRef: comp;
JuridicalInfo: IOrganizationJuridicalInfo;
XarAddres:string;
.endvar
.begin
probel:=’ ’;
vcatorg:=t2.katorg.nrec;
LoadVipRef(JuridicalInfo, 'OrganizationJuridicalInfo');
GetBoundOrganization(vcatorg, OrganizationRef);
IOrganizationInfoFinder(JuridicalInfo).Seek(OrganizationRef)
XarAddres := JuridicalInfo.GetJuridicalAddressStr;
Message(XarAddres);
end. 

[Screw]

А что за ошибка-то?

[masygreen]

ссылка не была инициализирована...

[Screw]

А как же

Код: Выделить всё

LoadVipRef(JuridicalInfo, 'OrganizationJuridicalInfo');

?

[masygreen]

Проблема решена .. оказалось достаточно

Код: Выделить всё

var OrgInf:OrganizationJuridicalInfo;
IOrganizationInfoFinder(OrgInf).Seek(Katorg.nrec);
message(OrgInf.GetJuridicalAddressStr());