PROCESS AFTER INPUT.
  MODULE USER_COMMAND_0100.

  loop at IT_DPOS.  " Имя талицы с данными
    chain.
      FIELD IT_DPOS-POSNR.
      FIELD IT_DPOS-LTSNR.
      FIELD IT_DPOS-WRBTR.
      FIELD IT_DPOS-PREMPROC.
      FIELD IT_DPOS-SUMMPAY.
      module PROCESS_CHAIN ON CHAIN-REQUEST.
    endchain.
  endloop.
  MODULE REWRITE_DATA.

MODULE PROCESS_CHAIN INPUT.
* Поля из экранной таблицы
  WA-POSNR    = IT_DPOS-POSNR.
  WA-LTSNR    = IT_DPOS-LTSNR.
  WA-WRBTR    = IT_DPOS-WRBTR.
  WA-PREMPROC = IT_DPOS-PREMPROC.
  WA-SUMMPAY  = IT_DPOS-SUMMPAY.
* Поля заголовка
  WA-BUKRS     = BUKRS_.
  WA-DNOTNUM   = DNOTNUM.
  WA-DNOTDATE  = DNOTDATE.
  WA-LIFNR     = LIFNR_.
  WA-DOGNUM    = DOGNUM.
  WA-DOGDATE   = DOGDATE.
  WA-DATE1     = DATE_-LOW.
  WA-DATE2     = DATE_-HIGH.

  append WA.
ENDMODULE.                 " PROCESS_CHAIN  INPUT

MODULE REWRITE_DATA INPUT.
  IT_DPOS[] = WA[].
ENDMODULE.