В 1C:EDT

В отличие от документа ПриходнаяНакладная, который создавал всего одну бухгалтерскую проводку, документ ОказаниеУслуги будет создавать уже две.

Как уже говорилось, бухгалтерия вашего ООО «На все руки мастер» не совсем похожа на настоящую, потому что для облегчения работы она учитывает только движения материалов. Услуги, которые оказывает организация, для нее как бы не существуют.

Поэтому документ ОказаниеУслуги будет формировать движения по регистру бухгалтерии только в той части, которая касается расходования материалов.

В список регистров, в которых документ ОказаниеУслуги будет создавать движения, добавьте регистр бухгалтерии Управленческий.

Откройте модуль документа ОказаниеУслуги и внесите изменения в процедуру обработчика события ОбработкаПроведения. Поскольку вас интересует только движение материалов, для внесения дополнений подойдет тело условия Если…, в котором вы формировали движения по регистрам ОстаткиМатериалов и СтоимостьМатериалов.

Добавьте в конец условия, перед строкой КонецЕсли, движения по регистру бухгалтерии Управленческий (листинг 17.3).

Листинг 17.3. Движения документа «ОказаниеУслуги» (фрагмент)

…

Если ВыборкаДетальныеЗаписи.ВидНоменклатуры = Перечисления.ВидыНоменклатуры.Материал Тогда

 

// Регистр ОстаткиМатериалов Расход

…

 

// Регистр СтоимостьМатериалов Расход

…

 

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

// Первая проводка:  Д 62(ДебиторскаяЗадолженность) – К 90 (Капитал) Розничная сумма

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

Движение.СчетДт = ПланыСчетов.Основной.ДебиторскаяЗадолженность;

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

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

Движение.Сумма = ВыборкаДетальныеЗаписи.СуммаВДокументе;

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

 

// Вторая проводка: Д 90 (Капитал) – К 41 (Товары) – себестоимость

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

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

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

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

Движение.Сумма = СтоимостьМатериала * ВыборкаДетальныеЗаписи.КоличествоВДокументе;

Движение.КоличествоКт = ВыборкаДетальныеЗаписи.КоличествоВДокументе;

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

 

КонецЕсли;

…

В первой проводке вы указываете розничную сумму материала из документа и субконто дебета, поскольку на счете Дебиторская задолженность ведется учет в разрезе клиентов.

Во второй проводке вы указываете стоимость материала, количество и субконто кредита, поскольку на счете Товары ведется количественный учет в разрезе материалов.

Теперь в самом начале процедуры установите свойство Записывать регистра бухгалтерии в значение Истина для записи изменений регистра в базу данных (листинг 17.4).

Листинг 17.4. Запись движений регистров

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

 

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

Движения.СтоимостьМатериалов.Записывать = Истина;

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

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

…

В заключение установите видимость команды Управленческий в панели навигации формы документа.