Untitled
plain_text
a month ago
2.4 kB
0
Indexable
Never
Процедура ОбработкаПроведенияОУ(Отказ) // ДВИЖЕНИЯ ПО РЕГИСТРУ ОСТАТКИ НОМЕНКЛАТУРЫ Движения.ОстаткиНоменклатуры.Записывать = Истина; Запрос = Новый Запрос; Запрос.Текст = "ВЫБРАТЬ | ПриходнаяНакладнаяСписокНоменклатуры.Номенклатура КАК Номенклатура, | СУММА(ПриходнаяНакладнаяСписокНоменклатуры.Количество) КАК Количество, | СУММА(ПриходнаяНакладнаяСписокНоменклатуры.Сумма) КАК Сумма, | ДОБАВИТЬКДАТЕ(&Дата, ДЕНЬ, ПриходнаяНакладнаяСписокНоменклатуры.СрокГодности) КАК СрокГодности |ИЗ | Документ.ПриходнаяНакладная.СписокНоменклатуры КАК ПриходнаяНакладнаяСписокНоменклатуры |ГДЕ | ПриходнаяНакладнаяСписокНоменклатуры.Ссылка = &Ссылка | |СГРУППИРОВАТЬ ПО | ПриходнаяНакладнаяСписокНоменклатуры.Номенклатура, | ДОБАВИТЬКДАТЕ(&Дата, ДЕНЬ, ПриходнаяНакладнаяСписокНоменклатуры.СрокГодности)"; Запрос.УстановитьПараметр("Ссылка", Ссылка); Запрос.УстановитьПараметр("Дата", Дата); Выборка = Запрос.Выполнить().Выбрать(); Пока Выборка.Следующий() Цикл Движение = Движения.ОстаткиНоменклатуры.Добавить(); Движение.ВидДвижения = ВидДвиженияНакопления.Приход; Движение.Период = Дата; Движение.Номенклатура = Выборка.Номенклатура; Движение.СрокГодности = Выборка.СрокГодности; Движение.Количество = Выборка.Количество; Движение.Сумма = Выборка.Сумма; КонецЦикла; КонецПроцедуры