IMetaDataMember.UnmodifiedValue

Синтаксис

UnmodifiedValue: Variant;

Описание

Свойство UnmodifiedValue возвращает значение записи до изменения.

Пример

Для выполнения примера предполагается наличие базы данных временных рядов с идентификатором «OBJ_RUBRICATOR». В данной базе должен присутствовать показатель с ключом «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("Значение до изменения: "+MemberRecord.UnmodifiedValue);

Debug.WriteLine("Значение после изменения: "+MemberRecord.Value);

FactD.Save;

End Sub Main;

После выполнения примера для показателя будет изменен уровень календарного измерения. В окно консоли будет выведена информация о календарном уровне до и после изменений.

См. также:

IMetaDataMember