Form学习笔记.docx

一、ERP中消息的使用:
('OMS','OMS_PI_STANDARD_ERROR_60');
其中'OMS'系统当前应用,OMS_PI_STANDARD_ERROR_60是消息名称
('SEGMENT1',:);
其中'SEGMENT1'是消息中定义的变量,:'SEGMENT1'变量中的值。
;--提示错误类型(ERROR,SHOW…)
注意:SEGMENT1前面加&符号就是变量。
例子:
IF : IS NULL THEN
('OMS','OMS_PI_STANDARD_ERROR_60');
('SEGMENT1',:);
;
raise form_trigger_failure;
END IF;
二、FORM调用互传参数(A form中传值调用B form)
A form中的Trigger 下写入:
(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 : is not null
then

set_block_property('header'
,default_where
,'mo_header_id =' || :);
go_block('header');
execute_query;
end if;
其中: FORM中传过来的。
注意:,不然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'' '
,''
);
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 );
IF NOT Id_Null(v_rg_id) THEN
Delete_Group( v_rg_id );
END IF;
v_rg_id := Create_Group_From_Query(P_RECORDGROUP_NAME,P_QUERY_SQL