8. Быстрое изменение конфигурации с помощью «конструкторов».

В некоторых случаях система учета, принятая в организации, имеет уникальный характер. Тогда типовая конфигурация, входящая в состав программных продуктов системы «1С:Предприятие», может быть взята как образец для создания уникальной конфигурации, полностью ориентированной на особенности организации.

Создание оригинальных конфигураций позволяет решать с помощью «1С: Предприятия» самые разнообразные задачи по автоматизации экономической деятельности.

Все версии полностью функционально совместимы, что позволяет легко перейти от использования программы на одном рабочем месте к многопользовательским и распределенным вариантам использования системы.

Сетевые версии позволяют нескольким пользователям одновременно работать с одной информационной базой. Все изменения, вносимые одним из пользователей, сразу становятся доступны другим пользователям системы. Система поддерживает блокировку объектов, редактируемых пользователем, от изменения другими пользователями. Для каждого из пользователей, работающих с сетевой версией, может быть назначен набор прав на доступ к информации, обрабатываемой системой, и настроен индивидуальный интерфейс для быстрого доступа к часто используемым функциям и режимам.

Функциональное свойство системы 1с:предприятие состоит в использовании конфигураций максимально приближенных к выполнению задач определенного участка учета. В семейство 1с предприятие 7.7 входят такие типовые конфигурации, как:

1. 1С: Бухгалтерия: универсальная программа массового назначения для автоматизации бухгалтерского учета. Она может использоваться на предприятиях разных направлений деятельности и форм собственности;

2. 1С: Торговля и Склад: предназначена для учета любых видов торговых операций. Программа способна выполнять все функции учета - от ведения справочников и ввода первичных документов до получения различных ведомостей и аналитических отчётов;

3. 1С: Зарплата и Кадры: предназначена для автоматизации расчета заработной платы и ведения кадрового учета на предприятиях различных типов финансирования и форм собственности.

Можно встретить и конфигурации, которые не так распространены, как типовые, но тоже широко используются:

1. Комплексная поставка «Бухгалтерия; Зарплата и Кадры; Производство и Услуги; Торговый и Складской учет»: В поставку входят три компоненты «1С: Предприятия» , объединенные в одну программу и работающие с единой конфигурацией. Сохраняя все возможности программ системы, эта конфигурация обеспечивает интегрированное ведение учета: единую систему нормативно-справочной информации, автоматическое отражение торгово-складских операций и расчета зарплаты в бухгалтерском учете, финансовый учет по нескольким юридическим лицам, консолидированный управленческий учёт;

2. Конфигурация «Производство + Услуги + Бухгалтерия»: Предназначена для автоматизации предприятий, основным видом деятельности которых является производство продукции, выполнение работ или оказание услуг, а также торговля покупными товарами в качестве сопутствующей деятельности. Позволяет вести оперативный управленческий учет по всем операциям, связанным с производственной деятельностью, а также обеспечивает детализированное отражение всего процесса производства или оказание услуг в бухгалтерском и налоговом учёте.

Подробнее необходимо описать о типовой конфигурации "1С: Бухгалтерия 7.7", редакция 4.5, так как именно она используется на предприятии ОМУП «УК ЖКХ «Лёвинцы»». Универсальная программа массового назначения для автоматизации бухгалтерского учета. Она представляет собой компоненту "Бухгалтерский учет" системы программ "1С: Предприятие 7.7" с типовой конфигурацией. Компонента "Бухгалтерский учет" позволяет реализовать любую схему учета и может использоваться как автономно, так и совместно с другими компонентами "1С: Предприятия 7.7". Типовая конфигурация представляет собой готовое решение для автоматизации большинства участков бухгалтерского учёта.

В комплект поставки входит конфигурация, предназначенная для учета в хозрасчетных организациях. Для ведения учета в учреждениях и организациях, состоящих на бюджете, предназначена поставляемая отдельно конфигурация "Для бюджетных организаций". "1С: Бухгалтерия 7.7" может также использоваться с другими (специально созданными) конфигурациями.

В редакции 4.5 типовой конфигурации «1С: Бухгалтерия 7.7» усовершенствована методология налогового учета расчетов по налогу на прибыль в соответствии с разъяснениями Минфина РФ, выпущенными в 2003 году. Автоматизированы операции по учету расходов на НИОКР (ПБУ 17/02), отражены нормы ПБУ 19/02 «Учет финансовых вложений», а также, в соответствии с Федеральным законом № 117-ФЗ от 07.07.2003г., учтено снижение ставки НДС с 20% до 18% для случаев, предусмотренных п.3 ст.164 Налогового кодекса Российской Федерации. [12]

В редакции 4.5 автоматизированы новые участки бухгалтерского учета и расширены сервисные функции, повышающие удобство работы пользователей.

3.2 Модификация системы 1С: Предприятие 7.7

В процессе исследования предприятия ОМУП «Управляющая компания Лёвинцы» были выявлены недостатки в автоматизации деятельности работников финансово-экономического отдела. Одним из важнейших направлений деятельности экономиста по сбыту является составление калькуляций себестоимости продукции. До модификации системы 1С: Предприятие 7.7 экономист составлял калькуляции с помощью Microsoft Office Excel, что занимало большое количество времени.

Калькуляция (от лат. Calculatio - счёт, подсчёт) - определение затрат в стоимостной (денежной) форме на производство единицы или группы единиц изделий, или на отдельные виды производств. Калькуляция даёт возможность определить фактическую или плановую себестоимость объекта или изделия и является основой для их оценки. В строительных организациях оценка и калькуляция используется для объектов бухгалтерского учёта в денежном выражении. Калькуляция служит основой для определения средних издержек производства и установления себестоимости продукции. [21]

Для устранения недостатка автоматизации необходимо провести модификацию системы 1С: Предприятие 7.7. Калькуляции на предприятии составляются по трём видам деятельности: отчетная калькуляция по автопарку; отчетная калькуляция по полному содержанию и ремонту жилого фонда; отчетная калькуляция себестоимости отпущенной тепловой энергии. Необходимо учитывать тот факт, что калькуляции составляются с нарастающим итогом, то есть необходимо учитывать данные за прошедший квартал.

Учитывая необходимость автоматизации деятельности экономиста по сбыту были написаны три внешних отчета-обработки по средством 1С: Бухгалтерия 7.7.

В отчётах учтено:

1. Необходимость сохранения данных за предшествующие периоды;

2. Учет данных за периоды с нарастающим итогом;

3. Наличие печатной формы;

4. Отчеты формируются в установленной постановлением Государственного комитета по строительной, архитектурной и жилищной политике от 23.02.1999 № 9 форме 6-ж .

Отчетная калькуляция по автопарку представлена на рисунке 3.1.

Рис. 3.1 Отчетная калькуляция по автопарку

Итоговые значения рассчитываются по показателям таким, как: все расходы по полной себестоимости, все доходы от данного вида деятельности, прибыль (убыток) от деятельности.

В отчете при нажатии на кнопку «заполнить» заполняется табличная часть по строкам каждой статьи расходов. Данные можно сохранить из предыдущих отчетов. Калькуляция выводится на печать, печатная форма создаётся в конфигураторе и представлена на рисунке 3.2.

Рис.3.2.Отчётная калькуляция прочие (автопарк): печатная форма

В конфигураторе прописывается и табличная часть отчётной калькуляции. Табличная часть представлена на рисунке 3.3.

Рис. 3.3 Отчетная калькуляция прочие (автопарк): табличная часть

Отчетная калькуляция по полному содержанию и ремонту жилого фонда обязательно должна содержать такие статьи расходов, как:

1. Ремонт конструктивных элементов жилых зданий, в том числе: оплата труда рабочих, отчисления на социальные нужды, материалы;

2. Ремонт и обслуживание внутридомового инженерного оборудования;

3. Благоустройство и обеспечение санитарного состояния жилых зданий и придомовых территорий, в том числе: оплата труда рабочих, занятых благоустройством и обслуживанием; отчисления на социальные нужды; электроэнергия; материалы; услуги сторонних организаций;

4. Ремонтный фонд;

5. Прочие прямые затраты.

В отчетной калькуляции отображаются итоги расходов по эксплуатации, себестоимость содержание и ремонта жилой (нежилой) площади; а так же все доходы от использования жилого фонда.

Отчетная калькуляция по полному содержанию и ремонту жилого фонда представлена на рисунке 3.4.

Рис.3.4 Отчетная калькуляция по полному содержанию и ремонту жилого фонда

Учтена необходимость в печатной форме калькуляции, которая прописана в конфигураторе. Отчет выводится на печать с помощью кнопки «печать». Печатная форма представлена на рисунке 3.5.

Рис.3.5 Отчетная калькуляция по полному содержанию и ремонту жилого фонда: печатная форма

Табличная часть заполняется при нажатии кнопки «заполнить», так же табличную часть можно очисть и восстановить при нажатии на соответствующие кнопки. Таблица форма прописана в конфигураторе 1С: Бухгалтерия и представлена на рисунке 3.6.

Рис.3.6 Отчетная калькуляция по полному содержанию и ремонту жилищного фонда: табличная форма

Отчетная калькуляция себестоимости отпущенной тепловой энергии представляет собой заполнение табличной формы по следующим показателям:

1. Расходы на производство тепловой энергии, в том числе: материалы и ремонт, топливо, электроэнергия, вода, ремонт и техническое обслуживание;

2. Оплата тепловой энергии полученной со стороны;

3. Расходы на распределении тепловой энергии, в том числе: материалы, амортизация, ремонт и техническое обслуживание, цеховые расходы, затраты на оплату труда;

4. Проведение аварийно-восстановительных работ;

5. Ремонтный фонд;

6. Общеэксплуатационные расходы.

В данной калькуляции рассчитываются следующие итоговые показатели: все расходы на эксплуатацию, все расходы по полной себестоимости отпущенной теплоэнергии и общая сумма доходов. Калькуляция представлена на рисунке 3.7.

Рис.3.7.Отчетная калькуляция себестоимости отпущенной тепловой энергии

На форме представлен выбор отчетного и предшествующего периода, при нажатии кнопки «заполнить» данными заполняется табличная часть. Данные можно очистить из табличной части либо восстановить за предшествующий период. Табличная форма прописывается в конфигураторе и представлена на рисунке 3.8.

Рис.3.8 Отчетная калькуляция себестоимости отпущенной тепловой энергии: табличная часть

Для вывода данных на печать в конфигураторе прописана печатная форма отчета. Печатная форма предоставлена на рисунке 3.9.

Рис.3.9 Отчетная калькуляция себестоимости отпущенной тепловой энергии: печатная форма

Листинг программы трёх отчетных калькуляций предоставлен в приложении 1. Акт о внедрении программного продукта предоставлен в приложении 2.

Глава 4. Экономическое обоснование эффективности разработки программного продукта

После модернизации информационной системы 1С: Бухгалтерия на предприятии ОМУП «УК ЖКХ «Левинцы»» время составления экономистом отчетных калькуляций стало составлять 1-2 минуты. При составлении калькуляций посредством Microsoft Office Excel, требующего ручного ввода необходимой информации, временные затраты были значительно больше и составляли около 60-80 минут на выполнение одного отчета. При внедрении программного продукта у работника освобождается значительное время для выполнения основной работы. Так же предусмотрено сохранение данных за разные периоды времени, что позволяет отслеживать изменение себестоимости услуг и учитывать колебания при составлении тарифных планов.

Полные затраты на выполнение разработки складываются из следующих компонентов:

- Зм - затраты на материалы;

- Зз.п. - затраты на зарплату;

- Зэ - затраты на электроэнергию;

т.е.

З = Зм + Зз.п. + Зэ

Затраты на материалы определяются исходя из норм расхода и из стоимости требуемых материалов.

Составим таблицу расхода материалов (таб. 4.1)



Таблица 4.1

Затраты на материалы

Наименование	Единица измерения	Количество, (шт)	Цена за единицу, (руб)	Стоимость, (руб)
Бумага для принтера	упаковка	1	130	130
Картридж	проценты	100	100	100
ИТОГО:				130

Необходимо учитывать затраты на зарплату. Согласно штатно-окладной системе месячный оклад инженера программиста составляет 15000 рублей. Для определения стоимости человеко-дня, месячный должностной оклад делится на среднемесячное количество рабочих дней - 22 дня. Что составляет:

12000 руб. / 22 дня = 545,45 руб.

Оплат труда разработчика рассчитывается как произведение количества человеко-дней на стоимость человеко-дня. Затраченное время на каждом этапе разработки представлено в таблице 4.2.

Таблица 4.2

Затраченное время разработчика

Этапы разработки	затраченное время, (ч.)
постановка задачи	6
разработка структуры и интерфейса программного модуля	8
написание программы модуля	80
Отладка и тестирование программы	8
Обучение персонала	5
Итого:	107

Затраченное время на разработку при 40 часовой рабочей недели составляет: 107 часов = 13,37 чел/дня.

Оплата труда разработчика будет составлять:

Зз.п = 13,37 * 454,54,81 = 7292,72 рубля.

В связи с Федеральным законом от 24.07.2009 № 213-ФЗ с 1 января 2010 года работодатели вместо ЕСН будут платить страховые взносы в государственные внебюджетные фонды, а именно:

1. В ПФР - 20%;

2. В ФСС России - 2,9%;

3. В ФФОМС - 1,1%;

4. В ТФОМС - 2%; [10]

Отчисления от зарплаты:

1. в ПФР - 20% * 7292,72 = 1458,54 руб.;

2. в ФСС России - 2,9% * 7292,72 = 211,48 руб.;

3. в ФФОМС - 1,1% * 7292,72 = 80,22 руб.;

4. в ТФОМС - 2% * 7292,72 = 145,85 руб.;

Итого отчислений с зарплаты: 1896,09 рублей.

Затраты на электроэнергию рассчитываются по формуле:

ЗЭ = W * T * S,

где W - потребляемая мощность;

T - количество часов работы оборудования;

S - стоимость киловатт-часа электроэнергии.

Для компьютера: W = 0,5кВт, Т = 101 ч.

Для принтера: W= 0,05кВт, Т = 101 ч.

Стоимость киловатт-часа электроэнергии составляет 2,4 руб.



ЗЭ = ((0,5*101) + (0,05*101))*2,4 = 133,32 руб.

Составим сводную ведомость затрат на разработку в таблицу 4.3

Таблица 4.3

Сводная ведомость затрат на проведение разработки

Наименование статей затрат	Сумма, рублей
Затраты на материалы	130
Заработная плата разработчика	7292,72
Отчисления от заработной платы	1896,09
Затраты на электроэнергию	133,32
ИТОГО СЕБЕСТОИМОСТЬ РАЗРАБОТКИ:	9452,13

Далее рассчитываем величину затрачиваемого рабочего времени, а также машинного времени на формирование трёх отчетных калькуляций до внедрения автоматизированной информационной системы.

Величина, затрачиваемого машинного (компьютерного) времени (Тм) на решение аналитических задач:

Тм = Вз *Нргде:

1. Вз - время формирования отчетов калькуляции себестоимости в течение одного рабочего дня (либо в течение недели, месяца), в часах (три отчета по 70 минут в среднем каждый);

2. Нр - количество рабочих недель (либо дней, месяцев) в году, в течение которых решаются задачи по реализации предоставляемых услуг, входящих в калькуляцию себестоимости (четыре недели в месяц).

Тм=3,5*48= 168 час.

Затраты на электроэнергию

ЗЭ = W * T * S,

где W - потребляемая мощность;

T - количество часов работы оборудования;

S - стоимость киловатт-часа электроэнергии.

Для компьютера: W = 0,5кВт, Т = 168 ч.

Для принтера: W= 0,05кВт, Т = 168 ч.

Стоимость киловатт-часа электроэнергии составляет 2,4 руб.

ЗЭ = ((0,5*168) + (0,05*168))*2,4 = 221,76 руб.

Машинное и рабочее время сотрудника совпадают, т.к. решаются одни и те же задачи. Произведем расчет стоимости зарплаты сотрудников на решение этих задач.

Затраченное время: 120 часов = 21 чел/дня.

Заработная плата экономиста составляет : 17000 руб. Для определения стоимости человеко-дня, месячный должностной оклад делится на среднемесячное количество рабочих дней - 22 дня. Что составляет 772,72 рублей.

Заработная оплата исполнителей:

Зз.п = 21 * 772,72 = 16227,12 рублей.

Отчисления от зарплаты:

1. в ПФР - 20% * 16227,12 = 3245,424 руб.;

2. в ФСС России - 2,9% * 16227,12 = 470,58 руб.;

3. в ФФОМС - 1,1% * 16227,12 = 178,49 руб.;

4. в ТФОМС - 2% * 16227,12 = 324,54 руб.;



Итого отчислений с зарплаты: 4219,03 рублей.

Сведем экономию денежных средств на затраты по формированию отчётных калькуляций в сводную таблицу 4.4.

Таблица 4.4

Экономия денежных средств

Наименование статей затрат	Сумма, рублей
Заработная плата	16227,12
Отчисления от заработной платы	4219,03
Затраты на электроэнергию	221,76
ИТОГО:	20667,91

Срок окупаемости капитальных затрат на автоматизацию:

Ток=Ср/Эд

Где: СР - себестоимость разработки;

Эд - экономия денежных средств;

Ток - расчетный срок окупаемости капитальных затрат.

Ток=9452,13 / 20667,91 = 0,457 года

В результате проведенных экономических расчетов получено, что окупаемость проекта составляет 5,48 месяца.



Заключение

Темой выпускной квалификационной работы является «Модификация информационной системы на предприятии ОМУП «Управляющая компания жилищно - коммунального хозяйства «Лёвинцы»»». Финансовое положение многих организаций, работающих в сфере ЖКХ, имеет плачевное состояние.

Предприятия не могут позволить себе качественную модернизацию систем, а лишь частичную модификацию.

В работе проанализировано современное состояние отрасли жилищно-коммунального хозяйства и информационные системы, существующие и используемые на предприятиях данной отрасли. Программным продуктов, специализированных для ЖКХ, не много, они являются достаточно дорогими, в результате чего организации не могут выполнить качественный переход на данные программы. Существует информационная поддержка предприятий, которая заключается в:

1. Опубликованы различные сборники и материалы;

2. Госстрой России с периодичностью раз в два месяца выпускает сборник «Цены и тарифы в жилищно-коммунальном хозяйстве»;

3. Выходят журналы «Жилищное и коммунальное хозяйство», «Энергосбережение и водоподготовка», «Жилищное право»;

4. Рассылаются изменения в нормативных документах.

Предприятия должны не только автоматизировать деятельность для повышения производительности труда, но и следить за изменениями в кодексах, законодательстве и нормативных актах России, вследствие чего обновлять информационную систему.

При исследовании конкретного предприятия - ОМУП «Управляющая компания жилищно-коммунального хозяйства «Лёвинцы»» - произведен анализ структуры организации. Деятельность предприятия направлена на предоставление автотранспортных услуг, обслуживание жилого фонда, обеспечение теплоснабжением.

Предприятие ОМУП «УК ЖКХ Лёвинцы» обеспечивает коммунальными услугами и обслуживанием жилого фонда 2500 жильцов, в том числе школу, детский сад, больницу и дом престарелых, для этого необходима автоматизация административного комплекса предприятия.

Разработан анализ структуры финансово-экономического отдела с помощью программы BpWin.

Финансово-экономический отдел обрабатывает большой объем информации, связанный с ведением бухгалтерии, расчетом тарифов на предоставляемые услуги, учет денежных средств по сбыту продукции, калькуляцию себестоимости. Необходимо отметить тот факт, что от правильного расчета плановых и фактических тарифов зависит себестоимость предоставляемых услуг и выполняемых работ. Вследствие чего одним из важнейших направлений деятельности отдела является экономический анализ.

Модель финансово-экономического отдела детализирована в разрезе деятельности экономистов. Моделирование выполнено в BpWin, где показана деятельности ведущего экономиста и экономиста по сбыту.

При анализе информационных систем, используемых на предприятии, было выявлено какие программные продукты обеспечивают автоматизацию деятельности работников.

Рабочие места сотрудников бухгалтерии автоматизированы на довольно хорошем уровне. Используются программы семейства 1С: Предприятия, такие конфигурации:

1. 1С: бухгалтерия 7.7 - использует главный бухгалтер и экономистами;

2. 1С: зарплата и кадры 7.7 - использует бухгалтер и инспектор по кадрам;

3. 1С: торговля и склад 7.7 - бухгалтер по реализации и материалам;

4. 1С: Квартплата и паспортный стол 7.7 - бухгалтер по квартплате и паспортист.

Деятельность экономистов, в частности экономиста по сбыту, автоматизирована не до конца. Не автоматизирован расчет себестоимости предоставляемых услуг. Калькуляция выполняется Microsoft Office Excel, что занимает большое количество времени.

Вследствие чего было принято решение о написание программного продукта, автоматизирующего составление отчетных калькуляций себестоимости. Программа выполнена на базе 1С: Бухгалтерия и представляет собой три внешних отчёта-обработки.

Отчёты составлены в соответствии с установленным постановлением Государственного комитета по строительной, архитектурной и жилищной политике от 23.02.1999 № 9 форма 6-ж. Автоматизация составления калькуляций экономически обоснована, срок окупаемости внедрения составляет 5,48 месяца.

Внедрение программного продукта в опытную эксплуатацию подтверждается наличием акта о внедрении.

информационный технология учет себестоимость

Библиографический список

1. Дронов А.А. О состоянии ЖКХ России и перспективах его реформирования [Текст]/Дронов А.А. // Журнал руководителя и главного бухгалтера ЖКХ -№6-7-2001 - с.49.

2. Рохчин В.Е. Муниципальное планирование. Учебное пособие по спец. 0608 "Экономика и управление в городском хозяйстве" [Текст]// Рохчин В.Е// Спб: СпбГИЭА, 1996-с.461.

3. Российская Федерация. Закон РФ от 24ю.12.92г. № 4218-1 Об основах федеральной жилищной политики [Текст]: Российская газета -1993-2 января, с.1.

4. Российская Федерация. Постановление Правительства РФ № 306 О предоставление коммунальных услуг гражданам. [Текст]:ред. Постановления Правительства РФ от 21.07.2008 N 549 - 28с.

5. Российская Федерация. Постановление Правительства РФ № 307 О предоставление коммунальных услуг гражданам. [Текст]: ред. Постановления Правительства РФ от 21.07.2008 N 549 - 31с.

6. Должностные обязанности сотрудников ОМУП «УК ЖКХ Лёвинцы».

7. Соболевская Е.А. Концепция развития системы информационного обеспечения жилищно-коммунальной отрасли [Электронный ресурс]. - Режим доступа: http://www.up.mos.ru/ForumGKH/sobol.htm.

8. Госстрой. Нормативно-методические материалы по реализации концепции реформы жилищно-коммунального хозяйства Российской Федерации [Электронный ресурс].- Режим доступа: http://emsu.ru/um/view.asp?c=223&p=2.

9. Должностные обязанности сотрудников ОМУП «УК ЖКХ Лёвинцы».

10. Российская Федерация. Федеральным законом от 24.07.2009 № 213-ФЗ О страховых взносах в Пенсионный фонд Российской Федерации, Фонд социального страхования Российской Федерации, Федеральный фонд обязательного медицинского страхования и территориальные фонды обязательного медицинского страхования [Текст]: Российская газета -2009 №137, с.1.

11. Постановление Госстроя РФ от 23 Февраля 1999 N 9 "Об утверждении методики планирования, учёта и калькулирования себестоимости услуг жилишно-коммунального хозяйства " - 23.02.1999 г. [Электронный ресурс]. - Режим доступа: http://www.mnogozakonov.ru/catalog/date/1999/02/23/18038/textpage/13/.

12. Фирма 1С. Почему система программ "1С: Предприятие" [Электронный ресурс].-Режим доступ: http://www.1c.ru/rus/products/1c/predpr/why-predpr.html.

13. В. Байдаков. 1С: Предприятие 7.7. Конфигурирование и администрирование. Часть1 [Текст] / В. Байдаков // М: Фирма1 «С», 1996-с.396.

14. В. Байдаков. 1С: Предприятие 7.7. Конфигурирование и администрирование. Часть2 [Текст] /В. Байдаков//М: Фирма1 «С»,1996-с.388

15. Зотов В.Б. Новый этап реформирования жилищного хозяйства. / [Текст] // Зотов В.Б. / /Жилищное и коммунальное хозяйство - 1996,-№ 4-5.-с.36-39,49.

16. Российская Федерация. Указ Президента РФ "О реформе жилищно-коммунального хозяйства Российской Федерации"./ [Текст] //Собрание актов законодательства РФ от 05.05.1997 г., №18, с.21-31.

17. Чернышов Л.Н. Для преодоления кризиса в ЖКХ необходим программный целевой подход [Текст] Чернышов Л.Н. // Журнал руководителя и главного бухгалтера ЖКХ -№8-2001-с.52-64.

18. Никонов, О.И. Порядок подготовки и оформления дипломных работ / [Текст]: методические указания // О.И. Никонов, М.А. Медведева. - Екатеринбург: ГОУ ВПО «УГТУ-УПИ», 2007. - 56 с.

19. Токмакова, О.В. Исследовательская деятельность студентов / [Текст]: Методические рекомендации по написанию курсовых и дипломных работ по информатике и методике обучения информатике. // Токмакова О.В., Котельников Е.В. - Киров, 2007.

20. Российская Федерация. «Об основах федеральной жилищной политики» Закон РФ от 24ю.12.92 г. № 4218-1/ [Текст] // Российская газета -1993-2 января, с.1

21. Википедия. Калькуляция [Электронный ресурс]. - Режим доступа: http://ru.wikipedia.org/wiki



Приложение 1

Листинг отчетов формирования отчетных калькуляций себестоимости

Отчетная калькуляция прочие (автопарк)

//*******Объявляем переменных*******//

Перем КаталогФормы;

Перем ИдентКонфигурации;

Перем Сп060, Сп070, Сп075, Сп080, Сп090, Сп100, Сп101, Сп110,

Сп120;

Перем Сп130, Сп131, Сп140, Сп141, Сп142, Сп150;

//*******Заполнение по статьям затрат*******//

Процедура ЗаполнитьСпискиНоменклатуры()

СпрЗатрат =

СоздатьОбъект("Справочник.СтатьиЗатратНаПроизводство");

//*******Коды субконто берутся из таблицы СтрокиКодов*******//

ТаблК = СоздатьОбъект("Таблица");

ТаблК.ИсходнаяТаблица("СтрокиКодов");

ТаблК.Вывести();

//******* Сатьи затрат заполняются по кодам*******//

//*******Строка №410 ******//

СтрКоды = ""; //Переменная строки с кодами, берется из таблицы

заполнения**//

Сп060.УдалитьВсе();

СтрКоды = СокрЛП(ТаблК.Область(1, 2).Текст);

Если ПустаяСтрока(СтрКоды) = 0 Тогда

КодСуб = ""; //** Переменная для кода поиска из справочника **//

Для й = 1 по СтрДлина(СтрКоды) цикл

Если Сред(СтрКоды, й, 1) = "," Тогда

//*******Поиск в справочник, если не найден сообщаем код*******//

Если СпрЗатрат.НайтиПоКоду(КодСуб) = 1 тогда

Сп060.ДобавитьЗначение(СпрЗатрат.ТекущийЭлемент());

Иначе

Сообщить("Элемент с кодом " + КодСуб + " не найден, обратитесь к

программисту");

КонецЕсли;

КодСуб = ""; //**Обнулим код субконто**//

Иначе

КодСуб = КодСуб + Сред(СтрКоды, й, 1);

//*******Добавляем символ к строке кода*******//

КонецЕсли;

КонецЦикла;

КонецЕсли;

//*******Строка №420***********//

СтрКоды = ""; //**Переменная строки с кодами, берется из таблицы

заполнения **//

Сп070.УдалитьВсе();

СтрКоды = СокрЛП(ТаблК.Область(2, 2).Текст);

Если ПустаяСтрока(СтрКоды) = 0 Тогда

КодСуб = ""; // **Переменная для кода поиска из справочника **//

Для й = 1 по СтрДлина(СтрКоды) цикл

Если Сред(СтрКоды, й, 1) = "," Тогда

//*******Поиск в справочник, если не найден сообщаем код*******//

Если СпрЗатрат.НайтиПоКоду(КодСуб) = 1 тогда

Сп070.ДобавитьЗначение(СпрЗатрат.ТекущийЭлемент());

Иначе

Сообщить("Элемент с кодом " + КодСуб + " не найден, обратитесь к

программисту");

КонецЕсли;

КодСуб = ""; //**Обнулим код субконто**//

Иначе

КодСуб = КодСуб + Сред(СтрКоды, й, 1);//**Добавляем символ к

строке кода**//

КонецЕсли;

КонецЦикла;

КонецЕсли;

//*******Строка№430*******

СтрКоды = ""; //**Переменная строки с кодами, берется из таблицы

заполнения **//

Сп075.УдалитьВсе();

СтрКоды = СокрЛП(ТаблК.Область(3, 2).Текст);

Если ПустаяСтрока(СтрКоды) = 0 Тогда

КодСуб = ""; //** Переменная для кода поиска из справочника **//

Для й = 1 по СтрДлина(СтрКоды) цикл

Если Сред(СтрКоды, й, 1) = "," Тогда

//*******Поиск в справочник, если не найден сообщаем код*******//

Если СпрЗатрат.НайтиПоКоду(КодСуб) = 1 тогда

Сп075.ДобавитьЗначение(СпрЗатрат.ТекущийЭлемент());

Иначе

Сообщить("Элемент с кодом " + КодСуб + " не найден, обратитесь к

программисту");

КонецЕсли;

КодСуб = ""; //**Обнулим код субконто**//

Иначе

КодСуб = КодСуб + Сред(СтрКоды, й, 1); //**Добавляем символ к

строке кода**//

КонецЕсли;

КонецЦикла;

КонецЕсли;

//*******Строка №440*******//

СтрКоды = ""; //**Переменная строки с кодами, берется из таблицы

заполнения**//

Сп080.УдалитьВсе();

СтрКоды = СокрЛП(ТаблК.Область(4, 2).Текст);

Если ПустаяСтрока(СтрКоды) = 0 Тогда

КодСуб = ""; //** Переменная для кода поиска из справочника **//

Для й = 1 по СтрДлина(СтрКоды) цикл

Если Сред(СтрКоды, й, 1) = "," Тогда

//*******Поиск в справочник, если не найден сообщаем код*******//

Если СпрЗатрат.НайтиПоКоду(КодСуб) = 1 тогда

Сп080.ДобавитьЗначение(СпрЗатрат.ТекущийЭлемент());

Иначе

Сообщить("Элемент с кодом " + КодСуб + " не найден, обратитесь к

программисту");

КонецЕсли;

КодСуб = ""; //**обнулим код субконто**//

Иначе

КодСуб = КодСуб + Сред(СтрКоды, й, 1); //**Добавляем символ к

строке кода**//

КонецЕсли;

КонецЦикла;

КонецЕсли;

//*******Строка№450*******//

СтрКоды = ""; //**Переменная строки с кодами, берется из таблицы

заполнения**//

Сп090.УдалитьВсе();

СтрКоды = СокрЛП(ТаблК.Область(5, 2).Текст);

Если ПустаяСтрока(СтрКоды) = 0 Тогда

КодСуб = ""; //** Переменная для кода поиска из справочника **//

Для й = 1 по СтрДлина(СтрКоды) цикл

Если Сред(СтрКоды, й, 1) = "," Тогда

//*******Поиск в справочник, если не найден сообщаем код*******//

Если СпрЗатрат.НайтиПоКоду(КодСуб) = 1 тогда

Сп090.ДобавитьЗначение(СпрЗатрат.ТекущийЭлемент());

Иначе

Сообщить("Элемент с кодом " + КодСуб + " не найден, обратитесь к

программисту");

КонецЕсли;

КодСуб = ""; //**обнулим код субконто**//

Иначе

КодСуб = КодСуб + Сред(СтрКоды, й, 1);//**Добавляем символ к

строке кода**//

КонецЕсли;

КонецЦикла;

КонецЕсли;

//*******Строка№460*******//

СтрКоды = ""; //**Переменная строки с кодами, берется из таблицы

заполнения**//

Сп100.УдалитьВсе();

СтрКоды = СокрЛП(ТаблК.Область(6, 2).Текст);

Если ПустаяСтрока(СтрКоды) = 0 Тогда

КодСуб = ""; //** Переменная для кода поиска из справочника **//

Для й = 1 по СтрДлина(СтрКоды) цикл

Если Сред(СтрКоды, й, 1) = "," Тогда

//*******Поиск в справочник, если не найден сообщаем код*******//

Если СпрЗатрат.НайтиПоКоду(КодСуб) = 1 тогда

Сп100.ДобавитьЗначение(СпрЗатрат.ТекущийЭлемент());

Иначе

Сообщить("Элемент с кодом " + КодСуб + " не найден, обратитесь к

программисту");

КонецЕсли;

КодСуб = ""; //**Обнулим код субконто**//

Иначе

КодСуб = КодСуб + Сред(СтрКоды, й, 1);//**Добавляем символ к

строке кода**//

КонецЕсли;

КонецЦикла;

КонецЕсли;

//*******Строка№461*******//

СтрКоды = ""; //**Переменная строки с кодами, берется из таблицы

заполнения**//

Сп101.УдалитьВсе();

СтрКоды = СокрЛП(ТаблК.Область(7, 2).Текст);

Если ПустаяСтрока(СтрКоды) = 0 Тогда

КодСуб = ""; // переменная для кода поиска из справочника

Для й = 1 по СтрДлина(СтрКоды) цикл

Если Сред(СтрКоды, й, 1) = "," Тогда

//*******Поиск в справочник, если не найден сообщаем код*******//

Если СпрЗатрат.НайтиПоКоду(КодСуб) = 1 тогда

Сп101.ДобавитьЗначение(СпрЗатрат.ТекущийЭлемент());

Иначе

Сообщить("Элемент с кодом " + КодСуб + " не найден, обратитесь к

программисту");

КонецЕсли;

КодСуб = ""; //**Обнулим код субконто**//

Иначе

КодСуб = КодСуб + Сред(СтрКоды, й, 1); //**Добавляем символ к

строке кода**//

КонецЕсли;

КонецЦикла;

КонецЕсли;

//*******Строка№470*******//

СтрКоды = ""; //**Переменная строки с кодами, берется из таблицы

заполнения**//

Сп110.УдалитьВсе();

СтрКоды = СокрЛП(ТаблК.Область(8, 2).Текст);

Если ПустаяСтрока(СтрКоды) = 0 Тогда

КодСуб = ""; // **Переменная для кода поиска из справочника **//

Для й = 1 по СтрДлина(СтрКоды) цикл

Если Сред(СтрКоды, й, 1) = "," Тогда

//*******Поиск в справочник, если не найден сообщаем код*******//

Если СпрЗатрат.НайтиПоКоду(КодСуб) = 1 тогда

Сп110.ДобавитьЗначение(СпрЗатрат.ТекущийЭлемент());

Иначе

Сообщить("Элемент с кодом " + КодСуб + " не найден, обратитесь к

программисту");

КонецЕсли;

КодСуб = ""; //**Обнулим код субконто**//

Иначе

КодСуб = КодСуб + Сред(СтрКоды, й, 1); //**Добавляем символ к

строке кода*//

КонецЕсли;

КонецЦикла;

КонецЕсли;

//*******Строка №480*******//

СтрКоды = ""; //**Переменная строки с кодами, берется из таблицы

заполнения**//

Сп120.УдалитьВсе();

СтрКоды = СокрЛП(ТаблК.Область(9, 2).Текст);

Если ПустаяСтрока(СтрКоды) = 0 Тогда

КодСуб = ""; //**Переменная для кода поиска из справочника **//

Для й = 1 по СтрДлина(СтрКоды) цикл

Если Сред(СтрКоды, й, 1) = "," Тогда

//*******Поиск в справочник, если не найден сообщаем код*******//

Если СпрЗатрат.НайтиПоКоду(КодСуб) = 1 тогда

Сп120.ДобавитьЗначение(СпрЗатрат.ТекущийЭлемент());

Иначе

Сообщить("Элемент с кодом " + КодСуб + " не найден, обратитесь к

программисту");

КонецЕсли;

КодСуб = ""; //**Обнулим код субконто**//

Иначе

КодСуб = КодСуб + Сред(СтрКоды, й, 1); //**Добавляем символ к

строке кода**//

КонецЕсли;

КонецЦикла;

КонецЕсли;

//*******Строка№490*******

СтрКоды = ""; //**Переменная строки с кодами, берется из таблицы

заполнения**//

Сп130.УдалитьВсе();

СтрКоды = СокрЛП(ТаблК.Область(10, 2).Текст);

Если ПустаяСтрока(СтрКоды) = 0 Тогда

КодСуб = ""; // **Переменная для кода поиска из справочника **//

Для й = 1 по СтрДлина(СтрКоды) цикл

Если Сред(СтрКоды, й, 1) = "," Тогда

//*******Поиск в справочник, если не найден сообщаем код*******//

Если СпрЗатрат.НайтиПоКоду(КодСуб) = 1 тогда

Сп130.ДобавитьЗначение(СпрЗатрат.ТекущийЭлемент());

Иначе

Сообщить("Элемент с кодом " + КодСуб + " не найден, обратитесь к

программисту");

КонецЕсли;

КодСуб = ""; //**Обнулим код субконто**//

Иначе

КодСуб = КодСуб + Сред(СтрКоды, й, 1);//**Добавляем символ к

строке кода**//

КонецЕсли;

КонецЦикла;

КонецЕсли;

//*******Строка №500*******//

СтрКоды = ""; //**Переменная строки с кодами, берется из таблицы

заполнения**//

Сп140.УдалитьВсе();

СтрКоды = СокрЛП(ТаблК.Область(11, 2).Текст);

Если ПустаяСтрока(СтрКоды) = 0 Тогда

КодСуб = ""; // **Переменная для кода поиска из справочника **//

Для й = 1 по СтрДлина(СтрКоды) цикл

Если Сред(СтрКоды, й, 1) = "," Тогда

//*******Поиск в справочник, если не найден сообщаем код*******//

Если СпрЗатрат.НайтиПоКоду(КодСуб) = 1 тогда

Сп140.ДобавитьЗначение(СпрЗатрат.ТекущийЭлемент());

Иначе

Сообщить("Элемент с кодом " + КодСуб + " не найден, обратитесь к

программисту");

КонецЕсли;

КодСуб = ""; //**Обнулим код субконто**//

Иначе

КодСуб = КодСуб + Сред(СтрКоды, й, 1); //**Добавляем символ к

строке кода**//

КонецЕсли;

КонецЦикла;

КонецЕсли;

//*******Строка №610*******//

СтрКоды = ""; //**Переменная строки с кодами, берется из таблицы

заполнения**//

Сп141.УдалитьВсе();

СтрКоды = СокрЛП(ТаблК.Область(13, 2).Текст);

Если ПустаяСтрока(СтрКоды) = 0 Тогда

КодСуб = ""; // **Переменная для кода поиска из справочника **//

Для й = 1 по СтрДлина(СтрКоды) цикл

Если Сред(СтрКоды, й, 1) = "," Тогда

//*******Поиск в справочник, если не найден сообщаем код*******//

Если СпрЗатрат.НайтиПоКоду(КодСуб) = 1 тогда

Сп141.ДобавитьЗначение(СпрЗатрат.ТекущийЭлемент());

Иначе

Сообщить("Элемент с кодом " + КодСуб + " не найден, обратитесь к

программисту");

КонецЕсли;

КодСуб = ""; //**Обнулим код субконто**//

Иначе

КодСуб = КодСуб + Сред(СтрКоды, й, 1); //**Добавляем символ к

строке кода**//

КонецЕсли;

КонецЦикла;

КонецЕсли;

//*******Строка №620*******//

СтрКоды = ""; //**переменная строки с кодами, берется из таблицы

заполнения**//

Сп142.УдалитьВсе();

СтрКоды = СокрЛП(ТаблК.Область(14, 2).Текст);

Если ПустаяСтрока(СтрКоды) = 0 Тогда

КодСуб = ""; // **Переменная для кода поиска из справочника **//

Для й = 1 по СтрДлина(СтрКоды) цикл

Если Сред(СтрКоды, й, 1) = "," Тогда

//*******Поиск в справочник, если не найден сообщаем код*******//

Если СпрЗатрат.НайтиПоКоду(КодСуб) = 1 тогда

Сп142.ДобавитьЗначение(СпрЗатрат.ТекущийЭлемент());

Иначе

Сообщить("Элемент с кодом " + КодСуб + " не найден, обратитесь к

программисту");

КонецЕсли;

КодСуб = ""; //**Обнулим код субконто**//

Иначе

КодСуб = КодСуб + Сред(СтрКоды, й, 1); //**Добавляем символ к

строке кода**//

КонецЕсли;

КонецЦикла;

КонецЕсли;

//*******Строка №630*******//

СтрКоды = ""; //**Переменная строки с кодами, берется из таблицы

заполнения**//

Сп150.УдалитьВсе();

СтрКоды = СокрЛП(ТаблК.Область(15, 2).Текст);

Если ПустаяСтрока(СтрКоды) = 0 Тогда

КодСуб = ""; // **Переменная для кода поиска из справочника **//

Для й = 1 по СтрДлина(СтрКоды) цикл

Если Сред(СтрКоды, й, 1) = "," Тогда

//*******Поиск в справочник, если не найден сообщаем код*******//

Если СпрЗатрат.НайтиПоКоду(КодСуб) = 1 тогда

Сп150.ДобавитьЗначение(СпрЗатрат.ТекущийЭлемент());

Иначе

Сообщить("Элемент с кодом " + КодСуб + " не найден, обратитесь к

программисту");

КонецЕсли;

КодСуб = ""; //**Обнулим код субконто**//

Иначе

КодСуб = КодСуб + Сред(СтрКоды, й, 1);//**Добавляем символ к

строке кода**//

КонецЕсли;

КонецЦикла;

КонецЕсли;

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

//*******Заполняем табличную часть отчёта данными*******//

Процедура Заполнить()

//*******Заполняем из отчета за предыдущий год*******//

Если ЗаполнИзОтчета = 1 Тогда

Если ФС.СуществуетФайл(КаталогФормы +

СтрЗаменить(ПериодСтр(Дата11,Дата21),".","")) = 1 Тогда

СписокСохранения = СоздатьОбъект("СписокЗначений");

ЗначениеИзФайла(КаталогФормы +

СтрЗаменить(ПериодСтр(Дата11,Дата21),".",""),СписокСохранения);

Если ТипЗначенияСтр(СписокСохранения)="СписокЗначений" Тогда

СписокЗаполнения = СоздатьОбъект("СписокЗначений");

Для й =1 по СписокСохранения.РазмерСписка() цикл

ИдентПер = "";

СписокСохранения.ПолучитьЗначение(й, ИдентПер);

Если Лев(СокрЛП(ИдентПер),2) = "П2" Тогда

СписокЗаполнения.ДобавитьЗначение(СписокСохранения.Получить(И

дентПер),СтрЗаменить(ИдентПер,"П2","П1"));

КонецЕсли;

КонецЦикла;

Таблица.Загрузить(СписокЗаполнения);

КонецЕсли;

Иначе

Сообщить("Сохраненных данных за период " +

ПериодСтр(Дата11,Дата21) + " не найдено");

КонецЕсли;

КонецЕсли;

ТекВидНоменклатуры = СоздатьОбъект("СписокЗначений");

//*******Установим вид номенклатуры для отбора, если найден в

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

при отмене выход из процедуры*******//

Спр = СоздатьОбъект("Справочник.ВидыНоменклатуры");

Спр.ВыборГруппы(1);

Если Спр.НайтипоКоду("0000004") = 1 Тогда

ТекВидНоменклатуры.ДобавитьЗначение(Спр.ТекущийЭлемент());

Иначе

Если Спр.Выбрать("Выберите вид номенклатуры",) = 1 тогда

//*******Здесь выбор вида номенклатуры*******//

ТекВидНоменклатуры.ДобавитьЗначение(Спр.ТекущийЭлемент());

Иначе

Возврат;

КонецЕсли;

КонецЕсли;

Если Спр.НайтипоКоду("0000074") = 1 Тогда

ТекВидНоменклатуры.ДобавитьЗначение(Спр.ТекущийЭлемент());

Иначе

Если Спр.Выбрать("Выберите вид номенклатуры",) = 1 тогда

//*******Здесь выбор вида номенклатуры*******//

ТекВидНоменклатуры.ДобавитьЗначение(Спр.ТекущийЭлемент());

Иначе

Возврат;

КонецЕсли;

КонецЕсли;

//*******Заполнение оборотов по строкам бухгалтерские

итоги*******//

//*******Счёт №060*******//

Если Сп060.РазмерСписка() > 0 Тогда

Ит = СоздатьОбъект("БухгалтерскиеИтоги");

Ит.ИспользоватьСубконто(ВидыСубконто.ВидыНоменклатуры,

ТекВидНоменклатуры, 2);

Ит.ИспользоватьСубконто(ВидыСубконто.СтатьиЗатратНаПроизводст

во, Сп060, 2);

Ит.ВыполнитьЗапрос(Дата1, Дата2, "20");

П220 = Ит.ДО();

Если ЗаполнИзотчета = 0 Тогда

Ит = СоздатьОбъект("БухгалтерскиеИтоги");

Ит.ИспользоватьСубконто(ВидыСубконто.ВидыНоменклатуры,

ТекВидНоменклатуры, 2);

Ит.ИспользоватьСубконто(ВидыСубконто.СтатьиЗатратНаПроизводст

во, Сп060, 2);

Ит.ВыполнитьЗапрос(Дата11, Дата21, "20");

П120 = Ит.ДО();

КонецЕсли;

КонецЕсли;

//*******Строка №410*******//

Если Сп070.РазмерСписка() > 0 Тогда

Ит = СоздатьОбъект("БухгалтерскиеИтоги");

Ит.ИспользоватьСубконто(ВидыСубконто.ВидыНоменклатуры,

ТекВидНоменклатуры, 2);

Ит.ИспользоватьСубконто(ВидыСубконто.СтатьиЗатратНаПроизводст

во, Сп070, 2);

Ит.ВыполнитьЗапрос(Дата1, Дата2, "20");

П221 = Ит.ДО();

Если ЗаполнИзотчета = 0 Тогда

Ит = СоздатьОбъект("БухгалтерскиеИтоги");

Ит.ИспользоватьСубконто(ВидыСубконто.ВидыНоменклатуры,

ТекВидНоменклатуры, 2);

Ит.ИспользоватьСубконто(ВидыСубконто.СтатьиЗатратНаПроизводст

во, Сп070, 2);

Ит.ВыполнитьЗапрос(Дата11, Дата21, "20");

П121 = Ит.ДО();

КонецЕсли;

КонецЕсли;

//*******Строка №420*******//

Если Сп075.РазмерСписка() > 0 Тогда

Ит = СоздатьОбъект("БухгалтерскиеИтоги");

Ит.ИспользоватьСубконто(ВидыСубконто.ВидыНоменклатуры,

ТекВидНоменклатуры, 2);

Ит.ИспользоватьСубконто(ВидыСубконто.СтатьиЗатратНаПроизводст

во, Сп075, 2);

Ит.ВыполнитьЗапрос(Дата1, Дата2, "20");

П222 = Ит.ДО();

Если ЗаполнИзотчета = 0 Тогда

Ит = СоздатьОбъект("БухгалтерскиеИтоги");

Ит.ИспользоватьСубконто(ВидыСубконто.ВидыНоменклатуры,

ТекВидНоменклатуры, 2);

Ит.ИспользоватьСубконто(ВидыСубконто.СтатьиЗатратНаПроизводст

во, Сп075, 2);

Ит.ВыполнитьЗапрос(Дата11, Дата21, "20");

П122 = Ит.ДО();

КонецЕсли;

КонецЕсли;

//*******Строка №430*******//

Если Сп080.РазмерСписка() > 0 Тогда

Ит = СоздатьОбъект("БухгалтерскиеИтоги");

Ит.ИспользоватьСубконто(ВидыСубконто.ВидыНоменклатуры,

ТекВидНоменклатуры, 2);

Ит.ИспользоватьСубконто(ВидыСубконто.СтатьиЗатратНаПроизводст

во, Сп080, 2);

Ит.ВыполнитьЗапрос(Дата1, Дата2, "20");

П223 = Ит.ДО();

Если ЗаполнИзотчета = 0 Тогда

Ит = СоздатьОбъект("БухгалтерскиеИтоги");

Ит.ИспользоватьСубконто(ВидыСубконто.ВидыНоменклатуры,

ТекВидНоменклатуры, 2);

Ит.ИспользоватьСубконто(ВидыСубконто.СтатьиЗатратНаПроизводст

во, Сп080, 2);

Ит.ВыполнитьЗапрос(Дата11, Дата21, "20");

П123 = Ит.ДО();

КонецЕсли;

КонецЕсли;

//*******Строка№440*******//

Если Сп090.РазмерСписка() > 0 Тогда

Ит = СоздатьОбъект("БухгалтерскиеИтоги");

Ит.ИспользоватьСубконто(ВидыСубконто.ВидыНоменклатуры,

ТекВидНоменклатуры, 2);

Ит.ИспользоватьСубконто(ВидыСубконто.СтатьиЗатратНаПроизводст

о, Сп090, 2);

Ит.ВыполнитьЗапрос(Дата1, Дата2, "20");

П224 = Ит.ДО();

Если ЗаполнИзотчета = 0 Тогда

Ит = СоздатьОбъект("БухгалтерскиеИтоги");

Ит.ИспользоватьСубконто(ВидыСубконто.ВидыНоменклатуры,

ТекВидНоменклатуры, 2);

Ит.ИспользоватьСубконто(ВидыСубконто.СтатьиЗатратНаПроизводст

во, Сп090, 2);

Ит.ВыполнитьЗапрос(Дата11, Дата21, "20");

П124 = Ит.ДО();

КонецЕсли;

КонецЕсли;

//*******Строка №450*******//

Если Сп100.РазмерСписка() > 0 Тогда

Ит = СоздатьОбъект("БухгалтерскиеИтоги");

Ит.ИспользоватьСубконто(ВидыСубконто.ВидыНоменклатуры, ТекВидНоменклатуры, 2);

Ит.ИспользоватьСубконто(ВидыСубконто.СтатьиЗатратНаПроизводст

во, Сп100, 2);

Ит.ВыполнитьЗапрос(Дата1, Дата2, "20");

П225 = Ит.ДО();

Если ЗаполнИзотчета = 0 Тогда

Ит = СоздатьОбъект("БухгалтерскиеИтоги");

Ит.ИспользоватьСубконто(ВидыСубконто.ВидыНоменклатуры,

ТекВидНоменклатуры, 2);

Ит.ИспользоватьСубконто(ВидыСубконто.СтатьиЗатратНаПроизводст

во, Сп100, 2);

Ит.ВыполнитьЗапрос(Дата11, Дата21, "20");

П125 = Ит.ДО();

КонецЕсли;

КонецЕсли;

//*******Строка №460*******//

Если Сп101.РазмерСписка() > 0 Тогда

Ит = СоздатьОбъект("БухгалтерскиеИтоги");

Ит.ИспользоватьСубконто(ВидыСубконто.ВидыНоменклатуры,

ТекВидНоменклатуры, 2);

Ит.ИспользоватьСубконто(ВидыСубконто.СтатьиЗатратНаПроизводст

во, Сп101, 2);

Ит.ВыполнитьЗапрос(Дата1, Дата2, "20");

П226 = Ит.ДО();

Если ЗаполнИзотчета = 0 Тогда

Ит = СоздатьОбъект("БухгалтерскиеИтоги");

Ит.ИспользоватьСубконто(ВидыСубконто.ВидыНоменклатуры,

ТекВидНоменклатуры, 2);

Ит.ИспользоватьСубконто(ВидыСубконто.СтатьиЗатратНаПроизводст

во, Сп101, 2);

Ит.ВыполнитьЗапрос(Дата11, Дата21, "20");

П126 = Ит.ДО();

КонецЕсли;

КонецЕсли;

//*******Строка №461*******//

Если Сп110.РазмерСписка() > 0 Тогда

Ит = СоздатьОбъект("БухгалтерскиеИтоги");

Ит.ИспользоватьСубконто(ВидыСубконто.ВидыНоменклатуры,

ТекВидНоменклатуры, 2);

Ит.ИспользоватьСубконто(ВидыСубконто.СтатьиЗатратНаПроизводст

во, Сп110, 2);

Ит.ВыполнитьЗапрос(Дата1, Дата2, "20");

П227 = Ит.ДО();

Если ЗаполнИзотчета = 0 Тогда

Ит = СоздатьОбъект("БухгалтерскиеИтоги");

Ит.ИспользоватьСубконто(ВидыСубконто.ВидыНоменклатуры,

ТекВидНоменклатуры, 2);

Ит.ИспользоватьСубконто(ВидыСубконто.СтатьиЗатратНаПроизводст

во, Сп110, 2);

Ит.ВыполнитьЗапрос(Дата11, Дата21, "20");

П127 = Ит.ДО();

КонецЕсли;

КонецЕсли;

//*******Строка №470*******//

Если Сп120.РазмерСписка() > 0 Тогда

Ит = СоздатьОбъект("БухгалтерскиеИтоги");

Ит.ИспользоватьСубконто(ВидыСубконто.ВидыНоменклатуры,

ТекВидНоменклатуры, 2);

Ит.ИспользоватьСубконто(ВидыСубконто.СтатьиЗатратНаПроизводст

во, Сп120, 2);

Ит.ВыполнитьЗапрос(Дата1, Дата2, "20");

П228 = Ит.ДО();

Если ЗаполнИзотчета = 0 Тогда

Ит = СоздатьОбъект("БухгалтерскиеИтоги");

Ит.ИспользоватьСубконто(ВидыСубконто.ВидыНоменклатуры,

ТекВидНоменклатуры, 2);

Ит.ИспользоватьСубконто(ВидыСубконто.СтатьиЗатратНаПроизводст

во, Сп120, 2);

Ит.ВыполнитьЗапрос(Дата11, Дата21, "20");

П128 = Ит.ДО();

КонецЕсли;

КонецЕсли;

//*******Строка №480*******//

Если Сп130.РазмерСписка() > 0 Тогда

Ит = СоздатьОбъект("БухгалтерскиеИтоги");

Ит.ИспользоватьСубконто(ВидыСубконто.ВидыНоменклатуры,

ТекВидНоменклатуры, 2);

Ит.ИспользоватьСубконто(ВидыСубконто.СтатьиЗатратНаПроизводст

во, Сп130, 2);

Ит.ВыполнитьЗапрос(Дата1, Дата2, "20");

П229 = Ит.ДО();

Если ЗаполнИзотчета = 0 Тогда

Ит = СоздатьОбъект("БухгалтерскиеИтоги");

Ит.ИспользоватьСубконто(ВидыСубконто.ВидыНоменклатуры,

ТекВидНоменклатуры, 2);

Ит.ИспользоватьСубконто(ВидыСубконто.СтатьиЗатратНаПроизводст

во, Сп130, 2);

Ит.ВыполнитьЗапрос(Дата11, Дата21, "20");

П129 = Ит.ДО();

КонецЕсли;

КонецЕсли;

//*******Строка №490*******//

Если Сп131.РазмерСписка() > 0 Тогда

Ит = СоздатьОбъект("БухгалтерскиеИтоги");

Ит.ИспользоватьСубконто(ВидыСубконто.ВидыНоменклатуры,

ТекВидНоменклатуры, 2);

Ит.ИспользоватьСубконто(ВидыСубконто.СтатьиЗатратНаПроизводст

во, Сп131, 2);

Ит.ВыполнитьЗапрос(Дата1, Дата2, "20");

П230 = Ит.ДО();

Если ЗаполнИзотчета = 0 Тогда

Ит = СоздатьОбъект("БухгалтерскиеИтоги");

Ит.ИспользоватьСубконто(ВидыСубконто.ВидыНоменклатуры,

ТекВидНоменклатуры, 2);

Ит.ИспользоватьСубконто(ВидыСубконто.СтатьиЗатратНаПроизводст

во, Сп131, 2);

Ит.ВыполнитьЗапрос(Дата11, Дата21, "20");

П130 = Ит.ДО();

КонецЕсли;

КонецЕсли;

//*******Строка №500*******//

Если Сп140.РазмерСписка() > 0 Тогда

Ит = СоздатьОбъект("БухгалтерскиеИтоги");

Ит.ИспользоватьСубконто(ВидыСубконто.ВидыНоменклатуры,

ТекВидНоменклатуры, 2);

Ит.ИспользоватьСубконто(ВидыСубконто.СтатьиЗатратНаПроизводст

во, Сп140, 2);

Ит.ВыполнитьЗапрос(Дата1, Дата2, "20");

П231 = Ит.ДО();

Если ЗаполнИзотчета = 0 Тогда

Ит = СоздатьОбъект("БухгалтерскиеИтоги");

Ит.ИспользоватьСубконто(ВидыСубконто.ВидыНоменклатуры,

ТекВидНоменклатуры, 2);

Ит.ИспользоватьСубконто(ВидыСубконто.СтатьиЗатратНаПроизводст

во, Сп140, 2);

Ит.ВыполнитьЗапрос(Дата11, Дата21, "20");

П131 = Ит.ДО();

КонецЕсли;

КонецЕсли;

//*******Строка № 610*******//

Если Сп141.РазмерСписка() > 0 Тогда

Ит = СоздатьОбъект("БухгалтерскиеИтоги");

Ит.ИспользоватьСубконто(ВидыСубконто.ВидыНоменклатуры,

ТекВидНоменклатуры, 2);

Ит.ИспользоватьСубконто(ВидыСубконто.СтатьиЗатратНаПроизводст

во, Сп141, 2);

Ит.ВыполнитьЗапрос(Дата1, Дата2, "20");

П232 = Ит.ДО();

Если ЗаполнИзотчета = 0 Тогда

Ит = СоздатьОбъект("БухгалтерскиеИтоги");

Ит.ИспользоватьСубконто(ВидыСубконто.ВидыНоменклатуры,

ТекВидНоменклатуры, 2);

Ит.ИспользоватьСубконто(ВидыСубконто.СтатьиЗатратНаПроизводст

во, Сп141, 2);

Ит.ВыполнитьЗапрос(Дата11, Дата21, "20");

П132 = Ит.ДО();

КонецЕсли;

КонецЕсли;

//*******Строка №620*******//

Если Сп142.РазмерСписка() > 0 Тогда

Ит = СоздатьОбъект("БухгалтерскиеИтоги");

Ит.ИспользоватьСубконто(ВидыСубконто.ВидыНоменклатуры,

ТекВидНоменклатуры, 2);

Ит.ИспользоватьСубконто(ВидыСубконто.СтатьиЗатратНаПроизводст

во, Сп142, 2);

Ит.ВыполнитьЗапрос(Дата1, Дата2, "20");

П233 = Ит.ДО();

Если ЗаполнИзотчета = 0 Тогда

Ит = СоздатьОбъект("БухгалтерскиеИтоги");

Ит.ИспользоватьСубконто(ВидыСубконто.ВидыНоменклатуры,

ТекВидНоменклатуры, 2);

Ит.ИспользоватьСубконто(ВидыСубконто.СтатьиЗатратНаПроизводст

во, Сп142, 2);

Ит.ВыполнитьЗапрос(Дата11, Дата21, "20");

П133 = Ит.ДО();

КонецЕсли;

КонецЕсли;

Сум20П234 =0;

Сум20П134 =0;

//*******Строка №630*******//

Если Сп150.РазмерСписка() > 0 Тогда

Ит = СоздатьОбъект("БухгалтерскиеИтоги");

Ит.ИспользоватьСубконто(ВидыСубконто.ВидыНоменклатуры,

ТекВидНоменклатуры, 2);

Ит.ИспользоватьСубконто(ВидыСубконто.СтатьиЗатратНаПроизводст

во, Сп150, 2);

Ит.ВыполнитьЗапрос(Дата1, Дата2, "20");

Сум20П234 = Ит.ДО();

Если ЗаполнИзотчета = 0 Тогда

Ит = СоздатьОбъект("БухгалтерскиеИтоги");

Ит.ИспользоватьСубконто(ВидыСубконто.ВидыНоменклатуры,

ТекВидНоменклатуры, 2);

Ит.ИспользоватьСубконто(ВидыСубконто.СтатьиЗатратНаПроизводст

во, Сп150, 2);

Ит.ВыполнитьЗапрос(Дата11, Дата21, "20");

Сум20П134 = Ит.ДО();

КонецЕсли;

КонецЕсли;

Ит = СоздатьОбъект("БухгалтерскиеИтоги");

Ит.ИспользоватьСубконто(ВидыСубконто.ВидыНоменклатуры,

ТекВидНоменклатуры, 2);

Ит.ВыполнитьЗапрос(Дата1, Дата2, "90.8");

П234 = Сум20П234 + Ит.ДО();

Если ЗаполнИзотчета = 0 Тогда

Ит = СоздатьОбъект("БухгалтерскиеИтоги");

Ит.ИспользоватьСубконто(ВидыСубконто.ВидыНоменклатуры, ТекВидНоменклатуры, 2);

Ит.ВыполнитьЗапрос(Дата11, Дата21, "90.8");

П134 = Сум20П134 + Ит.ДО();

КонецЕсли;

//*******Строка №220*******//

Ит = СоздатьОбъект("БухгалтерскиеИтоги");

Ит.ИспользоватьСубконто(ВидыСубконто.ВидыНоменклатуры,

ТекВидНоменклатуры, 2);

Ит.ВыполнитьЗапрос(Дата1, Дата2, "90.1");

П217002 = Ит.КО();

Если ЗаполнИзотчета = 0 Тогда

Ит = СоздатьОбъект("БухгалтерскиеИтоги");

Ит.ИспользоватьСубконто(ВидыСубконто.ВидыНоменклатуры,

ТекВидНоменклатуры, 2);

Ит.ВыполнитьЗапрос(Дата11, Дата21, "90.1");

П117001 = Ит.КО();

КонецЕсли;

ПечДиректор =

СтрПолучитьФИО(константа.Руководитель.Получить(Дата2));

ПечГлБух =

СтрПолучитьФИО(Константа.ГлБухгалтер.Получить(Дата2));

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

//*******Расчитываем итоговые значения *******//

Функция Расчет()

//*******Расходы на производство итог*******//

П135 = П120 + П121 + П122 + П123 + П124 + П125 + П127 + П128 +

П129 + П134;

П235 = П120 + П221 + П222 + П223 + П224 + П225 + П227 + П228 +

П229 + П234;

//*******Итоговые расходы по полной себестоимости*******//

П113001 = П135 + П136;

П213002 = П235 + П236;

//*******Расчет себестоимости 1Гкал*******//

П151 = П117001 - П113001;

П251 = П217002 - П213002;

КонецФункции

//*******Печать формы*******//

Процедура Печать()

Таб = СоздатьОбъект("Таблица");

Таб.ИсходнаяТаблица("Печать");

Таб.Вывести();

Таб.Толькопросмотр(1);

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

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

//*******Очищение отчёта*******//

Процедура Очистить(парам)

СписокСохранения = Создатьобъект("СписокЗначений");

Таблица.Выгрузить(СписокСохранения);

Для Инд = 1 По СписокСохранения.РазмерСписка() Цикл

ПредставлениеЗначения = "";

СписокСохранения.ПолучитьЗначение(Инд, ПредставлениеЗначения);

СписокСохранения.УстановитьЗначение(Инд, ПолучитьПустоеЗначение(), ПредставлениеЗначения);

КонецЦикла;

Таблица.Загрузить(СписокСохранения);

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

//*******Восстановление сохранненых данных*******//

Процедура Восстановить(Спрашивать)

Перем ВыбДанные;

Перем Позиция;

Если Спрашивать=1 Тогда

Если ФС.СуществуетФайл(КаталогФормы +

СтрЗаменить(ПериодСтр(Дата1,Дата2),".","")) = 1 Тогда

Иначе

Сообщить("Файл сохраненных данных не найден");

Очистить(0);

Возврат;

КонецЕсли;

СписокСохранения = СоздатьОбъект("СписокЗначений");

ЗначениеИзФайла(КаталогФормы +

СтрЗаменить(ПериодСтр(Дата1,Дата2),".",""),СписокСохранения);

Если ТипЗначенияСтр(СписокСохранения)="СписокЗначений" Тогда

Если Вопрос("Текущие данные будут очищены!

Продолжить?","Да+Нет")="Нет" Тогда

Возврат;

КонецЕсли;

КонецЕсли;

Очистить(0);

Таблица.Загрузить(СписокСохранения);

Иначе

Если ФС.СуществуетФайл(КаталогФормы +

СтрЗаменить(ПериодСтр(Дата1,Дата2),".","")) = 1 Тогда

СписокСохранения = СоздатьОбъект("СписокЗначений");

ЗначениеИзФайла(КаталогФормы +

СтрЗаменить(ПериодСтр(Дата1,Дата2),".",""),СписокСохранения);

Если ТипЗначенияСтр(СписокСохранения)="СписокЗначений" Тогда

Очистить(0);

Таблица.Загрузить(СписокСохранения);

КонецЕсли;

Иначе

Очистить(0);

КонецЕсли;

КонецЕсли;

КонецПроцедуры //** Восстановить() **//

// *******Сохранение*******//

Процедура Сохранить(Спрашивать)

Если Спрашивать=1 Тогда

Если Вопрос("Сохранить данные отчета ""Отчет о прибылях и

убытках""?","Да+Нет",60)="Нет" Тогда