Appel de Rapport .rdf sous 10g [Résolu]

[Marcel Chabot]

Bonjour,
Je fais migrer une application fait en 6i pour la mettre en 10g
Mon problème est que j'utilisais Run_Product avec liste de paramètres sur 6i.
Je dois utiliser Run_Report_Object sur 10G
J'ai essayé plein de choses que j'ai trouver sur des forums et ça fonctionne pas...???

FRM-41219 Impossible de retrouver le rapport : ID non valise
FRM-40738 L'argument 1 de la procédure interne RUN_REPORT_OBJECT doit être renseigné.

J'ai essayé aussi http://www.developpez.net/forums/sho..._report_object.

Ce que je veux faire c'est en appuyant sur un bouton j'appelle un rapport existant .rdf qui es dans un répertoire.

***Pourriez-vous m'aider à partir du bon pied?

Voila ce que j'avais avant:

Code :

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;

Merci beaucoup!!

[Garuda]

Tu dois creer on objet "rapport" dans ton module (par exemple "toto")
pius faire

Code :

1
2
3
4
5
6
7
8
9
10
11
 
...
    rep_id REPORT_OBJECT; 
BEGIN
rep_id := find_report_object('toto');
-- maj des proriétés du rapport (exemples)
set_report_object_property(rep_id,REPORT_DESTYPE,SCREEN);
set_report_object_property(rep_id,REPORT_DESNAME,'');
set_report_object_property(rep_id,REPORT_DESFORMAT,'')
....
v_rep:=run_report_object(rep_id,'ma_liste_de_parametres')