Автоматизация учета на крупном предприятии

Если НастройкаПериода.Редактировать() Тогда

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

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

КонецЕсли;

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

Процедура ПриИзмененииУстановитьНачалоГода(Элемент)

Элемент.Значение=НачалоГода(Элемент.Значение);

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

Процедура СформироватьОсновныеПоказатели()

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

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

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

"ВЫБРАТЬ

""Объем товарной продукции"" КАК Показатель,

ОбъемТоварнойПродукции.Год,

ОбъемТоварнойПродукции.Сумма

ПОМЕСТИТЬ ОбъемТоварнойПродукции

ИЗ

&ОбъемТоварнойПродукции КАК ОбъемТоварнойПродукции

ВЫБРАТЬ

""Выручка от продаж"" КАК Поле1,

ВыручкаОтПродаж.Год,

ВыручкаОтПродаж.Сумма

ПОМЕСТИТЬ ВыручкаОтПродаж

ИЗ

&ВыручкаОтПродаж КАК ВыручкаОтПродаж

ВЫБРАТЬ

""Себестоимость проданной продукции"" КАК Поле1,

СебестоимостьПроданнойПродукции.Год,

СебестоимостьПроданнойПродукции.Сумма

ПОМЕСТИТЬ СебестоимостьПроданнойПродукции

ИЗ

&СебестоимостьПроданнойПродукции КАК СебестоимостьПроданнойПродукции

ВЫБРАТЬ

""Прибыль от продаж"" КАК Поле1,

ПрибыльОтПродаж.Год,

ПрибыльОтПродаж.Сумма

ПОМЕСТИТЬ ПрибыльОтПродаж

ИЗ

&ПрибыльОтПродаж КАК ПрибыльОтПродаж

ВЫБРАТЬ

""Прибыль до налогообложения"" КАК Поле1,

ПрибыльДоНО.Год,

ПрибыльДоНО.Сумма

ПОМЕСТИТЬ ПрибыльДоНО

ИЗ

&ПрибыльДоНО КАК ПрибыльДоНО

ВЫБРАТЬ

""Чистая прибыль"" КАК Поле1,

ЧистаяПрибыль.Год,

ЧистаяПрибыль.Сумма

ПОМЕСТИТЬ ЧистаяПрибыль

ИЗ

&ЧистаяПрибыль КАК ЧистаяПрибыль

ВЫБРАТЬ

""Среднегодовая стоимость ОС"" КАК Поле1,

СреднегодоваяСтоимостьОС.Год,

СреднегодоваяСтоимостьОС.Сумма

ПОМЕСТИТЬ СреднегодоваяСтоимостьОС

ИЗ

&СреднегодоваяСтоимостьОС КАК СреднегодоваяСтоимостьОС

ВЫБРАТЬ

""Фонд оплаты труда"" КАК Поле1,

ФОТ.Год,

ФОТ.Сумма

ПОМЕСТИТЬ ФОТ

ИЗ

&ФОТ КАК ФОТ

ВЫБРАТЬ

""Среднегодовая стоимость ОФ"" КАК Поле1,

СреднегодоваяСтоимостьОФ.Год,

СреднегодоваяСтоимостьОФ.Сумма КАК Сумма

ПОМЕСТИТЬ СреднегодоваяСтоимостьОФ

ИЗ

&СреднегодоваяСтоимостьОФ КАК СреднегодоваяСтоимостьОФ

ВЫБРАТЬ

""Материальные затраты"" КАК Поле1,

МатериальныеЗатраты.Год,

МатериальныеЗатраты.Сумма

ПОМЕСТИТЬ МатериальныеЗатраты

ИЗ

&МатериальныеЗатраты КАК МатериальныеЗатраты

ВЫБРАТЬ

""Численность сотрудников"" КАК Поле1,

ЧисленностьСотрудников.Год,

ЧисленностьСотрудников.Сумма

ПОМЕСТИТЬ ЧисленностьСотрудников

ИЗ

&ЧисленностьСотрудников КАК ЧисленностьСотрудников

ВЫБРАТЬ

СебестоимостьПроданнойПродукции.Сумма / ОбъемТоварнойПродукции.Сумма КАК Сумма,

ОбъемТоварнойПродукции.Год,

""Затраты на 1р реализ.продукции"" КАК Поле1

ПОМЕСТИТЬ ЗатратыНаРубль

ИЗ

ОбъемТоварнойПродукции КАК ОбъемТоварнойПродукции

ВНУТРЕННЕЕ СОЕДИНЕНИЕ СебестоимостьПроданнойПродукции КАК СебестоимостьПроданнойПродукции

ПО ОбъемТоварнойПродукции.Год = СебестоимостьПроданнойПродукции.Год

ВЫБРАТЬ

ПрибыльОтПродаж.Сумма / СебестоимостьПроданнойПродукции.Сумма * 100 КАК Сумма,

ПрибыльОтПродаж.Год,

""Рентабельность продукции"" КАК Поле1

ПОМЕСТИТЬ РентабельностьПродукции

ИЗ

СебестоимостьПроданнойПродукции КАК СебестоимостьПроданнойПродукции

ВНУТРЕННЕЕ СОЕДИНЕНИЕ ПрибыльОтПродаж КАК ПрибыльОтПродаж

ПО СебестоимостьПроданнойПродукции.Год = ПрибыльОтПродаж.Год

ВЫБРАТЬ

ЧистаяПрибыль.Сумма / ВыручкаОтПродаж.Сумма * 100 КАК Сумма,

ВыручкаОтПродаж.Год,

""Рентабельность продаж"" КАК Поле1

ПОМЕСТИТЬ РентабельностьПродаж

ИЗ

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

ВНУТРЕННЕЕ СОЕДИНЕНИЕ ЧистаяПрибыль КАК ЧистаяПрибыль

ПО ВыручкаОтПродаж.Год = ЧистаяПрибыль.Год

ВЫБРАТЬ

""Фондоотдача"" КАК Поле1,

ОбъемТоварнойПродукции.Сумма / СреднегодоваяСтоимостьОС.Сумма КАК Сумма,

ОбъемТоварнойПродукции.Год

ПОМЕСТИТЬ Фондоотдача

ИЗ

ОбъемТоварнойПродукции КАК ОбъемТоварнойПродукции

ВНУТРЕННЕЕ СОЕДИНЕНИЕ СреднегодоваяСтоимостьОС КАК СреднегодоваяСтоимостьОС

ПО ОбъемТоварнойПродукции.Год = СреднегодоваяСтоимостьОС.Год

ВЫБРАТЬ

СреднегодоваяСтоимостьОФ.Сумма / ЧисленностьСотрудников.Сумма КАК Сумма,

СреднегодоваяСтоимостьОФ.Год,

""Фондовооруженность"" КАК Поле1

ПОМЕСТИТЬ Фондовооруженность

ИЗ

СреднегодоваяСтоимостьОФ КАК СреднегодоваяСтоимостьОФ

ВНУТРЕННЕЕ СОЕДИНЕНИЕ ЧисленностьСотрудников КАК ЧисленностьСотрудников

ПО СреднегодоваяСтоимостьОФ.Год = ЧисленностьСотрудников.Год

ВЫБРАТЬ

""Коэф. оборачиваемости ОС"" КАК Поле1,

ОбъемТоварнойПродукции.Сумма / СреднегодоваяСтоимостьОФ.Сумма КАК Сумма,

ОбъемТоварнойПродукции.Год

ПОМЕСТИТЬ КООС

ИЗ

ОбъемТоварнойПродукции КАК ОбъемТоварнойПродукции

ВНУТРЕННЕЕ СОЕДИНЕНИЕ СреднегодоваяСтоимостьОФ КАК СреднегодоваяСтоимостьОФ

ПО ОбъемТоварнойПродукции.Год = СреднегодоваяСтоимостьОФ.Год

ВЫБРАТЬ

ОбъемТоварнойПродукции.Сумма / ЧисленностьСотрудников.Сумма КАК Сумма,

ОбъемТоварнойПродукции.Год,

""Производительность труда"" КАК Поле1

ПОМЕСТИТЬ ПроизводительностьТруда

ИЗ

ОбъемТоварнойПродукции КАК ОбъемТоварнойПродукции

ВНУТРЕННЕЕ СОЕДИНЕНИЕ ЧисленностьСотрудников КАК ЧисленностьСотрудников

ПО ОбъемТоварнойПродукции.Год = ЧисленностьСотрудников.Год

ВЫБРАТЬ

ВсеВместе.Поле1 КАК Показатель,

ВсеВместе.Год,

ВсеВместе.Сумма

ПОМЕСТИТЬ ОбъедВсеВместе

ИЗ

(ВЫБРАТЬ

ВыручкаОтПродаж.Поле1 КАК Поле1,

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

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

ИЗ

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

ОБЪЕДИНИТЬ ВСЕ

ВЫБРАТЬ

ЗатратыНаРубль.Поле1,

ЗатратыНаРубль.Год,

ЗатратыНаРубль.Сумма

ИЗ

ЗатратыНаРубль КАК ЗатратыНаРубль

ОБЪЕДИНИТЬ ВСЕ

ВЫБРАТЬ

КООС.Поле1,

КООС.Год,

КООС.Сумма

ИЗ

КООС КАК КООС

ОБЪЕДИНИТЬ ВСЕ

ВЫБРАТЬ

МатериальныеЗатраты.Поле1,

МатериальныеЗатраты.Год,

МатериальныеЗатраты.Сумма

ИЗ

МатериальныеЗатраты КАК МатериальныеЗатраты

ОБЪЕДИНИТЬ ВСЕ

ВЫБРАТЬ

ОбъемТоварнойПродукции.Показатель,

ОбъемТоварнойПродукции.Год,

ОбъемТоварнойПродукции.Сумма

ИЗ

ОбъемТоварнойПродукции КАК ОбъемТоварнойПродукции

ОБЪЕДИНИТЬ ВСЕ

ВЫБРАТЬ

ПрибыльДоНО.Поле1,

ПрибыльДоНО.Год,

ПрибыльДоНО.Сумма

ИЗ

ПрибыльДоНО КАК ПрибыльДоНО

ОБЪЕДИНИТЬ ВСЕ

ВЫБРАТЬ

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

ПрибыльОтПродаж.Год,

ПрибыльОтПродаж.Сумма

ИЗ

ПрибыльОтПродаж КАК ПрибыльОтПродаж

ОБЪЕДИНИТЬ ВСЕ

ВЫБРАТЬ

ПроизводительностьТруда.Поле1,

ПроизводительностьТруда.Год,

ПроизводительностьТруда.Сумма

ИЗ

ПроизводительностьТруда КАК ПроизводительностьТруда

ОБЪЕДИНИТЬ ВСЕ

ВЫБРАТЬ

РентабельностьПродаж.Поле1,

РентабельностьПродаж.Год,

РентабельностьПродаж.Сумма

ИЗ

РентабельностьПродаж КАК РентабельностьПродаж

ОБЪЕДИНИТЬ ВСЕ

ВЫБРАТЬ

РентабельностьПродукции.Поле1,

РентабельностьПродукции.Год,

РентабельностьПродукции.Сумма

ИЗ

РентабельностьПродукции КАК РентабельностьПродукции

ОБЪЕДИНИТЬ ВСЕ

ВЫБРАТЬ

СебестоимостьПроданнойПродукции.Поле1,

СебестоимостьПроданнойПродукции.Год,

СебестоимостьПроданнойПродукции.Сумма

ИЗ

СебестоимостьПроданнойПродукции КАК СебестоимостьПроданной Продукции

ОБЪЕДИНИТЬ ВСЕ

ВЫБРАТЬ

СреднегодоваяСтоимостьОС.Поле1,

СреднегодоваяСтоимостьОС.Год,

СреднегодоваяСтоимостьОС.Сумма

ИЗ

СреднегодоваяСтоимостьОС КАК СреднегодоваяСтоимостьОС

ОБЪЕДИНИТЬ ВСЕ

ВЫБРАТЬ

СреднегодоваяСтоимостьОФ.Поле1,

СреднегодоваяСтоимостьОФ.Год,

СреднегодоваяСтоимостьОФ.Сумма

ИЗ

СреднегодоваяСтоимостьОФ КАК СреднегодоваяСтоимостьОФ

ОБЪЕДИНИТЬ ВСЕ

ВЫБРАТЬ

Фондовооруженность.Поле1,

Фондовооруженность.Год,

Фондовооруженность.Сумма

ИЗ

Фондовооруженность КАК Фондовооруженность

ОБЪЕДИНИТЬ ВСЕ

ВЫБРАТЬ

Фондоотдача.Поле1,

Фондоотдача.Год,

Фондоотдача.Сумма

ИЗ

Фондоотдача КАК Фондоотдача

ОБЪЕДИНИТЬ ВСЕ

ВЫБРАТЬ

ФОТ.Поле1,

ФОТ.Год,

ФОТ.Сумма

ИЗ

ФОТ КАК ФОТ

ОБЪЕДИНИТЬ ВСЕ

ВЫБРАТЬ

ЧисленностьСотрудников.Поле1,

ЧисленностьСотрудников.Год,

ЧисленностьСотрудников.Сумма

ИЗ

ЧисленностьСотрудников КАК ЧисленностьСотрудников

ОБЪЕДИНИТЬ ВСЕ

ВЫБРАТЬ

ЧистаяПрибыль.Поле1,

ЧистаяПрибыль.Год,

ЧистаяПрибыль.Сумма

ИЗ

ЧистаяПрибыль КАК ЧистаяПрибыль) КАК ВсеВместе

ВЫБРАТЬ

ОбъедВсеВместе.Показатель,

ОбъедВсеВместе.Год,

ОбъедВсеВместе.Сумма

ИЗ

ОбъедВсеВместе КАК ОбъедВсеВместе";

Запрос.УстановитьПараметр("ОбъемТоварнойПродукции",ОбъемТОварнойПродукции.Выгрузить());

Запрос.УстановитьПараметр("ВыручкаОтПродаж",ВыручкаОтПродаж.Выгрузить());

Запрос.УстановитьПараметр("СебестоимостьПроданнойПродукции",СебестоимостьПроданнойПродукции.Выгрузить());

Запрос.УстановитьПараметр("ПрибыльОтПродаж",ПрибыльОтПродаж.Выгрузить());

Запрос.УстановитьПараметр("ПрибыльДоНО",ПрибыльДоНО.Выгрузить());

Запрос.УстановитьПараметр("ЧистаяПрибыль",ЧистаяПрибыль.Выгрузить());

Запрос.УстановитьПараметр("СреднегодоваяСтоимостьОС",СреднегодоваяСтоимостьОС.Выгрузить());

Запрос.УстановитьПараметр("ФОТ",ФОТ.Выгрузить());

Запрос.УстановитьПараметр("СреднегодоваяСтоимостьОФ",СреднегодоваяСтоимостьОФ.Выгрузить());

Запрос.УстановитьПараметр("МатериальныеЗатраты",МатериальныеЗатраты.Выгрузить());

Запрос.УстановитьПараметр("ЧисленностьСотрудников",ЧисленностьСотрудников.Выгрузить());

Результат = Запрос.Выполнить();

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

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

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

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

//ОбластьДетальныхЗаписей = Макет.ПолучитьОбласть("Детали");

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

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

//ТабДок.Вывести(ОбластьШапкаТаблицы);

//ТабДок.НачатьАвтогруппировкуСтрок();

//ВыборкаДетали = Результат.Выбрать();

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

// ОбластьДетальныхЗаписей.Параметры.Заполнить(ВыборкаДетали);

// ТабДок.Вывести(ОбластьДетальныхЗаписей, ВыборкаДетали. Уровень ());

//КонецЦикла;

//ТабДок.ЗакончитьАвтогруппировкуСтрок();

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

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

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

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

...