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.
LOOP AT itb_err.
SKIP.
WRITE : AT 3(2) itb_err-type,AT 5(150) itb_err-message.
ENDLOOP.
CLEAR itb_err.
REFRESH itb_err.
END-OF-SELECTION.
IF flag = 0.
SET PF-STATUS 'COMMAND'.
ENDIF.
AT USER-COMMAND.
CASE sy-ucomm.
WHEN '&RUN'.
IF flag = 0.
testrun = ''. "正式运行
PERFORM runbapi.
COMMIT WORK.
MESSAGE '导入成功！' TYPE 'I'.
LOOP AT itb_err.
IF itb_err-type = 'S'.
SKIP.
WRITE : AT 3(2) itb_err-type,AT 5(50) itb_err-message.
ENDIF.
ENDLOOP.
SET PF-STATUS 'DEFAULT' IMMEDIATELY .
ELSE.
MESSAGE '导入失败！请核查错误！' TYPE 'E'.
ENDIF.
WHEN '&CAN'.
EXIT.
ENDCASE.
*&---------------------------------------------------------------------*
*& Form upload_file
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
* -->FTAB text
*----------------------------------------------------------------------*
FORM upload_file TABLES ftab.
CALL FUNCTION 'SAPGUI_PROGRESS_INDICATOR'
EXPORTING
percentage = 0
text = '转换Ing。。'.
CALL FUNCTION 'TEXT_CONVERT_XLS_TO_SAP'
EXPORTING
i_tab_raw_data = xlstab
i_filename = filename
TABLES
i_tab_converted_data = ftab
EXCEPTIONS
conversion_failed = 1
OTHERS = 2.
IF sy-subrc 0.
MESSAGE '转换Excel表有错误发生!' TYPE 'E' .
ENDIF.
ENDFORM. " UPLOAD_FILE
*&--------------------------------------------------------------------*
*& Form get_pc_filename
*&--------------------------------------------------------------------*
* text
*---------------------------------------------------------------------*
FORM get_pc_filename.
CALL FUNCTION 'WS_FILENAME_GET'
EXPORTING
* def_filename = PAY_FILE
* DEF_PATH = ' '
* mask = ',*.XLS ,*.XLS.'
mode = '0'
title = 'Get the import file name'
IMPORTING
filename = filename
* RC =
EXCEPTIONS
inv_winsys = 1
no_batch = 2
selection_cancel = 3
selection_error = 4
OTHERS = 5.
IF sy-subrc 0.
* MESSAGE 'ERROR' TYPE 'E' .
ENDIF.
ENDFORM. " GET_PC_FILENAME
*&---------------------------------------------------------------------*
*& Form convert
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
FORM convert.
DATA count TYPE i.
DATA line TYPE i.
LOOP AT itb_input.
CALL FUNCTION 'CONVERSION_EXIT_ALPHA_INPUT'
EXPORTING
input = itb_input-material
IMPORTING
output = itb_input-material.
CALL FUNCTION 'CONVERSION_EXIT_ALPHA_INPUT'
EXPORTING
input = itb_input-vendor
IMPORTING
output = itb_input-vendor.
MODIFY itb_input INDEX sy-tabix.
ENDLOOP.
*********************************************************转换为表头和表行结构
LOOP AT itb_input.
CLEAR hd_item.
CLEAR itb_po.
READ TABLE itb_po WITH KEY comp_code = itb_input-comp_code
purch_org = itb_input-purch_org
pur_group = itb_input-pur_group
vendor = itb_input-vendor.
IF sy-subrc = 0.
zindex = sy-tabix.
MOVE-CORRESPONDING itb_input TO hd_item.
APPEND hd_item TO itb_po-item.
MODIFY itb_po INDEX zindex.
ELSE.
MOVE-CORRESPONDING itb_input TO itb_po.
MOVE-CORRESPONDING itb_input TO hd_item.
APPEND hd_item TO itb_po-item.
APPEND itb_po.
ENDIF.
ENDLOOP.
******************************************************** 拆分，最大行项目为300
LOOP AT itb_po.
DESCRIBE TABLE itb_po-item LINES line.
IF line