这是一种常见的用户需求，实现如下：

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;