IValidationExecData.Key

Copy example

Sub UserProc;
Var
    MB: IMetabase;
    RubInst: IRubricatorInstance;
    ValiData: IValidationExecData;
    Vals: Array Of Integer;
    c, i: 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("Startup date " + ValiData.Stamp.ToString);
    Debug.WriteLine("Validation key " + ValiData.ValidationKey.ToString);
    Debug.WriteLine("Calculated validations:");
    Vals := ValiData.Validations;
    c := Vals.Length;
    For i := 0 To c - 1 Do
        Debug.WriteLine(Vals[i].ToString);
    End For;
End Sub UserProc;