Разработка программного обеспечения корпоративной информационной системы (стр. 5 из 5)

4.2 Контрольный пример

Был реализован механизм проверки вводимых данных и механизм выдачи системных сообщений. Всё это проектировалось и реализовывалось с учётом того требования, предъявляемого к системе, что интерфейс должен быть интуитивно понятным.

Рисунок 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 Тогда

Мы=Долг;

Нам=0;

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

Мы=0;

Нам=-Долг;

КонецЕсли;

Таб.ВывестиСекцию("Группа"); Иначе

Наз="("+СокрЛП(Строка(ТЭ.Код))+")"+СокрЛП(ТЭ.Наименование);

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

Продолжить;

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

Мы=Долг;

Нам=0;

ИтогоМы=ИтогоМы+Мы;

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

Мы=0;

Нам=-Долг;

ИтогоНам=ИтогоНам+Нам;

КонецЕсли;

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

КонецЕсли;

КонецЦикла;

Таб.ВывестиСекцию("Итого");

Таб.ТолькоПросмотр(1);

Таб.ПараметрыСтраницы(1,100,1);

Таб.Показать("");

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