资源描述：
《EBS-FORM开发》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。
1、Close_FORM('XX_FORM001');show_window('XX_FORM001',4,0.5);1：定义fnd_descr_flex.define(BLOCK=>'BLK_ROUTING_LINES',field=>'DESC_FLEX',appl_short_name=>'XX',desc_flex_name=>'XX_OM_INT_ROUTING_LINES');2：Message('Cannotdeletemasterrecordwhenmatchingdetailrecordsexist.');RAISEForm
2、_Trigger_Failure;go_block('BLK_ROUTING_HEADERS');hide_window('WIN_STEP');app_window.set_coordination('WHEN-WINDOW-CLOSED',:BLK_REP_STEP_CTL.COORDINATION_STEP,'R_ROUTING_HEADER_STEPS');3设置弹出信息fnd_message.set_string(GET_ITEM_PROPERTY(p_item,PROMPT_TEXT)
3、
4、''
5、
6、'cannotbeblank,
7、pleaseenter'
8、
9、''
10、
11、GET_ITEM_PROPERTY(p_item,PROMPT_TEXT));fnd_message.show;RAISEform_trigger_failure;带有提示YESORNOwin_nm:=get_view_property(canvas_nm,WINDOW_NAME);FND_MESSAGE.SET_STRING('Doyouwanttosavethechangesyouhavemade?');ln_quest_count:=FND_MESSAGE.QUESTION('Yes','No',
12、'Cancel',NULL);IFln_quest_count=1THENDO_KEY('COMMIT_FORM');clear_block(no_validate);app_custom.close_window(win_nm);ELSIFln_quest_count=2THENclear_block(no_validate);app_custom.close_window(win_nm);ELSENULL;ENDIF;5：InsertintoINSERTINTO….EXCEPTIONWHENOTHERSTHENfnd_message.
13、set_string(SQLERRM
14、
15、':'
16、
17、SQLCODE);fnd_message.ERROR;RAISEform_trigger_failure6:UpdateUpdate….EXCEPTIONWHENOTHERSTHENfnd_message.set_string(SQLERRM
18、
19、':'
20、
21、SQLCODE);fnd_message.ERROR;RAISEform_trigger_failure7:DeleteDELETEFROMXX_OM_INT_ROUTING_HEADERSWHERErouting_header_id=:
22、BLK_ROUTING_HEADERS.routing_header_id;IF(SQL%NOTFOUND)THENRAISENO_DATA_FOUND;ENDIF;8:lock_idPROCEDURElock_rowISCURSORc_rowISSELECT*FROMXX_OM_INT_ROUTING_HEADERSWHEREROWID=:BLK_ROUTING_HEADERS.row_idFORUPDATEOFrouting_header_idNOWAIT;recc_row%ROWTYPE;iNUMBER:=0;BEGINLOOPBE
23、GINi:=i+1;OPENc_row;FETCHc_rowINTOrec;IF(c_row%NOTFOUND)THENCLOSEc_row;fnd_message.set_name('FND','FORM_RECORD_DELETED');fnd_message.error;RAISEFORM_TRIGGER_FAILURE;ENDIF;CLOSEc_row;IFec.ROUTING_HEADER_ID=:BLK_ROUTING_HEADERS.ROUTING_HEADER_ID)THENRETURN;ELSEfnd_message.s
24、et_name('FND','FORM_RECORD_CHANGED');fnd_message.error;RAISEFORM_TRIGGER_FAILURE;ENDIF;EXCEPTION
