В начало

Расходная

 

            На закладке «Основные» свойств пишем название «Расходная».

            На закладке «Данные» добавляем реквизиты: Контрагент, Склад. Также добавляем табличную часть «Товары», а в ней реквизиты: Номенклатура, Цена, Количество, Сумма.

Рис. 1. Закладка «Данные»

Рис. 1. Закладка «Данные»

 

Таблица 1. Свойства реквизитов

Реквизит

Тип

Контрагент

СправочникСсылкаонтрагенты

Склад

СправочникСсылкаклады

Номенклатура

СправочникСсылкаоменклатура

Цена

Число, 15:2

Количество

Число: 10:3

Сумма

Число, 15:2

 

            На закладке «Движения» выбираем регистр бухгалтерии «Управленческий» и нажимаем кнопку «Конструктор движений», чтобы сформировать движения.

Рис. 2. Закладка «Движения»

Рис. 2. Закладка «Движения»

 

Листинг 1. Обработка проведения в модуле объекта

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

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

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

// При повторном использовании конструктора,

// внесенные вручную изменения будут утеряны!!!

 

      // регистр Управленческий

      Движенияправленческий.Записывать = Истина;

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

            Движение = Движенияправленческий.Добавить();

            ДвижениечетДт = ПланыСчетов.Управленческий.Прибыль;

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

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

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

            ДвижениеубконтоКт[ПланыВидовХарактеристик.ВидыСубконто.Номенклатура] = ТекСтрокаТовары.Номенклатура;

            ДвижениеубконтоКт[ПланыВидовХарактеристик.ВидыСубконто.Склады] = Склад;

      КонецЦикла;

 

      // регистр Управленческий

      Движенияправленческий.Записывать = Истина;

      Движение = Движенияправленческий.Добавить();

      ДвижениечетДт = ПланыСчетов.Управленческий.РасчетыСПокупателями;

      ДвижениечетКт = ПланыСчетов.Управленческий.Прибыль;

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

      Движениеумма = Товары.Итог("Сумма");

      ДвижениеубконтоДт[ПланыВидовХарактеристик.ВидыСубконто.Контрагенты] = Контрагент;

 

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

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

 

ПРИМЕЧАНИЕ: данный пример сделан на версии 8.3 платформы «1Средприятие»