Form_通过FND_FNDFLUPL标准功能上传CSV控件(案例)
2014-06-08 Created By BaoXinjian
一、总结
1. 上传资料
(1).通过调用function<FND_FNDFLUPL>,打开上传文件页面;
(2).从表fnd_lob_access和fnd_lobs中取出文件名放在form画面上;
2. 对dbms_lob中的二进制文件进行处理
(1).通过dbms_lob.converttoclob将二进制文件转换成字符文件;
(2).通过dbms_lob.instr和dbms_lob.substr在字符文件获取字符串记录;
3. 对获取资料放入到临时表,并显示在画面上
(1).通过instr和substr获字符串记录中的字段;
(2).并将字段赋值到集合或表中;
二、步骤
1. 上传资料
1 DECLARE
3 access_id NUMBER;
5 l_server_url VARCHAR2(100);
7 l_parameters VARCHAR2(100);
9 button_choice INTEGER;
11 l_file_id VARCHAR2(100);
13 l_gfm_id INTEGER;
15 BEGIN
17 access_id := fnd_gfm.authorize(NULL);
19 fnd_profile.get('APPS_WEB_AGENT', l_server_url);
21 l_parameters := 'access_id=' || access_id || ' l_server_url=' || l_server_url;
23 fnd_function.EXECUTE(function_name => 'FND_FNDFLUPL',
25 open_flag => 'Y',
27 session_flag => 'Y',
29 other_params => l_parameters);
31 -- Display a modal message for user to indicate file upload
33 -- is completed.
35 fnd_message.set_name('FND', 'ATCHMT-FILE-UPLOAD-COMPLETE');
37 button_choice := fnd_message.question(button1 => 'YES',
39 button2 => NULL,
41 button3 => 'NO',
43 default_btn => 1,
45 cancel_btn => 3,
46 icon => 'question');
48
49 IF (button_choice = 3) THEN
51 NULL;
53 ELSIF (button_choice = 1) THEN
55 l_file_id := '';
57 l_gfm_id := fnd_gfm.get_file_id(access_id);
59 :main.gfm_id := fnd_gfm.get_file_id(access_id);
61 IF l_gfm_id IS NOT NULL THEN
63 SELECT DECODE(INSTR(file_name, '/'),0,file_name,SUBSTR(file_name, INSTR(file_name, '/') + 1))
65 INTO l_file_id
67 FROM fnd_lobs
69 WHERE file_id = l_gfm_id;
71 IF l_file_id IS NOT NULL THEN
73 :main.filename := l_file_id;
75 SELECT cux_ce_stmt_s.NEXTVAL INTO :main.working_id FROM DUAL;
77 END IF;
79 END IF;
81 END IF;
83 END IF;
2. 对dbms_lob中的二进制文件进行处理
1 DECLARE
3 c_data CLOB;
5 l_data BLOB;
7 l_dest_offset INTEGER := 1;
9 l_scr_offset INTEGER := 1;
11 l_lang_context INTEGER := DBMS_LOB.default_lang_ctx;
13 l_warn INTEGER;
15 n_offset INTEGER;
17 n_clob_size INTEGER;
19 n_pos INTEGER;
21 v_buf VARCHAR2(4000);
23 BEGIN
25 DBMS_LOB.createtemporary(c_data, FALSE, DBMS_LOB.SESSION);
27 SELECT file_data INTO l_data FROM fnd_lobs WHERE file_id = 1501905;
29 DBMS_LOB.converttoclob(dest_lob => c_data,
31 src_blob => l_data,
33 amount => DBMS_LOB.lobmaxsize,
35 dest_offset => l_dest_offset,
37 src_offset => l_scr_offset,
39 blob_csid => NLS_CHARSET_ID('UTF8'),
41 lang_context => l_lang_context,
43 warning => l_warn);
45 n_offset := 1;
47 LOOP
49 n_pos := DBMS_LOB.INSTR(lob_loc => c_data,
51 pattern => CHR(10),
53 offset => n_offset,
55 nth => 1);
57 IF NVL(n_pos, 0) = 0 THEN
59 n_pos := n_clob_size + 1;
61 END IF;
63 v_buf := DBMS_LOB.SUBSTR(lob_loc => c_data,
65 amount => n_pos - n_offset,
67 offset => n_offset);
69 n_offset := n_pos + 1;
71 EXIT WHEN n_pos > n_clob_size;
73 END LOOP;
75 IF dbms_lob.istemporary(l_data) > 0 THEN
77 dbms_lob.freetemporary(l_data);
79 END IF;
81 IF dbms_lob.istemporary(c_data) > 0 THEN
83 dbms_lob.freetemporary(c_data);
85 END IF;
87 END IF;
3. 对获取资料放入到临时表,并显示在画面上
1 DECLARE
3 v_buf VARCHAR2(1000);
5 v_field VARCHAR2(1000);
7 n_delimiter_pos INTEGER;
9 BEGIN
11 v_buf := 'Return Authorization Reference,Adjustment Type,Vendor Number,Site Code- Pay To,Site Code- Ship To,Part Number,Quantity,Subinventory';
13 LOOP
15 v_field := NULL;
17 n_delimiter_pos := INSTR(v_buf, ',');
19 IF n_delimiter_pos > 0 THEN
21 v_field := LTRIM(RTRIM(SUBSTR(v_buf, 1, n_delimiter_pos - 1)));
23 v_buf := SUBSTR(v_buf, n_delimiter_pos + 1);
25 ELSIF LTRIM(RTRIM(v_buf)) IS NOT NULL THEN
27 v_field := LTRIM(RTRIM(v_buf));
29 v_buf := NULL;
31 END IF;
33 IF (v_buf IS NULL) THEN
35 EXIT;
37 END IF;
39 END LOOP;
41 END;
Thanks and Regards
ERP技术讨论群: 288307890
技术交流,技术讨论,欢迎加入
Technology Blog Created By Oracle ERP - 鲍新建
技术交流,技术讨论,欢迎加入
Technology Blog Created By Oracle ERP - 鲍新建