Form 6i à 10g Rapport
Fermé
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
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
A voir également:
- Form 6i à 10g Rapport
- Plan rapport de stage - Guide
- Mise en forme conditionnelle excel par rapport à une autre cellule - Guide
- Dans la présentation à télécharger, sarah avait encadré directement le titre de certaines diapositives avant d’automatiser cette mise en forme pour tout le document. sur quelles diapositives avait-elle encadré directement le titre ? ✓ - Forum Bureautique
- Impossible d'afficher le rapport de tableau croisé dynamique sur un rapport existant - Forum Bureautique
- À quoi sert le port ethernet 10g bbox - Forum Bbox Bouygues
1 réponse
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;
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;