[rus80629]

Ткните пожалуйста если это уже обсуждалось. Поиском пользовался кроме этого http://pro1c.org.ua/index.php?showtopic=3440 не нашел. Но моих мозгов не хватило понять по этой статье как решить мой вопрос.
Итак:
Есть импорт из 8.2 УТ 10 в Бух 7.7 через COMConnector OLE.
В табличной части документа (допустим Счет) необходимо получить значение СтавкаНДС. Но Так как тип Ссылка.Перечисление.... и у перечислений нет реквизитов не могу никак понять как его получить.
Спасибо за помощь...

[logist]

Курить эту сторону: ЗначениеВСтрокуВнутр / ЗначениеИзСтрокиВнутр

[rus80629]

Отладчик мне выдал ЗначениеВстроку(СтрТабЧасти.СтавкаНДС) = "{}"
Пока курил нашел такой способ.
БазаОле.XMLstring(БазаОле.Перечисления.СтавкиНДС.НДС20) можно использовать через условие.
Но все равно спасибо за помощь ))

Точнее вот так БазаОле.XMLstring(СтрТабЧасти.СтавкаНДС)

[Markiz]

Отладчик мне выдал ЗначениеВстроку(СтрТабЧасти.СтавкаНДС) = "{}"
Пока курил нашел такой способ.
БазаОле.XMLstring(БазаОле.Перечисления.СтавкиНДС.НДС20) можно использовать через условие.
Но все равно спасибо за помощь ))

Точнее вот так БазаОле.XMLstring(СтрТабЧасти.СтавкаНДС)

//    Ном = база8.Перечисления.СтавкиНДС.Индекс(стр.СтавкаНДС);
//    Имя = база8.Метаданные().Перечисления.СтавкиНДС.EnumValues.Get(Ном).Name;

Например:
// Получить ставку НДС по объекту СтавкаНДС из 8.2
//  входящий параметр - ссчылка на реквизит "СтавкаНДС" из документа или элемента справочника 8.2
//
Функция ПолучитьВидНДС(инСтавкаНДС)
    Перем ном, имя;
    
    Если ПустоеЗначение(инСтавкаНДС) = 0 Тогда
        
        Попытка
            ном = база8.Перечисления.СтавкиНДС.Индекс(инСтавкаНДС);        // номер значения перечисления в 8.2
            имя = база8.Метаданные().Перечисления.СтавкиНДС.EnumValues.Get(Ном).Name;    // имя значения перечисления в 8.2
        Исключение
            // если попали в эту ветку, значит в исходном документе СтавкаНДС не определена
            имя = "БезНДС";
        КонецПопытки;    
        
        Если спрНиО.НайтиПоКоду(имя, 0) = 1 Тогда
            Возврат спрНиО.ТекущийЭлемент();
        Иначе    // в 8.2 есть "НеНДС"
            Если спрНиО.НайтиПоКоду(имя, 0) = 1 Тогда
                Возврат спрНиО.ТекущийЭлемент();
            КонецЕсли;
        КонецЕсли;
    Иначе    
        Возврат ПолучитьПустоеЗначение("Справочник.НалогиОтчисления");
    КонецЕсли;     
    
КонецФункции

!

Правила, пункт 12: выделяйте код.

Сообщение отредактировал Vofka - 18.08.14, 14:04