Form 6i à 10g Rapport

Question

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...???
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?

Merci beaucoup!

Mike

Mike · Answer

Voici ce que j'avais


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;

Form 6i à 10g Rapport

1 réponse

Votre réponse

Discussions similaires

Newsletters