form： 各触发器(转)

日期： when-validate-item

IF :ORDERS.order_date > SYSDATE THEN
 MESSAGE('Order Date is later than today!');
 RAISE form_trigger_failure;
END IF;

===============

 一个ITEM改变时如何触发另一个ITEM的TRIGGER

go_item('ORDER_LINES.QUANTITY');
execute_trigger('WHEN-VALIDATE-ITEM');

==============提交保存

commit;

==============清除界面

可加在trigger：when-new-block-instance

Clear_Block(No_Validate); 
clear_block(ask_commit);--清除时，判断是否保存

clear_record; --清除当前记录