PROSAGA码农传奇-openedge-从表中为另一个表中的每一行选择Top 1

从表中为另一个表中的每一行选择Top 1

作者: SHOU宅大可爱
发布时间: 2024-04-18 05:03:12 (1月前)
转自：

<div class =“post-text”itemprop =“text”>
  <P>
    如果我正确理解你的问题，也许你可以使用这样的东西。也许这不是解决问题的最佳方案，但可能适合您的需求。
  </p>
   <pre>
    <code>
      DEF BUFFER ofart    FOR la_ofart.

DEF TEMP-TABLE tt-ofart NO-UNDO LIKE ofart
    FIELD seq       AS INT
    INDEX ch-seq
        seq.

DEF VAR i-count     AS INT  NO-UNDO.

EMPTY TEMP-TABLE tt-ofart.

blk:
FOR EACH la_ofart NO-LOCK,
    EACH la_of NO-LOCK  
        WHERE la_of.empr_cod    = la_ofart.empr_cod
        AND   la_of.Cod_Ordf    = la_ofart.Cod_Ordf
        AND   la_of.Num_ordex   = la_ofart.Num_ordex 
        AND   la_of.Num_partida = la_ofart.Num_partida,
    EACH ofart NO-LOCK
        WHERE ofart.empr_cod    = la_ofart.empr_cod
        AND   ofart.Num_partida = la_ofart.Num_partida
        AND   ofart.doc1_num    = la_ofart.doc1_num
        AND   ofart.doc2_linha  = la_ofart.doc2_linha
    BREAK BY ofart.Cod_Ordf DESCENDING:

ASSIGN i-count = i-count + 1.

CREATE tt-ofart.
    BUFFER-COPY ofart TO tt-ofart
        ASSIGN ofart.seq = i-count.

IF i-count >= 10 THEN
        LEAVE blk.

END.

FOR EACH tt-ofart USE-INDEX seq:
    DISP tt-ofart WITH SCROLLABLE 1 COL 1 DOWN NO-ERROR.
END.

</code>
  </pre>
</DIV>