SAP ABAP财务开发必备ABAP语法之 DO VARYING

转载：https://blog.csdn.net/yannickdann/article/details/115396015

最近有小伙伴在SAP菜鸟之家交流群里提问如下问题，如何将左侧的数据转换成右侧结构内表样式？

我们SAP菜鸟之家的member提出了loop里面套do varyiing的用法就可以。

下面我们来看看如何实现。

*&---------------------------------------------------------------------*
*& Report ZDO_VARYING3
*&---------------------------------------------------------------------*
*&
*&---------------------------------------------------------------------*
REPORT ZDO_VARYING3.
TYPES: BEGIN OF ty_data,
         matnr TYPE matnr,
         charg TYPE charg_d,
         amatr TYPE matnr,             " A
         achrg TYPE charg_d,
         bmatr TYPE matnr,             " B
         bchrg TYPE charg_d,
         cmatr TYPE matnr,             " C
         cchrg TYPE charg_d,
       END OF ty_data.


TYPES: BEGIN OF ty_tran,
         matnr TYPE matnr,
         charg TYPE charg_d,
         matn2 TYPE matnr,
         chrg2 TYPE charg_d,
       END OF ty_tran.


DATA: lt_data TYPE TABLE OF ty_data,
      ls_data TYPE ty_data.


DATA: lt_tran TYPE TABLE OF ty_tran,
      ls_tran TYPE ty_tran.


DATA: lv_matnr TYPE matnr,
      lv_charg TYPE charg_d.


* 初始化数据
ls_data-matnr = '物料'.
ls_data-charg = '批次'.
ls_data-amatr = '物料-A'.
ls_data-achrg = '批次-A'.
ls_data-bmatr = '物料-B'.
ls_data-bchrg = '批次-B'.
ls_data-cmatr = '物料-C'.
ls_data-cchrg = '批次-C'.
APPEND ls_data TO lt_data.


ls_data-matnr = '物料1'.
ls_data-charg = '批次1'.
ls_data-amatr = '物料1-A'.
ls_data-achrg = '批次1-A'.
ls_data-bmatr = '物料1-B'.
ls_data-bchrg = '批次1-B'.
ls_data-cmatr = '物料1-C'.
ls_data-cchrg = '批次1-C'.
APPEND ls_data TO lt_data.


* 转换
LOOP AT lt_data INTO ls_data.
  DO 3 TIMES VARYING lv_matnr FROM ls_data-amatr
                              NEXT ls_data-bmatr
             VARYING lv_charg FROM ls_data-achrg
                              NEXT ls_data-bchrg.
    ls_tran-matnr = ls_data-matnr.
    ls_tran-charg = ls_data-charg.
    ls_tran-matn2 = lv_matnr.
    ls_tran-chrg2 = lv_charg.
    APPEND ls_tran TO lt_tran.
  ENDDO.
ENDLOOP.


* 输出
DATA: i_table      TYPE REF TO cl_salv_table.
DATA: lr_columns   TYPE REF TO cl_salv_columns_table.
DATA: lr_functions TYPE REF TO cl_salv_functions.


TRY.
    cl_salv_table=>factory(
      IMPORTING
        r_salv_table = i_table
      CHANGING
        t_table      = lt_tran ).
  CATCH cx_salv_msg.
ENDTRY.


" 功能按钮
lr_functions = i_table->get_functions( ).
lr_functions->set_all( abap_true ).


" 列自适应
lr_columns = i_table->get_columns( ).
lr_columns->set_optimize( 'X').


" alv输出
i_table->display( ).