ORACLE ERP开发基础之EBS开发基础

作者: IT168 JarWang  日期: 2009-05-07  

【内容导航】
  • 第1页:开发工具安装
  • 第2页:增加数据块
  • 第3页:注册表单FORM
  • 第4页:注册请求
  • 第5页:注册职责
  • 第6页:注册值集
  • 第7页:通过应用开发员取得系统管理员责任
  • 第8页:请求的输出及日志
  • 第9页:手动提交请求示例
  • 第10页:客制化右键菜单
  • 第11页:实现文件夹功能
  • 第12页:创建控制块MY_FOLDER_PROMPT
  • 第13页:实现手电筒查找的功能
  • 第14页:EBS的条件查询方法
  • 第15页:自定义代码
  • 第16页:注册说明性弹性域
  • 第17页:调用会计科目弹性域
  • 第18页:EBS自定义邮件通知
  • 第19页:EBS配置文件(Profile)常用设置
展开全部 
文本Tag: Oracle ERP

  【IT168 技术文档】
       ORACLEERP开发基础之前言

  http://tech.it168.com/a2009/0427/274/000000274048.shtml

  ORACLE ERP开发之OracleForms基础(一)Forms设置部分

  http://tech.it168.com/a2009/0428/274/000000274178.shtml

  ORACLEERP开发基础之OracleForms基础(二)FORMS代码部份

  http://tech.it168.com/a2009/0428/274/000000274236.shtml

  ORACLE ERP开发基础之Oracle Report基础

  http://tech.it168.com/a2009/0429/274/000000274343.shtml

     ORACLEERP开发基础之Oracle数据库基础
      http://tech.it168.com/a2009/0504/274/000000274773.shtml
  
       开发工具安装

  Oracle EBS11i 开发工具是developer6i的东西,非常古老。因为是转手过来的机器,开发工具都是安装好了,

  所以也没去在意这工具的安装。今天系统重装了,才知道这工具安装起来也是特烦人的。

  先安装FORMS6i与REPORT6i,安装完后一定要打补丁。否则会出现一大堆莫名的错误。接着安装discoverer。

  安装discoverer时先将注册表备份出来,因为discoverer不能和Forms 安装在同一目录。然后再安装 discoverer的补

  丁,接着再将注册表恢复回来。

  大致这样可以了。注意顺序一定要不能错了,否则又会出现一堆无聊的错误。唉!developer6i是98年的工

  具。盼着EBS R12应该是用DEVELOPER10g吧。

  EBS二次开发包注册

  2.1 从 Server 中下载 ERP Library (.pll), 存放于本机Server Path : /u01/au/11.5.0/resource

   Form文件与Library文件要存放在固定目录

  例如: Form存放在 d:/ErpForm/Form

   Library 存放在d:/ErpForm/Library;

  2.2 在 Regedit > HKEY_LOCAL_MACHINE > SOFTWARE > ORACLE > FORMS60_PATH

  加入client 端存放 Form 及 Library的路径(如图)

  ORACLE ERP开发基础之EBS开发基础_第1张图片

  例如:d:/ErpForm/Library;d:/ErpForm /Form(建议要加在最前面)

  利用TEMPLATE.fmb 模板来开发Form

  Oracle 已经为我们提供了一个Form 的开发模板,(/data/deve/devappl/au/11.5.0/forms/ZHS/TEMPLATE.fmb)

  我们的开发实际要基于这个模板,这个模板里面已经存在了我们将会用到的Oracle 标准的对象,我们需要做的,

  就是这这个模板的基础上面,添加我们自己的对象。这也是人家说二次开发没啥技术含量的重大原因。但如果

  真让你出写那么PL 包,估计也没几人能写好。人有时就是这样,让你站在巨人的肩膀,还在抱怨这抱怨那的。

  我也是这类人啦。出出气呀。^_^!

  1、更改template.fmb 文件名,同时删除一些无用的样本对象。

ORACLE ERP开发基础之EBS开发基础_第2张图片

 

点此发表你的看法>>【已有位网友发表了看法】

  2、增加数据块

  ORACLE ERP开发基础之EBS开发基础_第3张图片

  一路照做就可以了,步骤太简单就不用讲了吧。完成后,选择“仅创建数据块”。

  3、增加一个画布

  选择工具菜单上面的布局向导来做。

  ORACLE ERP开发基础之EBS开发基础_第4张图片

  注意:选择画布时,选择新画布。如上图。

  ORACLE ERP开发基础之EBS开发基础_第5张图片

  显示记录数一般为10就可以了。如上图。

  注:将画布名称改成与数据块的名称一致

  4、增加一个窗口

  ORACLE ERP开发基础之EBS开发基础_第6张图片

  注:窗口尽量保持与画面一致,同时选择相应的主画布。对应的画布那边也要选择主窗口

  5、选择对象的子类信息

  ORACLE ERP开发基础之EBS开发基础_第7张图片

  所有的对象都应选择相对的子类信息,这边仅以BLOCK为例。

  6、调整布局 不需要显示到画布的ITEM,可以将ITEM的画布属性设成空

  ORACLE ERP开发基础之EBS开发基础_第8张图片

  7、修改触发器(这一步很关键!)

  ORACLE ERP开发基础之EBS开发基础_第9张图片

  8、选择第一导航块

  ORACLE ERP开发基础之EBS开发基础_第10张图片

  9、上传及编译FORMS

  9.1先将FORMS上传至 /data/deve/devappl/au/11.5.0/forms/ZHS/

  9.2telnet至server,进入/data /deve/devappl/au/11.5.0/forms/ZHS/目录

  目录:cd /data/deve/devappl/au/11.5.0/forms/ZHS/ 编译:f60gen FRMSTONE.fmb apps/apps 复制:cp FRMSTONE.fmx /data/deve/deveappl/hek/11.5.0/forms/ZHS/ 注:一定要进入FORM的目录,再进行编译。否则编译也可以通过,但会出现奇怪的问题。这个问题折腾了我二天时间,才发现是ORACLE的BUG。 好了,一个最基本的EBS FORM就开发完成了。

点此发表你的看法>>【已有位网友发表了看法】

  注册表单FORM

  1. 定义表单

  操作路径:应用开发员=>应用产品=>表单

  ORACLE ERP开发基础之EBS开发基础_第11张图片

  填写说明如下:

  表单:FORMS文件名

  应用:HEK 惠尔康客户化应用

  用户表单名:这个参数与“功能”中的表单名是相关联的。

  2.定义功能 操作路径:应用开发员=>应用产品=>功能

  2.1

  ORACLE ERP开发基础之EBS开发基础_第12张图片

  2.2

  ORACLE ERP开发基础之EBS开发基础_第13张图片

  2.3

  ORACLE ERP开发基础之EBS开发基础_第14张图片

  3.定义菜单

  操作路径:应用开发员=>应用产品=& gt;菜单

  ORACLE ERP开发基础之EBS开发基础_第15张图片

  注:“子菜单”是指菜单可以将另一个菜单的功能全部包含进来。也就是父菜单的关系。

  5. 完成设置,效果如下:

  ORACLE ERP开发基础之EBS开发基础_第16张图片

点此发表你的看法>>【已有位网友发表了看法】

  注册请求

  1.定义可执行

  路径:系统管理员->并发->方案->可执行

  ORACLE ERP开发基础之EBS开发基础_第17张图片

  注意:定义成请求的过程或函数,必须加入(Errbuf Out Varchar2,Retcode Out Number)两个形参。

  2.定义并发程序

  路径:系统管理员-> 并发->方案->可执行

  注意:并发程序界面的可执行组中的“名称”,与上面的可执行并发程序界面的“简称”是一致的。

  ORACLE ERP开发基础之EBS开发基础_第18张图片

  注意:如果要传入参数到PL/SQL包中,点击《参数》按钮进行设置。

  ORACLE ERP开发基础之EBS开发基础_第19张图片

  也可以为参数赋给默认值,例:默认取得用户ID

  ORACLE ERP开发基础之EBS开发基础_第20张图片

  如果要限定参数的取数范围,则要定义值集(如何定义?请参考后面的定义值集)。

  3.定义请求组 路径:系统管理员->安全性->责任->请求

  ORACLE ERP开发基础之EBS开发基础_第21张图片

  4.将请求组置于职责下

  系统管理员->安全性 ->责任->定义

ORACLE ERP开发基础之EBS开发基础_第22张图片
点此发表你的看法>>【已有位网友发表了看法】

  注册职责

  1.新建菜单 操作路径:应用开发员=>应用产品=>应用菜单

  ORACLE ERP开发基础之EBS开发基础_第23张图片

  2.新建一个职责

  操作路径:系统管理员=>安全性=>责任=>定义

  ORACLE ERP开发基础之EBS开发基础_第24张图片

  将职责分配给用户

  操作路径:系统管理员=>安全性=& gt;用户=>定义

  ORACLE ERP开发基础之EBS开发基础_第25张图片

  3.转到EBS主页,多显示一个职责。

  ORACLE ERP开发基础之EBS开发基础_第26张图片

点此发表你的看法>>【已有位网友发表了看法】

  注册值集

  1.定义集 操作路径:总帐=>设置=>财务系统=>验证=>集

  ORACLE ERP开发基础之EBS开发基础_第27张图片

  1.1如果值的来源于数据表,则值的验证类型选择“表”,然后点击“编辑信息”。

  ORACLE ERP开发基础之EBS开发基础_第28张图片

  注:如果要实现请求参数的值集来源,作前后过滤条件的话。其语法:

  where head.customer_number = :$FLEX$.HEK_OM_KHJGB_ACCT_CUST

  and head.created_by = :$FLEX$.HEK_OM_FHD_CREATE_BY

  and TO_CHAR(head.ordered_date,'YYYYMMDD') = :$FLEX$.HEK_DAY_TIME_ID ORDER BY HEAD.ORDER_NUMBER

  :$FLEX$.为参数界面的名称

   HEK_OM_KHJGB_ACCT_CUST为某个参数的值集名称。

  1.2实现的效果如下:

  ORACLE ERP开发基础之EBS开发基础_第29张图片

  1.3定义多列值集

  ORACLE ERP开发基础之EBS开发基础_第30张图片

  1.4实现效果

  ORACLE ERP开发基础之EBS开发基础_第31张图片

  1.5从属

  2.定义值

  2.1如果值的来源固定的某些值,那么可以直接定义值。将值的验证类型选择=>独立

  ORACLE ERP开发基础之EBS开发基础_第32张图片

  2.2定义集所对应的值

  操作路径:操作路径:总帐=> 设置=>财务系统=>验证=>值

  ORACLE ERP开发基础之EBS开发基础_第33张图片

点此发表你的看法>>【已有位网友发表了看法】

  通过应用开发员取得系统管理员责任

  一般公司都有区分DBA与DEVELOPER的,业务机上一般是APPS用户由DBA掌握,诸如用户管理也是DBA来负责的。developer是不知道 没有APPS密码,也没有‖SYSTEM ADMINISTTRATOR―职责的。也就是说DEVELOPER只有‖Application Developer―这个职责。同理,应用开发员是没有权限给终端用户加权限的。 但我今天测试了一下,developer虽然没直接加职责的权限,但developer有‖Application Developer―职责,这个职责下面有注册菜单的权限,完全可以通过注册菜单将SYSTEM ADMINISTROR加进来。如图:

  ORACLE ERP开发基础之EBS开发基础_第34张图片

  查询视图时没有显示数据

  在EBS以外的地方 (含report),如果确认SQL语句没有问题,这主要是因为视图是OU屏蔽的,因此需要初始化身份。例如:PO_HEADERS。有两种方法,方法一适用于知道相应的组织代码,方法二就比较通用了。

  方法一:

  BEGIN

   DBMS_APPLICATION_INFO.set_client_info(122); --122代表具体的组织代码,不同公司,代码是不同。

  END;

  方法二:

  BEGIN

  APPS.FND_GLOBAL.apps_initialize

  ( user_id =>APPS.FND_GLOBAL.user_id, resp_id =>APPS.FND_GLOBAL.resp_id, resp_appl_id =>APPS.FND_GLOBAL.resp_appl_id );

  END;

  注册报表 (report)

  路径:系统管理员->并发->方案->可执行

  注册报表与注册请求的步骤是差不多的。

  ORACLE ERP开发基础之EBS开发基础_第35张图片

  定义并发

  路径:系统管理员->并发->方案 ->定义

  ORACLE ERP开发基础之EBS开发基础_第36张图片

  定义报表参数

  点击上图的参数按钮。

  ORACLE ERP开发基础之EBS开发基础_第37张图片

  注:这边与注册请求不一样的就是,要填写变量栏(变量名称就是REPORT中的变量名称)

  定义请求组

  操作路径:系统管理员->安全性->责任->请求

  ORACLE ERP开发基础之EBS开发基础_第38张图片

  将请求组置于职责下

  系统管理员->安全性->责任->定义

  ORACLE ERP开发基础之EBS开发基础_第39张图片

  OK,完成了报表的注册。

点此发表你的看法>>【已有位网友发表了看法】

  请求的输出及日志

  1、 Effect:

  ORACLE ERP开发基础之EBS开发基础_第40张图片

  Oracle EBS会在EBS的安装目录,保存查看输出及日志之文件。查看具体目录:

  select t.logfile_name,t.outfile_name from fnd_concurrent_requests t

   where t.request_id = _request_id

  2、当我们自行定义了一个并发请求时,也经常需要使用上面的方式进行一些调试。

  请求的输出:apps.Fnd_File.Put_line (apps.FND_FILE.OUTPUT, '请求的输出');

  请求的日志:apps.Fnd_File.Put_line (apps.FND_FILE.LOG, '请求的日志');

  对于报表,一般情况是把报表的内容输出到OUTPUT,把报表中间的debug逻辑输出到日志中。

  对于请求包,一般情况是输出到日志中。OUTPUT就不用管了。

  实现手动提交请求

  在Form里面,我们可以用

  APPS.FND_REQUEST.SUBMIT_REQUEST

  提交一个Request到Oracle Request Manager。如果提交成功,该函数返回Request ID,否则,返回0。

  1、初始化

  在提交一个Request之前,我们会调用Oracle Standard的Procedure对这个Request做一些基本的参数的初始化。

  APPS.FND_GLOBAL.apps_initialize

  ( user_id =>APPS.FND_GLOBAL.user_id, resp_id =>APPS.FND_GLOBAL.resp_id, resp_appl_id =>APPS.FND_GLOBAL.resp_appl_id );

  注:这个初始化不是必须的,之所以要初始化,是因为视图是OU屏蔽的。 上述语句等同于dbms_application_info.set_client_info;

  2、函数介绍

  2.1 函数APPS.FND_REQUEST.SUBMIT_REQUEST有105个参数:

   APPS.FND_REQUEST.SUBMIT_REQUEST

  ( APPLICATION IN VARCHAR2 DEFAULT NULL,

  PROGRAM IN VARCHAR2 DEFAULT NULL,

   DESCRIPTION IN VARCHAR2 DEFAULT NULL,

  START_TIME IN VARCHAR2 DEFAULT NULL,

  SUB_REQUEST IN BOOLEAN DEFAULT FALSE,

   chr(0),'','','','','','','','','','','','','','','','','','','', '','','','','','','','','','', '','','','','','','','','','', '','','','','','','','','','', '','','','','','','','','','', '','','','','','','','','','', '','','','','','','','','','', '','','','','','','','','','', '','','','','','','','','','' )

   RETURN NUMBER;

  2.2 参数详解

  2.2.1 APPLICATION(必需参数)

  应用程序的名称缩写。一般我们可能会用到下面的几个:

  Oracle Assets „„> OFA

   Oracle General Ledger „„> SQLGL

  Oracle Inventory „„>INV

  Oracle Order Management „„>ONT

  Oracle Payables „„SQLAP

  Oracle Pricing „„QP

  Oracle Purchasing „„PO

  Oracle Receivables „„AR

  操作路径:系统管理员=>应用=>注册

  ORACLE ERP开发基础之EBS开发基础_第41张图片

  2.2.2 PROGRAM(必需参数)

  要提交到 Oracle Request Manager的并发程序之简称

  操作路径:应用开发员=>并发=>程序

  ORACLE ERP开发基础之EBS开发基础_第42张图片

  2.2.3 第三、第四个参数

  第三、第四个参数默认为空

  2.2.4 第五个参数

  第五个参数默认为false

  2.2.5 第六至第十零五个参数

  第六至第十零五个参数为要传入到请求中的自定义参数值。如果无须这么多参数时,以chr(0)作为参数结束的标记。Chr(0)后面剩余的参数为 ‘‘。

点此发表你的看法>>【已有位网友发表了看法】

  手动提交请求示例

   declare

  v_order_number number;

  v_req_id number;

   begin

  v_order_number := :HEK_ODS_TH_FEE_M_V.OE_HEAD_NUMBER;

  if :HEK_ODS_TH_FEE_M_V.OE_HEAD_NUMBER is null then FND_MESSAGE.DEBUG('请选择配送单后再打印!');

  RAISE FORM_TRIGGER_FAILURE;

  end if;

  v_req_id := fnd_request.submit_request('HEK',

   'HEK_退货单',

  '', '',

  FALSE, v_order_number,--v_batch_no, null,--v_batch_no, null,--v_cust_num, null,--v_driver_num, null,--v_trans_num, null,--v_vendor_num, null, null,null, chr(0), '', '', '', '', '', '', '', '', '', '', '', '', '', '', '', '','', '', '', '', '', '', '', '', '', '','', '', '', '', '', '', '', '', '', '', '', '', '', '', '', '', '', '', '', '', '', '', '', '', '', '', '', '', '', '', '', '', '', '', '', '', '', '', '', '', '', '', '', '', '', '', '', '', '', '', '', '', '', '', '', '', '', '', '', '', '', '', '','');

  if (v_req_id = 0) then FND_MESSAGE.RETRIEVE;

  FND_MESSAGE.ERROR;

  else

  update HEK_ODS_TH_FEE_M set print_mark='Y' where OE_HEAD_NUMBER = (v_order_number);

  commit_form;

   fnd_message.debug('您的请求已经提交,请求号为:' || to_char(v_req_id) || ',请通过查看->请求来查看输出结果。');

  end if;

  end;

  客制化菜单

  Effect:

  ORACLE ERP开发基础之EBS开发基础_第43张图片

  Usage:调用 app_special.instantiate包

  Examples:

  1、增加一个自定义Form Level的触发器(SPECIAL11)

  ORACLE ERP开发基础之EBS开发基础_第44张图片

  2、增加测试代码如下:

   ――――――――――――――――――――――――――――――――――――――――――――――

  declare

   v_invoice_num varchar2(50);

  begin

  v_invoice_num := '菜单栏客制化100';

  fnd_message.debug(v_invoice_num);

  end;

  ―――――――――――――――――――――――――――――――――――――――――――――――

  3、在Form WHEN-NEW-FORM-INSTANCEFJ 进行调用:

   APP_SPECIAL.INSTANTIATE('SPECIAL11','测试菜单2', '', TRUE, 'LINE');

   ―――――――――――――――――――――――――――――――――――――――――――――――

  4、一些特殊说明:

  上面自定义FORMS级触发器,名字必须定义为“SPECIAL+数字‖,否则会报错。并且数字的大小决定了菜单出现的先后顺序。数字还有更大作用就是决定了,自定义菜单选项放在哪个主菜单下。

  SPECIAL1—SPECIAL15在“工具”主菜单下。

   SPECIAL16—SPECIAL30在“报表”主菜单下。

  SPECIAL31—SPECIAL45在“活动”主菜单下。

  SPECIAL46以上就直接报错了。^_^

  如下图

  ORACLE ERP开发基础之EBS开发基础_第45张图片

  5、 控制自定义菜单的是否激活可用。

  使用 app_special.enable函数可以控制菜单是否可以使用。

  例如:基于不同的数据块,实现菜单的不可用。在block的 ‖when-new-block-instance‖中加入

  效果:

   app_special.enable('SPECIAL1',property_off);

  效果

  

  6、 在自定义的菜单上使用checkbox按钮。

  ①增加一个自定义Form Level的触发器(SPECIAL1_CHECKBOX),代码如下:

  if app_special.get_checkbox('SPECIAL1_CHECKBOX')='TRUE' then

   fnd_message.debug('Special 1 is True!');

  else

   fnd_message.debug('Special 1 is False!');

  end if;

  注:使用 app_special.get_checkbox来获取checkbox的状态值。

  ②在Form的WHEN-NEW-FORM- INSTANCE触发器中初始化菜单。

   app_special.instantiate('SPECIAL1_CHECKBOX','Spe&cial 1 Box w Line', '',TRUE,'LINE');

   app_special.set_checkbox('SPECIAL1_CHECKBOX','TRUE');

  注:app_special.set_checkbox是对checkbox进行赋值操作。

  ③效果如下:

  

点此发表你的看法>>【已有位网友发表了看法】

  客制化右键菜单

  1、 首先如果是要为某个ITEM,另外开发一个右键菜单。这个需要直接按照FORM的开发教程,自定义一个POPUP菜单就可以了。但本文讲的在EBS所有的快捷菜单上,额外增加所需的菜单按钮。也就是要图上所示的快捷菜单上增加菜单按钮。

  ORACLE ERP开发基础之EBS开发基础_第46张图片

  2、 在FROM-LEVEL增加自定义触发器(名字规则为:POPUP+N)

  

  3、 ITEM的“PRE-POPUP-MENU”触发器上初始化菜单。

  APP_POPUP.INSTANTIATE('POPUP1','First Entry');

   APP_POPUP.INSTANTIATE('POPUP10','SECONED Entry',TRUE,'LINE');

   APP_POPUP.INSTANTIATE('POPUP3','THREE Entry',FALSE,NULL);

  ORACLE ERP开发基础之EBS开发基础_第47张图片

  4、 如果是整个BLOCK的ITEM都需要客制化快捷菜单,可以在BLOCK的“PRE-POPUP-MENU”定义。

   APP_POPUP.INSTANTIATE('POPUP1','global');

  ORACLE ERP开发基础之EBS开发基础_第48张图片

  调用EBS日期控件

  1、 首先将ITEM的LOV属性设置为“ENABLE_LIST_LAMP”、列表验证属性设置为“否”

  

  2、在ITEM的“KEY-LISTVAL”解发器下加入对下代码:

  BEGIN

  calendar.show();

  END;

  3、注意:ITEM对应数据库类型必须是 DATE类型,否则会报frm-40700错误。效果如下:

  ORACLE ERP开发基础之EBS开发基础_第49张图片

  查询数据时限定语言环境

  EBS是个多语言的业务系统,界面上只查询到一条记录,实际上后台数据表是多条记录的。如:值集表。

  select * from apps.FND_FLEX_VALUES_TL t, apps.FND_FLEX_VALUES B

  where B.FLEX_VALUE_ID = T.FLEX_VALUE_ID

  and t.language = userenv('LANG')

  实现历史记录查询

  1.要实现的效果

  ORACLE ERP开发基础之EBS开发基础_第50张图片

  2.在定义数据表时,必须加入以下五个字段:

  ORACLE ERP开发基础之EBS开发基础_第51张图片

  即:CREATED_BY NUMBER、CREATION_DATE DATE、LAST_UPDATED_BY NUMBER、LAST_UPDATE_DATE DATE、LAST_UPDATE_LOGIN NUMBER 网上有些文章说还必须定义主键、序列。但如果仅实现此功能是不需要的。当然从数据库设计方面来说,这些定义也是必须的。

   3、在数据块的PRE-INSERT、PRE-UPDATE触发器中加入代码 FND_STANDARD.SET_WHO;

点此发表你的看法>>【已有位网友发表了看法】

  实现文件夹功能

  1、在客制的Form里面实现Oracle Folder的功能,最终效果如下:

  

  2、使用TEMPLATE.fmb创建一个Form(名称:FRMSTONE)。

  2.1添加Form Objects 包括一个Window,MY_FOLDER

  一个 Canvas, MY_FOLDER 一个Block,MY_FOLDER(可以使用向导创建),并修改其属性。如下图:

  

  注:使用文件夹的数据块,其名称总长不能超过22字节!

   2.2修改Trigger和ProgramUnits

  Form Level Trigger: PRE-FORM:

   app_window.set_window_position('MYFOLDER', 'FIRST_WINDOW');

   Program Units:APP_CUSTOM:

  if (wnd = 'MYFOLDER') then app_window.close_first_window;

  2.3修改FORM属性设置

  

  注:须要说明的是:设成第一个导航数据块的blockname必须至少一个 item处于canvas中,否则会报FRM-40106的错误。

  2.4其他的具体步骤同一般的FORM开发一样,就不多说了。

  3、添加Folder相关的Objects

  3.1文件夹相关的Window、Canvas、Block、Item…等都包含在 Oracle Standard Form APPSTAND.FMB。

  3.2在同一窗口打开标准的Form和我们自己客制的 Form,并且选择APPSTAND.FMB 的Object Groups STANDARD_FOLDER然后用鼠标拖动至我们自己的Form的Object Groups。

  

  3.3此时会弹出对话框:

  

  选择子类,你会发现Form Builder都会在你的Form里面自动添加很多对象。做完这一步后,请不要关闭APPSTAND.FMB。

  4、增加 Attached Libraries

  做完上面的步骤后,检查一下Attached libraries里面有没有APPFLDR。如果没有,我们需要手工添加。

  

  5、增加Stacked Canvas FOLDER_STACK 这一步是必须的,而且你期望实现Folder拖动功能的那些Item都是放在这个Canvas里面,这个Stacked Canvas又是放在前面我们建立的Canvas:MY_FOLDER上面的。

  5.1增加Stacked Canvas 双击打开Canvas MY_FOLDER,在左侧工具条里面选择Stacked Canvas,然后在Canvas MY_FOLDER里面拖动即可。

  

  5.2设置Stacked Canvas属性

  

  6、更改数据块MY_FOLDER中的Item属性

  

点此发表你的看法>>【已有位网友发表了看法】

  7、创建控制块MY_FOLDER_PROMPT

  7.1设置块的属性 子类信息:block 数据库数据块:否

  7.2增加ITEM 注:增加Item,名称必须和Block MY_FOLDER中的Item保持一致。 另外,数据块中有些item(如id)不要显示在canvas上的,那么此类item也无须在MY_FOLDER_PROMPT创建相应的item.

  

  7.2设置其初始值,也就是显示的标签名及子类信息

  

  7.3增加其他相关Item 我们还需要增加其他的一些Item,都是和Folder的功能有关的。

  

  

  8、增加相应的trigger

  

  9、其他注意事项

  9.1错误:在编译带有文件夹的FORM时,经常会出现如下提示。

  FRM-30085: Unable to adjust form for output

  这是因为ITEM超出的了画布的高度或是宽度造成的。如图:

  

  可以通过调整ITEM的X坐标或Y坐标来解决此错误。

  9.2 错误:无法实现拖动。

  

  解决:数据块的item与folder的item与调整一定的距离。

  

点此发表你的看法>>【已有位网友发表了看法】

  实现手电筒查找的功能

  首先,先按TEMPLATE将其他功能先实现,然后再来实现查找的功能。手电筒查找的Effect有两二种,①LOV形式,②window形式。

  1、LOV查找模式:一般适用于查询结果只返回单条条件的查询(如主从数据块的界面)。

  ①创建一个parameter参数:TEST_P

  ②创建一个基于主键查询LOV-TEST_L,并将主键字段映射给Parameter参数TEST_P。

  

  ③在数据块中创建PRE-QUERY触发器。

  IF :parameter.G_query_find = 'TRUE' THEN :BLOCKNAME.HEADER_ID := :parameter.TEST_P; :parameter.G_query_find := 'FALSE';

  end if;

  ④在数据块中再创建QUERY_FIND触发器。

  begin

   app_find.query_find('TEST_L'); --调用LOV

  end;

  ⑤完成效果如下:

  

  2、WINDOW查找模式:一般适用多条件查询,可以返回多条查询记录。

  ①打开在标准FORM---APPSTAND.fmb。将对象组中的QUERY_FIND拖至待开发的FORM中。

  

  ②重命名第一个数据块、画布、窗口(QUERY_***都是刚才自动创建的)。 USER GUID说可以重命名,但我没有重命名成功。也懒得去折腾一个命名的问题。^_^ ③打开QUERY_FIND画布,改写“新建”、“查找”两个按钮WHEN-BUTTON-PRESS之中的代码。

  

  NEW按钮代码:

  --app_find.new('Your blockname here'); app_find.new('HEK_SALE_CUST_MANUAL');

  FIND按钮代码:

  :parameter.G_query_find := 'TRUE'; --app_find.find('your blockname here'); app_find.find('HEK_SALE_CUST_MANUAL'); :parameter.G_query_find := 'FALSE';

  ④设置QUERY_FIND数据块的“前一导航数据块”,也就是要实现询查功能的数据块。

  

  ⑤修改QUERY_FIND数据块KEY-NXTBLK触发器代码

  :parameter.G_query_find := 'TRUE'; --app_find.find('your blockname here'); app_find.find('HEK_SALE_CUST_MANUAL'); :parameter.G_query_find := 'FALSE';

  ⑦修改QUERY_FIND窗口的标题及尺寸,并在QUERY_FIND画布上创建要查找的条件ITEM。 ⑧在要实现查询的数据块(如:HEK_SALE_CUST_MANUAL),创建PRE-QUERY触发器。

  

  if :parameter.g_query_find = 'TRUE' then

   app_find.query_range(name_in('query_find.CUSTOMER_NUMBER'),name_in('query_find.CUSTOMER_NUMBER'),'HEK_SALE_CUST_MANUAL.CUST_CODE');

   app_find.query_range(:query_find.CUST_DATE,:query_find.CUST_DATE,'HEK_SALE_CUST_MANUAL.TIME_ID'); :parameter.G_query_find := 'FALSE';

  end if;

  注:app_find.query_range参数前两个是QUERY_FIND中的ITEM,后一个是查询块中的ITEM。

  ⑨在要实现查询的数据块(如:HEK_SALE_CUST_MANUAL),再创建QUERY_FIND触发器。

   --APP_FIND.QUERY_FIND('','',''); app_find.query_find('HEK_SALE_DEPT_MANUAL','QUERY_FIND','QUERY_FIND');

  ⑩完成效果如下:

  

  记录指示器切换标签页

  Effect:

  

  1、 在该数据块中手工增加一个ITEM

  

  设置ITEM的属性:子类信息:设成 DRILLDOWN_RECORD_INDICATOR,数据库项:否.

  2.在新增的ITEM的WHEN-MOUSE-CLICK触发器加入

  declare

  v_order number;

  begin

   v_order := : block_name1.item; --block_name表示要切换tab的数据块

  if v_order is not null then

  go_block(' block_name1');

   set_block_property('block_name1 ',DEFAULT_WHERE,'ORDER_NUMBER='||v_order);

  execute_query;

  end if;

  end;

  3.这样就可以实现类似VB中的TAB切换了。由于ORACLE FORM没有专门的TAB函数,只能如此曲折实现。

点此发表你的看法>>【已有位网友发表了看法】

  EBS的条件查询方法

   1、使用app_find.find

  IF (NAME_IN('PO_HEADERS.PO_HEADER_ID') IS NOT NULL) THEN

  :parameter.G_query_find := 'TRUE';

   app_find.find('CUX_PO_HEADERS_ADD_MESSAGE');

   go_block('CUX_PO_HEADERS_ADD_MESSAGE');

  :parameter.G_query_find := 'FALSE';

  ELSE

  FND_MESSAGE.DEBUG('请先保存订单头');

   END IF;

  在CUX_PO_HEADERS_ADD_MESSAGE的PRE-BLOCK中处理

   copy(name_in('PO_HEADERS.PO_HEADER_ID'),'CUX_PO_HEADERS_ADD_MESSAGE.PO_HEADER_ID');

  2、使用Default_where属性处理

  declare

  lv_default varchar2(2000);

  begin

  lv_default:='.....';

   go_block('CUX_PO_HEADERS_ADD_MESSAGE');

   set_block_property('CUX_PO_HEADERS_ADD_MESSAGE',DEFAULT_WHERE,‘PO_HEADER_ID=‘||lv_default);

  execute_query;

  end;

  3、使用app_find.query_range()来处理 注:app_find.query_range()必须有三个参数,也只能有三个参数

  begin

   app_find.query_range(:find_date_from, :find_date_to, 'CUX_PO_HEADERS_ADD_MESSAGE.REATE_DATE'); :parameter.Q_query_find:='false';

  end;

  4、查询综合运用举例

  前提准备工作,数据块:HKE_TEST 控制块:CONTROL

  4.1.在数据块HKE_TEST的PRE-QUERY触发器设定查询条件

  if :parameter.g_query_find = 'TRUE' then

   app_find.query_range(:CONTROL.CUST_F, :CONTROL.CUST_F ,'HKE_TEST.CUSTOMER_NUMBER'); :parameter.g_query_find := 'FALSE';

  end if;

  4.2在查询按钮的WHEN-BUTTON-PRESSED

   :parameter.G_query_find := 'TRUE';

  app_find.find('HEK_TEST');

  :parameter.G_query_find := 'FALSE';

点此发表你的看法>>【已有位网友发表了看法】

  自定义代码

  例:实现某个项为必填项(当然自定义代码的功能还有很多)。

  ORACLE ERP开发基础之EBS开发基础_第52张图片

  菜单:诊断=>自定义代码=>个性化

  ORACLE ERP开发基础之EBS开发基础_第53张图片

  选择相应的触发器。如果是基于block的触发器,则要选择触发器对象(是哪一个块?)。

  ORACLE ERP开发基础之EBS开发基础_第54张图片

  选择相应的项为必填。注:项的名称可通“检查”来查看。

  ORACLE ERP开发基础之EBS开发基础_第55张图片

  作用于项的内容是什么,本例为必填。

  ORACLE ERP开发基础之EBS开发基础_第56张图片

  保存完后,就可以实现“销售人员这一项为必填了”。

  ORACLE ERP开发基础之EBS开发基础_第57张图片

  Fnd_Profile

  begin

   fnd_message.debug('user_id= ' || fnd_profile.value('user_id')); --取当前登录EBS用户ID

  fnd_message.debug('user_name= '||fnd_profile.value('USERNAME')); --取当前登录EBS用户名

   fnd_message.debug('FND_Global.User_Name='|| FND_Global.User_Name); --取当前登录EBS用户名 fnd_message.set_string('GL_SET_OF_BKS_ID='||fnd_profile.value('GL_SET_OF_BKS_ID'));

  fnd_message.show; --取当前帐套

  end;

  弹性域

  弹性域分成键弹性域、说明性弹性域。这两种弹性域用途是不一样的。 关键性弹性域:在使用KEY弹性域的基表中,只保存ID。但可以通ID查询到相应的SEGMENT。在表结构中表现为***_ID、SEGMENT1等。 说明性弹性域:针对特定用户扩展输入特定信息的字段。在表结构中表现为attribute_category、attribute1字段等。

  注册关键性弹性域

点此发表你的看法>>【已有位网友发表了看法】

  注册说明性弹性域

  1. 创建数据表。

  注:使用说明性弹性域的数据表,必须含有ATTRIBUTE_CATEGORY及若干ATTRIBUTEN字段。 ATTRIBUTE_CATEGORY字段:指弹性域的CONTEXT字段。 ATTRIBUTEN字段:指实际使用的字段。

   create table HEK_DISCOUNT_POLICY_H_NEW(

  POLICY_ID NUMBER, POLICY_NO VARCHAR2(30) not null, CUSTOMER_ID NUMBER, CUSTOMER_NUMBER NUMBER , CUSTOMER_NAME VARCHAR2(100), BENIFICIARY_ID NUMBER, BENIFICIARY_NUMBER NUMBER , BENIFICIARY_NAME VARCHAR2(100), RELATION_NUMBER NUMBER , RELATION_NAME VARCHAR2(100), PAYMENT_TYPE VARCHAR2(20), POLICY_PERIOD VARCHAR2(20) not null, ATTRIBUTE_CATEGORY VARCHAR2(150), ATTRIBUTE1 VARCHAR2(150), ATTRIBUTE2 VARCHAR2(150), ATTRIBUTE3 VARCHAR2(150), CREATED_BY NUMBER, CREATION_DATTE DATE, LAST_UPDATED_BY NUMBER, LAST_UPDATE_DATE DATE, LAST_UPDATE_LOGIN NUMBER)

  2.注册弹性域表

  begin

   ad_dd.register_table('HEK','HEK_DISCOUNT_POLICY_H_NEW','T',10,10,40);

  commit;

  end;

  3.注册弹性域表的列

  begin

   ad_dd.register_column('HEK','HEK_DISCOUNT_POLICY_H_NEW','ATTRIBUTE_CATEGORY',1,'VARCHAR2',150,'N','N'); ad_dd.register_column('HEK','HEK_DISCOUNT_POLICY_H_NEW','ATTRIBUTE1',2,'VARCHAR2',150,'N','N'); ad_dd.register_column('HEK','HEK_DISCOUNT_POLICY_H_NEW','ATTRIBUTE2',3,'VARCHAR2',150,'N','N'); ad_dd.register_column('HEK','HEK_DISCOUNT_POLICY_H_NEW','ATTRIBUTE3',4,'VARCHAR2',150,'N','N');

  commit;

  end;

  4.查看是否注册成功

  select ft.table_id from FND_TABLES ft where ft.table_name='HEK_DISCOUNT_POLICY_H_NEW'

   select * from FND_COLUMNS fc where fc.table_id in (select ft.table_id from FND_TABLES ft where ft.table_name='HEK_DISCOUNT_POLICY_H_NEW')

  5.注册弹性域列 操作路径:应用开发员=>弹性域=>说明性=>注册

  ORACLE ERP开发基础之EBS开发基础_第58张图片

  点列按钮,选择注册相应的列

  ORACLE ERP开发基础之EBS开发基础_第59张图片

  6. 注册弹性域段

  ORACLE ERP开发基础之EBS开发基础_第60张图片

  点段按钮,输入提示文本

  ORACLE ERP开发基础之EBS开发基础_第61张图片

  7.启用说明性弹性域

  7.1先按将相应的FORM开发好,然后在FORM级的以下TRIGGER中加入

  PRE-QUERY: FND_FLEX.EVENT('PRE-QUERY');

  POST-QUERY: FND_FLEX.EVENT('POST-QUERY');

  PRE-INSERT: FND_FLEX.EVENT('PRE-INSERT');

  PRE-UPDATE : FND_FLEX.EVENT('PRE-UPDATE');

  WHEN-VALIDATE-ITEM: FND_FLEX.EVENT('WHEN-VALIDATE-ITEM');

  WHEN-VALIDATE-RECORD: FND_FLEX.EVENT('WHEN-VALIDATE-RECORD');

  7.2在PRE-FORM的TRIGGER中加入

  fnd_descr_flex.define ( BLOCK=>'HEK_DISCOUNT_POLICY_H_NEW',

   FIELD=>'DESC_FLEX',

  APPL_SHORT_NAME=>'HEK',

   DESC_FLEX_NAME=>'HEK返利_订金');

  说明一下相应参数:BLOCK:指启用弹性域的数据块名 FIELD:指后面新增的ITEM APPL_SHORT_NAME:指相应模块的简称(系统管理员->应用->注册) DESC_FLEX_NAME:指注册弹性域时的名称

  8.在要启用弹性域的数据块中增加一个ITEM。名称为:DESC_FLEX。

  8.1 DESC_FLEX属性设置如下:

  子类信息:TEXT_ITEM_DESC_FLEX

  数据库项:否

  画布:MAIN_C

  8.2在DESC_FLEX项的以下trigger中加入:

   WHEN-VALIDATE-ITEM :FND_FLEX.EVENT('WHEN-VALIDATE-ITEM');

  WHEN- NEW-ITEM-INSTANCE:FND_FLEX.EVENT('WHEN-NEW-ITEM-INSTANCE');

  9.完成效果:

  ORACLE ERP开发基础之EBS开发基础_第62张图片

  条件控制说明性弹性域

  说明:通过一个字段的值控制是否显示说明性弹性域。与普通的说明性弹性域类似。下面仅说明不同之处。

  1. 注册弹性域列时,定义一个参考列。

  ORACLE ERP开发基础之EBS开发基础_第63张图片

  点击参考字段按钮

  ORACLE ERP开发基础之EBS开发基础_第64张图片

  DISCOUNT_TYPE是要启用弹性域数据表中的一个字段,即通过这个字段,来控制是否显示弹性域。

  2.定义弹性域段

  ORACLE ERP开发基础之EBS开发基础_第65张图片

  新增一条上下文值记录,例:年返。即当DISCOUNT_TYPE的值为“年返”时,才显示弹性域。

  ORACLE ERP开发基础之EBS开发基础_第66张图片

  3.实现效果。

  ORACLE ERP开发基础之EBS开发基础_第67张图片

点此发表你的看法>>【已有位网友发表了看法】

  调用会计科目弹性域

   1.首先在创建数据表时,添一个字段用来保存会计科目的ID。如:CODE_COMBINATION_ID

  2.在FORM相应的数据块增加两个ITEM,用来显示科目NUMBER与DESCRITION。

  例:GL_CODE_NUMBER、GL_CODE_DESC

  注 : ENABLE_LIST_LAMP是TEMPLATE模板自带的,无须手工去定义。 将GL_CODE_NUMBER项的LOV设成“ENABLE_LIST_LAMP”,数据库项设为“否”。 将GL_CODE_NUMBER“从列表中验证”属性设成否。

  3.在Form Level 的WHEN-NEW-FORM-INSTANCE Trigger初始化弹性域

  FND_KEY_FLEX.DEFINE(BLOCK => 'BlockName ',

  FIELD => 'GL_CODE_NUMBER',

  ID => 'CODE_COMBINATION_ID',

  DESCRIPTION => 'GL_CODE_DESC',

  APPL_SHORT_NAME => 'SQLGL',

  CODE => 'GL#', NUM => 101, --STRUCTURE Number REQUIRED => 'N' );

  说明:APPL_SHORT_NAME查找:系统管理员=>应用=>注册

  ORACLE ERP开发基础之EBS开发基础_第68张图片

  CODE查找:应用开发员=>键=>注册

  ORACLE ERP开发基础之EBS开发基础_第69张图片

  NUM查

  

  4.可以在GL_CODE_NUMBER项的WHEN-VALIDATE- ITEM触发器中,对所选择的科目进行核查。

  IF : BlockName.CODE_COMBINATION_ID = -1 then

  fnd_message.debug('所选科目组合无效!');

  raise form_trigger_failure;

  end if;

  5、完成效果:

  ORACLE ERP开发基础之EBS开发基础_第70张图片

  键弹性域与说明性弹性域明显的区别。就是使用键弹性域的数据表只保留了ID。以会计科目弹性域为例,数据表只保存了ID(即CODE_COMBINATION_ID,这个字段是对应会计科目的ID)。GL_CODE_NUMBER、 GL_CODE_DESC都只是控制块的ITEM,通过CODE_COMBINATION_ID来查询对应的科目。

  EBS11i FormMVC模式

  一个同事在的视频会议上提到,在做EBS开发时,要用MVC模式来满足不断在变化的业务需求。很有意思的话题,值得展开讨论。JAVA设计模式的书偶看了N次,但只会在JAVA应用,但从未想过在其他的4GL编程语言实现。以下是我的理解。 首先,按JAVA的那一套,MVC是指MODEL(模型层)、VIEW(表现层)、CONTROLLER(控制层)的缩写。编写软件为什么分层,这个是软件工程的需求。也就是说分层的目的是提高软件的可维护性,避免“动一牵百”的修改软件。 其次,按照这种软件分层原理,在JAVA中比较容易实现。Struts就是这类比较典型应用。模型层可以用实体类来实现,表现层可以用 JSP+STRUTS标签实现,控制层可以action类实现。那么在ORACL FORMS如何实现分层呢?以下对号入座的想法。 MODEL用数据块来实现、VIEW用FORM界面实现、控制层呢?MVC中最为关键的是CONTROLLER。因为CONTROLLER实现业务逻辑与流程流转。并且按照设计模式的要求,CONTROLLER又被分成若干小层,如DAO层、SERVICES层等等,并且带来的“面向接口编程”之方法。 ORACLE FORM实现业务逻辑与界面分离是通过程序单元来实现,控制层具体表现在ORACLE FORMS当中没有,只能通过繁琐的PL/SQL语句实现。 不知道这种理解对不对。这个话题是很有意思的,大家觉得呢?欢迎讨论哦。

   EBS预警功能自定义开发

  EBS预警分为事件预警和定期预警。预警功能非常强大,本例以订单录入后,以邮件的形式通知财务主管进行“订单登记”审核。

  1、 定义预警。

  操作路径:预警系统管理器=>预警=>定义

  ORACLE ERP开发基础之EBS开发基础_第71张图片

  2、 编写SQL语句(注:SQL必须包含INTO、where rowid=:rowid)

  select ORDER_NUMBER into &order_number from OE_ORDER_HEADERS_all head WHERE rowid = :ROWID

  ORACLE ERP开发基础之EBS开发基础_第72张图片

  3、 点击上图中的“活动按钮”。

  ORACLE ERP开发基础之EBS开发基础_第73张图片

  4、 点击上图中的“活动详细资料”按钮。

  ORACLE ERP开发基础之EBS开发基础_第74张图片

  5、 定义活动集。

  ORACLE ERP开发基础之EBS开发基础_第75张图片

  6、 预警安装

  ORACLE ERP开发基础之EBS开发基础_第76张图片

  点击“预警详细资料”按钮。

  ORACLE ERP开发基础之EBS开发基础_第77张图片

  7、 完成效果如下:

  ORACLE ERP开发基础之EBS开发基础_第78张图片

点此发表你的看法>>【已有位网友发表了看法】

  EBS自定义邮件通知

  前面已经介绍过了EBS预警的功能,事实上Oracle数据库本身就有提供UTL_SIMPLE(ORACLE10g以后变成UTL_MAIL)包来实现邮件发送的功能,利用这个包可以开发出更灵活东西来。首先要安装utlsmtp.sql、utltcp.sql这两个包。

  ①发送带有 URL邮件代码

  declare

  p_sender varchar2(30) := '[email protected]';

  p_recipient varchar2(30) := '[email protected]';

  p_subject varchar2(50) := '使用PL/SQL发送邮件';

  p_body long := '这是邮件正文内容啦!我又来啦!!!进行ORACLE ERP';

  mail_conn utl_smtp.connection;

  mail_host varchar2(15) := 'mail.hek.cn';

  user_name varchar2(156) := '[email protected]';

  user_pwd varchar2(156) := '***';

  begin --创建一个TCP MAIL连接

  mail_conn := utl_smtp.open_connection(mail_host, 25);

  --ehlo与helo的区别:是否对邮件主机进行登陆认证

  --utl_smtp.helo(main_conn,mail_host);

   utl_smtp.ehlo(mail_conn, mail_host);

  --登陆认证语句 utl_smtp.command(mail_conn, 'AUTH LOGIN');

  --对用户及密码进行加密

   utl_smtp.command(mail_conn, demo_base64.encode(utl_raw.cast_to_raw(user_name)));

   utl_smtp.command(mail_conn, demo_base64.encode(utl_raw.cast_to_raw(user_pwd)));

  --指定发件人 utl_smtp.mail(mail_conn, p_sender);

  --指定收件人 utl_smtp.rcpt(mail_conn, p_recipient);

  --开始写邮件内容 utl_smtp.open_data(mail_conn);

  --指定显示的发件人,注意这边的显示的发件人可以上面指定发件人不同

  --这实际上是SMTP协议的缺陷,也是造成垃圾邮件主要原因

  utl_smtp.write_data(mail_conn, 'From:' || p_sender || utl_tcp.CRLF); utl_smtp.write_data(mail_conn, 'To:' || p_recipient || utl_tcp.crlf);

  --邮件主题:中文必须进行编码转换,否则会乱码 utl_smtp.write_raw_data(mail_conn, utl_raw.cast_to_raw(convert('Subject:' || p_subject || utl_tcp.CRLF, 'ZHS16GBK')));

  --设置邮件内容模式为HTML,也可以直接设置文本Content-Type:text/plain

  utl_smtp.write_raw_data(mail_conn, utl_raw.cast_to_raw(convert('Content-Type:text/html;

   charset=GBK' || utl_tcp.CRLF, 'ZHS16GBK')));

   utl_smtp.write_data(mail_conn, utl_tcp.CRLF);

  --邮件正文 utl_smtp.write_raw_data(mail_conn, utl_raw.cast_to_raw(convert(p_body, 'ZHS16GBK')));

  --关闭连接 utl_smtp.close_data(mail_conn); utl_smtp.quit(mail_conn); exception when utl_smtp.transient_error or utl_smtp.permanent_error then utl_smtp.quit(mail_conn);

   raise_application_error(-20000, sqlerrm);

  when others then raise_application_error(-20001, 'The send mail was error ' || sqlerrm);

  end;

  ②发送带有附件的邮件

  declare

  p_sender varchar2(30) := '[email protected]';

  p_recipient varchar2(30) := '[email protected]';

  p_subject varchar2(50) := 'PL/SQL发邮件、带链接、带附件';

  p_body long := 'PL/SQL发邮件、带链接带附件

  这是邮件正文内容啦!这是带附件的啦!!

  进行ORACLE ERP';

  mail_conn utl_smtp.connection;

  mail_host varchar2(15) := 'mail.hek.cn';

  user_name varchar2(156) := '[email protected]';

  user_pwd varchar2(156) := 'metalink'; --发附件要用到的变量

  L_FIL BFILE; L_FILE_LEN NUMBER;

  L_MODULO NUMBER; L_PIECES NUMBER;

  L_FILE_HANDLE UTL_FILE.FILE_TYPE;

  L_AMT BINARY_INTEGER:=672*3;/* ensures proper format; 2016 */

  L_FILEPOS PLS_INTEGER:=1;/* pointer for the file */

  L_CHUNKS NUMBER; L_BUF RAW(2100); L_DATA RAW(2100);

  L_MAX_LINE_WIDTH NUMBER:=54; L_LINE VARCHAR2(1000);

  L_MESG VARCHAR2(32767);

  BOUNDARY CONSTANT VARCHAR2(256) := '-----7D81B75CCC90D2974F7A1CBD';

  FIRST_BOUNDARY CONSTANT VARCHAR2(256) := '--' || BOUNDARY || utl_tcp.CRLF;

   LAST_BOUNDARY CONSTANT VARCHAR2(256) := '--' || BOUNDARY || '--' || utl_tcp.CRLF;

  --发送带有附件邮件,MIME必须设为multipart/mixed

  MULTIPART_MIME_TYPE CONSTANT VARCHAR2(256) := 'multipart/mixed; boundary="'|| BOUNDARY || '"';

  begin

  --创建一个TCP MAIL连接

  mail_conn := utl_smtp.open_connection(mail_host, 25);

  --ehlo与helo的区别:是否对邮件主机进行登陆认证 -

  -utl_smtp.helo(main_conn,mail_host);

   utl_smtp.ehlo(mail_conn, mail_host);

  --登陆认证语句 utl_smtp.command(mail_conn, 'AUTH LOGIN');

  --对用户及密码进行加密

   utl_smtp.command(mail_conn, demo_base64.encode(utl_raw.cast_to_raw(user_name)));

   utl_smtp.command(mail_conn, demo_base64.encode(utl_raw.cast_to_raw(user_pwd)));

  --指定发件人

  utl_smtp.mail(mail_conn, p_sender); --指定收件人

   utl_smtp.rcpt(mail_conn, p_recipient); --开始写邮件内容

   utl_smtp.open_data(mail_conn);

  utl_smtp.write_data(mail_conn, 'From:' || p_sender || utl_tcp.CRLF);

   utl_smtp.write_data(mail_conn, 'To:' || p_recipient || utl_tcp.crlf);

  utl_smtp.write_data(mail_conn, 'Subject: ' || p_subject || utl_tcp.crlf);

  --中文编码转换

   utl_smtp.write_raw_data(mail_conn,utl_raw.cast_to_raw(convert('Subject:' ||p_subject ||utl_tcp.CRLF,'ZHS16GBK'))); utl_smtp.write_raw_data(mail_conn,utl_raw.cast_to_raw(convert('Content-Type:'||MULTIPART_MIME_TYPE||utl_tcp.CRLF,'ZHS16GBK')));

  --utl_tcp.CRLF 数据流行尾符

  utl_smtp.write_data(mail_conn, utl_tcp.CRLF); -

  -邮件正文

  utl_smtp.write_data(mail_CONN, FIRST_BOUNDARY);

   utl_smtp.write_raw_data(mail_conn,utl_raw.cast_to_raw(convert('Content-Type:text/html;charset=GB2312' ||utl_tcp.CRLF, 'ZHS16GBK')));

  utl_smtp.write_data(mail_conn, utl_tcp.CRLF);

  utl_smtp.write_raw_data(mail_conn,utl_raw.cast_to_raw(convert(p_body, 'ZHS16GBK')));

  utl_smtp.write_data(mail_conn, utl_tcp.CRLF);

  --附件格式

  utl_smtp.write_data(mail_CONN, FIRST_BOUNDARY);

   utl_smtp.write_raw_data(mail_conn,utl_raw.cast_to_raw(convert('Content-Type:text/html;charset=GB2312' ||utl_tcp.CRLF, 'ZHS16GBK')));

  utl_smtp.WRITE_RAW_DATA(mail_conn, UTL_RAW.CAST_TO_RAW(CONVERT('Content-Disposition' || ':' ||'attachment;filename="'||'qq.xls"' || utl_tcp.CRLF, 'ZHS16GBK')));

   utl_smtp.write_raw_data(mail_conn,utl_raw.cast_to_raw(convert('Content-Transfer-Encoding:base64'||utl_tcp.CRLF,'ZHS16GBK')));

  utl_smtp.write_data(mail_CONN, UTL_TCP.CRLF);

  --附件二进制流

  BEGIN

  --把附件分成多份,这样可以发送超过32K的附件

  L_FILEPOS := 1;

  --CREATE OR REPLACE DIRECTORY U_FIEL AS '/data/book/'

  --qq.xls附件放在ORACLE服务器/data/book/下,注意大写

  L_FIL := BFILENAME('U_FIEL', 'qq.xls');

  L_FILE_LEN := DBMS_LOB.GETLENGTH(L_FIL);

  L_MODULO := MOD(L_FILE_LEN, L_AMT);

  L_PIECES := TRUNC(L_FILE_LEN / L_AMT);

  IF (L_MODULO <> 0) THEN L_PIECES := L_PIECES + 1; END IF;

  DBMS_LOB.FILEOPEN(L_FIL, DBMS_LOB.FILE_READONLY);

  DBMS_LOB.READ(L_FIL, L_AMT, L_FILEPOS, L_BUF);

  L_DATA := NULL; FOR I IN 1 .. L_PIECES LOOP L_FILEPOS := I * L_AMT + 1;

  L_FILE_LEN := L_FILE_LEN - L_AMT;

   L_DATA := UTL_RAW.CONCAT(L_DATA, L_BUF);

  L_CHUNKS := TRUNC(UTL_RAW.LENGTH(L_DATA) / L_MAX_LINE_WIDTH);

  IF (I <> L_PIECES) THEN L_CHUNKS := L_CHUNKS - 1;

  END IF;

   utl_smtp.write_raw_data(MAIL_CONN, UTL_ENCODE.BASE64_ENCODE(L_DATA));

  L_DATA := NULL;

  IF (L_FILE_LEN < L_AMT AND L_FILE_LEN > 0) THEN L_AMT := L_FILE_LEN;

  END IF;

   DBMS_LOB.READ(L_FIL, L_AMT, L_FILEPOS, L_BUF);

  END LOOP;

  DBMS_LOB.FILECLOSE(L_FIL);

  EXCEPTION WHEN OTHERS THEN DBMS_LOB.FILECLOSE(L_FIL);

  utl_smtp.WRITE_DATA(mail_CONN, UTL_TCP.CRLF);

  RAISE;

  END;

  --结束处理二进制附件

  --关闭连接

   utl_smtp.close_data(mail_conn); utl_smtp.quit(mail_conn);

   exception when utl_smtp.transient_error or

   utl_smtp.permanent_error then utl_smtp.quit(mail_conn);

   raise_application_error(-20000, sqlerrm);

  when others then

  utl_smtp.quit(mail_conn);

  DBMS_OUTPUT.put_line(sqlerrm);

  end;

点此发表你的看法>>【已有位网友发表了看法】

  EBS配置文件(Profile)常用设置

  ORACLE ERP开发基础之EBS开发基础_第79张图片

  IE打不开EBS

  ①症状:一直停留在EBS弹出式窗体,显示正在加载FORMS。

  解决:安装SUN JDK1.4,并将JVM.DLL替换掉X:/Program Files/Oracle/JInitiator 1.3.1.21/bin/hotspot

  ②症状:无法查看工作流状态图(view datagram)

  解决:安装微软的虚拟机msjavx86.exe。

  获取EBS的查询语句

  1.帮助=>诊断=>检查

  ORACLE ERP开发基础之EBS开发基础_第80张图片

  2.在块中输入SYSTEM、在字段中输入LAST_QUERY,就可以得到查询的SQL语句。

  ORACLE ERP开发基础之EBS开发基础_第81张图片

 

 

你可能感兴趣的:(Oracle,EBS)