В продолжение темы
v8: Заказ покупателя, учет производства, тч.

Создал Справочник "ПроизводствоПродукции", реквизит "Номенклатура" и ТЧ ВидыРабот. Теперь в "Заказе покупателя" заполняется ТЧ "Производство", но код вышел адски кривой, как мне кажется, запрос в цикле некрасиво как то... Может кто подскажет лучший вариант как реализовать?


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

"Сообщить" использовал для отладки, чтобы видеть что в переменные попадают.

(0)
>>но код вышел адски кривой, как мне кажется, запрос в цикле некрасиво как то.

бог не любит не тебя ни твоего кода.
веревку и мыло могу продать по сходной цене.

Первый запрос не нужен и даже вреден. У Вас уже есть объект - нет смысла к нему обращаться через запрос к базе. Второй запрос в цикле - тоже не фонтан.

Всё что Вы написали - решается одним запросом и выгрузкой результата в ТЧ.

(2) +1

(0) Тимур - а кем вы работали до 1С?

бррр... аж глаз режет. А "ВТНоменклатура" неспроста))) видимо видел что-то про временные таблицы, но за чем они так  и не понял.. Ничего, опыт приходит со временем.

(4) Да я и не работаю в 1С, это так, скорее увлечение. Нас обслуживает франч, но правлю сам формочки печатные, платформу обновляю. Сейчас я просто пробую как можно улучшить текущий заказ покупателя, но все равно будут делать программисты, и не факт, что так как я. Я сам понимаю, что должны работать профи, чревато самоуправство... Работаю начальником информационно технической службы, изучаю 1С только для собственного развития, не более.

(5) Угу, завтра  еще покумекаю, может дойдет.

(6) Вы сначала суете палец в розетку, а только потом изучаете законы электротехники?

(6) Начните с книжек. Полезнее будет.

(8) Метод старинного ученого Тыка - очень даже не плох.

(8) Опыт ничто не заменит! Шутю. Ну мне так нравится колупаться, я же не рабочую базу ворочу.

(9) Пытаюсь, Радченко потихоньку читаю, и всегда прежде чем пытать вопросами, ищу в книгах которые в комплекте шли. Но в них местами очень скудно все.

Как то так

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

(13) Спасибо большое, действительно все просто, только не совсем понял

Запрос.УстановитьПараметр("МассивНоменклатур",Товары.Выгрузить("Номенклатура"));
ТЗ=Запрос.Выполнить().Выгрузить();
Производство.Загрузить(ТЗ);

Товары.выгрузить это мы берем и сразу из ТЧ документа грузим в "МассивНоменклатур" только номенклатуру? А в запросе сравниваем наличие в элементе справочника наличие данной номенклатуры из массива и в конце загружаем в ТЧ "Производство" результат запроса?