Автоматизация бухгалтерского учета на предприятии сферы услуг с использованием системы «1С:Предприятие 8», страница 8

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

                      ОбластьМатериалы.Параметры.Заполнить(ТекСтрокаМатериалы);

                      ТабДок.Вывести(ОбластьМатериалы);

       КонецЦикла;

       // Подвал

       Подвал = Макет.ПолучитьОбласть("Подвал");

       Подвал.Параметры.СуммаИтого = Материалы.Итог ("Сумма");

       ТабДок.Вывести(Подвал);

       ТабДок.ОтображатьСетку = Ложь;

       ТабДок.Защита = Ложь;

       ТабДок.ТолькоПросмотр = Истина;

       ТабДок.ОтображатьЗаголовки = Ложь;

       ТабДок.Показать();

       //}}_КОНСТРУКТОР_ПЕЧАТИ_ЭЛЕМЕНТ

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

Приложение 2

Модуль объекта «Документ «Поступление материалов»

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

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

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

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

       // регистр Основной

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

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

                      Движение = Движения.Основной.Добавить();

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

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

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

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

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

                      Движение.Содержание = "Поступил материал";

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

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

       КонецЦикла;

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

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

Процедура ПередЗаписью (Отказ, РежимЗаписи, РежимПроведения)

       СуммаИтого = Материалы.Итог ("Сумма");

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

Приложение 3

Модуль объекта «Документ «Оплата поставщику»

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

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

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

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

       // регистр Основной

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

       Движение = Движения.Основной.Добавить();

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

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

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

       Движение.Сумма = Сумма;

       Движение.Содержание = "Оплата поставщику";

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

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

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

Процедура ОбработкаЗаполнения(ДанныеЗаполнения, СтандартнаяОбработка)

       //{{__КОНСТРУКТОР_ВВОД_НА_ОСНОВАНИИ

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

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

       Если ТипЗнч(ДанныеЗаполнения) = Тип("ДокументСсылка.ПоступлениеМатериалов") Тогда

                      // Заполнение шапки

                      Поставщик = ДанныеЗаполнения.Поставщик;

                      Сумма = ДанныеЗаполнения.Материалы.Итог("Сумма");

       ИначеЕсли ТипЗнч(ДанныеЗаполнения) = Тип("ДокументСсылка.УчетЗатрат") Тогда

                      // Заполнение шапки

                      Поставщик = ДанныеЗаполнения.Поставщик;

                      Сумма = ДанныеЗаполнения.Сумма;

       КонецЕсли;

       //}}__КОНСТРУКТОР_ВВОД_НА_ОСНОВАНИИ

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

Приложение 4

Журнал проводок за апрель

Приложение 5

Карточка счета № 20

Приложение 6

Карточка счета № 10