EBS_FORM_开发:关于切换不同BLOCK的时候弹出需要保存的窗口
在开发的时候发现这样一个问题,当切换不同BLOCK的时候弹出需要保存的窗口,于是想在切换record的时候,自动commit一下,结果发现很多触发器都不允许commit_form的函数.于是就有了两个思路:
1.利用KEY-NEXT-ITEM
Declare
l_LINE_record Number;
l_MID_record Number;
l_MEND_record Number;
Begin
If :MEND.MEND_SCORE Is Not Null Then
:PARAMETER.CURRENT_KEY_MODE := 'KEY-NEXT-ITEM';
APP_CUSTOM.open_window('LINES');
Go_Block('MID');
l_MID_record := :MID.LINE_NUMBER;
:PARAMETER.CUR_MID_REC := l_MID_record+1;
l_MID_record := :PARAMETER.CUR_MID_REC;
if :PARAMETER.CUR_MID_REC > :MID.MAX_LINE_NUMBER THEN
FND_MESSAGE.SET_STRING('该项已完成评价!');
FND_MESSAGE.HINT;
ELSE NULL;
END IF;
Go_record(l_MID_record);
clear_message;
Go_Block('MEND');
GO_ITEM('MEND.MEND_SCORE');
:PARAMETER.CURRENT_KEY_MODE := 'WHEN-VALIDATE-ITEM';
End If;
End;
在item的WHEN-VALIDATE-ITEM加入
Begin
---当有变更,而且CURRENT_KEY_MODE(输入之后的导航类型)不是KEY-NEXT-ITEM的时候,必须用tab按键或者enter导航!
--FND_MESSAGE.DEBUG('WHEN-VALIDATE-ITEM1');
IF :MEND.MEND_SCORE IS NOT NULL AND NVL(:PARAMETER.CURRENT_KEY_MODE,'WHEN-VALIDATE-ITEM') <> 'KEY-NEXT-ITEM' THEN
FND_MESSAGE.SET_STRING('请注意:该栏位输入之后,请按Tab按键或者Enter按键导航!');
FND_MESSAGE.HINT;
--RAISE FORM_TRIGGER_FAILURE;---禁止用户用鼠标点击导航!
END IF;
--FND_MESSAGE.DEBUG('WHEN-VALIDATE-ITEM2');
End;
代码这里可能存在一点问题,依据自己的需要进行修改.
2.利用POST-RECORD
这里利用函数:
/*后来直接在post-record中写ddl语句,
如果record_status是INSERT或者CHANGED就触发,
然后form_ddl('commit');再把record_status设为query,就完成了自动保存*/
declare CURSOR row_id IS SELECT rowid FROM CUX_HRPE_MEND_T WHERE MEND_ID = :MEND.MEND_ID; BEGIN if GET_RECORD_PROPERTY(:SYSTEM.CURSOR_RECORD,'MEND',Status ) = 'INSERT' THEN --MEND_DATA.LOCK_ROW; --FND_MESSAGE.DEBUG('插入'); IF :LINES.LINE_ID IS NULL THEN SELECT CUX_HRPE_LINES_t_S.NEXTVAL INTO :LINES.LINE_ID FROM SYS.DUAL; :MEND.LINE_ID := :LINES.LINE_ID; END IF; IF :MID.MID_ID IS NULL THEN SELECT CUX_HRPE_MID_t_S.NEXTVAL INTO :MID.MID_ID FROM SYS.DUAL; :MEND.MID_ID := :MID.MID_ID; END IF; IF :MEND.MEND_ID IS NULL THEN SELECT CUX_HRPE_MEND_T_S.NEXTVAL INTO :MEND.MEND_ID FROM SYS.DUAL; END IF; fnd_standard.set_who; INSERT INTO CUX_HRPE_MEND_T ( MEND_ID, MID_ID, LINE_ID, HEADER_ID, MEND_ORGANIZATION_ID, MEND_PERSON_ID, MEND_SCORE, MEND_VALUE, MEND_CAUSE, MEND_DATE, MEND_SUBMIT_FLAG, CREATED_BY, CREATION_DATE, LAST_UPDATED_BY, LAST_UPDATE_DATE, LAST_UPDATE_LOGIN, ATTRIBUTE_CATEGORY, ATTRIBUTE1, ATTRIBUTE2, ATTRIBUTE3, ATTRIBUTE4, ATTRIBUTE5, PEOPLE_COUNT, SCD_PERCENT) VALUES ( :MEND.MEND_ID, :MEND.MID_ID, :MEND.LINE_ID, :MEND.HEADER_ID, :MEND.MEND_ORGANIZATION_ID, :MEND.MEND_PERSON_ID, :MEND.MEND_SCORE, :MEND.MEND_VALUE, :MEND.MEND_CAUSE, :MEND.MEND_DATE, :MEND.MEND_SUBMIT_FLAG, :MEND.CREATED_BY, :MEND.CREATION_DATE, :MEND.LAST_UPDATED_BY, :MEND.LAST_UPDATE_DATE, :MEND.LAST_UPDATE_LOGIN, :MEND.ATTRIBUTE_CATEGORY, :MEND.ATTRIBUTE1, :MEND.ATTRIBUTE2, :MEND.ATTRIBUTE3, :MEND.ATTRIBUTE4, :MEND.ATTRIBUTE5, :MEND.PEOPLE_COUNT, :MEND.SCD_PERCENT); OPEN row_id; FETCH row_id INTO :MEND.row_id; IF (row_id%NOTFOUND) THEN CLOSE row_id; RAISE NO_DATA_FOUND; END IF; CLOSE row_id; forms_ddl('COMMIT'); set_record_property(:system.trigger_record,:system.trigger_block, STATUS,QUERY_STATUS); ELSIF GET_RECORD_PROPERTY(:SYSTEM.CURSOR_RECORD,'MEND',Status ) = 'CHANGED' THEN IF :MEND.MEND_ID IS NOT NULL THEN fnd_standard.set_who; UPDATE CUX_HRPE_MEND_T SET MEND_ID = :MEND.MEND_ID, MID_ID = :MEND.MID_ID, LINE_ID = :MEND.LINE_ID, HEADER_ID = :MEND.HEADER_ID, MEND_ORGANIZATION_ID = :MEND.MEND_ORGANIZATION_ID, MEND_PERSON_ID = :MEND.MEND_PERSON_ID, MEND_SCORE = :MEND.MEND_SCORE, MEND_VALUE = :MEND.MEND_VALUE, MEND_CAUSE = :MEND.MEND_CAUSE, MEND_DATE = :MEND.MEND_DATE, MEND_SUBMIT_FLAG = :MEND.MEND_SUBMIT_FLAG, CREATED_BY = :MEND.CREATED_BY, CREATION_DATE = :MEND.CREATION_DATE, LAST_UPDATED_BY = :MEND.LAST_UPDATED_BY, LAST_UPDATE_DATE = :MEND.LAST_UPDATE_DATE, LAST_UPDATE_LOGIN = :MEND.LAST_UPDATE_LOGIN, ATTRIBUTE_CATEGORY = :MEND.ATTRIBUTE_CATEGORY, ATTRIBUTE1 = :MEND.ATTRIBUTE1, ATTRIBUTE2 = :MEND.ATTRIBUTE2, ATTRIBUTE3 = :MEND.ATTRIBUTE3, ATTRIBUTE4 = :MEND.ATTRIBUTE4, ATTRIBUTE5 = :MEND.ATTRIBUTE5, PEOPLE_COUNT = :MEND.PEOPLE_COUNT, SCD_PERCENT = :MEND.SCD_PERCENT WHERE ROWID = :MEND.row_id; IF (SQL%NOTFOUND) THEN RAISE NO_DATA_FOUND; END IF; forms_ddl('COMMIT'); set_record_property(:system.trigger_record,:system.trigger_block, STATUS,QUERY_STATUS); else FND_MESSAGE.DEBUG('UPDATE插change的时候没有mendid'); END IF; else null; end if; END;