在 OpenEdge TEMP-TABLE 中使用 RECID 作为主键

Question

我想创建一个数据集，其中包含几个由 xml 文件填充的临时表。

DEF TEMP-TABLE ttOrder NO-UNDO
    FIELD iOrderNo AS INT
    FIELD iOrderDate AS DATE
    INDEX ix RECID. // This also won't work, but this is needed to use the `OF` statement when retrieving records.

DEF TEMP-TABLE ttOrderLine NO-UNDO
    FIELD iParent AS RECID
    FIELD iArticleNo AS INT
    FIELD dPrice AS DECIMAL.

DEF DATASET dsOrder FOR ttOrder, ttOrderLine
    DATA-RELATION Order_OrderLine FOR ttOrder, ttOrderLine
    RELATION-FIELDS ttOrder.RECID, ttOrderLine.iParent. // This is what won't work, but what I would like to do.

通常我会在ttOrderLine 中创建一个iOrderNo 字段并在数据集RELATION-FIELDS 属性中匹配该字段。由于数据是从 XML 文件加载的，因此这将很困难。

最终目标不是这样：

FIND FIRST ttOrder.
FOR EACH ttOrderLine WHERE ttOrderLine.iParent = RECID(ttOrder):
    // Do something
END.

我想这样做：

FIND FIRST ttOrder.
FOR EACH ttOrderLine of ttOrder:
    // Do something
END.

我现在使用最后一种方法时得到的错误是Index field of table1 must be fields in table2。

有人可以告诉我如何完成这项工作吗？

Answer 1

只要临时表按值（而不是按引用）传递并在客户端和 AppServer 之间传递，临时表记录 RECID 就会更改。

通常在其他表中使用 RECID 作为键是一种非常危险的情况。

因此，如果 Orderline 表中具有 Order RECID 的数据集在 AppServer 上填充并在客户端上进行处理，那么无论如何您的方案都会中断。

Answer 2

要使 OFsyntax 起作用，您需要将父 ID 存储在子表的唯一索引中。

此语法不需要数据集，但如果您确实还需要使用 recid 的数据集，则应查看 PARENT-ID-RELATION 而不是 RELATIONS-FIELDS。

先看看这个：

DEFINE TEMP-TABLE ttOrder NO-UNDO
    FIELD iOrderNo   AS INTEGER
    FIELD iOrderDate AS DATE
    FIELD iParent    AS RECID.


DEFINE TEMP-TABLE ttOrderLine NO-UNDO
    FIELD iParent    AS RECID
    FIELD iArticleNo AS INTEGER
    FIELD dPrice     AS DECIMAL
    INDEX ix IS UNIQUE iParent.


DEFINE DATASET dsOrder FOR ttOrder, ttOrderLine
    PARENT-ID-RELATION Order_OrderLine FOR ttOrder, ttOrderLine PARENT-ID-FIELD iParent.


FOR EACH ttOrder, EACH ttOrderLine OF ttOrder:
    DISPLAY ttOrder.
    DISPLAY ttOrderLine.
END.