InDate: IRdsAttribute;
The InDate property returns a system attribute of a dictionary, which assignment is Element Action Start Date.
The attribute has the Date type, it cannot contain empty and multiple values. It is hidden by default. The attribute identifier is INDATE.
The attribute is available if the TimeDependent property is set to True, and it is used to fix changes of attribute values.
Executing the example requires the MDM repository NSI_1 that contains an MDM dictionary with the Dict_1 identifier. Element changes by time are set for a dictionary.
Sub Main;
Var
MB: IMetabase;
Dict: IRdsDictionary;
DictInst: IRdsDictionaryInstance;
Elements: IRdsDictionaryElements;
Attrs: IRdsAttributes;
Hist: IRdsDictionaryElementHistory;
i, j, InDate, OutDate, Name: Integer;
Begin
MB := MetabaseClass.Active;
Dict := MB.ItemByIdNamespace("Dict_1", MB.ItemById("NSI_1").Key).Bind As IRdsDictionary;
Attrs := Dict.Attributes;
InDate := Attrs.InDate.Key;
OutDate := Attrs.OutDate.Key;
Name := Attrs.Name.Key;
DictInst := Dict.Open(Null);
Elements := DictInst.Elements;
For i := 1 To Elements.Count - 1 Do
Hist := Elements.Item(i).History;
Debug.WriteLine(Elements.Item(i).Name);
For j := 0 To Hist.Count - 1 Do
Debug.Write(Start: + Hist.Attribute(j, InDate));
Debug.Write( Finish: + Hist.Attribute(j, OutDate));
Debug.WriteLine( Value on this interval: + Hist.Attribute(j, Name));
End For;
End For;
End Sub Main;
After executing the example history of values of the Name attribute is displayed in the console for all dictionary elements.
See also: