oracle form上传excel或图片及XML Publisher实现动态打印图片.docx

摘要开发工具:oracle 10g form ,developer系统版本:oracle EBS R12I作者：胡瑞昌时间：2011-08-02邮箱：hrc122@163.com第一章oracle form上传EXCEL1.实现目标点击form上的按钮,直接上传EXCEL到form栏位.2.实现方式和代码Form 中关键代码Buttom ：CONTROL.SELECT_IMPORT_DATA(WHEN-BUTTON-PRESSED);说明：代码(lv_fields:=)后面参数为form界面显示的栏位.并和CVS文件栏位顺序对应.注意本地系统字符集和服务器系统字符集转换.skip_rows constant number := 1;的作用是删除excel第一行题头PACKAGE BODY CONTROL ISPROCEDURE SELECT_IMPORT_DATA(p_event IN VARCHAR2)ISlv_fields varchar2(4000);BEGINIF p_event = WHEN-BUTTON-PRESSED THENlv_fields:= QUOTATION_TYPE,ITEM_NUMBER,SALEMAN,SALE_GROUP,SALE_PHONE,SALE_MAIL,SALE_FAX;knd_import_pkg.import_file(v_block = PO_QUOTATION_TEMP,v_field = lv_fields,v_col_separate = ,,v_row_separate =ENTER);END IF;END SELECT_IMPORT_DATA;End;PACKAGE knd_import_pkg IS--字符集转换to_charset constant varchar2(120) := AMERICAN_THE NETHERLANDS.UTF8;from_charset constant varchar2(120) := SIMPLIFIED CHINESE_CHINA.ZHS16GBK;skip_rows constant number := 1;--打开文件导入界面Function open_file return number;--导入文件并将文件展示在forms界面procedure import_file(v_block varchar2, v_field varchar2, v_col_separate varchar2, v_row_separate varchar2);END;PACKAGE BODY knd_import_pkg ISFunction open_file return number isaccess_id NUMBER;l_server_url VARCHAR2(20000);l_url VARCHAR2(20000);l_gfm_id NUMBER;button_choice NUMBER;beginGet Process ID access_id := fnd_gfm.authorize(null);Get Web Server Addressfnd_profile.get(APPS_WEB_AGENT,l_server_url);Call Web Pagel_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) THENraise form_trigger_failure;END IF;Open Web Pagefnd_utilities.open_url(l_url);this action is waiting for user select file, and check upgrade--fnd_message.set_name(FND,ATCHMT-FILE-UPLOAD-COMPLETE);fnd_message.set_string(请在打开的WEB页面上选择上传的文件，成功上传后点击“是”确认！);button_choice := FND_MESSAGE.question(button1 = YES,button2 = null,button3 = NO,default_btn = 1,cancel_btn = 3,icon = question);Get File IDl_gfm_