ORACLE EBS 二次開發(fā)整理.doc

一、 開始開發(fā)標(biāo)準(zhǔn)FORM1. 輸出不必要的BLOCKNAME，DETAILBLOCK。（包括數(shù)據(jù)塊，畫布，窗口）2. 修改觸發(fā)器: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 對象組拉到 開發(fā)的FORM上，選擇子類。二. 在目的數(shù)據(jù)塊的添加QUERY FIND （BLOCK LEVEL，注：可以從FORM LEVEL拷貝），然后修改代碼 app_find.query_find (block_window VARCHAR2, -目的數(shù)據(jù)塊 find_window VARCHAR2, -查詢窗口 find_block VARCHAR2) -查詢數(shù)據(jù)塊4在QUERY FIND里面添加文本項等查詢內(nèi)容。3在目的數(shù)據(jù)塊添加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 對象組拉到 開發(fā)的FORM上，選擇子類。3. 在目的畫布上畫一個堆疊畫布，之類信息選擇CANVAS_STACKED。4. 創(chuàng)建一個數(shù)據(jù)塊，作為創(chuàng)建數(shù)據(jù)塊的FOLDER使用，子類信息選擇BLOCK。5. 把需要放到FOLDER的數(shù)據(jù)項放到堆疊畫布上，把這些數(shù)據(jù)項的提示全部去掉，然后給每一個數(shù)據(jù)項創(chuàng)建一個提示，提示用顯示項做（基于新建數(shù)據(jù)塊），子類信息選擇FOLDER_PROMPT_MULTIROW，顯示項名稱和對應(yīng)的數(shù)據(jù)項名稱必須相同。6. 創(chuàng)建三個按鈕（基于新建數(shù)據(jù)塊），名稱分別是ORDER_BY1,ORDER_BY2,ORDER_BY3,之類信息選擇之類信息選擇FOLDER_ORDER_BY,把這三個按鈕放在堆疊畫布上（放在看不見的區(qū)域）。7. 在原來畫布上創(chuàng)建一個FOLDER_OPEN按鈕（基于新建數(shù)據(jù)塊），之類信息選擇FOLDER_OPEN。8. 在原來畫布上創(chuàng)建一個FOLDER_TITLE顯示項（基于新建數(shù)據(jù)塊），之類信息選擇DYNAMIC_TITLE。9. 在新建的數(shù)據(jù)塊上創(chuàng)建一個FOLDER_DUMMY,之類信息選擇FOLDER_DUMMY。10. FOLDER_ACTION（form level）觸發(fā)器的代碼修改，修改如下： -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數(shù)據(jù)塊的TRIGGER全部靠到原來數(shù)據(jù)庫上。(添加塊的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均直接引用標(biāo)準(zhǔn)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 需要創(chuàng)建的參數(shù)：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. 增加一些標(biāo)準(zhǔn)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. 彈性欄位的開啟和編譯七、 關(guān)鍵性彈性域使用1. 添加代碼，ID，描述3個項，繼承TEXT_ITEM子類2. 增加一些標(biāo)準(zhǔn)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中調(diào)用app_special.instantiate 來注冊菜單項 app_special.instantiate(SPECIAL1, Approve, , FALSE); parameter2: Special上顯示的