SAP上传数据后格式整理

版权声明：本文为博主原创文章，未经博主允许不得转载。 https://blog.csdn.net/wtxhai/article/details/52691696

FORM edit_upload .

  DATA: BEGIN OF lw_list,
          col01(200) TYPE c,                    "COL
          col02(200) TYPE c,                    "COL
          col03(200) TYPE c,                    "COL
          col04(200) TYPE c,                    "COL
          col05(200) TYPE c,                    "COL
          col06(200) TYPE c,                    "COL
          col07(200) TYPE c,                    "COL
          col08(200) TYPE c,                    "COL
          col09(200) TYPE c,                    "COL
          col10(200) TYPE c,                    "COL
          col11(200) TYPE c,                    "COL
        END OF lw_list.
  DATA: lt_list LIKE TABLE OF lw_list,
        lo_col_flg TYPE c,
        lo_off  TYPE i,
        lo_do   TYPE i.
  FIELD-SYMBOLS: <fs> TYPE any.
  SORT it_upload BY row col.
  CLEAR: wa_upload,
         lo_col_flg.
  DELETE it_upload WHERE row = 1.

  LOOP AT it_upload INTO wa_upload.
    IF lo_do <> space AND
       lo_do <> wa_upload-row.
      APPEND lw_list TO lt_list.
      CLEAR: lw_list.
    ENDIF.
    IF lo_col_flg = cns_x.
      lo_off = wa_upload-col - 1.
    ELSE.
      lo_off = wa_upload-col.
    ENDIF.
    ASSIGN COMPONENT lo_off OF STRUCTURE lw_list TO <fs>.
    CONDENSE wa_upload-value.
    <fs> = wa_upload-value.
    lo_do = wa_upload-row.
  ENDLOOP.
  IF NOT it_upload[] IS INITIAL.
    APPEND lw_list TO lt_list.
  ENDIF.
  IF lt_list[] IS INITIAL.
* 文件中没有数据，请检查文件
    MESSAGE e003.
    flg_stop = cns_x.
    EXIT.
  ENDIF.

  CLEAR lt_cogs_fee[].  "//ADDED BY DINGQUNJING

  LOOP AT lt_list INTO lw_list.
    CLEAR:wa_cogs_tab1.
    CONDENSE: lw_list-col01,
              lw_list-col02,
              lw_list-col03,
              lw_list-col04,
              lw_list-col05,
              lw_list-col06,
              lw_list-col07,
              lw_list-col08,
              lw_list-col09,
              lw_list-col10,
              lw_list-col11.<pre name="code" class="cpp">  CLEAR ls_cogs_fee.
      CONDENSE: lw_list-col01, lw_list-col02, lw_list-col03, lw_list-col04, lw_list-col05, lw_list-col06, lw_list-col07,
                lw_list-col08, lw_list-col09, lw_list-col10, lw_list-col11.
      ls_cogs_fee-serial =  lw_list-col01. "// 这里用作凭证序号，相同凭证该序号一致
      ls_cogs_fee-bktxt =  lw_list-col02.      "// 摘要
      ls_cogs_fee-bschl =  lw_list-col03.      "// 记账代码
*      LS_COGS_FEE-GL_ACCOUNT =  LW_LIST-COL04.      "// 科目
      CALL FUNCTION 'CONVERSION_EXIT_ALPHA_INPUT'      "// 科目
        EXPORTING
          input         = lw_list-col04
       IMPORTING
         output        = ls_cogs_fee-gl_account .

      CALL FUNCTION 'CONVERSION_EXIT_ALPHA_INPUT'
        EXPORTING
          input  = lw_list-col05
        IMPORTING
          output = ls_cogs_fee-vbelv.    " 销售订单
      ls_cogs_fee-posnv  =  lw_list-col06.

      ls_cogs_fee-cn_amount =  lw_list-col07. "//人民币金额
      ls_cogs_fee-fr_amount =  lw_list-col08. "//外币金额
      ls_cogs_fee-waers   =  lw_list-col09. "//外币货币
      ls_cogs_fee-kursf  =  lw_list-col10.  "//Exchange rate
      ls_cogs_fee-sgtxt =  lw_list-col11.   "//Item Text
      APPEND ls_cogs_fee TO lt_cogs_fee.