Организация бухгалтерского учета на предприятии с использованием программы "1С: Предприятие"
Курсовой проект - Бухгалтерский учет и аудит
Другие курсовые по предмету Бухгалтерский учет и аудит
Процедура ОбработкаПроведения(Отказ, Режим)
Для Каждого ТекСтрокаПереченьНоменклатуры Из ПереченьНоменклатуры Цикл
// регистр ОстаткиМатериалов Расход
//Если ТекСтрокаПереченьНоменклатуры.Номенклатура.ВидНоменклатуры = Перечисления.ВидыНоменклатуры.Материал Тогда
//Продолжить;
//Иначе
//Сообщить("Вы указали услугу в столбце материалов - данные операции не будут проведены");
//КонецЕсли;
Движение = Движения.ОстаткиМатериалов.Добавить();
Движение.ВидДвижения = ВидДвиженияНакопления.Расход;
Движение.Период = Дата;
Движение.Материал = ТекСтрокаПереченьНоменклатуры.Номенклатура;
Движение.Склад = Склад;
Движение.Количество = ТекСтрокаПереченьНоменклатуры.Количество;
// регистр СтоимостьМатериалов Расход
Движение = Движения.СтоимостьМатериалов.Добавить();
Движение.ВидДвижения = ВидДвиженияНакопления.Расход;
Движение.Период = Дата;
Движение.Материал = ТекСтрокаПереченьНоменклатуры.Номенклатура;
Движение.Стоимость = ТекСтрокаПереченьНоменклатуры.Стоимость * ТекСтрокаПереченьНоменклатуры.Количество ;
КонецЦикла;
Для Каждого ТекСтрокаПереченьНоменклатуры Из ПереченьНоменклатуры Цикл
движение = Движения.Продажи.Добавить();
Движение.Период = дата;
Движение.Номенклатура = текСтрокаПереченьНоменклатуры.Номенклатура;
Движение.Клиент = клиент;
Движение.Мастер = мастер;
Движение.Количество = ТекСтрокаПереченьНоменклатуры.Количество;
Движение.Выручка = ТекСтрокаПереченьНоменклатуры.Сумма;
Движение.Стоимость = ТекСтрокаПереченьНоменклатуры.Стоимость * ТекСтрокаПереченьНоменклатуры.Количество ;
КонецЦикла;
Для Каждого ТекСтрокаДополнительныеДанныеОУслуге Из ДополнительныеДанныеОУслуге Цикл
движение = Движения.Продажи.Добавить();
Движение.Период = дата;
Движение.Номенклатура = ТекСтрокаДополнительныеДанныеОУслуге.Услуга;
Движение.Клиент = клиент;
Движение.Мастер = мастер;
Движение.Выручка = ТекСтрокаДополнительныеДанныеОУслуге.СтоимостьУслуги;
КонецЦикла;
КонецПроцедуры
Процедура МатериалыИнициализация()
ПостроительОтчетаМатериалы.Текст ="ВЫБРАТЬ
|ОстаткиМатериаловОстаткиИОбороты.Материал,
|ПРЕДСТАВЛЕНИЕ(ОстаткиМатериаловОстаткиИОбороты.Материал),
|ОстаткиМатериаловОстаткиИОбороты.Склад КАК Склад,
|ПРЕДСТАВЛЕНИЕ(ОстаткиМатериаловОстаткиИОбороты.Склад),
|ОстаткиМатериаловОстаткиИОбороты.КоличествоНачальныйОстаток,
|ОстаткиМатериаловОстаткиИОбороты.КоличествоПриход,
|ОстаткиМатериаловОстаткиИОбороты.КоличествоРасход,
|ОстаткиМатериаловОстаткиИОбороты.КоличествоКонечныйОстаток
|ИЗ
|РегистрНакопления.ОстаткиМатериалов.ОстаткиИОбороты КАК ОстаткиМатериаловОстаткиИОбороты
|ИТОГИ ПО
|Склад";ПостроительОтчетаМатериалы.ЗаполнитьНастройки();
ПостроительОтчетаМатериалы.ЗаполнениеРасшифровки = ВидЗаполненияРасшифровкиПостроителяОтчета.ЗначенияГруппировок;
ПостроительОтчетаМатериалы.ТекстЗаголовка = "Материалы";
Настройка = ВосстановитьЗначение("НастройкаОтчетыМатериалыМатериалы_c5ff7d03-2152-4e8f-876e-abdd2a091e34");
Если Настройка <> Неопределено Тогда
ПостроительОтчетаМатериалы.УстановитьНастройки(Настройка);
КонецЕсли;
КонецПроцедуры
Процедура ДействияФормыМатериалыНастройка(Кнопка)
Форма = ОтчетОбъект.ПолучитьФорму("МатериалыНастройка");
Форма.ПостроительОтчета = ПостроительОтчетаМатериалы;
Настройка = ПостроительОтчетаМатериалы.ПолучитьНастройки();
Если Форма.ОткрытьМодально() = Истина Тогда
МатериалыВывести();
Иначе
ПостроительОтчетаМатериалы.УстановитьНастройки(Настройка);
КонецЕсли;
КонецПроцедуры
Процедура ПриЗакрытии()
СохранитьЗначение("НастройкаОтчетыМатериалыМатериалы_c5ff7d03-2152-4e8f-876e-abdd2a091e34", ПостроительОтчетаМатериалы.ПолучитьНастройки());
КонецПроцедуры
Процедура ПередОткрытием(Отказ, СтандартнаяОбработка)
МатериалыИнициализация();
КонецПроцедуры.