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

**samba2005kanoute** · 30/11/2006, 15h52

Salut;
Je suis un nouveau sous oracle, j'ai eu dans problème avec le bouton imprime sous forms. Je demande votre aide pour résoudre mon problème.
Voila je m'explique:
1 - J'ai crée le formulaire Agent avec Forms
2 - Puis Etat Agent avec report
3 - Puis J'ai appele l'etat Agent dans le Formulaire Agent
4 - Dans le palette propriete de l'etat appel dans le formulaire j'ai donne les valeurs suivente:
GENERAL
Nom = le nom de l'etat
INTEGRATION ORACLE DEVELOPER
Nom de fichie = le nom de l'etat
Mode d'execution = batch
Mode de communication = syschrone
ETAT
Types d'etat cible = Fichier
5- J'ai creer un bouton que j'ai nome imprimer puis le script suivant:

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
declare
repid REPORT_OBJECT;
v_rep VARCHAR2(100);
rep_status VARCHAR2(20);
BEGIN
repid :=FIND_REPORT_OBJECT('ETAT_AGENT1');
v_rep := RUN_REPORT_OBJECT(repid);
SET_REPORT_OBJECT_PROPERTY(repid,REPORT_SERVER,'nom de l'ordinateur');
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://nom de l'ordinateur:8888/reports/rwservlet/getjobid'||substr(v_rep,instr(v_rep,'_',-1)+1)||'?'||'server=nom de l'ordinateur','_blank');
ELSE
message('Error when running report');
END IF;
END;

Les problèmes rencontres sont les suivant :
L’etat ne s’affiche pas
Il n’imprime pas les donnes qui se trouvent dans le formulaire mais il imprime tout les donnes se trouvant dans la table
Merci Avance.

**SheikYerbouti** · 01/12/2006, 07h16

Il n’imprime pas les donnes qui se trouvent dans le formulaire mais il imprime tout les donnes se trouvant dans la table

comment constatez-vous ce résultat si 'létat ne s'affiche pas ?
en tous cas, si vous devez restreindre la sélection dans l'état il faut une clause where. si la forme n'envoi aucun paramètre à l'état, celui-ci va utiliser la clause définie lors de la création de l'état.

**SheikYerbouti** · 01/12/2006, 10h02

L’etat ne s’affiche pas

un message d'erreur ?

**SheikYerbouti** · 01/12/2006, 11h29

Merci d'arrêter de poursuivre vos questions par MP et de continuer dans cette enfilade.

**samba2005kanoute** · 01/12/2006, 12h11

Donc si on utilise la clause where dans le report comment faire amener ses donnent dans le forms

**SheikYerbouti** · 01/12/2006, 12h21

Par exemple, votre état affiche la liste des employes (table EMP) avec le select suivant :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Select empno, ename, deptno from EMP

vous souhaitez maintenant filtrer par département (DEPTNO). vous crééz donc un paramètre utilisateur dans l'état (p_dept) et vous utilisez ce paramètre dans votre select de l'état

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
 
Select empno, ename, deptno from EMP
where ( deptno = :p_dept or :p_dept is null )

maintenant, dans la form, il faut transmettre ce paramètre vis une parameter list

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

lRepJobId := run_report_object(report_id => lRepObj,paramlist_id => p_param_list);

voir les instructions Create_Parameter_List() et Add_Parameter_List()

**samba2005kanoute** · 04/12/2006, 13h42

Excuse moi vous pouvez m’explique un peut plus en profondeur comme j’ai dit en haut je suis un nouveau en oracle. J’ai pas compris Create_Parameter_List() et Add_Parameter_List() ni le

lRepJobId := run_report_object(report_id => lRepObj,paramlist_id => p_param_list);
Si vous pouvez me dire comment doit si prendre.
Merci

Envoyé par SheikYerbouti

Par exemple, votre état affiche la liste des employes (table EMP) avec le select suivant :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Select empno, ename, deptno from EMP

vous souhaitez maintenant filtrer par département (DEPTNO). vous crééz donc un paramètre utilisateur dans l'état (p_dept) et vous utilisez ce paramètre dans votre select de l'état

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
 
Select empno, ename, deptno from EMP
where ( deptno = :p_dept or :p_dept is null )

maintenant, dans la form, il faut transmettre ce paramètre vis une parameter list

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

lRepJobId := run_report_object(report_id => lRepObj,paramlist_id => p_param_list);

voir les instructions Create_Parameter_List() et Add_Parameter_List()

**SheikYerbouti** · 04/12/2006, 13h52

Une liste de paramètre permet de créer une liste contenant 0 a x paramétres. ces paramètres peuvent être transmis entre formes mais aussi entre une form et un état reports

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
DECLARE 
  pl_id ParamList; 
  pl_name VARCHAR2(10) := 'templist'; 
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,:BLK.DEPTNO); 
END;

ici on créé une liste a laquelle on ajoute le paramètre (valeur de l'item DEPTNO du block BLK) qui sera transmis au report (p_dept)

**samba2005kanoute** · 04/12/2006, 14h13

Je suis vraiment désole, je n'arrive pas inscrire le script qui permet de crée le paramètre dans forms ni à transmettre ce paramètre vis une parameter list
Aidez moi S.P.V

Envoyé par samba2005kanoute

Excuse moi vous pouvez m’explique un peut plus en profondeur comme j’ai dit en haut je suis un nouveau en oracle. J’ai pas compris Create_Parameter_List() et Add_Parameter_List() ni le

lRepJobId := run_report_object(report_id => lRepObj,paramlist_id => p_param_list);
Si vous pouvez me dire comment doit si prendre.
Merci

**SheikYerbouti** · 04/12/2006, 14h47

Il est clair qui faut créer la liste et son paramètre avant d'appeler le report
c'est à dire avant l'instruction Run_Report_Object().

de plus, il faut indiquer cette liste de paramètre dans l'instruction Run_Report_Object():

Rempacer:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

v_rep := RUN_REPORT_OBJECT(repid);

par:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

v_rep := RUN_REPORT_OBJECT(repid,pl_id);

**samba2005kanoute** · 06/12/2006, 13h55

Bonjour;
Malgre le fait que j'ai ajoute le nouveau script le bouton ne marche pas. J'aimerais si possible que vous regardiez le scripet si dessous.

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
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;

MERCI

**SheikYerbouti** · 06/12/2006, 14h21

Cela serait sympa que voue utilisiez les balises code pour encadrer le code (le sigle # dans le fenêtre des icônes d'édition).
Il est toujours difficile de répondre à une affirmation du type "ça ne marche pas". ce code génère t-il un message d'erreur ?

**samba2005kanoute** · 06/12/2006, 15h48

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

**orafrance** · 06/12/2006, 15h56

j'ai ajouté les balises CODE dans tes messages pour que tu vois comment faire... merci d'y penser à l'avenir

**samba2005kanoute** · 06/12/2006, 16h01

Donc vous propose quoi pour que je puisse ma sortir de cette probleme
Merci

Envoyé par Fred_D

j'ai ajouté les balises CODE dans tes messages pour que tu vois comment faire... merci d'y penser à l'avenir

**SheikYerbouti** · 06/12/2006, 16h02

Envoyé par samba2005kanoute

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

Donc l'état est bien exécuté. Il s'agirait donc plutôt d'un problème dans l'état lui-même.

**SheikYerbouti** · 06/12/2006, 16h11

Assuez-vous également que vous générez bien un état au format PDF

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
SET_REPORT_OBJECT_PROPERTY(rep_id, REPORT_DESTYPE, CACHE);  	
SET_REPORT_OBJECT_PROPERTY(rep_id, REPORT_DESFORMAT, 'PDF');

**samba2005kanoute** · 07/12/2006, 12h38

Bonjour Monsieur;
J'aimerais vraiment que vous m'aidiez enfin que je puisse termine avec mon projet de fin d'étude. Ces ce bouton qui bloc tout mon projet. Encore une fois dis moi ce que je dois faire pour résoudre cet problème.
Merci.

**SheikYerbouti** · 07/12/2006, 13h14

Envoyé par samba2005kanoute

Bonjour Monsieur;
J'aimerais vraiment que vous m'aidiez enfin que je puisse termine avec mon projet de fin d'étude. Ces ce bouton qui bloc tout mon projet. Encore une fois dis moi ce que je dois faire pour résoudre cet problème.
Merci.

et qu'est-ce que vous croyez que je fais depuis tout ce temps ?!