Разработка модуля автоматизированного учета контрактов услуг для предприятия I.S.'Radiocomunicatii'

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

Разработка модуля автоматизированного учета контрактов услуг для предприятия I.S.'Radiocomunicatii'

МИНИСТЕРСТВО ПРОСВЕЩЕНИЯ РЕСПУБЛИКИ МОЛДОВА

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

Факультет Математики и Информатики

Кафедра Прикладной Информатики








Магистерская работа

Разработка модуля автоматизированного учета контрактов услуг для предприятия I.S."RADIOCOMUNICATII"










Кишинев, 2013

СПИСОК ПРИНЯТЫХ СОКРАЩЕНИЙ

БД - база данных

BI - Business Intelligence

Млн.- миллион

Тыс. - тысяча

Рис. - рисунок

Табл. - таблица

Т.е - то есть

OLAP - Online Analytical Processing

ИТ - Информационные Технологии

ИС - Информационная система

СУБД - Система управления базами данных- Integrated Development Environment- Enterprise Resource Planning- Structured Query Language

АННОТАЦИЯ

В работе разработан модуль автоматизированного учета контрактов на предоставление услуг клиентам предприятия «I.S."RADIOCOMUNICATII"». Данный модуль является частью информационной, управленческой системы Universal Accounting.

В качестве инструментов разработки используются СУБД Oracle, TOAD, FormulaOne. В разработанном модуле реализованы три важных этапа учета:

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

Начисление доходов от предоставленных, согласно контрактам, услуг.

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

Данный модуль был специально разработан и адаптирован согласно всем требованиям и пожеланиям руководства предприятия и является оригинальным (не стандартным) модулем ИС Universal Accounting.

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

Модуль контрактов сдан в эксплуатацию (акт приемки-сдачи выполненных работ №3-RDC по модулю учета контрактов от 15-м апреля 2010 года). Это означает полноценное использование модуля сотрудниками предприятия «I.S. "RADIOCOMUNICATII"» в своей повседневной работе.

Ключевые слова: ORACLE, УЧЕТ КОНТРАКТОВ, АЛГОРИТМЫ РАСЧЕТА ДОХОДОВ, ОБРАБОТКА ИНФОРМАЦИИ, ОПЕРАТИВНЫЙ ПОИСК ИНФОРМАЦИИ, UNIVERSAL ACCOUNTING, УПРАВЛЕНЧЕСКИЙ УЧЕТ, ИНТЕРФЕЙС МОДУЛЯ, БАЗА ДАННЫХ, СТРУКТУРА, ИНФОРМАЦИОННАЯ СИСТЕМА.

ADNOTARE

În lucrarea dată a fost elaborat modulul automatizat de înregistrare a contractelor pentru furnizarea serviciilor clientolor companiei «I.S."RADIOCOMUNICATII"». Acest modul este o parte constituientă al sistemului informaţional managerial Universal Accounting.

Ca instrumente de dezvoltare au fost folosite SGBD Oracle, TOAD, FormulaOne. În modulul dezvoltat au fost realizate trei importante aspecte ce ţine de gestiunea serviicilor:

Înregistrarea documentelor primare de contracte;veniturilor prevazute la serviciile contractuale;

Imprimarea facturilor fiscale, facturilor de plata a clienţilor şi vizualizarea raportelor cu privire la îndeplinirea contractelor.modul a fost special dezvoltat şi adaptat în conformitate cu toate cerinţele şi dorinţele conducerii companiei şi este un modul original (non standard) al SI Universal Accounting.modulului în practica gestiunii contractelor a dat economie de peste 50% din timpul folosit pentru perfectarea şi ajustărea manuală, introducerea informaţiilor şi are ca efect reducerea numărului de erori şi cel mai important, duce la creşterea vitezei şi eficienţei de lucru a personalului.

Prin cercificatul №3-RDC de acceptare-predare a lucrărilor din 15 aprilie 2010 modulul a fost primit în expluatare. Aceasta înseamnă utilizarea deplină al modulul de angajaţii companiei «I.S."RADIOCOMUNICATII"» în activitatea lor de zi cu zi.

Cuvinte cheie: ORACLE, CONTABILITATEA CONTRACTELOR, ALGORITME PENTRU CALCULAREA VENITURILOR, PRELUCRAREA INFORMAȚIEI, CAUTAREA RAPIDĂ INFORMAȚIEI, UNIVERSAL ACCOUNTING, MANAGEMENTUL CONTURI, INTERFAȚA.

ANNOTATION

work is devoted to developing the module of the automated account of contracts on granting of services to clients by company «I.S."RADIOCOMUNICATII"». This module is a part of information, administrative system Universal Accounting.working tools are used DBMS Oracle, TOAD, FormulaOne. In the developed module are realized three important stages of the account:of primary documents of contracts.of incomes from given, according to contracts, services.Press of tax waybills accounts on payment to clients and reporting viewing under contracts.given module has been specially developed and adapted according to all requirements and wishes of administration of company and is original (not standard) module IS Universal Accounting.of the module of contracts has allowed to save more than 50 % of time spent for mechanical actions of registration, updating, input of information, and also to lower quantity of not compelled errors of the personal and the main thing, to increase speed and a personal overall performance.certificate of acceptance of the executed works №3-RDC on the module of the account of the contracts, dated has been signed on April, 15th, 2010. It means high-grade use of the module by employees of the company «I.S." RADIOCOMUNICATII "» in the daily work.words: ORACLE, ACCOUNT OF CONTRACTS, ALGORITHMS OF CALCULATION OF INCOMES, INFORMATION PROCESSING, OPERATIVE INFORMATION SEARCH, UNIVERSAL ACCOUNTING, ADMINISTRATIVE ACCOUNT, MODULE INTERFACE, DATABASE, STRUCTURE, INFORMATION SYSTEM.

ВВЕДЕНИЕ

Информационные системы (ИС) - настоящее и будущее в их развитии.

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

работать с большим объемом данных;

хранить данные в течение длительного временного периода;

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

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

достаточно быстро находить требуемую информацию и т. д.

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

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

Современные архитектуры ИС

По степени распределённости отличают:

настольные (desktop), или локальные ИС, в которых все компоненты (БД, СУБД, клиентские приложения) работают на одном компьютере;

распределённые (distributed) ИС, в которых компоненты распределены по нескольким компьютерам.

Распределённые ИС, в свою очередь, разделяют на

файл-серверные ИС (ИС с архитектурой «файл-сервер»);

клиент-серверные ИС (ИС с архитектурой «клиент-сервер»).

В файл-серверных ИС база данных находится на файловом сервере, а СУБД и клиентские приложения находятся на рабочих станциях.

В клиент-серверных ИС база данных и СУБД находятся на сервере, а на рабочих станциях находятся клиентские приложения.

В свою очередь, клиент-серверные ИС разделяют на двухзвенные и многозвенные.

В двухзвенных (two-tier) ИС всего два типа «звеньев»: сервер баз данных, на котором находятся БД и СУБД, и рабочие станции, на которых находятся клиентские приложения. Клиентские приложения обращаются к СУБД напрямую.

В многозвенных (multi-tier) ИС добавляются промежуточные «звенья»: серверы приложений (application servers). Пользовательские клиентские приложения не обращаются к СУБД напрямую, они взаимодействуют с промежуточными звеньями.

Среда Oracle и ее возможности в создании ИС

Oracle Database 10g - первая в мире база данных, разработанная специально для работы в сетях распределенных вычислений. Oracle Database 10g предназначена для эффективного развертывания на базе различных типов оборудования, от небольших серверов до Oracle Enterprise Grid мощных многопроцессорных серверных систем, от отдельных кластеров до корпоративных распределенных вычислительных систем. Oracle Database 10g позволяет пользователям виртуализировать использование аппаратного обеспечения - серверов и систем хранения данных. Oracle Database 10g обладает технологиями, которые позволяют администраторам надежно хранить и быстро распределять и извлекать данные для пользователей и приложений, работающих в сетях Grid. Oracle Database 10g значительно повышает производительность обработки данных и включает в себя удобные средства администрирования.

Oracle Database 10g предоставляет возможность автоматической настройки и управления, которая делает ее использование простым и экономически выгодным. Ее уникальные возможности осуществлять управление всеми данными предприятия - от обычных операций с бизнес-информацией до динамического многомерного анализа данных (OLAP), операций с документами формата XML, управления распределенной/локальной информацией - делает ее идеальным выбором для выполнения приложений, обеспечивающих обработку оперативных транзакций, интеллектуальный анализ информации, хранение данных и управление информационным наполнением.

Некоторые ключевые возможности Oracle Database 10g:

Real Application Cluster (RAC) обеспечивает работу одного экземпляра базы данных на нескольких узлах grid, позволяя управлять нагрузкой и гибко масштабировать систему в случае необходимости.

Automatic Storage Management (ASM) позволяет автоматически распределять данные между имеющимися ресурсами систем хранения данных, что повышает отказоустойчивость системы и снижает общую стоимость владения (TCO).

Производительность. Oracle Database 10g позволяет автоматически управлять уровнями сервиса и тиражировать эталонные конфигурации в рамках всей сети.

Простые средства разработки. Новый инструмент разработки приложений HTML DB позволит простым пользователям создавать эффективные приложения для работы с базами данных в короткие сроки.

Самоуправление. Специальные механизмы Oracle Database 10g позволяют самостоятельно перераспределять нагрузку на систему, оптимизировать и корректировать SQL-запросы, выявлять и прогнозировать ошибки.

Большие базы данных. Теперь максимальный размер экземпляра базы данных Oracle может достигать 8 экзабайт.

Недорогие серверные системы. Oracle Database 10g может использовать недорогие однопроцессорные компьютеры или модульные системы из "серверов-лезвий".

В новой версии базы данных реализована поддержка переносимых табличных пространств, система управления потоками данных Oracle Streams и модель распределенных SQL-запросов. Для переноса существующих баз данных в среду Grid в них не потребуется вносить изменений, что позволяет быстро начать использовать все преимущества Oracle Database 10g.

Одной из основных характеристик СУБД Oracle является функционирование системы на большинстве платформ, и в том числе на больших ЭВМ, UNIX-серверах, персональных компьютерах и так далее. Другой важной характеристикой является поддержка Oracle всех возможных вариантов архитектур, в том числе симметричных многопроцессорных систем, кластеров, систем с массовым параллелизмом, архитектур мэйнфреймов. Очевидна значимость этих характеристик для современных организаций, где эксплуатируется множество компьютеров различных моделей и производителей. В таких условиях фактором успеха является максимально возможная типизация предлагаемых решений, ставящая своей целью существенное снижение стоимости владения программным обеспечением. Унификация систем управления базами данных - один из наиболее значимых шагов на пути достижения этой цели.

Поддержка Oracle большинства популярных компьютерных платформ и архитектур достигается за счет жесткой технологической схемы разработки кода СУБД. Разработку серверных продуктов выполняет единое подразделение корпорации Oracle, изменения вносятся централизовано, после этого все версии подвергаются тщательному тестированию в базовом варианте, а затем переносятся на все платформы, где также детально проверяются. Возможность переноса Oracle обеспечивается специфической структурой исходного программного кода сервера баз данных. Приблизительно 80% программного кода Oracle - это программы на языке программирования C, который (с известными ограничениями) является платформонезависимым. Примерно 20% кода, представляющее собой ядро СУБД, реализовано на машинно-зависимых языках, и эта часть кода перерабатывается для различных платформ. СУБД Oracle скрывает детали реализации механизмов управления данным на каждой из платформ, что дает основание говорить о практически полной унификации базового программного обеспечения. Дополнительно к этому, архитектура Oracle позволяет переносить прикладные системы, реализованные на одной платформе, на другие платформы без изменений как в структурах баз данных, так и кодов приложений.

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

Одна из отличительных особенностей Oracle - возможность хранения и обработки различных предопределенных типов данных. Данная функциональность интегрирована в ядро СУБД и поддерживается модулем interMedia в составе Oracle Database. Он обеспечивает работу с текстовыми документами, включая различные виды поиска, в том числе контекстного; работу с графическими образами более 20-ти форматов; работу с аудио- и видео информацией. СУБД Oracle не просто предоставляет расширенный набор встроенных типов данных, но и позволяет конструировать новые типы данных со спецификацией методов доступа к ним. Это означает, что разработчики получают в руки не просто систему для хранения и обработки атрибутивных данных в виде таблиц, а инструмент, позволяющий строить структурированные типы данных, непосредственно отображающие сущности предметной области.

Цели и задачи настоящей работы

Целью данной работы - это разработка и последующее внедрение модуля автоматизируемого учета контрактов на предоставление услуг клиентам на предприятии I.S."RADIOCOMUNICATII". Данный модуль является частью корпоративной информационной системы(КИС) Universal Accounting.

Мотивация выбора темы и ее актуальность

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

Новизна темы

Данный модуль был специально разработан и адаптирован согласно всем пожеланиям руководства предприятия и является оригинальным (не стандартным) модулем комплексной ИС.

Используемые методы и технологии разработки

В данном модуле из технологий и методов разработки следует выделить:

В качестве ядра модуля( и системы в целом) используется СУБД Oracle.

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

В качестве операционных систем используются Linux( для сервера Oracle) и MS Windows XP(на рабочих местах).

В качестве интегрированной среды разработки (IDE) для разработки пакетов, процедур, функций, триггеров и другого PL/SQL кода использовался TOAD.

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

Также необходимо упомянуть об использовании заданий(jobs), политик безопасности (policy) и архивировании базы данных (backup) методом DataPump в случаях непредвиденных сбоев и возможного восстановления.

Структура и содержание дипломной работы

В первой главе дипломной работы описываются современные технологии создания и ведения информационных систем. Особое внимание уделено ИС Universal Accounting. Вторая глава посвящена проектированию модуля контрактов на предоставление услуг. В третьей главе описывается реализация модуля контрактов в СУБД Oracle. Четвертая глава отображает вид модуля контрактов со стороны пользователя, показывает расположение модуля в ИС Universal Accounting.

1. СОВРЕМЕННЫЕ ТЕХНОЛОГИИ СОЗДАНИЯ И ВЕДЕНИЯ ИНФОРМАЦИОННЫХ СИСТЕМ (НА ПРИМЕРЕ ОПИСАНИЯ СИСТЕМЫ UNIVERSAL ACCOUNTING)

.1 Новые направления в развитии информационных систем

Одной из составляющей роста и развития информационной инфраструктуры бизнеса стал процесс развития информационных систем, и, прежде всего, информационных систем управления предприятиями. Специальные стандарты, регламентирующие функции корпоративных ИС не существуют, но, как правило, такие системы ориентируются на широко распространенные методологии MRPII и ERP, разработанные американским обществом по контролю за производством и запасами (American Production and Inventory Control Society, APICS), и фактически являющиеся стандартами управления бизнесом.

1.2 MRP и MRP-II ИС

Исходным стандартом систем управления предприятием является стандарт MRP (Material Requirements Planning), представляющий собой методологию планирования потребности в материалах.

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

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

MRP системы разрабатывались для использования на производственных предприятиях.

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

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

Логику функционирования системы стандарта MRP можно представить следующей диаграммой (рис. 1.1).

Рис. 1.1 - Структура системы стандарта MRP

На рисунке 1.1 отображены основные информационные элементы системы стандарта MRP. Ее входными элементами являются:

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

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

. Перечень составляющих конечного продукта (Bills of Material File, BOM). Список материалов и их количество, требуемое для производства конечного продукта.

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

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

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

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

Постоянно производившиеся совершенствования систем стандарта MRP привело к созданию расширенной модификации, которую ввиду идентичности аббревиатур назвали MRP-II (Manufactory Resource Planning - планирование производственных ресурсов), стандарт, позволяющий планировать все производственные ресурсы предприятия (сырьё, материалы, оборудование и т.д.).

Согласно APICS, термин «планирование ресурсов производства» (Manufacturing resource planning) - это «...метод эффективного планирования всех ресурсов производственного предприятия. В идеале, он позволяет осуществлять производственное планирование в натуральных единицах измерения, финансовое планирование - в стоимостных единицах измерения и предоставляет возможность осуществлять моделирование с целью ответа на вопросы типа «что будет, если...». Он состоит из множества функций, связанных друг с другом: бизнес-планирование, планирование продаж и операций, планирование производства, формирование главного календарного плана производства, планирование потребности в материалах, планирование потребности в мощностях, система поддержки исполнения планов для производственных мощностей и материалов. Выходные данные от этих систем интегрируются с финансовыми отчетами и документами, такими как бизнес-план, отчет о выполнении закупок, план (бюджет) отгрузки, прогноз запасов в стоимостном выражении и т. д. Планирование ресурсов производства представляет собой прямое продолжение и расширение MRP, работающего по замкнутому циклу».

Характеризуя MRP II в целом, можно сказать, что его механизм опирается на три базовых принципа: иерархичность, интегрированность и интерактивность.

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

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

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

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

1.3 Концепция ERP ИС

Дальнейшее развитие концепции MRP-II шло по пути максимального расширения функций и возможностей информационных систем. В результате появилась концепция ERP (Enterprise Resource Planning) - планирование ресурсов предприятия для всех основных видов деятельности.

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

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

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

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

организовать эффективное планирование всей финансовой и хозяйственной деятельности;

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

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

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

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

К особенностям применения современных ERP - систем относятся:

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

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

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

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

сокращение горизонта оперативного планирования до недель, дней и даже по мере появления каждого нового заказа.

Существует два выбора путей использования ERP: первый выбор - это самостоятельное развитие и разработка интегрированных ERP систем; другой выбор - это использование коммерчески доступного программного обеспечения.

1.4 Система UNIVERSAL ACCOUNTING

Universal Accounting®(UA) (Универсальная бухгалтерия / Contabilitate Universala) - комплексная автоматизированная система бухгалтерско-финансового и управленческого учета/анализа. Universal Accounting® функционирует на всех Windows платформах: Windows 95, 98, МЕ, NT 4.0, NT 5.0, 2000, ХР.

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

UA характеризуется современной технологией хранения и обработки данных, полным набором необходимых настроек, соответствием основным параметрам систем ERP-класса, что позволяет в сжатые сроки комплексно автоматизировать, оптимизировать бизнес-процессы и повысить качество управления. Открытость и унифицированность базы данных на платформе СУБД ORACLE, технология контроля и безопасности дают возможность плавно развивать и сопровождать информационную систему в соответствии с ростом организации. Cистема UA разработана в Молдове с учетом требований Национальных стандартов бухгалтерского учета и Налогового кодекса РМ, являясь оптимальным решением по соотношению "стоимость / функционал" для организаций различных сфер деятельности и масштабов. Универсальность системы подтверждена широким отраслевым покрытием.

Внедрение Universal Accounting® позволяет:

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

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

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

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

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

Общая характеристика КИС Universal Accounting®:

В основе системы лежит принцип автоматизации всего документооборота, а не только бухгалтерского учета. По сути, это именно система учета и управления, благодаря чему легко отслеживаются перемещения товаров, отгрузки, задолженности, остатки, затраты, продажи и пр. Бухгалтерские проводки генерируются автоматически на основе хозяйственных операций, регистрируемых в системе. Все операции с автоматическим выходом на баланс. Ни одна хозяйственная операция не упускается из виду. Фиксируется все, что происходит на предприятии. Требует повышенной дисциплины и аккуратности от лиц, ответственных за своевременный ввод данных, что благоприятно сказывается на рабочей атмосфере, мотивирует коллектив и облегчает работу менеджеров, позволяя им оперативно контролировать финансовое состояние компании. Система является многопользовательской, т.е. позволяет работать с каждым модулем одновременно нескольким пользователям. Разнообразные отчеты согласно корпоративным правилам и требованиям Национальных стандартов бухгалтерского учета и Налогового кодекса РМ. Удобная настройка, перенастройка и масштабирование отчетов. Быстрое формирование отчетов в различных разрезах. Все отчеты могут быть экспортированы в текстовый формат и продукты MS Office (Word, Excel) для дальнейшей обработки и анализа. Работа пользователей максимально упрощена: графические интерфейсы позволяют ускорить поиск и ввод данных, а стандартный интерфейс Windows интуитивно понятен пользователю. Подсказки, предупреждения, автоматическое отслеживание ошибок при вводе информации, индикация несоответствий в данных - все это помогает работать быстро и эффективно даже бухгалтерам, не очень опытным в компьютерах. Поддержка русского, румынского и английского языков.

База данных системы Universal Accounting® концептуально ориентирована на документарный стиль хранения и обработки информации:

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

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

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

доступ к аналитике осуществляется посредством определения конфигурации бухгалтерского счета;

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

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

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

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

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

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

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

Далее пользователь запускает модуль второго уровня. Здесь происходит регистрация документов и вспомогательные операции (например, расчет износа, ввод документов и расчет зарплаты, поиск информации и т.п.).

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

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

Начать редактирование ® Закончить редактирование (Сохранить или Отменить).

Интерфейс пользователя - стандартный, Windows-ориентированный.

Главное окно Universal Accounting® - это первичная рабочая область. Все окна открываются из главного окна и содержатся в главном окне. Главное окно является родительским по отношению ко всем остальным, которые являются дочерними. Это означает, что каждое окно относительно самостоятельно, но не может существовать при закрытом главном окне.

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

Таким образом, интерфейс системы Universal Accounting® принадлежит к классическому типу многодокументного интерфейса (MDI). Главное окно приложения состоит из меню, инструментальной панели, панели состояния и рабочей области окна.

В рабочей области окна размещаются дочерние MDI-окна. Пользователь осуществляет ввод информации только через дочерние окна. Управление дочерними окнами осуществляется только через главное окно.

Дочернее окно имеет следующие состояния по отношению к главному окну:

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

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

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

Свернутое. Активное дочернее окно переходит в данное состояния после нажатия на кнопку свертки.

Развернутое. Активное дочернее окно переходит в данное состояния после нажатия на кнопку развертки. Состояние по умолчанию. Все окна переходят в это состояние одновременно.

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

Скрытое. Активное дочернее окно переходит в данное состояния после нажатия на кнопку закрытия.

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

Все открытые дочерние окна зарегистрированы через пункт Windows в меню главного окна. Цвет шапки любого дочернего окна отражает состояние окна: активно ли данное окно или нет (по умолчанию синий - активно, серый - неактивно). Переключение между окнами, находящимися в состоянии 2-6 может быть осуществлено через пункт в меню главного окна Windows или путем нажатия клавиш Ctrl+Tab.

Основные логические компоненты Universal Accounting:

Структура базы данных, модель.

План счетов, аналитика.

Проводки.

Журналы документов.

Справочники.

Конфигурации.

Пользователи системы, группы.

Аудит пользователей.

Настройки визуальных объектов.

Раздача прав через конфигуратор.

План счетов - справочник.

Уровни аналитики.

Вспомогательные справочники.

Таблица документов, подчиненные таблицы.

Таблица проводок.

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

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

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

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

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

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

В итоге, все отчетные формы можно поделить на две глобальные категории:

отчеты, основанные на данных из бухгалтерских регистров (сальдо, обороты);

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

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

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

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

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

Определяется наиболее поздняя дата зарегистрированного в регистре сальдо, предшествующая заданной дате (предшествующая дата).

По регистру сальдо определяется сальдо на предшествующую дату.

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

Сальдо на предшествующую дату складывается с найденными оборотами.

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

Регистр сальдо предназначен для увеличения скорости вычислений и должен содержать только достоверные данные (чаще всего из уже закрытых учетных периодов).

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

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

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

Рис. 1.2 - Дерево отчетов

Используемые пользователями на практике отчеты можно условно разделить на следующие группы.

Универсальные отчеты. Универсальные отчеты предназначены для использования практически в любых организациях и для любых разделов учета. В основном, они отражают бухгалтерские итоги в различных разрезах для любых указываемых счетов, видов субконто, валют. К универсальным относятся такие отчеты как «Оборотно-сальдовая ведомость», «Шахматка», «Анализ счета», «Карточка счета» и другие. Такие отчеты используются очень широко непосредственно при ведении бухгалтерского учета для анализа бухгалтерских итогов на уровне счетов, субсчетов, валют, объектов аналитики, различных периодов и детальных проводок.

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

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

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

правильно установив период расчета для отчетных данных;

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

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

Любой отчет в Universal Accounting® формируется предопределенными подпрограммами на основе параметров, которые пользователь вводит в окне настройки.

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

Генератор отчетных форм в Universal Accounting® обладает следующими свойствами:

секционное представление шаблонов;

визуальное редактирование шаблонов;

совместимость с форматом электронных таблиц Microsoft Excel 97;

неограниченная длина отчетов;

неограниченное количество группировок;

поддержка в шаблонах пользовательских формул;

возможность предварительного просмотра перед печатью;

полный контроль печати отчетов.

Создание шаблона выходной формы заключается в “рисовании” составных частей, заготовок, из которых затем будет “собрана” готовая выходная форма - отчет. Так как практически все деловые документы имеют “прямоугольную” структуру, шаблоны таких документов удобно создавать в редакторе, способном работать именно с прямоугольными элементами.

Таким редактором и является табличный редактор, входящий в состав системы Universal Accounting®. В процессе создания шаблона отчета можно: вводить в ячейки таблицы разнообразный текст; назначать параметры форматирования как тексту, так и ячейке в целом; изменять высоту строк и ширину столбцов таблицы; включать в шаблон нарисованные элементы - линии и прямоугольники, а также OLE-объекты.

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

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

Шаблон отчета может состоять из следующих секций:

Title (шапка отчета и табличной части);

Group Header (заголовок группы);

Detail1 (главная секция табличной части или мастер-секция);

Detail2 (подчиненная секция табличной части или секция детализации);

Group Footer (подвал группы);

Summary (подвал отчета).

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

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

Шаблоны отчетов хранятся в виде отдельных файлов с расширением.VTS в общей базе данных.

Справочники:

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

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

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

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

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

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

2. ПРОЕКТИРОВАНИЕ МОДУЛЯ УЧЕТА КОНТРАКТОВ-УСЛУГ НА ПРЕДПРИЯТИИ «РАДИОКОММУНИКАЦИИ»

Проектирование данного модуля было следующим:

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

2.1 Разработка первичных документов регистрации контрактов

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

«Contract radioficare» - контракт на подключение радиоузла(радиоточка - вещание радио посредством кабеля ).

« Contract Telecomunicatii» - контракт на услуги вещания ТВ и RD(радиовещания - вещание посредством передатчиков, устанавливаемых на вышках).

«Contract Suporturi radioficare» - контракт на установку антенн вещания для вспомогательных целей.

«Contract FST» - контракт на аренду технологического пространства.

«Contracte alte servicii» - контракт на прочие операции и услуги.

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

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

Описание алгоритмов расчета, согласно каждому типу контракта, представлено ниже:

Документ «(1410) Calculul serviciilor RD fond locativ» начисление доходов от предоставленных услуг контрактов радиофикации(«(1413) Contract radioficare»). Алгоритм загрузки документа:

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

Далее, если месяц, в котором создается текущий документ, является закрытием полугода(это месяцы июнь и декабрь), то фильтр на «Тип предоставляемой услуги» не применяется. Если месяц завершает квартал года (это месяцы март, июнь, сентябрь и декабрь), то фильтр на «Тип предоставляемой услуги» устанавливается на значения «Lunar» и «Trimestrial». Если месяц текущего документа другой, то на «Тип предоставляемой услуги» устанавливается только на значение «Lunar».

Далее, если валюта контракта отлична от LEI, то происходит перевод всех сумм в других валютах на леи по курсу НБМ на дату текущего документа.

Далее, если у контракта «Тип предоставляемой услуги» «Trimestrial», то рассчитывать суммы надо на 3 месяца. Соответственно, если «Тип предоставляемой услуги» «1 jumatate an», то рассчитывать суммы надо на 6 месяцев.

Если значение поля «НДС» у контракта равно «Inclusiv TVA», то поле «Pret» рассчитывается как поле «Pret»_контракта *(100/( %_НДС +100)), иначе поле «Pret» текущего документа равно полю «Pret» контракта.

Исходя из полей «Pret», НДС и «Cantitatea(luna)» дальше считаются остальные суммы.

Документ «(1415) Calculul serviciilor RD» начисление доходов от предоставленных услуг контрактов радиофикации(«(1413) Contract radioficare») на конкретный контракт одного клиента. Алгоритм загрузки документа:

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

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

Дальше алгоритм похож на шаги a.- f. алгоритма документа «(1410) Calculul serviciilor RD fond locativ».

Документ «(1411) Calculul veniturilor din servicii de telecomunicatii» начисление доходов от предоставленных услуг контрактов телекоммуникации(«(1406) Contract Telecomunicatii») на конкретный контракт одного клиента. Алгоритм загрузки документа:

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

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

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

Если значение поля «НДС» у контракта равно «Inclusiv TVA», то поле «Tarif lei/ora cap.deplina» рассчитывается как поле «Tarif lei»_контракта *(100/( %_НДС +100)), иначе поле «Tarif lei/ora cap.deplina» текущего документа равно полю «Tarif lei» контракта.

Документ «(1412) Calculul veniturilor din servicii FST» начисление доходов от предоставленных услуг контрактов FST(«(1409) Contract FST») на конкретный контракт одного клиента. Алгоритм загрузки документа:

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

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

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

Далее, если валюта контракта отлична от LEI, то происходит перевод всех сумм в других валютах на леи по курсу НБМ на дату текущего документа.

Далее, если у контракта «Тип предоставляемой услуги» «Trimestrial», то рассчитывать суммы надо на 3 месяца. Соответственно, если «Тип предоставляемой услуги» «1 jumatate an», то рассчитывать суммы надо на 6 месяцев. Если значение поля «НДС» у контракта равно «Inclusiv TVA», то поле «Plata lunar cf contract» рассчитывается как поле «Tarif ST»_контракта *(100/( %_НДС +100)), иначе поле «Plata lunar cf contract» текущего документа равно полю «Tarif ST» контракта. Документ «(1414) Calculul veniturilor din servicii SR» начисление доходов от предоставленных услуг контрактов по суппорту радиофикации(«(1407) Contract Suporturi radioficare») на конкретный контракт одного клиента. Алгоритм загрузки документа:

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

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

Дальше алгоритм похож на шаги a.- f. алгоритма документа «(1410) Calculul serviciilor RD fond locativ».

2.3 Разработка печатных форм для налоговых накладных, счетов на оплату и отчетности

Здесь необходимо отметить разработку следующих печатных форм:

Налоговые накладные (разграфленные).

Налоговые накладные (не разграфленные).

Счет - фактуры к оплате.

Форма расчета объема предоставленных услуг по контракту.

Было разработано 2 отчета согласно требованиям клиента:

Отчет по истории спецификации(Radioficare).

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

Здесь необходимо отметить использование аналитических функций Oracle:

функции ранжирования.

статистические функции для плавающего интервала.

функции подсчета долей.

статистические функции LAG/LEAD с запаздывающим/опережающим аргументом.

3. РЕАЛИЗАЦИЯ МОДУЛЯ УЧЕТА КОНТРАКТОВ - УСЛУГ В СРЕДЕ ORACLE. ИНТЕРФЕЙС МОДУЛЯ КОНТРАКТОВ

.1 Описание объектов модуля контрактов. ER - диаграмма

ER - диаграмма модуля контрактов выглядит следующим образом:

Рис. 3.1 - ER - диаграмма

Как видно из рис. 3.1 таблица tmdb_docs является «главной» таблицей и отображает журнал документов. Таблица tmdb_cm отображает данные о бухгалтерских проводках документов. Таблица tmdb_reg отображает шапку документа. Таблица tmdb_reg_a отображает данные о датах спецификации контрактов. Таблицы tmdb_reg_a1 и tmdb_reg_a2 отражают основную информацию документа по услугам, предоставляемым согласно заключенному контракту(master таблица документа). Таблицы tmdb_reg_a1d и tmdb_reg_a2d отражают дополнительную информацию документа по услугам, предоставляемым согласно заключенному контракту(detail таблица документа). Более подробно создание таблиц, индексов и ограничений описывается в ПРИЛОЖЕНИИ 1.

Для описанных ранее таблиц были созданы необходимые триггеры. Например, триггер "TRIG_BFUPD_TMDB_DOCS" контролирует обновление журнала документов различными пользователями системы. Триггер "TRG_DOCS_COLOR" отвечает за проводимость документа(Документ меняет цвет при проведении, дезактивации либо удалении проводок). Триггер "XTRIGLOGDOCS" обеспечивает логирование документов. Триггер "TMDB_DOCS_TRLOG" логирует все действия, производимые пользователем в текущем документе. Триггер "TRIG_AFTINS_TMDB_DOCS2" позволяет продублировать документ. Более подробно создание триггеров описывается в ПРИЛОЖЕНИИ 1.

Для генерации уникальных кодов первичных ключей используются последовательности. Последовательность ID_TMDB_CM используется для генерации первичного ключа в таблице tmdb_cm и других таблицах. Последовательность ID_TMDB_DOCS используется для генерации первичного ключа в таблице tmdb_docs. Последовательность ID_TMS_UNIVERS используется для генерации кода в справочнике. Более подробно создание последовательностей описывается в ПРИЛОЖЕНИИ 1.

На основе таблиц были созданы представления. Представление VMDB_DOCS создано на основе таблицы TMDB_DOCS. Представление VMDB_REG создано на основе таблицы TMDB_ REG. Представление VMDB_REG_A создано на основе таблицы TMDB_ REG_A. Представление VMDB_REG_A1 создано на основе таблицы TMDB_REG_A1. Представление VMDB_REG_A2 создано на основе таблицы TMDB_REG_A2. Представление VMDB_REG_A1D создано на основе таблицы TMDB_REG_A1D. Представление VMDB_REG_A2D создано на основе таблицы TMDB_ REG_A2D. Более подробно создание представлений описывается в ПРИЛОЖЕНИИ 1.

Для реализации сложных алгоритмов расчета, создания действий(actions) над документом, генерации отчетов и печатных форм программный код разрабатывался в пакетах. Созданные процедуры и функции в пакетах реализуют программную логику модуля контрактов. Необходимо выделить пакет yrdc_contracts и yrdc_contr_reps. Структура пакетов приведена ниже, а полное описание можно посмотреть в ПРИЛОЖЕНИИ 2.

CREATE OR REPLACE PACKAGE RADIOCOM.yrdc_contracts AUTHID CURRENT_USER AS

/******************************************************************************: yrdc_contracts::Date Author Description

-- ---

.0 28.10.2009 1. Created this package.

******************************************************************************/

экшен "Дублирование данных из предыдущей даты"

PROCEDURE contr_dubl(p_nrdoc NUMBER,p_dataspec_new date,p_type_dubl number:=0);

экшен "Рассчитать суммы"sum_account(p_nrdoc NUMBER,p_type_doc number:=0);

- экшен "Заполнить данными согласно контрактов"

PROCEDURE usl_calc(p_nrdoc NUMBER,p_sysfid NUMBER,p_client number:=-1,p_grp_name varchar2:=null);

экшен "Расчитать НДС"calc_tva(p_nrdoc NUMBER,p_sysfid number);calc_tva_radiof(p_nrdoc NUMBER);calc_tva_telecom(p_nrdoc NUMBER);calc_tva_fst(p_nrdoc NUMBER);

calc_contr_radiof(p_nrdoc NUMBER,p_sysfid NUMBER,p_client NUMBER,p_grp_name varchar2:=null,p_contr number:=null);calc_contr_telecom(p_nrdoc NUMBER,p_sysfid NUMBER);calc_contr_fst(p_nrdoc NUMBER,p_sysfid NUMBER);

- action "Sgenerirovati nomera NN" v doc.1421gnr_NN_1421(p_nrdoc number, p_nrdoc1 number);

--

- actioni "Заполнить из групы Servicii RD prestate populatiei" v doc.1421enter_servicii(p_nrdoc number);

--

- action "Sgenerirovati nomera NN" v doc.1204gnr_NN_1204(p_nrdoc number, p_rrowid number);

 заполнене 1422 документа. Все документы по услугам телекомуникаций за месяц (sysfid - 1411)

PROCEDURE enter_1422(p_nrdoc NUMBER, p_data DATE, p_client NUMBER);check_date(vdate date);yrdc_contracts;

/

CREATE OR REPLACE PACKAGE RADIOCOM.yrdc_contr_reps AS

/******************************************************************************: yrdc_contr_reps::Date Author Description

-- ---

1.0 02.02.2010 1. Created this package.

******************************************************************************/

отчет по истории спецификации, документов контарктов "(1413) Contract radioficare"

PROCEDURE rep_hist_spec(p_datastart date,p_dataend date,p_contr IN LONG,SQLH OUT LONG,SQLM OUT LONG);rep_serv_radio(p_datastart date,p_dataend date,p_contr IN LONG,SQLH IN OUT LONG,SQLM IN OUT LONG);GET_CONTRACTS_DATA RETURN LONG; yrdc_contr_reps;


Для заключения контракта на подключение радиоузла был создан документ «(1413) Contract radioficare». В нем указываются реквизиты контракта(бенефициар, дата заключения, валюта контракта, номер контракта, схема оплаты, тип и т.д. ), даты спецификации и данные о предоставляемых услугах.

Документ «(1413) Contract radioficare» выглядит следующим образом:

Рис. 3.2 - Contract radioficare

Для заключения контракта на услуги вещания ТВ и RD был создан документ «(1406) Contract Telecomunicatii». В нем указываются реквизиты контракта(бенефициар, дата заключения, валюта контракта, номер контракта, схема оплаты, тип и т.д. ), даты спецификации и данные о предоставляемых услугах в том числе и данные о дополнительных услугах, необходимых для расчетов в документе доходов.

Документ «(1406) Contract Telecomunicatii» выглядит следующим образом:

Рис. 3.3 - Contract Telecomunicatii

Для заключения контракта на аренду технологического пространства был создан документ «(1409) Contract FST». В нем указываются реквизиты контракта(бенефициар, дата заключения, валюта контракта, номер контракта, схема оплаты, тип и т.д. ), даты спецификации и данные о предоставляемых услугах в том числе и данные о дополнительных услугах, необходимых для расчетов в документе доходов. Документ «(1409) Contract FST» выглядит следующим образом:

Рис. 3.4 - Contract FST

Для заключения контракта на установку антенн вещания для вспомогательных целей был создан документ «(1407) Contract Suporturi radioficare». В нем указываются реквизиты контракта(бенефициар, дата заключения, валюта контракта, номер контракта, схема оплаты, тип и т.д. ), даты спецификации и данные о предоставляемых услугах, необходимых для расчетов в документе доходов.

Документ «(1407) Contract Suporturi radioficare» выглядит следующим образом:

Рис. 3.5 - Contract Suporturi radioficare

Для заключения контракта на прочие операции и услуги был создан документ «(1408) Contracte alte servicii». В нем указываются реквизиты контракта(бенефициар, дата заключения, валюта контракта, номер контракта, схема оплаты, тип и т.д. ), даты спецификации и данные о предоставляемых услугах, необходимых для расчетов в документе доходов.

Документ «(1408) Contracte alte servicii» выглядит следующим образом:

Рис. 3.6 - Contracte alte servicii

3.3 Интерфейс документов начисления доходов от предоставленных услуг

Для начисления доходов от услуг, предоставляемых по контрактам «(1413) Contract radioficare», был создан документ «(1410) Calculul serviciilor RD fond locativ».

Документ «(1410) Calculul serviciilor RD fond locativ» выглядит следующим образом:

Рис. 3.7 - Calculul serviciilor RD fond locativ

Для начисления доходов от услуг, предоставляемых по конкретному контракту «(1413) Contract radioficare», был создан документ «(1415) Calculul serviciilor RD».

Документ «(1415) Calculul serviciilor RD» выглядит следующим образом:

Рис. 3.8 - Calculul serviciilor RD

Для начисления доходов от услуг, предоставляемых по контрактам «(1406) Contract Telecomunicatii», был создан документ «(1411) Calculul veniturilor din servicii de telecomunicatii».

Документ «(1411) Calculul veniturilor din servicii de telecomunicatii» выглядит следующим образом:

Рис. 3.9 - Calculul veniturilor din servicii de telecomunicatii

Для начисления доходов от услуг, предоставляемых по конкретному контракту «(1409) Contract FST», был создан документ «(1412) Calculul veniturilor din servicii FST».

Документ «(1412) Calculul veniturilor din servicii FST» выглядит следующим образом:

Рис. 3.10 - Calculul veniturilor din servicii FST

Для начисления доходов от услуг, предоставляемых по конкретному контракту «(1407) Contract Suporturi radioficare», был создан документ «(1414) Calculul veniturilor din servicii SR».

Документ «(1414) Calculul veniturilor din servicii SR» выглядит следующим образом:

Рис. 3.11 - Calculul veniturilor din servicii SR

3.4 Интерфейс печатных форм модуля контрактов

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

Печатная форма «Счет к оплате» выглядит следующим образом:

Рис. 3.12 - Счет к оплате

Для того чтобы регистрировать прибыль предприятия, согласно законодательству республики Молдова, была создана печатная форма «Налоговая накладная (разграфленная)», которая в конце месяца(либо квартала, либо полугодия в зависимости от заключенного контракта) распечатывается и отправляется по почте бенефициару.

Печатная форма «Налоговая накладная (разграфленная)» выглядит следующим образом:

Рис. 3.13 - Налоговая накладная (разграфленная)

Для того чтобы регистрировать прибыль предприятия, согласно законодательству республики Молдова, была создана печатная форма «Налоговая накладная (не разграфленная)», которая в конце месяца(либо квартала, либо полугодия в зависимости от заключенного контракта) распечатывается и отправляется по почте бенефициару.

Печатная форма «Налоговая накладная (не разграфленная)» выглядит следующим образом:

Рис. 3.14 - Налоговая накладная (не разграфленная)

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

Печатная форма «Расчет объема дохода от предоставленных услуг» выглядит следующим образом:

Рис. 3.15 - Расчет объема дохода от предоставленных услуг

3.5 Интерфейс разработанных отчетов модуля контрактов

Для просмотра изменений (количество подключений и отключений согласно истории спецификации контракта) по контрактам «(1413) Contract radioficare» был разработан отчет «Отчет по истории спецификации(Radioficare)». В отчете выбираются период просмотра и клиент (при необходимости просмотра контрактов по конкретному клиенту).

Отчет «Отчет по истории спецификации(Radioficare)» выглядит следующим образом:

Рис. 3.16 - Отчет по истории спецификации(Radioficare). Запуск

Рис. 3.17 - Отчет по истории спецификации(Radioficare). Формирование

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

Отчет «Произвольный отчет по контрактам» выглядит следующим образом:

Рис. 3.18 - Произвольный отчет по контрактам. Запуск

Рис. 3.19 - Произвольный отчет по контрактам. Формирование

3.6 Модуль контрактов в составе КИС Universal Accounting

Модуль контрактов после данной разработки является частью ИС Universal Accounting на предприятии « I.S. "RADIOCOMUNICATII" ». Все разработанные документы находятся в журнале «Contracte». Выглядит это все следующим образом:

Рис. 3.20 - Модуль контрактов как часть КИС Universal Accounting

ЗАКЛЮЧЕНИЕ

universal accounting контракт регистрация

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

Результаты тестирования показали, что внедрение данного модуля на предприятии «I.S.RADIOCOMUNICATII"» прошло успешно. Из результатов внедрения следует выделить повышение интереса персонала предприятия к работе и, как следствие, увеличение скорости и эффективности работы, экономии времени более чем на 50%, затрачиваемого на механические действия оформления, корректировки, ввода информации; снижение числа ошибок персонала и т.д. Исходя из полученных результатов, можно характеризовать данную разработку (модуль учета контрактов на предоставление услуг) как востребованную, нужную, полезную и сделать вывод о том, что модуль окупится с точки зрения вложенных в него средств.

По окончании работ был подписан акт приемки-сдачи (прикладывается) выполненных работ №3-RDC по модулю учета контрактов, датируемый 15-м апреля 2010 года. Это означает полноценное использование модуля сотрудниками предприятия «I.S. "RADIOCOMUNICATII"» в своей повседневной работе.

ЛИТЕРАТУРА

1.      С. Урман «Oracle. Язык программирования PL/SQL», 2006.

.        Том Кайт «Oracle для профессионалов» Пер. с англ. - СПб.: ООО «ДиаСофтЮП», 2005. - 672 с.

.        Коннор МакДональд, Бек Кристофер «Oracle PL/SQL для профессионалов: практические решения»; Пер. с англ. - СПб.: ООО «ДиаСофтЮП», 2005. - 560 с.

4.      Rick Greenwald, Robert Stackowiak, Gary Dodge, David Klein, Ben Shapiro, Christopher G. Chelliah « Professional Oracle® Programming» Wrox, 2005.

5.      О.Н. Граничин, В.И. Кияев «Информационные технологии в управлении», 2008.

ПРИЛОЖЕНИЕ 1

Создание объектов модуля контрактов

Таблица tmdb_docs, ее индексы и ограничения:

CREATE TABLE TMDB_DOCS

(NUMBER(10) NOT NULL,VARCHAR2(1 BYTE),NUMBER(6),NUMBER(5),NUMBER(5),NUMBER(5),NUMBER(5),NUMBER(5),DATE NOT NULL,VARCHAR2(25 BYTE),VARCHAR2(3 BYTE),NUMBER(10),NUMBER(1) DEFAULT 0 NOT NULL,VARCHAR2(1 BYTE),NUMBER(10),NUMBER(10),CHAR(1 BYTE),CHAR(1 BYTE),INTEGER,INTEGER,PK_TMDB_DOCSKEY

(COD)

);ON TABLE TMDB_DOCS IS 'VSE DOCUMENTI';ON COLUMN TMDB_DOCS.NRSET IS 'the number of bu-area';ON COLUMN TMDB_DOCS.ISGFC IS 'document is CM-integrety 0 - not, 1 - yes';ON COLUMN TMDB_DOCS.DOCCOLOR IS 'document color';ON COLUMN TMDB_DOCS.CODF IS 'px-version attribute';ON COLUMN TMDB_DOCS.TIPOPER IS 'px-version attribute';ON COLUMN TMDB_DOCS.AT2 IS 'Edit document protection';ON COLUMN TMDB_DOCS.AT3 IS '???';ON COLUMN TMDB_DOCS.TIPDOC IS 'cod from sys of paper-type';ON COLUMN TMDB_DOCS.DATAMANUAL IS 'document data (real)';ON COLUMN TMDB_DOCS.NRMANUAL IS 'document number (real)';ON COLUMN TMDB_DOCS.VALUTA IS 'valuta (real) of the document';ON COLUMN TMDB_DOCS.COD IS 'Document cod';ON COLUMN TMDB_DOCS.TIP IS 'Which module';ON COLUMN TMDB_DOCS.SYSFID IS 'Document type';ON COLUMN TMDB_DOCS.USERID IS 'user id';ON COLUMN TMDB_DOCS.AT1 IS 'document is hidden, 0 - is not hidden, 1 - hidden';UNIQUE INDEX CN$DOCSCODDATA ON TMDB_DOCS

(COD, DATAMANUAL);TABLE TMDB_DOCS ADD (CN$DOCSCODDATA(COD, DATAMANUAL));

Таблица tmdb_reg, ее индексы и ограничения:

CREATE TABLE TMDB_REG

(INTEGER NOT NULL,NUMBER(38,2),NUMBER(38,2),NUMBER(38,2),NUMBER(38,2),NUMBER(38,2),NUMBER(38,2),NUMBER(38,2),NUMBER(38,2),NUMBER(38,2),NUMBER(38,2),INTEGER,INTEGER,INTEGER,INTEGER,INTEGER,INTEGER,INTEGER,INTEGER,INTEGER,INTEGER,INTEGER,INTEGER,INTEGER,INTEGER,INTEGER,INTEGER,INTEGER,INTEGER,INTEGER,INTEGER,INTEGER,INTEGER,VARCHAR2(100 BYTE),VARCHAR2(100 BYTE),VARCHAR2(100 BYTE),VARCHAR2(100 BYTE),VARCHAR2(100 BYTE),VARCHAR2(100 BYTE),VARCHAR2(100 BYTE),VARCHAR2(100 BYTE),VARCHAR2(100 BYTE),VARCHAR2(100 BYTE),DATE,DATE,DATE,DATE,DATE,NUMBER(38,2),NUMBER(38,2),NUMBER(38,2),NUMBER(38,2),NUMBER(38,2),CHAR(3 BYTE),CHAR(3 BYTE),CHAR(3 BYTE),CHAR(3 BYTE),CHAR(3 BYTE),NUMBER,NUMBER,NUMBER,NUMBER,NUMBER,NUMBER,NUMBER,NUMBER,NUMBER,NUMBER,INTEGER,INTEGER,INTEGER,INTEGER,INTEGER,INTEGER,INTEGER,INTEGER,INTEGER,INTEGER,INTEGER,INTEGER,INTEGER,INTEGER,INTEGER,INTEGER,INTEGER,INTEGER,INTEGER,INTEGER,INTEGER,INTEGER,VARCHAR2(100 BYTE),VARCHAR2(100 BYTE),VARCHAR2(100 BYTE),VARCHAR2(100 BYTE),VARCHAR2(100 BYTE),VARCHAR2(100 BYTE),VARCHAR2(100 BYTE),VARCHAR2(100 BYTE),VARCHAR2(100 BYTE),VARCHAR2(100 BYTE),DATE,DATE,DATE,DATE,DATE,NUMBER(38,2),NUMBER(38,2),NUMBER(38,2),NUMBER(38,2),NUMBER(38,2),CHAR(3 BYTE),CHAR(3 BYTE),CHAR(3 BYTE),CHAR(3 BYTE),CHAR(3 BYTE),NUMBER,NUMBER,NUMBER,NUMBER,NUMBER,NUMBER,NUMBER,NUMBER,NUMBER,NUMBER

);UNIQUE INDEX TMDB_REG_PK ON TMDB_REG

(NRDOC);TABLE TMDB_REG ADD (TMDB_REG_PKKEY

(NRDOC));TABLE TMDB_REG ADD (TMDB_REG_FKKEY (NRDOC)TMDB_DOCS (COD)DELETE CASCADE DEFERRABLE INITIALLY DEFERRED);

Таблица tmdb_reg_a, ее индексы и ограничения:

CREATE TABLE TMDB_REG_A

(INTEGER NOT NULL,INTEGER NOT NULL,NUMBER(38,2),NUMBER(38,2),NUMBER(38,2),NUMBER(38,2),NUMBER(38,2),NUMBER(38,2),NUMBER(38,2),NUMBER(38,2),NUMBER(38,2),NUMBER(38,2),INTEGER,INTEGER,INTEGER,INTEGER,INTEGER,INTEGER,INTEGER,INTEGER,INTEGER,INTEGER,INTEGER,INTEGER,INTEGER,INTEGER,INTEGER,INTEGER,INTEGER,INTEGER,INTEGER,INTEGER,INTEGER,INTEGER,VARCHAR2(100 BYTE),VARCHAR2(100 BYTE),VARCHAR2(100 BYTE),VARCHAR2(100 BYTE),VARCHAR2(100 BYTE),VARCHAR2(100 BYTE),VARCHAR2(100 BYTE),VARCHAR2(100 BYTE),VARCHAR2(100 BYTE),VARCHAR2(100 BYTE),DATE,DATE,DATE,DATE,DATE,NUMBER(38,2),NUMBER(38,2),NUMBER(38,2),NUMBER(38,2),NUMBER(38,2),CHAR(3 BYTE),CHAR(3 BYTE),CHAR(3 BYTE),CHAR(3 BYTE),CHAR(3 BYTE),NUMBER,NUMBER,NUMBER,NUMBER,NUMBER,NUMBER,NUMBER,NUMBER,NUMBER,NUMBER,INTEGER,INTEGER,INTEGER,INTEGER,INTEGER,INTEGER,INTEGER,INTEGER,INTEGER,INTEGER,INTEGER,INTEGER,INTEGER,INTEGER,INTEGER,INTEGER,INTEGER,INTEGER,INTEGER,INTEGER,INTEGER,INTEGER,VARCHAR2(100 BYTE),VARCHAR2(100 BYTE),VARCHAR2(100 BYTE),VARCHAR2(100 BYTE),VARCHAR2(100 BYTE),VARCHAR2(100 BYTE),VARCHAR2(100 BYTE),VARCHAR2(100 BYTE),VARCHAR2(100 BYTE),VARCHAR2(100 BYTE),DATE,DATE,DATE,DATE,DATE,NUMBER(38,2),NUMBER(38,2),NUMBER(38,2),NUMBER(38,2),NUMBER(38,2),CHAR(3 BYTE),CHAR(3 BYTE),CHAR(3 BYTE),CHAR(3 BYTE),CHAR(3 BYTE),NUMBER,NUMBER,NUMBER,NUMBER,NUMBER,NUMBER,NUMBER,NUMBER,NUMBER,NUMBER

);UNIQUE INDEX TMDB_REG_A_PK ON TMDB_REG_A

(NRDOC, NRDOC1);INDEX TMDB_REG_A_FK ON TMDB_REG_A

(NRDOC);TABLE TMDB_REG_A ADD (TMDB_REG_A_PKKEY

(NRDOC, NRDOC1));TABLE TMDB_REG_A ADD (TMDB_REG_A_FKKEY (NRDOC)TMDB_DOCS (COD)DELETE CASCADE DEFERRABLE INITIALLY DEFERRED);

Таблица tmdb_reg_a1, ее индексы и ограничения:

CREATE TABLE TMDB_REG_A1

(INTEGER NOT NULL,INTEGER NOT NULL,INTEGER NOT NULL,NUMBER(38,2),NUMBER(38,2),NUMBER(38,2),NUMBER(38,2),NUMBER(38,2),NUMBER(38,2),NUMBER(38,2),NUMBER(38,2),NUMBER(38,2),NUMBER(38,2),INTEGER,INTEGER,INTEGER,INTEGER,INTEGER,INTEGER,INTEGER,INTEGER,INTEGER,INTEGER,INTEGER,INTEGER,INTEGER,INTEGER,INTEGER,INTEGER,INTEGER,INTEGER,INTEGER,INTEGER,INTEGER,INTEGER,VARCHAR2(100 BYTE),VARCHAR2(100 BYTE),VARCHAR2(100 BYTE),VARCHAR2(100 BYTE),VARCHAR2(100 BYTE),VARCHAR2(100 BYTE),VARCHAR2(100 BYTE),VARCHAR2(100 BYTE),VARCHAR2(100 BYTE),VARCHAR2(100 BYTE),DATE,DATE,DATE,DATE,DATE,NUMBER(38,2),NUMBER(38,2),NUMBER(38,2),NUMBER(38,2),NUMBER(38,2),CHAR(3 BYTE),CHAR(3 BYTE),CHAR(3 BYTE),CHAR(3 BYTE),CHAR(3 BYTE),NUMBER,NUMBER,NUMBER,NUMBER,NUMBER,NUMBER,NUMBER,NUMBER,NUMBER,NUMBER,INTEGER,INTEGER,INTEGER,INTEGER,INTEGER,INTEGER,INTEGER,INTEGER,INTEGER,INTEGER,INTEGER,INTEGER,INTEGER,INTEGER,INTEGER,INTEGER,INTEGER,INTEGER,INTEGER,INTEGER,INTEGER,INTEGER,VARCHAR2(100 BYTE),VARCHAR2(100 BYTE),VARCHAR2(100 BYTE),VARCHAR2(100 BYTE),VARCHAR2(100 BYTE),VARCHAR2(100 BYTE),VARCHAR2(100 BYTE),VARCHAR2(100 BYTE),VARCHAR2(100 BYTE),VARCHAR2(100 BYTE),DATE,DATE,DATE,DATE,DATE,NUMBER(38,2),NUMBER(38,2),NUMBER(38,2),NUMBER(38,2),NUMBER(38,2),CHAR(3 BYTE),CHAR(3 BYTE),CHAR(3 BYTE),CHAR(3 BYTE),CHAR(3 BYTE),NUMBER,NUMBER,NUMBER,NUMBER,NUMBER,NUMBER,NUMBER,NUMBER,NUMBER,NUMBER

);UNIQUE INDEX TMDB_REG_A1_PK ON TMDB_REG_A1

(NRDOC, NRDOC1, NRDOC2);INDEX TMDB_REG_A1_FK ON TMDB_REG_A1

(NRDOC, NRDOC1);TABLE TMDB_REG_A1 ADD (TMDB_REG_A1_PKKEY

(NRDOC, NRDOC1, NRDOC2));TABLE TMDB_REG_A1 ADD (TMDB_REG_A1_FKKEY (NRDOC, NRDOC1)TMDB_REG_A (NRDOC,NRDOC1)DELETE CASCADE DEFERRABLE INITIALLY DEFERRED);

Таблица tmdb_reg_a1d, ее индексы и ограничения:

CREATE TABLE TMDB_REG_A1D

(INTEGER NOT NULL,INTEGER NOT NULL,INTEGER NOT NULL,INTEGER NOT NULL,NUMBER(38,2),NUMBER(38,2),NUMBER(38,2),NUMBER(38,2),NUMBER(38,2),NUMBER(38,2),NUMBER(38,2),NUMBER(38,2),NUMBER(38,2),NUMBER(38,2),INTEGER,INTEGER,INTEGER,INTEGER,INTEGER,INTEGER,INTEGER,INTEGER,INTEGER,INTEGER,INTEGER,INTEGER,INTEGER,INTEGER,INTEGER,INTEGER,INTEGER,INTEGER,INTEGER,INTEGER,INTEGER,INTEGER,VARCHAR2(100 BYTE),VARCHAR2(100 BYTE),VARCHAR2(100 BYTE),VARCHAR2(100 BYTE),VARCHAR2(100 BYTE),VARCHAR2(100 BYTE),VARCHAR2(100 BYTE),VARCHAR2(100 BYTE),VARCHAR2(100 BYTE),VARCHAR2(100 BYTE),DATE,DATE,DATE,DATE,DATE,NUMBER(38,2),NUMBER(38,2),NUMBER(38,2),NUMBER(38,2),NUMBER(38,2),CHAR(3 BYTE),CHAR(3 BYTE),CHAR(3 BYTE),CHAR(3 BYTE),CHAR(3 BYTE),NUMBER,NUMBER,NUMBER,NUMBER,NUMBER,NUMBER,NUMBER,NUMBER,NUMBER,NUMBER,INTEGER,INTEGER,INTEGER,INTEGER,INTEGER,INTEGER,INTEGER,INTEGER,INTEGER,INTEGER,INTEGER,INTEGER,INTEGER,INTEGER,INTEGER,INTEGER,INTEGER,INTEGER,INTEGER,INTEGER,INTEGER,INTEGER,VARCHAR2(100 BYTE),VARCHAR2(100 BYTE),VARCHAR2(100 BYTE),VARCHAR2(100 BYTE),VARCHAR2(100 BYTE),VARCHAR2(100 BYTE),VARCHAR2(100 BYTE),VARCHAR2(100 BYTE),VARCHAR2(100 BYTE),VARCHAR2(100 BYTE),DATE,DATE,DATE,DATE,DATE,NUMBER(38,2),NUMBER(38,2),NUMBER(38,2),NUMBER(38,2),NUMBER(38,2),CHAR(3 BYTE),CHAR(3 BYTE),CHAR(3 BYTE),CHAR(3 BYTE),CHAR(3 BYTE),NUMBER,NUMBER,NUMBER,NUMBER,NUMBER,NUMBER,NUMBER,NUMBER,NUMBER,NUMBER

);UNIQUE INDEX TMDB_REG_A1D_PK ON TMDB_REG_A1D

(NRDOC, NRDOC1, NRDOC2, NRDOC3);INDEX TMDB_REG_A1D_FK ON TMDB_REG_A1D

(NRDOC, NRDOC1, NRDOC2);TABLE TMDB_REG_A1D ADD (TMDB_REG_A1D_PKKEY

(NRDOC, NRDOC1, NRDOC2, NRDOC3));TABLE TMDB_REG_A1D ADD (TMDB_REG_A1D_FKKEY (NRDOC, NRDOC1, NRDOC2)TMDB_REG_A1 (NRDOC,NRDOC1,NRDOC2)DELETE CASCADE DEFERRABLE INITIALLY DEFERRED);

Таблица tmdb_reg_a2, ее индексы и ограничения:

CREATE TABLE TMDB_REG_A2

(INTEGER NOT NULL,INTEGER NOT NULL,INTEGER NOT NULL,NUMBER(38,2),NUMBER(38,2),NUMBER(38,2),NUMBER(38,2),NUMBER(38,2),NUMBER(38,2),NUMBER(38,2),NUMBER(38,2),NUMBER(38,2),NUMBER(38,2),INTEGER,INTEGER,INTEGER,INTEGER,INTEGER,INTEGER,INTEGER,INTEGER,INTEGER,INTEGER,INTEGER,INTEGER,INTEGER,INTEGER,INTEGER,INTEGER,INTEGER,INTEGER,INTEGER,INTEGER,INTEGER,INTEGER,VARCHAR2(100 BYTE),VARCHAR2(100 BYTE),VARCHAR2(100 BYTE),VARCHAR2(100 BYTE),VARCHAR2(100 BYTE),VARCHAR2(100 BYTE),VARCHAR2(100 BYTE),VARCHAR2(100 BYTE),VARCHAR2(100 BYTE),VARCHAR2(100 BYTE),DATE,DATE,DATE,DATE,DATE,NUMBER(38,2),NUMBER(38,2),NUMBER(38,2),NUMBER(38,2),NUMBER(38,2),CHAR(3 BYTE),CHAR(3 BYTE),CHAR(3 BYTE),CHAR(3 BYTE),CHAR(3 BYTE),NUMBER,NUMBER,NUMBER,NUMBER,NUMBER,NUMBER,NUMBER,NUMBER,NUMBER,NUMBER,INTEGER,INTEGER,INTEGER,INTEGER,INTEGER,INTEGER,INTEGER,INTEGER,INTEGER,INTEGER,INTEGER,INTEGER,INTEGER,INTEGER,INTEGER,INTEGER,INTEGER,INTEGER,INTEGER,INTEGER,INTEGER,INTEGER,VARCHAR2(100 BYTE),VARCHAR2(100 BYTE),VARCHAR2(100 BYTE),VARCHAR2(100 BYTE),VARCHAR2(100 BYTE),VARCHAR2(100 BYTE),VARCHAR2(100 BYTE),VARCHAR2(100 BYTE),VARCHAR2(100 BYTE),VARCHAR2(100 BYTE),DATE,DATE,DATE,DATE,DATE,NUMBER(38,2),NUMBER(38,2),NUMBER(38,2),NUMBER(38,2),NUMBER(38,2),CHAR(3 BYTE),CHAR(3 BYTE),CHAR(3 BYTE),CHAR(3 BYTE),CHAR(3 BYTE),NUMBER,NUMBER,NUMBER,NUMBER,NUMBER,NUMBER,NUMBER,NUMBER,NUMBER,NUMBER

);UNIQUE INDEX TMDB_REG_A2_PK ON TMDB_REG_A2

(NRDOC, NRDOC1, NRDOC2);INDEX TMDB_REG_A2_FK ON TMDB_REG_A2

(NRDOC, NRDOC1);TABLE TMDB_REG_A2 ADD (TMDB_REG_A2_PKKEY

(NRDOC, NRDOC1, NRDOC2));TABLE TMDB_REG_A2 ADD (TMDB_REG_A2_FKKEY (NRDOC, NRDOC1)TMDB_REG_A (NRDOC,NRDOC1)DELETE CASCADE DEFERRABLE INITIALLY DEFERRED);

Таблица tmdb_reg_a2d, ее индексы и ограничения:

CREATE TABLE TMDB_REG_A2D

(INTEGER NOT NULL,INTEGER NOT NULL,INTEGER NOT NULL,INTEGER NOT NULL,NUMBER(38,2),NUMBER(38,2),NUMBER(38,2),NUMBER(38,2),NUMBER(38,2),NUMBER(38,2),NUMBER(38,2),NUMBER(38,2),NUMBER(38,2),NUMBER(38,2),INTEGER,INTEGER,INTEGER,INTEGER,INTEGER,INTEGER,INTEGER,INTEGER,INTEGER,INTEGER,INTEGER,INTEGER,INTEGER,INTEGER,INTEGER,INTEGER,INTEGER,INTEGER,INTEGER,INTEGER,INTEGER,INTEGER,VARCHAR2(100 BYTE),VARCHAR2(100 BYTE),VARCHAR2(100 BYTE),VARCHAR2(100 BYTE),VARCHAR2(100 BYTE),VARCHAR2(100 BYTE),VARCHAR2(100 BYTE),VARCHAR2(100 BYTE),VARCHAR2(100 BYTE),VARCHAR2(100 BYTE),DATE,DATE,DATE,DATE,DATE,NUMBER(38,2),NUMBER(38,2),NUMBER(38,2),NUMBER(38,2),NUMBER(38,2),CHAR(3 BYTE),CHAR(3 BYTE),CHAR(3 BYTE),CHAR(3 BYTE),CHAR(3 BYTE),NUMBER,NUMBER,NUMBER,NUMBER,NUMBER,NUMBER,NUMBER,NUMBER,NUMBER,NUMBER,INTEGER,INTEGER,INTEGER,INTEGER,INTEGER,INTEGER,INTEGER,INTEGER,INTEGER,INTEGER,INTEGER,INTEGER,INTEGER,INTEGER,INTEGER,INTEGER,INTEGER,INTEGER,INTEGER,INTEGER,INTEGER,INTEGER,VARCHAR2(100 BYTE),VARCHAR2(100 BYTE),VARCHAR2(100 BYTE),VARCHAR2(100 BYTE),VARCHAR2(100 BYTE),VARCHAR2(100 BYTE),VARCHAR2(100 BYTE),VARCHAR2(100 BYTE),VARCHAR2(100 BYTE),VARCHAR2(100 BYTE),DATE,DATE,DATE,DATE,DATE,NUMBER(38,2),NUMBER(38,2),NUMBER(38,2),NUMBER(38,2),NUMBER(38,2),CHAR(3 BYTE),CHAR(3 BYTE),CHAR(3 BYTE),CHAR(3 BYTE),CHAR(3 BYTE),NUMBER,NUMBER,NUMBER,NUMBER,NUMBER,NUMBER,NUMBER,NUMBER,NUMBER,NUMBER

);UNIQUE INDEX TMDB_REG_A2D_PK ON TMDB_REG_A2D

(NRDOC, NRDOC1, NRDOC2, NRDOC3);INDEX TMDB_REG_A2D_FK ON TMDB_REG_A2D

(NRDOC, NRDOC1, NRDOC2);TABLE TMDB_REG_A2D ADD (TMDB_REG_A2D_PKKEY

(NRDOC, NRDOC1, NRDOC2, NRDOC3));TABLE TMDB_REG_A2D ADD (TMDB_REG_A2D_FKKEY (NRDOC, NRDOC1, NRDOC2)TMDB_REG_A2 (NRDOC,NRDOC1,NRDOC2)DELETE CASCADE DEFERRABLE INITIALLY DEFERRED);

Триггеры:OR REPLACE TRIGGER RADIOCOM."TRIG_BFUPD_TMDB_DOCS"UPDATE ON TMDB_DOCSEACH ROW_admin int:=caseSYS_CONTEXT('envun4','iniparam_ADMINLEVEL')='1'1 else 0 end;_leave int:=caseNVL(SYS_CONTEXT('envun4','PARAM_DontUpdateDocsUserid'),v_admin)='1'1 else 0 end;:NEW.COD<>:OLD.COD THEN_APPLICATION_ERROR(-20101,'NoNo');IF;:NEW.DATAMANUAL<>:OLD.DATAMANUAL THENTMDB_CM SET DATA=:NEW.DATAMANUAL WHERE NRDOC=:NEW.COD;IF;v_leave<>1 THENUSERID INTO:NEW.USERID FROM TPARAMS;IF;:NEW.USERID=0 THEN_APPLICATION_ERROR(-20101,

'Ошибка идентификации пользователя (USERID=0). Редактирование запрещено.');

END IF;

END;OR REPLACE TRIGGER RADIOCOM."TRG_DOCS_COLOR"INSERT OR UPDATE ON TMDB_DOCSEACH ROW(.AT1 IS NULL AND sys_context('envun4','dont_fire_trigger') IS NULL

)'-' INTO:NEW.DOCCOLOR FROM VMDB_DOCS_ADDCOD=:NEW.COD AND RECALC_NRDOC IS NOT NULL;WHEN NO_DATA_FOUND THEN'' INTO:NEW.DOCCOLOR FROM VMDB_CMI WHERE NRDOC=:NEW.COD AND ROWNUM=1;WHEN NO_DATA_FOUND THEN

:NEW.DOCCOLOR:='`';;;OR REPLACE TRIGGER RADIOCOM."XTRIGLOGDOCS"INSERT OR UPDATE OR DELETE ON TMDB_DOCSEACH ROWINSERTING THEN$XLOG.INLOG('DOCS',:NEW.cod,'insert');UPDATINGUN$XLOG.INLOG('DOCS',:NEW.cod,'update');$XLOG.INLOG('DOCS',:OLD.cod,'delete');IF;WHEN OTHERS THEN;;OR REPLACE TRIGGER RADIOCOM."TMDB_DOCS_TRLOG"INSERT OR UPDATE OR DELETE ON TMDB_DOCSEACH ROWAUTONOMOUS_TRANSACTION;INT:=SYS_CONTEXT('ENVUN4','PARAM_USERID');VARCHAR2(30);VARCHAR2(100);INSERTING THEN:='NEW DOC';DELETING THEN:='DEL DOC';UPDATING THEN:='CHG'||WHEN 0||:OLD.USERID<>0||:NEW.USERID THEN ' USERID' END||WHEN 0||:OLD.DATAMANUAL<>0||:NEW.DATAMANUAL THEN ' DATAMANUAL' END||WHEN 0||:OLD.NRSET<>0||:NEW.NRSET THEN ' NRSET' END||WHEN 0||:OLD.SYSFID<>0||:NEW.SYSFID THEN ' SYSFID' END||WHEN 0||:OLD.NRMANUAL<>0||:NEW.NRMANUAL THEN ' NRMANUAL' END||WHEN 0||:OLD.AT1<>0||:NEW.AT1 THEN ' AT1' END||WHEN 0||:OLD.AT2<>0||:NEW.AT2 THEN ' AT2' END||WHEN 0||:OLD.F<>0||:NEW.F THEN ' F' END||WHEN 0||:OLD.M<>0||:NEW.M THEN ' M' END||WHEN 0||:OLD.DIV<>0||:NEW.DIV THEN ' DIV' END;cReason='CHG' THEN;IF;IF;

-:=un$userparams.GetUserName(nUserId);

-INTO TMDB_DOCS_LOG (NRDOC,USERID,USERNAME,ACTION

,OLD_DATA,NEW_DATA,OLD_NRSET,NEW_NRSET,OLD_SYSFID,NEW_SYSFID

,OLD_NRMANUAL,NEW_NRMANUAL,OLD_USERID,NEW_USERID

,OLD_AT1,NEW_AT1,OLD_AT2,NEW_AT2,OLD_AT3,NEW_AT3

,OLD_F,NEW_F,OLD_M,NEW_M,OLD_DIV,NEW_DIV)(NVL(:NEW.COD,:OLD.COD),nUserId,cUserName,cReason

,:OLD.DATAMANUAL,:NEW.DATAMANUAL,:OLD.NRSET,:NEW.NRSET,:OLD.SYSFID,:NEW.SYSFID

,:OLD.NRMANUAL,:NEW.NRMANUAL,:OLD.USERID,:NEW.USERID

,:OLD.AT1,:NEW.AT1,:OLD.AT2,:NEW.AT2,:OLD.AT3,:NEW.AT3

,:OLD.F,:NEW.F,:OLD.M,:NEW.M,:OLD.DIV,:NEW.DIV);;WHEN OTHERS THEN;;

OR REPLACE TRIGGER RADIOCOM."TRIG_AFTINS_TMDB_DOCS2"INSERT ON TMDB_DOCSEACH ROW(

||SYS_CONTEXT('USERENV','ACTION',11)<>'0SYS_IMPORT_'

)_Recalc_Tip VARCHAR2(2):=SYS_CONTEXT('envun4','CopyDocRecalcTip',2);_Recalc_Nrdoc INT:=WHEN v_Recalc_Tip IN ('1','2') THEN SYS_CONTEXT('envun4','CopyDocSourceNrdoc') END;_Test_Cod VARCHAR2(30):=SYS_CONTEXT('envun4','un$test',30);INTO TMDB_DOCS_ADD (COD,FIRST_USERID,RECALC_NRDOC,RECALC_TIP,TEST_COD)(:NEW.COD,:NEW.USERID,v_Recalc_Nrdoc,v_Recalc_Tip,v_Test_Cod);WHEN DUP_VAL_ON_INDEX THENTMDB_DOCS_ADDFIRST_USERID=:NEW.USERID

,RECALC_NRDOC=v_Recalc_Nrdoc,RECALC_TIP=v_Recalc_Tip,TEST_COD=v_Test_CodCOD=:NEW.COD;;

Последовательности:SEQUENCE RADIOCOM.ID_TMDB_CMWITH 1999999999150;SEQUENCE RADIOCOM.ID_TMDB_DOCSWITH 117589999999999999999999999999990;SEQUENCE RADIOCOM.ID_TMS_UNIVERSWITH 457269999999999999999999999999991;

Представления:

CREATE OR REPLACE VIEW VMDB_DOCSCOD,TIP

,SYSFID,(SELECT DENUMIREA FROM vMS_SYSF WHERE ID=A.SYSFID) AS clcOPERATIAt

,USERID,(SELECT USERNAME FROM XUSERS WHERE COD=A.USERID) AS clcUSERt

,AT1,AT2,AT3

,TIPDOC,(SELECT DENUMIREA FROM VMS_SYSS WHERE TIP='S' AND COD=7 AND COD1=A.TIPDOC) AS clcTIPDOCt

,DATAMANUAL,NRMANUAL,VALUTA,NRSET,ISGFC,DOCCOLOR,CODF,TIPOPER

,DIV,(SELECT DENUMIREA FROM VMS_UNIVERS WHERE COD=A.DIV) AS clcDIVt

,STATUS,(SELECT DENUMIREA FROM VMS_UNIVERS WHERE COD=A.STATUS) AS clcSTATUStTMDB_DOCS A;OR REPLACE VIEW VMDB_REGA."NRDOC",A."SUMA0",A."SUMA1",A."SUMA2",A."SUMA3",A."SUMA4",A."SUMA5",A."SUMA6",A."SUMA7",A."SUMA8",A."SUMA9",A."DT",A."DT1",A."DTSC0",A."DTSC1",A."DTSC2",A."DTSC3",A."DTSC4",A."DTSC5",A."DTSC6",A."DTSC7",A."DTSC8",A."DTSC9",A."DTNUM0",A."DTNUM1",A."DTNUM2",A."DTNUM3",A."DTNUM4",A."DTNUM5",A."DTNUM6",A."DTNUM7",A."DTNUM8",A."DTNUM9",A."DTSTR0",A."DTSTR1",A."DTSTR2",A."DTSTR3",A."DTSTR4",A."DTSTR5",A."DTSTR6",A."DTSTR7",A."DTSTR8",A."DTSTR9",A."DTDATA0",A."DTDATA1",A."DTDATA2",A."DTDATA3",A."DTDATA4",A."DTSUMAVAL0",A."DTSUMAVAL1",A."DTSUMAVAL2",A."DTSUMAVAL3",A."DTSUMAVAL4",A."DTVALUTA0",A."DTVALUTA1",A."DTVALUTA2",A."DTVALUTA3",A."DTVALUTA4",A."DTCANT0",A."DTCANT1",A."DTCANT2",A."DTCANT3",A."DTCANT4",A."DTCANT5",A."DTCANT6",A."DTCANT7",A."DTCANT8",A."DTCANT9",A."CT",A."CT1",A."CTSC0",A."CTSC1",A."CTSC2",A."CTSC3",A."CTSC4",A."CTSC5",A."CTSC6",A."CTSC7",A."CTSC8",A."CTSC9",A."CTNUM0",A."CTNUM1",A."CTNUM2",A."CTNUM3",A."CTNUM4",A."CTNUM5",A."CTNUM6",A."CTNUM7",A."CTNUM8",A."CTNUM9",A."CTSTR0",A."CTSTR1",A."CTSTR2",A."CTSTR3",A."CTSTR4",A."CTSTR5",A."CTSTR6",A."CTSTR7",A."CTSTR8",A."CTSTR9",A."CTDATA0",A."CTDATA1",A."CTDATA2",A."CTDATA3",A."CTDATA4",A."CTSUMAVAL0",A."CTSUMAVAL1",A."CTSUMAVAL2",A."CTSUMAVAL3",A."CTSUMAVAL4",A."CTVALUTA0",A."CTVALUTA1",A."CTVALUTA2",A."CTVALUTA3",A."CTVALUTA4",A."CTCANT0",A."CTCANT1",A."CTCANT2",A."CTCANT3",A."CTCANT4",A."CTCANT5",A."CTCANT6",A."CTCANT7",A."CTCANT8",A."CTCANT9"

,(SELECT DENUMIREA FROM TMS_UNIVERS WHERE COD=A.DTSC0)CLCDTSC0T

,(SELECT DENUMIREA FROM TMS_UNIVERS WHERE COD=A.DTSC1)CLCDTSC1T

,(SELECT DENUMIREA FROM TMS_UNIVERS WHERE COD=A.DTSC2)CLCDTSC2T

,(SELECT DENUMIREA FROM TMS_UNIVERS WHERE COD=A.DTSC3)CLCDTSC3T

,(SELECT DENUMIREA FROM TMS_UNIVERS WHERE COD=A.DTSC4)CLCDTSC4T

,(SELECT DENUMIREA FROM TMS_UNIVERS WHERE COD=A.DTSC5)CLCDTSC5T

,(SELECT DENUMIREA FROM TMS_UNIVERS WHERE COD=A.DTSC6)CLCDTSC6T

,(SELECT DENUMIREA FROM TMS_UNIVERS WHERE COD=A.DTSC7)CLCDTSC7T

,(SELECT DENUMIREA FROM TMS_UNIVERS WHERE COD=A.DTSC8)CLCDTSC8T

,(SELECT DENUMIREA FROM TMS_UNIVERS WHERE COD=A.DTSC9)CLCDTSC9T

,(SELECT DENUMIREA FROM TMS_UNIVERS WHERE COD=A.CTSC0)CLCCTSC0T

,(SELECT DENUMIREA FROM TMS_UNIVERS WHERE COD=A.CTSC1)CLCCTSC1T

,(SELECT DENUMIREA FROM TMS_UNIVERS WHERE COD=A.CTSC2)CLCCTSC2T

,(SELECT DENUMIREA FROM TMS_UNIVERS WHERE COD=A.CTSC3)CLCCTSC3T

,(SELECT DENUMIREA FROM TMS_UNIVERS WHERE COD=A.CTSC4)CLCCTSC4T

,(SELECT DENUMIREA FROM TMS_UNIVERS WHERE COD=A.CTSC5)CLCCTSC5T

,(SELECT DENUMIREA FROM TMS_UNIVERS WHERE COD=A.CTSC6)CLCCTSC6T

,(SELECT DENUMIREA FROM TMS_UNIVERS WHERE COD=A.CTSC7)CLCCTSC7T

,(SELECT DENUMIREA FROM TMS_UNIVERS WHERE COD=A.CTSC8)CLCCTSC8T

,(SELECT DENUMIREA FROM TMS_UNIVERS WHERE COD=A.CTSC9)CLCCTSC9TTMDB_REG A;OR REPLACE VIEW VMDB_REG_AA."NRDOC",A."NRDOC1",A."SUMA0",A."SUMA1",A."SUMA2",A."SUMA3",A."SUMA4",A."SUMA5",A."SUMA6",A."SUMA7",A."SUMA8",A."SUMA9",A."DT",A."DT1",A."DTSC0",A."DTSC1",A."DTSC2",A."DTSC3",A."DTSC4",A."DTSC5",A."DTSC6",A."DTSC7",A."DTSC8",A."DTSC9",A."DTNUM0",A."DTNUM1",A."DTNUM2",A."DTNUM3",A."DTNUM4",A."DTNUM5",A."DTNUM6",A."DTNUM7",A."DTNUM8",A."DTNUM9",A."DTSTR0",A."DTSTR1",A."DTSTR2",A."DTSTR3",A."DTSTR4",A."DTSTR5",A."DTSTR6",A."DTSTR7",A."DTSTR8",A."DTSTR9",A."DTDATA0",A."DTDATA1",A."DTDATA2",A."DTDATA3",A."DTDATA4",A."DTSUMAVAL0",A."DTSUMAVAL1",A."DTSUMAVAL2",A."DTSUMAVAL3",A."DTSUMAVAL4",A."DTVALUTA0",A."DTVALUTA1",A."DTVALUTA2",A."DTVALUTA3",A."DTVALUTA4",A."DTCANT0",A."DTCANT1",A."DTCANT2",A."DTCANT3",A."DTCANT4",A."DTCANT5",A."DTCANT6",A."DTCANT7",A."DTCANT8",A."DTCANT9",A."CT",A."CT1",A."CTSC0",A."CTSC1",A."CTSC2",A."CTSC3",A."CTSC4",A."CTSC5",A."CTSC6",A."CTSC7",A."CTSC8",A."CTSC9",A."CTNUM0",A."CTNUM1",A."CTNUM2",A."CTNUM3",A."CTNUM4",A."CTNUM5",A."CTNUM6",A."CTNUM7",A."CTNUM8",A."CTNUM9",A."CTSTR0",A."CTSTR1",A."CTSTR2",A."CTSTR3",A."CTSTR4",A."CTSTR5",A."CTSTR6",A."CTSTR7",A."CTSTR8",A."CTSTR9",A."CTDATA0",A."CTDATA1",A."CTDATA2",A."CTDATA3",A."CTDATA4",A."CTSUMAVAL0",A."CTSUMAVAL1",A."CTSUMAVAL2",A."CTSUMAVAL3",A."CTSUMAVAL4",A."CTVALUTA0",A."CTVALUTA1",A."CTVALUTA2",A."CTVALUTA3",A."CTVALUTA4",A."CTCANT0",A."CTCANT1",A."CTCANT2",A."CTCANT3",A."CTCANT4",A."CTCANT5",A."CTCANT6",A."CTCANT7",A."CTCANT8",A."CTCANT9"

,(SELECT DENUMIREA FROM TMS_UNIVERS WHERE COD=A.DTSC0)CLCDTSC0T

,(SELECT DENUMIREA FROM TMS_UNIVERS WHERE COD=A.DTSC1)CLCDTSC1T

,(SELECT DENUMIREA FROM TMS_UNIVERS WHERE COD=A.DTSC2)CLCDTSC2T

,(SELECT DENUMIREA FROM TMS_UNIVERS WHERE COD=A.DTSC3)CLCDTSC3T

,(SELECT DENUMIREA FROM TMS_UNIVERS WHERE COD=A.DTSC4)CLCDTSC4T

,(SELECT DENUMIREA FROM TMS_UNIVERS WHERE COD=A.DTSC5)CLCDTSC5T

,(SELECT DENUMIREA FROM TMS_UNIVERS WHERE COD=A.DTSC6)CLCDTSC6T

,(SELECT DENUMIREA FROM TMS_UNIVERS WHERE COD=A.DTSC7)CLCDTSC7T

,(SELECT DENUMIREA FROM TMS_UNIVERS WHERE COD=A.DTSC8)CLCDTSC8T

,(SELECT DENUMIREA FROM TMS_UNIVERS WHERE COD=A.DTSC9)CLCDTSC9T

,(SELECT DENUMIREA FROM TMS_UNIVERS WHERE COD=A.CTSC0)CLCCTSC0T

,(SELECT DENUMIREA FROM TMS_UNIVERS WHERE COD=A.CTSC1)CLCCTSC1T

,(SELECT DENUMIREA FROM TMS_UNIVERS WHERE COD=A.CTSC2)CLCCTSC2T

,(SELECT DENUMIREA FROM TMS_UNIVERS WHERE COD=A.CTSC3)CLCCTSC3T

,(SELECT DENUMIREA FROM TMS_UNIVERS WHERE COD=A.CTSC4)CLCCTSC4T

,(SELECT DENUMIREA FROM TMS_UNIVERS WHERE COD=A.CTSC5)CLCCTSC5T

,(SELECT DENUMIREA FROM TMS_UNIVERS WHERE COD=A.CTSC6)CLCCTSC6T

,(SELECT DENUMIREA FROM TMS_UNIVERS WHERE COD=A.CTSC7)CLCCTSC7T

,(SELECT DENUMIREA FROM TMS_UNIVERS WHERE COD=A.CTSC8)CLCCTSC8T

,(SELECT DENUMIREA FROM TMS_UNIVERS WHERE COD=A.CTSC9)CLCCTSC9TTMDB_REG_A A;OR REPLACE VIEW VMDB_REG_A1A."NRDOC",A."NRDOC1",A."NRDOC2",A."SUMA0",A."SUMA1",A."SUMA2",A."SUMA3",A."SUMA4",A."SUMA5",A."SUMA6",A."SUMA7",A."SUMA8",A."SUMA9",A."DT",A."DT1",A."DTSC0",A."DTSC1",A."DTSC2",A."DTSC3",A."DTSC4",A."DTSC5",A."DTSC6",A."DTSC7",A."DTSC8",A."DTSC9",A."DTNUM0",A."DTNUM1",A."DTNUM2",A."DTNUM3",A."DTNUM4",A."DTNUM5",A."DTNUM6",A."DTNUM7",A."DTNUM8",A."DTNUM9",A."DTSTR0",A."DTSTR1",A."DTSTR2",A."DTSTR3",A."DTSTR4",A."DTSTR5",A."DTSTR6",A."DTSTR7",A."DTSTR8",A."DTSTR9",A."DTDATA0",A."DTDATA1",A."DTDATA2",A."DTDATA3",A."DTDATA4",A."DTSUMAVAL0",A."DTSUMAVAL1",A."DTSUMAVAL2",A."DTSUMAVAL3",A."DTSUMAVAL4",A."DTVALUTA0",A."DTVALUTA1",A."DTVALUTA2",A."DTVALUTA3",A."DTVALUTA4",A."DTCANT0",A."DTCANT1",A."DTCANT2",A."DTCANT3",A."DTCANT4",A."DTCANT5",A."DTCANT6",A."DTCANT7",A."DTCANT8",A."DTCANT9",A."CT",A."CT1",A."CTSC0",A."CTSC1",A."CTSC2",A."CTSC3",A."CTSC4",A."CTSC5",A."CTSC6",A."CTSC7",A."CTSC8",A."CTSC9",A."CTNUM0",A."CTNUM1",A."CTNUM2",A."CTNUM3",A."CTNUM4",A."CTNUM5",A."CTNUM6",A."CTNUM7",A."CTNUM8",A."CTNUM9",A."CTSTR0",A."CTSTR1",A."CTSTR2",A."CTSTR3",A."CTSTR4",A."CTSTR5",A."CTSTR6",A."CTSTR7",A."CTSTR8",A."CTSTR9",A."CTDATA0",A."CTDATA1",A."CTDATA2",A."CTDATA3",A."CTDATA4",A."CTSUMAVAL0",A."CTSUMAVAL1",A."CTSUMAVAL2",A."CTSUMAVAL3",A."CTSUMAVAL4",A."CTVALUTA0",A."CTVALUTA1",A."CTVALUTA2",A."CTVALUTA3",A."CTVALUTA4",A."CTCANT0",A."CTCANT1",A."CTCANT2",A."CTCANT3",A."CTCANT4",A."CTCANT5",A."CTCANT6",A."CTCANT7",A."CTCANT8",A."CTCANT9"

,(SELECT DENUMIREA FROM TMS_UNIVERS WHERE COD=A.DTSC0)CLCDTSC0T

,(SELECT DENUMIREA FROM TMS_UNIVERS WHERE COD=A.DTSC1)CLCDTSC1T

,(SELECT DENUMIREA FROM TMS_UNIVERS WHERE COD=A.DTSC2)CLCDTSC2T

,(SELECT DENUMIREA FROM TMS_UNIVERS WHERE COD=A.DTSC3)CLCDTSC3T

,(SELECT DENUMIREA FROM TMS_UNIVERS WHERE COD=A.DTSC4)CLCDTSC4T

,(SELECT DENUMIREA FROM TMS_UNIVERS WHERE COD=A.DTSC5)CLCDTSC5T

,(SELECT DENUMIREA FROM TMS_UNIVERS WHERE COD=A.DTSC6)CLCDTSC6T

,(SELECT DENUMIREA FROM TMS_UNIVERS WHERE COD=A.DTSC7)CLCDTSC7T

,(SELECT DENUMIREA FROM TMS_UNIVERS WHERE COD=A.DTSC8)CLCDTSC8T

,(SELECT DENUMIREA FROM TMS_UNIVERS WHERE COD=A.DTSC9)CLCDTSC9T

,(SELECT DENUMIREA FROM TMS_UNIVERS WHERE COD=A.CTSC0)CLCCTSC0T

,(SELECT DENUMIREA FROM TMS_UNIVERS WHERE COD=A.CTSC1)CLCCTSC1T

,(SELECT DENUMIREA FROM TMS_UNIVERS WHERE COD=A.CTSC2)CLCCTSC2T

,(SELECT DENUMIREA FROM TMS_UNIVERS WHERE COD=A.CTSC3)CLCCTSC3T

,(SELECT DENUMIREA FROM TMS_UNIVERS WHERE COD=A.CTSC4)CLCCTSC4T

,(SELECT DENUMIREA FROM TMS_UNIVERS WHERE COD=A.CTSC5)CLCCTSC5T

,(SELECT DENUMIREA FROM TMS_UNIVERS WHERE COD=A.CTSC6)CLCCTSC6T

,(SELECT DENUMIREA FROM TMS_UNIVERS WHERE COD=A.CTSC7)CLCCTSC7T

,(SELECT DENUMIREA FROM TMS_UNIVERS WHERE COD=A.CTSC8)CLCCTSC8T

,(SELECT DENUMIREA FROM TMS_UNIVERS WHERE COD=A.CTSC9)CLCCTSC9TTMDB_REG_A1 A;OR REPLACE VIEW VMDB_REG_A1DA."NRDOC",A."NRDOC1",A."NRDOC2",A."NRDOC3",A."SUMA0",A."SUMA1",A."SUMA2",A."SUMA3",A."SUMA4",A."SUMA5",A."SUMA6",A."SUMA7",A."SUMA8",A."SUMA9",A."DT",A."DT1",A."DTSC0",A."DTSC1",A."DTSC2",A."DTSC3",A."DTSC4",A."DTSC5",A."DTSC6",A."DTSC7",A."DTSC8",A."DTSC9",A."DTNUM0",A."DTNUM1",A."DTNUM2",A."DTNUM3",A."DTNUM4",A."DTNUM5",A."DTNUM6",A."DTNUM7",A."DTNUM8",A."DTNUM9",A."DTSTR0",A."DTSTR1",A."DTSTR2",A."DTSTR3",A."DTSTR4",A."DTSTR5",A."DTSTR6",A."DTSTR7",A."DTSTR8",A."DTSTR9",A."DTDATA0",A."DTDATA1",A."DTDATA2",A."DTDATA3",A."DTDATA4",A."DTSUMAVAL0",A."DTSUMAVAL1",A."DTSUMAVAL2",A."DTSUMAVAL3",A."DTSUMAVAL4",A."DTVALUTA0",A."DTVALUTA1",A."DTVALUTA2",A."DTVALUTA3",A."DTVALUTA4",A."DTCANT0",A."DTCANT1",A."DTCANT2",A."DTCANT3",A."DTCANT4",A."DTCANT5",A."DTCANT6",A."DTCANT7",A."DTCANT8",A."DTCANT9",A."CT",A."CT1",A."CTSC0",A."CTSC1",A."CTSC2",A."CTSC3",A."CTSC4",A."CTSC5",A."CTSC6",A."CTSC7",A."CTSC8",A."CTSC9",A."CTNUM0",A."CTNUM1",A."CTNUM2",A."CTNUM3",A."CTNUM4",A."CTNUM5",A."CTNUM6",A."CTNUM7",A."CTNUM8",A."CTNUM9",A."CTSTR0",A."CTSTR1",A."CTSTR2",A."CTSTR3",A."CTSTR4",A."CTSTR5",A."CTSTR6",A."CTSTR7",A."CTSTR8",A."CTSTR9",A."CTDATA0",A."CTDATA1",A."CTDATA2",A."CTDATA3",A."CTDATA4",A."CTSUMAVAL0",A."CTSUMAVAL1",A."CTSUMAVAL2",A."CTSUMAVAL3",A."CTSUMAVAL4",A."CTVALUTA0",A."CTVALUTA1",A."CTVALUTA2",A."CTVALUTA3",A."CTVALUTA4",A."CTCANT0",A."CTCANT1",A."CTCANT2",A."CTCANT3",A."CTCANT4",A."CTCANT5",A."CTCANT6",A."CTCANT7",A."CTCANT8",A."CTCANT9"

,(SELECT DENUMIREA FROM TMS_UNIVERS WHERE COD=A.DTSC0)CLCDTSC0T

,(SELECT DENUMIREA FROM TMS_UNIVERS WHERE COD=A.DTSC1)CLCDTSC1T

,(SELECT DENUMIREA FROM TMS_UNIVERS WHERE COD=A.DTSC2)CLCDTSC2T

,(SELECT DENUMIREA FROM TMS_UNIVERS WHERE COD=A.DTSC3)CLCDTSC3T

,(SELECT DENUMIREA FROM TMS_UNIVERS WHERE COD=A.DTSC4)CLCDTSC4T

,(SELECT DENUMIREA FROM TMS_UNIVERS WHERE COD=A.DTSC5)CLCDTSC5T

,(SELECT DENUMIREA FROM TMS_UNIVERS WHERE COD=A.DTSC6)CLCDTSC6T

,(SELECT DENUMIREA FROM TMS_UNIVERS WHERE COD=A.DTSC7)CLCDTSC7T

,(SELECT DENUMIREA FROM TMS_UNIVERS WHERE COD=A.DTSC8)CLCDTSC8T

,(SELECT DENUMIREA FROM TMS_UNIVERS WHERE COD=A.DTSC9)CLCDTSC9T

,(SELECT DENUMIREA FROM TMS_UNIVERS WHERE COD=A.CTSC0)CLCCTSC0T

,(SELECT DENUMIREA FROM TMS_UNIVERS WHERE COD=A.CTSC1)CLCCTSC1T

,(SELECT DENUMIREA FROM TMS_UNIVERS WHERE COD=A.CTSC2)CLCCTSC2T

,(SELECT DENUMIREA FROM TMS_UNIVERS WHERE COD=A.CTSC3)CLCCTSC3T

,(SELECT DENUMIREA FROM TMS_UNIVERS WHERE COD=A.CTSC4)CLCCTSC4T

,(SELECT DENUMIREA FROM TMS_UNIVERS WHERE COD=A.CTSC5)CLCCTSC5T

,(SELECT DENUMIREA FROM TMS_UNIVERS WHERE COD=A.CTSC6)CLCCTSC6T

,(SELECT DENUMIREA FROM TMS_UNIVERS WHERE COD=A.CTSC7)CLCCTSC7T

,(SELECT DENUMIREA FROM TMS_UNIVERS WHERE COD=A.CTSC8)CLCCTSC8T

,(SELECT DENUMIREA FROM TMS_UNIVERS WHERE COD=A.CTSC9)CLCCTSC9TTMDB_REG_A1D A;OR REPLACE VIEW VMDB_REG_A2A."NRDOC",A."NRDOC1",A."NRDOC2",A."SUMA0",A."SUMA1",A."SUMA2",A."SUMA3",A."SUMA4",A."SUMA5",A."SUMA6",A."SUMA7",A."SUMA8",A."SUMA9",A."DT",A."DT1",A."DTSC0",A."DTSC1",A."DTSC2",A."DTSC3",A."DTSC4",A."DTSC5",A."DTSC6",A."DTSC7",A."DTSC8",A."DTSC9",A."DTNUM0",A."DTNUM1",A."DTNUM2",A."DTNUM3",A."DTNUM4",A."DTNUM5",A."DTNUM6",A."DTNUM7",A."DTNUM8",A."DTNUM9",A."DTSTR0",A."DTSTR1",A."DTSTR2",A."DTSTR3",A."DTSTR4",A."DTSTR5",A."DTSTR6",A."DTSTR7",A."DTSTR8",A."DTSTR9",A."DTDATA0",A."DTDATA1",A."DTDATA2",A."DTDATA3",A."DTDATA4",A."DTSUMAVAL0",A."DTSUMAVAL1",A."DTSUMAVAL2",A."DTSUMAVAL3",A."DTSUMAVAL4",A."DTVALUTA0",A."DTVALUTA1",A."DTVALUTA2",A."DTVALUTA3",A."DTVALUTA4",A."DTCANT0",A."DTCANT1",A."DTCANT2",A."DTCANT3",A."DTCANT4",A."DTCANT5",A."DTCANT6",A."DTCANT7",A."DTCANT8",A."DTCANT9",A."CT",A."CT1",A."CTSC0",A."CTSC1",A."CTSC2",A."CTSC3",A."CTSC4",A."CTSC5",A."CTSC6",A."CTSC7",A."CTSC8",A."CTSC9",A."CTNUM0",A."CTNUM1",A."CTNUM2",A."CTNUM3",A."CTNUM4",A."CTNUM5",A."CTNUM6",A."CTNUM7",A."CTNUM8",A."CTNUM9",A."CTSTR0",A."CTSTR1",A."CTSTR2",A."CTSTR3",A."CTSTR4",A."CTSTR5",A."CTSTR6",A."CTSTR7",A."CTSTR8",A."CTSTR9",A."CTDATA0",A."CTDATA1",A."CTDATA2",A."CTDATA3",A."CTDATA4",A."CTSUMAVAL0",A."CTSUMAVAL1",A."CTSUMAVAL2",A."CTSUMAVAL3",A."CTSUMAVAL4",A."CTVALUTA0",A."CTVALUTA1",A."CTVALUTA2",A."CTVALUTA3",A."CTVALUTA4",A."CTCANT0",A."CTCANT1",A."CTCANT2",A."CTCANT3",A."CTCANT4",A."CTCANT5",A."CTCANT6",A."CTCANT7",A."CTCANT8",A."CTCANT9"

,(SELECT DENUMIREA FROM TMS_UNIVERS WHERE COD=A.DTSC0)CLCDTSC0T

,(SELECT DENUMIREA FROM TMS_UNIVERS WHERE COD=A.DTSC1)CLCDTSC1T

,(SELECT DENUMIREA FROM TMS_UNIVERS WHERE COD=A.DTSC2)CLCDTSC2T

,(SELECT DENUMIREA FROM TMS_UNIVERS WHERE COD=A.DTSC3)CLCDTSC3T

,(SELECT DENUMIREA FROM TMS_UNIVERS WHERE COD=A.DTSC4)CLCDTSC4T

,(SELECT DENUMIREA FROM TMS_UNIVERS WHERE COD=A.DTSC5)CLCDTSC5T

,(SELECT DENUMIREA FROM TMS_UNIVERS WHERE COD=A.DTSC6)CLCDTSC6T

,(SELECT DENUMIREA FROM TMS_UNIVERS WHERE COD=A.DTSC7)CLCDTSC7T

,(SELECT DENUMIREA FROM TMS_UNIVERS WHERE COD=A.DTSC8)CLCDTSC8T

,(SELECT DENUMIREA FROM TMS_UNIVERS WHERE COD=A.DTSC9)CLCDTSC9T

,(SELECT DENUMIREA FROM TMS_UNIVERS WHERE COD=A.CTSC0)CLCCTSC0T

,(SELECT DENUMIREA FROM TMS_UNIVERS WHERE COD=A.CTSC1)CLCCTSC1T

,(SELECT DENUMIREA FROM TMS_UNIVERS WHERE COD=A.CTSC2)CLCCTSC2T

,(SELECT DENUMIREA FROM TMS_UNIVERS WHERE COD=A.CTSC3)CLCCTSC3T

,(SELECT DENUMIREA FROM TMS_UNIVERS WHERE COD=A.CTSC4)CLCCTSC4T

,(SELECT DENUMIREA FROM TMS_UNIVERS WHERE COD=A.CTSC5)CLCCTSC5T

,(SELECT DENUMIREA FROM TMS_UNIVERS WHERE COD=A.CTSC6)CLCCTSC6T

,(SELECT DENUMIREA FROM TMS_UNIVERS WHERE COD=A.CTSC7)CLCCTSC7T

,(SELECT DENUMIREA FROM TMS_UNIVERS WHERE COD=A.CTSC8)CLCCTSC8T

,(SELECT DENUMIREA FROM TMS_UNIVERS WHERE COD=A.CTSC9)CLCCTSC9TTMDB_REG_A2 A;OR REPLACE VIEW VMDB_REG_A2DA."NRDOC",A."NRDOC1",A."NRDOC2",A."NRDOC3",A."SUMA0",A."SUMA1",A."SUMA2",A."SUMA3",A."SUMA4",A."SUMA5",A."SUMA6",A."SUMA7",A."SUMA8",A."SUMA9",A."DT",A."DT1",A."DTSC0",A."DTSC1",A."DTSC2",A."DTSC3",A."DTSC4",A."DTSC5",A."DTSC6",A."DTSC7",A."DTSC8",A."DTSC9",A."DTNUM0",A."DTNUM1",A."DTNUM2",A."DTNUM3",A."DTNUM4",A."DTNUM5",A."DTNUM6",A."DTNUM7",A."DTNUM8",A."DTNUM9",A."DTSTR0",A."DTSTR1",A."DTSTR2",A."DTSTR3",A."DTSTR4",A."DTSTR5",A."DTSTR6",A."DTSTR7",A."DTSTR8",A."DTSTR9",A."DTDATA0",A."DTDATA1",A."DTDATA2",A."DTDATA3",A."DTDATA4",A."DTSUMAVAL0",A."DTSUMAVAL1",A."DTSUMAVAL2",A."DTSUMAVAL3",A."DTSUMAVAL4",A."DTVALUTA0",A."DTVALUTA1",A."DTVALUTA2",A."DTVALUTA3",A."DTVALUTA4",A."DTCANT0",A."DTCANT1",A."DTCANT2",A."DTCANT3",A."DTCANT4",A."DTCANT5",A."DTCANT6",A."DTCANT7",A."DTCANT8",A."DTCANT9",A."CT",A."CT1",A."CTSC0",A."CTSC1",A."CTSC2",A."CTSC3",A."CTSC4",A."CTSC5",A."CTSC6",A."CTSC7",A."CTSC8",A."CTSC9",A."CTNUM0",A."CTNUM1",A."CTNUM2",A."CTNUM3",A."CTNUM4",A."CTNUM5",A."CTNUM6",A."CTNUM7",A."CTNUM8",A."CTNUM9",A."CTSTR0",A."CTSTR1",A."CTSTR2",A."CTSTR3",A."CTSTR4",A."CTSTR5",A."CTSTR6",A."CTSTR7",A."CTSTR8",A."CTSTR9",A."CTDATA0",A."CTDATA1",A."CTDATA2",A."CTDATA3",A."CTDATA4",A."CTSUMAVAL0",A."CTSUMAVAL1",A."CTSUMAVAL2",A."CTSUMAVAL3",A."CTSUMAVAL4",A."CTVALUTA0",A."CTVALUTA1",A."CTVALUTA2",A."CTVALUTA3",A."CTVALUTA4",A."CTCANT0",A."CTCANT1",A."CTCANT2",A."CTCANT3",A."CTCANT4",A."CTCANT5",A."CTCANT6",A."CTCANT7",A."CTCANT8",A."CTCANT9"

,(SELECT DENUMIREA FROM TMS_UNIVERS WHERE COD=A.DTSC0)CLCDTSC0T

,(SELECT DENUMIREA FROM TMS_UNIVERS WHERE COD=A.DTSC1)CLCDTSC1T

,(SELECT DENUMIREA FROM TMS_UNIVERS WHERE COD=A.DTSC2)CLCDTSC2T

,(SELECT DENUMIREA FROM TMS_UNIVERS WHERE COD=A.DTSC3)CLCDTSC3T

,(SELECT DENUMIREA FROM TMS_UNIVERS WHERE COD=A.DTSC4)CLCDTSC4T

,(SELECT DENUMIREA FROM TMS_UNIVERS WHERE COD=A.DTSC5)CLCDTSC5T

,(SELECT DENUMIREA FROM TMS_UNIVERS WHERE COD=A.DTSC6)CLCDTSC6T

,(SELECT DENUMIREA FROM TMS_UNIVERS WHERE COD=A.DTSC7)CLCDTSC7T

,(SELECT DENUMIREA FROM TMS_UNIVERS WHERE COD=A.DTSC8)CLCDTSC8T

,(SELECT DENUMIREA FROM TMS_UNIVERS WHERE COD=A.DTSC9)CLCDTSC9T

,(SELECT DENUMIREA FROM TMS_UNIVERS WHERE COD=A.CTSC0)CLCCTSC0T

,(SELECT DENUMIREA FROM TMS_UNIVERS WHERE COD=A.CTSC1)CLCCTSC1T

,(SELECT DENUMIREA FROM TMS_UNIVERS WHERE COD=A.CTSC2)CLCCTSC2T

,(SELECT DENUMIREA FROM TMS_UNIVERS WHERE COD=A.CTSC3)CLCCTSC3T

,(SELECT DENUMIREA FROM TMS_UNIVERS WHERE COD=A.CTSC4)CLCCTSC4T

,(SELECT DENUMIREA FROM TMS_UNIVERS WHERE COD=A.CTSC5)CLCCTSC5T

,(SELECT DENUMIREA FROM TMS_UNIVERS WHERE COD=A.CTSC6)CLCCTSC6T

,(SELECT DENUMIREA FROM TMS_UNIVERS WHERE COD=A.CTSC7)CLCCTSC7T

,(SELECT DENUMIREA FROM TMS_UNIVERS WHERE COD=A.CTSC8)CLCCTSC8T

,(SELECT DENUMIREA FROM TMS_UNIVERS WHERE COD=A.CTSC9)CLCCTSC9TTMDB_REG_A2D A;

Пакеты, процедуры и функции:

CREATE OR REPLACE PACKAGE RADIOCOM.yrdc_contracts AUTHID CURRENT_USER AS

/******************************************************************************: yrdc_contracts::Date Author Description

-- ---

.0 28.10.2009 1. Created this package.

******************************************************************************/

экшен "Дублирование данных из предыдущей даты"

PROCEDURE contr_dubl(p_nrdoc NUMBER,p_dataspec_new date,p_type_dubl number:=0);

экшен "Рассчитать суммы"sum_account(p_nrdoc NUMBER,p_type_doc number:=0);

- экшен "Заполнить данными согласно контрактов"

PROCEDURE usl_calc(p_nrdoc NUMBER,p_sysfid NUMBER,p_client number:=-1,p_grp_name varchar2:=null);

экшен "Расчитать НДС"calc_tva(p_nrdoc NUMBER,p_sysfid number);calc_tva_radiof(p_nrdoc NUMBER);calc_tva_telecom(p_nrdoc NUMBER);calc_tva_fst(p_nrdoc NUMBER);

calc_contr_radiof(p_nrdoc NUMBER,p_sysfid NUMBER,p_client NUMBER,p_grp_name varchar2:=null,p_contr number:=null);calc_contr_telecom(p_nrdoc NUMBER,p_sysfid NUMBER);calc_contr_fst(p_nrdoc NUMBER,p_sysfid NUMBER);

- action "Sgenerirovati nomera NN" v doc.1421gnr_NN_1421(p_nrdoc number, p_nrdoc1 number);

--

- actioni "Заполнить из групы Servicii RD prestate populatiei" v doc.1421enter_servicii(p_nrdoc number);

--

- action "Sgenerirovati nomera NN" v doc.1204gnr_NN_1204(p_nrdoc number, p_rrowid number);

 заполнене 1422 документа. Все документы по услугам телекомуникаций за месяц (sysfid - 1411)

PROCEDURE enter_1422(p_nrdoc NUMBER, p_data DATE, p_client NUMBER);check_date(vdate date);yrdc_contracts;

/

CREATE OR REPLACE PACKAGE RADIOCOM.yrdc_contr_reps AS

/******************************************************************************: yrdc_contr_reps::Date Author Description

-- ---

1.0 02.02.2010 1. Created this package.

******************************************************************************/

отчет по истории спецификации, документов контарктов "(1413) Contract radioficare"

PROCEDURE rep_hist_spec(p_datastart date,p_dataend date,p_contr IN LONG,SQLH OUT LONG,SQLM OUT LONG);rep_serv_radio(p_datastart date,p_dataend date,p_contr IN LONG,SQLH IN OUT LONG,SQLM IN OUT LONG);GET_CONTRACTS_DATA RETURN LONG;yrdc_contr_reps;

ПРИЛОЖЕНИЕ 2

Программный код для модуля контрактов

CREATE OR REPLACE PACKAGE BODY RADIOCOM.yrdc_contracts AS

/******************************************************************************: yrdc_contracts:

:Date Author Description

-- ---

.0 28.10.2009 1. Created this package body.

******************************************************************************/contr_dubl(p_nrdoc NUMBER,p_dataspec_new date,p_type_dubl number:=0)_nrdoc1 number;_nrdoc1_new number;

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

execute immediate 'select nrdoc1TMDB_reg_A aa.DTDATA0=(select max(DTDATA0) from TMDB_reg_A a1 where a.nrdoc=a1.nrdoc)a.nrdoc=:1 ' into v_nrdoc1 using p_nrdoc;

заполнение TMDB_reg_Aimmediate 'into TMDB_reg_ANRDOC,ID_TMDB_CM.NEXTVAL nrdoc1,SUMA0, SUMA1, SUMA2, SUMA3, SUMA4, SUMA5, SUMA6, SUMA7, SUMA8, SUMA9, DT, DT1, DTSC0, DTSC1, DTSC2, DTSC3, DTSC4, DTSC5, DTSC6, DTSC7, DTSC8, DTSC9, DTNUM0, DTNUM1, DTNUM2, DTNUM3, DTNUM4, DTNUM5, DTNUM6, DTNUM7, DTNUM8, DTNUM9, DTSTR0, DTSTR1, DTSTR2, DTSTR3, DTSTR4, DTSTR5, DTSTR6, DTSTR7, DTSTR8, DTSTR9, '''||p_dataspec_new||''' DTDATA0, DTDATA1, DTDATA2, DTDATA3, DTDATA4, DTSUMAVAL0, DTSUMAVAL1, DTSUMAVAL2, DTSUMAVAL3, DTSUMAVAL4, DTVALUTA0, DTVALUTA1, DTVALUTA2, DTVALUTA3, DTVALUTA4, DTCANT0, DTCANT1, DTCANT2, DTCANT3, DTCANT4, DTCANT5, DTCANT6, DTCANT7, DTCANT8, DTCANT9, CT, CT1, CTSC0, CTSC1, CTSC2, CTSC3, CTSC4, CTSC5, CTSC6, CTSC7, CTSC8, CTSC9, CTNUM0, CTNUM1, CTNUM2, CTNUM3, CTNUM4, CTNUM5, CTNUM6, CTNUM7, CTNUM8, CTNUM9, CTSTR0, CTSTR1, CTSTR2, CTSTR3, CTSTR4, CTSTR5, CTSTR6, CTSTR7, CTSTR8, CTSTR9, CTDATA0, CTDATA1, CTDATA2, CTDATA3, CTDATA4, CTSUMAVAL0, CTSUMAVAL1, CTSUMAVAL2, CTSUMAVAL3, CTSUMAVAL4, CTVALUTA0, CTVALUTA1, CTVALUTA2, CTVALUTA3, CTVALUTA4, CTCANT0, CTCANT1, CTCANT2, CTCANT3, CTCANT4, CTCANT5, CTCANT6, CTCANT7, CTCANT8, CTCANT9TMDB_reg_A where nrdoc=:1 and nrdoc1=:2'p_nrdoc,v_nrdoc1;

заполнение TMDB_reg_A1

выбираем nrdoc1 новой даты спецификации

execute immediate 'select nrdoc1TMDB_reg_A aa.DTDATA0=:1a.nrdoc=:2 ' into v_nrdoc1_new using p_dataspec_new,p_nrdoc;

в ctnum9 кидаем порядковый номер строки,(понадобится для дальнейшего заполнения TMDB_reg_A1D)

execute immediate 'into TMDB_reg_A1NRDOC,'||v_nrdoc1_new||' NRDOC1,ID_TMDB_CM.NEXTVAL NRDOC2, SUMA0, SUMA1, SUMA2, SUMA3, SUMA4, SUMA5, SUMA6, SUMA7, SUMA8, SUMA9, DT, DT1, DTSC0, DTSC1, DTSC2, DTSC3, DTSC4, DTSC5, DTSC6, DTSC7, DTSC8, DTSC9, DTNUM0, DTNUM1, DTNUM2, DTNUM3, DTNUM4, DTNUM5, DTNUM6, DTNUM7, DTNUM8, DTNUM9, DTSTR0, DTSTR1, DTSTR2, DTSTR3, DTSTR4, DTSTR5, DTSTR6, DTSTR7, DTSTR8, DTSTR9, DTDATA0, DTDATA1, DTDATA2, DTDATA3, DTDATA4, DTSUMAVAL0, DTSUMAVAL1, DTSUMAVAL2, DTSUMAVAL3, DTSUMAVAL4, DTVALUTA0, DTVALUTA1, DTVALUTA2, DTVALUTA3, DTVALUTA4, DTCANT0, DTCANT1, DTCANT2, DTCANT3, DTCANT4, DTCANT5, DTCANT6, DTCANT7, DTCANT8, DTCANT9, CT, CT1, CTSC0, CTSC1, CTSC2, CTSC3, CTSC4, CTSC5, CTSC6, CTSC7, CTSC8, CTSC9, CTNUM0, CTNUM1, CTNUM2, CTNUM3, CTNUM4, CTNUM5, CTNUM6, CTNUM7, CTNUM8,row_number()over(order by nrdoc2) CTNUM9, CTSTR0, CTSTR1, CTSTR2, CTSTR3, CTSTR4, CTSTR5, CTSTR6, CTSTR7, CTSTR8, CTSTR9, CTDATA0, CTDATA1, CTDATA2, CTDATA3, CTDATA4, CTSUMAVAL0, CTSUMAVAL1, CTSUMAVAL2, CTSUMAVAL3, CTSUMAVAL4, CTVALUTA0, CTVALUTA1, CTVALUTA2, CTVALUTA3, CTVALUTA4, CTCANT0, CTCANT1, CTCANT2, CTCANT3, CTCANT4, CTCANT5, CTCANT6, CTCANT7, CTCANT8, CTCANT9TMDB_reg_A1 where nrdoc=:1 and nrdoc1=:2p_nrdoc,v_nrdoc1;p_type_dubl=0 then

заполнение TMDB_reg_A1Di in (select nrdoc2,ctnum9 from TMDB_reg_A1 where nrdoc=p_nrdoc and nrdoc1=v_nrdoc1_new)loopimmediate 'into TMDB_reg_A1DNRDOC,'||v_nrdoc1_new||' NRDOC1,'||i.nrdoc2||' NRDOC2,ID_TMDB_CM.NEXTVAL NRDOC3, SUMA0, SUMA1, SUMA2, SUMA3, SUMA4, SUMA5, SUMA6, SUMA7, SUMA8, SUMA9, DT, DT1, DTSC0, DTSC1, DTSC2, DTSC3, DTSC4, DTSC5, DTSC6, DTSC7, DTSC8, DTSC9, DTNUM0, DTNUM1, DTNUM2, DTNUM3, DTNUM4, DTNUM5, DTNUM6, DTNUM7, DTNUM8, DTNUM9, DTSTR0, DTSTR1, DTSTR2, DTSTR3, DTSTR4, DTSTR5, DTSTR6, DTSTR7, DTSTR8, DTSTR9, DTDATA0, DTDATA1, DTDATA2, DTDATA3, DTDATA4, DTSUMAVAL0, DTSUMAVAL1, DTSUMAVAL2, DTSUMAVAL3, DTSUMAVAL4, DTVALUTA0, DTVALUTA1, DTVALUTA2, DTVALUTA3, DTVALUTA4, DTCANT0, DTCANT1, DTCANT2, DTCANT3, DTCANT4, DTCANT5, DTCANT6, DTCANT7, DTCANT8, DTCANT9, CT, CT1, CTSC0, CTSC1, CTSC2, CTSC3, CTSC4, CTSC5, CTSC6, CTSC7, CTSC8, CTSC9, CTNUM0, CTNUM1, CTNUM2, CTNUM3, CTNUM4, CTNUM5, CTNUM6, CTNUM7, CTNUM8, CTNUM9, CTSTR0, CTSTR1, CTSTR2, CTSTR3, CTSTR4, CTSTR5, CTSTR6, CTSTR7, CTSTR8, CTSTR9, CTDATA0, CTDATA1, CTDATA2, CTDATA3, CTDATA4, CTSUMAVAL0, CTSUMAVAL1, CTSUMAVAL2, CTSUMAVAL3, CTSUMAVAL4, CTVALUTA0, CTVALUTA1, CTVALUTA2, CTVALUTA3, CTVALUTA4, CTCANT0, CTCANT1, CTCANT2, CTCANT3, CTCANT4, CTCANT5, CTCANT6, CTCANT7, CTCANT8, CTCANT9TMDB_reg_A1D d where nrdoc=:1 and nrdoc1=:2nrdoc2=(select nrdoc2(select nrdoc2,row_number()over(order by nrdoc2) rn from TMDB_reg_A1 aa.nrdoc='||p_nrdoc||' and a.nrdoc1='||v_nrdoc1||' )arn=:3)p_nrdoc,v_nrdoc1,i.ctnum9;loop;if;;

sum_account(p_nrdoc NUMBER,p_type_doc number:=0)_nrdoc1 number;_sysfid number;

/*v_tipcalc integer;*/

begin

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

execute immediate 'select nrdoc1TMDB_reg_A aa.DTDATA0=(select max(DTDATA0) from TMDB_reg_A a1 where a.nrdoc=a1.nrdoc)a.nrdoc=:1 ' into v_nrdoc1 using p_nrdoc;

-

immediate 'select sysfidTMDB_DOCS a where cod=:1' into v_sysfid using p_nrdoc;

(1406) Contract Telecomunicatiiv_sysfid=1406 theni in(select nrdoc,nrdoc1,nrdoc2,dtnum1 from TMDB_reg_A1 where nrdoc=p_nrdoc and nrdoc1=v_nrdoc1) loopi.dtnum1=1 thenTMDB_reg_A1D a1Dsuma1=(case when (select u.gr1 from vms_univers u where u.cod=a1d.dtsc0)='LRR'a1d.dtcant0*a1d.dtcant2*a1d.dtcant3a1d.dtcant2*a1d.dtcant3 end)nrdoc=p_nrdoc and nrdoc1= v_nrdoc1 and nrdoc2=i.nrdoc2;

-' using p_nrdoc,v_nrdoc1,i.nrdoc2;immediate 'update TMDB_reg_A1D a1Dsuma1=a1d.dtcant3nrdoc=:1 and nrdoc1=:2 and nrdoc2=:3

' using p_nrdoc,v_nrdoc1,i.nrdoc2;if;immediate 'update TMDB_reg_A1 a1SUMA1=(select sum(SUMA1) from TMDB_reg_A1D da1.nrdoc=d.nrdoc and a1.nrdoc1=d.nrdoc1 and a1.nrdoc2=d.nrdoc2 )a1.nrdoc=:1 and a1.nrdoc1=:2 and a1.nrdoc2=:3

' using i.nrdoc,i.nrdoc1,i.nrdoc2;loop;immediate 'update TMDB_reg rsuma2=(select sum(suma1) from TMDB_reg_A1 a1 where r.nrdoc=a1.nrdoc and a1.nrdoc1=:1)nrdoc=:2

'using v_nrdoc1,p_nrdoc;;v_sysfid=1408 thenimmediate 'update TMDB_reg rsuma2=(select sum(suma1) from TMDB_reg_A1 a1 where r.nrdoc=a1.nrdoc and a1.nrdoc1=:1)nrdoc=:2

'using v_nrdoc1,p_nrdoc;;v_sysfid=1409 theni in(select nrdoc,nrdoc1,nrdoc2 from TMDB_reg_A1 where nrdoc=p_nrdoc and nrdoc1=v_nrdoc1) loopimmediate 'update TMDB_reg_A1 a1dtcant0=(select sum(SUMA0) from TMDB_reg_A1D da1.nrdoc=d.nrdoc and a1.nrdoc1=d.nrdoc1 and a1.nrdoc2=d.nrdoc2 )a1.nrdoc=:1 and a1.nrdoc1=:2 and a1.nrdoc2=:3

' using i.nrdoc,i.nrdoc1,i.nrdoc2;loop;;v_sysfid=1407 or v_sysfid=1413 theni in(select nrdoc,nrdoc1,nrdoc2 from TMDB_reg_A1nrdoc=p_nrdoc and nrdoc1=v_nrdoc1) loopimmediate 'update TMDB_reg_A1 a1suma1=dtcant0*suma0a1.nrdoc=:1 and a1.nrdoc1=:2 and a1.nrdoc2=:3

' using i.nrdoc,i.nrdoc1,i.nrdoc2; loop;

end;

else msg('Данный экшен не предназначен для этого типа документа');

end case;;usl_calc(p_nrdoc NUMBER,p_sysfid NUMBER,p_client number:=-1,p_grp_name varchar2:=null)long;_contr number;

очистка документаp_sysfid not in(1406,1409) then

если sysfid=1413 и sys_context('envun4','filt_contract')=1, перед удалением берем значение контракта(из шапки ctnum0)

if (p_sysfid=1413 or p_sysfid=1407) and sys_context('envun4','filt_contract')=1 thenimmediate 'select CTNUM0 from tmdb_reg_a where nrdoc='||p_nrdoc into v_contr;if;immediate 'delete from TMDB_REG_A where nrdoc=:1' using p_nrdoc;if;immediate 'delete from TMDB_REG_A2 where nrdoc=:1' using p_nrdoc;immediate 'delete from TMDB_REG_A2D where nrdoc=:1' using p_nrdoc;

contract telecomunicatiip_sysfid=1406 then yrdc_contracts.calc_contr_telecom(p_nrdoc,p_sysfid);

contract FSTp_sysfid=1409 then yrdc_contracts.calc_contr_fst(p_nrdoc,p_sysfid);null;case;;

calc_tva(p_nrdoc NUMBER,p_sysfid number)p_sysfid=1407 or p_sysfid=1413 then yrdc_contracts.calc_tva_radiof(p_nrdoc);p_sysfid=1406 then yrdc_contracts.calc_tva_telecom(p_nrdoc);p_sysfid=1409 then yrdc_contracts.calc_tva_fst(p_nrdoc);case;;calc_tva_radiof(p_nrdoc NUMBER) is_clcmonths varchar2(10):='';i in (select nrdoc1,dtnum2,DTNUM4,nvl(SUMA3,0) suma3 from VMDB_REG_A where nrdoc=p_nrdoc) loopi.DTNUM4=1 then v_clcmonths:='3 ';i.DTNUM4=3 then v_clcmonths:='6 ';v_clcmonths:='1 ';case;i.dtnum2=1 thenimmediate 'TMDB_REG_A2 a2

-TVA=(DECODE(DTCANT1,NULL,'||v_clcmonths||',DTCANT1))*DTCANT0*SUMA0*/*(*/SUMA2/100/*/(1+SUMA2/100))*/

-Suma fara TVA

,SUMA1=(DECODE(DTCANT1,NULL,'||v_clcmonths||',DTCANT1))*DTCANT0*SUMA0--*1/(SUMA2/100+1)nrdoc=:1 and nrdoc1=:2

' using p_nrdoc,i.nrdoc1;immediate 'TMDB_REG_A2 a2

-TVA=(DECODE(DTCANT1,NULL,'||v_clcmonths||',DTCANT1))*DTCANT0*SUMA0*(SUMA2/100)

-Suma fara TVA

,SUMA1=(DECODE(DTCANT1,NULL,'||v_clcmonths||',DTCANT1))*DTCANT0*SUMA0/**(SUMA2/100+1)*/nrdoc=:1 and nrdoc1=:2

' using p_nrdoc,i.nrdoc1;if;loop;

-TOTALimmediate 'TMDB_REG_A2 a2SUMA4=SUMA3+SUMA1nrdoc=:1 ' using p_nrdoc;;calc_tva_telecom(p_nrdoc NUMBER)is_val_contr varchar2(70):='';_datadoc date:=abm_util.data_by_nrdoc(p_nrdoc);i in (select nrdoc1,nrdoc2,dtnum2,dtnum1,dtvaluta0,dtvaluta1 from VMDB_REG_A2 where nrdoc=p_nrdoc) loopupper(i.DTVALUTA1)<>'LEI' then_val_contr:='un$valuta.GETCURS('''||v_datadoc||''','''||i.DTVALUTA1||''',2)* ';i.dtnum1=1 thenimmediate 'TMDB_REG_A2D a2

-Plata pentru cap.deplina (lei)=(case when (select u.gr1 from vms_univers u where u.cod=a2.dtsc0)=''LRR''nvl(DTCANT1,0)*nvl(DTCANT3,0)*nvl(DTCANT0,0)nvl(DTCANT1,0)*nvl(DTCANT3,0) end)

-Plata pentru 1/2 de capacitate (lei)

,SUMA5=(case when (select u.gr1 from vms_univers u where u.cod=a2.dtsc0)=''LRR''nvl(DTCANT2,0)*nvl(DTCANT4,0)*nvl(DTCANT0,0)nvl(DTCANT2,0)*nvl(DTCANT4,0)end)

-Suma fara TVA

,SUMA1=(case when (select u.gr1 from vms_univers u where u.cod=a2.dtsc0)=''LRR'''||v_val_contr||'nvl(DTCANT1,0)*nvl(DTCANT3,0)*nvl(DTCANT0,0)'||v_val_contr||'nvl(DTCANT1,0)*nvl(DTCANT3,0) end)+decode('||nvl(i.dtnum1,1)||',1,(case when (select u.gr1 from vms_univers u where u.cod=a2.dtsc0)=''LRR'''||v_val_contr||'nvl(DTCANT2,0)*nvl(DTCANT4,0)*nvl(DTCANT0,0)'||v_val_contr||'nvl(DTCANT2,0)*nvl(DTCANT4,0)end),0)nrdoc=:1 and nrdoc1=:2 and nrdoc2=:3

' using p_nrdoc,i.nrdoc1,i.nrdoc2;immediate 'TMDB_REG_A2D a2=nvl(DTCANT1,0)

,SUMA1='||v_val_contr||'nvl(DTCANT1,0)nrdoc=:1 and nrdoc1=:2 and nrdoc2=:3

' using p_nrdoc,i.nrdoc1,i.nrdoc2;if;if;i.dtnum2=1 thenimmediate 'TMDB_REG_A2D a2

-TVA=SUMA1*(SUMA2/100/(1+SUMA2/100))nrdoc=:1 and nrdoc1=:2 and nrdoc2=:3

' using p_nrdoc,i.nrdoc1,i.nrdoc2;immediate 'TMDB_REG_A2D a2

-TVA=SUMA1*(SUMA2/100)nrdoc=:1 and nrdoc1=:2 and nrdoc2=:3

' using p_nrdoc,i.nrdoc1,i.nrdoc2;if;

loop;

-TOTALimmediate 'TMDB_REG_A2D a2SUMA4=SUMA3+SUMA1nrdoc=:1 ' using p_nrdoc;;calc_tva_fst(p_nrdoc NUMBER)isimmediate 'TMDB_REG_A2 a2

-Suma fara tva=nvl(suma0,0)+nvl(dtcant0,0)nrdoc=:1

' using p_nrdoc;immediate 'TMDB_REG_A2 a2

-Suma TVA=nvl(suma1,0)*nvl(suma2,0)/100

-Suma Total

,SUMA4=nvl(suma1,0)+nvl(suma1,0)*nvl(suma2,0)/100nrdoc=:1

' using p_nrdoc;;in(1410,1415)calc_contr_radiof(p_nrdoc NUMBER,p_sysfid NUMBER,p_client NUMBER,p_grp_name varchar2:=null,p_contr number:=null)_tip_prest_srv varchar2(70):='';_client_flt varchar2(70):= '';_val_contr varchar2(70):='';_clcmonths varchar2(10):='';_filtgrp varchar2(100):='';_cond_contr varchar2(70):='';long;_datadoc date:=abm_util.data_by_nrdoc(p_nrdoc);

--исключения-_expr exception;exception_init(miss_expr,-936);

проверка на sysfid. если sys_context('envun4','filt_contract')=1,применяем фильтр на контрактsys_context('envun4','filt_contract')=1 then_cond_contr:=' and nrdoc='||p_contr;if;

-

добавление условия на Tipul prestarii SRV для p_sysfid=1407to_char(abm_util.data_by_nrdoc(p_nrdoc),'mm') in (6,12) then v_tip_prest_srv:=' ';to_char(abm_util.data_by_nrdoc(p_nrdoc),'mm') in (3,6,9,12) then v_tip_prest_srv:=' and nvl(c.DTNUM4,2) in(1,2) ';v_tip_prest_srv:=' and nvl(c.DTNUM4,2) in(2) '; case;

проверка на существование фильтра по клиентам(если -1 то все клиенты, иначе только p_client)

if p_client<>-1 then_client_flt:=' and c.dtsc0='||p_client; if;

проверка на существование параметра группы контрагентов(если не null,то существует)

if p_grp_name is not null then_filtgrp:=' and c.dtsc0 in(select sc from TMS_SYSGRP where GROUP1||GROUP2||GROUP3||GROUP4||GROUP5='||p_grp_name||') ';

- say('v_filtgrp='||v_filtgrp); if;

заполнение первого грида(CTNUM0, CTNUM1 - nrdoc,nrdoc1 документов контрактов 1407 )

execute immediate 'insert into TMDB_REG_A(NRDOC, NRDOC1, DTSC0, DTNUM2, DTNUM4, DTSTR0, DTSTR2, DTSTR4, DTDATA0, DTVALUTA0, DTVALUTA1,CTNUM0, CTNUM1/*,SUMA3*/)'||p_nrdoc||' nrdoc, ID_TMDB_CM.NEXTVAL NRDOC1

,c.dtsc0,c.DTNUM2,c.DTNUM4

, c.DTSTR0'||'||'||'''/'''||'||'||'c.nrdoc, c.CLCDTNUM2T, c.CLCDTNUM4T

,(select max(DTDATA0) from TMDB_reg_A a where a.nrdoc=c.nrdoc) DTDATA0

, c.DTVALUTA0, c.DTVALUTA1

,c.nrdoc CTNUM0

,(select nrdoc1 from TMDB_reg_A a where a.nrdoc=c.nrdocDTDATA0=(select max(DTDATA0) from TMDB_reg_A a1 where a.nrdoc=a1.nrdoc) ) CTNUM1

/*,C.SUMA3*/yrdc_contract c'''||abm_util.data_by_nrdoc(p_nrdoc)||''' between dtdata1 and dtdata2 '||v_tip_prest_srv||'exists(select 1 from vmdb_docs d where d.cod=c.nrdoc and sysfid='||p_sysfid||')

'||v_client_flt||' '||v_filtgrp||' '||v_cond_contr||'

';

заполнение второго грида(CTNUM0, CTNUM1, CTNUM2 - nrdoc,nrdoc1,nrdoc2 документов контрактов 1407 )

for i in(select * from TMDB_REG_A a1 where nrdoc=p_nrdoc ) loop

если валюта контракта не лей, то расчет по курсу на дату документа

if upper(i.DTVALUTA0)<>'LEI' then_val_contr:='un$valuta.GETCURS('''||v_datadoc||''','''||i.DTVALUTA0||''',2)* '; if;

умножение на количество месяцев (возможные значения: 1,3,6)

casei.DTNUM4=1 then v_clcmonths:='3* ';i.DTNUM4=3 then v_clcmonths:='6* ';v_clcmonths:='1* ';case;immediate 'insert into TMDB_REG_A2(NRDOC, NRDOC1, NRDOC2,DTSC0, DTSC2, DTSC3, DTCANT0,,SUMA0, SUMA2,CTNUM0, CTNUM1, CTNUM2,DTSTR4,DTNUM4,dtdata1)'||p_nrdoc||' nrdoc

,(select nrdoc1 from TMDB_REG_A a where a.ctnum0=a1.nrdoc and a.ctnum1=a1.nrdoc1 and a.nrdoc='||i.nrdoc||') nrdoc1

, ID_TMDB_CM.NEXTVAL NRDOC2

,a1.dtsc0,a1.dtsc2,a1.dtsc3,a1.dtcant0,a1.dtstr0

,'||v_val_contr||' case when '||i.dtnum2||'=1 then a1.suma0*(100/(UN$FUNCTS.TVA(a1.DTSC0)*100+100)) else a1.suma0 end suma0

,UN$FUNCTS.TVA(a1.DTSC0)*100 suma2

,a1.nrdoc ctnum0,a1.nrdoc1 ctnum1,a1.nrdoc2 ctnum2

,a1.dtstr4,a1.dtnum4

,decode('||i.dtnum4||',2,(select LAST_DAY(ADD_MONTHS((select datamanual from vmdb_docs where cod='||p_nrdoc||'),0)) from dual),null)TMDB_reg_A1 a1a1.nrdoc='||i.ctnum0||' and a1.nrdoc1='||i.ctnum1||'

';

missing expressionmiss_expr then('В контракте '||i.ctnum0||' не указано значение поля НДС(Date cu privire la TVA)');

end;loop;;=1411calc_contr_telecom(p_nrdoc NUMBER,p_sysfid NUMBER)_contr number;_client number;_dataspec_actual date;_dataspec_prev date;_open_curs varchar2(250);_datadoc date:=abm_util.data_by_nrdoc(p_nrdoc);sys_refcursor;rec is record(number,dtdata0 date

);_rec rec;long;immediate 'select CTNUM0,dtsc0 from tmdb_reg_a where nrdoc='||p_nrdoc into v_contr,v_client;_open_curs:='select nrdoc1,DTDATA0 from tmdb_reg_a where nrdoc='||v_contr||' ';

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

execute immediate 'select max(DTDATA0) from tmdb_reg_a where nrdoc=:1trunc(DTDATA0,''mm'')<=:2'v_dataspec_actual using v_contr,trunc(abm_util.data_by_nrdoc(p_nrdoc),'mm');v_dataspec_actual is null then('Внимание!'||'В выбранном контракте дата спецификации отсутствует либо не является актуальной для данного месяца.');

end if;

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

execute immediate 'select max(DTDATA0) from tmdb_reg_a where nrdoc=:1to_char(DTDATA0,''mm.yyyy'')<:2'v_dataspec_prev using v_contr,to_char(abm_util.data_by_nrdoc(p_nrdoc),'mm.yyyy');

формируем динамически курсорwhen v_dataspec_prev is nullv_open_curs:=v_open_curs||' and dtdata0<='''||v_dataspec_actual||''' ';v_dataspec_prev=v_dataspec_actualv_open_curs:=v_open_curs||' and dtdata0='''||v_dataspec_actual||''' ';v_open_curs:=v_open_curs||' and dtdata0 between '''||v_dataspec_prev||''' and '''||v_dataspec_actual||''' ';case;cr FOR v_open_curs;cr INTO in_rec;WHEN cr%NOTFOUND;

заполнение первого грида(CTNUM0, CTNUM1, CTNUM2 - nrdoc,nrdoc1,nrdoc2 документов контрактов 1406 )immediate 'insert into TMDB_REG_A2(NRDOC, NRDOC1, NRDOC2,DTSC0, DTSC2, DTSC3, DTNUM1, DTNUM2, DTSTR1, DTSTR2,DTVALUTA0,DTVALUTA1,CTNUM0, CTNUM1, CTNUM2)'||p_nrdoc||' nrdoc

,(select nrdoc1 from TMDB_REG_A a where a.nrdoc='||p_nrdoc||' ) nrdoc1

, ID_TMDB_CM.NEXTVAL NRDOC2

,a1.dtsc0,a1.dtsc2,a1.dtsc3,'''||in_rec.DTDATA0||''' DTDATA0

,a1.DTNUM1

,(select c.dtnum2 from yrdc_contract c where c.nrdoc=a1.nrdoc ) dtnum2

,a1.DTSTR1

,(select c.clcdtnum2t from yrdc_contract c where c.nrdoc=a1.nrdoc ) dtstr2

,(select c.DTVALUTA0 from yrdc_contract c where c.nrdoc=a1.nrdoc ) DTVALUTA0

,(select c.DTVALUTA1 from yrdc_contract c where c.nrdoc=a1.nrdoc ) DTVALUTA1

,a1.nrdoc ctnum0,a1.nrdoc1 ctnum1,a1.nrdoc2 ctnum2TMDB_reg_A1 a1a1.nrdoc='||v_contr||' and a1.nrdoc1='||in_rec.nrdoc1||'loop;cr;

заполнение второго грида(CTNUM0, CTNUM1, CTNUM2, CTNUM3 - nrdoc,nrdoc1,nrdoc2,nrdoc3 документов контрактов 1406 )i in(select nrdoc,nrdoc1,nrdoc2,CTNUM0, CTNUM1, CTNUM2,dtnum2,dtsc0 from TMDB_REG_A2 where nrdoc=p_nrdoc) loopimmediate 'insert into TMDB_REG_A2D(NRDOC, NRDOC1, NRDOC2,NRDOC3

,DTSC0,DTNUM2,DTNUM4,DTSTR0,DTSTR2,DTSTR4,DTCANT0,DTCANT1,DTCANT2,SUMA2

,CTNUM0, CTNUM1, CTNUM2, CTNUM3)'||i.nrdoc||' nrdoc,'||i.nrdoc1||' nrdoc1, '||i.nrdoc2||' nrdoc2

, ID_TMDB_CM.NEXTVAL NRDOC3

,d.DTSC0,d.DTNUM2,d.DTNUM4,d.DTSTR0,d.DTSTR2,d.DTSTR4

,d.DTCANT0

,case when '||i.dtnum2||'=1 then d.DTCANT3*(100/(UN$FUNCTS.TVA('||i.DTSC0||','||v_client||')*100+100)) else d.DTCANT3 end DTCANT1

,case when '||i.dtnum2||'=1 then d.DTCANT3*(100/(UN$FUNCTS.TVA('||i.DTSC0||','||v_client||')*100+100)) else d.DTCANT3 end*0.75 DTCANT2

,UN$FUNCTS.TVA('||i.DTSC0||','||v_client||')*100 suma2

,d.nrdoc CTNUM0,d.nrdoc1 CTNUM1,d.nrdoc2 CTNUM2,d.nrdoc3 CTNUM3VMDB_reg_A1D dd.nrdoc='||i.CTNUM0||' and d.nrdoc1='||i.CTNUM1||' and d.nrdoc2='||i.CTNUM2||'

';loop;

-say(v_open_curs);msg('');;=1412calc_contr_fst(p_nrdoc NUMBER,p_sysfid NUMBER)_contr number;_dataspec_actual date;_val_contr varchar2(70):='';_clcmonths varchar2(10):='';_rec varchar2(250);rec is record(number,dtdata0 date,dtvaluta0 char(3)

,dtnum2 number --Date privitor la TVA

,dtnum4 number --Tipul srv prestat

);_rec rec;immediate 'select CTNUM0 from tmdb_reg_a where nrdoc='||p_nrdoc into v_contr;_rec:='select a.nrdoc1,a.DTDATA0,c.dtvaluta0,c.dtnum2,c.dtnum4 from tmdb_reg_a a,yrdc_contract c where a.nrdoc='||v_contr||' and c.nrdoc=a.nrdoc'; шапки документа, приносим валюту и тип НДС

execute immediate 'update tmdb_reg_a a(dtvaluta0,dtvaluta1,dtstr2,dtnum2,dtstr4,dtnum4)=

(select dtvaluta0,dtvaluta1,CLCDTNUM2T,DTNUM2,clcdtnum4t,dtnum4 from yrdc_contract c where c.nrdoc=:1)a.nrdoc=:2

' using v_contr,p_nrdoc;

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

execute immediate 'select max(DTDATA0) from tmdb_reg_a where nrdoc=:1to_char(DTDATA0,''mm.yyyy'')<=:2'v_dataspec_actual using v_contr,to_char(abm_util.data_by_nrdoc(p_nrdoc),'mm.yyyy');v_dataspec_actual is null then('Внимание!'||'В выбранном контракте дата спецификации отсутствует либо не является актуальной для данного месяца.');

end if;

формируем динамически запрос для записи

v_rec:=v_rec||' and a.dtdata0='''||v_dataspec_actual||''' ';immediate v_rec INTO in_rec;

если валюта контракта не лей, то расчет по курсу на дату документа

if upper(in_rec.DTVALUTA0)<>'LEI' then_val_contr:='un$valuta.GETCURS('''||abm_util.data_by_nrdoc(p_nrdoc)||''','''||in_rec.DTVALUTA0||''',2)* '; if;

умножение на количество месяцев (возможные значения: 1,3,6)

casein_rec.DTNUM4=1 then v_clcmonths:='3* ';in_rec.DTNUM4=3 then v_clcmonths:='6* ';v_clcmonths:='1* ';case;

заполнение первого грида(CTNUM0, CTNUM1, CTNUM2 - nrdoc,nrdoc1,nrdoc2 документов контрактов 1409 )immediate 'insert into TMDB_REG_A2(NRDOC, NRDOC1, NRDOC2,DTSC0, DTSC2, DTSC3

, DTDATA0, DTNUM0, DTSTR0 /*, DTCANT0 */, DTCANT1, DTCANT2, SUMA0, SUMA1, SUMA2, CTNUM0, CTNUM1, CTNUM2)'||p_nrdoc||' nrdoc

,(select nrdoc1 from TMDB_REG_A a where a.nrdoc='||p_nrdoc||' ) nrdoc1

, ID_TMDB_CM.NEXTVAL NRDOC2

,a1.dtsc0,a1.dtsc2,a1.dtsc3,'''||in_rec.DTDATA0||''' DTDATA0

,a1.dtnum0

,a1.dtstr0

/*,a1.DTCANT0*/,a1.DTCANT1,a1.DTCANT2

,'||v_val_contr||v_clcmonths||' case when '||in_rec.DTNUM2||'=1 then a1.suma0/(1+UN$FUNCTS.TVA(a1.DTSC0)) else a1.suma0 end suma0

,'||v_val_contr||v_clcmonths||' case when '||in_rec.DTNUM2||'=1 then a1.suma0/(1+UN$FUNCTS.TVA(a1.DTSC0)) else a1.suma0 end+nvl(a1.DTCANT0,0) suma1

,UN$FUNCTS.TVA(a1.DTSC0)*100 suma2

,a1.nrdoc ctnum0,a1.nrdoc1 ctnum1,a1.nrdoc2 ctnum2TMDB_reg_A1 a1a1.nrdoc='||v_contr||' and a1.nrdoc1='||in_rec.nrdoc1||'

';

заполнение второго грида(CTNUM0, CTNUM1, CTNUM2, CTNUM3 - nrdoc,nrdoc1,nrdoc2,nrdoc3 документов контрактов 1409 )i in(select nrdoc,nrdoc1,nrdoc2,CTNUM0, CTNUM1, CTNUM2,dtsc0 from TMDB_REG_A2 where nrdoc=p_nrdoc) loopimmediate 'insert into TMDB_REG_A2D(NRDOC, NRDOC1, NRDOC2,NRDOC3

,DTSC0,DTNUM2,DTNUM3,DTSTR2,DTSTR3,DTCANT0,DTDATA0,DTDATA1,SUMA0--,SUMA1

,CTNUM0, CTNUM1, CTNUM2, CTNUM3)'||i.nrdoc||' nrdoc,'||i.nrdoc1||' nrdoc1, '||i.nrdoc2||' nrdoc2

, ID_TMDB_CM.NEXTVAL NRDOC3

,d.DTSC0,d.DTNUM2,d.DTNUM3,d.DTSTR2,d.DTSTR3

,d.DTCANT0,d.DTDATA0

,nvl(d.DTDATA1,(select c.DTDATA2 from yrdc_contract c where c.nrdoc=d.nrdoc)) DTDATA1

,d.SUMA1

,d.nrdoc CTNUM0,d.nrdoc1 CTNUM1,d.nrdoc2 CTNUM2,d.nrdoc3 CTNUM3VMDB_reg_A1D dd.nrdoc='||i.CTNUM0||' and d.nrdoc1='||i.CTNUM1||' and d.nrdoc2='||i.CTNUM2||'

';loop;;

actioni "Sgenerirovati nomera NN" v doc.1421gnr_NN_1421(p_nrdoc number, p_nrdoc1 number)isvarchar2(2);number;_prod number;number;dtstr8, dtstr9, CTNUM0vseriaNN,vnrNN,vnr_prodVMDB_REG_Anrdoc=p_nrdocnrdoc1 = p_nrdoc1;vseriaNN is null or vnrNN is null then(lng('Indicati seria si numarul FF pentru doc. '||vnr_prod||'!','Укажите серию и номер НН для документа '||vnr_prod||'!'));

end if;from xsldx where id=1;into xsldx (id, num2, cant1, str1,num1, str0, num3)1, CTNUM0, nrdoc1, dtstr8, dtstr9

, clcdtsc0t, row_number() over (order by dtsc0) rnVMDB_REG_Anrdoc=p_nrdoc;num3 into vrnxsldx where id=1 and cant1=p_nrdoc1;xsldx x set str1=vseriaNN, num1=vnrNN+x.num3-vrnid=1 and num3>vrnvnrNN+x.num3-vrn<=9999999;

-VMDB_REG_A adtstr8 = null, dtstr9 = nullexists (select * from xsldx where id=1 and num2=a.CTNUM0);VMDB_REG_A a(dtstr8, dtstr9)=(select str1, num1 from xsldx where id=1 and num2=a.CTNUM0)exists (select * from xsldx where id=1 and num2=a.CTNUM0);from VMDB01M_VINZcod in (select CTNUM0 from VMDB_REG_A where nrdoc = p_nrdoc);into VMDB01M_VINZ (cod, PRTVA_SERIA, PRTVA_NR, PRTVA_DATA)CTNUM0, dtstr8, dtstr9, sysdate from VMDB_REG_Anrdoc = p_nrdoc;;"Заполнить из групы Servicii RD prestate populatiei" v doc.1421enter_servicii(p_nrdoc number) ISDATE;INTEGER;DATE;immediate 'delete from VMDB_REG_A where nrdoc='||p_nrdoc;immediate 'delete from VMDB_REG_A2 where nrdoc='||p_nrdoc;datamanual,sysfid INTO vDataDoc,vSysFidVMDB_DOCS S WHERE S.cod = p_nrdoc;MAX(datamanual) INTO vDataDocPrevVMDB_DOCS d, VMDB_REG_A anrdoc <> p_nrdoc AND datamanual < vDatadocSYSFID = vSysFID AND a.nrdoc = d.cod;immediate 'insert into VMDB_REG_A (NRDOC, NRDOC1, DTSC0, DTNUM2, DTNUM4, DTSTR0, DTDATA0, DTVALUTA0, DTVALUTA1,CTNUM0, CTNUM1, ctnum9)'||p_nrdoc||', ID_TMDB_CM.NEXTVAL NRDOC1, a.dtsc0, a.dtnum2, a.dtnum4,.dtstr0,

(select max(DTDATA0) from TMDB_reg_A a where a.nrdoc=d.cod) DTDATA0,.DTVALUTA0, a.DTVALUTA1,.CTNUM0,.CTNUM1,.codvmdb_docs d, VMDB_REG_A aa.nrdoc = d.codd.sysfid = 1415(a.dtsc0, a.nrdoc) not in ( select ra.dtsc0, ra.ctnum9 from VMDB_REG_A ra, vmdb_docs dra.nrdoc = d.cod and d.datamanual <= '''||vDataDoc||'''d.sysfid = 1420)exists (select nrdoc from vmdb_cmr where nrdoc=a.nrdoc)';immediate 'insert into VMDB_REG_A2 (NRDOC, NRDOC1, NRDOC2,DTSC0, DTSC2, DTSC3, DTCANT0,,SUMA0, SUMA2,CTNUM0, CTNUM1, CTNUM2,DTSTR4,DTNUM4,dtdata1, dtcant1,, suma3, suma4, suma5, ctnum9)'||p_nrdoc||', a.nrdoc1,_TMDB_CM.NEXTVAL NRDOC2, a2.DTSC0, a2.DTSC2, a2.DTSC3, a2.DTCANT0,.DTSTR0, a2.SUMA0, a2.SUMA2,a2.CTNUM0, a2.CTNUM1, a2.CTNUM2, a2.DTSTR4, a2.DTNUM4, a2.dtdata1,.dtcant1, a2.suma1, a2.suma3, a2.suma4, a2.suma5, a.ctnum9VMDB_REG_A a, VMDB_REG_A2 a2a2.nrdoc = a.ctnum9 and a.nrdoc = '||p_nrdoc||' ';;"Sgenerirovati nomera NN" v doc.1204gnr_NN_1204(p_nrdoc number, p_rrowid number)isvarchar2(2);number;_prod number;number;dtstrsc, ctstrsc, a_param1vseriaNN,vnrNN,vnr_prodVMDB_SALAR_ABSd1nrdoc=p_nrdocrrowid = p_rrowid;vseriaNN is null or vnrNN is null then(lng('Indicati seria si numarul FF pentru doc. '||vnr_prod||'!','Укажите серию и номер НН для документа '||vnr_prod||'!'));

end if;from xsldx where id=1;into xsldx (id, num2, cant1, str1,num1, str0, num3)1, a_param1, rrowid, dtstrsc, ctstrsc

, clcconta_dept, row_number() over (order by dtdep) rnVMDB_SALAR_ABSd1nrdoc=p_nrdoc;num3 into vrnxsldx where id=1 and cant1=p_rrowid;xsldx x set str1=vseriaNN, num1=vnrNN+x.num3-vrnid=1 and num3>vrnvnrNN+x.num3-vrn<=9999999;VMDB_SALAR_ABSd1 adtstrsc = null, ctstrsc = nullexists (select * from xsldx where id=1 and num2=a.a_param1);VMDB_SALAR_ABSd1 a(dtstrsc, ctstrsc)=(select str1, num1 from xsldx where id=1 and num2=a.a_param1)exists (select * from xsldx where id=1 and num2=a.a_param1);from VMDB01M_VINZcod in (select a_param1 from VMDB_SALAR_ABSd1 where nrdoc = p_nrdoc);into VMDB01M_VINZ (cod, PRTVA_SERIA, PRTVA_NR, PRTVA_DATA)a_param1, dtstrsc, ctstrsc, sysdate from VMDB_SALAR_ABSd1nrdoc = p_nrdoc;;

 заполнене 1422 документа. Все документы по услугам телекомуникаций за месяц (sysfid - 1411)

PROCEDURE enter_1422(p_nrdoc NUMBER, p_data DATE, p_client NUMBER)from VMDB_REG_A where nrdoc = p_nrdoc;from VMDB_REG_A2 where nrdoc = p_nrdoc;from VMDB_REG_A2D where nrdoc = p_nrdoc;INTO VMDB_REG_A (nrdoc, nrdoc1, dt, dtsc0, dtstr0, ctnum0, dtdata0)p_nrdoc, nrdoc, dt, dtsc0, (select c.dtstr0 from yrdc_contract c where c.nrdoc = a.ctnum0)||'/'||ctnum0, ctnum0, d.datamanualVMDB_REG_A a, VMDB_DOCS da.nrdoc = d.cod and d.sysfid = 1411d.datamanual between trunc(to_date(p_data),'mm') and p_dataa.dtsc0 = p_client;into TMDB_REG_A2(nrdoc, nrdoc1, nrdoc2, ct, dtsc0, dtsc2, dtsc3, dtdata0, dtstr2, dtstr1, CTNUM0, CTNUM1, CTNUM2)p_nrdoc nrdoc, a.nrdoc nrdoc1

, ID_TMDB_CM.NEXTVAL NRDOC2

, a2.ct, a2.dtsc0, a2.dtsc2, a2.dtsc3, a2.dtdata0, a2.dtstr2, a2.dtstr1, a2.CTNUM0, a2.CTNUM1, a2.CTNUM2VMDB_REG_A a, VMDB_REG_A2 a2, VMDB_DOCS da.nrdoc = d.cod and a.nrdoc = a2.nrdoc and d.sysfid = 1411d.datamanual between trunc(to_date(p_data),'mm') and p_dataa.dtsc0 = p_client;into VMDB_REG_A2D(nrdoc, nrdoc1, nrdoc2, nrdoc3, dtsc0, dtstr2, dtcant0, dtstr0, dtstr4,, dtcant2, dtcant3, dtcant4,, suma1, suma2, suma3, suma4, suma5)p_nrdoc nrdoc, a.nrdoc nrdoc1, (select distinct nrdoc2 from VMDB_REG_A2 where nrdoc = p_nrdoc and nrdoc1 = a.nrdoc and dtsc0 = a2.dtsc0 ) nrdoc2

, ID_TMDB_CM.NEXTVAL NRDOC3

,a2d.dtsc0, a2d.dtstr2, a2d.dtcant0, a2d.dtstr0, a2d.dtstr4, a2d.dtcant1, a2d.dtcant2,d.dtcant3, a2d.dtcant4, a2d.suma0, a2d.suma1, a2d.suma2, a2d.suma3, a2d.suma4, a2d.suma5VMDB_REG_A a, VMDB_REG_A2 a2, VMDB_REG_A2D a2d, VMDB_DOCS da.nrdoc = d.cod and a.nrdoc = a2.nrdoc and a2.nrdoc = a2d.nrdoc and a2.nrdoc2 = a2d.nrdoc2 and d.sysfid = 1411d.datamanual between trunc(to_date(p_data),'mm') and p_dataa.dtsc0 = p_client;;check_date(vdate date) is(vdate);;yrdc_contracts;

/

CREATE OR REPLACE PACKAGE BODY RADIOCOM.yrdc_contr_reps AS

/******************************************************************************: yrdc_contr_reps::Date Author Description

-- ---

.0 02.02.2010 1. Created this package body.

******************************************************************************/rep_hist_spec(p_datastart date,p_dataend date,p_contr IN LONG,SQLH OUT LONG,SQLM OUT LONG)_filtgrp varchar2(100):='';

проверка на существование параметра группы контрагентов(если не null,то существует)

if p_contr is not null then_filtgrp:=' and '||Un$g$util.ScGrCond('c.dtsc0',p_contr)||' ';if;:='select '''||p_datastart||''' datastart

,'''||p_dataend||''' dataenddual';:='select a3.contract,a3.client_cod,a3.client_name

,sum(difference) difference

,sum(sold_init) sold_init,sum(sold_final) sold_final

,case when sum(sold_final)=0 then sum(sold_init) else(sum(diff_neg)) end diff_neg

,sum(diff_pos) diff_pos(a2.*

,case when rn=1 then sum(difference) over(partition by contract) else 0 end sold_final(a1.*

, nvl(cant,0)-nvl(cant_prev,0)-case when rn=lv and chk=1 then lv_cant else 0 end difference

,case when rn=1 then 0 else decode(sign(nvl(cant,0)-nvl(cant_prev,0)),1,nvl(cant,0)-nvl(cant_prev,0),0) end diff_pos

,case when rn=1 then 0 when rn=lv and chk=1 then decode(sign(nvl(cant,0)-nvl(cant_prev,0)),-1,nvl(cant,0)-nvl(cant_prev,0),0)-lv_cantdecode(sign(nvl(cant,0)-nvl(cant_prev,0)),-1,nvl(cant,0)-nvl(cant_prev,0),0) end diff_neg

,case when rn=1 then nvl(cant,0) else 0 end sold_init(a.*

,last_value(a.rn) over ( partition by contract) lv

,last_value(a.cant) over ( partition by contract) lv_cant

,lag(a.rn) over(partition by contract order by data_spec) rn_prev

,lag(a.cant) over(partition by contract order by data_spec) cant_prev(row_number() over(partition by c.nrdoc order by a.DTDATA0) rn,c.nrdoc contract

,c.DTSC0 client_cod

,c.CLCDTSC0T client_name

,a.DTDATA0 data_spec

,(select sum(nvl(DTCANT0,0)) from VMDB_reg_A1 a1 where a.nrdoc=a1.nrdoc and a.nrdoc1=a1.nrdoc1) cant

,case when c.DTDATA2 between '''||p_datastart||''' and '''||p_dataend||''' then 1 else 0 end chkVMDB_REG_A a,yrdc_contract ca.nrdoc=c.nrdocexists(select 1 from vmdb_docs d where d.sysfid=1413 and d.cod=c.nrdoc)'''||p_datastart||''' between c.DTDATA1 and c.DTDATA2a.DTDATA0 between (select max(aa.DTDATA0) from VMDB_REG_A aa where aa.nrdoc=a.nrdoc and aa.DTDATA0<='''||p_datastart||''') and '''||p_dataend||'''

'||v_filtgrp||'

)a

)a1

)a2

)a3by a3.contract,a3.client_name,a3.client_codby a3.client_name,a3.contract';

-Imt(sqlm,re=>true);;rep_serv_radio(p_datastart date,p_dataend date,p_contr IN LONG,SQLH IN OUT LONG,SQLM IN OUT LONG)_filtgrp varchar2(100):='';long;p_contr is not null then_filtgrp:=' and '||Un$g$util.ScGrCond('client',p_contr)||' ';if;_contr_reps.rep_hist_spec(p_datastart,p_dataend,p_contr,SQLH,SQL);$SLD.make(p_datastart-1/24,'1',pfilt=>'ACD',pcont=>'2211',psc=>'39849,29522');$SLD.make(p_dataend,'2',pfilt=>'ACD',pcont=>'2211',psc=>'39849,29522');;:='Select

,(select denumirea from vms_univers where client=cod) client_name

,contract

,sum(conect_init) conect_init

,sum(diff_neg) diff_neg

,sum(diff_pos) diff_pos

,sum(conect_final) conect_final

,sum(sold_init) sold_init

,sum(dtsuma) dtsuma

,sum(ctsuma) ctsuma

,sum(sold_end) sold_end

(

,case when analitica=29522 then (select nrdoc from yrdc_contract k where '''||p_datastart||''' between dtdata1 and dtdata2 and dtnum6=2client=dtsc0 and exists(select 1 from vmdb_docs where sysfid =1413 and k.nrdoc=cod and at1 is null)) elsewhen analitica=39849 then (select nrdoc from yrdc_contract k where '''||p_datastart||''' between dtdata1 and dtdata2 and dtnum6 in (1,3)client=dtsc0 and exists(select 1 from vmdb_docs where sysfid =1413 and k.nrdoc=cod and at1 is null)) end end contract

,0 conect_init

,0 diff_neg

,0 diff_pos

,0 conect_final

,sum(sold_init) sold_init

,sum(dtsuma) dtsuma

,sum(ctsuma) ctsuma

,sum(sold_end) sold_end

(

,analitica

,client

,sold_init

,0 dtsuma

,0 ctsuma

,sold_end

(SELECT cont, sc analitica, dep client

,case when id=1 then suma end sold_init

,case when id=2 then suma end sold_endxsld where ID=1 or ID=2) a1=1 '||v_filtgrp||'all

,analitica

,client

,0 sold_init

,dtsuma

,0 ctsuma

,0 sold_end

(c.dt cont,a.ctnum0 contract,c.dtsc analitica,c.dtdep client,sum(c.suma) dtsuma,0 ctsumavmdb_cmi c, vmdb_reg_a ac.nrdoc=a.nrdoc and c.dtdep=a.dtsc0c.data between '''||p_datastart||''' and '''||p_dataend||'''exists (Select 1 from vmdb_docs where sysfid in(1410,1415)and c.nrdoc=cod)by c.dt,a.ctnum0,c.dtsc,c.dtdep)1=1 '||v_filtgrp||'all

,analitica

,client

,0 sold_init

,0 dtsuma

,sum(ctsuma) ctsuma

,0 sold_endc.ct cont

,c.ctsc analitica,c.ctdep client,c.suma ctsumavmdb_cmi cct=2211 and ctsc in(29522,39849)c.data between '''||p_datastart||''' and '''||p_dataend||''')1=1 '||v_filtgrp||'by cont,client,analitica

)a GROUP BY cont,client,analiticaall_cod client

,contract

,sold_init conect_init

,diff_neg

,diff_pos

,sold_final conect_final

,0 sold_init

,0 dtsuma

,0 ctsuma

,0 sold_end('||SQLM||') mBY client,contractby (select denumirea from vms_univers where client=cod)';;get_contracts_data return long is

END yrdc_contr_reps.

Похожие работы на - Разработка модуля автоматизированного учета контрактов услуг для предприятия I.S.'Radiocomunicatii'

 

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