我不明白LOOP中的READ TABLE是如何工作的

问题描述

在我的代码中，我需要在一个循环内进行迭代，对于循环中的每个迭代，我必须填写某些单元格中值不同的数据。

阅读sap文档，我得出的结论是，我需要使用读取表将每次迭代填充到工作区中，稍后再处理。

我已经声明了以下表格：

• it_sap ，其中包含来自VBRK和VBRP表的联接内容

• wa_sap 作为工作区域

• it_ext 包含来自外部数据库的另一个联接中的内容

• wa_ext 作为工作区域。

这是我的循环实际上的样子：

  LOOP AT it_sap INTO wa_sap.

    wa_sap-tipo_documento = wa_sap-xblnr+2(1). " Linea

    tiket = wa_sap-xblnr+9(7).
    creationyear = wa_sap-fkdat+0(4).

    CALL FUNCTION 'CONVERSION_EXIT_ALPHA_INPUT' 
      EXPORTING
        input  = tiket
      IMPORTING
        output = tiket.

    CONCATENATE creationyear '/' wa_sap-vkorg wa_sap-xblnr+7(2) '/' tiket INTO wa_sap-codalb.

    "CLEAR position.
    CALL FUNCTION 'CONVERSION_EXIT_ALPHA_OUTPUT'
      EXPORTING
        input  = wa_sap-posnr
      IMPORTING
        output = position.

    READ TABLE it_ext INTO wa_ext
    WITH KEY codalb = wa_ext-codalb
             tipo_documento = wa_ext-tipo_documento.

    IF sy-subrc = 0.
      wa_sap-import_total = wa_ext-import_total.
      wa_sap-import = wa_ext-import.
      wa_sap-price = wa_ext-price.
      wa_sap-price_total = wa_ext-price_total.
      wa_sap-disccount = wa_ext-disccount.
      wa_sap-quantity = wa_ext-quantity.

      MODIFY it_sap FROM wa_sap.

      IF wa_sap-importe_total <> wa_sap-netwr. "AND position = 1 .
        APPEND wa_sap TO it_results.
      ENDIF.

    ENDIF.

  ENDLOOP.

它如何工作？我了解使用条件sy-subrc = 0可以看到前面的语句是真还是假，但我不太了解它是如何使用READ而不是SELECT进行运算的。

谢谢你们！

解决方法

LOOP AT遍历内部表的所有行。

READ TABLE从内部表中最多检索一行。

sy-subrc为您提供了有关上一条语句的运行情况的详细信息。其值与语句不同。如果是READ TABLE，它会告诉您是否找到行（= 0）（<> 0）。因此，IF sy-subrc = 0之后的READ TABLE的意思是“如果找到这样的行”。

在没有一些有用的示例数据的情况下，很难理解代码应该执行的操作以及代码是否正确执行。正如JózsefSzikszai在对您的问题的评论中指出的那样，READ TABLE的条件依赖于wa_ext，它从未填充在您的示例代码中，因此乍看之下这似乎根本不起作用或您的示例不包含某些初始化代码。