如何解决我不明白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
,它从未填充在您的示例代码中,因此乍看之下这似乎根本不起作用或您的示例不包含某些初始化代码。
版权声明:本文内容由互联网用户自发贡献,该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容, 请发送邮件至 dio@foxmail.com 举报,一经查实,本站将立刻删除。