Автоматизированная информационная система обработки данных учета пенсионных начислений и компенсаций ЦСО Военного комиссариата Курской области

  • Вид работы:
    Дипломная (ВКР)
  • Предмет:
    Информационное обеспечение, программирование
  • Язык:
    Русский
    ,
    Формат файла:
    MS Word
    938,62 Кб
  • Опубликовано:
    2013-11-18
Вы можете узнать стоимость помощи в написании студенческой работы.
Помощь в написании работы, которую точно примут!

Автоматизированная информационная система обработки данных учета пенсионных начислений и компенсаций ЦСО Военного комиссариата Курской области

МИНИСТЕРСТВО ОБРАЗОВАНИЯ И НАУКИ РОССИЙСКОЙ ФЕДЕРАЦИИ

Федеральное государственное бюджетное образовательное учреждение высшего профессионального образования

РОССИЙСКИЙ ГОСУДАРСТВЕННЫЙ СОЦИАЛЬНЫЙ УНИВЕРСИТЕТ

КУРСКИЙ ИНСТИТУТ СОЦИАЛЬНОГО ОБРАЗОВАНИЯ

(ФИЛИАЛ) РГСУ

Инженерно-технический факультет

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

«УТВЕРЖДАЮ»

Зав. кафедрой

___________________А.Н. Гранкин

«_____»_______________2013 г.

ПОЯСНИТЕЛЬНАЯ ЗАПИСКА

к выпускной квалификационной работе

на тему

«Автоматизированная информационная система обработки данных учета пенсионных начислений и компенсаций ЦСО Военного комиссариата Курской области»

Автор выпускной квалификационной работы Пахомов И.Н._______________

Обозначение выпускной квалификационной работы ВКР 230102.65.08.021.13 ПЗ

Специальность 230102.65 «Автоматизированные системы обработки информации и управления»

Руководитель выпускной квалификационной работы __________ С.А. Зайцев

Нормоконтроль                    ______________________ А.Н. Гранкин

Курск, 2013

МИНИСТЕРСТВО ОБРАЗОВАНИЯ И НАУКИ РОССИЙСКОЙ ФЕДЕРАЦИИ

Федеральное государственное бюджетное образовательное учреждение высшего профессионального образования

РОССИЙСКИЙ ГОСУДАРСТВЕННЫЙ СОЦИАЛЬНЫЙ УНИВЕРСИТЕТ

КУРСКИЙ ИНСТИТУТ СОЦИАЛЬНОГО ОБРАЗОВАНИЯ

(ФИЛИАЛ) РГСУ

Инженерно-технический факультет

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

«УТВЕРЖДАЮ»

Зав. кафедрой

___________________А.Н. Гранкин

«_____»_______________2013 г.

ЗАДАНИЕ НА ВЫПУСКНУЮ КВАЛИФИКАЦИОННУЮ РАБОТУ

Студент 21 группа

.        Тема: «Автоматизированная информационная система обработки данных учета пенсионных начислений и компенсаций ЦСО Военного комиссариата Курской области»

.        Срок представления выпускной квалификационной работы к защите

.        Содержание пояснительной записки:

Введение

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

         Обзор программного обеспечения, используемого в ЦСО ВККО

         Проектирование автоматизированной информационной системы обработки данных учета пенсионных начислений и компенсаций ЦСО Военного комиссариата Курской области

         Тестирование разработанного ПО

         Расчет системы кондиционирования офисного помещения ЦСО

Выводы

Библиографический список

Приложения

4. Перечень графического материала:

Руководитель выпускной

квалификационной работы                     С.А. Зайцев

Нормоконтроль                              А.Н. Гранкин

Содержание

Введение

.        Анализ типовых программных решений для учета данных в системах начисления военный пенсий

.1      Анализ возможностей использования решений на базе 1С

.1.1   Области применения

.1.2   Назначение типовых решений

.1.3   Автоматизация отдельных задач или комплексная автоматизация

.1.4   Поддержка и сервис

.1.5   «1С:Документооборот государственного учреждения 8»

.1.6   Работа с документами

.1.7   Веб-сервисы

.2      Анализ возможностей использования решений на базе Microsoft Dynamics AX (Microsoft Axapta)

.2.1   Характеристика «Microsoft Dynamics AX»

.2.2   Microsoft Dynamics AX 2012 обеспечивает:

.2.3   Microsoft Dynamics AX 2012 для России

.3      Анализ возможностей использования решений на базе CA Clipper

.4      Анализ возможностей использования решений на базе FoxPro

.4.1   Особенности языка FoxPro

.5      Выводы по главе

.        Обзор программного обеспечения, используемого в ЦСО ВККО

.1      Общие положения

В настоящее время в ЦСО применяется устаревшая

.1.1   Применяемые термины

.1.2   Схема организации работы по формированию файлов электронного реестра

.2      Назначение пенсий, пособий (компенсаций) индивидуальное

.2.1   Назначение пособий, компенсаций

.2.2   Назначение пенсий

.2.2.1 Разрешение на выплату пенсии

.2.2.2 Перерасчет пенсий

.3      Назначение пособий (компенсаций) списком

.3.1   Формирование списка

.3.2   Обработка списка

.4      Назначение пенсий списком (после массового перерасчета)

.5      Формирование реестра выплат, назначенных исполнителем

.6      Печать реестра выплат, назначенных исполнителем

.7      Формирование электронного реестра.

.7.1   Формирование списка выплат для электронного реестра 66

.7.1.1 Выбор файла для электронного реестра (даты формирования реестра)

.7.1.2 Выбор реестров исполнителей

.7.1.3 Загрузка реестров исполнителей

.7.1.4 Печать ведомости (списка), вывод данных в файл реестра для ОСБ.

.7.2   Формирование файлов электронного реестра

.7.2.1 Формирование электронных реестров по каждому подразделению Сбербанка

.7.2.2 Формирование единого электронного реестра для всех подразделений Сбербанка

.7.3   Формирование транспортных пакетов для передачи в Сбербанк

.7.3.1 Установка программы формирования транспортных пакетов ZIP32

.7.3.2 Формирование единого транспортного пакета (за все ОСБ)     

.7.3.3 Формирование транспортных пакетов по каждому ОСБ

.8      Выводы по главе.

.        Проектирование АвтоматизированнОЙ информационнОЙ системЫ обработки данных учета пенсионных начислений и компенсаций ЦСО Военного комиссариата Курской области

.1      Формирование базы данных проекта

.2      Проектирование экранных форм

.3      Вывод по главе

.        Тестирование разработанного ПО

.1      Проверка на сохранность целостности данных

.2      Проверка на контроль за соответствием типов данных

.3      Выводы по главе

.        Расчет системы кондиционирования офисного помещения ЦСО

.1      Введение

.2      Расчет поступления тепла и влаги в помещение (тепловой баланс)

.2.1   Расчетные параметры воздуха

.2.2   Поступление тепла и влаги в помещение

.3      Построение в Id диаграмме процессов обработки воздуха в теплый и холодный период года

.3.1   Расчет производительности СКВ

.3.2   Расчет количества тепла для подогревателей 1-ого и 2-ого подогрева

.3.3   Расчет количества холода в воздухоохладителях для летнего периода

.3.4   Расчет количества воды, испарившейся в оросительной камере

.4      Выбор типоразмера кондиционера и расчет его секций

.4.1   Расчет и подбор воздухонагревателей

.4.2   Расчет камер орошения

.5      Холодоснабжение СКВ

.6      Аэродинамический расчет СКВ

.6.1   Выбор схемы распределения воздуха в помещении

.6.2   Подбор диаметров воздуховодов и расчет потерь давления

.6.3   Подбор вентилятора

.7      Выводы по главе

Выводы

Библиографический список

Приложения

 

Введение


В настоящее время эффективность управленческой деятельности зависит в первую очередь от автоматизации всех управленческих процессов. Таким образом, успешная автоматизация управления предприятием зависит от правильного выбора автоматизированной системы. Задачи, связанные с обработкой данных, широко распространены в любой сфере деятельности. Они ведут учет товаров в супермаркетах и на складах, начисляют зарплату в бухгалтериях и т.д. Невозможно представить себе деятельность современного предприятия или учреждения без использования АИС. Эти системы составляют фундамент информационной деятельности во всех сферах, начиная с производства, управления финансами и телекоммуникациями и заканчивая управлением семейным бюджетом.

В Центре Социальной Обеспечения Военного Комиссариата Курской Области используется программа «PENSION.EXE», реализованная на CA CLIPPER 5.0 под операционную систему MS-DOS 6.22, которая ведет учет пенсионных дел военнослужащих Курской области, а также всех выплат и компенсации по этим делам.

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

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

Цель: обеспечение целостности данных таблиц существующей системы «Pension» путем перевода системы на новую платформу Microsoft® Visual FoxPro 9.0 Professional с сохранением формата данных.

Задачи:

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

.        Провести обзор программного обеспечения, используемого в ЦСО ВККО

.        Разработать программное обеспечение управления таблицами данных в автоматизированной информационной системе формирования отчетных данных реестра по начислению пенсионных выплат и компенсаций ЦСО Военного комиссариата Курской области

.        Выполнить тестирование разработанного приложения

.        Выполнить расчет системы кондиционирования офисного помещения ЦСО

1.      Анализ типовых программных решений для учета данных в системах начисления военный пенсий


1.1    Анализ возможностей использования решений на базе 1С


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

1.1.1 Области применения

Гибкость платформы позволяет применять 1С:Предприятие 8.2 в самых разнообразных областях:

·        автоматизация производственных и торговых предприятий, бюджетных и финансовых организаций, предприятий сферы обслуживания и т.д.

·        поддержка оперативного управления предприятием;

·        автоматизация организационной и хозяйственной деятельности;

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

·        широкие возможности для управленческого учета и построения аналитической отчетности, поддержка многовалютного учета;

·        решение задач планирования, бюджетирования и финансового анализа;

·        расчет зарплаты и управление персоналом;

·        другие области применения.

1.1.2 Назначение типовых решений

Типовые прикладные решения фирмы "1С" предназначены для автоматизации типовых задач учета и управления предприятий. При разработке типовых прикладных решений учитывались как современные международные методики управления (MRP II, CRM, SCM, ERP, ERP II и др.), так и реальные потребности предприятий, не укладывающиеся в стандартный набор функциональности этих методик, а также опыт успешной автоматизации, накопленный фирмой "1С" и партнерским сообществом. Состав функциональности, включаемой в типовые решения, тщательно проработан. Фирма "1С" анализирует опыт пользователей, применяющих программы системы "1С:Предприятие" и отслеживает изменение их потребностей.

Для использования на российских предприятиях фирма "1С" предлагает следующие типовые тиражные прикладные решения:

·        "1С:Бухгалтерия 8.2",

·        "Управление торговлей",

·        "Зарплата и Управление Персоналом",

·        "Управление производственным предприятием".

Наиболее полную реализацию функциональных возможностей системы программ "1С:Предприятие 8.2" представляет прикладное решение "Управление производственным предприятием". Функциональные области, автоматизируемые этим и другими типовыми прикладными решениями, поясняются следующей структурной схемой.

Рисунок 1.2 - Прикладное решение "Управление производственным предприятием"

Функциональные возможности различных прикладных решений можно сравнить на этой схеме.

Стандартизация типовых решений

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

Типовое прикладное решение можно представить в виде набора стандартных элементов - объектов конфигурации, которые обеспечивают реализацию той или иной функциональности. Один и тот же стандартный элемент может присутствовать в разных тиражных прикладных решениях. Стандартизация элементов прикладных решений облегчает освоение типовых прикладных решений пользователями, упрощает техническую поддержку, обновление и доработку силами сертифицированных специалистов фирм-партнеров, а также облегчает создание новых специализированных и индивидуальных прикладных решений на базе типовых прикладных решениях фирмы "1С".

1.1.3 Автоматизация отдельных задач или комплексная автоматизация

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

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

1.1.4 Поддержка и сервис

При выборе системы важно оценить перспективы эксплуатации и развития системы.

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

В России, странах СНГ и Балтии работают десятки тысяч специалистов, профессионально занимающихся внедрением и адаптацией прикладных решений "1С:Предприятия". В каждом регионе существует большое количество франчайзинговых фирм, оказывающих весь спектр услуг по комплексной автоматизации на базе программ системы "1С:Предприятие" - начиная от консультаций по выбору наиболее подходящих программ системы и заканчивая обучением и индивидуальной настройкой системы. Многие из специалистов, занимающихся внедрением "1С:Предприятия", решают не только задачи, связанные с поддержкой или развитием прикладных решений, но и оказывают консалтинговые услуги, помогая принимать правильные решения при постановке учета и управления на предприятии. Фирма "1С" проводит регулярное обучение и сертификацию специалистов.

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

1.1.5 «1С: Документооборот государственного учреждения 8»

«1С:Документооборот государственного учреждения 8» в комплексе решает широкий спектр задач автоматизации учета документов, взаимодействия сотрудников, контроля и анализа исполнительской дисциплины. При наличии у пользователя соответствующих клиентских лицензий программа поддерживает многопользовательскую работу в локальной сети или через Интернет, в том числе и через веб-браузеры.

«1С:Документооборот государственного учреждения 8» соответствует основным делопроизводственным стандартам, ГОСТам и нормативным актам:

·        ГОСТ Р 6.30-2003 «Унифицированная система организационно-распорядительной документации. Требования к оформлению документов»;

·        ГОСТ Р 51141-98 «Делопроизводство и архивное дело. Термины и определения»;

·        Федеральный закон от 02.05.2006 № 59-ФЗ «О порядке рассмотрения обращений граждан Российской Федерации»;

·        Федеральный закон от 27.07.2006 № 152-ФЗ «О персональных данных». Принят Государственной Думой 08.07.2006;

·        Постановление Правительства от 15.06.2009 № 477 «Об утверждении Правил делопроизводства в федеральных органах исполнительной власти»;

·        Методические рекомендации по разработке инструкций по делопроизводству в федеральных органах исполнительной власти. Утверждены приказом Росархива от 23.12.2009 № 76;

·        Государственная система документационного обеспечения управления. Основные положения. Общие требования к документам и службам документационного обеспечения;

·        ГОСТ Р 53898-2010 «Системы электронного документооборота. Взаимодействие систем управления документами. Требования к электронному сообщению»;

·        Постановление Правительства Российской Федерации от 22.09.2009 № 754 «Об утверждении Положения о системе межведомственного электронного документооборота»;

·        Приказ Министерства связи и массовых коммуникаций Российской Федерации от 02.09.2011 № 221 «Об утверждении Требований к информационным системам электронного документооборота федеральных органов исполнительной власти, учитывающих в том числе необходимость обработки посредством данных систем служебной информации ограниченного распространения».

1.1.6 Работа с документами

«1С:Документооборот государственного учреждения 8» позволяет работать с документами любых типов. Каждый документ сопровождается учетно-регистрационной карточкой, набор реквизитов которой соответствует ГОСТ Р 6.30-2003, требованиям ГСДОУ, рекомендациям Росархива и традициям делопроизводства, сложившимся в отечественной практике.

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

Права доступа

В программе «1С:Документооборот государственного учреждения 8» внутренние документы и файлы хранятся в структуре папок с учетом прав доступа.

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

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

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

Регистрация входящих и исходящих документов

«1С:Документооборот государственного учреждения 8» позволяет вести учет и регистрацию входящей и исходящей корреспонденции. При этом осуществляется автоматическая генерация сквозных регистрационных номеров по настроенным правилам.

Регистрация документа сопровождается следующими процессами:

·        учет поступивших документов, сканирование бумажных документов, печать штрих-кодов и регистрационных штампов;

·        автоматизация процедуры рассмотрения документов, отправки на исполнение и постановки на контроль;

·        поддержка регламентированных сроков исполнения документов;

·        ведение номенклатуры дел, формирование дел, передача закрытых дел на архивное хранение или уничтожение;

·        последующее формирование отчетов по поступлению и исполнению документов, по просроченным документам.

Учет обращений граждан

В программе предусмотрена регистрация и обработка обращений граждан в соответствии с Федеральным законом от 02.05.2006 № 59-ФЗ «О порядке рассмотрения обращений граждан Российской Федерации».

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

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

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

Межведомственный электронный документооборот

«1С:Документооборот государственного учреждения 8» имеет возможность передавать и принимать документы посредством МЭДО.

МЭДО обеспечивает автоматический обмен электронными документами между различными предприятиями и учреждениями в соответствии с ГОСТ Р 53898-2010.

При использовании МЭДО программа автоматически осуществляет многие операции, которые обычно выполняются сотрудниками вручную:

·        обмен входящими и исходящими документами,

·        учет поступающих документов в журналах,

·        увязывание входящих и исходящих документов в цепочки,

·        отслеживание состояния отправленных документов.

Сканирование

В «1С:Документообороте государственного учреждения 8» предусмотрена возможность загружать входящие, исходящие, внутренние документы и файлы со сканеров любых типов, поддерживающих интерфейс TWAIN. Сканирование осуществляется в форматы jpg, pdf и tif, в том числе и многостраничный.

Поддерживается потоковое сканирование с автоматическим распознаванием штрих-кодов документов и формирование многостраничных tif или pdf файлов.

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

Электронная почта

Встроенная почта предоставляет возможность работать с письмами непосредственно в «1С:Документообороте государственного учреждения 8» при помощи полноценного почтового клиента. При этом письма являются такими же учетными единицами, как и входящие и исходящие документы.

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

Имеется дополнительная возможность отправки и получения почтовых сообщений с помощью внешних почтовых клиентов. Поддерживаются почтовые клиенты Microsoft Outlook, The Bat, Mozilla Thunderbird и другие клиенты, работающие по протоколу MAPI.

Просмотр, редактирование и контроль версий

Для просмотра и редактирования документов «1С:Документооборот государственного учреждения 8» использует соответствующие приложения, установленные на локальных компьютерах пользователей.

Текстовые файлы можно просматривать и редактировать во встроенном текстовом редакторе непосредственно в программе.

Повседневная работа с документами и файлами выполняется непосредственно на рабочем столе; пользователь видит список редактируемых документов и список невыполненных задач.

«1С:Документооборот государственного учреждения 8» обеспечивает доступ сотрудников к файлам, как для просмотра, так и для редактирования. Конфликты при одновременном редактировании документов исключаются благодаря механизму блокировки файлов.

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

Непосредственно из карточки файла можно посмотреть список версий, удалить ненужные, сменить активную (текущую) версию. Для файлов популярных форматов (doc, rtf, html, txt, odt) поддерживается сравнение версий.

Шаблоны документов и файлов

В «1С:Документообороте государственного учреждения 8» пользователи могут настраивать и использовать автоматически заполняемые шаблоны файлов и документов. При создании нового файла из шаблона поля шаблона автоматически заполняются учетными данными, например, наименование, автор, дата создания, сумма договора, реквизиты контрагента.

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

Электронная подпись

В «1С:Документообороте государственного учреждения 8» поддерживается возможность использовать сертифицированные механизмы ЭП для подписания и шифрования документов и файлов. Электронная подпись позволяет установить отсутствие искажения информации в электронном документе.

Печать регистрационных штампов документов

В «1С:Документообороте государственного учреждения 8» пользователи могут выводить на печать регистрационный штамп документа, который содержит название организации, регистрационный номер и дату регистрации, штрих-код. Регистрационный штамп может печататься как на отдельном листе, так и поверх титульного листа бумажного документа.

Формирование дел

Программа «1С:Документооборот государственного учреждения 8» позволяет вести номенклатуру дел учреждения, отражать списание документов в дела, формировать регистрационный номер документа с использованием индекса по номенклатуре дел, отражать передачу дел в архив и уничтожение дел. Также поддерживается печать разнообразных делопроизводственных отчетов и печатных форм, таких как обложка дела, внутренняя опись документов дела, итоговая запись о категориях и количестве дел и т. п.

Контроль переданных документов

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

Связи между документами

В «1С:Документообороте государственного учреждения 8» предусмотрены стандартные связи между документами, которые автоматически устанавливаются, например, при регистрации ответных документов. Программа позволяет настроить дополнительные связи между документами и указать правила использования этих связей для видов документов. Поддерживаются единичные, множественные, односторонние и двухсторонние связи.

Учет договоров

В «1С:Документообороте государственного учреждения 8» автоматизирован полный жизненный цикл договорных документов:

.        подготовка проекта договора;

.        согласование проекта договора, как внешнее, так и внутреннее;

.        учет всех связанных с договором документов, например, акты, дополнительные соглашения;

.        учет и контроль сроков действия договоров;

.        автоматическое продление сроков действия по правилам, указанным в договоре;

.        учет и контроль исполнения финансовых обязательств по договору;

.        контроль наличия сопроводительных документов по договору, например, счетов-фактур;

.        контроль возврата переданных экземпляров документов по договору;

.        расторжение договора.

Переадресация входящих документов

В программе «1С:Документооборот государственного учреждения 8» можно учитывать переадресацию входящих документов в сторонние организации, а также получение переадресованных входящих документов от сторонних организаций. При этом программа позволяет контролировать сроки исполнения переадресованных документов.

Комплекты документов

Часто возникает потребность работы с несколькими документами и файлами как с единым целым. Для повышения удобства работы в «1С:Документообороте государственного учреждения 8» есть возможность объединять документы в комплекты.

Поиск

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

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

При помощи расширенного полнотекстового поиска можно выбрать метод, а также ограничить область поиска выбранным разделом или разделами. Чтобы начать поиск, достаточно ввести лишь часть искомого слова или фразы.

Также имеется возможность поиска документов по реквизитам с возможностью настройки и сохранения сложных условий поиска.

Хранение файлов

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

Процессы и совместная работа пользователей

В программе «1С:Документооборот государственного учреждения 8» коллективная работа с документами реализована при помощи следующих бизнес-процессов:

Рассмотрение: документ попадает на рассмотрение к руководителю и с его резолюцией возвращается к автору документа. При этом непосредственно в процессе рассмотрения должностное лицо может вынести текстовую резолюцию или отправить документ на исполнение или ознакомление.

Исполнение: документ передается на исполнение всем пользователям по списку и контролеру для соблюдения исполнительской дисциплины. Один из пользователей может быть назначен ответственным исполнителем.

Согласование: приложенные к такому бизнес-процессу документы попадают на согласование указанным респондентам и потом возвращаются к автору этого бизнес-процесса для ознакомления с результатами согласования или отправки на повторное согласование. Поддерживаются такие варианты согласования, как:

·        параллельное;

·        последовательное;

·        смешанное (параллельное и последовательное), в том числе и с учетом условий маршрутизации.

Утверждение: документ попадает на утверждение к ответственному лицу и возвращается к автору документа для ознакомления с результатом утверждения.

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

Ознакомление: с помощью этого бизнес-процесса нужный документ рассылается всем пользователям по списку для ознакомления.

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

Приглашение: с помощью этого процесса можно направить приглашения участникам совещания и получить их ответы.

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

Обработка исходящего документа: этот бизнес-процесс автоматизирует полный цикл обработки исходящего документа - согласование, утверждение, регистрация.

Обработка внутреннего документа: этот бизнес-процесс автоматизирует полный цикл обработки исходящего документа - согласование, утверждение, регистрация, рассмотрение, исполнение, списание в дело.

Комплексный процесс: позволяет настроить произвольный маршрут обработки документа, состоящий из отдельных этапов.

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

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

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

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

Реализован автоматический запуск бизнес-процессов по расписанию.

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

Имеется возможность временной остановки бизнес-процессов, которая распространяется на все подчиненные бизнес-процессы и их задачи.

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

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

Комплексные процессы

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

Управление мероприятиями

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

Рабочий стол руководителя

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

Обсуждения

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

Протоколирование работы пользователей

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

Учет рабочего времени и контроль исполнения

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

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

Проекты

Проект - это временное предприятие, предназначенное для создания уникальных продуктов, услуг или результатов.

Проекты используются для автоматизации деятельности по исполнению плана проекта и для ведения аналитического учета всех данных в разрезе проектов.

Бизнес-события

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

Организация распределенной информационной базы

В «1С:Документообороте государственного учреждения 8» предусмотрена работа в режиме распределенной информационной базы, в том числе и для варианта хранения файлов не в информационной базе, а на диске.

Обмен данными с другими типовыми конфигурациями

В «1С:Документообороте государственного учреждения 8» предусмотрены планы обмена с типовыми конфигурациями, работающими на платформе «1С:Предприятие 8.2»:

·        «Управление производственным предприятием», 1.3.6;

·        «Управление торговлей», 11.0.6;

·        «Бухгалтерия предприятия», 2.0.15;

·        «Управление небольшой фирмой», 1.2.2.

Дополнительно к программе приложены правила обмена с типовыми конфигурациями, работающими на платформе «1С:Предприятие 8.1»:

·        «Бухгалтерия предприятия КОРП», редакция 2.0;

·        «Комплексная автоматизация», редакция 1.0;

·        «Зарплата и управление персоналом», редакция 2.5;

·        «Управление производственным предприятием», редакция 1.2;

·        «Управление торговлей», редакция 10.

1.1.7 Веб-сервисы

Работа с файлами

«1С:Документооборот государственного учреждения 8» может выступать как внешняя по отношению к другим системам библиотека файлов. Взаимодействие между «1С:Документооборотом государственного учреждения 8» и другим приложением осуществляется при помощи веб-сервисов.

Работа с документами и процессами

При помощи имеющегося веб-сервиса «1С:Документооборот государственного учреждения 8» предоставляет возможность создания и обработки документов из сторонних систем. Это может использоваться, например, для добавления обращений, введенных на сайте учреждения.

1.2    Анализ возможностей использования решений на базе Microsoft Dynamics AX (Microsoft Axapta)


1.2.1 Характеристика «Microsoft Dynamics AX»

Microsoft Dynamics AX 2012- это комплексная система управления предприятием (ERPII), для предприятий корпоративного и среднего сегментов рынка. Система позволяет управлять финансами, товарно-материальными потоками, отношениями с клиентами, персоналом и другими областями деятельности компании. В ней представлен полный набор предварительной документации, слоев и дополнительных модулей.
Пакет Microsoft Dynamics AX 2012 использует платформу Microsoft SQL Server в качестве системы управления данными по умолчанию. Как считают разработчики, применение MS SQL Server обеспечивает унифицированную работу со средствами бизнес-аналитики. Кроме того, MS SQL Server - пакет Microsoft Dynamics AX 2012 - обеспечивает двунаправленную интеграцию офисными приложениями Microsoft Office 2010 и поддерживает функцию Enterprise Search (поиск по всей организации) через подключение к серверу Microsoft SharePoint 2010 и его службе бизнес-коммуникаций Business Connectivity Services. Наконец, поддерживается интеграция с сервисом коллективной работы Microsoft Lync 2010.

В целом, ERP-платформа Dynamics AX 2012 - очень зрелый подход к дизайну приложений, формализации и оптимизации бизнес-процессов. Также облегчен ролевой доступ к бизнес-информации. Система Dynamics AX 2012 полностью готова к работе в транснациональных масштабах - заказчикам предоставлена поддержка валют, часовых поясов, национальных языков, местных банковских документов, форматов отчетности и юридических процедур для 38 стран мира.

Применение, настройка и управления важными бизнес-приложениями, с помощью решения Microsoft Dynamics AX 2012 на вашем предприятии никогда еще не было таким простым. Знакомый пользовательский интерфейс Microsoft Office и расширенные возможности встроенных средств бизнес-анализа, помогут клиентам взглянуть по-новому на их бизнес, существенно повысить скорость принятия взвешенных и обоснованных решений.

С управленческой точки зрения стоит отметить, что пакет Dynamics AX 2012 продается с пятью высокоуровневыми отраслевыми шаблонами. Эти готовые шаблоны помогут быстро оптимизировать работу предприятий в таких отраслях, как производство, дистрибуция, бюджетная сфера, сервисное обслуживание и розничная торговля. В рамках предлагаемых шаблонов пакет Dynamics AX 2012 содержит изменяемые наборы так называемых «унифицированных естественных моделей» (Unified Natural Model), которые охватывают множество реальных ситуаций, возникающих в этих отраслях.

Пакет Microsoft Dynamics AX 2012 использует платформу Microsoft SQL Server <#"650602.files/image002.jpg">

Рисунок 3.1 - Стартовое окно Microsoft Fox Pro

Для создания базы данных нам необходимы следующие таблицы - справочники: «BANK.dbf» - справочник отделений банка; «EV.dbf» - файл выплат, в котором хранятся данные обо всех произведенных выплатах, и производится отметка: в какой реестр включены записи и в какой файл электронного реестра они включены; «GRVK.dbf» - справочник Военных Комиссариатов Курской области; «USER.dbf» - справочник пользователей, зарегистрированных в программе; «VEDOMR.dbf» - справочник выплат, в котором содержится информация о сформированных реестрах, дата их печати, включения их в электронный реестр, о количестве записей и суммах выплат.

Рисунок 3.2 - Окно проекта Microsoft Fox Pro

Таблица «EV.dbf «- дочерняя, таблицы «BANK.dbf», «GRVK.dbf», «USER.dbf», «VEDOMR.dbf» - родительские. При проектировании базы данных задачей является обеспечить возможность редактирования только родительским таблицам.

Для необходимых столбцов в каждой таблице создаются индексы, между индексами формируются связи один к множеству.

Так индекс kod_vedomr из родительской таблицы Vedomr.dbf связан с индексом vedomr из дочерней таблицы EV.dbf с помощью реляционной связи «один-ко-многим», индекс kod_bank из родительской таблицы Bank.dbf связан с индексом bank из дочерней таблицы EV.dbf также с помощью реляционной связи «один-ко-многим», индекс kod_grwk из родительской таблицы Grwk.dbf связан с индексом grwk из дочерней таблицы EV.dbf при помощи реляционной связи «один-ко-многим», индекс kod_user из родительской таблицы User.dbf связан с индексом id из таблицы EV.dbf с помощью реляционной связи «один-ко-многим», и индекс kod_user из таблицы User.dbf связан с индексом id из таблицы Vedomr.dbf с помощью реляционной связи «один-ко-многим». Полная схема связей и индексов базы данных представлена на рисунке 3.3.

Рисунок 3.3 - Схема связей индексов таблиц

Важно убедиться в том, что типы данных связанных индексов совпадают.

Только при условии совпадения типов связанных индексов можно воспользоваться функцией «Referential Integrity», которая отвечает за контроль целостности базы данных.

Рисунок3.4 - Окно функции «Referential Integrity»

3.2    Проектирование экранных форм


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

Рисунок 3.5 - Окно проекта, отображающее формы.

На форме «Справочник выплат» отображены следующие поля: «Номер реестра» - порядковый номер, присваиваемый автоматически; «Код пользователя» - код пользователя, сформировавшего выбранный реестр; «Дата формирования» - дата формирования выбранного реестра; «Дата печати» - дата печати выбранного реестра; «Кол-во записей» - количество записей, находящихся в выбранном реестре; «Имя файла» - имя файла, под которым сохранен выбранный реестр; «Сумма записей» - сумма всех выплат в рублях, сохраненных в выбранном реестре.

Сортировка производится по полю «Номер реестра», по возрастанию, также нужный реестр можно выбрать из списка, щелкнув по нему левой клавишей мыши. Для более удобной навигации добавлен стандартный набор кнопок: «В начало списка», «На один меньше», «На один больше», «В конец списка», «Поиск», «Печать», «Отчет», «Изменить запись», «Удалить запись», «Выход».

Рисунок 3.6 - Окно справочника выплат

На форме «Справочник банков» отображены следующие поля: «Код банка» - код, присвоенный подразделению Сбербанка Центром Социального Обеспечения ВККО; «Имя отделения» - наименование ОСБ; «Серия» - отображает отношение ОСБ к определенной области; «Номер ОСБ» - код подразделения, присвоенный Сбербанком; «Адрес» - адрес фактического местонахождения подразделения Сбербанка.

Сортировка производится по полю «Код банка», по возрастанию, также нужный реестр можно выбрать из списка, щелкнув по нему левой клавишей мыши. Для более удобной навигации добавлен стандартный набор кнопок: «В начало списка», «На один меньше», «На один больше», «В конец списка», «Поиск», «Печать», «Отчет», «Изменить запись», «Удалить запись», «Выход».

Рисунок 3.7 - Окно справочника банков

Сортировка производится по полю «Имя ВК», по возрастанию, также нужный реестр можно выбрать из списка, щелкнув по нему левой клавишей мыши. Для более удобной навигации добавлен стандартный набор кнопок: «В начало списка», «На один меньше», «На один больше», «В конец списка», «Поиск», «Печать», «Отчет», «Изменить запись», «Удалить запись», «Выход».

Рисунок 3.8 - Окно справочника ВККО

На форме «Справочник пользователей» отображены следующие поля: «Имя» - имя пользователя, зарегистрированного в программе; «Код пользователя» - код, присвоенный пользователю; «Кол-во записей» - суммарное количество записей созданных пользователем; «Права» - права доступа пользователя к базе; «Принтер» - наименование принтера пользователя.

Сортировка производится по полю «Имя», по возрастанию, также нужный реестр можно выбрать из списка, щелкнув по нему левой клавишей мыши. Для более удобной навигации добавлен стандартный набор кнопок: «В начало списка», «На один меньше», «На один больше», «В конец списка», «Поиск», «Печать», «Отчет», «Изменить запись», «Удалить запись», «Выход».

Рисунок 3.9 - окно справочника пользователей

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

Рисунок 3.10 - Окно формы справочники

Как выше было указано, все, что было сделано, сохранено в одном проекте, это свело к минимуму риск потери данных при переносе на другие рабочие станции.

Рисунок 3.11 - Окно готового проекта

программный реестр электронный пенсия

3.3    Вывод по главе


В ходе проектирования автоматизированной информационной системы обработки данных учета пенсионных начислений и компенсаций ЦСО Военного комиссариата Курской области была сформирована база данных проекта, включающая в себя пять таблиц. Для удобства доступа к данным таблиц были созданы стандартные экранные формы, в частности: «Справочник выплат», «Справочник Банков», «Справочник ВККО», «Справочник пользователей» и для более быстрой навигации была создана форма «Справочники».

4.      Тестирование разработанного ПО

 

4.1    Проверка на сохранность целостности данных


Для запуска проекта необходимо кликнуть по ярлыку «Zapysk»

Рисунок 4.1 - Ярлык запуска проекта

После этого откроется стартовое окно Visual FoxPro и запустится форма «Справочники».

Рисунок 4.2 - Окно проекта с запущенной формой «Справочники»

На форме «Справочники» можно выбрать необходимый пользователю справочник. К примеру выбираем «Справочник ВККО», для чего нажимаем одноименную кнопку. Открывается окно формы «Справочники ВККО».

Рисунок 4.3 - Окно формы «Справочники ВККО»

На форме выбираем к примеру последний в списке Военный Комиссариат и нажимаем кнопку «Редактировать», изменяем код ВККО с 31 на 32. В файле выплат код данного Военного Комиссариата по прежнему 31.

Рисунок 4.4 - Внесение изменений в форме «Справочник ВККО»

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

Рисунок 4.5 - Сохранение изменений в форме «Справочник ВККО»

4.2    Проверка на контроль за соответствием типов данных


Снова запускаем проект кликнув по ярлыку «Zapysk»

Рисунок 4.6 - Ярлык запуска проекта

После этого откроется стартовое окно Visual FoxPro и запустится форма «Справочники».

Рисунок 4.7 - Окно формы Справочники

На форме «Справочники» можно выбрать необходимый пользователю справочник. К примеру выбираем «Справочник Банков», для чего нажимаем одноименную кнопку. Открывается окно формы «Справочники Банков».

Рисунок 4.8 - Окно формы Справочник банков

Выбираем необходимое поле для редактирования, в нашем случае - это поле Код банка, выбираем необходимую запись, в качестве примера возьмем первую запись и нажимаем кнопку «Редактировать» на форме.

Рисунок 4.9 - Окно формы Справочник банков в режиме редактирования

Стираем существующую запись типа numeric и пытаемся внести символьные данные. Программа не позволяет это сделать, попросту игнорируя попытки внести символы другого формата.

4.3    Выводы по главе


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

5.      Расчет системы кондиционирования офисного помещения ЦСО


Исходные данные

г. Курск

Остекление-2-е

Стена - кирпич 250 мм+125 мм, прослойка (минеральная вата)70 мм

Кровля- Стяжка 100 мм, ж/б плита- 50 мм, прослойка 200 мм.

Высота окна- 1,5 м

Высота помещения- 3м

Ориентация оси -Ю

Ф= 40%-60%

Люди, оргтехника и бытовая техника в помещениях для кондиционирования.

Таблица 5.1 - Исходные данные

Помещения

№ 1

№ 3

№ 4

№ 5

№ 6

Кол-во людей, чел

2

2

2

5

2

Оргтехника, и.т.д

1 к

5 к


5.1    Введение


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

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

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

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

5.2    Расчет поступления тепла и влаги в помещение (тепловой баланс)


5.2.1 Расчетные параметры воздуха

В качестве расчетных параметров наружного воздуха принимают расчетные параметры Б для заданного района строительства в холодный период (таблица 5.2), в теплый - температуру наружного воздуха на 20С и удельную энтальпию на 2 кДж/кг ниже, чем при параметрах Б.

Таблица 5.2 - Расчетные параметры наружного воздуха

Наименование пункта

Расчетная географическая широта, °с .ш.

Барометрическое давление ГПа

Период года

Параметры Б





температура воздуха, °С

удельная энтальпия, кДж/кг

скорость ветра, м/с

Курск

60

1010

ТП ХП

24,8 -26

51,5 -25,3

1 3


Принимаем:

Летний режим

Расчетные параметры наружного воздуха

tН = +22,8°С; I= 49,5кДж/кг

Расчетные параметры внутри помещения

tВ = +20°С φ= 60%

Зимний режим

Расчетные параметры наружного воздуха

tН = -26°С; I= -25,3 кДж/кг

Расчетные параметры внутри помещения

tВ = +18°С φ= 40%

5.2.2 Поступление тепла и влаги в помещение

а) Теплопоступления за счет разности температур в теплый период года

, Вт

где - коэффициент, зависящий от цвета ограждения, принимаем светлый цвет (=0,5)

К- расчетный коэффициент теплопередачи, который определяется по формуле:


соответствии со СНиП II-3-79* находим:

;

для стены

;

для чердачного перекрытия


для стен



для чердака



б) Теплопоступления за счет инфильтрации наружного воздуха


где М- количество воздуха, определяемое по формуле:


где α- коэффициент учитывающий остекление; принимаем 0,3

m- коэффициент учитывающий величину щели, принимаем = 35,5

l - длина щели.

С- теплоемкость воздуха- 1,005

в) Теплопоступления от людей.

Количество теплоты (Сумма скрытой и явной) определяется по формулам: полное:


и явное


б) Теплопоступления от источников искусственного освещения.

Теплопоступления от источников искусственного освещения определяем по следующей формуле:


      -удельная мощность светильников, принимаем

- доля теплоты, поступающей в помещение;

г)Теплопоступления от солнечной радиации.

Определяется только для теплого периода года. Количество теплоты поступающее от солнечной радиации, можно определить по формулам: ,Вт:

для остекленных поверхностей


для покрытий:


где , - площади поверхности остекления и покрытия, м2.

,- теплопоступления от солнечной радиации через 1м2 поверхности остекления и покрытия, Вт/м2;

- коэффициент зависящий от характера остекления и солнцезащитных устройств;

- коэффициент теплопередачи покрытия Вт/(м3*К)

также вводим поправку на защиту окон Z=0,2

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

Принимаем 300 Вт- 1компьютер.

Результаты расчетов сведены в таблицу 5.3 и 5.4.

Таблица 5.3 - Тепловой расчет помещений (ТП)

№ помещения

Количество людей

Теплопоступления, кВт

Расход воздуха, м3/ч



от разности температур

от инфильтрации наружного воздуха

от оборудования

от солнечной радиации

От источников искусственного освещения

От людей

Всего

Количество наружного воздуха, необ. для дыхания

1

2

0,102

2,966

0,3

1,657

6,811

0,3

12,1

120

3

2

0,003

0,270

0,3

0,060

0,436

0,3

1,4

120

4

2

0,006

0,240

0,3

0,075

0,545

0,3

1,5

120

5

5

0,008

0,240

1,5

0,092

0,672

0,75

3,3

300

6

2

0,011

1,468

0,3

0,700

1,942

0,3

4,7

120


23,0*


Примечание: Qя меньше на 0,65 кВт

Таблица 5.4 - Тепловой расчет помещений (ХП)

№ помещения

Количество людей

Теплопоступления, кВт

Расход воздуха, м3/ч



от оборудования

От источников искусственного освещения

От людей

Всего

Количество наружного воздуха, необходим.для дыхания

1

2

0,3

6,811

0,3

7,4

120

3

2

0,3

0,436

0,3

1,0

120

4

2

0,3

0,545

0,3

1,1

120

5

5

1,5

0,672

0,75

2,9

300

6

2

0,3

1,942

0,3

2,5

120


15,1



е) Влаговыделения

Определяется по формуле:

, кг/ч

где Wi - влаговыделения одним человеком г/ч; ni- число людей в помещении.

Также добавляют 1,5 кг/ч на влажную уборку помещения, принимаемую один раз в день.

Таблица 5.5 - Итоги расчета теплового баланса

№ Помещения

1

3

4

5

6

уборка

Кол-во людей

2

2

2

5

2

-

13

Влаговыделения ТП

0,15

0,15

0,15

0,375

0,15

1,5

2,48

Влаговыделения ХП

0,13

0,13

0,13

0,325

0,13

1,5

2,35


5.3    Построение в Id диаграмме процессов обработки воздуха в теплый и холодный период года


5.3.1 Расчет производительности СКВ


а) ТП (Теплый период)

. Определяем угловой коэффициент луча процесса:


. Находим температуры приточного и удаляемого воздуха:


Строим на Id- диаграмме луч процесса, через точку В и наносим точки П, У, соответствующие найденным температурам.

. Определяем необходимый воздухообмен.

Определяем воздухообмен по полному тепловыделению:


Определяем теплообмен по явному тепловыделению:


Определяем воздухообмен по влаговыделению:


Затем на поле I-d диаграммы наносим линию dП= const, по которой находим положение точек П' и О, характеризующих состояние воздуха на выходе из кондиционера и из камеры орошения.

б) ХП (Холодный период)

. Определяем угловой коэффициент луча процесса:


. Находим температуры приточного и удаляемого воздуха:


Строим на Id- диаграмме луч процесса, через точку В и наносим точки П, У, соответствующие найденным температурам.

. Определяем необходимый воздухообмен.

Определяем воздухообмен по полному тепловыделению:


Определяем теплообмен по явному тепловыделению:


Определяем воздухообмен по влаговыделению:


Затем на поле I-d диаграммы наносим линию dП= const, по которой находим положение точек П и О, характеризующих состояние воздуха на выходе из кондиционера и из камеры орошения.

5.3.2 Расчет количества тепла для подогревателей 1-ого и 2-ого подогрева

Выбираем максимальный воздухообмен с запасом 5% = 10675*5%=11200 кг/ч,


Мощность воздухоподогревателя I ступени - 135 кВт


Мощность воздухоподогревателя II ступени- 28 кВт

Для теплого периода, судя по диаграмме подогревателей II подогрева не понадобится, воздух с температуры 140С нагреется до расчетной внутренней за счет теплоизбытков в помещении:

= 20 кВт

5.3.3 Расчет количества холода в воздухоохладителях для летнего периода

Расход холода для осуществления процесса охлаждения и осушки воздуха:


производительность СКВ должна равняться 45 кВт

5.3.4 Расчет количества воды, испарившейся в оросительной камере

Расход влаги на испарение в камере орошения:

ХП:

5.4    Выбор типоразмера кондиционера и расчет его секций


Расчетный воздухообменG = 11200 кг/ч =>L = 9300 м3/ч.

По расчетному воздухообмену принимаем центральный кондиционер КТЦ 2А-10

Исходя из доступного перепада температур, вычисляют расход горячей воды, кг/ч;


Средний арифметический температурный напор в воздухонагревателе, 0С;


Вычисляют массовую скорость в живом сечении Vp, кг/(м2∙с);


где G- расход воздуха через сечение теплообменника, кг/ч;

- площадь сечения для прохода воздуха

Скорость течения воды:


Требуемая площадь поверхности воздухонагревателя, м2;


где К- коэффициент теплопередачи, Вт/ (м2∙с)


С- коэффициент для двухрядных -16,86; однорядных- 15,6.

Расчет I ступени подогрева воздуха:

Запас +10% = 51,66м2;51,66/2 = 25,83

Принимаем 2 двухрядных теплообменника высотой 1метр с площадью 25,9 м2 каждый с обводным каналом ВНО. Индекс 01.11213

Расчет II ступени подогрева воздуха:

Принимаем 1 однорядный теплообменник высотой 1,25 с площадью 16,35 м2 без обводного канала ВН. Индекс 01.10113

5.4.2 Расчет камер орошения

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

а)Расчет для теплого периода

По расходу воздуха G=11200задаются типом камеры и числом форсунок nф. По диаграмме в зависимости от конечной и начальной относительной влажности обрабатываемого в камере орошения воздуха определяют давление перед форсунками РФ. Оно составит 120 кПа. Для этого значения расход воды через форсункуgф составит 420 кг/ч.

Выбираем для кондиционера КТЦ 2А-10 с общим числом форсунок - 42. (Исполнение 1).

Общий расход воды через форсунки составит:


Определяем коэффициент орошения:


По значению коэффициента орошения определяют достижимое значение = 0,57

Энтальпия насыщенного воздуха при начальной температуре воды, кДж/кг:


На Id диаграмме на пересечении линии Iwн с линией полного насыщения (φ=100%), находят требуемую начальную температуру воды twн и вычисляют конечную температуру воды. Температура воды перед форсункой составит tm=7,70С.


б) Расчет для холодного периода

По Id- диаграмме находят начальные и конечные параметры воздуха и температуру мокрого термометра.

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


По таблице найдем В= 1,55


Вычисляем производительность одной форсунки:


По значению  находим необходимое давление воды перед форсунками РФ, оно составит 115 кПа.

Принимаем камеру орошения Индекс 01.01300 исполнение 1

5.5    Холодоснабжение СКВ


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


Подбираем чиллер серии WRAT182, Холодопроизводительностью 47,9 кВт

Мощность потребляемая компрессором- 14,4 кВт

Тип компрессора- Поршневой

Напряжение питания компрессора- 380-415/3/50+N

Число герм. компрессоров (охл. контуров) - 2/2

Осевые вентиляторы с установочной мощностью- 2×0,32 кВт

Общая производительность по воздуху - 4,16 м3/с

Транспортная масса- 430 кг.

Длина- 1642 мм.

Глубина- 954 мм.

Высота- 1570 мм.

Принимаем объем аккумулирующего бака 150L× GPA 150

Потребный расход воды определяется холодопроизводительностью чиллера и расчетным перепадом температур на входе и выходе чиллера и рассчитывается по формуле:


где Q- холодопроизводительность чиллера, кВт

- перепад температур на чиллере (5-6 0С)

Потребный напор насосной станции складывается из следующих потерь:

) Потери в теплообменнике чиллера (+50% к потерям в трубопроводе, от бака к чиллеру и обратно.

) Потери в самой насосной станции и потери на соединениях между чиллером и насосной станцией.

) Потери в сети (трубопроводах, арматуре)

По номограмме подбираем диаметр50 мм, задавшись скоростью 1,5 м/с, и расходом 6,84 м3/ч, потери давления составят 420 Па/м

Длина трубопровода5м, Ртр= 2100 Па + Рм = 3000 Па

Полные потери составят +50 = 3000*1,5= 4500 Па.

По каталогу принимаем насостипа АЦКМ 65-40-180

n= 1500 мин-1, КПД = 70%,

5.6    Аэродинамический расчет СКВ


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

5.6.1 Выбор схемы распределения воздуха в помещении

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

Установив в помещении место расположения приточных и вытяжных решеток необходимо предварительно определить их размеры.

Площадь живого сечения вытяжных и приточных решеток:


Vрек- рекомендуемая скорость в решетках, не более 6 м/с

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



Таблица 5.6 - Результаты воздухообменов и подбор решеток

№ помещения

Расход L, м3/ч

Площадь Fрасч

Кол-во

Размеры, мм

Площадь живого сечения,м2

Скорость

приточные решетки

1

4900

0,247

2

200×800

0,266

5,1

3

560

0,028

1

150×600

0,072

2,2

4

600

0,030

1

150×600

0,072

2,3

5

1350

0,068

1

200×800

0,133

2,8

6

1900

0,096

1

200×800

0,133

4,0

вытяжные решетки

1

4400

0,222

2

200×800

0,266

4,6

3

500

0,025

1

150×600

0,072

1,9

4

540

0,027

1

150×600

0,072

2,1

5

1200

0,061

1

200×800

0,133

2,5

6

1700

0,086

1

200×800

0,133

3,6


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

5.6.2 Подбор диаметров воздуховодов и расчет потерь давления

Подбор диаметров воздуховодов сведен в таблицу 5.7 для приточной системы и таблицу 5.8 для вытяжной системы.

Таблица 5.7 - Аэродинамический расчет приточной системы


Таблица 5.8 - Аэродинамический расчет вытяжной системы


5.6.3 Подбор вентилятора

Для приточной системы

Вентилятор подбирается по двум параметрам:

L= 9300 м3/ч

P=509,3+120+37+60+200= 926 Па

Требуемое давление, развиваемое вентилятором

Pтр= 1кПа

Технические характеристика вентилятора:

индекс: 01.41430

Полное давление 1,6 кПа

Номинальная производительность 12,5 тыс. м3/ч

Частота вращения 1440 об/мин

Электродвигатель 4А132М4, мощность 11 кВт.

Для вытяжной системы

L= 8340 м3/ч

P= 536 кПа

Требуемое давление Pтр= 0,6 кПа.

Технические характеристики вентилятора:

индекс: 01.41330

Полное давление 1,1 кПа

Номинальная производительность 12,5 тыс. м3/ч

Частота вращения 1440 об/мин

Электродвигатель 4А132М4, мощность 7,5 кВт.

5.7    Выводы по главе


Проведение расчета системы вентиляции кондиционирования офисного помещения Центра Социального Обеспечения было осуществлено по пяти направлениям:

.        Рассчитано поступление тепла и влаги в помещение серверной.

.        Построены в ID диаграмме процессы обработки воздуха в теплый и холодный периоды года.

.        Выбран типоразмер кондиционера и рассчитаны его секции.

.        Рассчитано холодоснабжение СКВ.

.        Проведен аэродинамический расчет СКВ.

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

 

Выводы


В ходе выполнения выпускной квалификационной работы были выполнены следующие задачи:

Проведен анализ типовых программных решений для учета данных в системах начисления военный пенсий. Анализ показал, что универсального автоматизированного модуля не существует, оценив все преимущества и недостатки существующих платформ, было принято решение о переводе на современную windows-платформу существующей системы с использованием СУБД Microsoft® Visual FoxPro 9.0 Professional SP2.

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

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

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

Выполнен расчет системы кондиционирования офисного помещения ЦСО. Расчет системы вентиляции и кондиционирования офисного помещения Центра Социального Обеспечения доказал свою важность для офисных помещений предприятий.

Осуществлен перевод существующей системы «Pension» на новую платформу MSVFP с сохранением формата данных и обеспечена целостность данных таблиц.

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

 

Библиографический список


1.      Басаков М. И. Современное делопроизводство: учебное пособие для вузов / М. И. Басаков. - Ростов н/Д : Феникс, 2007. - 480с
Винокуров М.А. , Гутгарц Р.Д., Пархомов В.А. Автоматизация кадрового учета: Учеб. пособие. - М.:изд-во «Инфра», 2001. - 325 с.

.        Радченко М.Г. (фирма "1С) "1С:Предприятие 8.2. Коротко о главном. Новые возможности версии 8.2", изд-во ООО "1С-Паблишинг", 2009г.-416 с.

.        Гончаров Д. И., Хрусталева Е. Ю. "Технологии интеграции 1С:Предприятия 8.2", "1С-Паблишинг", 2011г. - 358 с.

.        Габец А.П., Д.В. Козырев, Д.С. Кухлевский, Е.Ю. Хрусталева, «Реализация прикладных задач в системе "1С:Предприятие 8.2", "1С-Паблишинг", 2010г. - 714 с.

.        Мансурова Н.А., Веселов П.С. Предпосылки и этапы внедрения системы электронного документооборота в сфере малого и среднего бизнеса // Экономические исследования. 2010г.

.        В. Корепин, Microsoft Dynamics AX 2009. Руководство пользователя. Том 1, Эком, 2010г. - 1520с.

7.      В. Корепин, Microsoft Dynamics AX 2009. Руководство пользователя. Том 1, ЭКОМ Паблишерз <http://www.ozon.ru/context/detail/id/3343757/>, 2010г. - 1632с.

.        Артур Гриф, Майкл Фрюргаард Понтоппидан, Ларс Драгхейм Олсен, перев. С. Чернятинский <http://www.ozon.ru/context/detail/id/3714582/>, Microsoft Dynamics AX 4.0, ЭКОМ Паблишерз, 2008г. - 608с.

.        Сухов Н.Е., Практический курс программирования на CA-Clipper, Киев : BHV, 1994. - 400 с.

.        Рик Спенс, Clipper Полное руководство по программированию, Третье издание.Версия 5.01, Тивали, 1994г. - 480с.

.        Лес Пинтер FoxPro 2.0 Application Programming / Пер. с англ. Д.В.Артемова. - М., Киев: Эдель, Век, 1994. - 427с.

.        Клепинин В.Б. Агафонова Т.П., Visual FoxPro 9.0 наиболее полное руководство в подлиннике ч.1 и ч.2, BHV(СПб), 2008г.

13.    Попов А.А., Создание приложений для FOXPRO 2.5/2.6 в DOS и WINDOWS, "Калашников и Ко", 1997г. - 660с.

14.    Попов А.А. Программирование в среде FoxPro 2.0. Построение систем обработки данных. - М.: Радио и связь, 1994. - 352 с.

.        Щекин Р.В. Справочник по теплоснабжению и вентиляции, кн. 1. Отопление и теплоснабжение. Киев.: "Будевельник", 2006 г.- 416с.

.        Щекин Р.В. Справочник по теплоснабжению и вентиляции, кн. 2 Вентиляция и кондиционирование воздуха. Киев: "Будевельник", 2006 г.- 352с.

.        Штокман Е.А, В.А. Шилов и др. Вентиляция, Кондиционирование и очистка воздуха на предприятиях пищевой промышленности. Москва, 2001 г. 688с.

.        Методические указания к курсовой работе. Кондиционирование воздуха и холодоснабжение.

.        СНиП 2.04.05-91. М.: Стройиздат, 2008г.

.        СНиП II-3-79*. Строительная теплотехника/ Госстрой России.- М.: ГУП ЦПП, 2008г.

Интернет ресурсы

1.      <http://www.1c.ru/> - официальный сайт 1С

.        <http://v8.1c.ru/doc8/10.htm> - официальный сайт 1С: Документооборот

.        <http://www.microsoft.com/ru-ru/dynamics/ax/overview.aspx> - официальный сайт Microsoft Dynamics AX на русском

.        <http://citforum.ru/database/foxpro/index.shtml> - Краткое руководство по системе управления базами данных для Windows

.        <http://clipper.borda.ru/> - Русскоязычный форум по Clipper

 

Приложения


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

**__RI_HEADER!@ Do NOT REMOVE or MODIFY this line!!!! @!__RI_HEADER**=.t.(ISRLOCKED() and !deleted()) OR !RLOCK()=.F.!deleted()CURSORGETPROP('BUFFERING') > 1

=TABLEUPDATE()not already deletedRECORD (RECNO())=pnerror=0llRetVal,tcNewValue,tcCascadeParent=.t.ISRLOCKED() OR !RLOCK()=.F.EVAL(tcFieldName)<>tcNewValuepcCascadeParent=upper(iif(type("tcCascadeParent")<>"C","",tcCascadeParent))(tcFieldName) WITH tcNewValueCURSORGETPROP('BUFFERING') > 1

=TABLEUPDATE()values don't already matchit's locked already, or I was able to lock itRECORD (RECNO())=pnerror=0,tcMessage,tcCode,tcProgram,lnXX=alen(gaErrors,1)type('gaErrors[lnErrorRows,1]')<>"L"[lnErrorRows+1,alen(gaErrors,2)]=lnErrorRows+1[lnErrorRows,1]=tnErrNo[lnErrorRows,2]=tcMessage[lnErrorRows,3]=tcCode[lnErrorRows,4]=""=1while !empty(program(lnXX))[lnErrorRows,4]=gaErrors[lnErrorRows,4]+","+;(lnXX)=lnXX+1[lnErrorRows,5]=pcParentDBF[lnErrorRows,6]=pnParentRec[lnErrorRows,7]=pcParentID[lnErrorRows,8]=pcParentExpr[lnErrorRows,9]=pcChildDBF[lnErrorRows,10]=pnChildRec[lnErrorRows,11]=pcChildID[lnErrorRows,12]=pcChildExprriopentcTable,tcOrderlcCurWkArea,lcNewWkArea,lnInUseSpot,lnOccurs,lnOccurance=0= OCCURS(UPPER(tcTable)+"*",UPPER(pcRIcursors))lnOccurance = 1 TO lnOccurs=ATC(tcTable+"*",pcRIcursors,lnOccurance)ISDIGIT(SUBSTR(pcRIcursors,lnInUseSpot-1,1)) OR;(SUBSTR(pcRIcursors,lnInUseSpot-1,1))=0lnInUseSpot=0=select()0=select()NOT EMPTY(tcOrder)(tcTable) AGAIN ORDER (tcOrder) ;("__ri"+LTRIM(STR(SELECT()))) share(tcTable) AGAIN ALIAS ("__ri"+LTRIM(STR(SELECT()))) share=0=pcRIcursors+upper(tcTable)+"?"+STR(SELECT(),5)=0bad happened while attempting to open the file=val(substr(pcRIcursors,lnInUseSpot+len(tcTable)+1,5))= strtran(pcRIcursors,upper(tcTable)+"*"+str(lcNewWkArea,5),;(tcTable)+"?"+str(lcNewWkArea,5))NOT EMPTY(tcOrder)ORDER TO (tcOrder) IN (lcNewWkArea)sent an order<>0=0bad happened while setting order(lcNewWkArea)riendtlSuccess,lnSpot,lcWorkAreatlSuccessTRANSACTIONDELETED OFFDELETED ONEMPTY(pcRIolderror)ERRORERROR &pcRIolderror.lnXX=1 TO occurs("*",pcRIcursors)=atc("*",pcRIcursors,lnXX)+1IN (VAL(substr(pcRIcursors,lnSpot,5)))pcOldCompat = "ON"COMPATIBLE ONpcOldDele="OFF"DELETED OFFpcOldExact="ON"EXACT ONpcOldTalk="ON"TALK ONcaseempty(pcOldDBC)data to<>DBC()data to (pcOldDBC).T.rireuse

* rireuse.prgtcTableName,tcWkArea= strtran(pcRIcursors,upper(tcTableName)+"?"+str(tcWkArea,5),;(tcTableName)+"*"+str(tcWkArea,5)).t.

************************************************************

** "Referential integrity delete trigger for" bank__RI_DELETE_bankllRetVal= .t.pcParentDBF,pnParentRec,pcChildDBF,pnChildRec,pcParentID,pcChildIDpcParentExpr,pcChildExpr"" TO pcParentDBF,pcChildDBF,pcParentID,pcChildID,pcParentExpr,pcChildExpr0 TO pnParentRec,pnChildRec_triggerlevel=1TRANSACTIONpcRIcursors,pcRIwkareas,pcRIolderror,pnerror,;,pcOldExact,pcOldTalk,pcOldCompat,PcOldDBC=SET("TALK")TALK OFF=SET("DELETED")=SET("EXACT")=SET("COMPATIBLE")COMPATIBLE OFFDELETED ONEXACT OFF=""=""=ON("error")=0ERROR pnerror=rierror(ERROR(),message(),message(1),program())TYPE('gaErrors(1)')<>"U"gaErrors(1,12)=DBC()DATA TO ("DATA1")first triggerlcParentID && parent's value to be sought in childlcChildWkArea && child work area handle returned by riopenlcParentWkAreallDelHeaderarealcStartArea=select()=.t.=select()(lcParentWkArea)=dbf()=recno()KOD_BANK TO lcParentID,pcParentID="KOD_BANK"=riopen("ev","bank")lcChildWkArea<=0_triggerlevel=1riend WITH .F.at the end of the highest trigger level.F.not able to open the child work area=dbf(lcChildWkArea)(lcChildWkArea)lcParentIDWHILE BANK=lcParentID AND llRetVal=recno()=BANK="BANK"=ridelete()get all of the ev records

=rireuse("ev",lcChildWkArea)NOT llRetVal_triggerlevel=1riend WITH llRetValat the end of the highest trigger level(lcStartArea)llRetVal_triggerlevel=1with llRetValat the end of the highest trigger level(lcStartArea)llRetVal

** "End of Referential integrity Delete trigger for" bank

*************************************************************

*************************************************************__RI_UPDATE_bank

** "Referential integrity update trigger for" bankllRetVal= .t.pcParentDBF,pnParentRec,pcChildDBF,pnChildRec,pcParentID,pcChildIDpcParentExpr,pcChildExpr"" TO pcParentDBF,pcChildDBF,pcParentID,pcChildID,pcParentExpr,pcChildExpr0 TO pnParentRec,pnChildRec_triggerlevel=1TRANSACTIONpcRIcursors,pcRIwkareas,pcRIolderror,pnerror,;,pcOldExact,pcOldTalk,pcOldCompat,PcOldDBC=SET("TALK")TALK OFF=SET("DELETED")=SET("EXACT")=SET("COMPATIBLE")COMPATIBLE OFFDELETED ONEXACT OFF=""=""=ON("error")=0ERROR pnerror=rierror(ERROR(),message(),message(1),program())TYPE('gaErrors(1)')<>"U"gaErrors(1,12)=DBC()DATA TO ("DATA1")first triggerlcParentID && parent's value to be sought in childlcOldParentID && previous parent id valuelcChildWkArea && child work area handle returned by riopenlcChildID && child's value to be sought in parentlcOldChildID && old child id valuelcParentWkArea && parentwork area handle returned by riopenlcStartArea=select()=.t.=select()(lcParentWkArea)=dbf()=recno()=OLDVAL("KOD_BANK")=lcOldParentID="KOD_BANK"=KOD_BANKlcParentID<>lcOldParentID=riopen("ev")lcChildWkArea<=0_triggerlevel=1riend WITH .F.at the end of the highest trigger level(lcStartArea).F.not able to open the child work area=dbf(lcChildWkArea)(lcChildWkArea)FOR BANK=lcOldParentID=recno()=BANK="BANK"NOT llRetVal&& not llretval=riupdate("BANK",lcParentID,"BANK")get all of the ev records

=rireuse("ev",lcChildWkArea)NOT llRetVal_triggerlevel=1riend WITH llRetValat the end of the highest trigger level(lcStartArea)llRetValthis parent id changed_triggerlevel=1with llRetValat the end of the highest trigger level(lcStartArea)llRetVal

** "End of Referential integrity Update trigger for" bank

**********************************************************

*************************************************************__RI_UPDATE_ev

** "Referential integrity update trigger for" evllRetVal= .t.pcParentDBF,pnParentRec,pcChildDBF,pnChildRec,pcParentID,pcChildIDpcParentExpr,pcChildExpr"" TO pcParentDBF,pcChildDBF,pcParentID,pcChildID,pcParentExpr,pcChildExpr0 TO pnParentRec,pnChildRec_triggerlevel=1TRANSACTIONpcRIcursors,pcRIwkareas,pcRIolderror,pnerror,;,pcOldExact,pcOldTalk,pcOldCompat,PcOldDBC=SET("TALK")TALK OFF=SET("DELETED")=SET("EXACT")=SET("COMPATIBLE")COMPATIBLE OFFDELETED ONEXACT OFF=""=""=ON("error")=0ERROR pnerror=rierror(ERROR(),message(),message(1),program())TYPE('gaErrors(1)')<>"U"gaErrors(1,12)=DBC()DATA TO ("DATA1")first triggerlcParentID && parent's value to be sought in childlcOldParentID && previous parent id valuelcChildWkArea && child work area handle returned by riopenlcChildID && child's value to be sought in parentlcOldChildID && old child id valuelcParentWkArea && parentwork area handle returned by riopenlcStartArea=select()=.t.=select()_triggerlevel=1 or type("pccascadeparent")#"C" or (NOT pccascadeparent=="VEDOMR")(lcChildWkArea)=VEDOMR=oldval("VEDOMR")=dbf(lcChildWkArea)=recno(lcChildWkArea)=lcOldChildID="VEDOMR"isnull(lcChildID) or isnull(lcOldChildID) or lcChildID <> lcOldChildID=riopen("vedomr","kod_vedomr")lcParentWkArea<=0_triggerlevel=1riend WITH .F.at the end of the highest trigger level(lcStartArea).F.not able to open the child work area=dbf(lcParentWkArea)=SEEK(lcChildID,lcParentWkArea)=recno(lcParentWkArea)and not (isrlocked(pnParentRec, lcParentWkArea) or ;(lcParentWkArea))rlock(lcParentWkArea)record pnParentRec in (lcParentWkArea)

=rireuse("tparen",lcParentWkArea)= rierror(-1,"Insert restrict rule violated.","","")_triggerlevel=1riend WITH llRetValat the end of the highest trigger level(lcStartArea)llRetVal

=rireuse("vedomr",lcParentWkArea)NOT llRetVal= rierror(-1,"Insert restrict rule violated.","","")_triggerlevel=1riend WITH llRetValat the end of the highest trigger level(lcStartArea)llRetValno parentthis value was changednot part of a cascade from "vedomr"_triggerlevel=1 or type("pccascadeparent")#"C" or (NOT pccascadeparent=="BANK")(lcChildWkArea)=BANK=oldval("BANK")=dbf(lcChildWkArea)=recno(lcChildWkArea)=lcOldChildID="BANK"isnull(lcChildID) or isnull(lcOldChildID) or lcChildID <> lcOldChildID=riopen("bank","kod_bank")lcParentWkArea<=0_triggerlevel=1riend WITH .F.at the end of the highest trigger level(lcStartArea).F.not able to open the child work area=dbf(lcParentWkArea)=SEEK(lcChildID,lcParentWkArea)=recno(lcParentWkArea)and not (isrlocked(pnParentRec, lcParentWkArea) or ;(lcParentWkArea))rlock(lcParentWkArea)record pnParentRec in (lcParentWkArea)

=rireuse("tparen",lcParentWkArea)= rierror(-1,"Insert restrict rule violated.","","")_triggerlevel=1riend WITH llRetValat the end of the highest trigger level(lcStartArea)llRetVal

=rireuse("bank",lcParentWkArea)NOT llRetVal= rierror(-1,"Insert restrict rule violated.","","")_triggerlevel=1riend WITH llRetValat the end of the highest trigger level(lcStartArea)llRetValno parentthis value was changednot part of a cascade from "bank"_triggerlevel=1 or type("pccascadeparent")#"C" or (NOT pccascadeparent=="GRWK")(lcChildWkArea)=GRWK=oldval("GRWK")=dbf(lcChildWkArea)=recno(lcChildWkArea)=lcOldChildID="GRWK"isnull(lcChildID) or isnull(lcOldChildID) or lcChildID <> lcOldChildID=riopen("grwk","kod_grvk")lcParentWkArea<=0_triggerlevel=1riend WITH .F.at the end of the highest trigger level(lcStartArea).F.not able to open the child work area=dbf(lcParentWkArea)=SEEK(lcChildID,lcParentWkArea)=recno(lcParentWkArea)and not (isrlocked(pnParentRec, lcParentWkArea) or ;(lcParentWkArea))rlock(lcParentWkArea)record pnParentRec in (lcParentWkArea)

=rireuse("tparen",lcParentWkArea)= rierror(-1,"Insert restrict rule violated.","","")_triggerlevel=1riend WITH llRetValat the end of the highest trigger level(lcStartArea)llRetVal

=rireuse("grwk",lcParentWkArea)NOT llRetVal= rierror(-1,"Insert restrict rule violated.","","")_triggerlevel=1riend WITH llRetValat the end of the highest trigger level(lcStartArea)llRetValno parentthis value was changednot part of a cascade from "grwk"_triggerlevel=1 or type("pccascadeparent")#"C" or (NOT pccascadeparent=="USER")(lcChildWkArea)=ID=oldval("ID")=dbf(lcChildWkArea)=recno(lcChildWkArea)=lcOldChildID="ID"isnull(lcChildID) or isnull(lcOldChildID) or lcChildID <> lcOldChildID=riopen("user","kod_user")lcParentWkArea<=0_triggerlevel=1riend WITH .F.at the end of the highest trigger level(lcStartArea).F.not able to open the child work area=dbf(lcParentWkArea)=SEEK(lcChildID,lcParentWkArea)=recno(lcParentWkArea)and not (isrlocked(pnParentRec, lcParentWkArea) or ;(lcParentWkArea))rlock(lcParentWkArea)record pnParentRec in (lcParentWkArea)

=rireuse("tparen",lcParentWkArea)= rierror(-1,"Insert restrict rule violated.","","")_triggerlevel=1riend WITH llRetValat the end of the highest trigger level(lcStartArea)llRetVal

=rireuse("user",lcParentWkArea)NOT llRetVal= rierror(-1,"Insert restrict rule violated.","","")_triggerlevel=1riend WITH llRetValat the end of the highest trigger level(lcStartArea)llRetValno parentthis value was changednot part of a cascade from "user"=lcChildWkArea_triggerlevel=1with llRetValat the end of the highest trigger level(lcStartArea)llRetVal

** "End of Referential integrity Update trigger for" ev

*********************************************************

*************************************************************

** "Referential integrity insert trigger for" ev__RI_INSERT_evllRetVal= .t.pcParentDBF,pnParentRec,pcChildDBF,pnChildRec,pcParentID,pcChildIDpcParentExpr,pcChildExpr"" TO pcParentDBF,pcChildDBF,pcParentID,pcChildID,pcParentExpr,pcChildExpr0 TO pnParentRec,pnChildRec_triggerlevel=1TRANSACTIONpcRIcursors,pcRIwkareas,pcRIolderror,pnerror,;,pcOldExact,pcOldTalk,pcOldCompat,PcOldDBC=SET("TALK")TALK OFF=SET("DELETED")=SET("EXACT")=SET("COMPATIBLE")COMPATIBLE OFFDELETED ONEXACT OFF=""=""=ON("error")=0ERROR pnerror=rierror(ERROR(),message(),message(1),program())TYPE('gaErrors(1)')<>"U"gaErrors(1,12)=DBC()DATA TO ("DATA1")first triggerlcChildID && child's value to be sought in parentlcParentWkArea && parentwork area handle returned by riopenlcChildWkArea && child's work arealcStartArea=select()=.t.=SELECT()(lcChildWkArea)=VEDOMR=dbf(lcChildWkArea)=recno(lcChildWkArea)=lcChildID="VEDOMR"=riopen("vedomr","kod_vedomr")lcParentWkArea<=0_triggerlevel=1riend WITH .F.at the end of the highest trigger level(lcStartArea).F.not able to open the child work area=dbf(lcParentWkArea)=SEEK(lcChildID,lcParentWkArea)=recno(lcParentWkArea)and not (isrlocked(pnParentRec, lcParentWkArea) or ;(lcParentWkArea))rlock(lcParentWkArea)record pnParentRec in (lcParentWkArea)

=rireuse("tparen",lcParentWkArea)= rierror(-1,"Insert restrict rule violated.","","")_triggerlevel=1riend WITH llRetValat the end of the highest trigger level(lcStartArea)llRetVal

=rireuse("vedomr",lcParentWkArea)NOT llRetVal= rierror(-1,"Insert restrict rule violated.","","")_triggerlevel=1riend WITH llRetValat the end of the highest trigger level(lcStartArea)llRetVal(lcChildWkArea)=BANK=dbf(lcChildWkArea)=recno(lcChildWkArea)=lcChildID="BANK"=riopen("bank","kod_bank")lcParentWkArea<=0_triggerlevel=1riend WITH .F.at the end of the highest trigger level(lcStartArea).F.not able to open the child work area=dbf(lcParentWkArea)=SEEK(lcChildID,lcParentWkArea)=recno(lcParentWkArea)and not (isrlocked(pnParentRec, lcParentWkArea) or ;(lcParentWkArea))rlock(lcParentWkArea)record pnParentRec in (lcParentWkArea)

=rireuse("tparen",lcParentWkArea)= rierror(-1,"Insert restrict rule violated.","","")_triggerlevel=1riend WITH llRetValat the end of the highest trigger level(lcStartArea)llRetVal

=rireuse("bank",lcParentWkArea)NOT llRetVal= rierror(-1,"Insert restrict rule violated.","","")_triggerlevel=1riend WITH llRetValat the end of the highest trigger level(lcStartArea)llRetVal(lcChildWkArea)=GRWK=dbf(lcChildWkArea)=recno(lcChildWkArea)=lcChildID="GRWK"=riopen("grwk","kod_grvk")lcParentWkArea<=0_triggerlevel=1riend WITH .F.at the end of the highest trigger level(lcStartArea).F.not able to open the child work area=dbf(lcParentWkArea)=SEEK(lcChildID,lcParentWkArea)=recno(lcParentWkArea)and not (isrlocked(pnParentRec, lcParentWkArea) or ;(lcParentWkArea))rlock(lcParentWkArea)record pnParentRec in (lcParentWkArea)

=rireuse("tparen",lcParentWkArea)= rierror(-1,"Insert restrict rule violated.","","")_triggerlevel=1riend WITH llRetValat the end of the highest trigger level(lcStartArea)llRetVal

=rireuse("grwk",lcParentWkArea)NOT llRetVal= rierror(-1,"Insert restrict rule violated.","","")_triggerlevel=1riend WITH llRetValat the end of the highest trigger level(lcStartArea)llRetVal(lcChildWkArea)=ID=dbf(lcChildWkArea)=recno(lcChildWkArea)=lcChildID="ID"=riopen("user","kod_user")lcParentWkArea<=0_triggerlevel=1riend WITH .F.at the end of the highest trigger level(lcStartArea).F.not able to open the child work area=dbf(lcParentWkArea)=SEEK(lcChildID,lcParentWkArea)=recno(lcParentWkArea)and not (isrlocked(pnParentRec, lcParentWkArea) or ;(lcParentWkArea))rlock(lcParentWkArea)record pnParentRec in (lcParentWkArea)

=rireuse("tparen",lcParentWkArea)= rierror(-1,"Insert restrict rule violated.","","")_triggerlevel=1riend WITH llRetValat the end of the highest trigger level(lcStartArea)llRetVal

=rireuse("user",lcParentWkArea)NOT llRetVal= rierror(-1,"Insert restrict rule violated.","","")_triggerlevel=1riend WITH llRetValat the end of the highest trigger level(lcStartArea)llRetVal_triggerlevel=1with llRetValat the end of the highest trigger level(lcStartArea)llRetVal

** "End of Referential integrity insert trigger for" ev

*********************************************************

*************************************************************

** "Referential integrity delete trigger for" grwk__RI_DELETE_grwkllRetVal= .t.pcParentDBF,pnParentRec,pcChildDBF,pnChildRec,pcParentID,pcChildIDpcParentExpr,pcChildExpr"" TO pcParentDBF,pcChildDBF,pcParentID,pcChildID,pcParentExpr,pcChildExpr0 TO pnParentRec,pnChildRec_triggerlevel=1TRANSACTIONpcRIcursors,pcRIwkareas,pcRIolderror,pnerror,;,pcOldExact,pcOldTalk,pcOldCompat,PcOldDBC=SET("TALK")TALK OFF=SET("DELETED")=SET("EXACT")=SET("COMPATIBLE")COMPATIBLE OFFDELETED ONEXACT OFF=""=""=ON("error")=0ERROR pnerror=rierror(ERROR(),message(),message(1),program())TYPE('gaErrors(1)')<>"U"gaErrors(1,12)=DBC()DATA TO ("DATA1")first triggerlcParentID && parent's value to be sought in childlcChildWkArea && child work area handle returned by riopenlcParentWkAreallDelHeaderarealcStartArea=select()=.t.=select()(lcParentWkArea)=dbf()=recno()KOD_GRVK TO lcParentID,pcParentID="KOD_GRVK"=riopen("ev","grvk")lcChildWkArea<=0_triggerlevel=1riend WITH .F.at the end of the highest trigger level.F.not able to open the child work area=dbf(lcChildWkArea)(lcChildWkArea)lcParentIDWHILE GRWK=lcParentID AND llRetVal=recno()=GRWK="GRWK"=ridelete()get all of the ev records

=rireuse("ev",lcChildWkArea)NOT llRetVal_triggerlevel=1riend WITH llRetValat the end of the highest trigger level(lcStartArea)llRetVal_triggerlevel=1with llRetValat the end of the highest trigger level(lcStartArea)llRetVal

** "End of Referential integrity Delete trigger for" grwk

*******************************************************

*************************************************************__RI_UPDATE_grwk

** "Referential integrity update trigger for" grwkllRetVal= .t.pcParentDBF,pnParentRec,pcChildDBF,pnChildRec,pcParentID,pcChildIDpcParentExpr,pcChildExpr"" TO pcParentDBF,pcChildDBF,pcParentID,pcChildID,pcParentExpr,pcChildExpr0 TO pnParentRec,pnChildRec_triggerlevel=1TRANSACTIONpcRIcursors,pcRIwkareas,pcRIolderror,pnerror,;,pcOldExact,pcOldTalk,pcOldCompat,PcOldDBC=SET("TALK")TALK OFF=SET("DELETED")=SET("EXACT")=SET("COMPATIBLE")COMPATIBLE OFFDELETED ONEXACT OFF=""=""=ON("error")=0ERROR pnerror=rierror(ERROR(),message(),message(1),program())TYPE('gaErrors(1)')<>"U"gaErrors(1,12)=DBC()DATA TO ("DATA1")first triggerlcParentID && parent's value to be sought in childlcOldParentID && previous parent id valuelcChildWkArea && child work area handle returned by riopenlcChildID && child's value to be sought in parentlcOldChildID && old child id valuelcParentWkArea && parentwork area handle returned by riopenlcStartArea=select()=.t.=select()(lcParentWkArea)=dbf()=recno()=OLDVAL("KOD_GRVK")=lcOldParentID="KOD_GRVK"=KOD_GRVKlcParentID<>lcOldParentID=riopen("ev")lcChildWkArea<=0_triggerlevel=1riend WITH .F.at the end of the highest trigger level(lcStartArea).F.not able to open the child work area=dbf(lcChildWkArea)(lcChildWkArea)FOR GRWK=lcOldParentID=recno()=GRWK="GRWK"NOT llRetVal&& not llretval=riupdate("GRWK",lcParentID,"GRWK")get all of the ev records

=rireuse("ev",lcChildWkArea)NOT llRetVal_triggerlevel=1riend WITH llRetValat the end of the highest trigger level(lcStartArea)llRetValthis parent id changed_triggerlevel=1with llRetValat the end of the highest trigger level(lcStartArea)llRetVal

** "End of Referential integrity Update trigger for" grwk

*****************************************************

************************************************************

** "Referential integrity delete trigger for" user__RI_DELETE_userllRetVal= .t.pcParentDBF,pnParentRec,pcChildDBF,pnChildRec,pcParentID,pcChildIDpcParentExpr,pcChildExpr"" TO pcParentDBF,pcChildDBF,pcParentID,pcChildID,pcParentExpr,pcChildExpr0 TO pnParentRec,pnChildRec_triggerlevel=1TRANSACTIONpcRIcursors,pcRIwkareas,pcRIolderror,pnerror,;,pcOldExact,pcOldTalk,pcOldCompat,PcOldDBC=SET("TALK")TALK OFF=SET("DELETED")=SET("EXACT")=SET("COMPATIBLE")COMPATIBLE OFFDELETED ONEXACT OFF=""=""=ON("error")=0ERROR pnerror=rierror(ERROR(),message(),message(1),program())TYPE('gaErrors(1)')<>"U"gaErrors(1,12)=DBC()DATA TO ("DATA1")first triggerlcParentID && parent's value to be sought in childlcChildWkArea && child work area handle returned by riopenlcParentWkAreallDelHeaderarealcStartArea=select()=.t.=select()(lcParentWkArea)=dbf()=recno()KOD_USER TO lcParentID,pcParentID="KOD_USER"=riopen("ev","id")lcChildWkArea<=0_triggerlevel=1riend WITH .F.at the end of the highest trigger level.F.not able to open the child work area=dbf(lcChildWkArea)(lcChildWkArea)lcParentIDWHILE ID=lcParentID AND llRetVal=recno()=ID="ID"=ridelete()get all of the ev records

=rireuse("ev",lcChildWkArea)NOT llRetVal_triggerlevel=1riend WITH llRetValat the end of the highest trigger level(lcStartArea)llRetVal_triggerlevel=1with llRetValat the end of the highest trigger level(lcStartArea)llRetVal

** "End of Referential integrity Delete trigger for" user

*************************************************************

*************************************************************__RI_UPDATE_user

** "Referential integrity update trigger for" userllRetVal= .t.pcParentDBF,pnParentRec,pcChildDBF,pnChildRec,pcParentID,pcChildIDpcParentExpr,pcChildExpr"" TO pcParentDBF,pcChildDBF,pcParentID,pcChildID,pcParentExpr,pcChildExpr0 TO pnParentRec,pnChildRec_triggerlevel=1TRANSACTIONpcRIcursors,pcRIwkareas,pcRIolderror,pnerror,;,pcOldExact,pcOldTalk,pcOldCompat,PcOldDBC=SET("TALK")TALK OFF=SET("DELETED")=SET("EXACT")=SET("COMPATIBLE")COMPATIBLE OFFDELETED ONEXACT OFF=""=""=ON("error")=0ERROR pnerror=rierror(ERROR(),message(),message(1),program())TYPE('gaErrors(1)')<>"U"gaErrors(1,12)=DBC()DATA TO ("DATA1")first triggerlcParentID && parent's value to be sought in childlcOldParentID && previous parent id valuelcChildWkArea && child work area handle returned by riopenlcChildID && child's value to be sought in parentlcOldChildID && old child id valuelcParentWkArea && parentwork area handle returned by riopenlcStartArea=select()=.t.=select()(lcParentWkArea)=dbf()=recno()=OLDVAL("KOD_USER")=lcOldParentID="KOD_USER"=KOD_USERlcParentID<>lcOldParentID=riopen("ev")lcChildWkArea<=0_triggerlevel=1riend WITH .F.at the end of the highest trigger level(lcStartArea).F.not able to open the child work area=dbf(lcChildWkArea)(lcChildWkArea)FOR ID=lcOldParentID=recno()=ID="ID"NOT llRetVal&& not llretval=riupdate("ID",lcParentID,"USER")get all of the ev records

=rireuse("ev",lcChildWkArea)NOT llRetVal_triggerlevel=1riend WITH llRetValat the end of the highest trigger level(lcStartArea)llRetValthis parent id changed_triggerlevel=1with llRetValat the end of the highest trigger level(lcStartArea)llRetVal

** "End of Referential integrity Update trigger for" user

*************************************************************

************************************************************

** "Referential integrity delete trigger for" vedomr__RI_DELETE_vedomrllRetVal= .t.pcParentDBF,pnParentRec,pcChildDBF,pnChildRec,pcParentID,pcChildIDpcParentExpr,pcChildExpr"" TO pcParentDBF,pcChildDBF,pcParentID,pcChildID,pcParentExpr,pcChildExpr0 TO pnParentRec,pnChildRec_triggerlevel=1TRANSACTIONpcRIcursors,pcRIwkareas,pcRIolderror,pnerror,;,pcOldExact,pcOldTalk,pcOldCompat,PcOldDBC=SET("TALK")TALK OFF=SET("DELETED")=SET("EXACT")=SET("COMPATIBLE")COMPATIBLE OFFDELETED ONEXACT OFF=""=""=ON("error")=0ERROR pnerror=rierror(ERROR(),message(),message(1),program())TYPE('gaErrors(1)')<>"U"gaErrors(1,12)=DBC()DATA TO ("DATA1")first triggerlcParentID && parent's value to be sought in childlcChildWkArea && child work area handle returned by riopenlcParentWkAreallDelHeaderarealcStartArea=select()=.t.=select()(lcParentWkArea)=dbf()=recno()KOD_VEDOMR TO lcParentID,pcParentID="KOD_VEDOMR"=riopen("ev","vedomr")lcChildWkArea<=0_triggerlevel=1riend WITH .F.at the end of the highest trigger level.F.not able to open the child work area=dbf(lcChildWkArea)(lcChildWkArea)lcParentIDWHILE VEDOMR=lcParentID AND llRetVal=recno()=VEDOMR="VEDOMR"=ridelete()get all of the ev records

=rireuse("ev",lcChildWkArea)NOT llRetVal_triggerlevel=1riend WITH llRetValat the end of the highest trigger level(lcStartArea)llRetVal_triggerlevel=1with llRetValat the end of the highest trigger level(lcStartArea)llRetVal

** "End of Referential integrity Delete trigger for" vedomr

************************************************************

*************************************************************__RI_UPDATE_vedomr

** "Referential integrity update trigger for" vedomrllRetVal= .t.pcParentDBF,pnParentRec,pcChildDBF,pnChildRec,pcParentID,pcChildIDpcParentExpr,pcChildExpr"" TO pcParentDBF,pcChildDBF,pcParentID,pcChildID,pcParentExpr,pcChildExpr0 TO pnParentRec,pnChildRec_triggerlevel=1TRANSACTIONpcRIcursors,pcRIwkareas,pcRIolderror,pnerror,;,pcOldExact,pcOldTalk,pcOldCompat,PcOldDBC=SET("TALK")TALK OFF=SET("DELETED")=SET("EXACT")=SET("COMPATIBLE")COMPATIBLE OFFDELETED ONEXACT OFF=""=""=ON("error")=0ERROR pnerror=rierror(ERROR(),message(),message(1),program())TYPE('gaErrors(1)')<>"U"gaErrors(1,12)=DBC()DATA TO ("DATA1")first triggerlcParentID && parent's value to be sought in childlcOldParentID && previous parent id valuelcChildWkArea && child work area handle returned by riopenlcChildID && child's value to be sought in parentlcOldChildID && old child id valuelcParentWkArea && parentwork area handle returned by riopenlcStartArea=select()=.t.=select()(lcParentWkArea)=dbf()=recno()=OLDVAL("KOD_VEDOMR")=lcOldParentID="KOD_VEDOMR"=KOD_VEDOMRlcParentID<>lcOldParentID=riopen("ev")lcChildWkArea<=0_triggerlevel=1riend WITH .F.at the end of the highest trigger level(lcStartArea).F.not able to open the child work area=dbf(lcChildWkArea)(lcChildWkArea)FOR VEDOMR=lcOldParentID=recno()=VEDOMR="VEDOMR"NOT llRetVal&& not llretval=riupdate("VEDOMR",lcParentID,"VEDOMR")get all of the ev records

=rireuse("ev",lcChildWkArea)NOT llRetVal_triggerlevel=1riend WITH llRetValat the end of the highest trigger level(lcStartArea)llRetValthis parent id changed_triggerlevel=1with llRetValat the end of the highest trigger level(lcStartArea)llRetVal

** "End of Referential integrity Update trigger for" vedomr

*************************************************************

**__RI_FOOTER!@ Do NOT REMOVE or MODIFY this line!!!! @!__RI_FOOTER**

Похожие работы на - Автоматизированная информационная система обработки данных учета пенсионных начислений и компенсаций ЦСО Военного комиссариата Курской области

 

Не нашли материал для своей работы?
Поможем написать уникальную работу
Без плагиата!