IVariableStub.CopyScenarioData

Синтаксис

CopyScenarioData(ScenarioDim: IDimInstance; Source: Integer; Destination: Integer);

Параметры

ScenarioDim. Параметр не используется, оставлен для совместимости.

Source. Ключ сценария, данные с которого необходимо скопировать.

Destination. Ключ сценария, на который необходимо скопировать данные.

Описание

Метод CopyScenarioData осуществляет копирование данных с одного сценария на другой.

Комментарии

В качестве значения параметра ScenarioDim необходимо передавать значение Null.

Пример

Для выполнения примера предполагается наличие в репозитории контейнера моделирования с идентификатором «CONT_MODEL». В данном контейнере присутствует переменная с идентификатором «OBJ_VAR». Переменная содержит более одного сценария.

Sub UserProc;

Var

MB: IMetabase;

MObj: IMetabaseObject;

Variable: IVariableStub;

MsVAr: IMsVariable;

S_From, S_To: Integer;

ScenDim: IDimInstance;

AttrIn: IDimAttributesInstance;

N_From, N_To: string;

Begin

MB := MetabaseClass.Active;

MObj := MB.ItemByIdNamespace("OBJ_VAR", MB.ItemById("CONT_MODEL").Key).Edit;

MsVAr := MObj As IMsVariable;

ScenDim := MsVAr.ScenarioDimension;

AttrIn := ScenDim.Attributes;

S_From := AttrIn.FindById("SCEN_KEY").Value(0);

N_From := AttrIn.FindById("NAME").Value(0);

S_To := AttrIn.FindById("SCEN_KEY").Value(1);

N_To := AttrIn.FindById("NAME").Value(1);

Variable := MObj As IVariableStub;

Variable.CopyScenarioData(Null, S_From, S_To );

Debug.WriteLine("Данные скопированы со сценария '" + N_From + "' на сценарий '" + N_To +"'");

MObj.Save;

End Sub UserProc;

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

См. также:

IVariableStub