资源描述：
《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.');
2、RAISEForm_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、
7、'cannotbeblank,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_M
12、ESSAGE.QUESTION('Yes','No','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…
13、.EXCEPTIONWHENOTHERSTHENfnd_message.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_O
22、M_INT_ROUTING_HEADERSWHERErouting_header_id=: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_h
23、eader_idNOWAIT;recc_row%ROWTYPE;iNUMBER:=0;BEGINLOOPBEGINi:=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
24、_ROUTING_HEADERS.ROUTING_HEADER_ID)THENRETURN;ELSEfnd_message.set_name('FND','FORM_RECORD_CHANGED');fnd_message.error;RAISEFORM_TRIGGER_FAILURE;ENDIF;EXCEPTION
