1С:Предприятие 8.2 (8.2.16.363)
Конфигурация 1.2.9.1
Нужно перевести номенклатуру в налоговой накладной. Вот что я сделала:
У меня есть функция перевода:
Функция Перевод (Товар)
    Запрос = Новый Запрос;
    Запрос.Текст=
     "ВЫБРАТЬ ПЕРВЫЕ 1
     |    НоменклатураКонтрагентов.НаименованиеНоменклатурыКонтрагента
     |ИЗ
     |    РегистрСведений.НоменклатураКонтрагентов КАК НоменклатураКонтрагентов
     |ГДЕ
     |    НоменклатураКонтрагентов.Номенклатура = &Номенклатура";
   
    Запрос.УстановитьПараметр("Номенклатура", Товар);
    Результат = Запрос.Выполнить().Выбрать();
    Если Результат.Следующий() Тогда
        Данные = Результат.НаименованиеНоменклатурыКонтрагента;
    Иначе
       Сообщить("Заполните регистр сведений");
   КонецЕсли;
       Возврат Данные;
КонецФункции //ПереводНоменклатуры
Есть регистр сведений, "Номенклатура контрагента" откуда берется перевод. В функцию Печать() я добавила вот такой код:
Запрос = Новый Запрос();
            Запрос.УстановитьПараметр("Контрагент", Шапка.Контрагент);
            Запрос.УстановитьПараметр("Номенклатура", СтрокаТаблицы.Номенклатура);
            Запрос.Текст =
            "ВЫБРАТЬ  ПЕРВЫЕ 1
               |    НоменклатураКонтрагентов.НаименованиеНоменклатурыКонтрагента
               |ИЗ
               |    РегистрСведений.НоменклатураКонтрагентов КАК НоменклатураКонтрагентов
               |ГДЕ
               |    НоменклатураКонтрагентов.Контрагент = &Контрагент
               |    И НоменклатураКонтрагентов.Номенклатура = &Номенклатура";
             Выборка = Запрос.Выполнить().Выбрать();
             Пока Выборка.Следующий() Цикл
               ОбластьМакета.Параметры.Номенклатура = Перевод(СтрокаТаблицы.Номенклатура);
               Сообщить(СтрокаТаблицы.Номенклатура);
             КонецЦикла;
Посмотрите кому не сложно, что то оно и ошибок не выдает, но и не переводит. Подскажите кому не сложно, пожалуйста.

Жесть какая. Нафига два прохожих запроса?
Причем второй не используется.

чято такое налоговая накладная ?

(2) украинские заморочки

(3) а чего у неё код тогда не на мове ?

"перевести номенклатуру" - это как по русски?

(5) видимо перевести на мову

(0) что, правда (6)?

(5) это по русски. Номенклатуру нужно перевести на украинский язык

(8) а украинские названия в РС НоменклатураКонтрагентов?

+9 кста, а ничего что одна и та-же номенклатура моджет в этом РС быть обюозвана по0разному?

(9) да) она не будет обозвана по разному

учите Русский язык !

посмотри отладчиком что возвращает функция

если очень хочется, то можно тупо:
   Запрос = Новый Запрос;
   Запрос.Текст =
       "ВЫБРАТЬ
       |    НоменклатураКонтрагентов.Номенклатура,
       |    НоменклатураКонтрагентов.НаименованиеНоменклатурыКонтрагента
       |ИЗ
       |    РегистрСведений.НоменклатураКонтрагентов КАК НоменклатураКонтрагентов";
   Результат = Запрос.Выполнить();
   ВыборкаДетальныеЗаписи = Результат.Выбрать();
   Пока ВыборкаДетальныеЗаписи.Следующий() Цикл
       ОбъектНоменклатура = ВыборкаДетальныеЗаписи.Номенклатура.ПолучитьОбъект();    
       ОбъектНоменклатура.Наименование = ВыборкаДетальныеЗаписи.НаименованиеНоменклатурыКонтрагента;
       ОбъектНоменклатура.Записать();
   КонецЦикла;

условий добавь если надо и копию сделай предварительно. Обязательно!

(14) нет не получается так(((

(15) что именно не получается?

(16) оно все равно выводит номенклатуру на русском

(17) ты уверена что в Регистре Сведений - на украинском?

(18) да

(19) и что, код из (14) отрабатывает, не ругается - и все остается так как было?

может потому, что в НН полное наименование выводиться?

(21) в некоторых конфигурациях даже - НаименованиеДляНН ;)

В (0) бухгалтерия, там полное наименование.

В бухгалтерии там и регистра сведений номенкдатура контрагентов нету.
У нее скорее всего УТП.
И судя по коду в (0) она это не в том месте пытается вставить.
То есть дальше наверное идет стандартное заполнение заполнение параметра.

(20) да) все нормально, хоть бы раз споткнулся

(23) в НН выводится полное наименование

(24) регистр у меня есть, а вот то что я пытаюсь не туда вставить код, это скорее всего правда(

(27) Покажи чуть больше кода до этого фрагмента и после. Только без фанатизма.

(28)
// Выводим табличную часть
       ОбластьМакета = Макет.ПолучитьОбласть("РазделI");
       ЭтоПерваяСтрока = Истина;
       // Выведем на печать все строки таблицы в раздел I
       Для каждого СтрокаТаблицы Из ТаблицаНоменклатуры Цикл
           
           Если ЭтоПерваяСтрока Тогда    
               // в первой строке раздела укажем номер раздела
               ОбластьМакета.Параметры.НомерРаздела = "I";
               ЭтоПерваяСтрока = Ложь;
           Иначе
               ОбластьМакета.Параметры.НомерРаздела = "";
           КонецЕсли;    
           
           ОбластьМакета.Параметры.Заполнить(СтрокаТаблицы);
           
           Если ПечататьКодУКТВЭДБезПробелов Тогда
               ОбластьМакета.Параметры.КодУКТВЭД = СтрЗаменить(ОбластьМакета.Параметры.КодУКТВЭД, " ", "");
           КонецЕсли;
           
           Если ЗначениеЗаполнено(СтрокаТаблицы.ТекстДляПечатиВКолонкеКоличество) Тогда
               ОбластьМакета.Параметры.Количество = СтрокаТаблицы.ТекстДляПечатиВКолонкеКоличество;
           КонецЕсли;
           
           // дата отгрузки/оплаты
           Если НЕ ЗначениеЗаполнено(СтрокаТаблицы.ДатаОтгрузкиОплаты) Тогда
               // укажем дату выписки накладной
               ОбластьМакета.Параметры.ДатаОтгрузкиОплаты = СсылкаНаОбъект.Дата;
           КонецЕсли;
           
           Если НЕ ЗначениеЗаполнено(СтрокаТаблицы.Номенклатура) И Страница = 1 Тогда
               Сообщить(НСтр("ru='В одной из строк не заполнено наименование номенклатуры - проверьте заполнение документа!';uk='В одному з рядків не заповнене найменування номенклатури - перевірте заповнення документа!'"), СтатусСообщения.Важное);
           КонецЕсли;
//**********************************************************************************************************************************
            Запрос = Новый Запрос();
            Запрос.УстановитьПараметр("Контрагент", Шапка.Контрагент);
            Запрос.УстановитьПараметр("Номенклатура", СтрокаТаблицы.Номенклатура);
            Запрос.Текст =
            "ВЫБРАТЬ  ПЕРВЫЕ 1
               |    НоменклатураКонтрагентов.НаименованиеНоменклатурыКонтрагента
               |ИЗ
               |    РегистрСведений.НоменклатураКонтрагентов КАК НоменклатураКонтрагентов
               |ГДЕ
               |    НоменклатураКонтрагентов.Контрагент = &Контрагент
               |    И НоменклатураКонтрагентов.Номенклатура = &Номенклатура";
             Выборка = Запрос.Выполнить().Выбрать();
             Пока Выборка.Следующий() Цикл
                   ОбъектНоменклатура = Выборка.Номенклатура.ПолучитьОбъект();    
                   ОбъектНоменклатура.Наименование = Выборка.НаименованиеНоменклатурыКонтрагента;
                   ОбъектНоменклатура.Записать();
               //ОбластьМакета.Параметры.Номенклатура = Перевод(СтрокаТаблицы.Номенклатура);
               //Сообщить(СтрокаТаблицы.Номенклатура);
             КонецЦикла;
//**********************************************************************************************************************************

           ОбластьМакета.Параметры.Сумма20    = СимволДляПустыхПоказателей;
           ОбластьМакета.Параметры.Сумма0Укр    = СимволДляПустыхПоказателей;
           ОбластьМакета.Параметры.Сумма0Эксп    = СимволДляПустыхПоказателей;
           ОбластьМакета.Параметры.СуммаБезНДС = СимволДляПустыхПоказателей;
           
           // Определим в какую колонку (в зависимости от ставки НДС) попадает сумма без НДС
           Колонка = "Сумма" + ОпределитьКолонкуТаблицы(СтрокаТаблицы.СтавкаНДС);
           ОбластьМакета.Параметры[Колонка] = ОбщегоНазначения.ФорматСумм(СтрокаТаблицы.Сумма, ,"0,00");
           ТабДокумент.Вывести(ОбластьМакета);

ну то есть на самом деле ни конфигурация, ни то что она украинская, ни вид документа оказались не важны.. суть просто в том, что копрокод не выполняет возлагавшиеся на него надежды. так?

(29) Ну ХЗ. Вроде там.
Ну выведи еще

             Пока Выборка.Следующий() Цикл
                   ОбъектНоменклатура = //Выборка.Номенклатура.ПолучитьОбъект();    
//                    ОбъектНоменклатура.Наименование = //Выборка.НаименованиеНоменклатурыКонтрагента;
//                    ОбъектНоменклатура.Записать();
               //ОбластьМакета.Параметры.Номенклатура = Перевод(СтрокаТаблицы.Номенклатура);

               Сообщить(""+Выборка.НаименованиеНоменклатурыКонтрагента);

*    //                 ОбъектНоменклатура = //Выборка.Номенклатура.ПолучитьОбъект();

(0) Есть у меня подозрение, что не в той функции Печать() делаются изменения. В типовых для Украины сейчас актуальна ф-я ПечатьДокументаНалоговыйКодекс2012()

(29) я таки не понял, тебе чисто в печати подменить надо, справочник Номенклатура не курочить?

(33) Судя по наличию в (29)

           Если ПечататьКодУКТВЭДБезПробелов Тогда
               ОбластьМакета.Параметры.КодУКТВЭД = СтрЗаменить(ОбластьМакета.Параметры.КодУКТВЭД, " ", "");
           КонецЕсли;

таки в той. УКТВЭД выводится именно в

ПечатьДокументаНалоговыйКодекс2012()

Но в принципе автор давно бы уже отладчиком пробежалась, да нашла бы косяк.

(35) при печати НН, делать нечто типа "ОбъектНоменклатура.Записать();" - как-бы не православно ;)

(36) Ну так это ж она твой код туда вставила из (14), насколько я понял :).

(37) дык, нельзя-же так бездумно...

(38) Ну ты даешь :). На хворуме написали, значит можно :).

(34) да, нужно просто подменить запись из регистра, а справочник трогать не нужно

(40) ИЗ (31) вставьте код, что выведет ?

(41) Ошибку выдает:
Обращение к процедуре как к функции (Сообщить)
              <<?>>Сообщить(""+Выборка.НаименованиеНоменклатурыКонтрагента);

(41) я убрала ОбъектНоменклатура =, ошибок не выдает, но и ничего не выводит

а за запрос в цикле автора еще не били?

(40) найди строку, закомментируй ее как здесь:
//ОбластьМакета.Параметры.Номенклатура = СокрП("" + СтрокаТаблицы.Номенклатура) + ?(НЕ ЗначениеЗаполнено(СтрокаТаблицы.Характеристика), "", "(" + СтрокаТаблицы.Характеристика +")");
// вместо ее - вставь это:
Запрос = Новый Запрос();
Запрос.УстановитьПараметр("Контрагент", Шапка.Контрагент);
Запрос.УстановитьПараметр("Номенклатура", СтрокаТаблицы.Номенклатура);
Запрос.Текст =
"ВЫБРАТЬ  ПЕРВЫЕ 1
|    НоменклатураКонтрагентов.НаименованиеНоменклатурыКонтрагента
|ИЗ
|    РегистрСведений.НоменклатураКонтрагентов КАК НоменклатураКонтрагентов
|ГДЕ
|    НоменклатураКонтрагентов.Контрагент = &Контрагент
|    И НоменклатураКонтрагентов.Номенклатура = &Номенклатура";
Выборка = Запрос.Выполнить().Выбрать();
Если  Выборка.Следующий() Тогда
   ТекНоменклатура = Выборка.НаименованиеНоменклатурыКонтрагента;
Иначе    
   ТекНоменклатура = СокрП("" + СтрокаТаблицы.Номенклатура);
КонецЕсли;

ОбластьМакета.Параметры.Номенклатура = ТекНоменклатура + ?(НЕ ЗначениеЗаполнено(СтрокаТаблицы.Характеристика), "", "(" + СтрокаТаблицы.Характеристика +")");

// хотя, лучше конечно сделать один запрос по всем позициям номенклатуры в ТЧ, но и так работать будет :)

(44) о, и меня побейте :)

НУ а если уж гофнокодить то
сие замени на
//**********************************************************************************************************************************

            Запрос = Новый Запрос();
            Запрос.УстановитьПараметр("Контрагент", Шапка.Контрагент);
            Запрос.УстановитьПараметр("Номенклатура", СтрокаТаблицы.Номенклатура);
            Запрос.Текст =
            "ВЫБРАТЬ  ПЕРВЫЕ 1
               |    НоменклатураКонтрагентов.НаименованиеНоменклатурыКонтрагента
               |ИЗ
               |    РегистрСведений.НоменклатураКонтрагентов КАК НоменклатураКонтрагентов
               |ГДЕ
               |    НоменклатураКонтрагентов.Контрагент = &Контрагент
               |    И НоменклатураКонтрагентов.Номенклатура = &Номенклатура";
             Выборка = Запрос.Выполнить().Выбрать();
             Пока Выборка.Следующий() Цикл
                   ОбъектНоменклатура = Выборка.Номенклатура.ПолучитьОбъект();    
                   ОбъектНоменклатура.Наименование = Выборка.НаименованиеНоменклатурыКонтрагента;
                   ОбъектНоменклатура.Записать();
               //ОбластьМакета.Параметры.Номенклатура = Перевод(СтрокаТаблицы.Номенклатура);

               //Сообщить(СтрокаТаблицы.Номенклатура);

             КонецЦикла;
//**********************************************************************************************************************************
    Запрос = Новый Запрос();
            Запрос.УстановитьПараметр("Контрагент", Шапка.Контрагент);
            Запрос.УстановитьПараметр("Номенклатура", СтрокаТаблицы.Номенклатура);
            Запрос.Текст =
            "ВЫБРАТЬ  ПЕРВЫЕ 1
               |    НоменклатураКонтрагентов.НаименованиеНоменклатурыКонтрагента
               |ИЗ
               |    РегистрСведений.НоменклатураКонтрагентов КАК НоменклатураКонтрагентов
               |ГДЕ
               |    НоменклатураКонтрагентов.Контрагент = &Контрагент
               |    И НоменклатураКонтрагентов.Номенклатура = &Номенклатура";
             Выборка = Запрос.Выполнить().Выбрать();
Если Выборка.Следующий() тогда
//тут получаем из выборки значение
КонецЕсли;

(45) у меня нет такого кода:
ОбластьМакета.Параметры.Номенклатура = СокрП("" + СтрокаТаблицы.Номенклатура) + ?(НЕ ЗначениеЗаполнено(СтрокаТаблицы.Характеристика), "", "(" + СтрокаТаблицы.Характеристика +")");

(48) тогда признавайся уже, что у тебя за конфигурация

(48) А должен быть.

"Бухгалтерия для Украины", редакция 1.2.9.1

(51)Юная Леди, выложите уже на файлобменник печатную форму шоб злые дядьки не мучались  и посмотрели шо к чему

(51) а что, в 1.2.9.1 РегистрСведений.НоменклатураКонтрагентов есть? или кто-то дорабатывал?

(53) дорабатывали

(51) ищи тогда:
           ОбластьМакета.Параметры.Номенклатура = СокрП("" + СтрокаТаблицы.Номенклатура)
                                                + ?(ДополнитьНазваниеНомеромГТД И ЗначениеЗаполнено(СтрокаТаблицы.НомерГТД), ". ВМД №: " + СтрокаТаблицы.НомерГТД + ", дата ВМД: " + Формат(СтрокаТаблицы.ДатаГТД, ?(ПечататьДатыБезРазделителей,"ДФ=ddMMyyyy","ДФ=dd.MM.yyyy")), "");
замени на:
Запрос из (45) и
           ОбластьМакета.Параметры.Номенклатура ТекНоменклатура
                                                + ?(ДополнитьНазваниеНомеромГТД И ЗначениеЗаполнено(СтрокаТаблицы.НомерГТД), ". ВМД №: " + СтрокаТаблицы.НомерГТД + ", дата ВМД: " + Формат(СтрокаТаблицы.ДатаГТД, ?(ПечататьДатыБезРазделителей,"ДФ=ddMMyyyy","ДФ=dd.MM.yyyy")), "");

+55
ОбластьМакета.Параметры.Номенклатура ТекНоменклатура читать как
ОбластьМакета.Параметры.Номенклатура = ТекНоменклатура

Ребята, а зачем всё ЭТО надо? Не проще добавить ещё одно поле наименования для заполнения на украинском языке и его выводить в Печ.Форму

http://www.fayloobmennik.net/2479090

(57) проще наверное, но такое ТЗ... :)

+(58) 17702610

(58) бугага
короче, найди строку "ОбластьМакета.Параметры.Номенклатура = " в "Функция ПечатьДокументаНалоговыйКодекс2012(...) и запость сюда

(58) еще раз бугага! ты что, иэ обработки печатаешь? и все это время молчала?!

(62) я из внешней печатной формы печатаю

(63) предупреждать надо

так надо её подключить с параметрами..

http://www.1c-pro.ru/topic26882.html

И вообще...1С не переводчик, а база данных. Это надо сказать руководству а не плясать под их дудку

короче так, до строки
Для каждого СтрокаТаблицы Из ТаблицаНоменклатуры Цикл
всавляешь код:
Запрос = Новый Запрос();
Запрос.УстановитьПараметр("Контрагент", СсылкаНаОбъект.Контрагент);
Запрос.УстановитьПараметр("СписокНоменклатура", СсылкаНаОбъект.Товары.ВыгрузитьКолонку("Номенклатура");
Запрос.Текст =
"ВЫБРАТЬ  ПЕРВЫЕ 1
|    НоменклатураКонтрагентов.Номенклатура КАК Номенклатура,
|    НоменклатураКонтрагентов.НаименованиеНоменклатурыКонтрагента КАК НоменклатураКонтрагентов
|ИЗ
|    РегистрСведений.НоменклатураКонтрагентов КАК НоменклатураКонтрагентов
|ГДЕ
|    НоменклатураКонтрагентов.Контрагент = &Контрагент И
|     НоменклатураКонтрагентов.Номенклатура В Иерархии (&СписокНоменклатура)";
ТЗНоменклатура = Запрос.Выполнить().Выгрузить();

после
               Если СтрокаТаблицы.Сумма = 0 И СтрокаТаблицы.СуммаНДС = 0 Тогда
                   Продолжить
               КонецЕсли;

вставляешь:

НайденнаяСтрока = ТЗНоменклатура.Найти(СтрокаТаблицы.Номенклатура, "Номенклатура");
Если НайденнаяСтрока = Неопределено Тогда
   ОбластьМакета.Параметры.Номенклатура = СокрЛП(СтрокаТаблицы.Номенклатура);
Иначе
   ОбластьМакета.Параметры.Номенклатура = НайденнаяСтрока.НоменклатураКонтрагентов;
КонецЕсли;

(68) неа(( все равно выводит старое название((
Я тут немного порылась, здесь есть функция ПодготовитьТаблицы, там есть такая строчка: СтруктураПолей.Вставить("Номенклатура"              , "Номенклатура.НаименованиеПолное");, может здесь нужно вставлять запрос? или я опять туплю(

(69) в общем так, без твоей конфигурации я не вижу как тебе помочь. если хочешь - выложи CF-шник в файлообменник

"СтруктураПолей.Вставить("Номенклатура"              , "Номенклатура.НаименованиеПолное""-правильно, ты же полное наименование переводишь.