5 Решение задач с использованием механизмов бизнес-процессов
5.1 Описание предметной области
Нужно разработать информационную базу по следующей схеме из которой следует, что бизнес-процесс должен протекать от отчёта о проделанной работе определённого сотрудника, до начисления и выплаты зарплаты.
Схема 1 – Механизм бизнес-процесса
И следующим исходным данным
Сотрудник |
Подразделение |
Должность |
Васина |
Бухгалтерия |
Кассир |
Мишина |
Бухгалтерия |
Кассир |
Мишина |
Бухгалтерия |
Бухгалтер |
Кротов |
Бухгалтерия |
Бухгалтер |
Иванов |
Бухгалтерия |
Гл. бухгалтер |
Онопко |
Отдел закупок |
Начальник отдела |
Бельдыев |
Отдел закупок |
Менеджер |
Рахимов |
Отдел закупок |
Менеджер |
Мансуров |
Отдел закупок |
Менеджер |
Жупиков |
Отдел закупок |
Кладовщик |
Хабибулин |
Отдел продаж |
Начальник отдела |
Галкин |
Отдел продаж |
Менеджер |
Палкин |
Отдел продаж |
Менеджер |
Малкин |
Отдел продаж |
Менеджер |
Таблица 5 – Штат сотрудников
Разработка объектов на базе каркасной конфигурации
К базе ограничен доступ и только определённые пользователе могут воспользоваться данными ею.
Рисунок 19 – Доступ к информационной базе
Главной формой данной информационной базы, является форма бизнес-процессов, на которой отображается схема процесса, дата и задача
Рисунок 20 – Форма «Бизнес-процессов»
Так же в режиме каркасной конфигурации мы можем наблюдать вкладки «Физические лица», «Регистр адресации», «Задачи» и «Должности».
На вкладке «Физические лица» отображены все сотрудники входящие в состав организации
Рисунок 21 – «Физические лица»
На вкладке «Регистр адресации» расположены сведения об ответственном лице и его должности
Рисунок 21 – «Регистр адресации»
Вкладка «Задачи» самая обширная и включает в себя сведения о проделанной работе, номер бизнес-процесса, информацию о том выполнена ли задача, точку маршрута, ответственное лицо и сотрудника должность.
Рисунок 21 – «Задачи»
Разработка кода программного продукта
Код в данной информационной базе отсутствует.
Решение задач по разработке управляемых форм
6.1 Описание предметной области
В форме документа «Приходная накладная» необходимо предоставить пользователю возможность вводить произвольный текстовый комментарий. Текст комментария может содержать навигационную ссылку (не более одной) на документ оплаты. Переход по навигационной ссылке должен осуществляться при нажатии кнопки открытия, созданной у данного элемента управления формы.
6.2 Разработка объектов на базе каркасной конфигурации
Данная задача выполняется в пределах одного документа «Приходная накладная» и выглядит следующим образом. Поле комментарий располагается на форме документа и действует с помощью встроенной функции.
Рисунок 22 – Комментарий на документе «Приходная накладная»
6.3 Разработка кода программного продукта
Поставленная задача реализуется следующим кодом
&НаКлиенте
Процедура КомментарийОткрытие(Элемент, СтандартнаяОбработка)
СтандартнаяОбработка = Ложь;
ТекстСсылки = Элемент.ТекстРедактирования;
Если Не ЗначениеЗаполнено(ТекстСсылки) Тогда
Возврат;
КонецЕсли;
ПервыйСимволССылки = Найти(ТекстСсылки, "e1cib");
Если ПервыйСимволССылки = 0 Тогда
Сообщение = Новый СообщениеПользователю;
Сообщение.Текст = "Комментарий не содержит навигационной ссылки!";
Сообщение.Поле = "Объект.Комментарий";
Сообщение.Сообщить();
Возврат;
КонецЕсли;
// урезаем
ТекстСсылки = Сред(ТекстСсылки, ПервыйСимволССылки);
// ищем две последующие кавычки, после чего считаем, что ссылка закочена
ПерваяКавычка = Найти(ТекстСсылки, """");
Если ПерваяКавычка = 0 Тогда
Сообщение = Новый СообщениеПользователю;
Сообщение.Текст = "Ошибка при получении ссылки!";
Сообщение.Поле = "Объект.Комментарий";
Сообщение.Сообщить();
Возврат;
КонецЕсли;
// урезаем переменную
УрезкаДляПоискаВторойКавычки = Сред(ТекстСсылки, ПерваяКавычка+1);
ВтораяКавычка = Найти(УрезкаДляПоискаВторойКавычки, """");
Если ВтораяКавычка = 0 Тогда
Сообщение = Новый СообщениеПользователю;
Сообщение.Текст = "Ошибка при получении ссылки!";
Сообщение.Поле = "Объект.Комментарий";
Сообщение.Сообщить();
Возврат;
КонецЕсли;
// вычисляем длину ссылки - вдруг после ссылки тоже что-то написано
ДлинаСсылки = ПерваяКавычка + ВтораяКавычка;
НавигационнаяСсылка = Сред(ТекстСсылки, 1, ДлинаСсылки);
Попытка
ПерейтиПоНавигационнойСсылке(НавигационнаяСсылка);
Исключение
Сообщение = Новый СообщениеПользователю;
Сообщение.Текст = "Ошибка перехода по ссылке: "+ОписаниеОшибки();
Сообщение.Поле = "Объект.Комментарий";
Сообщение.Сообщить();
Возврат;
КонецПопытки;
// e1cib/data/Документ.РасходнаяНакладная?ref="a7570017316710c911dfaa26fbe802f5"
КонецПроцедуры