Документ ПоступлениеТоваров при проведении делает движения по 2 регистрам:
- приход по регистру накопления ТоварыНаСкладах
- расход по регистру накопления ЗаказыПоставщикам
Запись в регистр накопления ТоварыНаСкладах делается в рублях (Сумма) и в долларах (СуммаВал). Курс берется на дату партии.
Документ может содержать в табличной части Товары тысячи строк с различными пар-тиями.
Ниже представлена обработка проведения документа ПоступлениеТоваров.
Необходимо указать на ошибки и неоптимальные решения в процедуре проведения.

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

(0) Собеседование проходишь?

зарплату тоже за тебя получать?

быстрее

не видите человек горит

(4) )))
Да, прислали задачку на собеседование!

Да я так сходу, без конструктора не могу!

(5) В принципе уже понятно, что будет, когда тебя примут на работу и начнут давать новые задачки. Всю мисту засрёшь своими задачками, как ЛивингСтар.

(7) Это новые ветки, новые рекламодатели, новые деньги ;-)

(7) Такое возможно, но как же учиться если не спрашивать советов у старших коллег?

(9) Читай документацию, учи матчасть, изучай типовые.

(9) советов. но не "сделайте за меня". в чем конкретно у тебя затруднения? на какой строчке споткнулся?

(0) Вот это

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

Надо совать в параметры виртуальной таблицы, т.к. получать остатки надо сразу с отбором по номенклатуре, а не просто по контрагентам.

Получать курсы валют надо тем же запросом, что и остатки,
т.е. вот за это

РегистрыСведений.КурсыВалют.ПолучитьПоследнее(
ВыборкаПартия.Партия.Дата
,Новый Структура("Валюта", Справочники.Валюты.НайтиПоНаименованию(«USD»)));

Надо сечь, жестко сечь.

Помню на спецкурсе в университете задачу дали.
Я ее нормально смог решить, а остальные нет.
Давно это было. Тогда и литературы не было.
Вот это было круто. А 1с? Бери книги и читай. Даже подвига никакого не нужно.

(12) >>Справочники.Валюты.НайтиПоНаименованию(«USD»)

так лучше не делать

(0)На вскидку. Получай товары документа отдельно в вт и потом ее соединяй. Твое условие ГДЕ накладывается уже после того как  ты соединишь все товары всех документов со всеми остатками.

(14) а в цикле обращение в РС это норм? За это надо пороть или ломать палец за каждое лишнее обращение к БД.

Два раза выбираются данные из  Документ.ПоступлениеТоваров.Товары

(12) Спасибо, сейчас пытаюсь запрос в базе воссоздать.
(14) Почему так лучше не делать?

(16) У профессионалов запросы в циклах не тормозят.

(18) У тебя идет обращение к БД в цикле, это насилует БД, работает эта конструкция оч медленно, везде где это возможно надо использовать запрос, запрос получает данные из БД за одно обращение, потом работай с выборкой запроса сколько хочешь.

(19)

))) точно. В типовых например.
Должен быть буфер. При частых обращениях данные берутся из него.

(19) Ага, запрос в цикле работает как должен работать, тормозит все остальное у непрофессионалов. )))))))

"ВыборкаНоменклатура.Номенклатура.ЕдиницаИзмерения"

(23) за это надо тоже ругать

в 29-й строке ошибка

Спасибо большое за помощь.

(26) Что, взяли? ))

(27) Если честно, не очень к ним хочу, но и в грязь лицом тоже не хочется упасть! )

(29) с такой аватаркой ты обязан к ним устроиться

(30) Это точно )

(29) ну раз совсем не хочешь в грязь лицом то еще у запроса не установлены параметры
Контрагент и период

(32) и ссылка)

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


+ добавить сюда выборку курсов валют

ИТОГИ вещь от лукавого

(33) Спасибо большое.

Еще раз, всех благодарю.
Указали на грубые ошибки, я в них разобрался.

СуммаВал = СуммаВал
+ РегистрыСведений.КурсыВалют.ПолучитьПоследнее(
ВыборкаПартия.Партия.Дата
,Новый Структура("Валюта", Справочники.Валюты.НайтиПоНаименованию(«USD»)));

Запрос в цикле что не допустимо
+
СуммаВал постоянно увеличивается, так не должно быть

СуммаВал = РегистрыСведений.КурсыВалют.ПолучитьПоследнее(
ВыборкаПартия.Партия.Дата
,Новый Структура("Валюта", Справочники.Валюты.НайтиПоНаименованию(«USD»)))*ВыборкаНоменклатура.Сумма;