注销记录的实现

 1.在主表中建立一个flag位，用于实现区分

 

2.建立视图的时候加上选择条件，Y 显示  N  不显示

 

3.在创建数据块之后，赋予MY_FLAG初始值  Y(在属性选项版中实现)

 

4.

修改 FORM 级 TRIGGER: WHEN-NEW-FORM-INSTANCE 添加以下代码，用以定义新的菜单项“注销记录” 

APP_SPECIAL.INSTANTIATE('SPECIAL1','注销记录') ;

 

5. 新增 BLOCK级 TRIGGER

SPECIAL1

此 TRIGGER 为新增菜单项的执行代码。

begin  fnd_message.set_string('注销当前记录？') ;

if fnd_message.question('确定','取消',null,2,2) != 1 then   return ;  end if ;

update dm_tech_documents set   enabled_flag = 'N'  where document_id = :dm_tech_documents_v.document_id ;

forms_ddl('COMMIT') ;

do_key('CLEAR_RECORD') ;

end ;

 

注意 ：上面那个数据库的字段应该是数据块的字段

6. PRE -RECORD

此 TRIGGER 启用 SPECIAL1菜单项 

if :dm_tech_documents_v.document_id is null then  APP_SPECIAL.ENABLE('SPECIAL1',PROPERTY_OFF); else  APP_SPECIAL.ENABLE('SPECIAL1',PROPERTY_ON); end if ;

7. POST-RECORD

此 TRIGGER 关闭 SPECIAL1菜单项 

APP_SPECIAL.ENABLE('SPECIAL1',PROPERTY_OFF);

 

  实现效果