Описание программного средства

    4.1 Выбор языка программирования

 

Для реализации проекта был выбран встроенный язык программирования 1С:Предприятие, как один из наиболее популярных и удобных средств разработки.

Средой исполнения языка является программная платформа «1С:Предприятие». Визуаль­ная среда разработки («Конфигуратор») является неотъемлемой частью па­кета программ «1С:Предприятие». Платформой предоставляется фиксированный на­бор базовых классов, ориентированных на решение типовых задач прикладной об­ласти:

a) Константа,

b) Справочник,

c) Документ,

d) Журнал документов,

e) Перечисление,

f) Отчет,

g) Обработка,

h) План счетов и др.

На основании базовых классов средствами визуального конфигурирования можно создавать любое количество порождённых классов (возможность определить новый класс программно — отсутствует). Допускается только одна явная ступень наследования классов. Как правило, объекты порождённых классов представляют собой записи (или некоторые наборы записей) в базе данных. Такие классы обра­зуют «Дерево метаданных». В терминах встроенного языка программирования 1С такие классы называются объектами метаданных. Основными видами объектов метадан­ных являются: Справочники, Документы, Отчеты, Обработки, Планы видов характеристик, Планы счетов, Планы видов расчета, Регистры сведений, Регистры накопления, Регистры расчета, Бизнес-процессы, Задачи.

 

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

 

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

Рисунок 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);

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

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