Организация бухгалтерского учета на предприятии с использованием программы "1С: Предприятие"

Курсовой проект - Бухгалтерский учет и аудит

Другие курсовые по предмету Бухгалтерский учет и аудит

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

Для Каждого ТекСтрокаПереченьНоменклатуры Из ПереченьНоменклатуры Цикл

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

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

//Продолжить;

//Иначе

//Сообщить("Вы указали услугу в столбце материалов - данные операции не будут проведены");

//КонецЕсли;

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

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

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

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

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

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

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

Движение = Движения.СтоимостьМатериалов.Добавить();

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

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

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

Движение.Стоимость = ТекСтрокаПереченьНоменклатуры.Стоимость * ТекСтрокаПереченьНоменклатуры.Количество ;

КонецЦикла;

Для Каждого ТекСтрокаПереченьНоменклатуры Из ПереченьНоменклатуры Цикл

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

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

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

Движение.Клиент = клиент;

Движение.Мастер = мастер;

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

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

Движение.Стоимость = ТекСтрокаПереченьНоменклатуры.Стоимость * ТекСтрокаПереченьНоменклатуры.Количество ;

КонецЦикла;

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

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

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

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

Движение.Клиент = клиент;

Движение.Мастер = мастер;

Движение.Выручка = ТекСтрокаДополнительныеДанныеОУслуге.СтоимостьУслуги;

КонецЦикла;

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

Процедура МатериалыИнициализация()

ПостроительОтчетаМатериалы.Текст ="ВЫБРАТЬ

|ОстаткиМатериаловОстаткиИОбороты.Материал,

|ПРЕДСТАВЛЕНИЕ(ОстаткиМатериаловОстаткиИОбороты.Материал),

|ОстаткиМатериаловОстаткиИОбороты.Склад КАК Склад,

|ПРЕДСТАВЛЕНИЕ(ОстаткиМатериаловОстаткиИОбороты.Склад),

|ОстаткиМатериаловОстаткиИОбороты.КоличествоНачальныйОстаток,

|ОстаткиМатериаловОстаткиИОбороты.КоличествоПриход,

|ОстаткиМатериаловОстаткиИОбороты.КоличествоРасход,

|ОстаткиМатериаловОстаткиИОбороты.КоличествоКонечныйОстаток

|ИЗ

|РегистрНакопления.ОстаткиМатериалов.ОстаткиИОбороты КАК ОстаткиМатериаловОстаткиИОбороты

|ИТОГИ ПО

|Склад";ПостроительОтчетаМатериалы.ЗаполнитьНастройки();

ПостроительОтчетаМатериалы.ЗаполнениеРасшифровки = ВидЗаполненияРасшифровкиПостроителяОтчета.ЗначенияГруппировок;

ПостроительОтчетаМатериалы.ТекстЗаголовка = "Материалы";

Настройка = ВосстановитьЗначение("НастройкаОтчетыМатериалыМатериалы_c5ff7d03-2152-4e8f-876e-abdd2a091e34");

Если Настройка <> Неопределено Тогда

ПостроительОтчетаМатериалы.УстановитьНастройки(Настройка);

КонецЕсли;

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

Процедура ДействияФормыМатериалыНастройка(Кнопка)

Форма = ОтчетОбъект.ПолучитьФорму("МатериалыНастройка");

Форма.ПостроительОтчета = ПостроительОтчетаМатериалы;

Настройка = ПостроительОтчетаМатериалы.ПолучитьНастройки();

Если Форма.ОткрытьМодально() = Истина Тогда

МатериалыВывести();

Иначе

ПостроительОтчетаМатериалы.УстановитьНастройки(Настройка);

КонецЕсли;

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

Процедура ПриЗакрытии()

СохранитьЗначение("НастройкаОтчетыМатериалыМатериалы_c5ff7d03-2152-4e8f-876e-abdd2a091e34", ПостроительОтчетаМатериалы.ПолучитьНастройки());

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

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

МатериалыИнициализация();

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