上传界面：
选择按钮：
declare
  access_id number;
  l_server_url varchar2(100);
  l_parameters varchar2(100);
  button_choice integer;
  l_file_id varchar2(100);
  l_gfm_id  integer;
BEGIN
   
  access_id := fnd_gfm.authorize(null);
   
    ('APPS_WEB_AGENT', l_server_url);
       
  l_parameters :='access_id='||access_id||' l_server_url='||l_server_url;
       
  ute(FUNCTION_NAME=>'FND_FNDFLUPL',
                            OPEN_FLAG => 'Y',
                      SESSION_FLAG => 'Y',
                      OTHER_PARAMS =>l_parameters);
    -- Display a modal message for user to indicate file upload
    -- is completed.
    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,
bank文件
                icon=> 'question');
    IF ( button_choice = 3 ) THEN
    null;
    ELSIF ( button_choice = 1 ) THEN
        l_file_id := '';
        l_gfm_id := _file_id(access_id);
       
        :MAIN.GFM_ID := _file_id(access_id);
        IF l_gfm_id IS NOT NULL THEN
       
                select decode(instr(file_name,'/'),0,file_name,
                              substr(file_name,instr(file_name,'/')+1))
                into  l_file_id
                from  fnd_lobs
                where  file_id =  l_gfm_id;
                if l_file_id is not null then
                  :main.filename := l_file_id;
                 
                  select CUX_CE_val
                  into :main.working_id
                  from dual;
                 
                end if;
      END IF;
    END IF;
END; 

版权声明：本站内容均来自互联网，仅供演示用，请勿用于商业和其他非法用途。如果侵犯了您的权益请与我们联系QQ:729038198，我们将在24小时内删除。