77
Движение.ФизическоеЛицо =
ТекСтрокаСписокПользователей.Пользователь;
Движение.ГруппаДоступа = Ссылка;
Движение.Папка = ТекСтрокаСписокДоступныхПапок.Папка;
КонецЦикла;
КонецЦикла;
Листинг Формы обработки «Рабочий стол»
&НаСервере
Процедура ПриСозданииНаСервере(Отказ, СтандартнаяОбработка)
ЗадачиМне.Параметры.УстановитьЗначениеПараметра("Исполнитель",
ПараметрыСеанса.ТекущийПользователь);
ЗадачиОтМеня.Параметры.УстановитьЗначениеПараметра("АвторЗадачи",
ПараметрыСеанса.ТекущийПользователь);
ЗадачиМне.Параметры.УстановитьЗначениеПараметра("ТекущаяДата",
ТекущаяДата());
ЗадачиОтМеня.Параметры.УстановитьЗначениеПараметра("ТекущаяДата",
ТекущаяДата());
ЗаполнитьДекорации();
КонецПроцедуры
&НаСервере
Процедура ЗаполнитьДекорации()
Запрос = Новый Запрос("ВЫБРАТЬ
| Задача.БизнесПроцесс КАК БизнесПроцесс,
| Задача.Дата КАК Дата,
| Задача.Выполнена КАК Выполнена,
| Задача.ВнутреннийДокумент КАК ВнутреннийДокумент,
| Задача.РезультатВыполнения КАК РезультатВыполнения,
| Задача.СрокИсполнения КАК СрокИсполнения
|ИЗ
| Задача.Задача КАК Задача
|ГДЕ
| Задача.Исполнитель = &Исполнитель");
Запрос.Параметры.Вставить("Исполнитель",
ПараметрыСеанса.ТекущийПользователь);
Запрос.Параметры.Вставить("ТекущаяДата", ТекущаяДата());
Результат = Запрос.Выполнить().Выгрузить();
Элементы.ДекорацияКоличествоЗадачМне.Заголовок = "Всего: " +
Строка(Результат.Количество()) + " задач";
Запрос.Текст = Запрос.Текст + " И Задача.СрокИсполнения <=
&ТекущаяДата И Задача.Выполнена = Ложь";
Результат = Запрос.Выполнить().Выгрузить();
Элементы.ДекорацияКоличествоПросроченныхЗадачМне.Заголовок =
"Просроченных: " + Строка(Результат.Количество()) + " задач";
Запрос = Новый Запрос("ВЫБРАТЬ
| Задача.БизнесПроцесс КАК БизнесПроцесс,
| Задача.Дата КАК Дата,
| Задача.Выполнена КАК Выполнена,
| Задача.ВнутреннийДокумент КАК ВнутреннийДокумент,
78
| Задача.РезультатВыполнения КАК РезультатВыполнения,
| Задача.СрокИсполнения КАК СрокИсполнения
|ИЗ
| Задача.Задача КАК Задача
|ГДЕ
| Задача.БизнесПроцесс.АвторЗадачи = &АвторЗадачи");
Запрос.Параметры.Вставить("АвторЗадачи",
ПараметрыСеанса.ТекущийПользователь);
Запрос.Параметры.Вставить("ТекущаяДата", ТекущаяДата());
Результат = Запрос.Выполнить().Выгрузить();
Элементы.ДекорацияКоличествоЗадачОтМеня.Заголовок = "Всего: " +
Строка(Результат.Количество()) + " задач";
Запрос.Текст = Запрос.Текст + " И Задача.СрокИсполнения <=
&ТекущаяДата И Задача.Выполнена = Ложь";
Результат = Запрос.Выполнить().Выгрузить();
Элементы.ДекорацияКоличествоПросроченныхЗадачОтМеня.Заголовок =
"Просроченных: " + Строка(Результат.Количество()) + " задач";
КонецПроцедуры
&НаКлиенте
Процедура ЗадачиМнеВыбор(Элемент, ВыбраннаяСтрока, Поле, СтандартнаяОбработка)
СтандартнаяОбработка = Ложь;
ПоказатьЗначение(, Элементы.ЗадачиМне.ТекущиеДанные.БизнесПроцесс);
КонецПроцедуры
&НаКлиенте
Процедура ЗадачиОтМеняВыбор(Элемент, ВыбраннаяСтрока, Поле,
СтандартнаяОбработка)
СтандартнаяОбработка = Ложь;
ПоказатьЗначение(, Элементы.ЗадачиОтМеня.ТекущиеДанные.БизнесПроцесс);
КонецПроцедуры
Листинг формы списка «Задачи»
&НаСервере
Процедура ПриСозданииНаСервере(Отказ, СтандартнаяОбработка)
Список.Параметры.УстановитьЗначениеПараметра("Исполнитель",
ПараметрыСеанса.ТекущийПользователь);
Если РольДоступна("Администратор") Тогда
Список.ТекстЗапроса = "ВЫБРАТЬ
| ЗадачаЗадача.Ссылка КАК Ссылка,
| ЗадачаЗадача.ПометкаУдаления КАК ПометкаУдаления,
| ЗадачаЗадача.Номер КАК Номер,
| ЗадачаЗадача.Дата КАК Дата,
| ЗадачаЗадача.БизнесПроцесс КАК БизнесПроцесс,
| ЗадачаЗадача.ТочкаМаршрута КАК ТочкаМаршрута,
| ЗадачаЗадача.Наименование КАК Наименование,
| ЗадачаЗадача.Выполнена КАК Выполнена,
| ЗадачаЗадача.ВнутреннийДокумент КАК
ВнутреннийДокумент,
| ЗадачаЗадача.РезультатВыполнения КАК
РезультатВыполнения,
79
| ЗадачаЗадача.СрокИсполнения КАК СрокИсполнения,
| ЗадачаЗадача.АвторЗадачи КАК АвторЗадачи,
| ЗадачаЗадача.ДатаНачала КАК ДатаНачала,
| ЗадачаЗадача.Исполнитель КАК Исполнитель
|ИЗ
| Задача.Задача КАК ЗадачаЗадача"
КонецЕсли;
КонецПроцедуры
&НаКлиенте
Процедура СписокВыбор(Элемент, ВыбраннаяСтрока, Поле, СтандартнаяОбработка)
СтандартнаяОбработка = Ложь;
ПоказатьЗначение(, Элементы.Список.ТекущиеДанные.БизнесПроцесс);
КонецПроцедуры
&НаСервере
Процедура ПослеЗаписиНаСервере(ТекущийОбъект, ПараметрыЗаписи)
Задача = Объект.ВедущаяЗадача.ПолучитьОбъект();
Задача.Исполнитель = Объект.Исполнитель;
Задача.СрокИсполнения = Объект.СрокИсполнения;
Задача.Записать();
КонецПроцедуры
&НаСервере
Процедура ВыполнитьПроцессНаСервере()
Если Не ЗначениеЗаполнено(Объект.РезультатВыполнения) Тогда
Сообщить("Не заполнен результат выполнения!");
Иначе
Задача = Объект.ВедущаяЗадача.ПолучитьОбъект();
Задача.РезультатВыполнения = Объект.РезультатВыполнения;
Задача.ВыполнитьЗадачуИнтерактивно();
Объект.Завершен = Истина;
ЭтотОбъект.Записать();
ДокументОбъект = Объект.ВнутреннийДокумент.ПолучитьОбъект();
ДокументОбъект.Состояние = ДокументОбъект.Состояние + " Согласован";
ДокументОбъект.Записать();
КонецЕсли;
КонецПроцедуры
&НаКлиенте
Процедура ВыполнитьПроцесс(Команда)
ВыполнитьПроцессНаСервере();
КонецПроцедуры
80
ПРИЛОЖЕНИЕ 2
Техническое задание
1. Назначение разработки
Перед нами стоит задача создания практичной, быстродействующей
информационный системы предназначенной для автоматизации
документооборота предприятия «ООО «ПолиНекст».
2. Функциональные требования
Разрабатываемый программный продукт должен выполнять следующие
функции:
Ввод и хранение данных документов.
Удаление и добавление приложенных к документам файлов.
Разграничение доступа к документам.
Запуск и выполнение процессов «Согласование», «Утверждение»,
«Ознакомление».
Иметь обработку для быстрой и удобной работы с задачами.
Просмотр отчета по задачам.
3. Входные и выходные данные
В качестве входных данных в конфигурации:
Информация о документах;
Информация о вложенных в документы файлы;
Информация о сотрудниках организации;
Информациях о проектах.
На выходе получаем следующую информацию:
Запущенные бизнес-процессы;
Отчет по задачам.
4. Системные требования
Системные требования для пользовательского компьютера:
Процессор Intel Pentium Celeron 1800 Мгц и выше;
81
Оперативная память 256 Мб и выше;
Жесткий диск 40Гб и выше;
Устройство чтения компакт-дисков;
USB-порт;
SVGA-видеокарта.
Компьютеры должны быть укомплектованы мышью, клавиатурой,
сетевыми шнурами.
Компьютер должен предоставляться для сертификации в той
программно-аппаратной конфигурации, в которой он будет поставляться
потребителю.
Вместе с компьютером должен поставляться комплект необходимых
драйверов под соответствующие операционные системы.
Конфигурация компьютера должна соответствовать спецификации
(Hardware Compatibility List) для используемых операционных систем.
5. Требования к интерфейсу
Автоматизированная система должна обладать дружественным,
интуитивно понятным интерфейсом, быть максимально защищенной от
неправильных действий пользователя.
6. Требования к подготовленности пользователей
Для работы требуются минимальные знания пользователя ПК и
базовые знания работы в 1С.
7. Надежность и сохранность данных
1. Надежность программного продукта определяется его
отказоустойчивостью и возможностью быстрого восстановления.
Программный продукт 1с за счет внутрисистемных механизмов
обеспечивают высокий уровень надёжности.
2. Система предназначена для постоянной, ежедневной работы основных
подразделения пищевого бизнеса. Пользователи работают в диалоговом
режиме в реальном масштабе времени с системой, функционирующей на
сервере базы данных.
82
3. Сервер базы данных Системы должен работать в непрерывном
круглосуточном режиме, кроме периодов восстановительных работ.
4. Диагностика осуществляется как внутрисистемным механизмом,
обеспечивающим сбор информации о возникающих ошибках
