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

Оглавление
ВВЕДЕНИЕ
1. Аналитическая часть.
1.1. Общая характеристика предприятия
1.2. Анализ конъюнктуры рынка
1.3. Анализ хозяйственной деятельности предприятия
1.4. Организационно-экономическая характеристика предметной области
1.5. Выводы по аналитической части
2. Обоснование проектных решений по автоматизированному решению экономико-информационных задач
2.1. Моделирование бизнес-процессов предметной области отдела офисных продаж, связанных с подготовкой отчетов по изменениям условий конкуренции на страховом рынке в филиале «Росгосстрах-Столица» города Мытищи.
2.2. Обоснование выбора задач, входящих в комплекс
2.3. Обоснование проектных решений по информационному обеспечению комплекса задач.
2.4. Обоснование проектных решений по программному обеспечению комплекса задач.
Выводы

Для тушения пожаров в замкнутых объемах, каким и является помещение техотдела, применяют углекислый газ для прекращения подачи кислорода воздуха к очагу возгорания.
Первичными средствами пожаротушения могут послужить ручные огнетушители типа: ОУ-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_134655631/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