UnmodifiedValue: Variant;
The UnmodifiedValue property returns the record value before modifying.
Executing the example requires a time series database with the OBJ_RUBRICATOR identifier. The current database must include a time series with the key 1.
Sub Main;
Var
MB: IMetabase;
RubDesc: IMetabaseObjectDescriptor;
RubrIn: IRubricatorInstance;
Rev: IRubricatorRevision;
FactD: IRubricatorFactData;
Record: IMetaDataMemberRecord;
MemberRecord: IMetaDataMember;
Begin
MB := MetabaseClass.Active;
RubDesc := MB.ItemById("OBJ_RUBRICATOR");
RubrIn := RubDesc.Open(Null) As IRubricatorInstance;
Rev := RubrIn.OpenRevision("Revision");
FactD := RubrIn.GetFactData(1, DictionaryGetDataOptions.Edit);
Record := FactD.Record;
MemberRecord := Record.Members.FindById("DL");
MemberRecord.Value := 3;
Debug.WriteLine(Value before modifying: +MemberRecord.UnmodifiedValue);
Debug.WriteLine(Value after modifying: +MemberRecord.Value);
FactD.Save;
End Sub Main;
After executing the example a calendar dimension level is modified for a factor. Information about a calendar level before and after modifying is displayed in the console window.
See also: