版权声明:本文为博主原创文章,未经博主允许不得转载。 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.