模板下载
https://files.cnblogs.com/files/twttafku/%E6%89%B9%E9%87%8F%E4%B8%8A%E4%BC%A0%E9%87%87%E8%B4%AD%E8%AE%A2%E5%8D%95..rar
REPORT zmm079.
*&
*&---------------------------------------------------------------------*
*&
*& 批量导入采购订单
*&
*&---------------------------------------------------------------------*
DATA: g_datafile TYPE string, "Local ASCII Text File
g_rtncode TYPE i,
w_accepted TYPE i,
rows TYPE i,
g_currentrow TYPE i.
DATA:
BEGIN OF itab_ok OCCURS 0,
fid(100),
ebelp LIKE ekpo-ebelp,
bsart LIKE ekko-bsart,
superfield(10) TYPE c,
ekorg LIKE ekko-ekorg,
ekgrp LIKE ekko-ekgrp,
bukrs LIKE ekko-bukrs,
ematn LIKE mepo1211-ematn,
menge(15) TYPE c,
eeind LIKE mepo1211-eeind,
name1 LIKE mepo1211-name1,
charg LIKE mepo1211-charg,
lgobe LIKE mepo1211-lgobe,
netpr LIKE mepo1211-netpr,
peinh LIKE mepo1211-peinh,
vend_mat TYPE idnlf,
trackingno TYPE bednr,
afnam TYPE afnam,
order_reason TYPE bsgru,
sd_doc TYPE vbeln, " CHAR 10 0 销售和分销凭证号
itm_number TYPE posnr_va, " NUMC 6 0 销售凭证项目
wbs_element TYPE ps_posid, " CHAR 24 0 工作分解结构元素 (WBS 元素)
preq_no TYPE banfn, " CHAR 10 0 采购申请编号
preq_item TYPE bnfpo, " NUMC 5 0 采购申请的项目编号
suppl_stloc TYPE reslo, " CHAR 4 0 库存运输订单发货存储地点
ret_item TYPE retpo, "退货类型
pstyp TYPE pstyp,
"ADD BY LH 20190315 SDK2019010300007
costcenter TYPE kostl, "成本中心
gl_account TYPE saknr, "总账科目编号
END OF itab_ok.
DATA:ep_ebeln LIKE ekko-ebeln,
ep_subrc LIKE sy-subrc,
ep_frgkx LIKE ekko-frgke.
DATA : it_poitem LIKE bapimepoitem OCCURS 0 WITH HEADER LINE,
it_poitemx LIKE bapimepoitemx OCCURS 0 WITH HEADER LINE,
it_poschedule LIKE bapimeposchedule OCCURS 0 WITH HEADER LINE,
it_poschedulex LIKE bapimeposchedulx OCCURS 0 WITH HEADER LINE,
ip_poheader LIKE bapimepoheader,
it_pocond LIKE bapimepocond OCCURS 0 WITH HEADER LINE,
it_pocondx LIKE bapimepocondx OCCURS 0 WITH HEADER LINE,
ip_poheaderx LIKE bapimepoheaderx,
i_po_changereturn LIKE bapiret2 OCCURS 0 WITH HEADER LINE,
po_poheader LIKE bapimepoheader,
po_poheaderx LIKE bapimepoheaderx,
i_po_changeitem LIKE bapimepoitem OCCURS 0 WITH HEADER LINE,
i_po_changeitemx LIKE bapimepoitemx OCCURS 0 WITH HEADER LINE,
i_po_poschedule LIKE bapimeposchedule OCCURS 0 WITH HEADER LINE,
i_po_poschedulex LIKE bapimeposchedulx OCCURS 0 WITH HEADER LINE,
it_bapimepoaccount LIKE bapimepoaccount OCCURS 0 WITH HEADER LINE,
it_bapimepoaccountx LIKE bapimepoaccountx OCCURS 0 WITH HEADER LINE,
et_log LIKE bapiret2 OCCURS 0 WITH HEADER LINE.
CLEAR:it_poitem