PACKAGE BODY CUXPOTEST IS
  PROCEDURE handle_event(event IN VARCHAR2) IS
  BEGIN
  	IF event = ‘PRE-FORM‘ THEN
			fnd_standard.form_info(‘$Revision: 120.1 $‘,
                             ‘CUXPOTEST‘,
                             ‘CUX‘,
                             ‘$Date: 2018/05/24 11:02  $‘,
                             ‘$Author: hand $‘);
			app_window.set_window_position(‘MAIN‘,‘FIRST_WINDOW‘);
			
			--设置窗口弹出位置
			app_window.set_window_position(‘MAIN‘,‘CENTER‘);
			
			/*--选择库存组织
	    fnd_org.choose_org;
	    
	    --设置窗口名称
	    app_window.set_title(‘MAIN‘,
                         	 :parameter.org_code);*/
  
    ELSIF event = ‘WHEN-NEW-FORM-INSTANCE‘ THEN
  		null;
	    
	    --add list
	    /*control.add_list(item   		=> ‘QUERY_FIND.STATUS‘,
  									 	 item_group => ‘STATUS_QF‘);*/

    ELSE
      app_exception.invalid_argument(‘cuxpotest.handle_event‘,‘EVENT‘,event);
    END IF;
  END handle_event;
END;

FND_STANDARD.FORM_INFO(‘$Revision: 120.12                                                                                                                                             $‘,
                       ‘Template Form‘, ‘CUX‘,
                       ‘$Date: 2018/12/19 11:02  $‘, ‘$Author: appldev $‘);
app_standard.event(‘PRE-FORM‘);
app_window.set_window_position(‘MAIN‘, ‘FIRST_WINDOW‘);
CUXPOTEST.handle_event(‘PRE-FORM‘);

FDRCSID(‘$Header: TEMPLATE.fmb 120.12 level:4 2013/10/14 19:16:28 pkm ship                                                                                                                                                                                                                                                             $‘);
APP_STANDARD.EVENT(‘WHEN-NEW-FORM-INSTANCE‘);

--template_folder.handle_event(‘WHEN-NEW-FORM-INSTANCE‘);

CUXPOTEST.handle_event(‘WHEN-NEW-FORM-INSTANCE‘);

:p_block_name, 块名称
:p_table_name,  表名称
:p_owner, 用户
:p_primary_key  主键

触发器内容：
CALENDAR.SHOW;

触发器内容：
IF :PO_HEADERS.CURRENCY_CODE<>‘CNY‘ THEN
	fnd_message.debug(‘币种必须输入CNY‘);
	raise form_trigger_failure;
	end if;

触发器内容：
set_item_property(‘PO_HEADERS.COMMENTS‘,INSERT_ALLOWED,PROPERTY_FALSE);
set_item_property(‘PO_HEADERS.COMMENTS‘,UPDATE_ALLOWED,PROPERTY_FALSE);

包体：
PACKAGE BODY CONTROL IS
  PROCEDURE add_list(item IN VARCHAR2,
                    item_group IN VARCHAR2) IS
          l_errcode NUMBER;
   BEGIN
  l_errcode := populate_group(item_group);
 
  IF l_errcode=0 THEN
    clear_list(item);
    populate_list(item,item_group);
    ELSE
      app_exception.invalid_argument(‘control.add_list‘,‘EVENT‘,item);
  END IF;
  END add_list; 
END;

 CONTROL.ADD_LIST(ITEM => ‘PO_HEADERS.PO_NUMBER‘,
	　　　　　　　　ITEM_GROUP => ‘LIST_TEST‘);