ValidationKey: Integer;
Свойство ValidationKey определяет ключ рассчитанного правила или группы валидации.
Для выполнения примера предполагается наличие в репозитории базы данных временных рядов с идентификатором «OBJ_RUBRICATOR»,в которой должен существовать расчет валидации с ключом «1».
Sub Main;
Var
MB: IMetabase;
RubInst: IRubricatorInstance;
ValiData: IValidationExecData;
i: Integer;
a: Array Of Integer;
Begin
MB := MetabaseClass.Active;
RubInst := MB.ItemById("OBJ_RUBRICATOR").Open(Null) As IRubricatorInstance;
ValiData := RubInst.GetValidationExecData(1, DictionaryGetDataOptions.None);
Debug.WriteLine("Ключ " + ValiData.Key.ToString);
Debug.WriteLine("Наименование " + ValiData.Name);
Debug.WriteLine("Ключ ревизии" + ValiData.RevisionKey.ToString);
Debug.WriteLine("Дата запуска " + ValiData.Stamp.ToString);
Debug.WriteLine("Ключ валидации " + ValiData.ValidationKey.ToString);
Debug.WriteLine("Рассчитанные валидации:");
a := New Integer[ValiData.Validations.Length];
a := ValiData.Validations;
For i := 0 To ValiData.Validations.Length - 1 Do
Debug.WriteLine(a[i].ToString);
End For;
End Sub Main;
После выполнения примера в окно консоли будет выведена информация о расчете валидации с ключом «1».
См. также: