[Forms]le Bouton d'impression avec Forms sous oracle

Version imprimable

Voir 40 message(s) de cette discussion en une page

07/12/2006, 13h23
SheikYerbouti

Citation:

Non il ne génère pas de message d'érreur mais il compile un fichier qui ne contient pas de donnes mais selement l'entete et en plus il le mèt dans le repertoire cache

Il y a surement un problème dans le report lui-même.
en tout cas, si un état est bien généré, le problème n'est sans doute pas dans la forme mais dans l'état.
Désolé mais je ne peux pas deviner ce qui se passe chez vous avec le peu d'informations que vous donnez.

Essayez cette syntaxe pour récupérer le fichier:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
DECLARE  
  repid REPORT_OBJECT;  
  v_rep VARCHAR2(100);  
  rep_status varchar2(20); 
BEGIN  
  repid := find_report_object('report4');  
  v_rep := RUN_REPORT_OBJECT(repid);  
  rep_status := report_object_status(v_rep);   
  if rep_status = 'FINISHED' then   
    message('Report Completed');   
    copy_report_object_output(v_rep,'d:/temp/local.pdf');   
    host('netscape d:/temp/local.pdf');  
  else   
    message('Error when running report.');  
  end if; 
END;

et consultez la doc sur Run_Report_Object() et les fonctions dérivées.

le bouton imprimer avec oracle

Bonjour Monsieur SheikYerbouti ;
Voici les scriptes qui se trouvent dans le formulaire et l’état.

DANS L’ETAT

INSTRUCTION SQL D'INTERROGATION

SELECT ALL AGENT.NUM_AGENT, AGENT.CODE_SERVICE,
AGENT.NOM_AGENT, AGENT.LOCALE_AGENT, AGENT.FONCTION_AGENT
FROM AGENT

DANS LE FORMULAIRE
J'ai appelé ensuite l'état agent dans le formulaire agent

Dans la palette de propriétés de l’état appelé dans le formulaire
J’ai donne les informations suivantes
GENERAL
NOM = etat_agent1
INTEGRATION ORACLE DEVELOPER
Code:

1 2 3 4 Nom de fichier = D:\Projet_kante\exemple-form\ETAT\ETAT_AGENT1.rdf Mode d'execution =Runtime Mode de communication = synchrone Bloc de données de source de données = FORMULAIRE_AGENT
ETAT
Code:

1 2 3 Type d'état cible = Fichier Format d'état cible = PDF serveur d'état = kante-rrubjmenr
J’AI INSERE UN BOUTON AVEC WHEN-MOUSE-CLICK
Dont les instruction sont les suivent:
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 declare pl_id ParamList; pl_name VARCHAR2(10) := 'templist'; repid REPORT_OBJECT; v_rep VARCHAR2(100); rep_status VARCHAR2(20); BEGIN pl_id := Get_Parameter_List(pl_name); IF Id_Null(pl_id) THEN -- creation de la liste des parametres -- 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 Message('Parameter list '||pl_name||' already exists!'); RAISE Form_Trigger_Failure; END IF; -- ajout d'un parametre a la liste -- Add_Parameter(pl_id,'p_dept',TEXT_PARAMETER,:FORMULAIRE_AGENT.NUM_AGENT); repid :=FIND_REPORT_OBJECT('ETAT_AGENT1'); v_rep := RUN_REPORT_OBJECT(repid,pl_id); SET_REPORT_OBJECT_PROPERTY(repid,REPORT_SERVER,'kante-rrubjmenr'); WHILE rep_status in ('RUNNING','OPENING_REPORT','ENQUEUED') LOOP rep_status := report_object_status(v_rep); END LOOP; IF rep_status = 'FINISHED' THEN WEB.SHOW_DOCUMENT('http://kante-rrubjmenr:8888/reports/rwservlet/getjobid'||substr(v_rep,instr(v_rep,'_',-1)+1)||'?'||'server=kante-rrubjmenr','_blank'); ELSE message('Error when running report'); END IF; WEB.SHOW_DOCUMENT('http://kante-rrubjmenr:7778'); END;
Lorsque qu’on clique sur le bouton il n’affiche pas l’état directement pour palier à se problème j’ai crée une page HTML ou j’ai insère le chemin du répertoire ou les états se trouvent puis j’ai appelé la page dans le apache d’oracle comme indique dans le code si dessus. Là il m’affiche un récapitulative globale de l’état or moi j’aimerais affiche que les donnent qui se trouve dans le formulaire.
Ma question est de savoir comment faire pour affiche uniquement les donnent qui se trouvent dans le formulaire Merci.

08/12/2006, 13h34
SheikYerbouti
C'est l'ordre Select de votre état qui n'a aucune clause where
Code:

1 2 3 4 SELECT ALL AGENT.NUM_AGENT, AGENT.CODE_SERVICE, AGENT.NOM_AGENT, AGENT.LOCALE_AGENT, AGENT.FONCTION_AGENT FROM AGENT
Je vous ai indiqué dans une de mes réponses comment filtrer avec le paramètre
Code:

1 2 3 ... WHERE (Column = :p_dept or :p_dept is null )
11/12/2006, 12h01
samba2005kanoute

le bouton imprimer
Bonjour;
J'ai essai avec la clause where mais sa pause probleme. Lorsqu'on uitlise where dans l'etat et qu'on essai d'imprimer l'etat avec le bouton, les donnes ne viennent pas, on ne voie que l'entete sans les données
Merci.
Citation:
Envoyé par SheikYerbouti

C'est l'ordre Select de votre état qui n'a aucune clause where

Code:

1 2 3 4 SELECT ALL AGENT.NUM_AGENT, AGENT.CODE_SERVICE, AGENT.NOM_AGENT, AGENT.LOCALE_AGENT, AGENT.FONCTION_AGENT FROM AGENT

Je vous ai indiqué dans une de mes réponses comment filtrer avec le paramètre

Code:

1 2 3 ... WHERE (Column = :p_dept or :p_dept is null )
11/12/2006, 12h35
SheikYerbouti

Vous avez créé le paramètre utilisateur p_dept dans l'état report ?
11/12/2006, 14h59
imedg

j'ai pas suivis toute la discussion mais

si vous voulez que l'etat s'affiche sur l'ecran
fait dans les parametres de letat au lieu de

Types d'etat cible = Fichier

Types d'etat cible = ecran
11/12/2006, 17h04
samba2005kanoute

le bouton imprimer

Bonjour;
Voici le premier script que j'ai utilise dans l'etat report mais malheuresement comme j' ai explique en haut seul l'entete etait present les donnees n'etait pas presents raison pour laquelle j'ai enleve la clause where pour voire. et la il affiche tout les donnes presents dans la tables.
[code]SELECT ALL AGENT.NUM_AGENT, AGENT.CODE_SERVICE,
AGENT.NOM_AGENT, AGENT.LOCALE_AGENT, AGENT.FONCTION_AGENT
FROM AGENT
where agent.num_agent=:param[/QUOTE]
je voudrais savoir comment faire pour afficher seulement les donnes qui se trouvent dans le formulaire.
Merci.
11/12/2006, 20h38
imedg

si les données sont enregistrées dans la base est si le parematre reçoit le numéro sa marche
car la requete interroge la base il faut vérifier que les donnée sont enregistrées
12/12/2006, 11h37
samba2005kanoute

le bouton imprimer

Les donnes sont bien enregistre dans la base la preuve est que si je lense l'etat dans report avec la clause where la requete me donne le resultat demande mais si je part dans le formulaire et que j'utilise le bouton imprimer ces l'entete qui s'affiche.
Merci

Citation:

Envoyé par imedg

si les données sont enregistrées dans la base est si le parematre reçoit le numéro sa marche
car la requete interroge la base il faut vérifier que les donnée sont enregistrées
02/01/2007, 16h21
samba2005kanoute

Bonjour ;
Je tiens à remercier toute la communauté developpez.com particulier SHEIKYERBOUTI ET IMEDG pour l’aide apporte. J’ai pus résoudre concernant le bouton imprimer. Pour ce
et pour aider les autres voici la procédure complète :

Citation:

DECLARE
report_id REPORT_OBJECT;
report_job_id VARCHAR2(200);
rep_status VARCHAR2(200);
JOB_NUMBER number;
server_name VARCHAR2(200) := 'credits';

BEGIN

/* Check to see if forms application is WEB deployed */

IF get_application_property(user_interface) = 'WEB' THEN
report_id:= FIND_REPORT_OBJECT('TEST');

/* Set Report parameters given WEB deployment */
SET_REPORT_OBJECT_PROPERTY(report_id,REPORT_SERVER , server_name);
SET_REPORT_OBJECT_PROPERTY(report_id,REPORT_DESTYPE,CACHE);

/* DESFORMAT could be HTML, HTMLCSS or PDF here*/
SET_REPORT_OBJECT_PROPERTY(report_id,REPORT_DESFORMAT,'HTML');

/* Run the report */
report_job_id := RUN_REPORT_OBJECT(report_id);

/* Check the report status */
rep_status:=REPORT_OBJECT_STATUS(report_job_id);
WHILE rep_status IN ('RUNNING','OPENING_REPORT','ENQUEUED')
LOOP
rep_status := report_object_status(report_job_id);
END LOOP;
IF rep_status='FINISHED' THEN
message('REPORT WAS CORRECTLY RUN');

/* Display the report output in the client browser */
JOB_NUMBER := length(server_name) + 2;
WEB.SHOW_DOCUMENT ('/reports/rwservlet/getjobid'||substr(report_job_id,JOB_NUMBER)||'?server=' || server_name ,'_BLANK');

/* If report has failed display message to user */
ELSE
message('REPORT FAILED WITH STATUS: '||rep_status);
END IF;
ELSE

/* Else if forms application is Client-Server deployed */
/* Set Report parameters given Client-Server deployment */

report_id:= FIND_REPORT_OBJECT('TEST');
SET_REPORT_OBJECT_PROPERTY(report_id,REPORT_SERVER ,'');

/* Report to be executed via Reports Background Engine, not the 'new' Reports Multi-Tier Server */
/* Destype SCREEN or PREVIEW can be used here */

SET_REPORT_OBJECT_PROPERTY(report_id,REPORT_DESTYPE,SCREEN);

/* Run the report */

report_job_id := RUN_REPORT_OBJECT(report_id);

END IF;
END;

Voici le chemin

Citation:

http://www.developpez.net/forums/showthread.php?t=28134

Voir 40 message(s) de cette discussion en une page