本文共 842 字，大约阅读时间需要 2 分钟。

屏幕：

PROCESS AFTER INPUT.

  LOOP AT GT_TCITEM.    MODULE DYN0100_OTFIELD_INPUT.    CHAIN.      FIELD:      ZMS_MSEG-MATNR,      ZMS_MSEG-LGORT,      ZMS_MSEG-CHARG,      ZMS_MSEG-UMLGO,      ZMS_MSEG-ERFMG,      MODULE CHECK_INPUT.    ENDCHAIN.    MODULE DYN0100_PAI_TC_LINE.  ENDLOOP.

程序：

*&---------------------------------------------------------------------*

*&      Module  DYN0100_PAI_TC_LINE  INPUT*&---------------------------------------------------------------------**       text*----------------------------------------------------------------------*MODULE DYN0100_PAI_TC_LINE INPUT.  MOVE-CORRESPONDING ZMS_MSEG TO GT_TCITEM.  READ TABLE GT_TCITEM INDEX TC_TCITEM-CURRENT_LINE TRANSPORTING NO FIELDS.  IF SY-SUBRC NE 0.    GT_TCITEM-ZEILE = TC_TCITEM-CURRENT_LINE.    APPEND GT_TCITEM .  ELSE.    GT_TCITEM-ZEILE = TC_TCITEM-CURRENT_LINE.    MODIFY GT_TCITEM  INDEX TC_TCITEM-CURRENT_LINE.  ENDIF.ENDMODULE.

转载地址：http://ioqaf.baihongyu.com/