forked from CITKParus/P8-ExchangeService
Поправил косяки, просто чтобы не забыть при переносе сохраняю в этот репо
This commit is contained in:
Mikhail Chechnev
parent
1661b36faf
commit
bd0959f7cc
272
db/P_EXSSERVICEFN_BASE_CHECK.prc
Normal file
272
db/P_EXSSERVICEFN_BASE_CHECK.prc
Normal file
@ -0,0 +1,272 @@
|
|||||||
|
create or replace procedure P_EXSSERVICEFN_BASE_CHECK
|
||||||
|
(
|
||||||
|
SMODE in varchar2, -- Тип действия ('I' - Добавление, 'U' - Исправление, 'D' - Удаление)
|
||||||
|
REXSSERVICEFN in EXSSERVICEFN%rowtype -- Запись функции сервиса обмена
|
||||||
|
)
|
||||||
|
as
|
||||||
|
/* Процедура проверки значений, которые зависят от типа сервиса обмена*/
|
||||||
|
procedure CHECK_SRV_TYPE
|
||||||
|
(
|
||||||
|
NPRN in number, -- Регистрационный номер сервиса обмена
|
||||||
|
NRETRY_SCHEDULE in number, -- Расписание повторного исполнения
|
||||||
|
NRETRY_STEP in number, -- Шаг расписания повторного исполнения
|
||||||
|
NRETRY_ATTEMPTS in number -- Количество попыток повторного исполнения
|
||||||
|
)
|
||||||
|
as
|
||||||
|
NSRV_TYPE EXSSERVICE.SRV_TYPE%type; -- Тип сервиса обмена
|
||||||
|
begin
|
||||||
|
/* Определение типа сериса обмена */
|
||||||
|
begin
|
||||||
|
select SRV_TYPE into NSRV_TYPE from EXSSERVICE where RN = NPRN;
|
||||||
|
exception
|
||||||
|
when NO_DATA_FOUND then
|
||||||
|
PKG_MSG.RECORD_NOT_FOUND(NDOCUMENT => NPRN, SUNIT_TABLE => 'EXSService');
|
||||||
|
end;
|
||||||
|
/* Если тип сервиса обмена "Получение сообщений" */
|
||||||
|
if (NSRV_TYPE = 1) then
|
||||||
|
/* Проверка расписания повторного исполнения */
|
||||||
|
if (NRETRY_SCHEDULE != 0) then
|
||||||
|
P_EXCEPTION(0,
|
||||||
|
'Недопустимое значение расписания повторного исполнения функции сервиса обмена.');
|
||||||
|
end if;
|
||||||
|
/* Проверка шага расписания повторного исполнения */
|
||||||
|
if (NRETRY_STEP != 0) then
|
||||||
|
P_EXCEPTION(0,
|
||||||
|
'Недопустимое значение шага расписания повторного исполнения функции сервиса обмена.');
|
||||||
|
end if;
|
||||||
|
/* Проверка количества попыток повторного исполнения */
|
||||||
|
if (NRETRY_ATTEMPTS != 0) then
|
||||||
|
P_EXCEPTION(0,
|
||||||
|
'Недопустимое значение количества попыток повторного исполнения функции сервиса обмена.');
|
||||||
|
end if;
|
||||||
|
end if;
|
||||||
|
end CHECK_SRV_TYPE;
|
||||||
|
|
||||||
|
/* Процедура проверки значений, которые зависят от расписания повторного исполнения функции сервиса обмена */
|
||||||
|
procedure CHECK_RETRY_SCHEDULE
|
||||||
|
(
|
||||||
|
NRETRY_SCHEDULE in number, -- Расписание повторного исполнения
|
||||||
|
NRETRY_STEP in number, -- Шаг расписания повторного исполнения
|
||||||
|
NRETRY_ATTEMPTS in number -- Количество попыток повторного исполнения
|
||||||
|
)
|
||||||
|
as
|
||||||
|
begin
|
||||||
|
/* Если расписание повторного исполнения не определено */
|
||||||
|
if (NRETRY_SCHEDULE = 0) then
|
||||||
|
/* Проверка шага расписания повторного исполнения */
|
||||||
|
if (NRETRY_STEP != 0) then
|
||||||
|
P_EXCEPTION(0,
|
||||||
|
'Недопустимое значение шага расписания повторного исполнения функции сервиса обмена.');
|
||||||
|
end if;
|
||||||
|
/* Проверка количества попыток повторного исполнения */
|
||||||
|
if (NRETRY_ATTEMPTS != 0) then
|
||||||
|
P_EXCEPTION(0,
|
||||||
|
'Недопустимое значение количества попыток повторного исполнения функции сервиса обмена.');
|
||||||
|
end if;
|
||||||
|
end if;
|
||||||
|
end CHECK_RETRY_SCHEDULE;
|
||||||
|
|
||||||
|
/* Проверка функций типа "Начало сеанса" и "Завершение сеанса" */
|
||||||
|
procedure CHECK_FN_TYPE
|
||||||
|
(
|
||||||
|
NRN in number, -- Регистрационный номер проверяемой записи
|
||||||
|
NPRN in number, -- Регистрационный номер сервиса обмена
|
||||||
|
NFN_TYPE in number -- Типовая функция
|
||||||
|
)
|
||||||
|
as
|
||||||
|
REXSSERVICEFN EXSSERVICEFN%rowtype; -- Текущая запись
|
||||||
|
NCOUNT PKG_STD.TNUMBER; -- Количество найденных записей
|
||||||
|
begin
|
||||||
|
/* Считаем текущую запись */
|
||||||
|
REXSSERVICEFN := GET_EXSSERVICEFN_ID(NFLAG_SMART => 1, NRN => NRN);
|
||||||
|
/* Если типовая функция "Начало сеанса" или "Завершение сеанса" */
|
||||||
|
if (NFN_TYPE in (1, 2)) then
|
||||||
|
/* Определение количества записей */
|
||||||
|
select count(*)
|
||||||
|
into NCOUNT
|
||||||
|
from EXSSERVICEFN
|
||||||
|
where PRN = NPRN
|
||||||
|
and FN_TYPE = NFN_TYPE
|
||||||
|
and ((NRN is null) or ((NRN is not null) and (RN <> NRN)));
|
||||||
|
/* Если есть записи с такой же типовой функцией */
|
||||||
|
if (NCOUNT > 0) then
|
||||||
|
P_EXCEPTION(0,
|
||||||
|
'Сервис не может содержать более одной функции начала/завершения сеанса.');
|
||||||
|
end if;
|
||||||
|
end if;
|
||||||
|
/* Если данная функция была началом сеанса, а теперь нет */
|
||||||
|
if ((REXSSERVICEFN.FN_TYPE = 1) and (NFN_TYPE <> 1)) then
|
||||||
|
/* Проверка на существование функций с установленным признаком "Требуется аутентификация" */
|
||||||
|
select count(*)
|
||||||
|
into NCOUNT
|
||||||
|
from EXSSERVICEFN
|
||||||
|
where PRN = NPRN
|
||||||
|
and AUTH_ONLY = 1
|
||||||
|
and ((NRN is not null and RN != NRN) or (NRN is null));
|
||||||
|
/* Если есть функции с установленным признаком "Требуется аутентификация" */
|
||||||
|
if (NCOUNT > 0) then
|
||||||
|
P_EXCEPTION(0,
|
||||||
|
'Изменение типа функции "Начало сеанаса" невозможно, т.к. имеются функции с установленным признаком "Требуется аутентификация".');
|
||||||
|
end if;
|
||||||
|
end if;
|
||||||
|
end CHECK_FN_TYPE;
|
||||||
|
|
||||||
|
/* Проверка активности сервера приложений */
|
||||||
|
procedure CHECK_ACTIVE_APPSRV
|
||||||
|
(
|
||||||
|
SMODE in varchar2 -- Тип действия ('I' - Добавление, 'U' - Исправление, 'D' - Удаление)
|
||||||
|
)
|
||||||
|
as
|
||||||
|
SACTION PKG_STD.TSTRING; -- Наименование действия
|
||||||
|
begin
|
||||||
|
/* Если сервер приложений активен - не допускать добавление, исправление, удаление функции сервиса обмена */
|
||||||
|
if (PKG_EXS.UTL_APPSRV_IS_ACTIVE) then
|
||||||
|
/* Тип действия */
|
||||||
|
case SMODE
|
||||||
|
/* Добавление */
|
||||||
|
when 'I' then
|
||||||
|
SACTION := 'добавление';
|
||||||
|
/* Исправление */
|
||||||
|
when 'U' then
|
||||||
|
SACTION := 'исправление';
|
||||||
|
/* Удаление */
|
||||||
|
when 'D' then
|
||||||
|
SACTION := 'удаление';
|
||||||
|
/* Иначе */
|
||||||
|
else
|
||||||
|
return;
|
||||||
|
end case;
|
||||||
|
P_EXCEPTION(0,
|
||||||
|
'Сервер приложений активен, ' || SACTION || ' функции сервиса обмена недопустимо.');
|
||||||
|
end if;
|
||||||
|
end CHECK_ACTIVE_APPSRV;
|
||||||
|
|
||||||
|
/* Проверка списка адресов E-Mail для уведомления об ошибках обработки */
|
||||||
|
procedure CHECK_ERR_NTF_MAIL
|
||||||
|
(
|
||||||
|
SERR_NTF_MAIL in varchar2 -- Список адресов E-Mail для уведомления
|
||||||
|
)
|
||||||
|
as
|
||||||
|
SSEQSYMB PKG_STD.TSTRING; -- Символ-разделитель элементов списка
|
||||||
|
SREG_EXP_EMAIL PKG_STD.TSTRING; -- Маска для регулярного выражения
|
||||||
|
NCOUNT_SEQSYMB PKG_STD.TNUMBER; -- Количество вхождений символа группирования перечислений в строке списка адресов E-Mail
|
||||||
|
NREG PKG_STD.TNUMBER; -- Результат выполнения REGEXP_LIKE
|
||||||
|
begin
|
||||||
|
/* Определение символа-разделителя элементов списка */
|
||||||
|
SSEQSYMB := ',';
|
||||||
|
/* Определение количества вхождений символа группирования перечислений в строке списка адресов E-Mail */
|
||||||
|
NCOUNT_SEQSYMB := LENGTH(SERR_NTF_MAIL) - LENGTH(replace(SERR_NTF_MAIL, SSEQSYMB));
|
||||||
|
/* Определение маски */
|
||||||
|
SREG_EXP_EMAIL := '^((([a-z0-9_-]+\.)*[a-z0-9_-]+@[a-z0-9_-]+(\.[a-z0-9_-]+)*\.[a-z]+)\' || SSEQSYMB || '?){' ||
|
||||||
|
TO_CHAR(NCOUNT_SEQSYMB + 1) || '}[a-z]*$';
|
||||||
|
/* Проверка списка адресов */
|
||||||
|
begin
|
||||||
|
select 1 into NREG from DUAL where REGEXP_LIKE(LOWER(SERR_NTF_MAIL), SREG_EXP_EMAIL);
|
||||||
|
exception
|
||||||
|
when NO_DATA_FOUND then
|
||||||
|
P_EXCEPTION(0,
|
||||||
|
'Неверный формат поля "Список адресов E-Mail для уведомления об ошибках обработки".' || CR ||
|
||||||
|
'Пример: example@mail.ru' || CR ||
|
||||||
|
'Для указания нескольких адресов следует использовать запятую в качестве разделителя (без пробелов).' || CR ||
|
||||||
|
'Пример: example@mail.ru' || SSEQSYMB || 'e-mail@gmail.com');
|
||||||
|
end;
|
||||||
|
end CHECK_ERR_NTF_MAIL;
|
||||||
|
|
||||||
|
/* Проверка признака "Требуется аутентификация" */
|
||||||
|
procedure CHECK_AUTH_ONLY
|
||||||
|
(
|
||||||
|
NRN in number, -- Регистрационный номер
|
||||||
|
NPRN in number, -- Регистрационный номер сервиса обмена
|
||||||
|
NAUTH_ONLY in number -- Требуется аутентификация
|
||||||
|
)
|
||||||
|
as
|
||||||
|
NCOUNT PKG_STD.TNUMBER; -- Количество функций с типом "Начало сеанса"
|
||||||
|
begin
|
||||||
|
/* Если указан признак */
|
||||||
|
if (NAUTH_ONLY = 1) then
|
||||||
|
/* Проверка на существование функции с типом "Начало сеанса" */
|
||||||
|
select count(*)
|
||||||
|
into NCOUNT
|
||||||
|
from EXSSERVICEFN
|
||||||
|
where PRN = NPRN
|
||||||
|
and FN_TYPE = 1
|
||||||
|
and ((NRN is not null and RN != NRN) or (NRN is null));
|
||||||
|
/* Если нет функций с типом "Начало сеанса" */
|
||||||
|
if (NCOUNT < 1) then
|
||||||
|
P_EXCEPTION(0,
|
||||||
|
'Для установки признака "Требуется аутентификация" необходима функция с типом "Начало сеанса".');
|
||||||
|
end if;
|
||||||
|
end if;
|
||||||
|
end CHECK_AUTH_ONLY;
|
||||||
|
|
||||||
|
/* Проверка признака "Требуется аутентификация" при удалении */
|
||||||
|
procedure CHECK_AUTH_ONLY_DELETE
|
||||||
|
(
|
||||||
|
NRN in number, -- Регистрационный номер
|
||||||
|
NPRN in number, -- Регистрационный номер сервиса обмена
|
||||||
|
NFN_TYPE in number -- Типовая функция
|
||||||
|
)
|
||||||
|
as
|
||||||
|
NCOUNT PKG_STD.TNUMBER; -- Количество функций с установленным признаком "Требуется аутентификация"
|
||||||
|
begin
|
||||||
|
/* Если удаляемая функция "Начало сеанса" */
|
||||||
|
if (NFN_TYPE = 1) then
|
||||||
|
/* Проверка на существование функций с установленным признаком "Требуется аутентификация" */
|
||||||
|
select count(*)
|
||||||
|
into NCOUNT
|
||||||
|
from EXSSERVICEFN
|
||||||
|
where PRN = NPRN
|
||||||
|
and AUTH_ONLY = 1
|
||||||
|
and ((NRN is not null and RN != NRN) or (NRN is null));
|
||||||
|
/* Если есть функции с установленным признаком "Требуется аутентификация" */
|
||||||
|
if (NCOUNT > 0) then
|
||||||
|
P_EXCEPTION(0,
|
||||||
|
'Удаление функции с типом "Начало сеанаса" невозможно, т.к. имеются функции с установленным признаком "Требуется аутентификация".');
|
||||||
|
end if;
|
||||||
|
end if;
|
||||||
|
end CHECK_AUTH_ONLY_DELETE;
|
||||||
|
|
||||||
|
begin
|
||||||
|
/* Проверка активности сервера приложений */
|
||||||
|
CHECK_ACTIVE_APPSRV(SMODE => SMODE);
|
||||||
|
/* Тип действия */
|
||||||
|
case SMODE
|
||||||
|
/* Добавление */
|
||||||
|
when 'I' then
|
||||||
|
/* Проверка значений функции сервиса обмена */
|
||||||
|
CHECK_SRV_TYPE(NPRN => REXSSERVICEFN.PRN,
|
||||||
|
NRETRY_SCHEDULE => REXSSERVICEFN.RETRY_SCHEDULE,
|
||||||
|
NRETRY_STEP => REXSSERVICEFN.RETRY_STEP,
|
||||||
|
NRETRY_ATTEMPTS => REXSSERVICEFN.RETRY_ATTEMPTS);
|
||||||
|
CHECK_RETRY_SCHEDULE(NRETRY_SCHEDULE => REXSSERVICEFN.RETRY_SCHEDULE,
|
||||||
|
NRETRY_STEP => REXSSERVICEFN.RETRY_STEP,
|
||||||
|
NRETRY_ATTEMPTS => REXSSERVICEFN.RETRY_ATTEMPTS);
|
||||||
|
CHECK_FN_TYPE(NRN => REXSSERVICEFN.RN, NPRN => REXSSERVICEFN.PRN, NFN_TYPE => REXSSERVICEFN.FN_TYPE);
|
||||||
|
if (REXSSERVICEFN.ERR_NTF_MAIL is not null) then
|
||||||
|
CHECK_ERR_NTF_MAIL(SERR_NTF_MAIL => REXSSERVICEFN.ERR_NTF_MAIL);
|
||||||
|
end if;
|
||||||
|
CHECK_AUTH_ONLY(NRN => REXSSERVICEFN.RN, NPRN => REXSSERVICEFN.PRN, NAUTH_ONLY => REXSSERVICEFN.AUTH_ONLY);
|
||||||
|
/* Исправление */
|
||||||
|
when 'U' then
|
||||||
|
/* Проверка значений функции сервиса обмена */
|
||||||
|
CHECK_SRV_TYPE(NPRN => REXSSERVICEFN.PRN,
|
||||||
|
NRETRY_SCHEDULE => REXSSERVICEFN.RETRY_SCHEDULE,
|
||||||
|
NRETRY_STEP => REXSSERVICEFN.RETRY_STEP,
|
||||||
|
NRETRY_ATTEMPTS => REXSSERVICEFN.RETRY_ATTEMPTS);
|
||||||
|
CHECK_RETRY_SCHEDULE(NRETRY_SCHEDULE => REXSSERVICEFN.RETRY_SCHEDULE,
|
||||||
|
NRETRY_STEP => REXSSERVICEFN.RETRY_STEP,
|
||||||
|
NRETRY_ATTEMPTS => REXSSERVICEFN.RETRY_ATTEMPTS);
|
||||||
|
CHECK_FN_TYPE(NRN => REXSSERVICEFN.RN, NPRN => REXSSERVICEFN.PRN, NFN_TYPE => REXSSERVICEFN.FN_TYPE);
|
||||||
|
if (REXSSERVICEFN.ERR_NTF_MAIL is not null) then
|
||||||
|
CHECK_ERR_NTF_MAIL(SERR_NTF_MAIL => REXSSERVICEFN.ERR_NTF_MAIL);
|
||||||
|
end if;
|
||||||
|
CHECK_AUTH_ONLY(NRN => REXSSERVICEFN.RN, NPRN => REXSSERVICEFN.PRN, NAUTH_ONLY => REXSSERVICEFN.AUTH_ONLY);
|
||||||
|
/* Удаление */
|
||||||
|
when 'D' then
|
||||||
|
/* Проверка значений функции сервиса обмена */
|
||||||
|
CHECK_AUTH_ONLY_DELETE(NRN => REXSSERVICEFN.RN, NPRN => REXSSERVICEFN.PRN, NFN_TYPE => REXSSERVICEFN.FN_TYPE);
|
||||||
|
else
|
||||||
|
P_EXCEPTION(0, 'Тип действия определен неверно.');
|
||||||
|
end case;
|
||||||
|
end;
|
||||||
|
/
|
||||||
154
db/P_EXSSERVICEFN_FORM_EDIT.prc
Normal file
154
db/P_EXSSERVICEFN_FORM_EDIT.prc
Normal file
@ -0,0 +1,154 @@
|
|||||||
|
create or replace procedure P_EXSSERVICEFN_FORM_EDIT
|
||||||
|
(
|
||||||
|
NMODE in number, -- Тип действия (0 - Добавление, 1 - Исправление)
|
||||||
|
NFIRST in out number, -- Признак первого обращения (0 - вторичное обращение, 1 - первое обращение)
|
||||||
|
SATTRIB in varchar2, -- Измененный атрибут
|
||||||
|
NRN in number, -- Регистрационный номер функции сервиса обмена
|
||||||
|
NPRN in number, -- Регистрационный номер сервиса обмена
|
||||||
|
NFN_TYPE in number, -- Типовая функция
|
||||||
|
NRETRY_SCHEDULE in out number, -- Расписание повторного исполнения
|
||||||
|
NRETRY_STEP in out number, -- Шаг расписания повторного исполнения
|
||||||
|
NRETRY_ATTEMPTS in out number, -- Количество попыток повторного исполнения
|
||||||
|
NERR_NTF_SIGN in out number, -- Уведомлять об ошибках обработки
|
||||||
|
SERR_NTF_MAIL in out varchar2, -- Список адресов E-Mail для уведомления об ошибках обработки
|
||||||
|
NAUTH_ONLY in out number, -- Требуется аутентификация
|
||||||
|
NE_RETRY_SCHEDULE in out number, -- Признак доступности элемента "NRETRY_SCHEDULE" (Расписание повторного исполнения)
|
||||||
|
NE_RETRY_STEP in out number, -- Признак доступности элемента "NRETRY_STEP" (Шаг расписания повторного исполнения)
|
||||||
|
NE_RETRY_ATTEMPTS in out number, -- Признак доступности элемента "NRETRY_ATTEMPTS" (Количество попыток повторного исполнения)
|
||||||
|
NE_ERR_NTF_MAIL in out number, -- Признак доступности элемента "SERR_NTF_MAIL" (Список адресов E-Mail для уведомления об ошибках обработки)
|
||||||
|
NE_AUTH_ONLY in out number, -- Признак доступности элемента "NAUTH_ONLY" (Требуется аутентификация)
|
||||||
|
NR_ERR_NTF_MAIL in out number -- Признак обязательности элемента "SERR_NTF_MAIL" (Список адресов E-Mail для уведомления об ошибках обработки)
|
||||||
|
)
|
||||||
|
as
|
||||||
|
/* Установка доступности и значений элементов, которые зависят от типа сервиса обмена */
|
||||||
|
procedure SET_ENABLED_SRV_TYPE
|
||||||
|
as
|
||||||
|
NSRV_TYPE EXSSERVICE.SRV_TYPE%type; -- Тип сервиса обмена
|
||||||
|
begin
|
||||||
|
/* Определение типа сервиса обмена */
|
||||||
|
begin
|
||||||
|
select SRV_TYPE into NSRV_TYPE from EXSSERVICE where RN = NPRN;
|
||||||
|
exception
|
||||||
|
when NO_DATA_FOUND then
|
||||||
|
PKG_MSG.RECORD_NOT_FOUND(NFLAG_SMART => 0, NDOCUMENT => NPRN, SUNIT_TABLE => 'EXSService');
|
||||||
|
end;
|
||||||
|
/* Если тип сервиса обмена "Получение сообщений" */
|
||||||
|
if (NSRV_TYPE = 1) then
|
||||||
|
NE_RETRY_SCHEDULE := 0;
|
||||||
|
NE_RETRY_STEP := 0;
|
||||||
|
NE_RETRY_ATTEMPTS := 0;
|
||||||
|
NRETRY_SCHEDULE := 0;
|
||||||
|
NRETRY_STEP := 0;
|
||||||
|
NRETRY_ATTEMPTS := 0;
|
||||||
|
else
|
||||||
|
NE_RETRY_SCHEDULE := 1;
|
||||||
|
NE_RETRY_STEP := 1;
|
||||||
|
NE_RETRY_ATTEMPTS := 1;
|
||||||
|
end if;
|
||||||
|
end SET_ENABLED_SRV_TYPE;
|
||||||
|
|
||||||
|
/* Установка доступности и значений элементов, которые зависят от расписания повторного исполнения функции сервиса обмена */
|
||||||
|
procedure SET_ENABLED_RETRY_SCHEDULE
|
||||||
|
as
|
||||||
|
begin
|
||||||
|
/* Если расписание повторного исполнения не определено */
|
||||||
|
if (NRETRY_SCHEDULE = 0) then
|
||||||
|
NE_RETRY_STEP := 0;
|
||||||
|
NE_RETRY_ATTEMPTS := 0;
|
||||||
|
NRETRY_STEP := 0;
|
||||||
|
NRETRY_ATTEMPTS := 0;
|
||||||
|
else
|
||||||
|
NE_RETRY_STEP := 1;
|
||||||
|
NE_RETRY_ATTEMPTS := 1;
|
||||||
|
end if;
|
||||||
|
end SET_ENABLED_RETRY_SCHEDULE;
|
||||||
|
|
||||||
|
/* Установка доступности, обязательности и значений элементов, которые зависят от признака "Уведомлять об ошибках обработки" */
|
||||||
|
procedure SET_ENABLED_ERR_NTF_SIGN
|
||||||
|
as
|
||||||
|
begin
|
||||||
|
/* Если не установлен признак "Уведомлять об ошибках обработки" */
|
||||||
|
if (NERR_NTF_SIGN = 0) then
|
||||||
|
NE_ERR_NTF_MAIL := 0;
|
||||||
|
NR_ERR_NTF_MAIL := 0;
|
||||||
|
SERR_NTF_MAIL := null;
|
||||||
|
else
|
||||||
|
NE_ERR_NTF_MAIL := 1;
|
||||||
|
NR_ERR_NTF_MAIL := 1;
|
||||||
|
/* Если значение не задано */
|
||||||
|
if (SERR_NTF_MAIL is null) then
|
||||||
|
/* Определение списка адресов из заголовка */
|
||||||
|
begin
|
||||||
|
select T.UNAVLBL_NTF_MAIL into SERR_NTF_MAIL from EXSSERVICE T where T.RN = NPRN;
|
||||||
|
exception
|
||||||
|
when NO_DATA_FOUND then
|
||||||
|
PKG_MSG.RECORD_NOT_FOUND(NDOCUMENT => NPRN, SUNIT_TABLE => 'EXSService');
|
||||||
|
end;
|
||||||
|
end if;
|
||||||
|
end if;
|
||||||
|
end SET_ENABLED_ERR_NTF_SIGN;
|
||||||
|
|
||||||
|
/* Установка доступности и значения элемента "Требуется аутентификация" */
|
||||||
|
procedure SET_ENABLED_AUTH_ONLY
|
||||||
|
as
|
||||||
|
NCOUNT PKG_STD.TNUMBER; -- Количество функций с типом "Начало сеанса"
|
||||||
|
begin
|
||||||
|
/* Проверка на существование функции с типом "Начало сеанса" */
|
||||||
|
select count(*)
|
||||||
|
into NCOUNT
|
||||||
|
from EXSSERVICEFN
|
||||||
|
where PRN = NPRN
|
||||||
|
and FN_TYPE = 1;
|
||||||
|
/* Если есть функции с типом "Начало сеанса" */
|
||||||
|
if (NCOUNT > 0) then
|
||||||
|
/* Если функция "Обмен данными" */
|
||||||
|
if (NFN_TYPE = 0) then
|
||||||
|
NE_AUTH_ONLY := 1;
|
||||||
|
/* Если функция "Начало сеанса" */
|
||||||
|
elsif (NFN_TYPE = 1) then
|
||||||
|
NAUTH_ONLY := 0;
|
||||||
|
NE_AUTH_ONLY := 0;
|
||||||
|
/* Если функция "Завершение сеанса" */
|
||||||
|
elsif (NFN_TYPE = 2) then
|
||||||
|
NAUTH_ONLY := 1;
|
||||||
|
NE_AUTH_ONLY := 0;
|
||||||
|
end if;
|
||||||
|
/* Если нет функций с типом "Начало сеанса" */
|
||||||
|
else
|
||||||
|
NAUTH_ONLY := 0;
|
||||||
|
NE_AUTH_ONLY := 0;
|
||||||
|
end if;
|
||||||
|
end;
|
||||||
|
|
||||||
|
begin
|
||||||
|
/* Если это первое обращение */
|
||||||
|
if (NFIRST = 1) then
|
||||||
|
/* Установка доступности и значений элементов */
|
||||||
|
SET_ENABLED_SRV_TYPE;
|
||||||
|
SET_ENABLED_RETRY_SCHEDULE;
|
||||||
|
SET_ENABLED_ERR_NTF_SIGN;
|
||||||
|
SET_ENABLED_AUTH_ONLY;
|
||||||
|
end if;
|
||||||
|
|
||||||
|
/* Если измененный атрибут "NRETRY_SCHEDULE" (Расписание повторного исполнения) */
|
||||||
|
if (SATTRIB = 'NRETRY_SCHEDULE') then
|
||||||
|
/* Установка доступности и значений элементов */
|
||||||
|
SET_ENABLED_RETRY_SCHEDULE;
|
||||||
|
end if;
|
||||||
|
|
||||||
|
/* Если измененный атрибут "NERR_NTF_SIGN" (Уведомлять об ошибках обработки) или это первое обращение */
|
||||||
|
if (SATTRIB = 'NERR_NTF_SIGN') then
|
||||||
|
/* Установка доступности, обязательности и значений элементов */
|
||||||
|
SET_ENABLED_ERR_NTF_SIGN;
|
||||||
|
end if;
|
||||||
|
|
||||||
|
/* Если измененный атрибут "NFN_TYPE" (Типовая функция) */
|
||||||
|
if (SATTRIB = 'NFN_TYPE') then
|
||||||
|
/* Установка доступности и значения элемента "Требуется аутентификация" */
|
||||||
|
SET_ENABLED_AUTH_ONLY;
|
||||||
|
end if;
|
||||||
|
|
||||||
|
/* Установка признака первого обращение */
|
||||||
|
NFIRST := 0;
|
||||||
|
end;
|
||||||
|
/
|
||||||
Loading…
x
Reference in New Issue
Block a user