Доброго дня!
Платформа 8.3 Толстый клиент. УТ 10.3
Данные:
Документ Заказ поставщику, необходимо вывести в ТЧ в колонку КодПост вывести КодНоменклатурыКонтрагента
То что создал выводит нули:
Процедура ПоказатьКодПост(КолонкиТабПоля, ЯчейкиСтрокиТабПоля, Номенклатура) Экспорт
Если КолонкиТабПоля.КодПост.Видимость Тогда
      Если ТипЗнч(Номенклатура) = Тип("СправочникСсылка.Номенклатура") Тогда
          КодПост = ПолучитьКодПост(Номенклатура);
         ЯчейкиСтрокиТабПоля.КодПост.УстановитьТекст(КодПост);
      Иначе
         ЯчейкиСтрокиТабПоля.КодПост.УстановитьТекст("");
      КонецЕсли;
КонецЕсли;  
КонецПроцедуры

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

    //Результат = Запрос.Выполнить();
    //Выборка = Результат.Выбрать();
    //
    //Если Выборка.Следующий() Тогда
    //    ЗаполнитьЗначенияСвойств(Выборка);
    //    Возврат СтруктураВозврата;
    //
    //КонецЕсли;
    //
    //Возврат СтруктураВозврата;
КонецФункции

Функция из другого модуля, пытаюсь изменить.
Может просто запросом создать?

Ребята кто нибудь мне поможет решить эту задачу?
Хотя бы подсказать что не так...

(1) отладчика нет что ли?

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

КонецФункции

Не пойму что не так, где я что пропустил?

|    И НоменклатураКонтрагентов.Контрагент = &Номенклатура";

Так и должно быть?

В ТЧ товар же по контрагенту (поставщику) и у каждого свой код товара... у кого его нет.

(6) Ааа... То есть у тебя одинаковые измерения в регистре, да?
                  |    НоменклатураКонтрагентов.Номенклатура.Ссылка = &Номенклатура
                   |    И НоменклатураКонтрагентов.Контрагент = &Номенклатура";

и .ссылка убери

Поменял
|    И НоменклатураКонтрагентов.Контрагент = &Номенклатура";
На
|    И НоменклатураКонтрагентов.Контрагент = &Контрагент";

Ссылка - убрал

(9) Ну и чо, работает?

Пустые ячейки.
А вызов такой
Процедура ТоварыПриВыводеСтроки(Элемент, ОформлениеСтроки, ДанныеСтроки)

Если ЗначениеЗаполнено(ДанныеСтроки.Номенклатура) Тогда
        КодПост = ПолучитьКодПост(ДанныеСтроки.Номенклатура);
        Если НЕ КодПост = Неопределено Тогда
            ОформлениеСтроки.Ячейки.КодПост.УстановитьТекст(КодПост);
        КонецЕсли;
    КонецЕсли;

Меня смущает Функция ПолучитьКодПост(Номенклатура, Код = Неопределено)
Неопределено!
Но без неё выдает ошибку, недостаточно фактический данных

(12) Ты с программированием недавно познакомился, да?

КодПост = ПолучитьКодПост(ДанныеСтроки.Номенклатура, <ДобавьСюдаКод>);

Хотя я сомневаюсь, что он вообще нужен, я бы его убрал из условий запроса просто и все

Да 1С недавно начал изучать, есть книга, но тонкий клиент там немного не то.

Можно вызвать и
ПолучитьКодПост(мКолонкиТовары, ОформлениеСтроки.Ячейки, ДанныеСтроки.Номенклатура);

Но от пишет:
Слишком много фактических параметров (ПолучитьКодПост)

Здесь ячейка не указывается
ПолучитьКодПост(мКолонкиТовары, ОформлениеСтроки.Ячейки.КодПост, ДанныеСтроки.Номенклатура);

Чувак, у тебя объявлена функция с 2 параметрами. Один из этих параметров модно не заполнять при вызове этой функции и тогда он будет равен неопределено. Но твой запрос в любом случае использует этот параметр в своем условии. И вот теперь у тебя 2 выхода: либо не использовать параметр в запросе, либо указывать этот параметр при вызове функции.

Если ЗначениеЗаполнено(ДанныеСтроки.Номенклатура) Тогда
        КодПост = ПолучитьКодПост (ДанныеСтроки.Номенклатура);
        Если НЕ КодПост = Неопределено Тогда
            ОформлениеСтроки.Ячейки.КодПост.УстановитьТекст(КодПост);
    КонецЕсли;
    КонецЕсли;

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

КонецФункции


Ни черта.... :(

Перем Код; в голове модуля

Убери вот эту строку из запроса:
  |    И НоменклатураКонтрагентов.КодНоменклатурыКонтрагента = &Код

(21) Убрал, безрезультатно...
А зачем её убирать в ней же и есть сам смысл, нужен же Код?

(20) полный ПЭ.

>>>Возврат Выборка.Код; вот это вообще зачет, учитывая, что в запросе нет таких псевдонимов и имён полей.

А так, всё в топку, весь код запихать в ПриПолученииДанных.
Там для всей Номенклатуры из табличной части одним запросом поиметь код номенклатуры поставщика и в обходе оформления строк его установить в ячейку табличного поля. Усё.

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

(24) нет.
1. фильтровать нужно по списку номенклатуры
2.Зачем ты делаешь условие на КодНоменклатурыКонтрагента ? И его же потом получаешь ?

+25 + зачем тебе все табличные части всех документов ?

(24) Предлагаю заплатить программисту и посмотреть за его работой.

На вот, развлекайся
ЗЫ: можно и оптимальнее написать, но мне лень.
На табличное поле не забудь событие повесить ПриПолученииДанных в свойствах


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

Чорт, поправочка, клиентоса забыл:

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

(29) Класс высший уровень! Большое спасибо!
Я бы сам до пенсии ковырял это кусок модуля.
Подскажите хорошую книгу по 1С 8.3 Толстый клиент.
У меня есть 1С:ПРЕДПРИЯТИЕ 8.3 Практическое пособие разработчика (примеры и типовые приемы) 2013 М.Г. Радченко, Е.Ю. Хрусталева - мне не очень то и понравилась. во-первых тонкий клиент, во-вторых не очень и подробно написано, всё поверхностно, я не доволен.