EBS-FORM开发.docxVIP

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(Cannot delete master record when matching detail records exist.); RAISE Form_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)|| ||can not be blank, please enter|| ||GET_ITEM_PROPERTY(p_item,PROMPT_TEXT));fnd_message.show; RAISE form_trigger_failure;带有提示YES OR NOwin_nm := get_view_property(canvas_nm,WINDOW_NAME);FND_MESSAGE.SET_STRING(Do you want to save the changes you have made?);ln_quest_count := FND_MESSAGE.QUESTION(Yes ,No ,Cancel,NULL); IF ln_quest_count =1 THEN DO_KEY(COMMIT_FORM);clear_block(no_validate);app_custom.close_window(win_nm); ELSIF ln_quest_count = 2 THENclear_block(no_validate);app_custom.close_window(win_nm); ELSENULL; END IF;5：Insert intoINSERT INTO…. EXCEPTION WHEN OTHERS THENfnd_message.set_string(SQLERRM || : || SQLCODE);fnd_message.ERROR; RAISE form_trigger_failure6: UpdateUpdate…. EXCEPTION WHEN OTHERS THENfnd_message.set_string(SQLERRM || : || SQLCODE);fnd_message.ERROR; RAISE form_trigger_failure7: Delete DELETE FROM XX_OM_INT_ROUTING_HEADERS WHERE routing_header_id= :BLK_ROUTING_HEADERS.routing_header_id; IF (SQL%NOTFOUND) THENRAISE NO_DATA_FOUND; END IF;8: lock_id PROCEDURE lock_rowIS CURSOR c_row IS SELECT * FROM XX_OM_INT_ROUTING_HEADERS WHERE ROWID = :BLK_ROUTING_HEADERS.row_id FOR UPDATE OF routing_header_id NOWAIT;recc_row%ROWTYPE;i NUMBER := 0; BEGIN LOOP BEGINi := i + 1; OPEN c_row; FETCH c_row INTO rec; IF (c_row