Дипломная работа: Автоматизация учета спроса на продуктовый ассортимент в сети аптек "Ленфарм"

Внимание! Если размещение файла нарушает Ваши авторские права, то обязательно сообщите нам
118
Движение.ВидДвижения = ВидДвиженияНакопления.Расход;
Движение.Период = Дата;
Движение.СкладРасход = Склад;
Движение.Товар = ТекСтрокаТовары.Номенклатура;
Движение.Менеджер = Менеджер;
Движение.Количество = ТекСтрокаТовары.Количество;
Движение.Сумма = ТекСтрокаТовары.Сумма;
Движение.Контрагент = Контрагент;
КонецЦикла;
// регистр Продажи
Движения.Продажи.Записывать = Истина;
Для Каждого ТекСтрокаТовары Из Товары Цикл
Движение = Движения.Продажи.Добавить();
Движение.Период = Дата;
Движение.Товар = ТекСтрокаТовары.Номенклатура;
Движение.Менеджер = Менеджер;
Движение.Склад = Склад;
Движение.Контрагент = Контрагент;
Движение.Количество = ТекСтрокаТовары.Количество;
Движение.СуммаДолжен = СуммаДолженЗаплатить;
Движение.СуммаОплатил = СуммаЗаплатил;
Движение.Задолженность = СуммаЗаплатил-СуммаДолженЗаплатить;
КонецЦикла;
//}}__КОНСТРУКТОР_ДВИЖЕНИЙ_РЕГИСТРОВ
КонецПроцедуры
Документ «Накладная на перемещение». Модуль обработки
Процедура ОбработкаПроведения(Отказ, Режим)
//{{__КОНСТРУКТОР_ДВИЖЕНИЙ_РЕГИСТРОВ
// Данный фрагмент построен конструктором.
// При повторном использовании конструктора, внесенные вручную изменения
будут утеряны!!!
// регистр ОстаткиТоваров Приход
Движения.ОстаткиТоваров.Записывать = Истина;
Для Каждого ТекСтрокаТовары Из Товары Цикл
Движение = Движения.ОстаткиТоваров.Добавить();
Движение.ВидДвижения = ВидДвиженияНакопления.Приход;
Движение.Период = Дата;
Движение.СкладПриход = Склад2;
Движение.Товар = ТекСтрокаТовары.Номенклатура;
Движение.Менеджер = Менеджер;
Движение.Количество = ТекСтрокаТовары.Количество;
Движение.Сумма = ТекСтрокаТовары.Сумма;
КонецЦикла;
// регистр ОстаткиТоваров Расход
Движения.ОстаткиТоваров.Записывать = Истина;
Для Каждого ТекСтрокаТовары Из Товары Цикл
119
Движение = Движения.ОстаткиТоваров.Добавить();
Движение.ВидДвижения = ВидДвиженияНакопления.Расход;
Движение.Период = Дата;
Движение.СкладРасход = Склад1;
Движение.Товар = ТекСтрокаТовары.Номенклатура;
Движение.Менеджер = Менеджер;
Движение.Количество = ТекСтрокаТовары.Количество;
Движение.Сумма = ТекСтрокаТовары.Сумма;
КонецЦикла;
//}}__КОНСТРУКТОР_ДВИЖЕНИЙ_РЕГИСТРОВ
КонецПроцедуры
Источник: https://baza.diplomsite.ru/previewfile/2466