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