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 : Sélectionner tout - Visualiser dans une fenêtre à part
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!!