EBS 个性化：Custom.pll创建只读职责

最新推荐文章于 2021-05-21 11:36:29 发布

Acenol

最新推荐文章于 2021-05-21 11:36:29 发布

阅读量179

点赞数

分类专栏： EBS 个性化

本文链接：https://blog.csdn.net/weixin_42683386/article/details/114027685

版权

EBS 个性化专栏收录该内容

18 篇文章 6 订阅

订阅专栏

Solution 1.创建QUERY_ONLY="YES"的Function，然后添加到只读职责中

Solution 2.创建只读的数据库用户

Solution 3.Custom.pll客户化，Sample Code：

BEGIN
  IF event_name = 'WHEN-NEW-FORM-INSTANCE' THEN
    IF FND_PROFILE.VALUE('USER_NAME')='<USER_NAME>' THEN
    BEGIN
      COPY('Entering app_form.query_only_mode.','global.frd_debug');
      COPY('YES', 'PARAMETER.QUERY_ONLY');
      APP_MENU2.SET_PROP('FILE.SAVE', ENABLED,PROPERTY_OFF);
      APP_MENU2.SET_PROP('FILE.ACCEPT', ENABLED,PROPERTY_OFF);
      formname := NAME_IN('system.current_form');
      blockname := GET_FORM_PROPERY(formname, FIRST_BLOCK);
      
      WHILE (blockname is not null) LOOP
      
      IF (GET_BLOCK_PROPERTY(blockname, BASE_TABLE) is not NULL) THEN
      
      SET_BLOCK_PROPERTY(blockname, INSERT_ALLOWED, PROPERTY_FALSE);
      SET_BLOCK_PROPERTY(blockname, UPDATE_ALLOWED, PROPERTY_FALSE);
      SET_BLOCK_PROPERTY(blockname, DELETE_ALLOWED, PROPERTY_FALSE);
      
      END IF;
      
      blockname := GET_BLOCK_PROPERTY(blockname, NEXTBLOCK);
    
    END LOOP;
  END query_only_mode;
END;