upload csv to from - find file

--WEB.SHOW_DOCUMENT('http://XXX.html', '_blank'); Declare access_id Number; button_choice Integer; l_file_id Varchar2(100); l_gfm_id Integer; l_server_url VARCHAR2(255); l_url VARCHAR2(255); import boolean ; Begin --fnd_message.debug(:parameter.org_id); :control.file_id:=''; :control.ERROR_MESSAGE:=''; :control.file_name:=''; access_id := fnd_gfm.authorize(Null); fnd_profile.get('APPS_WEB_AGENT',l_server_url); l_url := RTRIM(l_server_url, '/') || '/fnd_file_upload.displayGFMform?access_id=' || to_char(access_id) || chr(38) || 'l_server_url=' || l_server_url; IF (l_url IS NULL) THEN RAISE FORM_TRIGGER_FAILURE; RETURN; END IF; fnd_utilities.open_url(l_url); fnd_message.set_name('FND', 'ATCHMT-FILE-UPLOAD-COMPLETE'); button_choice := fnd_message.question(button1 => 'YES' ,button2 => Null ,button3 => 'NO' ,default_btn => 1 ,cancel_btn => 3 ,icon => 'question'); If (button_choice = 3) Then Null; Elsif (button_choice = 1) Then -- clear_block(no_commit); --先將control block 清空 l_gfm_id := fnd_gfm.get_file_id(access_id); :control.file_id:=l_gfm_id; if :control.file_id>0 then -- import_action start go_block('IMPORT_DATA'); clear_block(no_commit); /* select INV.KSINV_PHYSICAL_TAG_DATA_S.NEXTVAL INTO :CONTROL.HEADER_ID FROM DUAL;*/ import :=get_data_fm_db; -- import_action end else fnd_message.debug('沒找到對應檔案'); end if; End If; End;