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 37 38 39 40 41 42 43 44 45 46 47 48 49
| DECLARE
p_desType number default CACHE;
lMachine varchar2(200);
lRepObj report_object;
lRepServer varchar2(100);
lRepJobId varchar2(100);
lJobId varchar2(100);
lRepStatus varchar2(30);
pl_id ParamList;
pl_name VARCHAR2(10) := 'param';
LN$Valeur integer ;
Begin
pl_id := Get_Parameter_List(pl_name);
IF NOT Id_Null(pl_id) THEN
destroy_parameter_list(pl_name);
pl_id := Create_Parameter_List(pl_name);
IF Id_Null(pl_id) THEN
Message('Error creating parameter list '||pl_name);
RAISE Form_Trigger_Failure;
END IF;
ELSE
pl_id := Create_Parameter_List(pl_name);
END IF;
add_parameter(pl_id,'code_cl1',TEXT_PARAMETER,:code_cl1); -- (1)
--code_cl1 entre cotes est nom de paramètre de l'état "report"
--:code_cl1 est la valeur sur le canvas
add_parameter(pl_id,'code_cl2',TEXT_PARAMETER,:code_cl2); -- (2)
-- si tu as +ieurs paramètres tu les ajoutes tous de la même manière
-- si tu na pas de paramètres, tu enlèves (1) et (2)
add_parameter(pl_id,'paramform',TEXT_PARAMETER,'no');
lRepServer := 'rep_etat'; -- nom de report_server
-- appel de l'état
lRepObj:=find_report_object('report1'); --nom de l'état dans la forme
lRepJobId := run_report_object( lRepObj,pl_id );
If p_desType = cache then
lJobId := substr(lRepJobId,length(lRepServer)+2);
If lJobId != 0 then
lRepStatus := REPORT_OBJECT_STATUS(lRepJobId);
If lRepStatus = 'FINISHED' then WEB.SHOW_DOCUMENT('http://localhost:8889/reports/rwservlet/getjobid'||lJobId||'?server='||lRepServer,'_blank');
End if;
End if;
End if;
End; |
Partager