|
在 CUSTOM.pll 我是这样写的
procedure event(event_name varchar2) is
v_form_name VARCHAR2(30) := NAME_IN('system.current_form');
v_block_name VARCHAR2(30) := NAME_IN('system.cursor_block');
v_item_id varchar2(30) ;
BEGIN
IF (event_name = 'WHEN-VALIDATE-RECORD') THEN
IF (form_name = 'CUXSA003' AND block_name = 'EMP') THEN
v_item_id := name_in('EMP.workshop_name');
IF v_item_id='XXZX' THEN
fnd_message.set_name('FND','这个物料没有生产过;');
fnd_message.show;
ELSE
NULL;
END IF;
ELSE
NULL;
END IF;
END IF;
END event; |
|