Разработка автоматизированного рабочего места менеджера по офисным продажам страховой компании ООО «РГС Столица» в г. Мытищи

Для тушения пожаров в замкнутых объемах, каким и является помещение техотдела, применяют углекислый газ для прекращения подачи кислорода воздуха к очагу возгорания.

Первичными средствами пожаротушения могут послужить ручные огнетушители типа: ОУ-6 и ОУ-8. В помещении в качестве первичных средств пожаротушения предусмотрены порошковые огнетушители типа ОПС-6, однако их применение может произвести значительный ущерб вследствие порчи дорогостоящей электронной аппаратуры, поэтому рекомендуется применять пенный огнетушитель типа ОХП-10.

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

Вероятнее всего человеку уже никогда не удастся полностью избежать пагубного влияния передовых технологий, но, как и во многих других случаях, сами пользователи персональных компьютеров, по крайней мере, могут свести его к минимуму. Большинство проблем решаются сами собой при правильной организации рабочего места, соблюдении правил техники безопасности и разумном распределении рабочего времени.

Основным источником эргономических проблем, связанных с охраной здоровья людей, использующих в своей работе автоматизированные информационные системы на основе персональных компьютеров, являются дисплеи (мониторы), особенно дисплеи с электронно-лучевыми трубками. Они представляют собой источники наиболее вредных излучений, неблагоприятно влияющих на здоровье операторов.

Результаты, полученные в ходе исследований, носят пока еще преимущественно статистический характер и не имеют адекватного объяснения. Частотный спектр излучения монитора характеризуется наличием рентгеновских, ультрафиолетовых, инфракрасных и других электромагнитных колебаний. Опасность рентгеновского и части других излучений большинством ученых признается пренебрежимо малой, поскольку их уровень достаточно невелик и в основном поглощается покрытием экрана. Наиболее тяжелая ситуация связана, по-видимому, с полями излучений очень низких частот, которые, как выяснилось, способны вызывать биологические эффекты при воздействии на живые организмы. Было обнаружено, что электромагнитные поля с частотой порядка 60 Гц могут инициировать изменения в клетках животных (вплоть до нарушения синтеза ДНК). Особенно поразительным для исследователей оказался тот факт, что, в отличие, например, от рентгеновского излучения, электромагнитные волны обладают необычным свойством — опасность их воздействия при снижении интенсивности излучения не уменьшается, мало того, некоторые поля действуют на клетки тела только при малых интенсивностях или на конкретных частотах. Согласно одному из объяснений, сформулированных американскими учеными, переменное электромагнитное поле, совершающее колебания с частотой порядка 60 Гц, вовлекает в аналогичные колебания молекулы любого типа, независимо от того, находятся они в мозге человека или в его теле. Результатом этого является изменение активности ферментов и клеточного иммунитета, причем сходные процессы наблюдаются в организмах и при возникновении опухолей. Специальные измерения показали, что мониторы действительно излучают магнитные волны, по интенсивности, не уступающие уровням магнитных полей, способных обуславливать возникновение опухолей у людей.

Технические характеристики дисплеев (разрешающая способность, яркость, контрастность, частота кадровой развертки) в том случае, если на них не обращают внимания при выборе устройства или неправильно устанавливают, могут крайне отрицательно сказаться на зрении.

Что касается других функциональных нарушений, то те из них, которые связаны со скелетом человека, обусловлены длительными статическими нагрузками, вызванными плохой организацией рабочего места пользователя: неудобной или неподходящей по размерам мебелью, неудобным взаимным расположением компонентов системы персонального компьютера или отсутствием достаточного для свободных движений и смены позы места. Неудачная организация клавиатуры, либо неудобная конструкция мыши способны вызвать «накапливание» заболеваний сухожилий, мышц и нервных окончаний. Кроме того, возникновение болезней спины, шеи и рук специалисты объясняют тем, что при работе с клавиатурой компьютера пользователи с высокой скоростью повторяют одни и те же движения (типа быстрых нажатий клавиш, перемещения мыши, наклонов и поворотов головы и т. п.). Каждое нажатие на клавишу, естественно, сопряжено с множественным сокращением мышц, перемещением сухожилий вдоль костей и соприкосновениями их с внутренними тканями. В итоге из-за чрезмерной напряженности работы или увлеченности ею могут развиваться болезненные и воспалительные процессы.

Кожные заболевания (лица) связаны в основном с тем, что наэлектризованный экран дисплея притягивает частицы взвешенной в воздухе пыли, так что вблизи него «качество» воздуха ухудшается и оператор вынужден работать в более запыленной атмосфере.

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

соблюдение ограничений по медицинским показаниям;

внимательное отношение к характеристикам дисплеев;

правильная организация рабочего места оператора;

правильная организация рабочего времени оператора.

Рассматривая подробно каждую из них, можно привести рекомендации частного характера:

необходимо соблюдать ограничения на работу с персональными компьютерами для служащих, страдающих заболеваниями опорно-двигательного аппарата, глаз, кожи;

предпочтительнее использовать дисплеи с высокой разрешающей способностью и размером экрана не менее 14″ (Hi-Resolution, Non-Interlaced, Low-Radiation);

лучше выбирать видеоадаптеры с высоким разрешением и частотой кадровой развертки не менее 70−72Гц;

обязательно ставить на дисплеи экранные фильтры с антистатическим покрытием, в несколько раз снижающие утомляемость глаз и концентрацию пылевых частиц в близи экрана монитора;

сидеть не ближе 70 см от дисплея;

экран дисплея должен быть ориентирован таким образом, чтобы исключить блики от источников света;

не следует располагать дисплей непосредственно под источником освещения или вплотную с ним;

желательно, чтобы освещенность рабочего места оператора не превышала 2/3 нормальной освещенности помещения;

стена позади дисплея должна быть освещена примерно так же, как его экран;

при размещении в одной комнате нескольких персональных компьютеров расстояние от рабочего места каждого оператора до задних и боковых стенок соседних персональных компьютеров должно составлять не менее 1.2м;

рабочее место должно быть оборудовано так, чтобы исключить неудобные позы и длительные статические напряжения тела;

общее время работы с дисплеем не должно превышать 50% всего рабочего времени оператора;

не следует превышать темп работы порядка 10 тысяч нажатий клавиш в час (примерно 1500 слов);

при обычной работе с компьютером необходимо делать 15-минутные перерывы через каждые 2 часа, а при интенсивной работе (через каждый час.

Помимо безопасности пользователя, необходимо сказать несколько слов и о безопасности компьютера и, что особенно важно, безопасности данных, хранящихся в нем. ПК, используемые для хранения особо важной информации необходимо оборудовать устройствами бесперебойного питания, поддерживающими питающее напряжение в течение некоторого времени при аварийных ситуациях в электрической сети.

Нельзя загораживать заднюю стенку системного блока или ставить персональный компьютер вплотную к стене (это приводит к «тяжелому» режиму охлаждения системного блока и его перегреву. То же самое относится к дисплею (нельзя класть на него бумаги, книги и вообще все, что может закрыть его вентиляционные отверстия. Пыль и электроника плохо совместимы друг с другом, поэтому необходимо поддерживать в помещении приемлемый пылевой режим.

Заключение

Таким образом, полученные результаты позволяют сделать следующие выводы.

Эффект от внедрения систем учетного характера, как полагают специалисты, приближенно можно оценить как 10−20% процентов от прибыли. [36]

Обычно затраты на внедрение системы окупаются за 6 — 12 месяцев с начала ее эксплуатации, поэтому внедрение данного проекта можно считать экономически выгодным.

Эффект достигается за счет значительного сокращения потерь:

1) убытки от потери значимой информации;

2) потери от неэффективного использования времени менеджеров;

3) потери в сфере сбыта из-за низкой скорости прохождения заказов и невысокой гибкости учета потребностей потребителей;

4) потери от нарушения финансовых обязательств;

5) потери от ошибок в финансовом и бухгалтерском учете;

6) потери от недостатков в системе учета затрат;

7) потери от хищений материальных ценностей;

8) потери от отсутствия оперативной и корректной информации о складских запасах.

В результате предприятие получает следующие основные преимущества:

1) Появляется возможность принимать более обоснованные и оперативные решения.

2) Сокращается число ошибок персонала предприятия.

3) Повышается производительность труда персонала предприятия.

4) Улучшаются качество обслуживания клиентов и взаимоотношений с поставщиками, а также возрастают возможности увеличения числа клиентов и поставщиков.

5) Стандартизируются и унифицируются производственные процессы (например, методы учета и контроля).

6) Улучшаются возможности прогнозирования и планирования деятельности предприятия (в частности, закупок материалов), что повышает эффективность всего производственного процесса.

7) Сокращается срок выхода на рынок новых продуктов.

8) Улучшаются возможности управления оборотными средствами за счет значительного уменьшения складских запасов, а, следовательно, увеличиваются оборачиваемость товаров и доходы предприятия.

Следует отметить, что внедрение ИС является сложным и довольно болезненным процессом. В ходе работ возникает множество проблем, некоторые из которых можно предотвратить или минимизировать, повысив тем самым эффективность самой системы. Внедрение системы напрямую зависит от того, какие цели и задачи ставят перед собой руководители предприятия, т. е. большое значение имеет грамотная постановка задача заказчиком (если задачи неизвестны, то и что автоматизировать, тоже неизвестно).

Поэтому, первое, что было сделано для того, чтобы проект внедрения автоматизированной системы был успешным, это максимальная формализация всех критериев, которым должна удовлетворять система и описаны все модули, входящие в нее, а также проведено предпроектное обследование предприятия для выявления т.н. «узких» мест и попытки оптимизации отдельных функций; в данном случае автором была выбрана функция службы поддержки предприятия.

Для реализации поставленной задачи была выбрана реляционная СУБД MS Access 2000, представляющая собой мощную платформу разработки с чрезвычайно гибкой и функциональной интегрированной средой. MS Access — это инструмент, предназначенный для разработки и развертывания информационных бизнес-систем в любой предметной области.

Возможности разработчиков программного обеспечения, а также методы и технологии решения этих задач постоянно изменяются и совершенствуются. Так, с появлением нового перспективного решения для обеспечения быстрой разработки приложений, технология и инструментальные средства изменяются на базе этого новшества практически мгновенно. С каждой новой версией Access такие решения становятся достоянием самого широкого сообщества разработчиков. Так, MS Access 2000:

1) позволяет для обработки информации и быстрого формирования деловых решений привлекать мощь реляционной базы данных;

2) интегрировать данные из электронных таблиц и других баз данных, включая наиболее популярные СУБД для персональных компьютеров (например dBASE и Paradox) и базы данных SQL, находящиеся на серверах, мини-ЭВМ или больших центральных ЭВМ;

3) поддерживать технологии Active X корпорации Microsoft, что позволяет Access выступать в качестве клиента или сервера по отношению к другим приложениям (Microsoft Word, Microsoft Excel, Microsoft Power Point, Microsoft Outlook).

Дальнейшее развитие данной информационной системы можно прогнозировать следующим образом. Поскольку на предприятии уже были вложены определённые средства в техническое и программное обеспечение локальных рабочих станций, то инструментарий Microsoft Access позволяет связать в одном приложении Windows данные, хранящиеся в персональных компьютерах на различных рабочих местах.

Кроме того, Microsoft Access может также выступать как основной источник информации, публикуемый в интрасети или World Wide Web.

Следует подчеркнуть также, что MS Access 2000 содержит новое средство, страницы доступа к данным, позволяющее легко создать приложение для работы в интрасети. Используемые для этой цели страницы можно создавать в Access таким же образом, как и обычные формы. Страницы доступа к данным позволят получать и обновлять информацию, как хранящуюся в базе данных Access, так и на сервере Microsoft SQL Server.

Заключение

В представленном дипломном проекте были автоматизированы задачи работника отдела офисных продаж страховой фирмы, связанные с маркетингом, а именно, составление отчетов об изменениях на страховом рынке города.

Данная задача маркетинга — важная составляющая дальнейших прогнозов состояния страхового рынка в городе. Поддержании конкурентоспособности организации во многом зависит от способности предугадать возможные изменения, именно поэтому разработка АРМ менеджера по продажам в страховой фирме «Росгосстрах-Столица» города Мытищи так актуальна для организации в целом.

В аналитической части и в части обоснования проектных решений были проведены следующие работы: дана технико-экономическая характеристика предметной области — страховой фирмы «РГС-Столица» города Мытищи и отдельных участков работы; описана сущность автоматизируемой задачи; проведена формализация расчетов; обоснованы необходимость и цели использования вычислительной техники для решения данной задачи; проектные решения по техническому, информационному, программному обеспечению и по технологии сбора, передачи, обработки и выдачи информации.

В проектной части, при разработке информационного обеспечения была дана характеристика входной, нормативно-справочной и результатной информации. Программное обеспечение задачи отражено в сценарии диалога системы, дереве разговоров, схеме работы системы, схеме взаимодействия программных модулей, схеме программного модуля системы и схеме ресурсов программного модуля системы.

На основе вышеописанных данных обоснована экономическая эффективность проекта. Сначала были выбраны и обоснованы методики расчета экономической эффективности, далее на основе этой методики был произведен расчет показателей экономической эффективности.

Использование разработанной ИС упростит процессы обработки, ведения и выдачи информации, что приведет к значительному снижению трудовых и стоимостных затрат, обеспечит сокращение времени обработки информации, повысит достоверность выдаваемой информации.

Проект разработан в филиале «РГС-Столица» города Мытищи во время прохождения преддипломной практики.

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

I. Источники:

1. Об участии в международном информационном обмене: Федеральный закон от 4 июля 1996 № 85-ФЗ. — Собрание законодательства РФ. — 08.

07.1996. — № 28. — ст. 3347.

2. Об информации, информационных технологиях и защите информации: Федеральный закон от 27 июля 2006 г. № 149-ФЗ. — Российская газета, № 165, 29.

07.2006.

II.

Литература

:

3. Microsoft Access 2000: Справочник / Под ред. Ю. Колесникова. — СПб.: Питер, 1999. — 420с.

4. Microsoft Excel 2000: Справочник / Под ред. Ю. Колесникова. — СПб.: Питер, 1999. — 480 с.

5. Басовский Л. Е. Менеджмент: Учебное пособие. — М.: ИНФРА-М, 2004. — 216 с.

6. Вейскас Дж. Эффективная работа с Microsoft Access 2000 / Пер. с англ. — СПб.: Питер, 2001. — 1040 с.

7. Виноградова З. И., Щербакова В. Е. Стратегический менеджмент: Матрица модулей, «дерево целей»: Учебное пособие. — М.: Академический проект: Фонд «Мир», 2004. — 304 с.

8. Виханский О. С. Статегическое управление: Учебник. — М.: Гардарики, 2000. — 296 с.

9. Герчикова И. Н. Менеджмент: Учебник. — М.: ЮНИТИ, 2002. — 501 с.

10. Глушков В. М. Основы безбумажной информатики. — М.: Наука, 1982. — 552 с.

11. Голубков Е. П. Маркетинговые исследования: теория, методология и практика. — М.: Финпресс, 2003. — 496 с.

12. Диксон П. Управление маркетингом / Пер. с англ. — М.: Бином, 1998. — 960 с.

13. Иванова Т. Ю., Приходько В. И. Теория организации. — СПб.: Питер, 2004. — 269 с.

14. Информатика: Базовый курс / Под ред. С. В. Симоновича. — СПб.: Питер, 2001. — 642 с.

15. Котлер Ф. Основы маркетинга / Пер. с англ. — М.: Прогресс, 1990. — 736 с.

16. Кроув Т., Эйвисон Д. Базы данных в административных информационных системах / Пер. с англ. — М.: Финансы и статистика, 1983. — 168 с.

17. Липенков А. Д. Автоматизированные информационные технологии в экономике: Курс лекций. — Челябинск: Изд-во Чел. гос. ун-та, 2002. — 67 с.

18. Мескон М. Х., Альберт М., Хедоури Ф. Основы менеджмента / Пер. с англ. — М.: ДЕЛО, 2002. — 704 с.

19. Михайлов А. И., Черный А. И., Гиляревский Р. С. Основы научной информации. — М.: Наука, 1965. — 655 с.

20. Основы предпринимательской деятельности. (Экономическая теория. Маркетинг.

Финансовый менеджмент). / Под ред. Власовой В. М. — М.: Финансы и статистика, 1995.

— 496 с.

21. Программные средства вычислительной техники: Толковый терминологический словарь-справочник. — М.: Изд-во стандартов, 1990. — 368 с.

22. Рубен А., Горев А., Макшарипов С. Эффективная работа с СУБД. — СПб.: Питер, 2001. — 822 с.

23. Теория организации: Антология./Сост. В. Л. Семиков. — М.: Академический проект: Гаудеамус, 2005. — 960 с.

24. Урсул А. Д. Проблемы информации в современной науке: Философские очерки. — М.: Наука, 1975. — 287 с.

25. Урсул А. Д. Ускорение прогресса и информация. — НТИ. — Сер.

1. — 1987. — № 8. — с. 1 — 8.

26. Шомье Ж. Банки данных: Использование электронно-вычислительной техники. — М.: Энергоиздат, 1981. — 72 с.

27. Шрайберг Я. Л., Гончаров М. В. Справочное руководство по основам информатики и вычислительной техники. — М.: Финансы и статистика, Компьютер Пресс, 1990. — 32 с.

28. Эванс Дж.Р., Берман Б. Маркетинг / Сокр. пер. с англ. — М.: Экономика, 1993. — 336 с.

29. Ярочкин В. И. Информационная безопасность: Учебник. — М.: Академический проект: Гаудеамус, 2004. — 544 с.

III. Электронные ресурсы:

30. Алешкин С. А. Методы повышения эффективности внедрения корпоративных информационных систем: Электронная статья. -

http://www.appp.ru/laminfo/publ3.shtm

31. Архитектура СУБД. — Информационный ресурс Computer Science МФТИ. ;

http://cs.mipt.ru/docs/comp/rus/develop/databases/edu-course-relational-db/1−3.htm#jod

32. Баронов В. В., Попов Ю. И., Титовский И. Н., Яковенко О. В. Стратегия внедрения ИТ на российских предприятиях. ;

http://www.rus-lib.ru/book/38/men/strat_IT/index.htm

33. Верников Г. Корпоративные информационные системы: не повторяйте пройденных ошибок: Корпоративный менеджмент: Электронная статья. -

http://www.cfin.ru/vrnikov/kias/errors.shtml

34. Зиндер Е. Реинжиниринг бизнес-процессов и автоматизация офиса. — Сервер Информационных Технологий CIT-Forum/Автоматизация учрежденческой деятельности. ;

http://www.citforum.sitc.ru/ofis/ofis96/102.shtml

35. Кириллов В. В. Основы проектирования реляционных БД. — Библиотека RFTM. ;

http://docs.luksian.com/db/theory/projecting/index.php?f=./1−3.shtml

36. Колесников С. Об оценке эффективности внедрения и применения ERP-систем CONSULTING.RU, 2003. ;

http://consulting.ru/econs_art_134 655 631/cons_printview

37. Короткий С. Концепция построения комплексных информационных систем: Корпоративный менеджмент: Электронная статья. ;

http://www.cfin.ru/vernikov/kias/vest.shtml

38. Мальгина Н. Г. О понятиях «технологии» и «информационные технологии»: Информационные технологии в образовании: Сборник научных трудов. — Сайт Омского государственного университета. ;

http://www.omgpu.omsk.edu/libdocs/it_sb2/malgina.htm

39. Основы проектирования реляционных БД — Модели данных.

http://dit.vov.ru/dbguide/1−4.shtml

40. Федоров Б., Макаренко В. Менеджмент внедрения информационных технологий в систему управления предприятием. — Корпоративный менеджмент/ИТ в управлении. -

http://www.cfin.ru/itm/manit.shtml

41. Что там, за ERP-горизонтом: Директор ИС. — № 7/2001. — 30.

11.2004. — КОРУС-Консалтинг. — Технологии Регулярного Мененджмента ;

http://www.ecod.ru/?cat=p3&p=0&k=43

Приложения Приложение 1.

Бухгалтерский баланс страховой организации

(файл Приложение1. pdf)

Приложение 2.

Схема технологического процесса сбора, передачи, обработки и выдачи информации

Приложении 3

Схема взаимосвязи программных модулей (форм) и нформационных файлов.

Приложение 5

Листинг программного кода.

Option Compare Database

'

—————————————————————————————-;

' Выход

'

'

—————————————————————————————-;

Function Выход ()

On Error GoTo Выход_Err

DoCmd.Quit acExit

Выход_Exit:

Exit Function

Выход_Err:

MsgBox Error$

Resume Выход_Exit

End Function

Option Compare Database

'

—————————————————————————————-;

' Выход

ВводПремии

'

'

—————————————————————————————-;

Function Выход

ВводПремии ()

On Error GoTo Выход

ВводПремии_Err

DoCmd.Close acForm, «Форма

ДобПремии"

Выход

ВводПремии_Exit:

Exit Function

Выход

ВводПремии_Err:

MsgBox Error$

Resume Выход

ВводПремии_Exit

End Function

Option Compare Database

'

—————————————————————————————-;

' Выход

Вид

'

'

—————————————————————————————-;

Function Выход

Вид ()

On Error GoTo Выход

Вид_Err

DoCmd.Close acForm, «Вид»

Выход

Вид_Exit:

Exit Function

Выход

Вид_Err:

MsgBox Error$

Resume Выход

Вид_Exit

End Function

Option Compare Database

'

—————————————————————————————-;

' Выход

Подвид

'

'

—————————————————————————————-;

Function Выход

Подвид ()

On Error GoTo Выход

Подвид_Err

DoCmd.Close acForm, «Подвид»

Выход

Подвид_Exit:

Exit Function

Выход

Подвид_Err:

MsgBox Error$

Resume Выход

Подвид_Exit

End Function

Option Compare Database

'

—————————————————————————————-;

' Выход

ПросмотрПремии

'

'

—————————————————————————————-;

Function Выход

ПросмотрПремии ()

On Error GoTo Выход

ПросмотрПремии_Err

DoCmd.Close acForm, «Фирма

ДляПремии"

Выход

ПросмотрПремии_Exit:

Exit Function

Выход

ПросмотрПремии_Err:

MsgBox Error$

Resume Выход

ПросмотрПремии_Exit

End Function

Option Compare Database

'

—————————————————————————————-;

' Выход

Фирмы

'

'

—————————————————————————————-;

Function Выход

Фирмы ()

On Error GoTo Выход

Фирмы_Err

DoCmd.Close acForm, «Фирмы»

Выход

Фирмы_Exit:

Exit Function

Выход

Фирмы_Err:

MsgBox Error$

Resume Выход

Фирмы_Exit

End Function

Option Compare Database

'

—————————————————————————————-;

' Год

ДляПремии

'

'

—————————————————————————————-;

Function Год

ДляПремии ()

On Error GoTo Год

ДляПремии_Err

DoCmd.OpenForm «Ассор

ДляПремии", acFormDS, «», «[Kod_Firm]=[Forms]![Фирма

ДляПремии]![Kod_Firm] And [Kod_Period]=[Forms]![Фирма

ДляПремии]![Kvartal]", , acNormal

Год

ДляПремии_Exit:

Exit Function

Год

ДляПремии_Err:

MsgBox Error$

Resume Год

ДляПремии_Exit

End Function

Option Compare Database

'

—————————————————————————————-;

' Для

Журнала2

'

'

—————————————————————————————-;

Function Для

Журнала2()

On Error GoTo Для

Журнала2_Err

DoCmd.GoToControl «Prog»

DoCmd.RunCommand acCmdCopy

DoCmd.OpenForm «Журнал2», acNormal, «», «», , acNormal

DoCmd.GoToRecord acForm, «Журнал2», acNewRec

DoCmd.GoToControl «Name_Prog»

DoCmd.RunCommand acCmdPaste

DoCmd.GoToRecord, «», acLast

DoCmd.GoToControl «New_Prog»

Forms!Журнал2!New_Prog = True

DoCmd.GoToRecord acForm, «Журнал2», acLast

DoCmd.GoToControl «Date_Izm_Prog»

Forms!Журнал2!Date_Izm_Prog = Date

DoCmd.Close acForm, «Журнал2»

Для

Журнала2_Exit:

Exit Function

Для

Журнала2_Err:

MsgBox Error$

Resume Для

Журнала2_Exit

End Function

Option Compare Database

'

—————————————————————————————-;

' Для

Журнала2Удаление

'

'

—————————————————————————————-;

Function Для

Журнала2Удаление ()

On Error GoTo Для

Журнала2Удаление_Err

DoCmd.GoToControl «Prog»

DoCmd.RunCommand acCmdCopy

DoCmd.OpenForm «Журнал2», acNormal, «», «», , acNormal

DoCmd.GoToRecord acForm, «Журнал2», acNewRec

DoCmd.GoToControl «Name_Prog»

DoCmd.RunCommand acCmdPaste

DoCmd.GoToRecord, «», acLast

DoCmd.GoToControl «Delet_Prog»

Forms!Журнал2!Delet_Prog = True

DoCmd.GoToRecord acForm, «Журнал2», acLast

DoCmd.GoToControl «Date_Izm_Prog»

Forms!Журнал2!Date_Izm_Prog = Date

DoCmd.Close acForm, «Журнал2»

DoCmd.RunCommand acCmdDeleteRecord

DoCmd.GoToRecord acForm, «Программа», acNext

Для

Журнала2Удаление_Exit:

Exit Function

Для

Журнала2Удаление_Err:

MsgBox Error$

Resume Для

Журнала2Удаление_Exit

End Function

Option Compare Database

'

—————————————————————————————-;

' Доб

Период

'

'

—————————————————————————————-;

Function Доб

Период ()

On Error GoTo Доб

Период_Err

DoCmd.GoToRecord acForm, «Форма

ДобПремии", acGoTo

DoCmd.GoToControl «Год»

DoCmd.RunCommand acCmdCopy

DoCmd.OpenForm «Период», acNormal, «», «», , acNormal

DoCmd.GoToRecord acForm, «Период», acNewRec

DoCmd.GoToControl «Год»

DoCmd.RunCommand acCmdPaste

DoCmd.SelectObject acForm, «Форма

ДобПремии", False

DoCmd.GoToControl «Квартал»

DoCmd.RunCommand acCmdCopy

DoCmd.SelectObject acForm, «Период», False

DoCmd.GoToRecord acForm, «Период», acLast

DoCmd.GoToControl «Kvartal»

DoCmd.RunCommand acCmdPaste

Доб

Период_Exit:

Exit Function

Доб

Период_Err:

MsgBox Error$

Resume Доб

Период_Exit

End Function

Option Compare Database

'

—————————————————————————————-;

' Доб

ФирмаКПрограмма

'

'

—————————————————————————————-;

Function Доб

ФирмаКПрограмма ()

On Error GoTo Доб

ФирмаКПрограмма_Err

DoCmd.GoToControl «Kod_Prog»

DoCmd.RunCommand acCmdCopy

DoCmd.OpenTable «Ассортимент услуг», acViewNormal, acEdit

DoCmd.GoToRecord acTable, «Ассортимент услуг», acNewRec

DoCmd.GoToControl «Kod_Prog»

DoCmd.RunCommand acCmdPaste

DoCmd.OpenForm «Код

Фирмы", acNormal, «», «», , acNormal

Доб

ФирмаКПрограмма_Exit:

Exit Function

Доб

ФирмаКПрограмма_Err:

MsgBox Error$

Resume Доб

ФирмаКПрограмма_Exit

End Function

Option Compare Database

'

—————————————————————————————-;

' Доб

ФирмуВАссор

'

'

—————————————————————————————-;

Function Доб

ФирмуВАссор ()

On Error GoTo Доб

ФирмуВАссор_Err

DoCmd.GoToControl «KodFirm»

DoCmd.RunCommand acCmdCopy

DoCmd.Close acForm, «Код

Фирмы"

DoCmd.SelectObject acTable, «Ассортимент услуг», False

DoCmd.GoToRecord acTable, «Ассортимент услуг», acLast

DoCmd.GoToControl «Kod_Firm»

DoCmd.RunCommand acCmdPaste

DoCmd.Close acTable, «Ассортимент услуг»

DoCmd.SelectObject acForm, «Программа», False

Доб

ФирмуВАссор_Exit:

Exit Function

Доб

ФирмуВАссор_Err:

MsgBox Error$

Resume Доб

ФирмуВАссор_Exit

End Function

Option Compare Database

'

—————————————————————————————-;

' Закр

ФирмДля

Прог

'

'

—————————————————————————————-;

Function Закр

ФирмДля

Прог ()

On Error GoTo Закр

ФирмДля

Прог_Err

DoCmd.Close acForm, «А»

Закр

ФирмДля

Прог_Exit:

Exit Function

Закр

ФирмДля

Прог_Err:

MsgBox Error$

Resume Закр

ФирмДля

Прог_Exit

End Function

Option Compare Database

'

—————————————————————————————-;

' Закрытие

СправочникаПрограмма

'

'

—————————————————————————————-;

Function Закрытие

СправочникаПрограмма ()

On Error GoTo Закрытие

СправочникаПрограмма_Err

DoCmd.Close acForm, «Программа»

DoCmd.Close acForm, «Подвид»

DoCmd.Close acForm, «Вид»

Закрытие

СправочникаПрограмма_Exit:

Exit Function

Закрытие

СправочникаПрограмма_Err:

MsgBox Error$

Resume Закрытие

СправочникаПрограмма_Exit

End Function

Option Compare Database

'

—————————————————————————————-;

' Закрыть

ВводТарифа

'

'

—————————————————————————————-;

Function Закрыть

ВводТарифа ()

On Error GoTo Закрыть

ВводТарифа_Err

DoCmd.Close acForm, «Ввод

Тарифа"

Закрыть

ВводТарифа_Exit:

Exit Function

Закрыть

ВводТарифа_Err:

MsgBox Error$

Resume Закрыть

ВводТарифа_Exit

End Function

Option Compare Database

'

—————————————————————————————-;

' закрыть

ВыборОтчетов

'

'

—————————————————————————————-;

Function закрыть

ВыборОтчетов ()

On Error GoTo закрыть

ВыборОтчетов_Err

DoCmd.Close acForm, «Выбор

Отчета"

закрыть

ВыборОтчетов_Exit:

Exit Function

закрыть

ВыборОтчетов_Err:

MsgBox Error$

Resume закрыть

ВыборОтчетов_Exit

End Function

Option Compare Database

'

—————————————————————————————-;

' Квартал

ДляПремии

'

'

—————————————————————————————-;

Function Квартал

ДляПремии ()

On Error GoTo Квартал

ДляПремии_Err

DoCmd.OpenForm «Ассор

ДляПремии", acFormDS, «», «[Квартал]=[Forms]![Фирма

ДляПремии]![Поле

СоСписком15]", , acNormal

Квартал

ДляПремии_Exit:

Exit Function

Квартал

ДляПремии_Err:

MsgBox Error$

Resume Квартал

ДляПремии_Exit

End Function

ption Compare Database

'

—————————————————————————————-;

' КГлМеню

'

'

—————————————————————————————-;

Function КГлМеню ()

On Error GoTo КГлМеню_Err

DoCmd.Close acForm, «А»

DoCmd.Close acForm, «Программа»

DoCmd.Close acForm, «Подвид»

DoCmd.Close acForm, «Вид»

КГлМеню_Exit:

Exit Function

КГлМеню_Err:

MsgBox Error$

Resume КГлМеню_Exit

End Function

ption Compare Database

'

—————————————————————————————-;

' Кнопка

КВиду

'

'

—————————————————————————————-;

Function Кнопка

КВиду ()

On Error GoTo Кнопка

КВиду_Err

DoCmd.SelectObject acForm, «Вид», False

Кнопка

КВиду_Exit:

Exit Function

Кнопка

КВиду_Err:

MsgBox Error$

Resume Кнопка

КВиду_Exit

End Function

Option Compare Database

'

—————————————————————————————-;

' Кнопка

КВиду1

'

'

—————————————————————————————-;

Function Кнопка

КВиду1()

On Error GoTo Кнопка

КВиду1_Err

DoCmd.SelectObject acForm, «Вид», False

Кнопка

КВиду1_Exit:

Exit Function

Кнопка

КВиду1_Err:

MsgBox Error$

Resume Кнопка

КВиду1_Exit

End Function

Option Compare Database

'

—————————————————————————————-;

' Кнопка

КПодвиду

'

'

—————————————————————————————-;

Function Кнопка

КПодвиду ()

On Error GoTo Кнопка

КПодвиду_Err

DoCmd.SelectObject acForm, «Подвид», False

Кнопка

КПодвиду_Exit:

Exit Function

Кнопка

КПодвиду_Err:

MsgBox Error$

Resume Кнопка

КПодвиду_Exit

End Function

Option Compare Database

'

—————————————————————————————-;

' Кнопка

НП

'

'

—————————————————————————————-;

Function Кнопка

НП ()

On Error GoTo Кнопка

НП_Err

DoCmd.GoToRecord acForm, «Программа», acFirst

DoCmd.GoToControl «Kod_Podvid»

DoCmd.RunCommand acCmdCopy

DoCmd.GoToRecord acForm, «Программа», acNewRec

DoCmd.GoToControl «Kod_Podvid»

DoCmd.RunCommand acCmdPaste

DoCmd.GoToControl «Prog»

Кнопка

НП_Exit:

Exit Function

Кнопка

НП_Err:

MsgBox Error$

Resume Кнопка

НП_Exit

End Function

Option Compare Database

'

—————————————————————————————-;

' Кнопка

НФ

'

'

—————————————————————————————-;

Function Кнопка

НФ ()

On Error GoTo Кнопка

НФ_Err

DoCmd.GoToRecord acForm, «Фирмы», acNewRec

DoCmd.GoToControl «NameFirm»

Кнопка

НФ_Exit:

Exit Function

Кнопка

НФ_Err:

MsgBox Error$

Resume Кнопка

НФ_Exit

End Function

Option Compare Database

'

—————————————————————————————-;

' МакроcЖ1

'

'

—————————————————————————————-;

Function МакроcЖ1()

On Error GoTo МакроcЖ1_Err

DoCmd.OpenReport «Журнал1», acViewPreview, «», «[Date_Izm_Firm]<[Forms]![Выбор

ПериодаДля

Ж]![Date2] And [Date_Izm_Firm]>[Forms]![Выбор

ПериодаДля

Ж]![Date1]", acNormal

МакроcЖ1_Exit:

Exit Function

МакроcЖ1_Err:

MsgBox Error$

Resume МакроcЖ1_Exit

End Function

Option Compare Database

'

—————————————————————————————-;

' Макрос1

'

'

—————————————————————————————-;

Function Макрос1()

On Error GoTo Макрос1_Err

DoCmd.RunMacro «Макрос4», , «»

DoCmd.RunMacro «Макрос6», , «»

DoCmd.RunMacro «Макрос7», , «»

DoCmd.Close acForm, «Журнал1»

Макрос1_Exit:

Exit Function

Макрос1_Err:

MsgBox Error$

Resume Макрос1_Exit

End Function

Option Compare Database

'

—————————————————————————————-;

' Макрос10

'

'

—————————————————————————————-;

Function Макрос10()

On Error GoTo Макрос10_Err

DoCmd.OpenForm «Подвид», acNormal, «», «[Kod_Vid]=[Forms]![Вид]![Kod_Vid]», , acNormal

Макрос10_Exit:

Exit Function

Макрос10_Err:

MsgBox Error$

Resume Макрос10_Exit

End Function

Option Compare Database

'

—————————————————————————————-;

' Макрос11

'

'

—————————————————————————————-;

Function Макрос11()

On Error GoTo Макрос11_Err

DoCmd.OpenForm «Программа», acNormal, «», «[Kod_Podvid]=[Forms]![Подвид]![Kod_Podvid]», , acNormal

Макрос11_Exit:

Exit Function

Макрос11_Err:

MsgBox Error$

Resume Макрос11_Exit

End Function

Option Compare Database

'

—————————————————————————————-;

' Макрос12

'

'

—————————————————————————————-;

Function Макрос12()

On Error GoTo Макрос12_Err

DoCmd.GoToRecord acForm, «Ассор», acNext

Макрос12_Exit:

Exit Function

Макрос12_Err:

MsgBox Error$

Resume Макрос12_Exit

End Function

Option Compare Database

'

—————————————————————————————-;

' Макрос15

'

'

—————————————————————————————-;

Function Макрос15()

On Error GoTo Макрос15_Err

DoCmd.GoToControl «Prog»

DoCmd.RunCommand acCmdCopy

DoCmd.OpenForm «Журнал3», acNormal, «», «», acEdit, acNormal

DoCmd.GoToRecord acForm, «Журнал3», acNewRec

DoCmd.GoToControl «Prog»

DoCmd.RunCommand acCmdPaste

DoCmd.SelectObject acForm, «Программа», False

DoCmd.GoToControl «Tarif_Prog»

DoCmd.RunCommand acCmdCopy

DoCmd.OpenForm «Журнал3», acNormal, «», «», acEdit, acNormal

DoCmd.GoToRecord acForm, «Журнал3», acLast

DoCmd.GoToControl «Tarif1»

DoCmd.RunCommand acCmdPaste

DoCmd.SelectObject acForm, «Программа», False

DoCmd.OpenForm «Ввод

Тарифа", acNormal, «», «», acAdd, acNormal

Макрос15_Exit:

Exit Function

Макрос15_Err:

MsgBox Error$

Resume Макрос15_Exit

End Function

Option Compare Database

'

—————————————————————————————-;

' Макрос2

'

'

—————————————————————————————-;

Function Макрос2()

On Error GoTo Макрос2_Err

DoCmd.OpenForm «Выбор

ПериодаДля

Ж", acNormal, «», «», acAdd, acNormal

Макрос2_Exit:

Exit Function

Макрос2_Err:

MsgBox Error$

Resume Макрос2_Exit

End Function

Option Compare Database

'

—————————————————————————————-;

' Макрос3

'

'

—————————————————————————————-;

Function Макрос3()

On Error GoTo Макрос3_Err

DoCmd.OpenForm «Ассор», acFormDS, «», «[Kod_Prog]=[Forms]![Программа]![Kod_Prog]», acEdit, acNormal

Макрос3_Exit:

Exit Function

Макрос3_Err:

MsgBox Error$

Resume Макрос3_Exit

End Function

Option Compare Database

'

—————————————————————————————-;

' Макрос4

'

'

—————————————————————————————-;

Function Макрос4()

On Error GoTo Макрос4_Err

DoCmd.GoToControl «NameFirm»

DoCmd.RunCommand acCmdCopy

DoCmd.OpenForm «Журнал1», acNormal, «», «», , acNormal

DoCmd.GoToRecord acForm, «Журнал1», acNewRec

DoCmd.GoToControl «NameFirm»

DoCmd.RunCommand acCmdPaste

Макрос4_Exit:

Exit Function

Макрос4_Err:

MsgBox Error$

Resume Макрос4_Exit

End Function

Option Compare Database

'

—————————————————————————————-;

' Макрос6

'

'

—————————————————————————————-;

Function Макрос6()

On Error GoTo Макрос6_Err

DoCmd.GoToRecord acForm, «Журнал1», acLast

DoCmd.GoToControl «New»

Forms!Журнал1!New = True

Макрос6_Exit:

Exit Function

Макрос6_Err:

MsgBox Error$

Resume Макрос6_Exit

End Function

Option Compare Database

'

—————————————————————————————-;

' Макрос7

'

'

—————————————————————————————-;

Function Макрос7()

On Error GoTo Макрос7_Err

DoCmd.GoToRecord acForm, «Журнал1», acLast

DoCmd.GoToControl «Date_Izm_Firm»

Forms!Журнал1!Date_Izm_Firm = Date

Макрос7_Exit:

Exit Function

Макрос7_Err:

MsgBox Error$

Resume Макрос7_Exit

End Function

Option Compare Database

'

—————————————————————————————-;

' Макрос8

'

'

—————————————————————————————-;

Function Макрос8()

On Error GoTo Макрос8_Err

DoCmd.GoToRecord acForm, «Журнал1», acLast

DoCmd.GoToControl «Del»

Forms!Журнал1!Del = True

Макрос8_Exit:

Exit Function

Макрос8_Err:

MsgBox Error$

Resume Макрос8_Exit

End Function

ption Compare Database

'

—————————————————————————————-;

' Макрос9

'

'

—————————————————————————————-;

Function Макрос9()

On Error GoTo Макрос9_Err

DoCmd.RunMacro «Макрос4», , «»

DoCmd.RunMacro «Макрос8», , «»

DoCmd.RunMacro «Макрос7», , «»

DoCmd.Close acForm, «Журнал1»

DoCmd.RunCommand acCmdDeleteRecord

DoCmd.GoToRecord acForm, «Фирмы», acFirst

Макрос9_Exit:

Exit Function

Макрос9_Err:

MsgBox Error$

Resume Макрос9_Exit

End Function

Option Compare Database

'

—————————————————————————————-;

' Макрос

Ж2

'

'

—————————————————————————————-;

Function Макрос

Ж2()

On Error GoTo Макрос

Ж2_Err

DoCmd.OpenReport «Журнал2», acViewPreview, «», «[Date_Izm_Prog]<[Forms]![Выбор

ПериодаДля

Ж]![Date2] And [Date_Izm_Prog]>[Forms]![Выбор

ПериодаДля

Ж]![Date1]", acNormal

Макрос

Ж2_Exit:

Exit Function

Макрос

Ж2_Err:

MsgBox Error$

Resume Макрос

Ж2_Exit

End Function

Option Compare Database

'

—————————————————————————————-;

' Макрос

Ж3

'

'

—————————————————————————————-;

Function Макрос

Ж3()

On Error GoTo Макрос

Ж3_Err

DoCmd.OpenReport «Журнал3», acViewPreview, «», «[Date_Izm_Tarif]<[Forms]![Выбор

ПериодаДля

Ж]![Date2] And [Date_Izm_Tarif]>[Forms]![Выбор

ПериодаДля

Ж]![Date1]", acNormal

Макрос

Ж3_Exit:

Exit Function

Макрос

Ж3_Err:

MsgBox Error$

Resume Макрос

Ж3_Exit

End Function

ption Compare Database

'

—————————————————————————————-;

' Макрос

ОтчетПоВидам

'

'

—————————————————————————————-;

Function Макрос

ОтчетПоВидам ()

On Error GoTo Макрос

ОтчетПоВидам_Err

DoCmd.OpenReport «Запрос

Перекрестный2″, acViewPreview, «», «», acNormal

Макрос

ОтчетПоВидам_Exit:

Exit Function

Макрос

ОтчетПоВидам_Err:

MsgBox Error$

Resume Макрос

ОтчетПоВидам_Exit

End Function

Option Compare Database

'

—————————————————————————————-;

' Макрос

ОтчетПоФирме

'

'

—————————————————————————————-;

Function Макрос

ОтчетПоФирме ()

On Error GoTo Макрос

ОтчетПоФирме_Err

DoCmd.OpenReport «Запрос

Перекрестный", acViewPreview, «», «», acNormal

Макрос

ОтчетПоФирме_Exit:

Exit Function

Макрос

ОтчетПоФирме_Err:

MsgBox Error$

Resume Макрос

ОтчетПоФирме_Exit

End Function

Option Compare Database

'

—————————————————————————————-;

' Начать

ВводСлед

Фирмы

'

'

—————————————————————————————-;

Function Начать

ВводСлед

Фирмы ()

On Error GoTo Начать

ВводСлед

Фирмы_Err

DoCmd.GoToControl «Kod_Period»

DoCmd.RunCommand acCmdCopy

DoCmd.GoToRecord acForm, «Форма

ДобПремии", acNext

DoCmd.GoToControl «Kod_Period»

DoCmd.RunCommand acCmdPaste

DoCmd.GoToControl «Kod_Firm»

Начать

ВводСлед

Фирмы_Exit:

Exit Function

Начать

ВводСлед

Фирмы_Err:

MsgBox Error$

Resume Начать

ВводСлед

Фирмы_Exit

End Function

Option Compare Database

'

—————————————————————————————-;

' Открытие_Форма

ДобПремии

'

'

—————————————————————————————-;

Function Открытие_Форма

ДобПремии ()

On Error GoTo Открытие_Форма

ДобПремии_Err

DoCmd.OpenForm «Форма

ДобПремии", acNormal, «», «», , acNormal

DoCmd.GoToRecord acForm, «Форма

ДобПремии", acNewRec

DoCmd.GoToControl «Kod_Period»

Открытие_Форма

ДобПремии_Exit:

Exit Function

Открытие_Форма

ДобПремии_Err:

MsgBox Error$

Resume Открытие_Форма

ДобПремии_Exit

End Function

Option Compare Database

'

—————————————————————————————-;

' Отмена

ДобФирмы

'

'

—————————————————————————————-;

Function Отмена

ДобФирмы ()

On Error GoTo Отмена

ДобФирмы_Err

DoCmd.Close acForm, «Код

Фирмы"

DoCmd.GoToRecord acTable, «Ассортимент услуг», acLast

DoCmd.RunCommand acCmdDeleteRecord

DoCmd.Close acTable, «Ассортимент услуг»

DoCmd.SelectObject acForm, «Программа», False

Отмена

ДобФирмы_Exit:

Exit Function

Отмена

ДобФирмы_Err:

MsgBox Error$

Resume Отмена

ДобФирмы_Exit

End Function

Option Compare Database

'

—————————————————————————————-;

' Сохранить

ВводТарифа

'

'

—————————————————————————————-;

Function Сохранить

ВводТарифа ()

On Error GoTo Сохранить

ВводТарифа_Err

DoCmd.RepaintObject acForm, «Ввод

Тарифа"

DoCmd.GoToRecord acForm, «Ввод

Тарифа", acGoTo

DoCmd.RunCommand acCmdSelectRecord

DoCmd.GoToControl «Поле0»

DoCmd.RunCommand acCmdCopy

DoCmd.Close acForm, «Ввод

Тарифа"

DoCmd.SelectObject acForm, «Журнал3», False

DoCmd.GoToRecord acForm, «Журнал3», acLast

DoCmd.GoToControl «Tarif2»

DoCmd.RunCommand acCmdPaste

DoCmd.GoToControl «Delta»

Forms!Журнал3!Delta = Forms! Журнал3!Tarif2 — Forms! Журнал3!Tarif1

DoCmd.GoToControl «Date_Izm_Tarif»

Forms!Журнал3!Date_Izm_Tarif = Date

DoCmd.Close acForm, «Журнал3»

DoCmd.SelectObject acForm, «Программа», False

DoCmd.GoToControl «Tarif_Prog»

DoCmd.RunCommand acCmdDelete

DoCmd.RunCommand acCmdPaste

DoCmd.GoToRecord acForm, «Программа», acNext

Сохранить

ВводТарифа_Exit:

Exit Function

Сохранить

ВводТарифа_Err:

MsgBox Error$

Resume Сохранить

ВводТарифа_Exit

End Function

Option Compare Database

'

—————————————————————————————-;

' Сохр

ВводаПремии

'

'

—————————————————————————————-;

Function Сохр

ВводаПремии ()

On Error GoTo Сохр

ВводаПремии_Err

DoCmd.GoToControl «Kod_Period»

DoCmd.RunCommand acCmdCopy

DoCmd.GoToRecord acForm, «Форма

ДобПремии", acNext

DoCmd.GoToControl «Kod_Period»

DoCmd.RunCommand acCmdPaste

DoCmd.GoToControl «Kod_Firm»

Сохр

ВводаПремии_Exit:

Exit Function

Сохр

ВводаПремии_Err:

MsgBox Error$

Resume Сохр

ВводаПремии_Exit

End Function

Option Compare Database

'

—————————————————————————————-;

' Фильтр

ПоФирме

'

'

—————————————————————————————-;

Function Фильтр

ПоФирме ()

On Error GoTo Фильтр

ПоФирме_Err

DoCmd.OpenForm «Ассор

ДляПремии", acFormDS, «», «[Kod_Firm]=[Forms]![Фирма

ДляПремии]![Поле

СоСписком0]", acReadOnly, acNormal

Фильтр

ПоФирме_Exit:

Exit Function

Фильтр

ПоФирме_Err:

MsgBox Error$

Resume Фильтр

ПоФирме_Exit

End Function

Option Compare Database

'

—————————————————————————————-;

' Фирма

ДляПрогр

'

'

—————————————————————————————-;

Function Фирма

ДляПрогр ()

On Error GoTo Фирма

ДляПрогр_Err

DoCmd.OpenForm «А», acNormal, «», «[Kod_Prog]=[Forms]![Программа]![Kod_Prog]», , acNormal

Фирма

ДляПрогр_Exit:

Exit Function

Фирма

ДляПрогр_Err:

MsgBox Error$

Resume Фирма

ДляПрогр_Exit

End FunctionСлайды презентации Приложение 6

Колесников С., Об оценке эффективности внедрения и применения ERP-систем CONSULTING.RU, 2003. ;

http://consulting.ru/econs_art_134 655 631/cons_printview

Распечатать файл отчетной формы MS Excel и файл с данными об изменениях по конкурентам и программам MS Word

Собственный капитал

Источники собственных средств (раздел 1)

Постоянный (перманентный) капитал Заемный капитал

Долгосрочные финансовые обязательства (раздел 2)

Краткосрочные финансовые обязательства (раздел 3)

Выполнение работы по отчетности об изменениях на страховом рынке города.

Переменный капитал

Найти необходимую информацию о каждой фирме-конкуренте в Интернет, прессе, др. источников за (N+1) -ый период

Рис.

1.1 Логотип компании «Росгосстрах»

Рис. 1.2 Организационная структура управления «Росгосстрах»

Рис. 1.4 Уровень пользования страховыми услугами в России

Бухгалтерия

Операционный отдел

Заместитель генерального директора

Генеральный директор

Головной офис в Москве

Автомобильный отдел

Технический эксперт / отдел урегулирования убытков

Начальник агентской группы

Отдел корпоративных продаж

Отдел офисных продаж

агенты

Рис.

1.3 Организационная структура филиала «РГС-Столица» в г. Мытищи

Путем копирования в форму для отчетности внести данные о тарифах и премиях за (N+1)-ый период Откорректировать данные в форме для отчетности для внесения новой информации (файл в MS Excel)

Сохранить информацию по каждому конкуренту в отдельной папке.

Перенести данные из столбца за N-ый период в столбец (N-1)-ый период.

Зафиксировать изменения по конкурентам и программам в отдельном документе MS Word

Откорректировать данные по конкурентам и их программам

Удалить данные по тарифам и премиям за (N-1)-ый период Рис.

2.2 Контекстная диаграмма в нотации IDEF0, выполненная в программе BPWin.

Рис.

2.4 Диаграмма декомпозиции «КАК БУДЕТ» в нотации IDEF0, выполненная в программе BPWin.

Продолжение 7

Рис.

2.3 Диаграмма декомпозиции «КАК ЕСТЬ» в нотации IDEF0, выполненная в программе BPWin.

Увеличение оперативности реагирования компании на изменения на страховом рынке города

Повышение дисциплины составления ревю и отчетов о конкурентах

Сокращение времени на выполнение задачи составления отчетов менеджером с 50% до 30% за квартал

Сокращение трудовых затрат

Сокращение эксплуатационных затрат с 110 982,5 руб. в год до 77 770 руб. в год

Высвобождение эксплуатационных средств в размере 33 212,5 руб. в год

Сокращение потребности в эксплуатационных затратах Виды страхования

Подвиды страхования

Программы страхования

Страховые премии

Фирмы

А

В

АВ

Страховая Фирма

Прог-рамма

Вид страхования

А

В

Вид страхования

АВ

Страховая Фирма

Прог-рамма

Возможность анализа данных за большой период времени Ассортимент фирмы

Учет изменений по программам

Учет изменений по тарифам

Учет изменений по фирмам

Архивация данных о всех изменениях на рынке

Автоматизированное составление отчетов

Представление данных в отчетах в виде более удобном для дальнейшего анализа

Автоматизированное составление отчетов об изменениях на страховом рынке

Контроль за конкурентоспособностью фирмы

Повышение эффективности работы с документами

Интенсификация использования ресурсов Функция Бизнес-процесс1

Бизнес-решение Бизнес-процесс1.

Задача Цель Бизнес-стратегия

Преобразование качественных факторов эффективности в качественные показатели «выгода»

Формирование «ДЕРЕВА» — содержательная информатизация бизнес-процессов Уровни «ДЕРЕВА»

Рис. 3.19 Отчет об изменениях по тарифам за период.

Рис. 3.18 Отчет о страховых премиях, группированных по видам страхования

Рис. 3.4 ER-диаграмма предметной области

имеет

имеет

Содержится

включает

включает

Входит в ассортимент

Включает в ассортимент

Фиксирует изменения

Фиксирует изменения

Фиксирует изменения

Журнал2

Журнал1

Журнал3

Период

Подвид

Премия

Вид

Программа

Фирма

Код в журнале3

Программа Старый тариф Новый тариф Дата изменения

Код в журнале 2

Программа Новая/удалена Дата изменения

Код вида Вид

Код подраздела Код вида Подраздел

Код программы Код подраздела Программа Тариф О программе

Код премии Код вида Код фирмы Сумма премии Квартал

Код периода Дата начальная Дата конечная Квартал

Код в журнале1

Фирма Новая/удалена Дата изменения

Код фирмы Наименование Адрес Телефон Факс

Рис. 3.5 Главная кнопочная форма

Рис. 3.17 Журнал изменений по тарифам

Рис. 3.16 Кнопочная форма. Пункты подменю «Журналы»

Рис. 3.13 Выбор параметров просмотра страховых премий

Рис. 3.14 Просмотр журнала страховых премий

Рис. 3.15 Ввод новых данных в журнал премий

Рис. 3.12 Кнопочная форма. Пункты подменю «Премии»

Рис. 3.11 Форма просмотра фирм, в ассортимент которой входит выбранная программа

Рис. 3.10 Форма ввода нового тарифа

Рис. 3.9 Справочник программ по выбранному виду страхования и подразделу.

Рис. 3.8 Выбор подраздела вида страхования

Рис. 3.7 Выбор вида страхования

Рис. 3.6 Справочник страховых организаций

Периоды Продолжение 1

Продолжение 5

Продолжение 2

Продолжение 2

Продолжение 1

Продолжение 6

Продолжение 5

Ввод новых данных Ввод возврат Рис. 3.19 Сценарий диалога

Отчет о страховых премиях по фирмам за отчетный период формирование просмотр печать

Отчет о страховых премиях по фирмам за отчетный период формирование просмотр печать

Журнал изменений по тарифам за отчетный период просмотр печать

Журнал изменений по программам за отчетный период просмотр печать

Журнал изменений по фирмам за отчетный период просмотр печать Продолжение 3

Отчеты Выбор группировки Просмотр журнала Просмотр возврат Печать отчетов Печать сразу трех отчетов за последний отчетный период

Продолжение 4

Справочник программ страхования просмотр редактирование программ ввод новых программ редактирование ассортимента фирм ввод нового ассортимента редактирование тарифов возврат Справочник Фирм просмотр редактирование ввод возврат

Журналы изменений

Премии

Фирмы

Помощь

Выход Программы

Основное меню

Справочник программ страхования просмотр редактирование программ редактирование ассортимента фирм редактирование тарифов Страховые премии Ввод Просмотр

Программы Ввод новых программ Ввод ассортимента фирм

Справочник изменений по тарифам Просмотр Печать Справочник изменений по программам Просмотр Печать Справочник изменений по фирмам Просмотр Печать Справочник Фирм просмотр редактирование

Журнал изменений по программам за отчетный период формирование просмотр печать

Фирмы Ввод новых записей

Журнал изменений по фирмам за отчетный период формирование просмотр печать

Рис. 3.18 Дерево функций

Отчет о страховых премиях по фирмам за отчетный период формирование просмотр печать

Отчет о страховых премиях по фирмам за отчетный период формирование просмотр печать

Журнал изменений по тарифам за отчетный период формирование просмотр печать

Формирование отчетов

Ввод новых данных

Основные функции

Служебные функции

Проверка пароля

Архивация данных

Работа со справочниками

Основное меню