CftClub.ru

[zh]

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

[code]
if p_message = 'DEFAULT' then
...
P_BUS_PROC := nvl(P_BUS_PROC, ::[BUS_PROCESS]([code]='ГАШЕНИЕ'));
[/code]

..так вот, задача - переопределить параметр P_BUS_PROC.

пытался вызвать из простой из тела PLPCALL'ом, выпало в ошибку. у списочной есть один IN OUT параметр. ошибка: невозможно вернуть значение такого то параметра.

второй вариант вызова - PLPCALL через клиент-скрипт:

[code]
Runtime.PlayEx("<% PLPCALL %VAR%.V_FOLDER := %THIS%.[DISTR_DEBT_DOG](%PARAM%.P_DATE => %PARAM%.P_DATE, %PARAM%.P_DATE_VAL => %PARAM%.P_DATE, %PARAM%.P_BUS_PROC => %VAR%.V_BUS_PROC) %>")
[/code]

..однако так же потерпел неудачу. в клиент-скрипте

[code]msgbox(Object1.Text)[/code]
(Object1 = V_BUS_PROC) значение возвращает, поднимается экранная форма вызываемой операции, но отладка все в том же
[code]
if p_message = 'DEFAULT' then
...
stdio.put_line_pipe('##P_BUS_PROC = ' || P_BUS_PROC,'TST_DEP');
P_BUS_PROC := nvl(P_BUS_PROC, ::[BUS_PROCESS]([code]='ГАШЕНИЕ'));
[/code]

выдает пустое значение.

Может кто поделиться идеями реализации?
ЦФТ посоветовало сделать копию дистрибутива и поддерживать его до конца дней. Идея, сами понимаете, не фонтан.
_________________
Всего должно быть в меру.

[Alexsey]

Вся разница в том, что в простой THIS это ссылка на экземпляр, а в списочной это таблица. Вам необходимо %THIS% представить операции как таблицу. ну и секция Default при вызове PLPCALL выдает пустое значение, значение появится в секции VALIDATE при P_INFO = '%PLPCALL%'. Иначе придется писать

[vtar]

http://www.cftclub.ru/viewtopic.php?t=1414&highlight=%F1%EF%E8%F1%EE%F7%ED

[zh]