1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36
|
PROCEDURE run_rapp (action in varchar2) IS
pl_id paramlist;
p1 varchar2(30);
BEGIN
pl_id := CREATE_PARAMETER_LIST('tempdata');
if action = 'C' then
ADD_PARAMETER(pl_id,'PAR_DERN_AV',TEXT_PARAMETER,'Oui');
ADD_PARAMETER(pl_id,'DESTYPE',TEXT_PARAMETER,'MAIL');
ADD_PARAMETER(pl_id,'DESFORMAT',TEXT_PARAMETER,'PDF');
else
ADD_PARAMETER(pl_id,'PAR_DERN_AV',TEXT_PARAMETER,'Non');
ADD_PARAMETER(pl_id,'DESTYPE',TEXT_PARAMETER,'PREVIEW');
end if;
if action = 'A' then
ADD_PARAMETER(pl_id,'PARAMFORM',TEXT_PARAMETER,'YES');
else
ADD_PARAMETER(pl_id,'PARAMFORM',TEXT_PARAMETER,'NO');
end if;
p1 := :proj.projnon;
ADD_PARAMETER(pl_id,'PAR_P_PROJ_NO',TEXT_PARAMETER,p1);
ADD_PARAMETER(pl_id,'PAR_P_TRI',TEXT_PARAMETER,'Descendant');
RUN_PRODUCT(REPORTS,'gda2700r',SYNCHRONOUS,RUNTIME,
FILESYSTEM,pl_id,null);
-- RUN_PRODUCT(REPORTS,'GDA2700R',ASYNCHRONOUS,RUNTIME,
-- FILESYSTEM,pl_id,NULL);
DESTROY_PARAMETER_LIST(pl_id);
redisplay;
END; |
Partager