Файл: Разработка конфигурации «Управление документооборотом» в среде 1С:Предприятие 8.3. (Выбор комплекса задач автоматизации).pdf
Добавлен: 02.07.2023
Просмотров: 71
Скачиваний: 4
Служит для подтверждения отказа на охрану объекта сотрудником ОВО.
Документ имеет реквизиты шапки и не имеет реквизитов табличной части.
Документ имеет модуль проведения.
Таблица 12. Реквизиты шапки документа «Акт приема под охрану»
|
Наименование реквизита |
Тип |
Вид |
Длина |
Точ-ность |
Описание |
|
Организация |
Справочник |
Контрагент |
Клиент |
||
|
Дата окончания |
Дата |
Дата начала работы |
Журналы документов;
Отчеты;
Отчеты во многом похожи друг на друга, они имеют разные атрибуты и таблицы представления информации, но механизмы ее извлечения едины.
ЗАКЛЮЧЕНИЕ
В курсовом проекте Разработка конфигурации «Управление документооборотом в среде 1С: Предприятие 8.3» на примере ОВО ОМВД России по Суджанскому району курской области» была рассмотрена проблема автоматизации процесса документооборота. Результатом проекта явилось создание приложения для работы с базами данных, которое учитывает все особенности процесса документооборота. Автоматизированный вариант решения задачи позволил:
- наиболее эффективным образом модифицировать технологию создания и движения документов внутри компании;
- вести учет всех услуг;
- снизить трудовые затраты;
- сократить время обработки информации;
- повысить скорость работы с документами;
- устранить многократное дублирование информации;
- максимально сократить количество бумажных документов;
- облегчить получение различных аналитических отчетов.
После анализа полученных результатов можно сделать вывод о полученном от процесса внедрения проекта в данное предприятие. Сокращение временных затрат на работу сократилось в 3 раза.
Данный показатель отображает, что реальная денежная выгода от внедрения программного продукта довольно велика, а уменьшение трудозатрат делает проект наиболее привлекательным, что обеспечит общую эффективность внедряемой разработки.
Разработанная программа может быть использована для учета услуг охранного предприятия, занимающихся таким же или подобным видом деятельности.
-
СПИСОК ИСПОЛЬЗОВАННЫХ ИСТОЧНИКОВ:
- 1С: Предприятие: Версия 8.3. Конфигурирование и администрирование. - М.:1С, 2015;
- "1С: ПРЕДПРИЯТИЕ" ДЛЯ ОТДЕЛА ВНЕВЕДОМСТВЕННОЙ ОХРАНЫ/С. МАРКЕЛОВА, Н. ЛОБАНОВА //http://www.oxpaha.ru/ view.asp Статья о комплексе "АНВИК: Учет отдела вневедомственной охраны" 1С;
- 1С: Предприятие V8.3. Описание встроенного языка Ч.1. Москва: Изд-во: 1С Издательство, 2015;
- 1С: Предприятие V8.3. Описание встроенного языка Ч.2. Москва: Изд-во: 1С Издательство, 2015;
- Айман Т. О. Делопроизводство: образцы документов. – М.: РИОР, 2012;
- Бартеньев О. В. 1С: Предприятие: программирование для всех. – М.: РИОР, 2013;
- ГОСТ 18322-78 Система технического обслуживания и ремонта техники. Термины и определения. - М.: ГУВО МВД РФ, 2012;
- ГОСТ Р 50775-95. Системы тревожной сигнализации. - М.: ГУВО МВД РФ, 2012;
- Дейт, К.Д. Введение в системы баз данных: пер. с англ.- М.; СПб.; Киев: Вильямс, 2012 .- 848 с.: ил.;
- П 78.36.001 – 2012 «Перечень технических средств, разрешенных к применению во вневедомственной охране в 2012 году» .- М.: МВД РФ, 2012;
- Положение о вневедомственной охране при органах внутренних дел Российской Федерации от 14. 08. 2013, № 589;
- Приказ №291 Об организации работы по подбору под охрану объектов собственности .- Пермь: УВО при ГУВД, 2013;
- Р78.36.011 – 2012 Организация работы ПЦО. -М.: ГУВО МВД РФ, 2012;
- Р 78.36.013-2002 МВД России. Ложные срабатывания технических средств охранной сигнализации и методы борьбы с ними. - М.: ГУВО МВД РФ, 2012;
- РД 78.36.003-2002. Инженерно-техническая укрепленность. Технические средства охраны. Требования и нормы проектирования по защите объектов от преступных посягательств. - М.: ГУВО МВД РФ, 2012;
- РД 78.146-93 МВД России. Инструкция о техническом надзоре за выполнением проектных и монтажных работ по оборудованию объектов средствами охранной сигнализации. - М.: ГУВО МВД РФ, 2012;
- РД 78.145-93 МВД России. Системы и комплексы охранной, пожарной и охранно-пожарной сигнализации. Правила производства и приемки работ. - М.: ГУВО МВД РФ, 2013;
- РМ 78.36.002-99 ГУВО МВД России. Порядок обследования объектов, принимаемых под охрану. - М.: ГУВО МВД РФ, 2012;
- Технико-экономическое обоснование дипломных проектов: учеб. пособие для вузов / Л. А. Астреина, В. В. Балдесов, В. К. Беклешов и др.; Под ред. В. К. Беклешова. - М.: Высш. шк. 2012. - 176 с.: ил;
- Хоменко А.Д., Цыганков В.М., Мальцев М.Г. Базы данных: Учебник для высших учебных заведений. / Под ред. проф А.Д. Хоменко. – СПб.: Корона принт, 2012. – 416 с.;
- Цена лишних бумажек: Как обеспечить качественный автоматизированный учет технических средств охраны/Журин С., к.т.н.//БДИ. -СПб: НП-Принт,2013. -№5-6(51).-с.64-66;
- Чери, С. Логическое программирование и базы данных/ С. Чери, Г. Готлоб, Л. Танка; пер. с англ. Под ред. Л.А. Калинченко. - М.: Мир, 2012. - 352 с.: ил.
ПРИЛОЖЕНИЯ
Весь исходный код программы содержит более трех тысяч строк и привести его полностью не представляется возможным. Поэтому будут приведены наиболее интересные блоки программы с необходимыми пояснениями.
&НаСервере
Функция ПолучаемКонтактыКонтрагента(Контрагент) Экспорт
Запрос = Новый Запрос;
Запрос.Текст = "ВЫБРАТЬ
| Контрагенты.Заметки
|ИЗ
| Справочник.Контрагенты КАК Контрагенты
|ГДЕ
| Контрагенты.Ссылка = &Ссылка";
Запрос.УстановитьПараметр("Ссылка", Контрагент);
Результат = Запрос.Выполнить();
Выборка = Результат.Выбрать();
Заголовок = "";
Пока Выборка.Следующий() Цикл
Заголовок = Заголовок + Выборка.Заметки;
КонецЦикла;
Возврат Заголовок;
КонецФункции
Функция ВернутьДеньНедели(Дата) Экспорт
Если ДеньНедели(Дата) = 1 тогда
Возврат "Понедельник";
иначеЕсли ДеньНедели(Дата) = 2 тогда
Возврат "Вторник";
иначеЕсли ДеньНедели(Дата) = 3 тогда
Возврат "Среда";
иначеЕсли ДеньНедели(Дата) = 4 тогда
Возврат "Четверг";
иначеЕсли ДеньНедели(Дата) = 5 тогда
Возврат "Пятница";
иначеЕсли ДеньНедели(Дата) = 6 тогда
Возврат "Суббота";
иначе
Возврат "Воскресенье";
КонецЕсли;
КонецФункции
Функция ПолучитьСписокКонфигураций(Клиент) Экспорт
Запрос = Новый Запрос;
Запрос.Текст = "ВЫБРАТЬ
| КонфигурацииКлиентов.Ссылка,
| КонфигурацииКлиентов.ВерсияДанных,
| КонфигурацииКлиентов.ПометкаУдаления,
| КонфигурацииКлиентов.Предопределенный,
| КонфигурацииКлиентов.Владелец,
| КонфигурацииКлиентов.Код,
| КонфигурацииКлиентов.Наименование,
| КонфигурацииКлиентов.ВидКонфигурации,
| КонфигурацииКлиентов.Представление
|ИЗ
| Справочник.КонфигурацииКлиентов КАК КонфигурацииКлиентов
|ГДЕ
| КонфигурацииКлиентов.Владелец = &Клиент";
Запрос.УстановитьПараметр("Клиент", Клиент);
Результат = Запрос.Выполнить();
ТЗ = Результат.Выгрузить();
Возврат ТЗ.ВыгрузитьКолонку("Ссылка");
КонецФункции
Функция ПолучитьСписокВерсий(Конфигурация) Экспорт
Запрос = Новый Запрос;
Запрос.Текст = "ВЫБРАТЬ
| ВерсииКонфигураций.Ссылка КАК Ссылка,
| ВерсииКонфигураций.ВерсияДанных,
| ВерсииКонфигураций.ПометкаУдаления,
| ВерсииКонфигураций.Предопределенный,
| ВерсииКонфигураций.Владелец,
| ВерсииКонфигураций.Код,
| ВерсииКонфигураций.Наименование,
| ВерсииКонфигураций.Представление
|ИЗ
| Справочник.ВерсииКонфигураций КАК ВерсииКонфигураций
| ЛЕВОЕ СОЕДИНЕНИЕ Справочник.ВидыКонфигураций КАК ВидыКонфигураций
| ВНУТРЕННЕЕ СОЕДИНЕНИЕ Справочник.КонфигурацииКлиентов КАК КонфигурацииКлиентов
| ПО ВидыКонфигураций.Ссылка = КонфигурацииКлиентов.ВидКонфигурации
| ПО ВерсииКонфигураций.Владелец = ВидыКонфигураций.Ссылка
|ГДЕ
| КонфигурацииКлиентов.Ссылка = &Конфигурация";
Запрос.УстановитьПараметр("Конфигурация", Конфигурация);
Результат = Запрос.Выполнить();
ТЗ = Результат.Выгрузить();
Возврат ТЗ.ВыгрузитьКолонку("Ссылка");
КонецФункции
функция ВозвратДеньНеделиПолное(дата)экспорт
если деньнедели(дата)=1 тогда
возврат "Понедельник";
иначеесли деньнедели(дата)=2 тогда
возврат "Вторник";
иначеесли деньнедели(дата)=3 тогда
возврат "Среда";
иначеесли деньнедели(дата)=4 тогда
возврат "Четверг";
иначеесли деньнедели(дата)=5 тогда
возврат "Пятница";
иначеесли деньнедели(дата)=6 тогда
возврат "Суббота";
иначеесли деньнедели(дата)=7 тогда
возврат "Воскресенье";
конецесли;
конецфункции
Функция ПолучитьЗадачиНаДень(НаДату) экспорт
ТекстЗадач = "";
Номер = 0;
ТипЗадачиСтрока = "";
Адрес = "";
Заметки = "";
Запрос = Новый Запрос;
Запрос.Текст = "ВЫБРАТЬ
| Задачи.Ссылка,
| Задачи.Контрагент,
| Задачи.Описание,
| Задачи.ТипЗадачи,
| Задачи.ВремяНачала КАК ВремяНачала,
| Задачи.ВремяОкончания КАК ВремяОкончания,
| Контрагенты.Адрес,
| Контрагенты.Заметки,
| Контрагенты.ЭлектроннаяПочта
|ИЗ
| Документ.Задачи КАК Задачи
| ЛЕВОЕ СОЕДИНЕНИЕ Справочник.Контрагенты КАК Контрагенты
| ПО Задачи.Контрагент = Контрагенты.Ссылка
|ГДЕ
| Задачи.Дата МЕЖДУ &ДатаНачала И &ДатаОкончания
|
|УПОРЯДОЧИТЬ ПО
| ВремяНачала,
| ВремяОкончания";
Запрос.УстановитьПараметр("ДатаНачала", НачалоДня(НаДату));
Запрос.УстановитьПараметр("ДатаОкончания", КонецДня(НаДату));
Результат = Запрос.Выполнить();
Выборка = Результат.Выбрать();
Пока Выборка.Следующий() Цикл
Номер = Номер + 1;
Если Выборка.ТипЗадачи = Перечисления.ТипыЗадач.ПодтвержденнаяВстреча Тогда
ТипЗадачиСтрока = "Встретиться c " + Выборка.Контрагент + " по поводу";
ИначеЕсли Выборка.ТипЗадачи = Перечисления.ТипыЗадач.НеподтвержденнаяВстреча Тогда
ТипЗадачиСтрока = "Предупредить о встрече " + Выборка.Контрагент + " и";
ИначеЕсли Выборка.ТипЗадачи = Перечисления.ТипыЗадач.ТелефонныйЗвонок Тогда
ТипЗадачиСтрока = "Позвонить " + Выборка.Контрагент + " и";
ИначеЕсли Выборка.ТипЗадачи = Перечисления.ТипыЗадач.Прочее Тогда
ТипЗадачиСтрока = "Выполнить для " + Выборка.Контрагент;
КонецЕсли;
Если Выборка.Адрес <> "" Тогда
Адрес = "(АДРЕС:" + Выборка.Адрес;
КонецЕсли;
Если Выборка.Заметки <> "" Тогда
Заметки = "КОНТАКТЫ:" + Выборка.Заметки + ")";
КонецЕсли;
ТекстЗадач = ТекстЗадач + Номер + ") " + ТипЗадачиСтрока + " " + Выборка.Описание + Адрес + "; "+ Заметки + Символы.ПС + Символы.ПС;
КонецЦикла;
Возврат ТекстЗадач;
КонецФункции
Процедура ОбработкаЗаполнения(ДанныеЗаполнения, СтандартнаяОбработка)
//{{__КОНСТРУКТОР_ВВОД_НА_ОСНОВАНИИ
// Данный фрагмент построен конструктором.
// При повторном использовании конструктора, внесенные вручную изменения будут утеряны!!!
Если ТипЗнч(ДанныеЗаполнения) = Тип("СправочникСсылка.Контрагенты") Тогда
// Заполнение шапки
Организация = ДанныеЗаполнения.Ссылка;
КонецЕсли;
//}}__КОНСТРУКТОР_ВВОД_НА_ОСНОВАНИИ
КонецПроцедуры
Процедура ОбработкаПроведения(Отказ, Режим)
//{{__КОНСТРУКТОР_ДВИЖЕНИЙ_РЕГИСТРОВ
// Данный фрагмент построен конструктором.
// При повторном использовании конструктора, внесенные вручную изменения будут утеряны!!!
// регистр Акты Расход
Движения.Акты.Записывать = Истина;
Движение = Движения.Акты.Добавить();
Движение.ВидДвижения = ВидДвиженияНакопления.Расход;
Движение.Период = Дата;
Движение.Организация = Организация;
Движение.ДатаНачала = ДатаНачала;
Движение.Количество = 1;
//}}__КОНСТРУКТОР_ДВИЖЕНИЙ_РЕГИСТРОВ
КонецПроцедуры
Процедура ОбработкаЗаполнения(ДанныеЗаполнения, СтандартнаяОбработка)
//{{__КОНСТРУКТОР_ВВОД_НА_ОСНОВАНИИ
// Данный фрагмент построен конструктором.
// При повторном использовании конструктора, внесенные вручную изменения будут утеряны!!!
Если ТипЗнч(ДанныеЗаполнения) = Тип("СправочникСсылка.Контрагенты") Тогда
// Заполнение шапки
Организация = ДанныеЗаполнения.Ссылка;
КонецЕсли;
//}}__КОНСТРУКТОР_ВВОД_НА_ОСНОВАНИИ
КонецПроцедуры
Процедура ОбработкаПроведения(Отказ, Режим)
//{{__КОНСТРУКТОР_ДВИЖЕНИЙ_РЕГИСТРОВ
// Данный фрагмент построен конструктором.
// При повторном использовании конструктора, внесенные вручную изменения будут утеряны!!!
// регистр Акты Приход
Движения.Акты.Записывать = Истина;
Движение = Движения.Акты.Добавить();
Движение.ВидДвижения = ВидДвиженияНакопления.Приход;