Файл: Проектирование реализации операций бизнес-процесса «Продажи».pdf
Добавлен: 02.04.2023
Просмотров: 360
Скачиваний: 2
СОДЕРЖАНИЕ
1.1. Выбор комплекса задач автоматизации
1.3. Характеристики документооборота, возникающего при решении задачи
1.4. Обоснование проектных решений по информационному обеспечению
1.5. Обоснование проектных решений по программному обеспечению
2.1. Информационная модель и её описание
2.2. Характеристика нормативно-справочной, входной и оперативной информации
2.3. Характеристика результатной информации
2.4. Программное обеспечение задачи
2.5. Характеристика базы данных
2.7. Описание программных модулей
ВЫБРАТЬ
ВыполненныеРаботыОбороты.Заявка,
ВыполненныеРаботыОбороты.ТипРаботы,
ВЫБОР
КОГДА (ВЫРАЗИТЬ(ВыполненныеРаботыОбороты.Работа.ПолноеНаименование КАК СТРОКА(1))) = ""
ТОГДА ВыполненныеРаботыОбороты.Работа.Наименование
ИНАЧЕ ВыполненныеРаботыОбороты.Работа.ПолноеНаименование
КОНЕЦ КАК Работа,
ВыполненныеРаботыОбороты.Исполнитель,
ВыполненныеРаботыОбороты.СуммаОборот,
ВыполненныеРаботыОбороты.ОбъемОборот
ИЗ
РегистрНакопления.ВыполненныеРаботы.Обороты КАК ВыполненныеРаботыОбороты
ВЫБРАТЬ
СтатусыЗаявок.Заявка,
СтатусыЗаявок.Период,
СтатусыЗаявок.СтатусЗаявки
ПОМЕСТИТЬ втСтатусыЗаявок
ИЗ
РегистрСведений.СтатусыЗаявок КАК СтатусыЗаявок
;
ВЫБРАТЬ
Работа.Родитель КАК Группа,
ВЫБОР
КОГДА (ВЫРАЗИТЬ(РасценкиРаботСрезПоследних.Работа.ПолноеНаименование КАК СТРОКА(1))) = ""
ТОГДА РасценкиРаботСрезПоследних.Работа.Наименование
ИНАЧЕ РасценкиРаботСрезПоследних.Работа.ПолноеНаименование
КОНЕЦ КАК Работа,
РасценкиРаботСрезПоследних.Расценка
ИЗ
РегистрСведений.РасценкиРабот.СрезПоследних КАК РасценкиРаботСрезПоследних
Процедура ОбработкаПроведения(Отказ, Режим)
// регистр СтатусыЗаявок
Движения.СтатусыЗаявок.Записывать = Истина;
Движение = Движения.СтатусыЗаявок.Добавить();
Движение.Период = Дата;
Движение.Заявка = Ссылка;
Движение.СтатусЗаявки = Перечисления.СтатусыЗаявок.Принята;
КонецПроцедуры
Процедура ОбработкаПроведения(Отказ, Режим)
// регистр СтатусыЗаявок
Движения.СтатусыЗаявок.Записывать = Истина;
Для Каждого ТекСтрокаЗаявки Из Заявки Цикл
Движение = Движения.СтатусыЗаявок.Добавить();
Движение.Период = Дата;
Движение.Заявка = ТекСтрокаЗаявки.Заявка;
Движение.СтатусЗаявки = Перечисления.СтатусыЗаявок.Запланирована;
КонецЦикла;
//регистр "Запланированные заявки"
Движения.ЗапланированныеЗаявки.Записывать = Истина;
Для Каждого ТекСтрока Из Работы Цикл
Движение = Движения.ЗапланированныеЗаявки.Добавить();
Движение.Период = Дата;
Движение.Регистратор = Ссылка;
Движение.Заявка = ТекСтрока.Заявка;
Движение.Работа = ТекСтрока.Работа;
Движение.Объем = ТекСтрока.Количество;
Движение.Сумма = ТекСтрока.Сумма;
Движение.СрокИсполнения = ТекСтрока.СрокИсполнения;
Движение.Расценка = ТекСтрока.Расценка;
КонецЦикла;
КонецПроцедуры
Процедура ОбработкаПроведения(Отказ, Режим)
// регистр СтатусыЗаявок
Движения.СтатусыЗаявок.Записывать = Истина;
Для Каждого ТекСтрокаЗаявки Из Заявки Цикл
Движение = Движения.СтатусыЗаявок.Добавить();
Движение.Период = Дата;
Движение.Заявка = ТекСтрокаЗаявки.Заявка;
Движение.СтатусЗаявки = Перечисления.СтатусыЗаявок.Запланирована;
КонецЦикла;
//регистр "Запланированные заявки"
Движения.ЗапланированныеЗаявки.Записывать = Истина;
Для Каждого ТекСтрока Из Работы Цикл
Движение = Движения.ЗапланированныеЗаявки.Добавить();
Движение.Период = Дата;
Движение.Регистратор = Ссылка;
Движение.Заявка = ТекСтрока.Заявка;
Движение.Работа = ТекСтрока.Работа;
Движение.Объем = ТекСтрока.Количество;
Движение.Сумма = ТекСтрока.Сумма;
Движение.СрокИсполнения = ТекСтрока.СрокИсполнения;
Движение.Расценка = ТекСтрока.Расценка;
КонецЦикла;
КонецПроцедуры
Процедура ОбработкаПроведения(Отказ, Режим)
// регистр СтатусыЗаявок
Движения.СтатусыЗаявок.Записывать = Истина;
Движение = Движения.СтатусыЗаявок.Добавить();
Движение.Период = Дата;
Движение.Заявка = Заявка;
Движение.СтатусЗаявки = Перечисления.СтатусыЗаявок.ВРаботе;
КонецПроцедуры
Процедура ОбработкаПроведения(Отказ, Режим)
// регистр СтатусыЗаявок
Движения.СтатусыЗаявок.Записывать = Истина;
Движение = Движения.СтатусыЗаявок.Добавить();
Движение.Период = Дата;
Движение.Заявка = НарядЗадание.Заявка;
Движение.СтатусЗаявки = Перечисления.СтатусыЗаявок.Выполнена;
// регистр ВыполненныеРаботы
Движения.ВыполненныеРаботы.Записывать = Истина;
//плановые работы
Для Каждого ТекСтрокаРаботы Из НарядЗадание.Работы Цикл
Движение = Движения.ВыполненныеРаботы.Добавить();
Движение.Период = Дата;
Движение.Заявка = НарядЗадание.Заявка;
Движение.ТипРаботы = Перечисления.ТипРаботы.Запланированная;
Движение.Работа = ТекСтрокаРаботы.Работа;
Движение.Исполнитель = НарядЗадание.Исполнитель;
Движение.Объем = ТекСтрокаРаботы.Количество;
Движение.Сумма = ТекСтрокаРаботы.Сумма;
Движение.НарядЗадание = НарядЗадание;
КонецЦикла;
//дополнительные работы
Для Каждого ТекСтрокаДопРаботы Из ДопРаботы Цикл
Движение = Движения.ВыполненныеРаботы.Добавить();
Движение.Период = Дата;
Движение.Заявка = НарядЗадание.Заявка;
Движение.ТипРаботы = Перечисления.ТипРаботы.Дополнительная;
Движение.Работа = ТекСтрокаДопРаботы.Работа;
Движение.Исполнитель = НарядЗадание.Исполнитель;
Движение.Объем = ТекСтрокаРаботы.Количество;
Движение.Сумма = ТекСтрокаДопРаботы.Сумма;
Движение.НарядЗадание = НарядЗадание;
КонецЦикла;
КонецПроцедуры
ВЫБРАТЬ
ВыполненныеРаботыОбороты.Заявка,
ВыполненныеРаботыОбороты.ТипРаботы,
ВЫБОР
КОГДА (ВЫРАЗИТЬ(ВыполненныеРаботыОбороты.Работа.ПолноеНаименование КАК СТРОКА(1))) = ""
ТОГДА ВыполненныеРаботыОбороты.Работа.Наименование
ИНАЧЕ ВыполненныеРаботыОбороты.Работа.ПолноеНаименование
КОНЕЦ КАК Работа,
ВыполненныеРаботыОбороты.Исполнитель,
ВыполненныеРаботыОбороты.СуммаОборот,
ВыполненныеРаботыОбороты.ОбъемОборот
ИЗ
РегистрНакопления.ВыполненныеРаботы.Обороты КАК ВыполненныеРаботыОбороты
ВЫБРАТЬ
СтатусыЗаявок.Заявка,
СтатусыЗаявок.Период,
СтатусыЗаявок.СтатусЗаявки
ПОМЕСТИТЬ втСтатусыЗаявок
ИЗ
РегистрСведений.СтатусыЗаявок КАК СтатусыЗаявок
;
ВЫБРАТЬ
Работа.Родитель КАК Группа,
ВЫБОР
КОГДА (ВЫРАЗИТЬ(РасценкиРаботСрезПоследних.Работа.ПолноеНаименование КАК СТРОКА(1))) = ""
ТОГДА РасценкиРаботСрезПоследних.Работа.Наименование
ИНАЧЕ РасценкиРаботСрезПоследних.Работа.ПолноеНаименование
КОНЕЦ КАК Работа,
РасценкиРаботСрезПоследних.Расценка
ИЗ
РегистрСведений.РасценкиРабот.СрезПоследних КАК РасценкиРаботСрезПоследних
Процедура ОбработкаПроведения(Отказ, Режим)
// регистр СтатусыЗаявок
Движения.СтатусыЗаявок.Записывать = Истина;
Движение = Движения.СтатусыЗаявок.Добавить();
Движение.Период = Дата;
Движение.Заявка = Ссылка;
Движение.СтатусЗаявки = Перечисления.СтатусыЗаявок.Принята;
КонецПроцедуры
Процедура ОбработкаПроведения(Отказ, Режим)
// регистр СтатусыЗаявок
Движения.СтатусыЗаявок.Записывать = Истина;
Для Каждого ТекСтрокаЗаявки Из Заявки Цикл
Движение = Движения.СтатусыЗаявок.Добавить();
Движение.Период = Дата;
Движение.Заявка = ТекСтрокаЗаявки.Заявка;
Движение.СтатусЗаявки = Перечисления.СтатусыЗаявок.Запланирована;
КонецЦикла;
//регистр "Запланированные заявки"
Движения.ЗапланированныеЗаявки.Записывать = Истина;
Для Каждого ТекСтрока Из Работы Цикл
Движение = Движения.ЗапланированныеЗаявки.Добавить();
Движение.Период = Дата;
Движение.Регистратор = Ссылка;
Движение.Заявка = ТекСтрока.Заявка;
Движение.Работа = ТекСтрока.Работа;
Движение.Объем = ТекСтрока.Количество;
Движение.Сумма = ТекСтрока.Сумма;
Движение.СрокИсполнения = ТекСтрока.СрокИсполнения;
Движение.Расценка = ТекСтрока.Расценка;
КонецЦикла;
КонецПроцедуры
Процедура ОбработкаПроведения(Отказ, Режим)
// регистр СтатусыЗаявок
Движения.СтатусыЗаявок.Записывать = Истина;
Движение = Движения.СтатусыЗаявок.Добавить();
Движение.Период = Дата;
Движение.Заявка = Заявка;
Движение.СтатусЗаявки = Перечисления.СтатусыЗаявок.ВРаботе;
КонецПроцедуры
Процедура ОбработкаПроведения(Отказ, Режим)
// регистр СтатусыЗаявок
Движения.СтатусыЗаявок.Записывать = Истина;
Движение = Движения.СтатусыЗаявок.Добавить();
Движение.Период = Дата;
Движение.Заявка = НарядЗадание.Заявка;
Движение.СтатусЗаявки = Перечисления.СтатусыЗаявок.Выполнена;
// регистр ВыполненныеРаботы
Движения.ВыполненныеРаботы.Записывать = Истина;
//плановые работы
Для Каждого ТекСтрокаРаботы Из НарядЗадание.Работы Цикл
Движение = Движения.ВыполненныеРаботы.Добавить();
Движение.Период = Дата;
Движение.Заявка = НарядЗадание.Заявка;
Движение.ТипРаботы = Перечисления.ТипРаботы.Запланированная;
Движение.Работа = ТекСтрокаРаботы.Работа;
Движение.Исполнитель = НарядЗадание.Исполнитель;
Движение.Объем = ТекСтрокаРаботы.Количество;
Движение.Сумма = ТекСтрокаРаботы.Сумма;
Движение.НарядЗадание = НарядЗадание;
КонецЦикла;
//дополнительные работы
Для Каждого ТекСтрокаДопРаботы Из ДопРаботы Цикл
Движение = Движения.ВыполненныеРаботы.Добавить();
Движение.Период = Дата;
Движение.Заявка = НарядЗадание.Заявка;
Движение.ТипРаботы = Перечисления.ТипРаботы.Дополнительная;
Движение.Работа = ТекСтрокаДопРаботы.Работа;
Движение.Исполнитель = НарядЗадание.Исполнитель;
Движение.Объем = ТекСтрокаРаботы.Количество;
Движение.Сумма = ТекСтрокаДопРаботы.Сумма;
Движение.НарядЗадание = НарядЗадание;
КонецЦикла;
КонецПроцедуры
ВЫБРАТЬ
ВыполненныеРаботыОбороты.Заявка,
ВыполненныеРаботыОбороты.ТипРаботы,
ВЫБОР
КОГДА (ВЫРАЗИТЬ(ВыполненныеРаботыОбороты.Работа.ПолноеНаименование КАК СТРОКА(1))) = ""
ТОГДА ВыполненныеРаботыОбороты.Работа.Наименование
ИНАЧЕ ВыполненныеРаботыОбороты.Работа.ПолноеНаименование
КОНЕЦ КАК Работа,
ВыполненныеРаботыОбороты.Исполнитель,
ВыполненныеРаботыОбороты.СуммаОборот,
ВыполненныеРаботыОбороты.ОбъемОборот
ИЗ
РегистрНакопления.ВыполненныеРаботы.Обороты КАК ВыполненныеРаботыОбороты
ВЫБРАТЬ
СтатусыЗаявок.Заявка,
СтатусыЗаявок.Период,