Реализация бизнес-процесса "Продажа товара"

Размещено на http://www.allbest.ru/

Реализация бизнес-процесса "Продажа товара"



Цель работы: знакомство с механизмом бизнес-процессов и задач в системе 1С: Предприятие 8.2.

1. Используйте информационную базу, разработанной ранее конфигурации в режиме запуска с “Обычное приложение”.

2. Создайте справочники Сотрудники (предопределенные данные: Иванов, Петров, Сидоров), Подразделения (предопределенные данные: Отдел продаж, Склад), Роли Исполнителей (предопределенные данные: Кладовщик, Продавец, Руководитель отдела).

Рисунок 1 - Справочник Сотрудники

Рисунок 2 - Элементы справочника Сотрудники



Рисунок 3 - Справочник Подразделения

Рисунок 4 - Элементы справочника Подразделения

Рисунок 5 - Справочник Роли исполнителей



Рисунок 6 - Элементы справочника Роли исполнителей

3. В форме документа Заявка Покупателя предусмотрите реквизит Оплата Счета

Рисунок 7 - Реквизит Оплата Счета

4. Создайте регистр сведений Регистр Адресации с измерениями Сотрудник, Роль исполнителя, Подразделение.



Рисунок 8 - Регистр сведений Регистр Адресации

5. Определите параметр сеанса Текущий Исполнитель.

Рисунок 9 - Параметр сеанса Текущий Исполнитель

6. Создайте объект конфигурации Задача. На вкладке адресация задайте Адресация - Регистр Адресации, Основной реквизит адресации - сотрудник, Текущий исполнитель - Текущий исполнитель. Определите реквизиты адресации Сотрудник, Роль исполнителя, Подразделение. Определите реквизиты Исполнитель, Дата Выполнения. Создайте формы Форма Списка и Форма Задачи. В модуле объекта определить обработчики событий Перед Выполнением, При Выполнении и При Записи.



Рисунок 10 - Объект конфигурации задача

Рисунок 11 -Реквизиты Исполнитель, Дата Выполнения

Рисунок 12 - Формы Форма Списка и Форма Задачи



Код процедуры обработки события Перед Выполнением:

Процедура Перед Выполнением (Отказ)

Если ДатаВыполнения='00010101' Тогда

Дата Выполнения = Текущая Дата();

Конец Если;

Если Исполнитель. Пустая () Тогда

Исполнитель = Параметры Сеанса. Текущий Исполнитель;

Конец Если;

Конец Процедуры

Код процедуры обработки события При Выполнении:

Процедура При Выполнении (Отказ)

Сообщить ("Задача:"+""""+ Наименование +""""+"выполнена");

Конец Процедуры

Код процедуры обработки события При Записи:

Процедура Перед Записью(Отказ)

Если Это Новый () Тогда

Сообщить("Сформирована задача:"+""""+Наименование +"""");

Сообщить("Исполнитель:"+Исполнитель);

Сообщить("Подразделение:"+Подразделение);

Сообщить("Роль исполнителя:"+Роль Исполнителя);

Конец Если;

Конец Процедуры

7. Создайте объект конфигурации бизнес-процесс “Продажа товара” (“Реализация продукции”), Задачи - Задача.



Рисунок 13 - Объект конфигурации бизнес-процесс «Продажа товара»

Определяем реквизиты Счет и Расходная Накладная (Поступление готовой продукции, Продажа готовой продукции).

Рисунок 14 -Реквизиты Счет и Расходная Накладная

Создаем карту маршрута.



Рисунок 15 - Карта маршрута

Определяем для точки маршрута Старт процедуру обработки события Перед Стартом.

Код процедуры обработки события Перед Стартом:

Процедура Старт Перед Стартом (Точка Маршрута Бизнес Процесса, Отказ)

Нужно Записать = Ложь;

Если Счет. Пустая() Тогда

Счет Объект = Документы. Заявка Покупателя. Создать Документ();

Счет Объект. Дата = Текущая Дата();

Счет Объект. Записать();

Счет = Счет Объект .Ссылка;

Нужно Записать = Истина;

Конец Если;

Нужно Записать = Ложь;

Если Расходная Накладная. Пустая () Тогда

Расходная Накладная Объект = Документы. Продажа Товара. Создать Документ();

Расходная Накладная Объект. Дата = Текущая Дата ();

Расходная Накладная Объект. Записать ();

Расходная Накладная = Расходная Накладная Объект. Ссылка;

Нужно Записать = Истина;

Конец Если;

Нужно Записать = Ложь;

Если Нужно Записать Тогда

Записать ();

Конец Если;

Сообщить ("Старт бизнес -процесса:"+""""+Этот Объект. Метаданные().Синоним +"""");

Конец Процедуры

Определяем для точки маршрута Выписка Счета процедуры обработки событий Обработка Интерактивной Активации и Перед Интерактивным Выполнением.

Код процедуры обработки события Обработка Интерактивной Активации:

Процедура ВыпискаСчетаОбработкаИнтерактивнойАктивации(ТочкаМаршрутаБизнесПроцесса, Задача, Стандартная Обработка)

Счет. Получить Форму ("Форма Документа").Открыть();

Стандартная Обработка = Ложь;

Конец Процедуры

Код процедуры обработки события Перед Интерактивным Выполнением:

Процедура ВыпискаСчетаПередИнтерактивнымВыполнением(ТочкаМаршрутаБизнесПроцесса, Задача, Отказ)

Если Счет. Товары. Количество() = 0 Тогда

Отказ = Истина;

Конец Если;

Конец Процедуры

Задаем Роль Исполнителя - Продавец, Подразделение - Отдел Продаж.

Рисунок 16 -Задаем Роль Исполнителя и Подразделение

Определяем для точки маршрута Счет оплачен? Процедуру обработки события Проверка Условия.

Код процедуры обработки события Проверка Условия:

Процедура Счет Оплачен Проверка Условия (Точка Маршрута Бизнес Процесса, Результат)

Результат = Счет Оплата Счета;

Конец Процедуры

Определяем для точки маршрута Выписка накладной процедуры обработки событий Обработка Интерактивной Активации и Перед Интерактивным Выполнением.

Код процедуры обработки события Обработка Интерактивной Активации:

Процедура ВыпискаНакладнойОбработкаИнтерактивнойАктивации(ТочкаМаршрутаБизнесПроцесса, Задача, Стандартная Обработка)

Расходная Накладная. Получить Форму("Форма Документа").Открыть();

Стандартная Обработка = Ложь;

Конец Процедуры

Код процедуры обработки события Перед Интерактивным Выполнением:

Процедура ВыпискаНакладнойПередИнтерактивнымВыполнением(ТочкаМаршрутаБизнесПроцесса, Задача, Отказ)

Если Расходная Накладная. Товары. Количество() = 0 Тогда

Отказ = Истина;

Конец Если;

Конец Процедуры

Задаем Роль Исполнителя - Продавец, Подразделение - Отдел продаж.

Рисунок 17 -Задаем Роль Исполнителя и Подразделение

Определяем для точки маршрута Отгрузка со склада обработки событий Обработка Интерактивной Активации.

Код процедуры обработки события Обработка Интерактивной Активации:

Процедура Отгрузка Со Склада Обработка Интерактивной Активации (Точка Маршрута Бизнес Процесса, Задача, Стандартная Обработка)

Расходная Накладная. Получить Форму("Форма Документа").Открыть();

Стандартная Обработка = Ложь;

Конец Процедуры

Задаем Роль Исполнителя - Кладовщик, Подразделение - Склад.



Рисунок 18 -Задаем Роль Исполнителя и Подразделение

Определяем для точки маршрута Нормальное завершение процедуру обработки события При Завершении.

Код процедуры обработки события При Завершении:

Процедура Нормальное Завершение При Завершении (Точка Маршрута Бизнес Процесса, Отказ)

Сообщить ("Завершение бизнес -процесса:"+""""+Этот Объект. Метаданные (). Синоним +"""");

Конец Процедуры

Определяем для точки маршрута Отмена процедуру обработки события При Завершении.

Код процедуры обработки события При Завершении:

Процедура Отмена При Завершении (Точка Маршрута Бизнес Процесса, Отказ)

Сообщить ("Завершение бизнес-процесса: "+""""+ Этот Объект. Метаданные (). Синоним +"""");

Конец Процедуры

8. В модуле обычного приложения конфигурации определите процедуры При Начале Работы Системы и Обработчик Оповещения. Добавите в обработчики событий При Записи документов вызов метода Оповестить ("Имя События", Этот Объект);.

Код процедуры обработки события При Начале Работы Системы:

Процедура При Начале Работы Системы ()

Параметры Сеанса. Текущий Исполнитель = Справочники. Сотрудники. Найти По Коду (Имя Пользователя());

Подключить Обработчик Оповещения ("Обработчик Оповещения");

Конец Процедуры

Код процедуры обработки события Обработчик Оповещения:

Процедура Обработчик Оповещения (Имя События, Параметр, Источник) Экспорт

Если Имя События = "Запись Счета" Тогда

Запрос = Новый Запрос;

Запрос. Установить Параметр("Парам", Источник. Ссылка);

Запрос. Текст ="ВЫБРАТЬ

Задача. Ссылка

Из

Бизнес Процесс. Продажа Товара КАК Продажа Товара

ЛЕВОЕ СОЕДИНЕНИЕ Задача. Задача. Задачи По Исполнителю КАК Задача

По Продажа Товара. Ссылка = Задача. Бизнес Процесс

|ГДЕ (Задача. Выполнена = ЛОЖЬ) И (Продажа Товара. Счет = &Парам)";

Выборка = Запрос. Выполнить().Выбрать();

Пока Выборка. Следующий() Цикл

Текущая Задача = Выборка. Ссылка. Получить Объект );

Если Текущая Задача. Точка Маршрута = Бизнес Процессы. Продажа Товара. Точки Маршрута. Выписка Счета Тогда

Форма Счета = Текущая Задача. Бизнес Процесс. Счет. Получить Форму();

Если Форма Счета. Открыта() = Истина Тогда

Если Вопрос ("Поместить задачу:"""+Текущая Задача. Наименование + """ как выполненную?", Режим Диалога Вопрос. Да Нет) = Код Возврата Диалога. Да Тогда

Текущая Задача. Выполнить Задачу();

Конец Если;

Конец Если;

Конец Если;

Конец Цикла;

Конец Если;

Если Имя События = "Запись Накладной" Тогда

Запрос = Новый Запрос;

Запрос. Установить Параметр("Парам", Источник. Ссылка);

Запрос .Текст ="ВЫБРАТЬ

Задача. Ссылка

Из

Бизнес Процесс. Продажа Товара КАК Продажа Товара

ЛЕВОЕ СОЕДИНЕНИЕ Задача. Задача. Задачи По Исполнителю КАК Задача

По Продажа Товара. Ссылка = Задача. Бизнес Процесс

ГДЕ (Задача. Выполнена = ЛОЖЬ) И (Продажа Товара. Расходная Накладная = &Парам)";

Выборка = Запрос. Выполнить().Выбрать();

Пока Выборка. Следующий() Цикл

Текущая Задача = Выборка. Ссылка. Получить Объект();

Если Текущая Задача. Точка Маршрута = Бизнес Процессы. Продажа Товара. Точки Маршрута. Выписка Накладной Тогда

Форма Счета = Текущая Задача. Бизнес Процесс. Расходная Накладная. Получить Форму ();

Если Форма Счета. Открыта() = Истина Тогда

Если Вопрос ("Поместить задачу:"""+Текущая Задача. Наименование + """ как выполненную?", Режим Диалога Вопрос. Да Нет) = Код Возврата Диалога. Да Тогда

Текущая Задача. Выполнить Задачу();

Конец Если;

Конец Если;

Конец Если;

Конец Цикла;

Конец Если;

Конец Процедуры

Код вызова метода Оповестить в документе Заявка Покупателя:

Процедура При Записи(Отказ)

// Вставить содержимое обработчика.

Оповестить("Запись Счета", , Этот Объект);

Конец Процедуры

Код вызова метода Оповестить в документе Продажа Товара:

Процедура При Записи (Отказ)

// Вставить содержимое обработчика.

Оповестить("Запись Расходной Накладной", Этот Объект)

Конец Процедуры

9. Протестировать выполнение бизнес-процесса.

Рисунок 19 - Создание заявки покупателя



Рисунок 20 - Заполнение заявки покупателя без оплаты счета

Рисунок 21 - Просмотр бизнес-процесса: Продажа товара



Рисунок 22 - Завершение бизнес-процесса

Рисунок 23 - Заполнение заявки покупателя с оплатой счета



Рисунок 23 - Завершение бизнес-процесса



Вывод

бизнес регистр заявка

В ходе лабораторной работы мы познакомились с механизмом бизнес-процессов и задач в системе 1С: Предприятие 8.2.

Размещено на Allbest.ru

...