pre-form

pre-form
FND_STANDARD.FORM_INFO('$Revision: 110.0 $', 'Arpayment Form', 'FND',
                       '$Date: 97/04/01 15:07:47 $', '$Author: appldev $');
app_standard.event('PRE-FORM');
app_window.set_window_position('CHOE_HEADER', 'FIRST_WINDOW');
app_window.set_window_position('CHOE_HEADER','CENTER','CHOE_HEADER');

--FND_ORG.CHOOSE_ORG;
:GLOBAL.V_SEQ_ID:=0;
:GLOBAL.V_PERIOD:='Period01-07';
:System.Message_Level := 20;
:GLOBAL.v_header_id :=0;

when-new-form-instance
:GLOBAL.V_USER_ID:=fnd_profile.value('USER_ID');
:GLOBAL.V_LOGIN_ID:=fnd_profile.value('LOGIN_ID');
:GLOBAL.V_DATE :=SYSDATE;
:GLOBAL.V_CCID:=fnd_profile.value('GL_SET_OF_BKS_ID');
:GLOBAL.V_ORG_ID:=fnd_profile.value('ORG_ID');
--:GLOBAL.V_ORGANIZATION_ID:=fnd_profile.value('MFG_ORGANIZATION_ID');

 

GO_BLOCK('CHOE_HEADER');

来自 “ ITPUB博客 ” ，链接：http://blog.itpub.net/12122734/viewspace-548812/，如需转载，请注明出处，否则将追究法律责任。

转载于:http://blog.itpub.net/12122734/viewspace-548812/