Form_通过Custom.pll新增菜单项（案例）

 1 PROCEDURE event (event_name VARCHAR2)  IS
 2    form_name VARCHAR2 (30) := NAME_IN (‘system.current_form‘);
 3     block_name VARCHAR2 (30) := NAME_IN (‘system.cursor_block‘);
 4 BEGIN
 5     IF event_name = ‘CALL_CUSTOM_EVENT‘ THEN
 6         IF (form_name = ‘APXINWKB‘ AND block_name = ‘INV_SUM_FOLDER‘)    THEN
 7             DECLARE
 8                 l_group_name VARCHAR2 (60) := block_name || ‘_MULTI‘;
 9                 l_rec_group_id recordgroup;
10                 l_curr_rec_num NUMBER;
11                 l_num_records NUMBER;
12                 l_invoice_id_str VARCHAR2 (2000);
13                 l_curr_record NUMBER;
14                 l_success BOOLEAN;
15                 l_request_number NUMBER;
16                 e_check_error_exception exception;
17             BEGIN
18                 -- 获取选中的invoice
19                 l_rec_group_id := FIND_GROUP (block_name || ‘_MULTI‘);
20                 IF NOT ID_NULL (l_rec_group_id) THEN
21                     l_num_records := GET_GROUP_ROW_COUNT (FIND_GROUP (l_group_name));
22                     IF l_num_records > 0 THEN
23                         l_invoice_id_str := NULL;
24                         -- 对选中的记录进行循环
25                         FOR i IN 1 .. l_num_records LOOP
26                             l_curr_rec_num := GET_GROUP_NUMBER_CELL (l_group_name || ‘.REC_NUM‘, i);
27                             GO_RECORD (l_curr_rec_num);
28                             -- 组合invoice id作为请求参数
29                             IF l_invoice_id_str IS NULL THEN
30                                 l_invoice_id_str := NAME_IN (block_name || ‘.INVOICE_ID‘);
31                             ELSE
32                                 l_invoice_id_str := l_invoice_id_str || ‘,‘ || NAME_IN (block_name || ‘.INVOICE_ID‘);
33                             END IF;
34                         END LOOP;
35                     IF l_invoice_id_str IS NOT NULL THEN
36                         l_invoice_id_str := ‘(‘ || l_invoice_id_str || ‘)‘;
37                         -- 加载模板
38                         l_success := fnd_request.add_layout (‘XXBG‘, ‘XXBGREQP‘,‘zh‘,‘CN‘,‘PDF‘);
39                         IF l_success THEN
40                             -- 设置请求的业务实体
41                             fnd_request.set_org_id (l_org_id);
42                             -- 提交打印付款申请请求
43                             l_request_number := fnd_request.submit_request (‘XXBG‘, ‘XXBGREQP‘,   ‘‘,‘‘,FALSE,l_invoice_id_str,CHR (0),‘‘,‘‘);
44                             IF l_request_number = 0 THEN
45                                 fnd_message.retrieve;
46                                 fnd_message.error;
47                             ELSE
48                                 IF app_form.quietcommit THEN
49                                     fnd_message.set_name (‘SQLGL‘,‘GL_REQUEST_SUBMITTED‘);
50                                     fnd_message.set_TOKEN (‘REQUEST_ID‘,TO_CHAR (l_request_number),FALSE);
51                                     fnd_message.show;
52                                 END IF;
53                                 -- 弹出请求窗口
54                                 fnd_function.execute (function_name => ‘FND_FNDRSRUN‘,open_flag => ‘Y‘,session_flag => ‘Y‘,other_params => ‘DODT_REQ_ID="‘|| TO_CHAR (l_request_number)|| ‘"‘);
55                             END IF;
56                         END IF;
57                     END IF;
58                 GO_RECORD (l_curr_record);
59             ELSE
60                 fnd_message.set_name (‘‘, ‘Please select one record‘);
61                 RAISE e_check_error_exception;
62             END IF;
63         END IF;
64              EXCEPTION  WHEN e_check_error_exception THEN
65              fnd_message.error;
66              RAISE form_trigger_failure;
67         END;
68    END IF;
69 END IF;
70 END event;