1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18
|
declare
pl_id ParamList;
BEGIN
if :Nom_Block.cpt_table is Null then
message('saisie un enregistrement ou Interoger la base ');
else
pl_id := Get_Parameter_List('donnéestemp');
IF NOT Id_Null(pl_id) THEN
Destroy_Parameter_List( pl_id );
END IF;
pl_id := Create_Parameter_List('donnéestemp');
Add_Parameter(pl_id,'P_cpt_table',TEXT_PARAMETER,::block.cpt_table);
add_parameter(pl_id, 'PARAMFORM', TEXT_PARAMETER, 'NO');
Run_Product(REPORTS, 'nom_report.rep', SYNCHRONOUS, RUNTIME,FILESYSTEM, pl_id, NULL);
end if;
END; |
Partager