ORACLE EBS 二次开发整理.doc

一、 开始开发标准FORM1. 输出不必要的BLOCKNAME，DETAILBLOCK。（包括数据块，画布，窗口）2. 修改触发器:PRE-FORMFND_STANDARD.FORM_INFO(版本号，名称，模块，日期，作者)；APP_WINDOW.SET_WINDOW_POSITIN(第一个窗口名称,FIRST_WINDOW);FND_ORG.CHOOSE_ORG；选择组织APP_WINDOW.SET_TITLE(窗体名称，:_code)；3. 修改程序单元：app_customer:close_window4. 编译 f60gen module=/porcli/applmgr/1159/au/11.5.0/forms/ZHS/IAQTEST01.fmb userid=apps/simple4u output_file=/porcli/applmgr/1159/inv/11.5.0/forms/ZHS/IAQTEST01.fmx module_type=form batch=no compile_all=yesf60gen apps/pre_insert, pre_update中加入代码：fnd_standard.set_who 二、 QUERY FIND 制作一. 把APPSTAND 的QUERY FIND 对象组拉到 开发的FORM上，选择子类。二. 在目的数据块的添加QUERY FIND （BLOCK LEVEL，注：可以从FORM LEVEL拷贝），然后修改代码 app_find.query_find (block_window VARCHAR2, -目的数据块 find_window VARCHAR2, -查询窗口 find_block VARCHAR2) -查询数据块4在QUERY FIND里面添加文本项等查询内容。3在目的数据块添加PRE-QUERY(BLOCK LEVEL)，添加代码如下： IF :parameter.G_query_find = TRUE THENAPP_FIND.QUERY_RANGE(:QUERY_FIND.CDATE_FROM, :QUERY_FIND.CDATE_TO, MAIN.CREATION_DATE);APP_FIND.QUERY_RANGE(:QUERY_FIND.ITEM_FROM, :QUERY_FIND.ITEM_TO, MAIN.SEGMENT1);APP_FIND.QUERY_RANGE(:QUERY_FIND.DESC_FROM, :QUERY_FIND.DESC_TO, MAIN.DESCRIPTION); :parameter.G_query_find := FALSE;END IF;三、 FOLDER 制作1. 添加附加程序库： APPFLDR.pll.2. 把APPSTAND 的STANDARD FOLDER 对象组拉到 开发的FORM上，选择子类。3. 在目的画布上画一个堆叠画布，之类信息选择CANVAS_STACKED。4. 创建一个数据块，作为创建数据块的FOLDER使用，子类信息选择BLOCK。5. 把需要放到FOLDER的数据项放到堆叠画布上，把这些数据项的提示全部去掉，然后给每一个数据项创建一个提示，提示用显示项做（基于新建数据块），子类信息选择FOLDER_PROMPT_MULTIROW，显示项名称和对应的数据项名称必须相同。6. 创建三个按钮（基于新建数据块），名称分别是ORDER_BY1,ORDER_BY2,ORDER_BY3,之类信息选择之类信息选择FOLDER_ORDER_BY,把这三个按钮放在堆叠画布上（放在看不见的区域）。7. 在原来画布上创建一个FOLDER_OPEN按钮（基于新建数据块），之类信息选择FOLDER_OPEN。8. 在原来画布上创建一个FOLDER_TITLE显示项（基于新建数据块），之类信息选择DYNAMIC_TITLE。9. 在新建的数据块上创建一个FOLDER_DUMMY,之类信息选择FOLDER_DUMMY。10. FOLDER_ACTION（form level）触发器的代码修改，修改如下： -message(You must modify the FOLDER_ACTION trigger in your form!);app_folder.event(:global.folder_action);11. 修改WHEN-NEW-FORM-INSTANCE代码，修改如下：app_folder.define_folder_blockapp_folder.event(INSTANTIATE);12. 把APPSTAND的SAMPLE_FOLDER数据块的TRIGGER全部靠到原来数据库上。(添加块的trigger。新增Pre-Query、Post-Query、Key-Prev-Item、Key-Next-Item、Key-ExeQry 、Key-EntQry、When-New-Record-Instance、Post-Block、Pre-Block，When-New-Block-Instance, Key-Prvrec,Key-Nxtrec, Key-Clrblk, Key-Clrrec, Query_Find以上Trigger均直接引用标准Standard Trigger ,如:app_folder.event(KEY-PREV-ITEM);)四、 DATE的使用1. ITEM的LOV属性选择ENABLE_LAMP_LIST2. LOV for Validation属性选择false3. 增加Item级trigger:key_listvalue calendar.show;4. 并注意时间的长度格式五、 FND_ORG.CHOOSE_ORG的使用注：FND_ORG.CHOOSE_ORG 需要创建的参数：CHART_OF_ACCOUNTS_ID(Number)ORG_NAME(Char)ORG_CODE(Char)ORG_ID(Number)六、 说明性弹性域使用1. 注册table以及column 利用ad_dd package beginad_dd.register_table(p_appl_short_name=CUS ,p_tab_name = actuant_task_lists_all,p_tab_type = T );end; beginad_dd.register_column(p_appl_short_name =CUS , p_tab_name = actuant_task_lists_all, p_col_name =ATTRIBUTE9 , p_col_seq = 9, p_col_type =VARCHAR2 , p_col_width =250 , p_nullable = Y, p_translate = N);end; 2. Application中Flex Table的定义 Application Developer GUIFlexfieldDescriptiveRegister3. 增加Item属性继承text_item_desc_flex,并显示于canvas上4. 增加一些标准trigger FORM LEVELa.定义flex的trigger when_new_form_instance FND_DESCR_FLEX.DEFINE(BLOCK=ACTUANT_TASK_LISTS_ALL, FIELD=DESC_FLEX, APPL_SHORT_NAME =CUS, DESC_FLEX_NAME =Actuant Header Flex);b. PREQUERY FND_FLEX.EVENT(PRE-QUERY);c. POSTQUERY FND_FLEX.EVENT(POST-QUERY);d. PREINSERT FND_FLEX.EVENT(PRE-INSERT);e. PREUPDATE FND_FLEX.EVENT(PRE-UPDATE);f. WHENVALIDATERECORD FND_FLEX.EVENT(WHEN-VALIDATE-RECORD);g. WHENNEWITEMINSTANCE FND_FLEX.EVENT(WHEN-NEW-ITEM-INSTANCE);5. 弹性栏位的开启和编译七、 关键性弹性域使用1. 添加代码，ID，描述3个项，继承TEXT_ITEM子类2. 增加一些标准trigger FORM LEVELa.定义flex的trigger when_new_form_instance fnd_key_flex.define( BLOCK = CONTRACTS, field = SUB_CODE, id = SUB_ID, description = SUB_DESC, appl_short_name = SQLGL, code = GL#, num = nvl(to_number(fnd_profile.VALUE(MFG_CHART_OF_ACCOUNTS_ID), -1), -STRUCTURE Number required = N, validate = FULL, usedbflds = N); b. PREQUERY FND_FLEX.EVENT(PRE-QUERY);c. POSTQUERY FND_FLEX.EVENT(POST-QUERY);d. PREINSERT FND_FLEX.EVENT(PRE-INSERT);e. PREUPDATE FND_FLEX.EVENT(PRE-UPDATE);f. WHENVALIDATERECORD FND_FLEX.EVENT(WHEN-VALIDATE-RECORD);g. WHENNEWITEMINSTANCE FND_FLEX.EVENT(WHEN-NEW-ITEM-INSTANCE);3. 弹性栏位的开启和编译八、 Special菜单的制作1. 增加一个User_Named的trigger,并改名SPECIALn（1=n=15)2. 在PREFORM中调用app_special.instantiate 来注册菜单项 app_special.instantiate(SPECIAL1, Approve, , FALSE); parameter2: Special上显示的