Discussion :

[strompakha]

Bonjour,

Pourriez vous SVP via un bout de code m'illustrer l'utilisation de PFACTION avec paramform = YES pour passer les paramètres de Report lors de l'exécution?
Mon problème aujourd'hui c'est que dès saisi des paramètres dans la grille affichée, et après submit, le Report m'envoi l'erreur :


Error 500--Internal Server Error



From RFC 2068 Hypertext Transfer Protocol -- HTTP/1.1:

10.5.1 500 Internal Server Error

The server encountered an unexpected condition which prevented it from fulfilling the request.


J'ai vu sur des forums que la solution est dans l'utilisation de PFACTION mais je n'ai pas pigé comment l'intégrer dans mon code.
Si vous avez des exemples.

Merci.

[strompakha]

Voici mon code qui permet de lancer mes Reports.
Je voudrais l'adapter pour y ajouter la partie de soumission des paramètres après saisie. Pour le moment ca me donne l'erreur citée en haut:
Merci.

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
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
PROCEDURE prc_lancer_report(p_etat varchar2,p_server varchar2) IS
x_listpara   paramlist;
   rep_id       report_object;
   rep_status   VARCHAR2 (30);
   v_rep        VARCHAR2 (100);
   x_url        VARCHAR2 (60);
   x_server     VARCHAR2 (60);
   x_format     VARCHAR2 (10);
   x_where      VARCHAR2 (500);
   w_date1      DATE;
   w_date2      DATE;
   w_d1         VARCHAR2 (10);
   w_d2         VARCHAR2 (10);
 
BEGIN
--prc_msg_alert_txt(:A.A,'','I',false);
   rep_id      := FIND_REPORT_OBJECT (p_etat);
   DEFAULT_VALUE ('REPREP', 'GLOBAL.REPORTSERVER');
   x_server    := p_server;
   x_url       := '/reports/rwservlet/getjobid';
   x_listpara  := GET_PARAMETER_LIST ('parame');
   IF NOT (ID_NULL (x_listpara) ) THEN
      DESTROY_PARAMETER_LIST ('parame');
   END IF;
   x_listpara  := CREATE_PARAMETER_LIST ('parame');
   ADD_PARAMETER (x_listpara, 'PARAMFORM', text_parameter, 'YES');
   ADD_PARAMETER (x_listpara, 'oracle_Shutdown', text_parameter, 'YES');
 
   --ADD_PARAMETER (x_listpara, 'PR1', text_parameter, to_char(:BLD_NB_PARAM.PER_DU,'dd/mm/yyyy'));
   --ADD_PARAMETER (x_listpara, 'PR2', text_parameter, to_char(:BLD_NB_PARAM.PER_AU,'dd/mm/yyyy'));
   SET_REPORT_OBJECT_PROPERTY (rep_id, report_execution_mode, batch);
   SET_REPORT_OBJECT_PROPERTY (rep_id, report_comm_mode, synchronous);
   SET_REPORT_OBJECT_PROPERTY (rep_id, report_destype, CACHE);
   SET_REPORT_OBJECT_PROPERTY(rep_id,REPORT_DESFORMAT,'PDF');
   SET_REPORT_OBJECT_PROPERTY (rep_id, report_server, x_server);
   --
 
   v_rep       := RUN_REPORT_OBJECT (rep_id, x_listpara);
   rep_status  := REPORT_OBJECT_STATUS (v_rep);
--alerte('## '||rep_status);
   WHILE rep_status IN ('RUNNING', 'OPENING_REPORT', 'ENQUEUED')
   LOOP
      rep_status  := REPORT_OBJECT_STATUS (v_rep);
   END LOOP;
 
   IF rep_status = 'FINISHED' THEN
      MESSAGE ('Execution Achevée de l''Etat');
   ELSE
      MESSAGE ('Erreur Lors de l''Execution de l''Etat');
   END IF;
   IF GET_APPLICATION_PROPERTY (user_interface) = 'WEB' THEN
      -- Web.show_document(x_url||substr(v_rep, instr(v_rep,'_',-1)+1)||'?server='||x_server);
          web.show_document ('/reports/rwservlet/getjobid' || SUBSTR (v_rep, INSTR (v_rep, '_', -1) + 1) || '?' || 'SERVER=' || x_server, '_blank');
 
   END IF;
END;
 
      rep_status  := REPORT_OBJECT_STATUS (v_rep);
   END LOOP;
 
   IF rep_status = 'FINISHED' THEN
      MESSAGE ('Execution Achevée de l''Etat');
   ELSE
      MESSAGE ('Erreur Lors de l''Execution de l''Etat');
   END IF;
   IF GET_APPLICATION_PROPERTY (user_interface) = 'WEB' THEN
      -- Web.show_document(x_url||substr(v_rep, instr(v_rep,'_',-1)+1)||'?server='||x_server);
      web.show_document ('/reports/rwservlet/getjobid' || SUBSTR (v_rep, INSTR (v_rep, '_', -1) + 1) || '?' || 'SERVER=' || x_server, '_blank');
   END IF;
END;