Файл: Разработка и реализация конфигураций 1С: Предприятие (Технико-экономическая характеристика предметной области медицинского учреждения).pdf

Движение.Цена = ТекСтрокаУслуги.Цена;

КонецЦикла;

//}}__КОНСТРУКТОР_ДВИЖЕНИЙ_РЕГИСТРОВ

КонецПроцедуры

Процедура ОбработкаПроведения(Отказ, Режим)

//{{__КОНСТРУКТОР_ДВИЖЕНИЙ_РЕГИСТРОВ

// Данный фрагмент построен конструктором.

// При повторном использовании конструктора, внесенные вручную изменения будут утеряны!!!

// регистр ОстаткиНоменклатуры Расход

Движения.ОстаткиНоменклатуры.Записывать = Истина;

Для Каждого ТекСтрокаУслуги Из Услуги Цикл

Движение = Движения.ОстаткиНоменклатуры.Добавить();

Движение.ВидДвижения = ВидДвиженияНакопления.Расход;

Движение.Период = Дата;

Движение.Склад = Склад;

Движение.Номенклатура = ТекСтрокаУслуги.Номенклатура;

Движение.Количество = ТекСтрокаУслуги.Количество;

КонецЦикла;

// регистр Продажи

Движения.Продажи.Записывать = Истина;

Для Каждого ТекСтрокаУслуги Из Услуги Цикл

Движение = Движения.Продажи.Добавить();

Движение.Период = Дата;

Движение.Номенклатура = ТекСтрокаУслуги.Номенклатура;

Движение.Склад = Склад;

Движение.Количество = ТекСтрокаУслуги.Количество;

Движение.Сумма = ТекСтрокаУслуги.Сумма;

КонецЦикла;

//}}__КОНСТРУКТОР_ДВИЖЕНИЙ_РЕГИСТРОВ

КонецПроцедуры

Процедура ОбработкаПроведения(Отказ, Режим)

//{{__КОНСТРУКТОР_ДВИЖЕНИЙ_РЕГИСТРОВ

// Данный фрагмент построен конструктором.

// При повторном использовании конструктора, внесенные вручную изменения будут утеряны!!!

// регистр ОстаткиНоменклатуры Расход

Движения.ОстаткиНоменклатуры.Записывать = Истина;

Для Каждого ТекСтрокаУслуги Из Услуги Цикл

Движение = Движения.ОстаткиНоменклатуры.Добавить();

Движение.ВидДвижения = ВидДвиженияНакопления.Расход;

Движение.Период = Дата;

Движение.Склад = СкладИсточник;

Движение.Номенклатура = ТекСтрокаТовары.Номенклатура;

Движение.Количество = ТекСтрокаУслуги.Количество;

КонецЦикла;

// регистр ОстаткиНоменклатуры Приход

Движения.ОстаткиНоменклатуры.Записывать = Истина;

Для Каждого ТекСтрокаУслуги Из Товары Цикл

Движение = Движения.ОстаткиНоменклатуры.Добавить();

Движение.ВидДвижения = ВидДвиженияНакопления.Приход;

Движение.Период = Дата;

Движение.Склад = СкладПриемник;

Движение.Номенклатура = ТекСтрокаТовары.Номенклатура;

Движение.Количество = ТекСтрокаТовары.Количество;

КонецЦикла;

//}}__КОНСТРУКТОР_ДВИЖЕНИЙ_РЕГИСТРОВ

КонецПроцедуры

Процедура ОбработкаПроведения(Отказ, Режим)