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

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

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

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

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

Движение.СчетДт = ПланыСчетов.Основной.РасходыНаПродажу;

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

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

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

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

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

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

КонецЦикла;

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

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

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

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

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

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

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

Организация = ДанныеЗаполнения.Плательщик;

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

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

НоваяСтрока.Код = ТекСтрокаСодержание.Код;

НоваяСтрока.Количество = ТекСтрокаСодержание.Количество;

НоваяСтрока.Наименование = ТекСтрокаСодержание.Наименование;

НоваяСтрока.Сумма = ТекСтрокаСодержание.СуммаБезНДС;

НоваяСтрока.Цена = ТекСтрокаСодержание.Цена;

КонецЦикла;

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

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

Для Каждого ТекСтрокаРасчет Из ДанныеЗаполнения.Расчет Цикл

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

НоваяСтрока.Сумма = ТекСтрокаРасчет.СуммаБезСкидки;

КонецЦикла;

Для Каждого ТекСтрокаТовары Из ДанныеЗаполнения.Товары Цикл

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

НоваяСтрока.Количество = ТекСтрокаТовары.Количество;

НоваяСтрока.Наименование = ТекСтрокаТовары.Наименование;

НоваяСтрока.Код = ТекСтрокаТовары.Номер;

НоваяСтрока.Цена = ТекСтрокаТовары.Цена;

КонецЦикла;

КонецЕсли;

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

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

Содержание модуля менеджера документа «Акт о списании товаров»

Процедура Печать(ТабДок, Ссылка) Экспорт

//{{_КОНСТРУКТОР_ПЕЧАТИ(Печать1)

Макет = Документы.АктОСписанииТовара.ПолучитьМакет("Акт");

Запрос = Новый Запрос;

Запрос.Текст =

"ВЫБРАТЬ

АктОСписанииТовара.Номер,

АктОСписанииТовара.Дата,

АктОСписанииТовара.Содержание.(

НомерСтроки,

Наименование,

Артикул,

Цена,

Количество,

Сумма,

ПричинаСписания

),

АктОСписанииТовара.Организация,

АктОСписанииТовара.ФИО,

АктОСписанииТовара.Должность

ИЗ

Документ.АктОСписанииТовара КАК АктОСписанииТовара

ГДЕ

АктОСписанииТовара.Ссылка В(&Ссылка)";

Запрос.Параметры.Вставить("Ссылка", Ссылка);

Выборка = Запрос.Выполнить().Выбрать();

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

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

ОбластьСодержаниеШапка = Макет.ПолучитьОбласть("СодержаниеШапка");

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

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

ТабДок.Очистить();

ВставлятьРазделительСтраниц = Ложь;

Пока Выборка.Следующий() Цикл

Если ВставлятьРазделительСтраниц Тогда

ТабДок.ВывестиГоризонтальныйРазделительСтраниц();

КонецЕсли;

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

Шапка.Параметры.Заполнить(Выборка);

ТабДок.Вывести(Шапка, Выборка.Уровень());

ТабДок.Вывести(ОбластьСодержаниеШапка);

ВыборкаСодержание = Выборка.Содержание.Выбрать();

ЦенаИтог = 0;

СуммаИтог=0;

КоличествоИтог=0;

Пока ВыборкаСодержание.Следующий() Цикл

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

ТабДок.Вывести(ОбластьСодержание, ВыборкаСодержание.Уровень());

СуммаИтог=СуммаИтог + ВыборкаСодержание.Сумма;

КоличествоИтог=КоличествоИтог + ВыборкаСодержание.Количество;

ЦенаИтог=ЦенаИтог + ВыборкаСодержание.Цена;

КонецЦикла;

ОбластьИтог.Параметры.ВсегоЦена = ЦенаИтог;

ОбластьИтог.Параметры.ВсегоКоличество = КоличествоИтог;

ОбластьИтог.Параметры.ВсегоСумма = СуммаИтог;

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

ВставлятьРазделительСтраниц = Истина;

КонецЦикла;

//}}

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

Содержание модуля объекта документа «Начисления сотрудникам»:

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

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

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

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

// регистр Начисления

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

Для Каждого ТекСтрокаНачисления Из Начисления Цикл

Движение = Движения.Начисления.Добавить();

Движение.Сторно = Ложь;

Движение.ВидРасчета = ТекСтрокаНачисления.ВидРасчета;

Движение.ПериодДействияНачало = ТекСтрокаНачисления.ДатаНачала;

Движение.ПериодДействияКонец = КонецДня(ТекСтрокаНачисления.ДатаОкончания);

Движение.ПериодРегистрации = Дата;

Движение.БазовыйПериодНачало = ТекСтрокаНачисления.ДатаНачала;

Движение.БазовыйПериодКонец = КонецДня(ТекСтрокаНачисления.ДатаОкончания);

Движение.Сотрудник = ТекСтрокаНачисления.Сотрудник;

Движение.ГрафикРаботы = ТекСтрокаНачисления.ГрафикРаботы;

Движение.ИсходныеДанные = ТекСтрокаНачисления.Начислено;

КонецЦикла;

Движения.Начисления.Записать();

Запрос = Новый Запрос("ВЫБРАТЬ

НачисленияСотрудникамНачисления.Сотрудник КАК Сотрудник

ИЗ

Документ.НачисленияСотрудникам.Начисления КАК НачисленияСотрудникамНачисления

ГДЕ

НачисленияСотрудникамНачисления.Ссылка = &ТекущийДокумент");

Запрос.УстановитьПараметр("ТекущийДокумент",Ссылка);

ТаблЗнач = Запрос.Выполнить().Выгрузить();

МассивСотрудников = ТаблЗнач.ВыгрузитьКолонку("Сотрудник");

ПроведениеРасчетов.РассчитатьНачисления(Движения.Начисления,ПланыВидовРасчета.ОсновныеНачисления.Оклад, МассивСотрудников);

Движения.Начисления.Записать( , Истина);

ПроведениеРасчетов.РассчитатьНачисления(Движения.Начисления, ПланыВидовРасчета.ОсновныеНачисления.Премия, МассивСотрудников);

Движения.Начисления.Записать( , Истина);

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

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

Содержание запроса в отчете «Материалы»:

ВЫБРАТЬ

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

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

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

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

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

ИЗ

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

Содержание запроса в отчете «Реестр документов оказание услуги»:

ВЫБРАТЬ

Продажа.Ссылка КАК Документ,

Продажа.Склад,

Продажа.Кассир

ИЗ

Документ.Продажа КАК Продажа

УПОРЯДОЧИТЬ ПО

Документ

Содержание запроса в отчете «Выручка»:

ВЫБРАТЬ

ПродажиОбороты.Период,

ПродажиОбороты.Кассир,

ПродажиОбороты.ВыручкаОборот КАК Выручка

ИЗ

РегистрНакопления.Продажи.Обороты(, , День, ) КАК ПродажиОбороты

Содержание запроса в отчете «Универсальный»:

ВЫБРАТЬ

ПродажиОбороты.Номенклатура,

ПродажиОбороты.Кассир,

ПродажиОбороты.КоличествоОборот,

ПродажиОбороты.ВыручкаОборот

ИЗ

РегистрНакопления.Продажи.Обороты КАК ПродажиОбороты

Содержание запроса в отчете «Остатки материалов по свойствам»:

ВЫБРАТЬ

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

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

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

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

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

ИЗ

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

{ХАРАКТЕРИСТИКИ

ТИП(Справочник.ВариантыНоменклатуры)

ВИДЫХАРАКТЕРИСТИК ПланВидовХарактеристик.СвойстваНоменклатуры

ПОЛЕКЛЮЧА Ссылка

ПОЛЕИМЕНИ Наименование

ПОЛЕТИПАЗНАЧЕНИЯ ТипЗначения

ЗНАЧЕНИЯХАРАКТЕРИСТИК РегистрСведений.ЗначенияСвойствНоменклатуры

ПОЛЕОБЪЕКТА НаборСвойств

ПОЛЕВИДА ВидСвойства

ПОЛЕЗНАЧЕНИЯ Значение }

Содержание запроса в отчете «Оборотно-сальдовая ведомость»:

ВЫБРАТЬ

Основной.Ссылка КАК Счет,

УправленческийОстаткиИОбороты.СуммаНачальныйОстатокДт КАК НачальныйОстатокДт,

УправленческийОстаткиИОбороты.СуммаНачальныйОстатокКт КАК НачальныйОстатокКт,

УправленческийОстаткиИОбороты.СуммаКонечныйОстатокДт КАК КонечныйОстатокДт,

УправленческийОстаткиИОбороты.СуммаКонечныйОстатокКт КАК КонечныйОстатокКт,

УправленческийОстаткиИОбороты.СуммаОборотДт КАК ОборотДт,

УправленческийОстаткиИОбороты.СуммаОборотКт КАК ОборотКт

ИЗ

ПланСчетов.Основной КАК Основной

ЛЕВОЕ СОЕДИНЕНИЕ РегистрБухгалтерии.Управленческий.ОстаткиИОбороты КАК УправленческийОстаткиИОбороты

ПО (УправленческийОстаткиИОбороты.Счет = Основной.Ссылка)

Размещено на Allbest.ru

...