Form_通过FND_FNDFLUPL标准功能上传CSV控件（案例）

 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;

 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;

 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;