轻松学习 代码片段.docxVIP

销售订单提交拟定：ELSIFname_in(parameter.ACTIONS) = SUBMIT_DRAFTTHEN/* * * 客户化提交拟定 * */cux_actions_submit_draft.submit_draft;--Added by jingyuan.wang 2015-01-16--如果提交拟定后的状态是‘等待内部批准’，则将这条报价单导入BPM系统IF :order.flow_status_code = PENDING_INTERNAL_APPROVALTHENcux_call_bpm_pkg.submit_request(p_bpm_type = BPM-007, p_source_id = :order.header_id, x_request_id = x_request_id);IFx_request_id 0THENIFNOTapp_form.quietcommitTHENRAISEform_trigger_failure;ENDIF;fnd_message.set_name(FND, CONC-SUBMITTED REQUEST);fnd_message.set_token(REQUEST_ID, to_char(x_request_id));fnd_message.show;ENDIF;ENDIF;--End AddedForm中调用其它Form功能：BEGINapp_navigate.execute(CUXDISONHAND,Y,Y,P_ORG_ID = || :line.ship_from_org_id || || P_INVENTORY_ITEM_ID= || :line.inventory_item_id || );END;文件夹初始化：--WHEN-NEW-FORM-INSTANCEBEGINfdrcsid($Header: CUXPAESTBILTYP.fmb 117.39 2014/12/10 22:52:55 pkm ship $);app_standard.event(WHEN-NEW-FORM-INSTANCE);END;app_folder.define_folder_block(CUXPAESTBILTYP, BILL_TYPE, BILL_TYPE_PROMPT, BILL_TYPE_STK, MAIN, , , BILL_TYPE_FIX);app_folder.event(INSTANTIATE);app_folder.define_folder_block(object_name = TEMPLATE_FOLDER_FD2,folder_block_name = PAY_OU_RELATION,prompt_block_name = PAY_OU_RELATION_PROMPT,folder_canvas_name = PAY_OU_RELATION_STK,folder_window_name = MAIN,disabled_functions = ,tab_canvas_name = MAIN_TAB,fixed_canvas_name = PAY_OU_RELATION_FIX);app_folder.event(INSTANTIATE);表增删改锁API：BEGINhand_public_util.table_handle_pkg(p_table_name = CUX_PA_ESTIMATE_BILL_TYPE, p_owner = CUX, p_primary_key = TYPE_ID);END;BEGINhand_public_util.form_table_handle(p_block_name = BILL_TYPE,p_package_name = CUX_PA_ESTIMATE_BILL_TYPE_PKG,p_table_name = CUX_PA_ESTIMATE_BILL_TYPE,p_primary_key = TYPE_ID);EN