TYPE-POOLS truxs.
DATA: xlstab TYPE truxs_t_text_data,
f_size TYPE i .
PARAMETERS: filename LIKE rlgrap-filename ,
p_doc_ty LIKE ekko-bsart DEFAULT 'YNB',
p_doc_da LIKE bapimepoheader-doc_date DEFAULT sy-datum,
p_unit LIKE bapimepoitem-price_unit DEFAULT '10'.
PARAMETERS p_price AS CHECKBOX.
DATA : lv_cancel(1) TYPE c.
DATA error TYPE bapiret2 OCCURS 0 WITH HEADER LINE.
DATA:BEGIN OF itb_input OCCURS 0, " 导入表结构
comp_code LIKE bapimepoheader-comp_code, "公司代码
purch_org LIKE bapimepoheader-purch_org, "采购组织
pur_group LIKE bapimepoheader-pur_group, "采购组
vendor LIKE bapimepoheader-vendor, "供应商
material LIKE bapimepoitem-material, "物料
plant LIKE bapimepoitem-plant, "工厂
stge_loc LIKE bapimepoitem-stge_loc, "库存地
quantity LIKE bapimepoitem-quantity, "数量
net_price(16) TYPE c, "价格
delivery_date LIKE bapimeposchedule-delivery_date, "交货日期
* short_text LIKE bapimepoitem-short_text, "文本
END OF itb_input.
TYPES:BEGIN OF ty_item,
material LIKE bapimepoitem-material, "物料
plant LIKE bapimepoitem-plant, "工厂
stge_loc LIKE bapimepoitem-stge_loc, "库存地
quantity LIKE bapimepoitem-quantity, "数量
net_price LIKE bapimepoitem-net_price, "价格
delivery_date LIKE bapimeposchedule-delivery_date, "交货日期
* short_text LIKE bapimepoitem-short_text, "文本
END OF ty_item.
DATA:BEGIN OF itb_err OCCURS 0.
INCLUDE STRUCTURE bapiret2.
DATA:END OF itb_err.
DATA flag TYPE i.
DATA: BEGIN OF itb_po OCCURS 0,
comp_code LIKE bapimepoheader-comp_code, "公司代码
purch_org LIKE bapimepoheader-purch_org, "采购组织
pur_group LIKE bapimepoheader-pur_group, "采购组
vendor LIKE bapimepoheader-vendor, "供应商
item TYPE ty_item OCCURS 0,
END OF itb_po.
DATA itb_po2 LIKE itb_po OCCURS 0 WITH HEADER LINE.
DATA hd_item TYPE ty_item.
DATA zindex LIKE sy-tabix.
DATA testrun LIKE bapiflag-bapiflag.
AT SELECTION-SCREEN ON VALUE-REQUEST FOR filename.
PERFORM get_pc_filename.
START-OF-SELECTION.
PERFORM upload_file TABLES itb_input. "上传文件
PERFORM convert. "转换为header-item模式
testrun = 'X'. "测试运行
flag = 0.
PERFORM runbapi.</