這是一種常見的使用者需求，實現如下：

1.符合某個條件下記錄不能修改，就是在when-validate-record(block級)

IF :CUX_MRP_MDS_DATA.TYPE_ID=2 THEN
set_record_property (:System.Cursor_Record,'CUX_MRP_MDS_DATA',status,query_status);
END IF;

2.背景顯示灰色，

A.先VISUAL_ATTRIBUTE物件處，建立一個，並設定其對應的backgroud color為灰色，

B.在post-query(bock級)

Declare

ITEM1 ITEM;--(此僅僅是某個資料項為灰色，若為一行記錄為灰色，就要定義多個ITEM,類同)

begin

ITEM1 := FIND_ITEM('CUX_MRP_MDS_DATA.ITEM');

IF :CUX_MRP_MDS_DATA.TYPE_ID=2 THEN
SET_ITEM_INSTANCE_PROPERTY(ITEM1, CURRENT_RECORD,VISUAL_ATTRIBUTE,'VISUAL_GRAY');

end if;

end;