【ERP】如何在主数据块处于新建或插入状态时禁止对明细数据块进行查询数据操作

问题描述

在设计含有主从数据块的form时，我们可能在主数据块处于新建或插入状态时，不想让用户去明细块（从块）进入和执行查询动作，因为这样做本身就是不符合逻辑的。为此，我们有以下两种方法可供选择。

实现方法

【标准实现】设置主从关系对象属性

设置主块中的主从关系对象（RELATIONS）的Prevent Masterless Operations属性为YES即可达到目的。

　　　　图1-1　　　　　　　　　　　　　　　　　　　　　　　　　图1-2

【自定义实现】

在明细数据块中新增三个BLOCK级别的触发器KEY-CQUERY, KEY-ENTQRY和KEY-EXEQRY，加入如下逻辑：当主数据块的RECORD_STATUS为INSERT或者NEW时，向用户报警告或提示对话框，提示用户先输入主数据块内容，并终止当前操作。具体实现如下：

假设主数据块名称为HEADER，明细块名称为LINES

1. 向明细块LINES添加块级触发器KEY-ENTQRY，代码如下：

IF app_record.get_status('HEADER') IN ('NEW', 'INSERT') THEN
    fnd_message.debug('Please enter header information first');
    RAISE form_trigger_failure;
ELSE
    Enter_Query;
END IF;

2. 向明细块LINES添加块级触发器KEY-CQUERY，代码如下：

IF app_record.get_status('HEADER') IN ('NEW', 'INSERT') THEN
    fnd_message.debug('Please enter header information first');
    RAISE form_trigger_failure;
ELSE
    Count_Query;
END IF;

3. 向明细块LINES添加块级触发器KEY-EXEQRY，代码如下：

IF app_record.get_status('HEADER') IN ('NEW', 'INSERT') THEN
    fnd_message.debug('Please enter header information first');
    RAISE form_trigger_failure;
ELSE
    Execute_Query;
END IF;

第一种方法运行后系统会有提示信息（HINT）告诉用户必须先输入主块，第二种方法我们可以自定义输出信息，并提示给用户，同样可以达到我们想要的效果。

PS：回头再上图 已上图:P