IRdsNotConvertibleReasonIncorrectStructure.ExcessedTranslationAttributes

Копировать пример

Sub UserProc;
Var
    RDS_DB: IRdsDatabase;
    Converter: IRdsDictionaryConverter;
    List: IRdsDictionaryConverterList;
    NotConv: IMetabaseObjectDescriptors;
    pReasons: IRdsNotConvertibleReasons;
    pReason: IRdsNotConvertibleReason;
    ReasonIncorrStruct: IRdsNotConvertibleReasonIncorrectStructure;
    i, j, k: Integer;
Begin
    RDS_DB := MetabaseClass.Active.Bind(16008) As IRdsDatabase;
    Converter := New RdsDictionaryConverter.Create;
    List := Converter.AllRdsDatabase(RDS_DB);
    NotConv := List.NotConvertibleDictionaries;
    For i := 0 To NotConv.Count - 1 Do
    pReasons := List.GetNotConvertibleReasons(NotConv.Item(i).Key);
        For j := 0 To pReasons.Count - 1 Do
            pReason := pReasons.Item(j);
            ReasonIncorrStruct := pReason As IRdsNotConvertibleReasonIncorrectStructure;
            Debug.Write("Ключи избыточных атрибутов перевода: ");
            For k := 0 To ReasonIncorrStruct.ExcessedTranslationAttributes.Length - 1 Do
                Debug.WriteLine(ReasonIncorrStruct.ExcessedTranslationAttributes[k]);
            End For;
            Debug.Write("Ключи связей с нарушенной целостностью: ");
            For k := 0 To ReasonIncorrStruct.NullReferencedLinks.Length - 1 Do
                Debug.WriteLine(ReasonIncorrStruct.NullReferencedLinks[k]);
            End For;
        End For;
    End For;
End Sub UserProc;