二次开发整理

1、一、 开始开发标准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/appl

2、mgr/1159/au/f60gen <Form Name> apps/<apps password>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 VA

3、RCHAR2, -查询窗口 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, :QUER

4、Y_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_

5、STACKED。4. 创建一个数据块，作为创建数据块的FOLDER使用，子类信息选择BLOCK。5. 把需要放到FOLDER的数据项放到堆叠画布上，把这些数据项的提示全部去掉，然后给每一个数据项创建一个提示，提示用显示项做（基于新建数据块），子类信息选择FOLDER_PROMPT_MULTIROW，显示项名称和对应的数据项名称必须相同。6. 创建三个按钮（基于新建数据块），名称分别是ORDER_BY1,ORDER_BY2,ORDER_BY3,之类信息选择之类信息选择FOLDER_ORDER_BY,把这三个按钮放在堆叠画布上（放在看不见的区域）。7. 在原来画布上创建一个FOLDER_OPEN按

6、钮（基于新建数据块），之类信息选择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. 修改

7、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-Ins

8、tance, 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的使用注：F

9、ND_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_d

10、d.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. Appli

11、cation中Flex Table的定义 Application Developer GUIàFlexfieldàDescriptiveàRegister3. 增加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',

12、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-RECO

13、RD);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',

14、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. PRE

15、QUERY 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: Spe