Dollerok/P8-Panels
1
0
Fork 0
forked from CITKParus/P8-Panels
Code Issues Pull Requests Projects Releases Wiki Activity

БД: исправлена ошибка определения типа данных выходных CLOB-параметров в PG

Browse Source
This commit is contained in:
Mikhail Chechnev 2024-02-14 13:03:10 +03:00
parent 9c492cfd8b
commit a90071afe8
1 changed files with 5 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
db/PKG_P8PANELS_BASE.pck
View File

@ -698,12 +698,14 @@ create or replace package body PKG_P8PANELS_BASE as
SARG_NAME := PKG_CONTPRMLOC.FIRST_(RCONTAINER => ARGS_VALS); SARG_NAME := PKG_CONTPRMLOC.FIRST_(RCONTAINER => ARGS_VALS);
while (SARG_NAME is not null) while (SARG_NAME is not null)
loop loop
/* Считываем очередной параметр */ /* Считываем значение параметра */
RARG_VAL := PKG_CONTPRMLOC.GET(RCONTAINER => ARGS_VALS, SNAME => SARG_NAME); RARG_VAL := PKG_CONTPRMLOC.GET(RCONTAINER => ARGS_VALS, SNAME => SARG_NAME);
/* Считываем описание параметра */
RARG := PKG_OBJECT_DESC.FETCH_ARGUMENT(RARGUMENTS => ARGS, SARGUMENT_NAME => SARG_NAME);
/* Если это выходной параметр */ /* Если это выходной параметр */
if (RARG_VAL.IN_OUT in (PKG_STD.PARAM_TYPE_IN_OUT, PKG_STD.PARAM_TYPE_OUT)) then if (RARG.IN_OUT in (PKG_STD.PARAM_TYPE_IN_OUT, PKG_STD.PARAM_TYPE_OUT)) then
/* Сформируем для него значение в зависимости от его типа */ /* Сформируем для него значение в зависимости от его типа */
case RARG_VAL.DATA_TYPE case RARG.DATA_TYPE
/* Строка */ /* Строка */
when PKG_STD.DATA_TYPE_STR then when PKG_STD.DATA_TYPE_STR then
RRESP_ARGUMENT_VALUE := PKG_XMAKE.VALUE(ICURSOR => XRESP, RRESP_ARGUMENT_VALUE := PKG_XMAKE.VALUE(ICURSOR => XRESP,