Oracle ERP FORM开发学习操作手册(11)

FORM开发无法使用调试器进行断点调试，因此，假如需要在运行时观察某个变量运行到当前代码时的值是多少，可以借助以下方法进行，主要是借助弹出式窗口显示出当前变量的内容。

1. 在“程序单元”中创建显示“过程”，如图所示：

图69

2. 输入如下代码：

PROCEDURE CUST_SHOW_MESSAGE(MsgName IN VARCHAR2) IS i number; BEGIN --FND_MESSAGE.set_name为Oracle提供函数，用于将信息设置到产品上，最终显示可能根据语言环境和产品预先的配置实现--翻译效果，完整的用法可能需要搭配FND_MESSAGE.set_token，本函数参数依次为： --产品的SHORT_NAME，信息文字 FND_MESSAGE.set_name('TCSA',MsgName); --FND_MESSAGE.question为Oracle提供的函数，用于弹出Question类型窗口，参数依次为： -- 第一个按钮文字，第二个按钮文字，第三个按钮文字，默认按钮位置，取消按钮位置，窗口图标 i := FND_MESSAGE.question('Yes','','',1,2,3); END; 3. 在需要监视的地方插入CUST_SHOW_MESSAGE调用，例如下图所示，是在进入该函数时

弹出显示当前event变量的值

图70

3.1.6如何实现关键字弹性域

1. 在Form级别的触发器WHEN-NEW-FORM-INSTANCE 中添加初始化关键字弹性域代码，

下面例子中的代码是取商品关键字弹性域的编码，本代码中的参数不通用，注意理解代码中的注释 同 VALIDATE =>'FULL', --不理解此参数含义 ID =>'CATEGORY_ID', --记录弹性域ID，关键字弹性域Oracle中 NUM => :PARAMETER.P_ITEM_CAT_STRUCTURE_ID, --上面SQL语 WHERE_CLAUSE => '(NVL(DISABLE_DATE,SYSDATE+1) > SYSDATE)'); --有效条--获取相关的关键字定义ID_FLEX_NUM到P_ITEM_CAT_STRUCTURE_ID参数中 select ID_FLEX_NUM INTO :PARAMETER.P_ITEM_CAT_STRUCTURE_ID from FND_ID_FLEX_STRUCTURES_VL WHERE ID_FLEX_CODE = 'MCAT' AND ID_FLEX_STRUCTURE_CODE = 'CUSTOMS_CATELOGIES'; -- 调用Oracle标准包FND_KEY_FLEX.DEFINE完成初始化关键字弹性域 FND_KEY_FLEX.DEFINE(BLOCK =>'CT_LINES', APPL_SHORT_NAME =>'INV', CODE =>'MCAT', --弹性域所在数据块 --界面上显示的弹性域字段 FIELD =>'CATEGORY_NAME', --WHERE语句中的ID_FLEX_CODE和ID_FLEX_STRUCTURE_CODE需要依照实际情况更改 --弹性域产品名，依照实际情况进行更改 --与上面SQL语句的条件中的ID_FLEX_CODE相实际上主要记录ID 句找到的ID 件，本例子中，表达式表示DISABLE_DATE要大于SYSDATE或者为空才有效） 2. 在‘参数’中创建上诉代码需要使用的P_ITEM_CAT_STRUCTURE_ID，如图：