本文是在学习了retail rms下开发form的一点点心得。主要涉及内容是Form和Reports的开发。本文是在商云方经理的retail blog上取得原始资料，吸取了项目组很多同事的经验，非常感谢他们。本文档所描述的内容，可能只是Retail客户化开发的冰山一角，形如管中窥豹，希望后面有机会开发rms 的同事能从这篇文档里获得一些帮助，并对rms客户化开发文档进一步完善。
商云方经理的blog地址：http://blog.retailsolution.cn/
Retail 为Form开发提供了一个模板 fm_temp1.fmb ，本项目在/d01/app/retail/rms/app/rms/forms/src目录下，该模板基本上已经将retail form涉及到的底层代码写好(比如实现多语言的调用等)，我们在开发一个新的form的时候，只要在该模板的基础上实现自己的业务逻辑就行了。
另外，还有一个模板fm_date.fmb，用来做和日期相关的操作，最常见的是做LOV。比如，和EBS一样，我们需要选择日期，弹出一个选则日期的LOV，就要用到这个文件。
Retail的form界面风格和EBS有点不同，给我的总体感觉是布局比较灵活，比较接近我们客户化的风格。它的一个block在界面上显示出来的字段一般比较少，现在还没有发现使用folder的情况。很可惜，也没有类似EBS的弹性域，因为其数据库表结构没有弹性域字段，我认为这是Retail需要改进的一个地方。
注：有的地方叫法为Retek，实际上也是指的retail。
1. 有EBS的使用经验，尤其是Form的使用经验
2. 熟悉PL/SQL
3. 熟悉Telnet和FTP工具，熟悉Windows常规操作
4. 理解或开发过数据库应用系统
5. 有Form(EBS Form)开发经验则更佳
用户
1. OS用户：包括超级用户root，用于上传编译开发的form
2. 数据库开发用户，比如本项目中rms12dev，用于数据库的操作，比如使用pl/sql developer开发package等
3. Rms开发管理用户，比如本项目的rms12dev，用于在rms系统中调试
注： 关于Rms用户，将在“新增RMS”用户讲到
工具
1. telnet工具 ：如SecureCRT登录服务器，编译form和pll；连接服务器，SecureFX下载必要文件、上传开发的Form
2. Form builder： 安装developer10gr2（安装好后包括Form builder/Reports builder/Sql*pls/Jdeveloper）
3. 配置Form编辑环境：
客户端：
在D盘建立 retail_resource 目录
从服务器下载 /d01/app/retail/rms/app/rms/forms 目录
从服务器下载 /d01/app/retail/rms/app/toolsets 目录
Regedit
hkey_local_machine/software/oracle/KEY_DevSuiteHome1
编辑item ： forms_path
添加
D:\Retail_Resource\forms\src;D:\Retail_Resource\toolset\src;D:\Retail_Resource\toolset\bin;
D:\Retail_Resource\forms\bin
服务器端配置
建立一个环境变量文件：rmsformsvr.env （创建在/home/oracle/)，其内容如下：（环境不同，有些变量名称、路径不同）
ORACLE_HOME=/d01/app/oracleas/OraHome_1
export ORACLE_HOME
DISPLAY=syfr12:1.0
INSTALL_DIR=/d01/app/retail/rms/app
export INSTALL_DIR
PATH=$ORACLE_HOME/bin:$ORACLE_HOME/opmn/bin:$ORACLE_HOME/dcm/bin:$INSTALL_DIR/
forms10gr2_scripts:$PATH
CLASSPATH=$ORACLE_HOME/jlib/importer:$ORACLE_HOME/jlib/debugger.jar:$ORACLE_HOME/
jlib/utj.jar:$ORACLE_HOME/jlib/ewt3.jar:$ORACLE_HOME/jlib/share.jar:$ORACLE_HOME/
jlib/dfc.jar:$ORACLE_HOME/jlib/help4.jar:$ORACLE_HOME/jlib/oracle_ice.jar:$ORACLE_HOME/
jlib/jewt4.jar
FORMS_BUILDER_CLASSPATH=$CLASSPATH
FORMS_PATH=$INSTALL_DIR/toolset/bin:$INSTALL_DIR/rms/forms/bin:$ORACLE_HOME/forms
REPORTS_PATH=$INSTALL_DIR/rms/reports/bin:$ORACLE_HOME/forms
TK_UNKNOWN==$ORACLE_HOME/guicommon/tk/admin
UP=rms12dev/rms12dev@RETL
LD_LIBRARY_PATH=$ORACLE_HOME/lib:$ORACLE_HOME/jdk/jre/lib/sparc:$ORACLE_HOME/jdk/jre/lib
/sparc/native_threads
export DISPLAY PATH CLASSPATH FORMS_BUILDER_CLASSPATH FORMS_PATH REPORTS_PATH TK_UNKNOWN UP LD_LIBRARY_PATH
注：本小节资料由商云方提供 http://blog.retailsolution.cn/blog/index.php/rms-form-compile
感性认识
下面用几张图片来感性认识下rms form界面风格
<图1-1> rms登录界面
<图1-2> 用rms12dev登录后的主界面(rms12dev为开发管理员)
<图1-3> 查询界面以及LOV，查询界面类似ebs中点击“手电筒”后的查询窗口，区别是这里是一个单独的Form。
<图1-4> 主要业务逻辑处理界面，布局比较灵活。
<图1-5> 打印报表，点击“打印”后会显示<图1-6>所示画面。
<图1-6> 在运行报表前，需要再登录一次
<图1-7> 报表参数输入
<图1-8> 报表运行结果
Form获取
如果要修改一个Form，怎么知道它的名称呢？从界面上可以看到form的名字。比如下图中的recutadj，然后在/d01/app/retail/rms/app/rms/forms/src目录下（不同项目此目录可能目录不同）找到recutadj.fmb，下载之。
<图1-9> 通过界面查看Form名称
按Retail的习惯，开发一个新的form,一般需要开发下面4个文件，但不是所有的都是必须的。
查找form，在打开“真正”的业务处理form fm_XXX.fmb之前，需要打开这个查找form，该form的作用是选择本次操作的类型查询出数据，一般操作类型有三种，“查看”，“编辑”，“新建”。如果是“新建”，则直接打开form_XXX来新建业务；如果是“查看”，则通过该form查到到业务记录，调用fm_XXX查看业务细节，fm_XXX的项都是不可编辑的；如果是“编辑”，则调用fm_XXX查看业务细节，并可对业务细节数据进行编辑。 当在RMS主界面上双击rms菜单项时，一般是打开该form，再由该Form调用fm_XXX。
使用fm_XXX_find，是因为Retail form中没有EBS的 F11，Ctl+F11等快捷键，也没有EBS中“查找”窗体。我们也可以不使用这个form，只要在打开form fm_XXX.fmb的时候能够确定本次操作是查看，编辑或者新建就好了。比如，同一个form我们需要不同权限的人来打开，有的权限是查看，有的是编辑，有的是新建。这时候，我们只要在菜单上给每个权限挂不同的菜单项，并对每个菜单项设置打开form的默认模式即可。
<图2-1>
<图2-2> 在<图2-1>所示界面点击“搜索”后，显示Form的另一个Canvases。
这是实现业务逻辑的主要form。该form由fm_XXX_find.fmb调用open_form打开，open_form会使用一些参数，比如打开新form的状态是view，edit或者是new；或者是业务自己规定的一些变量。
<图2-3>
fm_XXX.fmb所对应的主菜单。一般情况下，新开发的form不需要新建菜单，直接使用系统默认的菜单。除非业务功能特别多，需要菜单来实现。
<图2-4>
fm_XXX.fmb处理业务逻辑所调用的package。如果业务逻辑比较复杂，建议建立一个这样的package，来实现业务逻辑，这样可以简化form的复杂度。
先看一个简单例子，来演示一下RMS form的开发过程。
建立gmlsupreconfind.fmb。实现
界面
<图3-1>
<图3-2>
实现过程
1. 打开fm_temp1，将Module（FM_TEMPL）改为FM_GMLSUPRECONFIND,另存为gmlsupreconfind.fmb。
2. 新建一个data block，名称为B_MAIN，非数据库block。
3. 在B_MAIN下建立如下图界面（红线圈内）所示的非数据库Item，和ebs下步骤一样，就不多说了。这里只是演示建立block，其Canvas后面建立。（红线内的按钮先不管，后面将LOV的时候会讲到）
<图3-3>
4. 新建一个data block，名称为B_ACTION，非数据库block。
5. 在B_ACTION下建立如下界面（红线圈内）所示的非数据库Item，都是push button类型的。
<图3-4>
6. 新建一个data block，名称为B_SUPRECON，数据库block，基于表GML_INVC_STM_HEAD。其上的Item都不能insert、update、delete。因为这里只是将数据显示出来。将实现的效果如下：
<图3-5>
<图3-6>
7. 新建一个data block，名称为B_COL_HEAD，在B_COL_HEAD下建立如下界面（红线圈内）所示的非数据库Item，主要是按钮，一方面用来做上一步中建立的Item的标题，另一个用途主要是排序（点击某列上的按钮，则按该列排序，实际上是加上order by重新查询一次）。
<图3-7>
8. 建立Canvas: C_MAIN，type 为content。
9. 建立Canvas: C_SUPRECON，type为stacked。
10. 将B_MAIN上的Item放在C_MAIN上（见图3），将B_SUPPECON上的Item放在C_SUPPECON上（见图6），B_ACTION上的Item放C_MAIN上（见图4）。如
11. 建立W_MAIN，将C_MAIN和C_SUPPECON的window属性都设成W_MAIN，注意调整C_SUPPECON的位置和大小。需调整位置的大小和原因见下一步。
12. 建立:B_ACTION.PB_SEARCH（那个Search按钮）的WHEN-BUTTON-PRESSED事件：
BEGIN
if not FORM_SUCCESS then
raise FORM_TRIGGER_FAILURE;
end if;
show_View(‘C_SUPRECON’);–C_SUPRECON
P_MULTIVIEW.GO_MULTIVIEW_BLOCK(‘C_SUPRECON’);–已有的form是这样写的，但我这样写的时候会报一大堆错。记住这里实现的就是显示C_SUPRECON，代码可以自己重写
RWIDGET.TURN_OFF(‘B_main.LI_action’);
RWIDGET.TURN_ON(‘B_action.PB_back’);
RWIDGET.TURN_ON(‘B_action.PB_ok’);
RWIDGET.TURN_ON(‘B_action.PB_REFRESH’);–retail标准的函数RWID.TRUN_OFF，RWID.TRUN_OFF，实现Item的enabled属性
EXCEPTION
when FORM_TRIGGER_FAILURE then
Raise;
when OTHERS then
emessage(SQLERRM);
Raise FORM_TRIGGER_FAILURE;
END;
13. 建立:B_ACTION.PB_OK（OK按钮）的WHEN-BUTTON-PRESSED事件：
该事件实现：在C_SUPPECON界面上，点击“OK”按钮，打开fm_SUPPECON。
DECLARE
L_action VARCHAR2(10) := :B_main.LI_action;
BEGIN
Issue_Savepoint(‘CALL_FORM’);
if L_action = ‘NEW’ then
P_CALL_FORM(‘NEW’);
elsif L_action = ‘VIEW’ then
P_CALL_FORM(‘VIEW’);
elsif L_action = ‘EDIT’ then
P_CALL_FORM(‘EDIT’);
end if;
EXCEPTION
when FORM_TRIGGER_FAILURE then
Issue_Rollback(‘CALL_FORM’);
raise;
when OTHERS then
emessage(SQLERRM);
raise FORM_TRIGGER_FAILURE;
END;
14. P_CALL_FORM
PROCEDURE P_CALL_FORM(p_action varchar2) IS
L_action VARCHAR2(10) := :B_main.LI_action;
PARAM_LIST PARAMLIST;
PL_id VARCHAR2(9) := ‘gml_supreconfind’;
L_exists VARCHAR2(1) := ‘N’;
L_settlement_id GML_INVC_STM_HEAD.SETTLEMENT_ID%TYPE;
BEGIN
— destroy the parm list if still present
P_DESTROY_PARAMETER_LIST(PL_id);
PARAM_LIST := Create_Parameter_List(PL_id);
— add parameters
add_parameter(PARAM_LIST,
‘PM_MODE’,
TEXT_PARAMETER,
L_action);
add_parameter(PARAM_LIST,
‘PM_settlement_id’,
TEXT_PARAMETER,
L_settlement_id);
— call the program
open_form(‘gmlsuprecom’,
ACTIVATE,
SESSION,
PARAM_LIST);
EXCEPTION
when FORM_TRIGGER_FAILURE then
Raise;
END P_CALL_FORM;
fm_SUPPECON建立完毕。
15. 现在开始写fm_XXX.fmb，其开发过程和fm_XXX_find一样，也是从fm_temp1来。主要要建立三个习惯上的Block：
B_ACTION：和fm_XXX.fmb一样，用于放下面的一排按钮。
B_XXX：基于表的一个block。和ebs下一样。当然，可能还有主从结构的。
<图3-8>
16. B_APPLYS：类似EBS下的“Control”block，控制块。
其他的可以自由发挥，只要便于后面的人维护就好。这里，不再详细叙述。
17. me_XXX.mmb菜单我们在后面专门来叙述。
18. 如果form fm_XXX.fmb要用到package，需要在数据库中建立package。
到此，开发一个form的基本流程基本演示完毕，用户在使用的时候，会一次看到以下的画面。
<图3-1>
<图3-2>
<图3-8>
下面看一看retail开发的一些函数和技巧，这些多是retail标准的。
Form：Retail没有统一规则，一般以客户名简写加通俗易懂的字母/单词（比如：gmlgmlsuprecom.fmb，gml为客户名称简写）下面我们自己取名将以XXX替代。
Module：一般命名为FM_XXX（比如：FM_GMLCONSMRGN）；
Block：一般命名为 B_XXX（比如：B_ACTION）；
Cavans:：一般命名为C_XXX（比如：C_CONSMRGN）；
Window：一般命名为W_XXX（比如：W_CONSMRGN）；
Item：一般是Text Item命名为TI_XXX，List Item命名为LI_XXX，Check Box命名为CB_XXX，按钮命名为PB_XXX…按此规律命名即可；只要大家一看都能明白就好。
Retail的多语言，和EBS不同。EBS是在不同的语言环境放置不同语言的form程序，retail则只有一个form程序，它将需要显示给用户看的项的label，存放在数据库的特定表里，如果一个可视项有多种语言，则一个项在表里就有多条记录，当form启动的时候，在Form级WHEN-NEW-FORM-INSTANCE 触发器中，通过P_FORM_STARTUP->P_INITIALIZE 将Form中的每个Item和Item对应Label项取出来(该逻辑在fm_temp1中已经写好了)，我们要做的是将这些项和它们对应的语言手工取出来，放入数据库的特定表中。
Form的多语言：
Form的语言是放在表form_elements_langs和form_elements中的。
其获取语言的sql如下：
select fe.block_name,
fe.item_name,
fe.sub_item_name,
fe.item_type,
nvl(fel.lang_label_prompt, fe.default_label_prompt) label_prompt,
nvl(fel.lang_access_key,fe.default_access_key) access_key ,fel.lang
from form_elements_langs fel,
form_elements fe
where fe.fm_name = ‘FM_ORDHEAD’/*I_form*/–by Form
and upper(fe.fm_name) = upper(fel.fm_name(+))
and upper(fe.block_name) = upper(fel.block_name(+))
and upper(fe.item_name) = upper(fel.item_name(+))
and upper(fe.sub_item_name) = upper(fel.sub_item_name(+))
and 8/*L_user_lang*/ = fel.lang(+)–by user Language
and fe.default_label_prompt is not NULL;
所以，需要向表form_elements_langs和form_elements中插入每个需要显示的项的信息。比如，在供应商维护form(SUPVWEDT)中有一个供应商代码(SUPPLIER)字段，查询这两个表
select * from form_elements where fm_name=’FM_SUPVWEDT’ and item_name=’SUPPLIER’
FM_NAME BLOCK_NAME ITEM_NAME ITEM_TYPE SUB_ITEM_NAME DEFAULT_LABEL_PROMPT DEFAULT_ACCESS_KEY BASE_IND
FM_SUPVWEDT B_SUPS SUPPLIER Text Item NONE Supplier Y
字段描述：
FM_NAME： FM_||Form文件的名字
BLOCK_NAME： 该项(SUPPLIER)所在的block名字，如没有，就写”NONE”
ITEM_NAME： 该项(SUPPLIER)名
ITEM_TYPE： 项的类型，这里是 Text Item，还有Push Button，Window，LOV等，这里一定要写正确项的类型
SUB_ITEM_NAME： 子项，目前我写的还没用到
DEFAULT_LABEL_PROMPT： 如果表form_elements_langs中没有设置语言标签，则用这个
DEFAULT_ACCESS_KEY ： 快捷键
BASE_IND： 目前还没搞清是什么意思，表里设置的都是’Y’
上面这个表里，是设置form拥有的元素，要实现多语言，还需要在表form_elements_langs中插入数据。这个表结构和form_elements差不多，只不过少了字段ITEM_TYPE，多了Lang字段，Lang字段就是语言的种类。目前取值有8(中文)和1(英文)。如果要设置两种语言，则要插入2笔数据。
这样，一个form可视项的多语言就设置成功了。
Retail这样设置多语言，感觉太麻烦，每一个项都这样设置一遍，一个form的工作量很大的。
Menu的多语言：
和form差不多，它的表示menu_elements和menu_elements_langs。
注：form的多语言是指form上的提示信息，如Item标题，message，Lov标题等，不能像ebs的表fnd_lookup一样，表里的数据是多语言的。
Form的初始化，写在Form的WHEN-NEW-FORM-INSTANCE触发器中。调用的主要过程有：
P_FORM_STARTUP->P_INITIALIZE、P_BOILERPLATE，这几个procedure都是fm_temp1中写好的，我们不用改变。我们需要添加的是自己的逻辑。
A. 初始化List Item
初始化List Item，要调用P_POPULATE_LIST(p_item_name varchar2,p_para varchar2)，这个过程(该过程原型在stand45中)，比如：P_POPULATE_LIST(‘B_apply.LI_cons_rev_freq’, ‘GCRF’)中，’B_apply.LI_cons_rev_freq’指List Item的名(一定要加上block的名)，’GCRF’是表code_detail里的code_type字段。基本原理是该过程先定义一个cursor：
select code,code_desc from code_detail where code_type=’GCRF’
然后把code和code_desc赋给List Item，所以，List Item的动态值都来源于code_detail，做一个新的List Item之前，需要向这个表里插入数据。当然，也可以在程序里面写死
显示错误提示，使用函数emessage(p_msg varchar2)，如：
emessage(‘This_is_a_err_msg’);
raise form_trigger_failure;
错误提示也是分多语言的。所有的提示信息都放在rtk_errors表中，表里有一个三个重要字段
rtk_key: 比如这里的’This_is a err_msg’
rtk_lang: 语言
rtk_text: 提示信息；
比如在这个表里存在下面两条记录，则根据不同语言环境提示rtk_text的内容：
rtk_key rtk_lang rtk_text
This_is_a_err_msg 1 This is a err msg
This_is_a_err_msg 8 这个是错误信息
如果表里没有对应的提示信息，则直接显示emessage(‘This_is_a_err_msg’)中的参数，即’This_is_a_err_msg’
注：该过程原型：
PROCEDURE EMESSAGE (I_key varchar2,
I_txt_1 varchar2 := null,
I_txt_2 varchar2 := null,
I_txt_3 varchar2 := null) IS
l_ret_val BOOLEAN;
BEGIN
L_ret_val := RMESSAGE.SHOW (‘ALT_ERROR’, I_key, I_txt_1, I_txt_2, I_txt_3);
END;
Retail的Lov的展现一般不会像ebs中，ebs中，一般是鼠标落在某个text item的项上，弹出某个lov，retail是在这个项的后面有一个按钮，当点击这个按钮的时候，会弹出一个lov，选择lov中的东西，再把选择的东西赋值给该item。
创建一个Lov的过程：
Step1. 建立一个Lov，指定其返回给那些项。
Step2. 在需要Lov的Text Item的后面加一个按钮项(按钮项的图标：日期按钮的图标名称 calendsm，一般Lov 按钮的图标名称 listval，备注按钮的图标名称 smaltalk)
Step3. 在按钮下写如下代码：
Go_Item(‘B_ordhead.supplier’);–先把光标移到Text Item上
Do_Key(‘List_Values’);–显示Lov
特别，创建弹出日期的Lov过程：
Step1. 打开我们自己写的form的同时，打开fm_date.fmb(这个文件是标准程式)。
Step2. 将fm_date下Object Group下的OG_DATE,拖动到自己的Object Group下，将弹出提示，这时选择“复制”。
Step3. 将calend45.pll添加进来。
Step4. 添加显示日期的text Item的when-new-item-instance事件：
另外，有一种情况也需要注意：
当需要根据不同的情况，动态显示不同的LOV。比如一个Text Item项里，但参数Para1为’学生’时，调用’学生’Lov(LOV_STUDENT)，当Para1为’教师’时候，显示’教师’LOV(LOV_TEACHER)。这种情况，需要在Text Item的KEY-LISTVAL触发器中添加如下代码：
if :Para1= ‘学生’ then
if F_SHOW_LOV(LOV_STUDENT’) then
Do_Key(‘Next_Item’);
end if;
elsif :Para1= ‘教师’ then
if F_SHOW_LOV(LOV_TEACHER’) then
Do_Key(‘Next_Item’);
end if;
end if;
F_SHOW_LOV函数定义在标准package stand45中。
BEGIN
Validate(Item_Scope);
if not FORM_SUCCESS then
raise FORM_TRIGGER_FAILURE;
end if;
—
if (P_CALENDAR.LP_date_ok is not NULL) then
if (P_CALENDAR.LP_date_ok = ‘Y’) then
:B_MAIN.TI_SETTLEMENT_DATE := P_CALENDAR.LP_current_date;
P_CALENDAR.LP_date_ok := NULL;
Do_Key(‘Next_Item’);
else
P_CALENDAR.LP_date_ok := NULL;
end if;
end if;
EXCEPTION
when FORM_TRIGGER_FAILURE then
raise;
when OTHERS then
emessage(SQLERRM);
raise FORM_TRIGGER_FAILURE;
END;
Step5. 添加显示日期的text Item的key-listval事件：
DECLARE
L_return_to VARCHAR(256) := ‘B_main.TI_settlement_date’;
L_min_date DATE := NULL;
L_max_date DATE := INTERNAL_VARIABLES.GP_vdate;
L_default_date DATE := INTERNAL_VARIABLES.GP_vdate;
BEGIN
Validate(Item_Scope);
if not FORM_SUCCESS then
raise FORM_TRIGGER_FAILURE;
end if;
—
P_CALENDAR.SHOW_CALENDAR(L_return_to => L_return_to,
L_default_date => L_default_date,
L_min_date => L_min_date,
L_max_date => L_max_date);
EXCEPTION
when FORM_TRIGGER_FAILURE then
raise;
when OTHERS then
emessage(SQLERRM);
raise FORM_TRIGGER_FAILURE;
END;
Step6. 在按钮WHEN-BUTTON-PRESSED事件下写如下代码：
Go_Item (‘B_main.TI_settlement_date’); — B_main.TI_settlement_date是需要得到LOV值得Text Item
Do_Key (‘List_Values’);
Retail的菜单是通过菜单文件(.mmb)来实现的。其真正的事件是代码是在form中，菜单只调用form中的代码。下面以一个例子来说明：
这个例子演示的是增加 供应商维护–〉选项 菜单中，增加“联营保底”，其form文件是supvwedt.fmb，菜单文件是supplier.mmb.。
Step 1. 新建(修改)Menu (我们以supplier.mmb来说明，这个文件已经存在，我们来修改它既可) 在菜单OPTIONS_MENU下新增一个项：
name： GML_CONS_MARGIN
lable： &Consignment Attributes–其实这里的不准，因为我们后面还会改变它的lable
Menu Item Type： Plain
Step 2. 在该Menu下写事件
Execute_Trigger(‘T_cons_margin’);–T_cons_margin是在form中定义的
Step 3. 在Form中写事件 ，注意将form的menu Module属性设置为supplier
在 supplier.mmb 中增加form级trigger
name： T_CONS_MARGIN
execution Hierarchy：Override
其他默认
事件代码：
declare
…………
begin
………. –你自己的事件就写到这里就行了。
Open_Form(‘gmlconsmrgn’,
ACTIVATE,
SESSION,
L_pl_id);
………..
exception ….
…
end;
Step 4. 编译form和Menu
（编译方法参见下一节）
编译好后，将生成的.fmx和.mmx放到bin目录下去
注意：如果没有编译菜单文件生成.mmx并放入bin目录下，则菜单虽然会挂上去，但点击所有的菜单都没有任何事件响应。
Step 5. 支持多语言
首先，执行
select * from menu_elements where menu_filename=’supplier’ for update;
可以看到，菜单选项就是放这个表里的。
字段含义：
menu_filename 菜单文件名
menu_name 菜单名
menu_item_name 菜单选项名，这里我们一般使用英文，随便取一个名字，假设我们取 GML_CONS_MARGIN
default_lable 默认提示标签，如果语言设置里没有找到对应语言的标签，就会用这个
base_ind 目前我也不知道是什么含义，把它设为’Y’
所以，在上面的表里增加一行menu_name 取OPTIONS_MENU（因为我们要挂在“选项”下），menu_item_name 取 GML_CONS_MARGIN，default_lable 取&GML_CONS_MARGIN
其次，在执行
select * from form_menu_link where menu_filename=’supplier’ for update
可以看到，这个表里存放的是menu和form的关系。因为这form和menu的关系已经存在，我们不去修改它。
再次，执行
select * from menu_elements_langs where menu_filename=’supplier’ for update
这个表就是存放多菜单语言的关系表了。它和menu_elements的字段含义差不多，只不过多了一个语言
我们增加一行，语言设置成中文(字段值为8)
最后运行下边的sql检查多语言是否设置成功
select me.menu_name,
me.menu_item_name,
nvl(mel.lang_label, me.default_label) label
from menu_elements_langs mel,
menu_elements me,
form_menu_link fml
where upper(fml.fm_name) = upper(‘fm_supvwedt’)—form名
and upper(fml.menu_filename) = upper(me.menu_filename)
and upper(me.menu_filename) = upper(mel.menu_filename(+))
and upper(me.menu_name) = upper(mel.menu_name(+))
and upper(me.menu_item_name) = upper(mel.menu_item_name(+))
and 8/*L_user_lang*/ = mel.lang(+)–语言
and mel.menu_item_name = ‘GML_CONS_MARGIN’–菜单选项
and mel.menu_name = ‘OPTIONS_MENU’;–菜单名
如果能查到一条数据，就说明菜单多语言设置已经成功了。
根据前面建立的环境变量，Form的编译语句如下：
假如要编译trv.fmb
oracle 用户登录
source rmsformsvr.env
cd $INSTALL_DIR/rms/forms/src
cp rtv.fmb rtv.fmb.bak
frmcmp.sh userid=$UP module=rtv module_type=form
cp $INSTALL_DIR/rms/forms/bin/rtv.fmx $INSTALL_DIR/rms/forms/bin/rtv.fmx.bak
cp -f $INSTALL_DIR/rms/forms/src/rtv.fmx $INSTALL_DIR/rms/forms/bin/
注：后面两句的意思是将原来的.fmx备份，再将编译后生成的文件放到bin目录下，这样才能运行。
编译menu，比如menu名称supplier.mmb，将上面的frmcmp.sh userid=$UP module=rtv module_type=form
换成frmcmp.sh userid=$UP module=supplier module_type=menu,即改变module=menu名,module_type=menu
注：本小节资料有商云方提供 http://blog.retailsolution.cn/blog/index.php/rms-form-compile
一级菜单(folder)
SELECT * FROM NAV_FOLDER WHERE parent_folder IS NULL
二级菜单(folder)
SELECT * FROM NAV_FOLDER WHERE parent_folder =’ORDER_RELATED’ –比如 订购
菜单项(Form)
SELECT * FROM NAV_ELEMENT where element=’cux_jeffdemo’ –Form名是 FM_cux_jeffdemo
SELECT * FROM NAV_ELEMENT_MODE WHERE folder=’ORDER_RELATED’ –Form 挂哪个Menu（folder）下
Menu和 Form对应关系
(头上显示的菜单，不是菜单项)
SELECT * FROM FORM_MENU_LINK WHERE fm_name =’FM_’||upper(‘cux_jeffdemo’) for update
Form和角色的关系
即哪个角色可以看某个Form
SELECT * from NAV_ELEMENT_MODE_ROLE where element = ‘cux_jeffdemo’
用户和角色的关系
SELECT * FROM USER_ROLE_PRIVS WHERE USERNAME = ‘RMS12DEV’
所以，这里存在两种关系：
1. User->Role->Form（一个用户可以看见哪些Form）
User
|
Role1 – Role2
|
Form1-Form2-…FormN
2. Folder->Form (一个Form挂在哪个地方)
Folder
|
Folder-Folder…
|
.
.
.
Folder-Folder…
|
Form1-Form2…
下面以一个实例说明：
将form FM_cux_jeffdemo2 挂在rms系统的“订购”–>“固定交易” 菜单下
Step 1.建立菜单
向 table NAV_FOLDER 中加入一行(“订购”和“固定交易”两个菜单都有，所以不用建立)
Step 2.
向 table NAV_ELEMENT 中加入一行
ELEMENT ELEMENT_TYPE COMPONENT
cux_jeffdemo2 F RMS
–ELEMENT Form 名
–ELEMENT_TYPE 类型 F表示Form
–COMPONENT 挂在RMS下
Step 3.
向 table FORM_MENU_LINK 中加入一行
FM_NAME MENU_FILENAME
FM_CUX_JEFFDEMO2 cux_jeffdemo2
–FM_NAME ‘FM_’ + Form名
–MENU_FILENAME Form名
Step 4.
向 table NAV_ELEMENT_MODE 中加入一行
ELEMENT NAV_MODE FOLDER ELEMENT_MODE_NAME
cux_jeffdemo2 –DEFAULT– FIX_DEAL 客户化Form Demo
–ELEMENT Form名
–NAV_MODE 打开Form的状态 查看(VIEW)-编辑(EDIT)-默认(–DEFAULT–)
–FOLDER Form放哪一个菜单(folder)下
–ELEMENT_MODE_NAME 菜单上显示的 prompt
Step 5.
向 table NAV_ELEMENT_MODE _ROLE中加入一行
ELEMENT NAV_MODE FOLDER ROLE
cux_jeffdemo2 –DEFAULT– FIX_DEAL DEVELOPER
–ELEMENT Form名
–NAV_MODE 打开Form状态，需与上一步一致，否则建立不了(与上一步的table设置了外键)
–FOLDER 同上一步
–Role 该Form分给哪个Role
可以查看表 USER_ROLE_PRIVS 知道用户和Role的对应关系
至此，就可以在rms的菜单项中，看到我们增加的这个菜单了(“客户化Form Demo”)。
Retail报表采用Reports builder开发。和6i下开发EBS报表基本没有区别。使用过6i的话，很快就能开发报表。需要提到的一点就是，根据不同输入参数，报表显示不同格式。
例如下面的报表，输入不同的参数，输出不容的布局。
<图4-1> 参数一
<图4-2> 布局一
<图4-3> 参数二
<图4-4>布局二
该类型的报表开发逻辑是：根据需要，用Reports builder建立两个不同的布局，根据参数显示不同的布局。
上面的这个例子在开发的时候，建立了两个循环框。分别在两个循环框里写如下代码如下：
function R_2FormatTrigger return boolean is
begin
if :P_layout=’1′ then
return (false);
else
return (true);
end if;
end;
function R_1FormatTrigger return boolean is
begin
if :P_layout=’1′ then
return (TRUE);
else
return (false);
end if;
end;
仅需这样，就可以实现上面的效果。以前6i里面直接这样写是不行的，还的在布局里建立一个过程。
Rms下，报表管理做得比较粗劣，下面用一个实例来了解Rms挂报表的方法。Rms报表的运行结果是一个浏览器打开的pdf格式的文件，很遗憾，不能像ebs中的并发请求那样，将结果保存在服务器上，只能保存到本地。
生成格式文件.rep文件
利用写好的报表CUX_GouBaoRep_Demo.rdf生成CUX_GouBaoRep_Demo.rep
（6i开发rdf报表公司资料库有很多资料介绍，10 report builder建立rdf文件和6i差不多，这里不详细介绍了）
1. 将本地编译通过的CUX_GouBaoRep_Demo.rdf文件，上传到 /d01/app/retail/rms/app/rms/reports/src
2. 运行下面的命令
cd /home/oracle
su oracle
source rmsformsvr.env
cd /d01/app/retail/rms/app/rms/reports/src
rwconverter.sh source=CUX_GouBaoRep_Demo.rdf userid=$UP dest=CUX_GouBaoRep_Demo.rep stype=RDFFILE dtype=REPFILE batch=yes
上面的命令会在 /d01/app/retail/rms/app/rms/reports/src 目录下生成 CUX_GouBaoRep_Demo.rep，再将 CUX_GouBaoRep_Demo.rep 剪贴到
/d01/app/retail/rms/app/rms/reports/bin下
注意：生成的.rep文件名如果含有字母，则字母必须是全小写，否则在运行的时候会报找不到报表
在rms中设置报表可用
在后台表RTK_REPORTS添加如下记录
MODULE REPORT_NAME REPORT_DESC PARAMETER_IND PRINTFRM_IND PRINT_MODE SELECT_IND
CUX_GouBaoRep_Demo CUX_GouBaoRep_Demo CUX_GouBaoRep_Description_Demo Y Y A
table RTK_REPORTS 字段说明：
1. MODULE 应该类似于EBS中的模组，但这里随便输入都可以
2. REPORT_NAME 报表名，这个须是报表文件名，比如CUX_GouBaoRep_Demo
3. REPORT_DESC 报表描述，随便取一个用户容易看懂的
4. PARAMETER_IND 只能选择’Y’/’N’,目前还不知道作用，从意义上来看应该和参数有关，但我测试输入’Y’或’N’好像没有什么区别
5. PRINTFRM_IND 只能选择’Y’/’N’,在form上可以打印的时候是否可以选择到该报表，选择’Y’,可在rms form中选择到，否则选不到
6. PRINT_MODE 只能选择’A’/’S’,同PARAMETER_IND，目前也不确定
7. SELECT_IND 不确定,目前系统里都为空
可以看到客户化的报表已经可以运行了。
效果图见：<图1-5>-<图1-8>
RMS系统用户的用户为DB用户，创建非常繁琐，而且需要后台处理，这里总结步骤如下：
1. 在数据库后台创建DB用户。
2. 对创建的用户授予角色权限、系统权限。
/*==================================================
Copyright (C) HAND Enterprise Solutions Co.,Ltd.
AllRights Reserved
==================================================*/
/*==================================================
Program Name:
CREATE RMS USER
Description:
This program create Oracle rms db user and grant all privileges .
History:
1.00 2008-11-10 Kenneth.shao Creation
2.00 2008-11-10 Kenneth.shao Modified
修改角色授权，增加选择角色功能，可以支持授权多个角色，用“,”号分割
如：developer,select_catalog_role
Version:
2.00
==================================================*/
DECLARE
l_user_name VARCHAR2(30) := '&USER_NAME' ;
l_roles VARCHAR2(400) := '&ROLE' ;
l_crt_user varchar2(300) := 'create user '|| l_user_name ||'
identified by "' || l_user_name || '"
default tablespace RETEK_DATA
temporary tablespace TEMP
profile DEFAULT
quota unlimited on lob_data
quota unlimited on retek_data
quota unlimited on retek_index';
l_grant VARCHAR2(4000) ;
BEGIN
--Create user
EXECUTE IMMEDIATE l_crt_user ;
--Grant directory
l_grant := 'grant read on directory SYS.OUTPUT_WORKING to '||l_user_name;
EXECUTE IMMEDIATE l_grant ;
l_grant := 'grant read on directory SYS.UTL_FILE_DIR to '||l_user_name||'
with grant option';
EXECUTE IMMEDIATE l_grant ;
--Grant role privileges
l_grant := 'grant ' || l_roles || ' to '||l_user_name ;
EXECUTE IMMEDIATE l_grant ;
--Grant system privileges
l_grant := 'grant alter session
, analyze any
, create any context
, create any procedure
, create any synonym
, create any table
, create any type
, create database link
, create library
, create materialized view
, create procedure
, create public database link
, create public synonym
, create sequence
, create session
, create synonym
, create table
, create trigger
, create view
, debug connect session
, delete any table
, drop any procedure
, drop any synonym
, drop any table
, execute any procedure
, execute any type
, insert any table
, query rewrite
, select any sequence
, select any table
, update any table to '||l_user_name ;
EXECUTE IMMEDIATE l_grant ;
END ;
3. 为新建DB用户创建RMS12DEV（现行环境下的用户）下对象的同义词
/*==================================================
Copyright (C) HAND Enterprise Solutions Co.,Ltd.
AllRights Reserved
==================================================*/
/*==================================================
Program Name:
CREATE RMS SYNONYM
Description:
This program create all synonym for rms12dev to rms new user .
History:
1.00 2008-11-10 Kenneth.shao Creation
Version:
1.00
==================================================*/
DECLARE
l_user VARCHAR2(30) := '&USER_NAME';
BEGIN
FOR syn_r IN (SELECT DISTINCT 'create or replace synonym '|| l_user || '.' ||
object_name || ' for rms12dev.' || object_name syn
FROM dba_objects
WHERE owner = 'RMS12DEV'
AND object_name NOT LIKE 'BIN$%'
AND object_type IN ('SEQUENCE'
,'PROCEDURE'
,'PACKAGE'
,'LOB'
,'LIBRARY'
,'MATERIALIZED VIEW'
,'TABLE'
,'VIEW'
,'FUNCTION'
,'TYPE')
) LOOP
BEGIN
EXECUTE IMMEDIATE syn_r.syn ;
EXCEPTION
WHEN OTHERS THEN
dbms_output.put_line(syn_r.syn||'-----'||SQLERRM) ;
END ;
END LOOP;
END ;
4. 在RMS系统中设置用户属性，位置：启动->控制->设置->用户属性->新建
选择语言
注：如果没有创建用户，Step4中会提示用户无效。如果没有创建同义词，则用新建的用户进系统的时候会提示对表操作没有权限。
5. 设置用户组，位置：启动->控制->系统->地点/产品安全性->用户/组链接->编辑。（设置之前必须保证组已经建立并赋予一定的权限，这里不详细讲述）。添加一行新的。
到这里为止，用户已经成功创建，只要组已经设置并赋权，用户便可以使用。
可以看出，其实RMS用户是在DB层建立的用户。
注：本小节资料有邵志国提供 http://blog.retailsolution.cn/blog/index.php/retail-rms-user-create
在oracleias 10g中,已经没有report server,被整合到OC4J里，所以，要启动10AS的“Report Server”，只有启动OC4J就可以了。
通过下面命令：
opmnctl status
得到如下输出：
Processes in Instance: formreportsvr.syfr12
——————-+——————–+———+———
ias-component | process-type | pid | status
——————-+——————–+———+———
DSA | DSA | N/A | Down
LogLoader | logloaderd | 11895 | Alive
HTTP_Server | HTTP_Server | 5298 | Alive
dcm-daemon | dcm-daemon | N/A | Down
WebCache | WebCache | 5305 | Alive
WebCache | WebCacheAdmin | 5294 | Alive
OC4J | home | 13643 | Alive
OC4J | OC4J_BI_Forms | 13644 | Alive
可以看到OC4J已经起来了，但在运行报表的时候如下错误：
“http 404”的错误，或者找不到网页的错误
Case
Report Server的配置问题。
Solution
1. 修改rms.env（/d01/app/oracleas/OraHome_1/forms/server/目录下），在后面追加一下内容
具体请参考(Detail请参考 /d01/app/retail/rms/12.0.1下rms-1201-ig.pdf 【Configure Oracle Application Server 10 for RMS Reports】)
/*****************************************************
ORACLE_RMS_REPORTS_HOST=http://syfr12:7778/
ORACLE_RMS_REPORTS_SERVER=rep_syfr12_oracleas1+envid=rms12arep
ORACLE_RMS_RWSERVER=reports/rwservlet
*****************************************************/
注：ORACLE_RMS_REPORTS_HOST=http://<server>:<Listen port>
ORACLE_RMS_REPORTS_SERVER is the value of the reports configuration file without the .conf plus a standard envid (“envid” must be used) and the name of the header inside the configuration file that defines the variable REPORTS_PATH.
2. 修改rep_syfr12_oracleas1.conf（/d01/app/oracleas/OraHome_1/reports/conf目录下）
在标签</server>前添加以下内容(Detail请参考metalink 559039.1)
/*******************************************************
<environment id=”rms12arep”>
<envVariable name=”REPORTS_PATH”
value=”/appl/acc/ah01/rt12/rms/reports/bin:/appl/acc/ise/oras/aoasgm02/reports/reports/
templates:/appl/acc/ise/oras/aoasgm02/reports/reports/samples/demo:/appl/acc/ise/oras/
aoasgm02/reports/integ:/appl/acc/ise/oras/aoasgm02/reports/printers”/>
<envVariable name=”NLS_LANG” value=”AMERICAN_AMERICA.UTF8″/>
</environment>
*******************************************************/
从Retail标准Form来看，新增一个Form,需在SCREEN_SQL中增加一个函数，在Form的初始化过程P_INITIALIZE中会调用SCREEN_SQ.GET_SCREENTEXT，进而调用的新增的函数。一直没弄明白该函数的作用，我自己新建的一个Form，没有做这一个动作，仍然可以运行。
———————————————————————————————————
作者 黄鸿
组别 广州技术一组
2006年正式参加工作，热衷ERP事业，曾在liteonit(广州)实施SFC系统和EBS的二次开发和流程优化工作。2008年6月进入Hand，先后在温州天正协同制造项目，上海购宝零售项目做技术支持工作。对EBS制造、分销方面有开发经验，熟悉的开发工具有form/report/pl sql/discover/xml report 这篇文章是在上海购宝项目期间，做客户化开发过程中所写下的。
要学习的还有很多，同志仍需努力
