Form开发积累的常用代码.doc

《Form开发积累的常用代码.doc》由会员上传分享，免费在线阅读，更多相关内容在行业资料-天天文库。

1、获取当前窗口GET_VIEW_PROPERTY(GET_ITEM_PROPERTY(:SYSTEM.CURSOR_ITEM,ITEM_CANVAS),WINDOW_NAME)设置金额显示格式PROCEDUREFORMAT_PRICE(EVENTVARCHAR2)ISBEGIN IF(EVENTIN('WHEN-VALIDATE-ITEM','POST-QUERY'))THENAPP_ITEM_PROPERTY.SET_PROPERTY('LINES.SUGGESTED_PRICE',FORMAT_MASK, 

2、    FND_CURRENCY.GET_FORMAT_MASK(:ORDERS.CURRENCY_CODE,GET_ITEM_PROPERTY('LINES.SUGGESTED_PRICE',MAX_LENGTH)));   APP_ITEM_PROPERTY.SET_PROPERTY('LINES.TOTAL_PRICE',FORMAT_MASK,    FND_CURRENCY.GET_FORMAT_MASK(:ORDERS.CURRENCY_CODE,GET_ITEM_PROPERTY('LINES.

3、TOTAL_PRICE',MAX_LENGTH))); ELSE      FND_MESSAGE.DEBUG('Invalideventpassedtolines.format_price'

4、

5、EVENT); ENDIF;ENDFORMAT_PRICE;获取帐户帐套，帐户CODE相关信息     /*=====================================     **PROCEDURE:   pre_form     **=================================

6、====*/     procedurepre_formis                 cursorsob_cur(sob_idnumber)is     SELECTsob.set_of_books_id,                        sob.currency_code,                       sob.chart_of_accounts_id                  FROMgl_sets_of_bookssob                 WHE

7、REsob.set_of_books_id=sob_id;                      l_coa_id   number;           l_sob_id number;           l_currency_codevarchar2(15);           l_org_id   number;           l_order_num_modevarchar2(10);     begin               --SetofBooksID      l_sob_id

8、:=fnd_profile.value('GL_SET_OF_BKS_ID');            --orgid      l_org_id:=fnd_profile.value('ORG_ID');     if(l_org_idisnull)then        fnd_message.set_name('FND','PROFILES-CANNOTREAD');        fnd_message.set_token('OPTION','ORG_ID');        fnd_message.

9、error;        raiseform_trigger_failure;     endif;          opensob_cur(l_sob_id);     fetchsob_curintol_sob_id,l_currency_code,l_coa_id;     closesob_cur;     :parameter.currency_code:=l_currency_code;               l_order_num_mode:=fnd_profile.value('TR

10、N_PO_ORDER_NUM_TYPE_036');          --Stashvaluesawayforfuturereference  -- :parameter.org_id:=to_number(l_org_id);     --:parameter.set_of_books_id:=to_number(l_sob_id);          :parameter.chart_of_a