IRdsParamsControlInstance.ReferenceDictionary

Синтаксис Fore

ReferenceDictionary: IRdsDictionaryInstance;

Синтаксис Fore.NET

ReferenceDictionary : Prognoz.Platform.Interop.Rds.IRdsDictionaryInstance;

Описание

Свойство ReferenceDictionary возвращает данные связанного справочника, параметрами которого осуществляется управление.

Пример Fore

Для выполнения примера предполагается наличие репозитория НСИ с идентификатором «NSI_1», содержащего справочник НСИ с идентификаторами «Dict_1». В справочнике имеется связь с каким-либо другим справочником НСИ. В качестве связываемого атрибута выступает атрибут с идентификатором «ATTRIBUTE». В связываемом справочнике имеется один параметр, для управления значениями которого используется атрибут «FOR_PARAM» справочника «Dict_1».

Sub Macro;
Var
    MB: IMetabase;
    MObj: IMetabaseObject;
    Dict: IRdsDictionary;
    Attr: IRdsAttributes;
    Inst, Inst1: IRdsDictionaryInstance;
    Data: IRdsDictionaryElementData;
    ParamContrInst: IRdsParamsControlInstance;
Begin
    MB := MetabaseClass.Active;
    MObj := MB.ItemByIdNamespace("Dict_1", MB.ItemById("NSI_1").Key).Bind;
    Dict := MObj As IRdsDictionary;
    Inst := MObj.Open(Null) As IRdsDictionaryInstance;
    Attr := Dict.Attributes;
    Data := Inst.CreateElementData;
    Data.Attribute(Attr.FindById("FOR_PARAM").Key) := 1;
    ParamContrInst := Data.ParamsControl(Inst.Links.Item(0));
    Inst1 := ParamContrInst.ReferenceDictionary;
    Data.Attribute(Attr.FindById("ATTRIBUTE").Key) := Inst1.Elements.Item(1).Key;
    Data.Attribute(Attr.Name.Key) := "New";
    Inst.Insert(2, Data);
End Sub Macro;

После выполнения примера в справочнике «Dict_1» будет создан новый элемент. В качестве значения атрибута «ATTRIBUTE» будет выбран первый элемент из связанного справочника, открытого при значении параметра «1».

Пример Fore.NET

Для выполнения примера предполагается наличие репозитория НСИ с идентификатором «NSI_1», содержащего справочник НСИ с идентификаторами «Dict_1». В справочнике имеется связь с каким-либо другим справочником НСИ. В качестве связываемого атрибута выступает атрибут с идентификатором «ATTRIBUTE». В связываемом справочнике имеется один параметр, для управления значениями которого, используется атрибут «FOR_PARAM» справочника «Dict_1».

Public Shared Sub Macro(Params: StartParams);
Var
    MB: IMetabase;
    MObj: IMetabaseObject;
    Dict: IRdsDictionary;
    Attr: IRdsAttributes;
    Inst, Inst1: IRdsDictionaryInstance;
    Data: IRdsDictionaryElementData;
    ParamContrInst: IRdsParamsControlInstance;
Begin
    MB := Params.Metabase;
    MObj := MB.ItemByIdNamespace["Dict_1", MB.ItemById["NSI_11"].Key].Bind();
    Dict := MObj As IRdsDictionary;
    Inst := MObj.Open(Null) As IRdsDictionaryInstance;
    Attr := Dict.Attributes;
    Data := Inst.CreateElementData();
    Data.Attribute[Attr.FindById("FOR_PARAM").Key]:= 1;
    ParamContrInst := Data.ParamsControl[Inst.Links.Item [0]];
    Inst1 := ParamContrInst.ReferenceDictionary;
    Data.Attribute[Attr.FindById("ATTRIBUTE").Key] := Inst1.Elements.Item[1].Key;
    Data.Attribute[Attr.Name.Key] := "New";
    Inst.Insert(2, Data);
End Sub;

См. также: