Для указанного документа должно быть сформировано две проводки в соответствии с Таблица 1.
1. Открыть документ Договор, перейти на вкладку Движения. Активизировать конструктор движений, добавить новое движение по регистру Бухгалтерский.
2. Указать счета дебета и кредита (Сырье и материалы, Расчеты с поставщиками и подрядчиками в рублях) в соответствующих разделах. Выбрать табличную часть – Спецификация поставки. Поставить в соответствие ресурсам и субконто регистра реквизиты документа. Окно конструктора движения по бухгалтерскому регистру представлено на Рис. 7.
3. Добавить следующее движение по регистру бухгалтерии для данного документа. Счет дебета - НДС по приобретенным МПЗ, счет кредита - Расчеты с поставщиками и подрядчиками в рублях. Заполнить субконто и ресурсы проводки (обратить внимание, что возможны два одинаковых значения субконто). Для заполнения ресурса Сумма сформировать выражение: ИтогоПоДокументу-ИтогоБезНДС (соответствующие реквизиты документа выводить двойным щелчком).
|
|
4. После завершения создания движений (выхода из конструктора движений) на экране отобразится сформированная процедура в модуле объекта Поставка материалов. Фрагмент процедуры, связанный с наполнением бухгалтерских регистров представлен ниже.
Рис. 7 Формирование записей регистра бухгалтерии в режиме конструктора
Для Каждого ТекСтрокаСпецификацияПоставки Из СпецификацияПоставки Цикл
// регистр Бухгалтерский
Движение = Движения.Бухгалтерский.Добавить();
Движение.СчетДт = ПланыСчетов.Бухгалтерский.СырьеИматериалы;
Движение.СчетКт = ПланыСчетов.Бухгалтерский. РасчетСпоставщикамиВруб;
Движение.Период = Дата;
Движение.Сумма = ТекСтрокаСпецификацияПоставки.Сумма;
Движение.Количество = ТекСтрокаСпецификацияПоставки.Количество;
Движение.СубконтоДт[ПланыВидовХарактеристик.ВидыСубконто.Материал] = ТекСтрокаСпецификацияПоставки.Материал;
Движение.СубконтоКт[ПланыВидовХарактеристик.ВидыСубконто.Контрагент] = Контрагент;
КонецЦикла;
// регистр Бухгалтерский
Движение = Движения.Бухгалтерский.Добавить();
Движение.СчетДт = ПланыСчетов.Бухгалтерский.НДСПоПриобретеннымМПЗ;
Движение.СчетКт = ПланыСчетов.Бухгалтерский.РасчетСпоставщикамиВруб;
Движение.Период = Дата;
Движение.Сумма = ИтогоПоДокументу-ИтогоБезНДС;
Движение.СубконтоДт[ПланыВидовХарактеристик.ВидыСубконто.Контрагент] = Контрагент;
|
|
Движение.СубконтоКт[ПланыВидовХарактеристик.ВидыСубконто.Контрагент] = Контрагент;
// записываем движения регистров
Движения.ДвижениеМатериалов.Записать();
Движения.Бухгалтерский.Записать();
Для проверки запустить приложение. Открыть любой документ поставки (создать), провести документ. Через меню Операции/Регистры бухгалтерии открыть Бухгалтерский регистр, просмотреть сформированные записи.
Самостоятельно. Провести остальные документы.