Key: Integer;
The Key property returns the key of validation calculation.
Executing the example requires that the repository contains a time series database with the OBJ_RUBRICATOR identifier that includes validation calculation with the 1 key.
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(Key + ValiData.Key.ToString);
Debug.WriteLine(Name + ValiData.Name);
Debug.WriteLine(Revision key + ValiData.RevisionKey.ToString);
Debug.WriteLine(Run date + ValiData.Stamp.ToString);
Debug.WriteLine(Validation key + ValiData.ValidationKey.ToString);
Debug.WriteLine(Calculated validations:);
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;
After executing the example information about validation calculation with the 1 key is displayed in the console window.
See also: