77
ЗАКЛЮЧЕНИЕ
В ходе выполнения выпускной квалификационной работы разработана
автоматизированная информационная система для учета и обработки клиентских
заявок, поступающих от клиентов Курского филиал компании ПАО
«Ростелеком».
В ходе ВКР была проанализирована деятельность компании, выявлены
основные тенденции её развития и результаты текущей деятельности,
проанализирована её организационно – управленческая структура и дано её
описание. Была проанализирована предметная область в рамках
рассматриваемой темы ВКР, а именно автоматизация учета и обработки заявок в
компанию ПАО «Ростелеком».
Анализ ИС организации позволил выявить несколько серьезных
недостатков:
1) отсутствие прозрачной системы управления заявками и областями,
входящими в данный процесс;
2) отсутствие обоснованных управленческих решений, (сотрудники
должны видеть результаты своего труда, в течение всего рабочего месяца, не
дожидаясь оценки руководством);
3) отсутствие мониторинга по показателям, что не позволяет
руководителю оперативно принимать решения.
В ходе выполнения данной работы был сделан обзор современных
информационных систем управления клиентской базой, проведен
сравнительный анализ, и было предложено наиболее подходящее решение для
подобных задач.
В ходе ВКР был проанализирован комплекс факторов, влияющих на
проект автоматизации управления учетом и обработкой заявок в компании
«Ростелеком» и принятых проектных решений, а именно:
1) риски проекта и методология управления проектом создания
программного обеспечения автоматизации заявок;
2) информационная модель проектируемой системы управления
заявками пользователей;
78
3) структура ИС автоматизации заявок клиентов в различных разрезах.
В рамках третьей части ВКР была определена методика расчета
экономической эффективности и обоснована экономическая эффективность
разработки ИС автоматизации учета и обработки заявок.
Таким образом, годовой экономический эффект от внедрения ИС
составляет 66430, 5 рублей. Срок окупаемости ИС составляет 0,59 года.
В дальнейшем по мере роста бизнеса компании планируется расширение
существующей ИС, добавлением в нее новых подсистем и усовершенствование
существующих алгоритмов. Это становится возможным благодаря правильно
выбранному масштабируемому решению, которое позволит интеграцию и
расширение с наименьшими экономическими издержками для компании, что
говорит об экономической целесообразности дальнейшей эксплуатации данной
разработанной ИС учета и обработка заявок клиентов.
79
СПИСОК ИСПОЛЬЗОВАННОЙ ЛИТЕРАТУРЫ
1. Баранова Е. К., Бабаш А. В. Информационная безопасность и
защита информации: Учебное пособие / Баранова Е. К., Бабаш А. В. - 4-е изд. -
М.: ИЦ РИОР, НИЦ ИНФРА-М, 2018. - 336 с.
2. Варфоломеева А. О. Информационные системы предприятия:
Учебное пособие / Варфоломеева А. О., Коряковский А. В., Романов В. П. - 2-е
изд., перераб. и доп. - М.: НИЦ ИНФРА-М, 2019. - 330 с.
3. Голицына, О.Л. Базы данных: учебное пособие / О.Л. Голицына, Н.
В. Максимов, И. И. Попов. – 4-е изд., перераб. и доп. – Москва: Изд-во ФОРУМ:
ИНФРА – М, 2018. – 400 с.
4. Дадян Э.Г. Конфигурирование и моделирование в системе «1С:
Предприятие»: учебник / Э.Г. Дадян. — М.: ИНФРА-М, 2018. — 417 с.
5. Дадян Э.Г. Современные базы данных. Основы. Часть 1: Учебное
пособие / Дадян Э.Г. - М.:НИЦ ИНФРА-М, 2017. - 88 с.
6. Дейт, К.Дж. Введение в системы баз данных / К.Дж. Дейт. –
Москва: Изд-во Вильямс, 2011 – 1072 с.
7. Диго, С.М. Базы данных: проектирование и использование: учебник
для вузов/ С.М. Диго. – Москва: Изд-во Финансы и статистика, 2011. – 592 с.
8. Илюшечкин, В.М. Основы проектирования и использования баз
данных: учебник / В.М. Илюшечкин. – Москва: Изд-во Юрайт, 2019. – 213 с.
9. Калачанов, В.Д. Экономическая эффективность внедрения
информационных технологий. Учебное пособие / В.Д. Калачанов, Л.И Кобко. –
Москва: МАИ, 2014. – 180 с.
10. Каленик, А.И. Использование новых возможностей Microsoft SQL
Server 2012/ А.И. Каленик. – Москва: Изд-во «Русская редакция», 2012. – 334 с.
11. Кашаев, С.М. 1С: Предприятие 8.3. Программирование и
визуальная разработка на примерах / С.М. Кашаев – СПб.: Изд-во БХВ-
Петербург, 2015 – 336 с.
12. Колдаев В.Д. Основы алгоритмизации и программирования:
учебное пособие / под ред. проф. Л. Г. Гагариной. — М.: ИД «ФОРУМ»:
ИНФРА-М, 2017. — 416 с.
80
13. Коннолли, Т. Базы данных. Проектирование, реализация и
сопровождение. Теория и практика / Т.Коноллии, К. Бегг. – 3-е изд., перераб. и
доп. – Москва: Изд-во Вильямс, 2017. – 1439 с.
14. Крёнке, Д. Практический опыт программирования в реляционных
базах данных/ Д.Крёнке. – СПб.: Изд-во Питер, 2011. – 400 с.
15. Кузин, А.В. Базы данных: учебное пособие для вузов/ А.В. Кузин. –
Москва: Изд-во Академия, 2012. – 78 с.
16. Кузнецов, С.Д. Основы баз данных: курс лекций: учеб. пособие для
студентов, обучающихся по специальностям в обл. информ. технологий/ С.Д.
Кузнецов. – Москва: Изд-во университет информационных технологий, 2011. –
488 с.
17. Ощенко И.А. Азбука программирования в 1С:Предприятие 8.3:
Пособие / Ощенко И.А. - СПб:БХВ-Петербург, 2015. - 288 с.
18. Партыка, Т. Л. Информационная безопасность: Учебное пособие /
Партыка Т. Л., Попов И. И. - 5-е изд., перераб. и доп. - Москва: Форум, НИЦ
ИНФРА-М, 2016. - 432 с.
19. Полякова, Л. Н. Основы SQL: Курс лекций. Учебное пособие/ Л.Н.
Полякова. – Москва: Изд-во университет информационных технологий, 2011. –
368 с.
20. Радченко, М.Г. 1С: Предприятие 8.3. Практическое пособие
разработчика / М.Г. Радченко, Е.Ю. Хрусталева. – Москва: Изд-во 1C-
Паблишинг, 2013 г. – 965 с.
21. Шустова Л.И. Базы данных: Учебник / Шустова Л.И., Тараканов
О.В. - М.:НИЦ ИНФРА-М, 2016. - 304 с.
22. Официальный сайт «Электронный фонд правовой и нормативно-
технической документации» – http://docs.cntd.ru/
81
ПРИЛОЖЕНИЕ
ЛИСТИНГ
Процедура ОбработкаЗаполнения(ДанныеЗаполнения,
тюрколог тюрколог
СтандартнаяОбработка)
//{{__КОНСТРУКТОР_ВВОД_НА_ОСНОВАНИИ
тюрколог тюрколог
Если ТипЗнч(ДанныеЗаполнения)
тюрколог тюрколог
=
Тип("
тюрколог тюрколог
ДокументСсылка.ПервичныйИнтересКлиента"
тюрколог тюрколог
) Тогда
тюрколог тюрколог
// Заполнение
тюрколог тюрколог
шапки
ИнтересКлиента =
тюрколог тюрколог
ДанныеЗаполнения.
тюрколог
ИнтересКлиента;
тюрлллл
ИсточникПервичногоИнтереса
тюрколог тюрколог
=
ДанныеЗаполнения.ИсточникПервичногоИнтереса;
тюрлллл
НаименованиеКлиента =
тюрколог тюрколог
ДанныеЗаполнения.
тюрколог
НаименованиеКлиента;
тюрлллл
КонецЕсли;
тюрлллл тюрколог тюрколог
//}}__КОНСТРУКТОР_ВВОД_НА_ОСНОВАНИИ
тюрколог тюрколог
КонецПроцедуры
тюрколог тюрколог
Процедура ОбработкаПроведения(Отказ, Режим)
тюрколог тюрколог
//{{__КОНСТРУКТОР_ДВИЖЕНИЙ_РЕГИСТРОВ
тюрколог тюрколог
// регистр
тюрколог тюрколог
ОбратнаяСвязь
Движения.
тюрколог
ОбратнаяСвязь.Записывать
тюрколог тюрколог
= Истина;
тюрлллл
Движение =
тюрколог тюрколог
Движения.
тюрколог
ОбратнаяСвязь.
тюрколог
Добавить();
тюрлллл
Движение.
тюрколог
Период =
тюрколог тюрколог
Дата;
тюрлллл
Движение.
тюрколог
НаименованиеКлиента =
тюрколог тюрколог
НаименованиеКлиента;
тюрлллл
Движение.
тюрколог
ИнтересКлиента =
тюрколог тюрколог
ИнтересКлиента;
тюрлллл
Движение.
тюрколог
УдовлетворенностьКлиента =
тюрколог тюрколог
УдовлетворенностьКлиента;
тюрлллл
Движение.
тюрколог
ПолучениеУслуги =
тюрколог тюрколог
ПолучениеУслуги;
тюрлллл
//}}__КОНСТРУКТОР_ДВИЖЕНИЙ_РЕГИСТРОВ
тюрколог тюрколог
КонецПроцедуры
тюрколог тюрколог
Процедура Печать(ТабДок, Ссылка) Экспорт
тюрколог тюрколог
//{{_КОНСТРУКТОР_ПЕЧАТИ(Печать)
тюрколог тюрколог
Макет =
тюрколог тюрколог
Документы.
тюрколог
ОбратнаяСвязьСКлиентом.ПолучитьМакет("
тюрколог тюрколог
Печать"
тюрколог тюрколог
);
тюрлллл
Запрос =
тюрколог тюрколог
Новый Запрос;
тюрлллл
Запрос.
тюрколог
Текст
тюрколог тюрколог
=
"
тюрколог тюрколог
ВЫБРАТЬ
тюрколог тюрколог
| ОбратнаяСвязьСКлиентом.
тюрколог
Дата,
тюрколог тюрколог
| ОбратнаяСвязьСКлиентом.
тюрколог
ИнтересКлиента,
тюрколог тюрколог
| ОбратнаяСвязьСКлиентом.
тюрколог
ИсточникПервичногоИнтереса,
тюрколог тюрколог
| ОбратнаяСвязьСКлиентом.
тюрколог
НаименованиеКлиента,
тюрколог тюрколог
| ОбратнаяСвязьСКлиентом.
тюрколог
Номер,
тюрколог тюрколог
| ОбратнаяСвязьСКлиентом.
тюрколог
ПолучениеУслуги,
тюрколог тюрколог
| ОбратнаяСвязьСКлиентом.
тюрколог
УдовлетворенностьКлиента
тюрколог тюрколог
|ИЗ
тюрколог тюрколог
| Документ.
тюрколог
ОбратнаяСвязьСКлиентом КАК
тюрколог тюрколог
ОбратнаяСвязьСКлиентом
|ГДЕ
| ОбратнаяСвязьСКлиентом.
тюрколог
Ссылка В
тюрколог тюрколог
(&Ссылка) "
тюрколог тюрколог
;
тюрлллл
Запрос.
тюрколог
Параметры.
тюрколог
Вставить("
тюрколог тюрколог
Ссылка"
тюрколог тюрколог
,
тюрколог тюрколог
Ссылка) ;
тюрлллл
Выборка = Запрос.
тюрколог
Выполнить(
тюрколог тюрколог
).
тюрколог
Выбрать(
тюрколог тюрколог
);
ОбластьЗаголовок =
тюрколог тюрколог
Макет.
тюрколог
ПолучитьОбласть("
тюрколог тюрколог
Заголовок"
тюрколог тюрколог
);
тюрлллл
82
Шапка =
тюрколог тюрколог
Макет.
тюрколог
ПолучитьОбласть("
тюрколог тюрколог
Шапка"
тюрколог тюрколог
);
тюрлллл
ТабДок.
тюрколог
Очистить(
тюрколог тюрколог
);
тюрлллл
ВставлятьРазделительСтраниц =
тюрколог тюрколог
Ложь;
тюрлллл
Пока Выборка.
тюрколог
Следующий(
тюрколог тюрколог
) Цикл
Если ВставлятьРазделительСтраниц
тюрколог тюрколог
Тогда
ТабДок.ВывестиГоризонтальныйРазделительСтраниц(
тюрколог тюрколог
);
тюрлллл
КонецЕсли;
тюрлллл
тюрколог тюрколог
ТабДок.
тюрколог
Вывести(ОбластьЗаголовок) ;
тюрлллл
тюрколог тюрколог
Шапка.
тюрколог
Параметры.
тюрколог
Заполнить(Выборка) ;
тюрлллл
ТабДок.
тюрколог
Вывести(Шапка,
тюрколог тюрколог
Выборка.
тюрколог
Уровень());
тюрлллл
ВставлятьРазделительСтраниц
тюрколог тюрколог
= Истина;
тюрлллл
КонецЦикла;
тюрколог тюрколог
//}}
КонецПроцедуры
тюрколог тюрколог
&НаКлиенте
тюрколог тюрколог
Процедура ОбработкаКоманды(ПараметрКоманды,
тюрколог тюрколог
ПараметрыВыполненияКоманды)
тюрколог тюрколог
//{{_КОНСТРУКТОР_ПЕЧАТИ(Печать)
тюрколог тюрколог
ТабДок = Новый
тюрколог тюрколог
ТабличныйДокумент;
тюрлллл
Печать(ТабДок, ПараметрКоманды);
тюрлллл
ТабДок.
тюрколог
ОтображатьСетку
тюрколог тюрколог
= Ложь;
тюрлллл
ТабДок.
тюрколог
Защита
тюрколог тюрколог
= Ложь;
тюрлллл
ТабДок.
тюрколог
ТолькоПросмотр
тюрколог тюрколог
= Ложь;
тюрлллл
ТабДок.ОтображатьЗаголовки
тюрколог тюрколог
= Ложь;
тюрлллл
ТабДок.Показать(
тюрколог тюрколог
);
тюрлллл
//}}
тюрколог тюрколог
КонецПроцедуры
тюрколог тюрколог
&НаСервере
тюрколог тюрколог
Процедура Печать(ТабДок, ПараметрКоманды)
тюрколог тюрколог
Документы.
тюрколог
ОбратнаяСвязьСКлиентом.Печать(ТабДок,
тюрколог тюрколог
ПараметрКоманды) ;
тюрлллл
КонецПроцедуры
тюрколог тюрколог
Процедура ОбработкаПроведения(Отказ,
тюрколог тюрколог
Режим)
//{{__КОНСТРУКТОР_ДВИЖЕНИЙ_РЕГИСТРОВ
тюрколог тюрколог
// регистр
тюрколог тюрколог
ИнтересыКлиентов
Движения.
тюрколог
ИнтересыКлиентов.Записывать =
тюрколог тюрколог
Истина;
тюрлллл
Движение = Движения.
тюрколог
ИнтересыКлиентов.
тюрколог
Добавить(
тюрколог тюрколог
);
тюрлллл
Движение.
тюрколог
Период
тюрколог тюрколог
= Дата;
тюрлллл
Движение.
тюрколог
НаименованиеКлиента
тюрколог тюрколог
= НаименованиеКлиента;
тюрлллл
Движение.
тюрколог
ИнтересКлиента
тюрколог тюрколог
= ИнтересКлиента;
тюрлллл
Движение.
тюрколог
ИсточникПервичногоИнтереса
тюрколог тюрколог
= ИсточникПервичногоИнтереса;
тюрлллл
//}}__КОНСТРУКТОР_ДВИЖЕНИЙ_РЕГИСТРОВ
тюрколог тюрколог
КонецПроцедуры
тюрколог тюрколог
тюрколог тюрколог
Процедура Печать(ТабДок, Ссылка)
тюрколог тюрколог
Экспорт
//{{_КОНСТРУКТОР_ПЕЧАТИ(Печать)
тюрколог тюрколог
Макет =
тюрколог тюрколог
Документы.
тюрколог
ПервичныйИнтересКлиента.ПолучитьМакет("
тюрколог тюрколог
Печать"
тюрколог тюрколог
);
тюрлллл
Запрос =
тюрколог тюрколог
Новый Запрос;
тюрлллл
Запрос.
тюрколог
Текст
тюрколог тюрколог
=
"
тюрколог тюрколог
ВЫБРАТЬ
тюрколог тюрколог
83
| ПервичныйИнтересКлиента.
тюрколог
Дата,
тюрколог тюрколог
| ПервичныйИнтересКлиента.
тюрколог
ИнтересКлиента,
тюрколог тюрколог
| ПервичныйИнтересКлиента.
тюрколог
ИсточникПервичногоИнтереса,
тюрколог тюрколог
| ПервичныйИнтересКлиента.
тюрколог
НаименованиеКлиента,
тюрколог тюрколог
| ПервичныйИнтересКлиента.
тюрколог
Номер
тюрколог тюрколог
|ИЗ
тюрколог тюрколог
| Документ.
тюрколог
ПервичныйИнтересКлиента КАК
тюрколог тюрколог
ПервичныйИнтересКлиента
|ГДЕ
| ПервичныйИнтересКлиента.Ссылка В
тюрколог тюрколог
(&Ссылка)"
тюрколог тюрколог
;
тюрлллл
Запрос.
тюрколог
Параметры.
тюрколог
Вставить("
тюрколог тюрколог
Ссылка"
тюрколог тюрколог
,
тюрколог тюрколог
Ссылка) ;
тюрлллл
Выборка =
тюрколог тюрколог
Запрос.
тюрколог
Выполнить(
тюрколог тюрколог
).
тюрколог
Выбрать(
тюрколог тюрколог
);
тюрлллл
ОбластьЗаголовок =
тюрколог тюрколог
Макет.
тюрколог
ПолучитьОбласть("
тюрколог тюрколог
Заголовок"
тюрколог тюрколог
);
тюрлллл
Шапка
тюрколог тюрколог
= Макет.
тюрколог
ПолучитьОбласть("
тюрколог тюрколог
Шапка"
тюрколог тюрколог
);
тюрколог тюрколог тюрлллл
ТабДок.
тюрколог
Очистить(
тюрколог тюрколог
);
тюрлллл
ВставлятьРазделительСтраниц
тюрколог тюрколог
= Ложь;
тюрлллл
Пока Выборка.
тюрколог
Следующий(
тюрколог тюрколог
) Цикл
Если ВставлятьРазделительСтраниц
тюрколог тюрколог
Тогда
ТабДок.
тюрколог
ВывестиГоризонтальныйРазделительСтраниц(
тюрколог тюрколог
);
тюрлллл
КонецЕсли;
тюрлллл
ТабДок.
тюрколог
Вывести(ОбластьЗаголовок) ;
тюрлллл
Шапка.
тюрколог
Параметры.Заполнить(Выборка) ;
тюрлллл
ТабДок.
тюрколог
Вывести(Шапка,
тюрколог тюрколог
Выборка.Уровень(
тюрколог тюрколог
));
тюрлллл
ВставлятьРазделительСтраниц
тюрколог тюрколог
= Истина;
тюрлллл
КонецЦикла;
тюрлллл
//}}
тюрколог тюрколог
КонецПроцедуры
тюрколог тюрколог
&НаКлиенте
тюрколог тюрколог
Процедура ОбработкаКоманды(ПараметрКоманды,
тюрколог тюрколог
ПараметрыВыполненияКоманды)
тюрколог тюрколог
//{{_КОНСТРУКТОР_ПЕЧАТИ(Печать)
тюрколог тюрколог
ТабДок = Новый
тюрколог тюрколог
ТабличныйДокумент;
тюрлллл
Печать(ТабДок, ПараметрКоманды);
тюрлллл
ТабДок.
тюрколог
ОтображатьСетку
тюрколог тюрколог
= Ложь;
тюрлллл
ТабДок.
тюрколог
Защита
тюрколог тюрколог
= Ложь;
тюрлллл
ТабДок.
тюрколог
ТолькоПросмотр
тюрколог тюрколог
= Ложь;
тюрлллл
ТабДок.
тюрколог
ОтображатьЗаголовки
тюрколог тюрколог
= Ложь;
тюрлллл
ТабДок.
тюрколог
Показать(
тюрколог тюрколог
);
тюрлллл
//}}
тюрколог тюрколог
КонецПроцедуры
тюрколог тюрколог
тюрколог тюрколог
&НаСервере
тюрколог тюрколог
Процедура Печать(ТабДок, ПараметрКоманды)
тюрколог тюрколог
Документы.
тюрколог
ПервичныйИнтересКлиента.
тюрколог
Печать(ТабДок,
тюрколог тюрколог
ПараметрКоманды) ;
тюрлллл
КонецПроцедуры
84
Процедура Печать(ТабДок, Ссылка)
тюрколог тюрколог
Экспорт
//{{_КОНСТРУКТОР_ПЕЧАТИ(Печать)
тюрколог тюрколог
Макет =
тюрколог тюрколог
Документы.
тюрколог
УтверждениеПроекта.
тюрколог
ПолучитьМакет("
тюрколог тюрколог
Печать"
тюрколог тюрколог
);
тюрлллл
Запрос =
тюрколог тюрколог
Новый Запрос;
тюрлллл
Запрос.
тюрколог
Текст
тюрколог тюрколог
=
"
тюрколог тюрколог
ВЫБРАТЬ
тюрколог тюрколог
| УтверждениеПроекта.
тюрколог
Дата,
тюрколог тюрколог
| УтверждениеПроекта.
тюрколог
Номер,
тюрколог тюрколог
| УтверждениеПроекта.
тюрколог
ОписаниеПроекта,
тюрколог тюрколог
| УтверждениеПроекта.
тюрколог
ПараметрыПроекта.(
тюрколог тюрколог
| НомерСтроки,
тюрколог тюрколог
| ЦельПроекта,
тюрколог тюрколог
| ЗаказчикПроекта,
тюрколог тюрколог
| РуководительПроекта,
тюрколог тюрколог
| БюджетПроекта,
тюрколог тюрколог
| СрокНачалаПроекта,
тюрколог тюрколог
| СрокОкончанияПроекта
тюрколог тюрколог
| )
тюрколог тюрколог
|ИЗ
тюрколог тюрколог
| Документ.
тюрколог
УтверждениеПроекта
тюрколог тюрколог
КАК УтверждениеПроекта
|ГДЕ
| УтверждениеПроекта.
тюрколог
Ссылка В (&Ссылка)"
тюрколог тюрколог
;
тюрлллл
Запрос.
тюрколог
Параметры.
тюрколог
Вставить("
тюрколог тюрколог
Ссылка"
тюрколог тюрколог
,
тюрколог тюрколог
Ссылка) ;
тюрлллл
Выборка = Запрос.
тюрколог
Выполнить(
тюрколог тюрколог
).Выбрать(
тюрколог тюрколог
);
тюрлллл
тюрколог тюрколог
ОбластьЗаголовок = Макет.
тюрколог
ПолучитьОбласть("
тюрколог тюрколог
Заголовок"
тюрколог тюрколог
);
тюрлллл
Шапка = Макет.
тюрколог
ПолучитьОбласть("
тюрколог тюрколог
Шапка"
тюрколог тюрколог
);
тюрлллл
ОбластьПараметрыПроектаШапка
тюрколог тюрколог
=
тюрколог тюрколог
Макет.
тюрколог
ПолучитьОбласть("
тюрколог тюрколог
ПараметрыПроектаШапка"
тюрколог тюрколог
);
тюрлллл
ОбластьПараметрыПроекта
тюрколог тюрколог
=
тюрколог тюрколог
Макет.
тюрколог
ПолучитьОбласть("
тюрколог тюрколог
ПараметрыПроекта"
тюрколог тюрколог
);
тюрлллл
ТабДок.
тюрколог
Очистить(
тюрколог тюрколог
);
тюрлллл
ВставлятьРазделительСтраниц
тюрколог тюрколог тюрколог тюрколог
=
тюрколог тюрколог тюрколог тюрколог
Ложь;
тюрлллл
Пока Выборка.
тюрколог
Следующий(
тюрколог тюрколог
) Цикл
Если ВставлятьРазделительСтраниц Тогда
ТабДок.
тюрколог
ВывестиГоризонтальныйРазделительСтраниц(
тюрколог тюрколог
);
тюрлллл
КонецЕсли;
тюрлллл
тюрколог тюрколог
ТабДок.
тюрколог
Вывести(ОбластьЗаголовок) ;
тюрлллл
Шапка.
тюрколог
Параметры.Заполнить(Выборка) ;
тюрлллл
ТабДок.
тюрколог
Вывести(Шапка, Выборка.
тюрколог
Уровень(
тюрколог тюрколог
));
тюрлллл
ТабДок.
тюрколог
Вывести(ОбластьПараметрыПроектаШапка) ;
тюрлллл
ВыборкаПараметрыПроекта = Выборка.
тюрколог
ПараметрыПроекта.
тюрколог
Выбрать(
тюрколог тюрколог
);
тюрлллл
Пока ВыборкаПараметрыПроекта.
тюрколог
Следующий(
тюрколог тюрколог
) Цикл
тюрколог тюрколог
тюрколог тюрколог
ОбластьПараметрыПроекта.
тюрколог
Параметры.Заполнить(ВыборкаПараметрыПроекта);
ТабДок.
тюрколог
Вывести(ОбластьПараметрыПроекта,
тюрколог тюрколог
ВыборкаПараметрыПроекта.Уровень(
тюрколог тюрколог
));
тюрлллл
КонецЦикла;
тюрлллл
85
ВставлятьРазделительСтраниц
тюрколог тюрколог
=
тюрколог тюрколог
Истина;
тюрлллл
КонецЦикла;
тюрлллл
//}}
тюрколог тюрколог
КонецПроцедуры
тюрколог тюрколог
&НаКлиенте
тюрколог тюрколог тюрколог тюрколог
Процедура ОбработкаКоманды(ПараметрКоманды,
тюрколог тюрколог
ПараметрыВыполненияКоманды)
тюрколог тюрколог
//{{_КОНСТРУКТОР_ПЕЧАТИ(Печать)
тюрколог тюрколог
ТабДок = Новый
тюрколог тюрколог
ТабличныйДокумент;
тюрлллл
Печать(ТабДок,
тюрколог тюрколог
ПараметрКоманды) ;
тюрлллл
ТабДок.
тюрколог
ОтображатьСетку =
тюрколог тюрколог
Ложь;
тюрлллл
ТабДок.
тюрколог
Защита =
тюрколог тюрколог
Ложь;
тюрлллл
ТабДок.
тюрколог
ТолькоПросмотр =
тюрколог тюрколог
Ложь;
тюрлллл
ТабДок.
тюрколог
ОтображатьЗаголовки =
тюрколог тюрколог
Ложь;
тюрлллл
ТабДок.
тюрколог
Показать(
тюрколог тюрколог
);
тюрлллл
//}}
тюрколог тюрколог
КонецПроцедуры
тюрколог тюрколог
тюрколог тюрколог
&НаСервере
тюрколог тюрколог
Процедура Печать(ТабДок,
тюрколог тюрколог
ПараметрКоманды)
тюрколог тюрколог
Документы.
тюрколог
УтверждениеПроекта.
тюрколог
Печать(ТабДок,
тюрколог тюрколог
ПараметрКоманды);
КонецПроцедуры
тюрколог тюрколог
Процедура ОбработкаПроведения(Отказ,
тюрколог тюрколог
Режим)
тюрколог тюрколог
//{{__КОНСТРУКТОР_ДВИЖЕНИЙ_РЕГИСТРОВ
тюрколог тюрколог
// регистр
тюрколог тюрколог
Продажи
Движения.
тюрколог
Продажи.Записывать =
тюрколог тюрколог
Истина;
тюрлллл
Для Каждого ТекСтрокаИнформацияОЗаказе Из ИнформацияОЗаказе
тюрколог тюрколог
Цикл
тюрколог тюрколог
Движение = Движения.
тюрколог
Продажи.Добавить(
тюрколог тюрколог
);
тюрлллл
Движение.
тюрколог
Период =
тюрколог тюрколог
Дата;
тюрлллл
Движение.
тюрколог
НаименованиеКлиента =
тюрколог тюрколог
НаименованиеКлиента;
тюрлллл
Движение.
тюрколог
Договор =
тюрколог тюрколог
Договор;
тюрлллл
Движение.
тюрколог
Услуга =
тюрколог тюрколог
ТекСтрокаИнформацияОЗаказе.
тюрколог
Услуга;
тюрлллл
Движение.
тюрколог
Инженер =
тюрколог тюрколог
Инженер;
тюрлллл
Движение.
тюрколог
Выручка =
тюрколог тюрколог
ТекСтрокаИнформацияОЗаказе.
тюрколог
СтоимостьУслуги;
тюрлллл
КонецЦикла;
тюрлллл
тюрколог тюрколог
//}}__КОНСТРУКТОР_ДВИЖЕНИЙ_РЕГИСТРОВ
тюрколог тюрколог
тюрколог тюрколог
//{{__КОНСТРУКТОР_ДВИЖЕНИЙ_РЕГИСТРОВ
тюрколог тюрколог
// регистр Прибыль Приход
тюрколог тюрколог
Движения.
тюрколог
Прибыль.
тюрколог
Записывать =
тюрколог тюрколог
Истина;
тюрлллл
Для Каждого ТекСтрокаИнформацияОЗаказе Из ИнформацияОЗаказе Цикл
тюрколог тюрколог
Движение = Движения.
тюрколог
Прибыль.
тюрколог
Добавить(
тюрколог тюрколог
);
тюрлллл
Движение.
тюрколог
ВидДвижения =
тюрколог тюрколог
ВидДвиженияНакопления.
тюрколог
Приход;
тюрлллл
Движение.
тюрколог
Период =
тюрколог тюрколог
Дата;
тюрлллл
Движение.
тюрколог
НаименованиеКлиента =
тюрколог тюрколог
НаименованиеКлиента;
тюрлллл
86
Движение.
тюрколог
Договор =
тюрколог тюрколог
Договор;
тюрлллл
Движение.
тюрколог
Услуга =
тюрколог тюрколог
ТекСтрокаИнформацияОЗаказе.
тюрколог
Услуга;
тюрлллл
Движение.
тюрколог
Инженер =
тюрколог тюрколог
Инженер;
тюрлллл
Движение.
тюрколог
Прибыль
тюрколог тюрколог
=
ТекСтрокаИнформацияОЗаказе.
тюрколог
СтоимостьУслуги;
тюрлллл
КонецЦикла;
тюрлллл
КонецПроцедуры
тюрколог тюрколог
Процедура Печать(ТабДок,
тюрколог тюрколог
Ссылка) Экспорт
тюрколог тюрколог
//{{_КОНСТРУКТОР_ПЕЧАТИ(Печать)
тюрколог тюрколог
Макет =
тюрколог тюрколог
Документы.
тюрколог
ЗаказКлиента.
тюрколог
ПолучитьМакет("
тюрколог тюрколог
Печать"
тюрколог тюрколог
);
тюрлллл тюрколог тюрколог
Запрос
тюрколог тюрколог
= Новый Запрос;
тюрлллл
Запрос.
тюрколог
Текст
тюрколог тюрколог
=
"
тюрколог тюрколог
ВЫБРАТЬ
тюрколог тюрколог
| ЗаказКлиента.
тюрколог
Дата,
тюрколог тюрколог
| ЗаказКлиента.
тюрколог
Договор,
тюрколог тюрколог
| ЗаказКлиента.
тюрколог
Инженер,
тюрколог тюрколог
| ЗаказКлиента.
тюрколог
НаименованиеКлиента,
тюрколог тюрколог
| ЗаказКлиента.
тюрколог
Номер,
тюрколог тюрколог
| ЗаказКлиента.
тюрколог
ПриоритетЗаказа,
тюрколог тюрколог
| ЗаказКлиента.
тюрколог
СтатусЗаказа,
тюрколог тюрколог
| ЗаказКлиента.
тюрколог
ИнформацияОЗаказе.
тюрколог
(
тюрколог тюрколог
| НомерСтроки,
тюрколог тюрколог
| Услуга,
тюрколог тюрколог
| СтоимостьУслуги
тюрколог тюрколог
| )
тюрколог тюрколог
|ИЗ
тюрколог тюрколог
| Документ.
тюрколог
ЗаказКлиента
тюрколог тюрколог
КАК
тюрколог тюрколог
ЗаказКлиента
|ГДЕ
| ЗаказКлиента.
тюрколог
Ссылка В (&Ссылка)"
тюрколог тюрколог
;
тюрлллл
Запрос.
тюрколог
Параметры.
тюрколог
Вставить("
тюрколог тюрколог
Ссылка"
тюрколог тюрколог
, Ссылка) ;
тюрлллл
Выборка = Запрос.
тюрколог
Выполнить(
тюрколог тюрколог
).
тюрколог
Выбрать(
тюрколог тюрколог
);
тюрлллл
ОбластьЗаголовок = Макет.
тюрколог
ПолучитьОбласть("
тюрколог тюрколог
Заголовок"
тюрколог тюрколог
);
тюрлллл
Шапка = Макет.
тюрколог
ПолучитьОбласть("
тюрколог тюрколог
Шапка"
тюрколог тюрколог
);
тюрлллл
ОбластьИнформацияОЗаказеШапка =
Макет.
тюрколог
ПолучитьОбласть("
тюрколог тюрколог
ИнформацияОЗаказеШапка"
тюрколог тюрколог
);
тюрлллл
ОбластьИнформацияОЗаказе =
Макет.
тюрколог
ПолучитьОбласть("
тюрколог тюрколог
ИнформацияОЗаказе"
тюрколог тюрколог
);
тюрлллл
ТабДок.
тюрколог
Очистить(
тюрколог тюрколог
);
тюрлллл
ВставлятьРазделительСтраниц = Ложь;
тюрлллл
Пока Выборка.
тюрколог
Следующий(
тюрколог тюрколог
) Цикл
Если ВставлятьРазделительСтраниц Тогда
ТабДок.
тюрколог
ВывестиГоризонтальныйРазделительСтраниц(
тюрколог тюрколог
);
тюрлллл
КонецЕсли;
тюрлллл
ТабДок.
тюрколог
Вывести(ОбластьЗаголовок) ;
тюрлллл
Шапка.
тюрколог
Параметры.
тюрколог
Заполнить(Выборка) ;
тюрлллл
ТабДок.
тюрколог
Вывести(Шапка, Выборка.
тюрколог
Уровень(
тюрколог тюрколог
));
тюрлллл