Разработка автоматизированной системы документооборота в компании ООО "Кью"

Качественная самостоятельно выполненная работа по Разработке Автоматизированной системы(АС) в компагнии ООО Кьюар, написана дипломником в 2016 году. Работа имеет 130 стр без приложений, приложения занимают ещё около 70 стр и имеют исходный код программы(листинг программы) и расчёты безопасности жизнидеятельности на предприятии .
Работа выполнена в соответствии с методическими указаниями и была защищена с оценкой "отлично". ...

СОДЕРЖАНИЕ
ВВЕДЕНИЕ 6
ГЛАВА 1. АНАЛИТИЧЕСКАЯ ЧАСТЬ 9
1.1 Технико-экономическая характеристика предметной области 9
1.1.1 Характеристика предприятия и его деятельности 9
1.1.2 Организационная структура управления предприятием 11
1.1.3 Программная и техническая архитектура ИС предприятия 14
1.2 Характеристика комплекса задач, задачи и обоснование необходимости автоматизации 23
1.2.1 Выбор комплекса задач автоматизации и характеристика существующих бизнес процессов 23
1.2.2 Определение места проектируемой задачи в комплексе задач и ее описание 34
1.2.3 Обоснование необходимости использования вычислительной техники для решения задачи 44
1.2.4 Анализ системы обеспечения информационной безопасности и защиты информации 46
1.3 Анализ существующих разработок и выбор стратегии автоматизации «КАК ДОЛЖНО БЫТЬ» 51
1.3.1 Анализ существующих разработок для автоматизации задачи 51
1.3.2 Выбор и обоснование стратегии автоматизации задачи 59
1.3.3 Выбор и обоснование способа приобретения ИС для автоматизации задачи 62
ГЛАВА 2. ПРОЕКТНАЯ ЧАСТЬ 65
2.1 Обоснование проектных решений 65
2.1.1 Обоснование проектных решений по информационному обеспечению 65
2.1.2 Обоснование проектных решений по программному обеспечению 65
2.1.3 Обоснование проектных решений по техническому обеспечению 76
2.2 Разработка проекта автоматизации 79
2.2.1 Этапы жизненного цикла проекта автоматизации 79
2.2.2 Характеристика нормативно-справочной, входной и оперативной информации 85
2.2.3 Характеристика результатной информации 89
2.3 Программное обеспечение задачи 89
2.3.1 Общие положения (дерево функций и сценарий диалога) 89
2.3.2 Структурная схема пакета (дерево вызова программных модулей) 92
2.3.3 Описание программных модулей 93
2.4 Контрольный пример 95
ГЛАВА 3. ОБОСНОВАНИЕ ЭКОНОМИЧЕСКОЙ ЭФФЕКТИВНОСТИ ПРОЕКТА 145
3.1 Выбор и обоснование методики расчёта экономической эффективности 145
3.2 Расчёт показателей экономической эффективности проекта 148
ЗАКЛЮЧЕНИЕ 157
ПРИЛОЖЕНЕ 162
Приложение А - Безопасность жизнедеятельности 162
А.1 Анализ вредных факторов, действующих на органы зрения 162
А.2 Выбор и расчет общего искусственного освещения в помещении 164
А.3 Утилизация люминесцентных и компактных люминесцентных ламп 169
Приложение Б - Листинг программных модулей 173

ВВЕДЕНИЕ
ООО «КЬЮАР» существует на рынке более трёх лет, и за это время компания достигла многих высот, значительно увеличив ассортимент своих услуг и накопила обширную базу знаний.
В настоящей дипломной работе рассматривается деятельность общества с ограниченной ответственностью «КЬЮАР».
Целью работы – разработка и внедрение информационной системы автоматизированного документооборота, в конечном итоге позволяющей снизить издержки предприятия на данный процесс.
Задачи работы:
1 Описать предметную область
2 Рассмотреть особенности использования системы «1С: Предприятие»
3 Разработка автоматизированной системы документооборота предприятия
4 Обосновать экономическую эффективность проекта
Предметом дипломной работы является система автоматизации документоооборота предприятия ООО «КЬЮАР».
Об ъектом дипломной работы является система, средствами которой осуществляется разработка прикладного решения автоматизирующего деятельность предприятия.
При решении поставленных задач в процессе работы использовались методы:
Ð аналитический метод;
Ð статистический метод;
Ð графические методы;
..

СостоянияДокументов.Исполнен ТогдаЕсли РольДелопроизводитель ТогдаДоступныеПоля = Новый Структура("|Зарегистрировать, РегистрационныйНомер, ДатаРегистрации,|Состояние, Папка,|Дело,|ОткрытьФайл, СохранитьКак, НастроитьСписок, ВывестиСписок, Изменить,|КонтекстноеМенюФайлыОткрытьФайл, КонтекстноеМенюФайлыСохранитьКак");ИначеДоступныеПоля = Новый Структура("|ОткрытьФайл, СохранитьКак, НастроитьСписок, ВывестиСписок, Изменить,|КонтекстноеМенюФайлыОткрытьФайл, КонтекстноеМенюФайлыСохранитьКак");КонецЕсли;ИначеЕсли Состояние = Перечисления.СостоянияДокументов.ПроектИли Состояние = Перечисления.СостоянияДокументов.НеСогласованИли Состояние = Перечисления.СостоянияДокументов.НеУтвержден ТогдаДоступныеПоля = "";НедоступныеПоля = Новый Структура("Подписал, Утвердил, Дело");ИначеЕсли Состояние = Перечисления.СостоянияДокументов.НаСогласовании ТогдаДоступныеПоля = Новый Структура("|Состояние, Папка,|ВизыСогласования, ВизыСогласованияСоздать, ВизыСогласованияИзменить, ВизыСогласованияУдалить, ВизыСогласованияКонтекстноеМенюСоздать, ВизыСогласованияКонтекстноеМенюИзменить, ВизыСогласованияКонтекстноеМенюУдалить, ВизыСогласованияКонтекстноеМенюОбновить,|ЗакончитьРедактирование, Занять, Освободить, Редактировать, СохранитьИзменения, ОбновитьИзФайлаНаДиске, ФайлыЗашифровать, ФайлыРасшифровать, ФайлыКонтекстноеМенюЗашифровать, ФайлыКонтекстноеМенюРасшифровать,|КонтекстноеМенюФайлыЗакончитьРедактирование, КонтекстноеМенюФайлыЗанять, КонтекстноеМенюФайлыОсвободить, КонтекстноеМенюФайлыРедактировать, КонтекстноеМенюФайлыСохранитьИзменения, КонтекстноеМенюФайлыОбновитьИзФайлаНаДиске,|Файлы, СоздатьФайл, ОткрытьФайл, СохранитьКак, НастроитьСписок, ВывестиСписок, Изменить,|КонтекстноеМенюФайлыОткрытьФайл, КонтекстноеМенюФайлыСохранитьКак");ИначеЕсли Состояние = Перечисления.СостоянияДокументов.НаУтверждении ТогдаДоступныеПоля = Новый Структура("|Состояние, Папка,|Подписал, Утвердил,|ЗакончитьРедактирование, Занять, Освободить, Редактировать, СохранитьИзменения, ОбновитьИзФайлаНаДиске, ФайлыЗашифровать, ФайлыРасшифровать, ФайлыКонтекстноеМенюЗашифровать, ФайлыКонтекстноеМенюРасшифровать,|КонтекстноеМенюФайлыЗакончитьРедактирование, КонтекстноеМенюФайлыЗанять, КонтекстноеМенюФайлыОсвободить, КонтекстноеМенюФайлыРедактировать, КонтекстноеМенюФайлыСохранитьИзменения, КонтекстноеМенюФайлыОбновитьИзФайлаНаДиске,|Файлы, СоздатьФайл, ОткрытьФайл, СохранитьКак, НастроитьСписок, ВывестиСписок, Изменить,|КонтекстноеМенюФайлыОткрытьФайл, КонтекстноеМенюФайлыСохранитьКак");ИначеЕсли Состояние = Перечисления.СостоянияДокументов.СогласованИли Состояние = Перечисления.СостоянияДокументов.Утвержден ТогдаЕсли РольДелопроизводитель ТогдаДоступныеПоля = Новый Структура("|Состояние, Папка,|Зарегистрировать, НоменклатураДел,|ОткрытьФайл, СохранитьКак, НастроитьСписок, ВывестиСписок, Изменить,|КонтекстноеМенюФайлыОткрытьФайл, КонтекстноеМенюФайлыСохранитьКак");ИначеДоступныеПоля = Новый Структура("|Состояние,|ОткрытьФайл, СохранитьКак, НастроитьСписок, ВывестиСписок, Изменить,|КонтекстноеМенюФайлыОткрытьФайл, КонтекстноеМенюФайлыСохранитьКак");КонецЕсли;КонецЕсли;Для Каждого Элемент Из Форма.Элементы ЦиклЕсли ТипЗнч(Элемент) = Тип("ГруппаФормы") И Элемент.Имя <> "ГруппаСвойства" ТогдаПродолжить;КонецЕсли;Если ТипЗнч(Элемент) = Тип("ДекорацияФормы") ТогдаПродолжить;КонецЕсли;Если ТипЗнч(Элемент) = Тип("КнопкаФормы") И Элемент.Родитель.Имя = "ФормаКоманднаяПанель" ТогдаПродолжить;КонецЕсли;Если ТипЗнч(Элемент) = Тип("КнопкаФормы") И Элемент.Родитель.Имя = "КоманднаяПанельФормыСоздатьНаОсновании" ТогдаПродолжить;КонецЕсли;Если ТипЗнч(Элемент) = Тип("КнопкаФормы") И Элемент.Родитель.Имя = "ФормаСоздатьНаОсновании" ТогдаПродолжить;КонецЕсли;Если ТипЗнч(Элемент) = Тип("КнопкаФормы") И Элемент.Родитель.Имя = "КоманднаяПанельФормыПечать" ТогдаПродолжить;КонецЕсли;Если ТипЗнч(Элемент) = Тип("КнопкаФормы") И Элемент.Родитель.Имя = "ФормаПечать" ТогдаПродолжить;КонецЕсли;Если НеизменяемыеПоля.Свойство(Элемент.Имя) ТогдаПродолжить;КонецЕсли;РодительНеИзменяемоеПоле = Ложь;ТекущийРодитель = Элемент.Родитель;Пока ТипЗнч(ТекущийРодитель) <> Тип("УправляемаяФорма") ЦиклЕсли НеизменяемыеПоля.Свойство(ТекущийРодитель.Имя) ТогдаРодительНеИзменяемоеПоле = Истина;Прервать;КонецЕсли;ТекущийРодитель = ТекущийРодитель.Родитель;КонецЦикла;Если РодительНеИзменяемоеПоле ТогдаПродолжить;КонецЕсли;Если ДоступныеПоля = "" ТогдаЕсли (НедоступныеПоля <> "") И НедоступныеПоля.Свойство(Элемент.Имя) ТогдаДоступность = Ложь;ИначеДоступность = Истина;КонецЕсли;ИначеЕсли ДоступныеПоля.Свойство(Элемент.Имя) ТогдаДоступность = Истина;ИначеДоступность = Ложь;КонецЕсли;Если ТипЗнч(Элемент) = Тип("КнопкаФормы") ТогдаЭлемент.Доступность = Доступность;ИначеЭлемент.ТолькоПросмотр = Не Доступность;КонецЕсли;КонецЦикла;КонецЕсли;// доступность поля состояние зависит от настройкиЕсли Не Константы.РазрешитьРучноеИзменениеСостоянияДокументов.Получить()И Константы.ИспользоватьБизнесПроцессыИЗадачи.Получить() ТогдаФорма.Элементы.Состояние.ТолькоПросмотр = Истина;КонецЕсли;КонецПроцедуры// Получает контактное лицо корреспондентаФункция КонтактноеЛицоКорреспондента(Корреспондент) ЭкспортЗапрос = Новый Запрос;Запрос.Текст ="ВЫБРАТЬ РАЗРЕШЕННЫЕ ПЕРВЫЕ 1|КонтактныеЛица.Ссылка КАК КонтактноеЛицо|ИЗ|Справочник.КонтактныеЛица КАК КонтактныеЛица|ГДЕ|КонтактныеЛица.Владелец = &Владелец|И (НЕ КонтактныеЛица.ПометкаУдаления)|И ЛОЖЬ В|(ВЫБРАТЬ|ЛОЖЬ КАК ЗначениеЛожь|ИЗ|(ВЫБРАТЬ ПЕРВЫЕ 2|ИСТИНА КАК ЗначениеИстина|ИЗ|Справочник.КонтактныеЛица КАК КонтактныеЛица|ГДЕ|(НЕ КонтактныеЛица.ПометкаУдаления)|И КонтактныеЛица.Владелец = &Владелец|) КАК ВыбранныеОбъекты|ИМЕЮЩИЕ|КОЛИЧЕСТВО(ВыбранныеОбъекты.ЗначениеИстина) = 1)";Запрос.УстановитьПараметр("Владелец", Корреспондент);Результат = Запрос.Выполнить();Если Не Результат.Пустой() ТогдаВыборка = Результат.Выбрать();Выборка.Следующий();Возврат Выборка.КонтактноеЛицо;КонецЕсли;Возврат Неопределено;КонецФункции// Возвращает количество документов переданного видаФункция КоличествоДокументовПоВидуДокумента(ВидДокумента) ЭкспортУстановитьПривилегированныйРежим(Истина);Если ТипЗнч(ВидДокумента) = Тип("СправочникСсылка.ВидыВнутреннихДокументов") ТогдаТип = "ВнутренниеДокументы";ИначеЕсли ТипЗнч(ВидДокумента) = Тип("СправочникСсылка.ВидыВходящихДокументов") ТогдаТип = "ВходящиеДокументы";ИначеЕсли ТипЗнч(ВидДокумента) = Тип("СправочникСсылка.ВидыИсходящихДокументов") ТогдаТип = "ИсходящиеДокументы";КонецЕсли;Запрос = Новый Запрос;Запрос.Текст ="ВЫБРАТЬ|КОЛИЧЕСТВО(*) КАК Количество|ИЗ|Справочник." + Тип + "|ГДЕ|ВидДокумента = &ВидДокумента|И РегистрационныйНомер <> """"";Запрос.УстановитьПараметр("ВидДокумента", ВидДокумента);Результат = Запрос.Выполнить();Если Результат.Пустой() ТогдаВозврат 0;КонецЕсли;Выборка = Результат.Выбрать();Выборка.Следующий();Возврат Выборка.Количество;КонецФункции// Возвращает количество документов для переданного нумератораФункция КоличествоДокументовПоНумератору(Нумератор) ЭкспортУстановитьПривилегированныйРежим(Истина);Запрос = Новый Запрос;Запрос.Текст ="ВЫБРАТЬ|КОЛИЧЕСТВО(*) КАК Количество|ИЗ|Справочник.ВходящиеДокументы КАК ВходящиеДокументы|ГДЕ|ВходящиеДокументы.ВидДокумента.Нумератор = &Нумератор|И ВходящиеДокументы.РегистрационныйНомер <> """"||ОБЪЕДИНИТЬ ВСЕ||ВЫБРАТЬ|КОЛИЧЕСТВО(*)|ИЗ|Справочник.ИсходящиеДокументы КАК ИсходящиеДокументы|ГДЕ|ИсходящиеДокументы.ВидДокумента.Нумератор = &Нумератор|И ИсходящиеДокументы.РегистрационныйНомер <> """"||ОБЪЕДИНИТЬ ВСЕ||ВЫБРАТЬ|КОЛИЧЕСТВО(*)|ИЗ|Справочник.ВнутренниеДокументы КАК ВнутренниеДокументы|ГДЕ|ВнутренниеДокументы.ВидДокумента.Нумератор = &Нумератор|И ВнутренниеДокументы.РегистрационныйНомер <> """"";Запрос.УстановитьПараметр("Нумератор", Нумератор);Результат = Запрос.Выполнить();Если Результат.Пустой() ТогдаВозврат 0;КонецЕсли;Возврат Результат.Выгрузить().Итог("Количество");КонецФункции// Возвращает количество документов с пустым видомФункция КоличествоДокументовСПустымВидом(ТипДокумента) ЭкспортУстановитьПривилегированныйРежим(Истина);Если ТипДокумента = "ВходящийДокумент" ТогдаТекстЗапроса ="ВЫБРАТЬ|КОЛИЧЕСТВО(*) КАК Количество|ИЗ|Справочник.ВходящиеДокументы КАК ВходящиеДокументы|ГДЕ|ВходящиеДокументы.ВидДокумента = ЗНАЧЕНИЕ(Справочник.ВидыВходящихДокументов.ПустаяСсылка)";ИначеЕсли ТипДокумента = "ИсходящийДокумент" ТогдаТекстЗапроса ="ВЫБРАТЬ|КОЛИЧЕСТВО(*) КАК Количество|ИЗ|Справочник.ИсходящиеДокументы КАК ИсходящиеДокументы|ГДЕ|ИсходящиеДокументы.ВидДокумента = ЗНАЧЕНИЕ(Справочник.ВидыИсходящихДокументов.ПустаяСсылка)";ИначеЕсли ТипДокумента = "ВнутреннийДокумент" ТогдаТекстЗапроса ="ВЫБРАТЬ|КОЛИЧЕСТВО(*) КАК Количество|ИЗ|Справочник.ВнутренниеДокументы КАК ВнутренниеДокументы|ГДЕ|ВнутренниеДокументы.ВидДокумента = ЗНАЧЕНИЕ(Справочник.ВидыВнутреннихДокументов.ПустаяСсылка)";КонецЕсли;Запрос = Новый Запрос(ТекстЗапроса);Результат = Запрос.Выполнить();Если Результат.Пустой() ТогдаВозврат 0;КонецЕсли;Выборка = Результат.Выбрать();Выборка.Следующий();Возврат Выборка.Количество;КонецФункции// Инициализирует персональные настройки работы с документами - для использования на клиентеФункция ПолучитьПерсональныеНастройкиРаботыСДокументамиСервер() ЭкспортНастройки = Новый Структура;ПоказыватьПредупреждениеПриРегистрации = ХранилищеОбщихНастроек.Загрузить("НастройкиРаботыСДокументами", "ПоказыватьПредупреждениеПриРегистрации");Если ПоказыватьПредупреждениеПриРегистрации = Неопределено ТогдаПоказыватьПредупреждениеПриРегистрации = Истина;ХранилищеОбщихНастроек.Сохранить("НастройкиРаботыСДокументами", "ПоказыватьПредупреждениеПриРегистрации", ПоказыватьПредупреждениеПриРегистрации);КонецЕсли;Настройки.Вставить("ПоказыватьПредупреждениеПриРегистрации", ПоказыватьПредупреждениеПриРегистрации И ПолучитьФункциональнуюОпцию("ИспользоватьСостоянияДокументов"));СпособОтраженияПередачиКорреспонденту = ХранилищеОбщихНастроек.Загрузить("НастройкиРаботыСДокументами", "СпособОтраженияПередачиКорреспонденту");Если СпособОтраженияПередачиКорреспонденту = Неопределено ТогдаСпособОтраженияПередачиКорреспонденту = Перечисления.СпособыОтраженияПередачиКорреспонденту.ЗадаватьВопрос;ХранилищеОбщихНастроек.Сохранить("НастройкиРаботыСДокументами", "СпособОтраженияПередачиКорреспонденту", СпособОтраженияПередачиКорреспонденту);КонецЕсли;Настройки.Вставить("СпособОтраженияПередачиКорреспонденту", СпособОтраженияПередачиКорреспонденту);УстановитьПривилегированныйРежим(Истина);Настройки.Вставить("ИспользоватьФайлыУВходящихДокументов", Константы.ИспользоватьФайлыУВходящихДокументов.Получить());Настройки.Вставить("ИспользоватьФайлыУИсходящихДокументов", Константы.ИспользоватьФайлыУИсходящихДокументов.Получить());Возврат Настройки; // параметры доступны только для чтенияКонецФункции// Возвращает ключ записи регистра сведений ЖурналПередачиДокументовФункция ПолучитьКлючЖурналаПередачи(Период, Документ, ТипЭкземпляра, НомерЭкземпляра) ЭкспортКлюч = РегистрыСведений.ЖурналПередачиДокументов.СоздатьКлючЗаписи(Новый Структура("Период, Документ, ТипЭкземпляра, НомерЭкземпляра",Период,Документ,ТипЭкземпляра,НомерЭкземпляра));Возврат Ключ;КонецФункции// Возвращает количество держателей документаФункция КоличествоКомуПереданДокумент(Документ) ЭкспортЗапрос = Новый Запрос;Запрос.Текст ="ВЫБРАТЬ|КОЛИЧЕСТВО(*) КАК Количество|ИЗ|РегистрСведений.ЖурналПередачиДокументов КАК ЖурналПередачиДокументов|ГДЕ|ЖурналПередачиДокументов.Документ = &Документ|И ЖурналПередачиДокументов.Возвращен = ЛОЖЬ";Запрос.УстановитьПараметр("Документ", Документ);Результат = Запрос.Выполнить();Если Результат.Пустой() ТогдаВозврат 0;КонецЕсли;Выборка = Результат.Выбрать();Выборка.Следующий();Возврат Выборка.Количество;КонецФункции// Формирует строку информации о держателях документаФункция СтрокаКомуПереданДокумент(Документ) ЭкспортЕсли Не ЗначениеЗаполнено(Документ) ТогдаВозврат "";КонецЕсли;ОригиналПередан = "";ОригиналПереданДата = '00010101';ОригиналПереданМассив = Новый Массив;ОригиналПереданКоличество = 0;КопияПередана = "";КопияПереданаДата = '00010101';КопияПереданаМассив = Новый Массив;КопияПереданаКоличество = 0;Запрос = Новый Запрос;Запрос.Текст ="ВЫБРАТЬ РАЗРЕШЕННЫЕ|ЖурналПередачиДокументов.ТипЭкземпляра КАК ТипЭкземпляра,|ЖурналПередачиДокументов.Пользователь КАК Пользователь,|ЖурналПередачиДокументов.Период КАК ДатаПередачи,|ЖурналПередачиДокументов.НомерЭкземпляра КАК НомерЭкземпляра|ИЗ|РегистрСведений.ЖурналПередачиДокументов КАК ЖурналПередачиДокументов|ГДЕ|ЖурналПередачиДокументов.Документ = &Документ|И ЖурналПередачиДокументов.Возвращен = ЛОЖЬ";Запрос.УстановитьПараметр("Документ", Документ);Выборка = Запрос.Выполнить().Выбрать();Пока Выборка.Следующий() ЦиклЕсли Выборка.ТипЭкземпляра = Перечисления.ТипыЭкземпляров.Оригинал ТогдаЕсли ОригиналПереданМассив.Найти(Выборка.Пользователь) = Неопределено ТогдаОригиналПередан = ОригиналПередан + Строка(Выборка.Пользователь) + ", ";ОригиналПереданМассив.Добавить(Выборка.Пользователь);КонецЕсли;ОригиналПереданКоличество = ОригиналПереданКоличество + 1;ОригиналПереданДата = Выборка.ДатаПередачи;ИначеЕсли Выборка.ТипЭкземпляра = Перечисления.ТипыЭкземпляров.Копия ТогдаЕсли КопияПереданаМассив.Найти(Выборка.Пользователь) = Неопределено ТогдаКопияПередана = КопияПередана + Строка(Выборка.Пользователь) + ", ";КопияПереданаМассив.Добавить(Выборка.Пользователь);КонецЕсли;КопияПереданаКоличество = КопияПереданаКоличество + 1;КопияПереданаДата = Выборка.ДатаПередачи;КонецЕсли;КонецЦикла;Если ОригиналПередан <> "" ТогдаОригиналПередан = Лев(ОригиналПередан, СтрДлина(ОригиналПередан) - 2);Если ОригиналПереданКоличество = 1 ТогдаОригиналПередан = СтроковыеФункцииКлиентСервер.ПодставитьПараметрыВСтроку(НСтр("ru = 'Оригинал находится у пользователя %1 с %2'"),ОригиналПередан,Формат(ОригиналПереданДата, "ДФ=dd.MM.yyyy"));ИначеЕсли ОригиналПереданКоличество > 1 ТогдаЕсли ОригиналПереданМассив.Количество() = 1 ТогдаОригиналПередан = СтроковыеФункцииКлиентСервер.ПодставитьПараметрыВСтроку(НСтр("ru = 'Оригиналы находятся у пользователя %1'"),ОригиналПередан);ИначеОригиналПередан = СтроковыеФункцииКлиентСервер.ПодставитьПараметрыВСтроку(НСтр("ru = 'Оригиналы находятся у пользователей %1'"),ОригиналПередан);КонецЕсли;КонецЕсли;КонецЕсли;Если КопияПередана <> "" ТогдаКопияПередана = Лев(КопияПередана, СтрДлина(КопияПередана) - 2);Если КопияПереданаКоличество = 1 ТогдаКопияПередана = СтроковыеФункцииКлиентСервер.ПодставитьПараметрыВСтроку(НСтр("ru = 'Копия находится у пользователя %1 с %2'"),КопияПередана,Формат(КопияПереданаДата, "ДФ=dd.MM.yyyy"));ИначеЕсли КопияПереданаКоличество > 1 ТогдаЕсли КопияПереданаМассив.Количество() = 1 ТогдаКопияПередана = СтроковыеФункцииКлиентСервер.ПодставитьПараметрыВСтроку(НСтр("ru = 'Копии находятся у пользователя %1'"),КопияПередана);ИначеКопияПередана = СтроковыеФункцииКлиентСервер.ПодставитьПараметрыВСтроку(НСтр("ru = 'Копии находятся у пользователей %1'"),КопияПередана);КонецЕсли;КонецЕсли;КонецЕсли;Если ОригиналПередан <> "" И КопияПередана <> "" ТогдаВозврат ОригиналПередан + Символы.ПС + КопияПередана;ИначеВозврат ОригиналПередан + КопияПередана;КонецЕсли;КонецФункции// Получает актуальное состояние делаФункция ПолучитьСостояниеДела(Дело) ЭкспортЕсли Не ЗначениеЗаполнено(Дело) ТогдаВозврат Перечисления.СостоянияДелХраненияДокументов.ПустаяСсылка();КонецЕсли;Запрос = Новый Запрос;Запрос.Текст ="ВЫБРАТЬ|СостоянияДелХраненияДокументов.Состояние КАК Состояние|ИЗ|РегистрСведений.СостоянияДелХраненияДокументов.СрезПоследних(, ДелоХраненияДокументов = &Дело) КАК СостоянияДелХраненияДокументов";Запрос.УстановитьПараметр("Дело", Дело);Результат = Запрос.Выполнить();Если Результат.Пустой() ТогдаВозврат Перечисления.СостоянияДелХраненияДокументов.ПустаяСсылка();КонецЕсли;Выборка = Результат.Выбрать();Выборка.Следующий();Возврат Выборка.Состояние;КонецФункции// Возвращает режим выбора вида документаФункция ПолучитьРежимВыбораВидаДокумента(ТипДокумента) ЭкспортЕсли ТипДокумента = "ВходящийДокумент" ТогдаВидДокумента = "ВидыВходящихДокументов";ИначеЕсли ТипДокумента = "ИсходящийДокумент" ТогдаВидДокумента = "ВидыИсходящихДокументов";ИначеЕсли ТипДокумента = "ВнутреннийДокумент" ТогдаВидДокумента = "ВидыВнутреннихДокументов";КонецЕсли;Запрос = Новый Запрос;Запрос.Текст = СтрЗаменить("ВЫБРАТЬ РАЗРЕШЕННЫЕ|ЛОЖЬ КАК ЗначениеЛожь|ГДЕ|ВЫБОР|КОГДА ЛОЖЬ В|(ВЫБРАТЬ ПЕРВЫЕ 1|ЛОЖЬ|ИЗ|&ВидДокумента КАК ТаблицаВидаДокументов|ГДЕ|ТаблицаВидаДокументов.ЭтоГруппа)|ТОГДА ИСТИНА|ИНАЧЕ ЛОЖЬ В|(ВЫБРАТЬ|ЛОЖЬ КАК ЗначениеЛожь|ИЗ|(ВЫБРАТЬ ПЕРВЫЕ 16|ИСТИНА КАК ЗначениеИстина|ИЗ|&ВидДокумента КАК ТаблицаВидаДокументов|) КАК ВыбранныеОбъекты|ИМЕЮЩИЕ|КОЛИЧЕСТВО(ВыбранныеОбъекты.ЗначениеИстина) > 15)|КОНЕЦ", "&ВидДокумента", "Справочник." + ВидДокумента);Результат = Запрос.Выполнить();БыстрыйВыборВидаДокумента = Результат.Пустой();Возврат БыстрыйВыборВидаДокумента;КонецФункции// Проверяет проверку возможности отнесения документа в делоФункция ДелоМожетСодержатьДокумент(ТипПроверки, ЗначениеПроверки, Дело) ЭкспортУстановитьПривилегированныйРежим(Истина);Если ТипПроверки = "ВидыДокументов" ТогдаЕсли ЗначениеЗаполнено(ЗначениеПроверки) И Дело.НоменклатураДел.ВидыДокументов.Количество() > 0 ТогдаЗапрос = Новый Запрос;Запрос.Текст ="ВЫБРАТЬ|ИСТИНА|ГДЕ|&ВидДокумента В ИЕРАРХИИ|(ВЫБРАТЬ|ВидыДокументов.ВидДокумента|ИЗ|Справочник.НоменклатураДел.ВидыДокументов КАК ВидыДокументов|ГДЕ|ВидыДокументов.Ссылка = &НоменклатураДел)";Запрос.УстановитьПараметр("ВидДокумента", ЗначениеПроверки);Запрос.УстановитьПараметр("НоменклатураДел", Дело.НоменклатураДел);Результат = Запрос.Выполнить();Если Результат.Пустой() ТогдаВозврат Ложь;КонецЕсли;КонецЕсли;ИначеЕсли ТипПроверки = "Корреспонденты" ТогдаЕсли ЗначениеЗаполнено(ЗначениеПроверки) И Дело.НоменклатураДел.Корреспонденты.Количество() > 0 ТогдаЗапрос = Новый Запрос;Запрос.Текст ="ВЫБРАТЬ|ИСТИНА|ГДЕ|&Корреспондент В ИЕРАРХИИ|(ВЫБРАТЬ|Корреспонденты.Корреспондент|ИЗ|Справочник.НоменклатураДел.Корреспонденты КАК Корреспонденты|ГДЕ|Корреспонденты.Ссылка = &НоменклатураДел)";Запрос.УстановитьПараметр("Корреспондент", ЗначениеПроверки);Запрос.УстановитьПараметр("НоменклатураДел", Дело.НоменклатураДел);Результат = Запрос.Выполнить();Если Результат.Пустой() ТогдаВозврат Ложь;КонецЕсли;КонецЕсли;ИначеЕсли ТипПроверки = "ВопросыДеятельности" ТогдаЕсли ЗначениеЗаполнено(ЗначениеПроверки) И Дело.НоменклатураДел.ВопросыДеятельности.Количество() > 0 ТогдаЗапрос = Новый Запрос;Запрос.Текст ="ВЫБРАТЬ|ИСТИНА|ГДЕ|&ВопросДеятельности В ИЕРАРХИИ|(ВЫБРАТЬ|ВопросыДеятельности.ВопросДеятельности|ИЗ|Справочник.НоменклатураДел.ВопросыДеятельности КАК ВопросыДеятельности|ГДЕ|ВопросыДеятельности.Ссылка = &НоменклатураДел)";Запрос.УстановитьПараметр("ВопросДеятельности", ЗначениеПроверки);Запрос.УстановитьПараметр("НоменклатураДел", Дело.НоменклатураДел);Результат = Запрос.Выполнить();Если Результат.Пустой() ТогдаВозврат Ложь;КонецЕсли;КонецЕсли;КонецЕсли;Возврат Истина;КонецФункции// Возвражает Истина, если корреспондент является юридическим лицомФункция КорреспондентЮрЛицо(Корреспондент) ЭкспортВозврат ЗначениеЗаполнено(Корреспондент)И ТипЗнч(Корреспондент) = Тип("СправочникСсылка.Корреспонденты")И (Корреспондент.ЮрФизЛицо = Перечисления.ЮрФизЛицо.ЮрЛицоИли Корреспондент.ЮрФизЛицо = Перечисления.ЮрФизЛицо.ИндивидуальныйПредпринимательИли Корреспондент.ЮрФизЛицо = Перечисления.ЮрФизЛицо.ЮрЛицоНеРезидент);КонецФункции// Возвражает структуру данных корреспондентаФункция ПолучитьДанныеКорреспондента(Корреспондент) ЭкспортДанныеКорреспондента = Новый Структура;ДанныеКорреспондента.Вставить("КорреспондентЮрЛицо", КорреспондентЮрЛицо(Корреспондент));ДанныеКорреспондента.Вставить("КонтактноеЛицо", КонтактноеЛицоКорреспондента(Корреспондент));Возврат ДанныеКорреспондента;КонецФункцииПроцедура УдалитьВременныеСохраненныеПоиски(ТекущийПользователь) ЭкспортСписокСохраненныхПоисков = ХранилищеНастроекДанныхФорм.