УЧЕТА ЗАКАЗОВ В ООО ГОРОДСКОЙ ЦЕНТР ДЕЗИНФЕКЦИИ

Хронометраж основных технологических операций в технологии работы специалиста ООО «Городской Центр дезинфекции» приведен в таблице 3.1При выполнении расчетов сравнивались параметры работы специалистов в используемой в настоящее время системе и разрабатываемой информационной системе. Годовые объёмы работ оценивались специалистами ООО «Городской Центр дезинфекции»№ п/пНаименование операций технологического процесса решения комплекса задачОборудо-ваниеЕд. Изм.Объем работы в годНорма выра-ботки / производительность устройств ЭВМ (опер/в час.)Тру-доем-кость (гр5: гр6)Средне-часовая зарплата специалиста (руб.)Часовая норма аморти-зации (руб. за час) / ст. 1 маш.часа (руб.)Часовая стоимость накладных расходов (руб.)Стоимостные затраты [(гр8+гр9+ гр10) *гр7] для ручных операцийСтоимостные затраты [(гр8+гр/9 +гр10 )*гр.7] для операций, вып. на ЭВМ 1234567891011121Ввод заказов на обслуживаниеПЭВМраз9000811251802532082340002Ввод данных о работахПЭВМраз300047501802532081560003Ввод данных о клиентахПЭВМраз200045001802532081040004Учет данных о сотрудникахПЭВМраз600020300180253208624005Отправка закази специалистуПЭВМраз7000107001802532081456006Формирование отчетности по специалистамПЭВМраз6000106001802532081248007Мониторинг состояния работ с заказамиПЭВМраз120101218025320824968Формирование сводовПЭВМраз10025018025320810400Итого8397083.2 Расчёт показателей экономической эффективности проектаПроведем оценку объемов финансирования разработки и внедрения информационной системы.Внедрение разработанной программы дает выигрыш по времени в сравнении с существующей технологией учета договоров при сохранении функциональности. Как показано в приведенной таблице, величина годовой экономии на времени при использовании внедряемой технологии сопоставима с зарплатой специалиста по работе с заказами на дезинфекцию, за 1.5 месяца, что эквивалентно 37000 руб. Кроме того, при использовании данной технологии возможно увеличение оперативности в работе при удаленном доступе к базе данных и вводе документов с удаленных площадок напрямую в базу. Экономическая эффективность от данного вида оптимизации оценивается в 10000 руб/год.Производственный экономический эффект (Эпр) в данном случае будет заключаться в:1. Экономии электроэнергии из-за снижения нагрузки на вычислительную технику, снижение амортизационных затрат. Бухгалтерские расчеты дают значение экономии по этой позиции 1200 руб. в год.2. Отсутствии необходимости в приобретении программного обеспечения. Экономия составит 9200 руб.Итого полный экономический эффект, получаемый в результате реализации проектных решений на предприятии составит 57800 руб. в год. или 4816 руб/мес.Проведем расчет затрат на обслуживание компьютерной техники в условиях ООО «Городской Центр дезинфекции» таблице 37.Рисунок 42 - Структура затрат в разработку и внедрение ИС.Таблица 25Расчёт полных годовых эксплуатационных затратШифр затратНаименование затратВеличина затрат, руб.01Заработная плата с начислениями и отчислениями работников, обслуживающих систему1235002Амортизационныеотчисления3250003Стоимостьматериалов200004Стоимостьэлектроэнергии1250005Плата за пользование средствами и линиями связи80006Стоимость запасных частей и материалов, необходимых для проведения ремонтов оборудования системы500007Арендная плата за помещения и материалов, необходимых для проведения ремонтов оборудования системы008Затраты на содержание служебных помещений системы200009Прочие расходы (командировки, политика безопасности и т.д.)1000Итого68150Затраты 01 рассчитываются исходя из штатного расписания, дополнительная заработная плата составляет 10 %, а отчисления по взносам во внебюджетные фонды 30 % от фонда заработной платы;Затраты 02 принимаются в размере 12,5 для вспомогательного оборудования – 13 %, зданий – в размере 2,6% их стоимости;Затраты 03 принимаются в размере 1-2% от стоимости компьютерной техники;Затраты 04 определяются исходя из расчёта объема потребления электроэнергии и установленной стоимости платы за 1 КВТ/ч;Затраты 05 определяются исходя из годового количества часов пользования средствами и линиями связи по установленным тарифам оплаты;Затраты 06 принимаются в размере 2,5-5% от стоимости ЭВМ;Затраты 07 принимаются по фактически установленной арендной платы;Затраты 08 принимаются в размере 2-2,5% от стоимости используемых служебных помещений;Затраты 09 принимаются в размере 1-3% от стоимости основных фондов.Полученные итоговые данные характеризуют полные затраты на эксплуатацию ЭВМ .Полные затраты на эксплуатацию компьютерной техники (10 ПЭВМ, 8 принтеров) в организации составляют 70150руб. в год. Экономия средств при использовании разработанного продукта составит 9%. Проведем расчёт величины капитального вложения, связанного с разработкой и внедрением проектного решенияК капитальным относятся единовременные затраты, связанные с разработкой и внедрением проектного решения: , (1)где - предпроектные затраты на создание системы (специальное обучение персонала, обследование проекта, предпроектный анализ материалов обследования, разработку, согласование и утверждение технического задания), руб.:, (2)где - затраты времени на работу, выполненную на предпроектной стадии, час; - среднечасовая ставка специалиста, выполняющего работу в системе документооборота по заказам на дезинфекцию, руб.;Ч – количество специалистов, задействованных в технологии документооборота по заказам на дезинфекцию, чел.;I – индекс вида работы, выполняемой на предпроектной стадии., (3)где - районный коэффициент; - месячный оклад (ставка, заработок) специалиста, руб.;Проектные затраты на создание системы, руб.: (4)где - затраты времени на работу, выполняемые на проектной стадии (на разработку проекта); - время, затрачиваемое на подготовку данных (перенос данных на машинные носители), час;- величина оплаты труда по среднечасовой ставке оператора подготовки данных, руб.где - величина среднемесячного заработка оператора подготовки данных, руб.; - суммарное машинное время для отладки программ или проведения других отладочных работ, час; - то же для экспериментальных работ, час; - то же для опытной эксплуатации, час; - стоимость машино-часа ЭВМ, руб.;- коэффициент накладных расходов (в расчётах берется по данным конкретного предприятия или равным 1,18); - затраты, связанные с приобретением оборудования, руб.; - затраты на транспортировку и монтаж оборудования (эти затраты составляют в среднем 10-15% от цены, но эти данные необходимо уточнить во время практики), руб.;- размер материально-энергетических затрат, связанных с реализацией системы, руб. (по фактическим данным).Затраты времени по работам предпроектной и проектной стадии берутся по фактическим затратам.В ходе опытной эксплуатации программы было проведено измерение данных, необходимых для расчета стоимости затрат на разработку и внедрение программы. Расчет стоимости разработки программного продукта в условиях ООО «Городской Центр дезинфекции» показывает следующие результаты:- так как у специалистов компании уже установлено компьютерное оборудование, то: =0, =0, =0.Так как разработана задача по автоматической конвертации данных из старой базы данных в разрабатываемую систему, то значение параметра =0,5ч. Временные затраты на разработку проекта =50ч. Количество персонала, задействованного в разработке системы, Ч=1. Продолжительность процесса отладки программного обеспечения =2ч. На рисунке 43 показана диаграмма затрат времени на выполнение технологические операции до и после внедрения информационной системы, на рис.44 – стоимостных затрат.Рисунок 43 - Диаграмма временных затратРисунок 44- Диаграмма стоимостных затратПродолжительность экспериментальной работы =5ч. Продолжительность опытного внедрения =24ч. Таким образом, подставив данные в формулу (4), получим значение проектных затрат в 6025руб. в расчете на одно рабочее место. Таким образом, период окупаемости проекта оценивается в (4816/6025)*12 мес.=9,5 мес.ЗАКЛЮЧЕНИЕОсновная задача данного проекта- автоматизировать работу ООО «Городской Центр дезинфекции», создав проект автоматизированного рабочего места специалиста по работе с заказами. Результатом выполнение данного проекта является создание приложения для работы с базами данных, которое учитывает все особенности процесса работы с заказами на проведение работ по дезинфекции.В процессе проектирования была представлена организационная структура предприятия и автоматизируемого отдела, функциональная модель задач, таблица параметров, состав информационной системы. В ходе проведенного анализа бизнес-процессов были определены недостатки существующей технологии работы с заказами городского центра дезинфекции, связанные с потерей оперативности в обработке поступающей информации от клиентов, невозможностью автоматического выбора специалистов для оказания услуги, невозможностью проведения анализа эффективности работы компании. В постановке задачи была описана экономическая и организационная сущность задачи, было составлено формализованное описание первичных и результатных показателей, а для работы с условно-постоянной информацией были разработаны классификаторы справочников.В данной работе представлены формуляры первичных и результатных документов.Автоматизированный вариант решения задачи позволил:Снизить время обработки информации;Снизить трудовые и стоимостные затраты на обработку данных;Оптимизировать занятность персонала;Увеличить число клиентов.По итогам третьей главы данного проекта были рассчитаны технико-экономические показатели оценки эффективности внедрения автоматизации.Показатели эффективности отображают, что реальная денежная выгода от внедрения программного продукта довольно велика, а уменьшение трудозатрат делает проект наиболее привлекательным, что обеспечит общую эффективность внедряемой разработки.Перспективами развития проекта может стать расширения функционала программного приложения, а именно создание и установки связи с АРМами других сотрудников ООО «Городской Центр дезинфекции». СПИСОК ИСПОЛЬЗОВАННЫХ ИСТОЧНИКОВМелихова Н. В. Информационные технологии управления: учебное пособие. - Челябинск: Издательство Челябинского государственного университета, 2014. - 214 с.Кашаев С. 1С: Предприятие 8.3: программирование и визуальная разработка на примерах. - Санкт-Петербург: БХВ-Петербург, 2015. - 336 с.Щеглов, Ю.А. Информационные системы и процессы. - Новосибирск: НИНХ, 2015. - 251 с.Тагайцева С. Г., Юрченко Т. В. Разработка прикладных решений на платформе 1С: Предприятие 8: учебное пособие. - Нижний Новгород: ННГАСУ, 2016. - 125 с.Задорожный, В.Н. Информационные технологии и автоматизация управления. - Омск : Изд-во ОмГТУ, 2016. - 269 с.Ахметов И. В., Карабельская И.В., Губайдуллин И.М., Сафин Р.Р. Моделирование бизнес-процессов: учебное пособие. - Уфа: Уфимский государственный университет экономики и сервиса, 2015. - 67 с.Баранов В. В., Горошко И. В., Лебедев В. Н. Информационные технологии управления и организация защиты информации: учебник. - Москва: Академия управления МВД России, 2018. - 453 с.Некрасов В. Н., Архипова О. И. Информационно-коммуникационные технологии управления и особенности разрешения их противоречий: монография. - Ростов-на-Дону: Профпресс, 2014. – 105 с.Костикова А. В. Моделирование бизнес-процессов: учебное пособие. - Волгоград: ВолгГТУ, 2016. – 110 с.Бабиева Н. А., Раскин Л. И. Проектирование информационных систем: учебно-методическое пособие. - Казань: Университет, 2014. – 200с.Широкова Е. В. Разработка простых отчетов в "1C: Предприятие 8.3" с использованием системы компоновки данных: учебное пособие по дисциплине "Модуль аналитической отчетности в КИС 1C: Предприятие". - Калуга: Манускрипт, 2017. - 83 с. Стрекалова Н. Б., Маризина В. Н. Современные технологии в профессиональной подготовке специалистов: учебное пособие. - Тольятти: Тольяттинская академия управления, 2016. - 128 с. Гагарин А. Г., Костикова А. В. Проектирование информационных систем: учебное пособие. - Волгоград: ВолГТУ, 2015. – 57 с.Сурушкин М. А. Анализ предметной области и проектирование информационных систем с примерами : учебное пособие. - Белгород: НИУ "БелГУ", 2019. - 155 с.Инюшкина О. Г. Проектирование информационных систем: (на примере методов структурного системного анализа): учебное пособие: Форт-Диалог Исеть, 2014. - 240 с. Баранников Н. И., Яскевич О. Г. Современные проблемы проектирования корпоративных информационных систем. - Воронеж: Воронежский государственный технический университет, 2014. - 237 с. Деменков, М.Е. Современные методы и средства проектирования информационных систем: учебное пособие. - Архангельск: САФУ, 2015. – 89с. Баранчиков А. И. Синтез информационных структур хранения данных на основе анализа предметных областей. - Рязань: РГУ, 2014. - 229 с.Шичкина Ю. А. Методы построения схемы и выполнения запросов в базах данных. - Санкт-Петербург : Изд-во СПбГЭТУ "ЛЭТИ", 2016. - 205 с.Микляев И. А. Универсальные объектно-ориентированные базы данных на реляционной платформе. – Архангельск: ИД САФУ, 2014. – 223с.Ощенко И. А. Азбука программирования в 1С: Предприятие 8.3. - Санкт-Петербург: БХВ-Петербург, 2015. - 284 с. Радченко М. Г., Хрусталева Е. Ю. 1С: Предприятие 8.3: практическое пособие разработчика. - Москва: фирма 1С, 2016. – 926с.Терехова А. Е. Моделирование бизнес-процессов: учебное пособие. - Москва: Изд. дом ФГБОУВО "ГУУ", 2016. - 96 с.Барановская Т.П., Яхонтова И. М., Вострокнутов А. Е., Иванова Е. А. Моделирование бизнес-процессов: учебное пособие. - Краснодар: КубГАУ, 2016. - 152 с.Надейкина Л. А. Программирование. Обобщенное программирование: учебное пособие. - Москва: Московский государственный технический университет ГА, 2019. - 80 с.ПРИЛОЖЕНИЕФрагменты программного кодаПроцедура ОбработкаПроведения(Отказ, Режим)Движения.ЗаказДезинф.Записывать = Истина;Для Каждого ТекСтрокаТабличнаяЧасть1 Из ТабличнаяЧасть1 ЦиклДвижение = Движения.ЗаказДезинф.Добавить();Движение.ВидДвижения = ВидДвиженияНакопления.Приход;Движение.Период = Дата;Движение.НомерЗакази = Номер;Движение.Клиент = Клиент;Движение.Оборудование = ТекСтрокаТабличнаяЧасть1.ВидОбъекта;Движение.ЗаводскойНомер = ТекСтрокаТабличнаяЧасть1.СерийныйНомер;Движение.Статус = Статус;КонецЦикла;//}}__КОНСТРУКТОР_ДВИЖЕНИЙ_РЕГИСТРОВКонецПроцедурыПроцедура ОбработкаПроведения(Отказ, Режим)// регистр ВыполненныеРаботы ПриходДвижения.ВыполненныеРаботы.Записывать = Истина;Движение = Движения.ВыполненныеРаботы.Добавить();Движение.ВидДвижения = ВидДвиженияНакопления.Приход;Движение.Период = Дата;Движение.Заказа = НомерЗакази;Движение.Сотрудник = Сотрудник;Движение.СтоимостьРабот = СтоимостьРабот;Движение.Дата = Дата;Движение.ВидРабот = Работы;//}}__КОНСТРУКТОР_ДВИЖЕНИЙ_РЕГИСТРОВКонецПроцедурПроцедура Печать(ТабДок, Ссылка) ЭкспортМакет = Документы.ПриемВЗаказДезинф.ПолучитьМакет("Печать");Запрос = Новый Запрос;Запрос.Текст ="ВЫБРАТЬ|ПриемВЗаказДезинф.Дата,|ПриемВЗаказДезинф.Клиент,|ПриемВЗаказДезинф.Номер,|ПриемВЗаказДезинф.Статус|ИЗ|Документ.ПриемВЗаказДезинф КАК ПриемВЗаказДезинф|ГДЕ|ПриемВЗаказДезинф.Ссылка В (&Ссылка)";Запрос.Параметры.Вставить("Ссылка", Ссылка);Выборка = Запрос.Выполнить().Выбрать();ОбластьЗаголовок = Макет.ПолучитьОбласть("Заголовок");Шапка = Макет.ПолучитьОбласть("Шапка");ТабДок.Очистить();ВставлятьРазделительСтраниц = Ложь;Пока Выборка.Следующий() ЦиклЕсли ВставлятьРазделительСтраниц ТогдаТабДок.ВывестиГоризонтальныйРазделительСтраниц();КонецЕсли;ТабДок.Вывести(ОбластьЗаголовок);Шапка.Параметры.Заполнить(Выборка);ТабДок.Вывести(Шапка, Выборка.Уровень());ВЫБРАТЬВыполненныеРаботы.Сотрудник КАК Сотрудник,ВыполненныеРаботы.Дата КАК Дата,ВыполненныеРаботы.СтоимостьРабот КАК СтоимостьРабот,ВыполненныеРаботы.ВидРабот КАК ВидРаботИЗРегистрНакопления.ВыполненныеРаботы КАК ВыполненныеРаботыГде Дата >= &Дата1 И Дата <= &Дата2ВЫБРАТЬВыполненныеРаботы.СтоимостьРабот КАК СтоимостьРабот,ВыполненныеРаботы.ВидРабот КАК ВидРабот,ВыполненныеРаботы.Дата КАК Дата,ВыполненныеРаботы.Заказа КАК Заказа,ПриемВЗаказДезинф.Клиент.Наименование КАК КлиентНаименованиеИЗРегистрНакопления.ВыполненныеРаботы КАК ВыполненныеРаботыЛЕВОЕ СОЕДИНЕНИЕДокумент.ПриемВЗаказДезинф КАК ПриемВЗаказДезинфПО ВыполненныеРаботы.Заказа = ПриемВЗаказДезинф.СсылкаГДЕВыполненныеРаботы.Заказа = &ЗаказаВЫБРАТЬЗаказДезинф.Статус КАК Статус,ЗаказДезинф.Оборудование КАК Оборудование,ЗаказДезинф.ЗаводскойНомер КАК ЗаводскойНомер,ЗаказДезинф.НомерЗакази КАК НомерЗакази,ЗаказДезинф.Клиент КАК КлиентИЗРегистрНакопления.ЗаказДезинф КАК ЗаказДезинфВЫБРАТЬЗаказДезинф.Статус КАК Статус,ЗаказДезинф.Оборудование КАК Оборудование,ЗаказДезинф.ЗаводскойНомер КАК ЗаводскойНомер,ЗаказДезинф.НомерЗакази КАК НомерЗакази,ЗаказДезинф.Клиент КАК КлиентИЗРегистрНакопления.ЗаказДезинф КАК ЗаказДезинфНаКлиентеПроцедура ОбработкаКоманды(ПараметрКоманды, ПараметрыВыполненияКоманды)ТабДок = Новый ТабличныйДокумент;Печать(ТабДок, ПараметрКоманды);ТабДок.ОтображатьСетку = Ложь;ТабДок.Защита = Истина;ТабДок.ТолькоПросмотр = Истина;ТабДок.ОтображатьЗаголовки = Ложь;ТабДок.Показать();КонецПроцедуры&НаСервереПроцедура Печать(ТабДок, ПараметрКоманды)Документы.ЗаявкаКлиентаНауслугиДезинф.Печать(ТабДок, ПараметрКоманды);КонецПроцедурыПроцедура ОбработкаПроведения(Отказ, Режим)// регистр ЗаказДезинфДвижения.ЗаказДезинф.Записывать = Истина;Для Каждого ТекСтрокаУслугиДезинф Из УслугиДезинф ЦиклДвижение = Движения.ЗаказДезинф.Добавить();Движение.Период = Дата;Движение.Поставщик = Поставщик;Движение.Номенклатура = ТекСтрокаУслугиДезинф.Номенклатура;Движение.Количество = ТекСтрокаУслугиДезинф.Количество;Движение.Сумма = ТекСтрокаУслугиДезинф.Стоимость;КонецЦикла;КонецПроцедурыроцедураПечать(ТабДок, Ссылка) ЭкспортМакет = Документы.ПроведениеВыставки.ПолучитьМакет("Печать");Запрос = Новый Запрос;Запрос.Текст ="ВЫБРАТЬ|Константы.НаименованиеОрганизации КАК Организация,|ПроведениеВыставки.Выставка,|ПроведениеВыставки.Выставка.Организатор КАК Организатор,|ПроведениеВыставки.Выставка.Рубрика КАК Рубрика,| ПроведениеВыставки.Выставка.МестоПроведения КАК МестоПроведения,| ПроведениеВыставки.Выставка.ДатаНачалаВыставки КАК ДатаНачалаВыставки,| ПроведениеВыставки.Выставка.ДатаОкончанияВыставки КАК ДатаОкончанияВыставки,|ПроведениеВыставки.ДатаНачалаУчастия,|ПроведениеВыставки.ДатаОкончанияУчастия,|ПроведениеВыставки.КоличествоЗаказанныхМест,|ПроведениеВыставки.Ответственный,|ПроведениеВыставки.Ответственный.Телефон КАК Телефон,|ПроведениеВыставки.СтоимостьУчастия,|ПроведениеВыставки.Оборудование.(|НомерСтроки,|Номенклатура,|Количество|)|ИЗ|Документ.ПроведениеВыставки КАК ПроведениеВыставки,|Константы|ГДЕ|ПроведениеВыставки.Ссылка В (&Ссылка)";Запрос.Параметры.Вставить("Ссылка", Ссылка);Выборка = Запрос.Выполнить().Выбрать();ОбластьЗаголовок = Макет.ПолучитьОбласть("Заголовок");Шапка = Макет.ПолучитьОбласть("Шапка");ОбластьОборудованиеШапка = Макет.ПолучитьОбласть("ОборудованиеШапка");ОбластьОборудование = Макет.ПолучитьОбласть("Оборудование");ТабДок.Очистить();ВставлятьРазделительСтраниц = Ложь;Пока Выборка.Следующий() ЦиклЕсли ВставлятьРазделительСтраниц ТогдаТабДок.ВывестиГоризонтальныйРазделительСтраниц();КонецЕсли;ОбластьЗаголовок.Параметры.Заполнить(Выборка);ТабДок.Вывести(ОбластьЗаголовок);Шапка.Параметры.Заполнить(Выборка);Шапка.Параметры.ДатаНачалаВыставки = Формат(Выборка.ДатаНачалаВыставки, "ДЛФ = ДД");Шапка.Параметры.ДатаОкончанияВыставки = Формат(Выборка.ДатаОкончанияВыставки, "ДЛФ = ДД");Шапка.Параметры.ДатаНачалаУчастия = Формат(Выборка.ДатаНачалаУчастия, "ДЛФ = ДД");Шапка.Параметры.ДатаОкончанияУчастия = Формат(Выборка.ДатаОкончанияУчастия, "ДЛФ = ДД");ТабДок.Вывести(Шапка, Выборка.Уровень());ТабДок.Вывести(ОбластьОборудованиеШапка);ВыборкаОборудование = Выборка.Оборудование.Выбрать();Пока ВыборкаОборудование.Следующий() ЦиклОбластьОборудование.Параметры.Заполнить(ВыборкаОборудование);ТабДок.Вывести(ОбластьОборудование, ВыборкаОборудование.Уровень());КонецЦикла;ВставлятьРазделительСтраниц = Истина;КонецЦикла;КонецПроцедурыроцедураПечать(ТабДок, Ссылка) ЭкспортМакет = Документы.ЗаявкаКлиентаНауслугиДезинф.ПолучитьМакет("Печать");Запрос = Новый Запрос;Запрос.Текст ="ВЫБРАТЬ|Константы.НаименованиеОрганизации КАК Организация,|ЗаявкаКлиентаНауслугиДезинф.Дата,|ЗаявкаКлиентаНауслугиДезинф.Номер,|ЗаявкаКлиентаНауслугиДезинф.Ответственный,|ЗаявкаКлиентаНауслугиДезинф.Ответственный.Телефон КАК Телефон,|ЗаявкаКлиентаНауслугиДезинф.Поставщик,|ЗаявкаКлиентаНауслугиДезинф.ЦельЗаказа,|ЗаявкаКлиентаНауслугиДезинф.УслугиДезинф.(|НомерСтроки,|Номенклатура,|Цена,|Количество,|Стоимость|)|ИЗ|Документ.ЗаявкаКлиентаНауслугиДезинф КАК ЗаявкаКлиентаНауслугиДезинф,|Константы|ГДЕ|ЗаявкаКлиентаНауслугиДезинф.Ссылка В (&Ссылка)";Запрос.Параметры.Вставить("Ссылка", Ссылка);Выборка = Запрос.Выполнить().Выбрать();ОбластьЗаголовок = Макет.ПолучитьОбласть("Заголовок");Шапка = Макет.ПолучитьОбласть("Шапка");ОбластьУслугиДезинфШапка = Макет.ПолучитьОбласть("УслугиДезинфШапка");ОбластьУслугиДезинф = Макет.ПолучитьОбласть("УслугиДезинф");ОбластьУслугиДезинфПодвал = Макет.ПолучитьОбласть("УслугиДезинфПодвал");Подвал = Макет.ПолучитьОбласть("Подвал");ТабДок.Очистить();ВставлятьРазделительСтраниц = Ложь;Пока Выборка.Следующий() ЦиклЕсли ВставлятьРазделительСтраниц ТогдаТабДок.ВывестиГоризонтальныйРазделительСтраниц();КонецЕсли;ОбластьЗаголовок.Параметры.Заполнить(Выборка);ТабДок.Вывести(ОбластьЗаголовок);Шапка.Параметры.Заполнить(Выборка);ТабДок.Вывести(Шапка, Выборка.Уровень());ТабДок.Вывести(ОбластьУслугиДезинфШапка);ИтСтоимость = 0;ВыборкаУслугиДезинф = Выборка.УслугиДезинф.Выбрать();Пока ВыборкаУслугиДезинф.Следующий() ЦиклОбластьУслугиДезинф.Параметры.Заполнить(ВыборкаУслугиДезинф);ТабДок.Вывести(ОбластьУслугиДезинф, ВыборкаУслугиДезинф.Уровень());ИтСтоимость = ИтСтоимость + ВыборкаУслугиДезинф.Стоимость;КонецЦикла;ОбластьУслугиДезинфПодвал.Параметры.Стоимость = ИтСтоимость;Подвал.Параметры.Заполнить(Выборка);ТабДок.Вывести(Подвал);ВставлятьРазделительСтраниц = Истина;КонецЦикла;КонецПроцедурыПроцедура Печать(ТабДок, Ссылка) ЭкспортМакет = Документы.РазмещениеРекламы.ПолучитьМакет("Печать");Запрос = Новый Запрос;Запрос.Текст ="ВЫБРАТЬ|Константы.НаименованиеОрганизации КАК Организация,|РазмещениеРекламы.Дата,|РазмещениеРекламы.ДатаНачалаРекламнойКомпании,|РазмещениеРекламы.ДатаОкончанияРекламнойКомпании,|РазмещениеРекламы.Контрагент,|РазмещениеРекламы.Номер,|РазмещениеРекламы.Ответственный,|РазмещениеРекламы.Ответственный.Телефон КАК Телефон,|РазмещениеРекламы.СредствоПродвижения,|РазмещениеРекламы.СуммаРекламнойКомпании,|РазмещениеРекламы.ТекстРекламы|ИЗ|Документ.РазмещениеРекламы КАК РазмещениеРекламы,|Константы|ГДЕ|РазмещениеРекламы.Ссылка В (&Ссылка)";Запрос.Параметры.Вставить("Ссылка", Ссылка);Выборка = Запрос.Выполнить().Выбрать();ОбластьЗаголовок = Макет.ПолучитьОбласть("Заголовок");Шапка = Макет.ПолучитьОбласть("Шапка");ТабДок.Очистить();ВставлятьРазделительСтраниц = Ложь;Пока Выборка.Следующий() ЦиклЕсли ВставлятьРазделительСтраниц ТогдаТабДок.ВывестиГоризонтальныйРазделительСтраниц();КонецЕсли;ОбластьЗаголовок.Параметры.Заполнить(Выборка);ТабДок.Вывести(ОбластьЗаголовок);Шапка.Параметры.Заполнить(Выборка);Шапка.Параметры.ДатаНачалаРекламнойКомпании = Формат(Выборка.ДатаНачалаРекламнойКомпании, "ДЛФ = ДД");Шапка.Параметры.ДатаОкончанияРекламнойКомпании = Формат(Выборка.ДатаОкончанияРекламнойКомпании, "ДЛФ = ДД");ТабДок.Вывести(Шапка, Выборка.Уровень());ВставлятьРазделительСтраниц = Истина;КонецЦикла;КонецПроцедурыроцедураПечать(ТабДок, Ссылка) ЭкспортМакет = Документы.ЗаявкаКлиентаНауслугиДезинф.ПолучитьМакет("Печать");Запрос = Новый Запрос;Запрос.Текст ="ВЫБРАТЬ|Константы.НаименованиеОрганизации КАК Организация,|ЗаявкаКлиентаНауслугиДезинф.Дата,|ЗаявкаКлиентаНауслугиДезинф.Контрагент,|ЗаявкаКлиентаНауслугиДезинф.Номер,|ЗаявкаКлиентаНауслугиДезинф.Ответственный,|ЗаявкаКлиентаНауслугиДезинф.Ответственный.Телефон КАК Телефон,|ЗаявкаКлиентаНауслугиДезинф.ТекстКоммерческогоПредложения,|ЗаявкаКлиентаНауслугиДезинф.УслугиДезинф.(|НомерСтроки,|Номенклатура,|Цена|)|ИЗ|Документ.ЗаявкаКлиентаНауслугиДезинф КАК ЗаявкаКлиентаНауслугиДезинф,|Константы|ГДЕ|ЗаявкаКлиентаНауслугиДезинф.Ссылка В (&Ссылка)";Запрос.Параметры.Вставить("Ссылка", Ссылка);Выборка = Запрос.Выполнить().Выбрать();ОбластьЗаголовок = Макет.ПолучитьОбласть("Заголовок");Шапка = Макет.ПолучитьОбласть("Шапка");ОбластьУслугиДезинфШапка = Макет.ПолучитьОбласть("УслугиДезинфШапка");ОбластьУслугиДезинф = Макет.ПолучитьОбласть("УслугиДезинф");Подвал = Макет.ПолучитьОбласть("Подвал");ТабДок.Очистить();ВставлятьРазделительСтраниц = Ложь;Пока Выборка.Следующий() ЦиклЕсли ВставлятьРазделительСтраниц ТогдаТабДок.ВывестиГоризонтальныйРазделительСтраниц();КонецЕсли;ОбластьЗаголовок.Параметры.Заполнить(Выборка);ТабДок.Вывести(ОбластьЗаголовок);Шапка.Параметры.Заполнить(Выборка);ТабДок.Вывести(Шапка, Выборка.Уровень());ТабДок.Вывести(ОбластьУслугиДезинфШапка);ВыборкаУслугиДезинф = Выборка.УслугиДезинф.Выбрать();Пока ВыборкаУслугиДезинф.Следующий() ЦиклОбластьУслугиДезинф.Параметры.Заполнить(ВыборкаУслугиДезинф);ТабДок.Вывести(ОбластьУслугиДезинф, ВыборкаУслугиДезинф.Уровень());КонецЦикла;Подвал.Параметры.Заполнить(Выборка);ТабДок.Вывести(Подвал);ВставлятьРазделительСтраниц = Истина;КонецЦикла;КонецПроцедуры