UnmodifiedValue: Variant;
The UnmodifiedValue property returns the record value before modifying.
Executing the example requires a time series database with the OBJ_RUBRICATOR identifier. This database should contain an indicator with the 1 key.
Add links to the Metabase, Rds, Cubes system assemblies.
Sub UserProc;
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 modification: "+MemberRecord.UnmodifiedValue);
Debug.WriteLine("Value after modification: "+MemberRecord.Value);
FactD.Save;
End Sub UserProc;
After executing the example a calendar dimension level is modified for an indicator. Information about a calendar level before and after modifying is displayed in the console window.
See also: