Form学习笔记.docxVIP

一、ERP中消息的使用: FND_MESSAGE.SET_NAME(OMS,OMS_PI_STANDARD_ERROR_60); 其中OMS系统当前应用，OMS_PI_STANDARD_ERROR_60是消息名称 FND_MESSAGE.SET_TOKEN(SEGMENT1,:DETAILS.factory_code); 其中SEGMENT1是消息中定义的变量，:DETAILS.factory_code是要传入到SEGMENT1变量中的值。 FND_MESSAGE.ERROR;--提示错误类型(ERROR,SHOW…) 注意：SEGMENT1前面加符号就是变量。 例子： IF :BLOCK.ITEM IS NULL THEN FND_MESSAGE.SET_NAME(OMS,OMS_PI_STANDARD_ERROR_60); FND_MESSAGE.SET_TOKEN(SEGMENT1,:DETAILS.factory_code); FND_MESSAGE.ERROR; raise form_trigger_failure; END IF; 二、FORM调用互传参数(A form中传值调用B form) A form中的Trigger　下写入： fnd_function.execute(function_name = OMS_MO_ORDER—功能名 ,open_flag = Y—默认 ,session_flag = SESSION—默认 ,activate_flag = HEADER, --焦点在哪个Window上 ,other_params = QUERY_ONLY= || YES || || p_header_id= || v_mo_header_id); function_name为ERP中定义的功能名称 other_params参数中的QUERY_ONLY为查询状态，QUERY_ONLY为form标准参数 B form中的WHEN-NEW-FORM-INSTANCE (FORM级)触发器中写入以下代码 if :parameter.p_header_id is not null then set_block_property(header ,default_where ,mo_header_id = || :parameter.p_header_id); go_block(header); execute_query; end if; 其中:parameter.p_header_id的值就是从A FORM中传过来的。 注意：fnd_function.execute中的p_header_id必须和set_block_property中的p_header_id名称必须相同，不然form找不到参数。 三、调用pll动态创建列表 Setup1 在FORM级触发器WHEN-NEW-FORM-INSTANCE中加入以下代码： Create_ListBox --cust块 客户类型 ( OMS_CUST_TYPE , Select Description,lookup_code || From OMS_ALL_LOOKUP_CODES_V || Where lookup_type = OMS_CM_CUST_TYPE ,CUST.CUSTOMER_TYPE ); CUST.CUSTOMER_TYPE就是LIST Box Setup2 在PL/SQL Libraries 中创建过程 Setup3 在Procedure Body中写入以下代码 --以一个查询语句设置一个LISTBOX PROCEDURE CREATE_LISTBOX(P_RECORDGROUP_NAME VARCHAR2 ,P_QUERY_SQL VARCHAR2 ,P_LIST_ITEM_NAME VARCHAR2 ) IS v_rg_id RecordGroup; v_g PLS_INTEGER; BEGIN v_rg_id := Find_Group( P_RECORDGROUP_NAME );