Файл: Проектирование реализации операций бизнес-процесса «Учет предоставленных услуг салоном красоты» (Создание эскизного проекта).pdf

Рисунок 12 –Вход в приложение

Рисунок 13 – Оформление заказа

Рисунок 14 –Отчет по заказам

Заключение

В любой организации, как большой, так и маленькой, возникает проблема та­кой организации управления данными, которая обеспечила бы наиболее эффектив­ную работу. Небольшие организации используют для этого шкафы с папками, од­нако крупные корпоративные предприятия используют компьютеризированные сис­темы автоматизации, позволяющие эффективно хранить, извлекать информацию и управлять большими объемами данных.

Темпы внедрения новых технологий в компьютерной отрасли значительно увеличились. Компании, конкурирующие за рынки и прибыли, стремятся момен­тально реализовать технические новшества в аппаратных средствах, программном обеспечении и парадигмах вычислений, стимулирующих развитие всей технологии управления информацией. Однако для успешной реализации крупных систем управле­ния требуется применить нестандартный подход, творческое решение. Использо­вание основ эргономики при проектировании, реализации и внедрении сис­темы управления позволит решить многие «психологические» и «технологические» проблемы предприятий.

В данной курсовой работе были рассмотрены теоретические вопросы, связан­ные с построением информационной сети и использующей ее ресурсы КИС, методоло­гией IDEF0, ее основные элементы и понятия, декомпозиция бизнес-процес­сов на уровни. В практической части был организован бизнес-процесс автоматизи­рованного оформления заявки на предоставление услуги в салоне кра­соты, построена его концептуальная модель, выявлены сопутствующие бизнес-про­цессы.

Список литературы

1. Долгих Д. В., Хаустович А. В. Технологии проектирования корпоративных ин­формационных систем .-Воронеж, 2000.
2. Ландсберг С. Е. Проектирование сложных ИС.- Воронеж, 2002.
3. Яскевич О. Г. Корпоративные информационные системы. – Воронеж, 2004
4. Яскевич О.Г. Оперативный учет на базе платформы 1С:предприятие.-Воронеж, 2003

Приложения

Приложение А (обязательное)

Листинг программы

Процедура ПриОткрытии()

ПриЗаписиПерепроводить(1);

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

Процедура Кол()

КолО=Окр(Кол*(Ед.Коэффициент),2,1);

Сумма=Окр(КолО*Цена,2,1);

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

Процедура Ед()

КолО=Окр(Кол*(Ед.Коэффициент),2,1);

Сумма=Окр(КолО*Цена,2,1);

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

Процедура Цена()

Сумма=Окр(КолО*Цена,2,1);

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

Процедура Мастера()

Договор=ПолучитьПустоеЗначение("Справочник.Договора");

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

Процедура Услуга()

Если Кол=0 Тогда

Кол=1;

КонецЕсли;

СпрЕд=СоздатьОбъект("Справочник.Единицы");

СпрЕд.ИспользоватьВладельца(Услуги);

СпрЕд.ВыбратьЭлементы();

Пока СпрЕд.ПолучитьЭлемент()=1 Цикл

Если СпрЕд.Ед=Услуги.ЕдИзм Тогда

Ед=СпрЕд.ТекущийЭлемент();

Прервать;

КонецЕсли;

КонецЦикла;

КолО=Окр(Кол*(Ед.Коэффициент),2,1);

Цена=Окр(Услуги.ЦенаР.Получить(ДатаДок),2,1);

Сумма=Окр(КолО*Цена,2,1);

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

// ********************

//

Процедура ОбработкаПроведения()

Если Мастера.Выбран()=0 Тогда

Предупреждение ("Мастер не выбран");

НеПроводитьДокумент();

КонецЕсли;

Если ДатаВып<ДатаДок Тогда

Предупреждение ("Неверная дата ");

НеПроводитьДокумент();

КонецЕсли;

Регистр.Расчеты.Мастера=Мастера;

Регистр.Расчеты.Услуги=Услуги;

Регистр.Расчеты.Сумма=Итог("Сумма");

Регистр.Расчеты.ФлагДвижения=1;

Регистр.Расчеты.ДвижениеПриходВыполнить();

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

********************

Процедура ДатаН()

ДатаК=ПолучитьДатуТА();

Если ДатаН>ДатаК Тогда

ДатаН=ДатаК;

КонецЕсли;

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

Процедура ДатаК()

Если ДатаК<ДатаН Тогда

ДатаК=ДатаН;

ИначеЕсли ДатаК>ПолучитьДатуТА() Тогда

ДатаК=ПолучитьДатуТА();

КонецЕсли;

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

Процедура Сформировать()

Запрос=СоздатьОбъект("Запрос");

ТЗ="

|Период с ДатаН по ДатаК;

|Контр=Регистр.Расчеты.Мастера;

|Дог=Регистр.Расчеты.Договора;

|Долг=Регистр.Расчеты.Сумма;

|Функция СумКонОст=КонОст(Долг);

|Группировка Контр упорядочить по Контр.Код;

|";

Если Запрос.Выполнить(ТЗ)=0 Тогда

Сообщить("Запрос не выполнен");

Возврат;

КонецЕсли;

ИтогоМы=0;

ИтогоНам=0;

Таб=СоздатьОбъект("Таблица");

Таб.ИсходнаяТаблица("");

Таб.ВывестиСекцию("Шапка");

Пока Запрос.Группировка("Контр")=1 Цикл

ТЭ=Запрос.Контр;

Долг=Запрос.СумКонОст;

Если ТЭ.ЭтоГруппа()=1 Тогда

НазГр=СокрЛП(ТЭ.Наименование);

Если Долг=0 Тогда

ИначеЕсли Долг>0 Тогда