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

     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);

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

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