【转】
REPORT zbdc_test_by_shir.
* 定义个BDC格式的内表
**************************************************
DATA : BEGIN OF i_bdcdata OCCURS 0,
*BDC的程序名字,比如事物码MM01的程序名字为SAPLMGMM（sap标准程序）
program LIKE bdcdata-program,
*BDC Dynpro 号码
dynpro LIKE bdcdata-dynpro,
*BDC BDC Dynpro 開始
dynbegin LIKE bdcdata-dynbegin,
*BDC 项目名字
fnam LIKE bdcdata-fnam,
*BDC 项目名字的附加值
fval LIKE bdcdata-fval,
END OF i_bdcdata.
*BDC
DATA: t_bdcmsg LIKE bdcmsgcoll OCCURS 0 WITH HEADER LINE.
*****此方法可以用excel，txt等文件导入
DATA: BEGIN OF itab OCCURS 0,
maktx LIKE makt-maktx,
meins LIKE mara-meins,
matkl LIKE mara-matkl,
END OF itab.
DATA: tab LIKE itab OCCURS 0 WITH HEADER LINE.
DATA: BEGIN OF t_log OCCURS 0,
information(289) TYPE c, "返回信息
END OF t_log.
DATA:BEGIN OF iexcel OCCURS 0.
INCLUDE STRUCTURE alsmex_tabline.
DATA:END OF iexcel.
FIELD-SYMBOLS: <fs>.
SELECTION-SCREEN BEGIN OF BLOCK text WITH FRAME TITLE text-001.
PARAMETERS:p_fname LIKE rlgrap-filename .
SELECTION-SCREEN END OF BLOCK text.
*itab-a = 'A0010000000'.
*APPEND itab.
*itab-a = 'A0010000001'.
*APPEND itab.
*itab-maktx = '测试BDC导入数据'.
*itab-meins = 'BAG'.
*itab-matkl = '100106'.
*
*APPEND itab.
AT SELECTION-SCREEN ON VALUE-REQUEST FOR p_fname.
PERFORM upload USING p_fname .
* START-OF-SELECTION
START-OF-SELECTION.
LOOP AT itab.
PERFORM append_mm01 USING itab-maktx itab-meins itab-matkl.
PERFORM run_bdc.
ENDLOOP.
*---------------------------------------------------------------------*
* FORM APPEND_DATA_MM01 *
*---------------------------------------------------------------------*
* 定义一个子程序里面,用来存放操作的各个步骤 *
*---------------------------------------------------------------------*
FORM append_mm01 USING fval LIKE itab-maktx
fval1 LIKE itab-meins
fval2 LIKE itab-matkl.
CLEAR i_bdcdata.
CLEAR i_bdcdata[].
*开始新的画面事件
*0173画面
*把程序名字和 BDC DYnpro号码,开始标志 写入内表表头,
PERFORM bdc_dynpro USING 'SAPLMGMM' '0060'.
PERFORM bdc_field USING 'BDC_CURSOR' 'RMMG1-MATNR'.
PERFORM bdc_field USING 'BDC_OKCODE' '/00'.
PERFORM bdc_field USING 'RMMG1-MATNR' ''.
PERFORM bdc_field USING 'RMMG1-MBRSH' 'Z'.
PERFORM bdc_field USING 'RMMG1-MTART' 'Z001'.
*开始新的画面事件
PERFORM bdc_dynpro USING 'SAPLMGMM' '0070'.
PERFORM bdc_field USING 'BDC_CURSOR' 'MSICHTAUSW-DYTXT(01)'.
PERFORM bdc_field USING 'BDC_OKCODE' '=ENTR'.
PERFORM bdc_field USING 'MSICHTAUSW-KZSEL(01)' 'X'.
*开始新的画面事件
PERFORM bdc_dynpro USING 'SAPLMGMM' '4004'.
PERFORM bdc_field USING 'BDC_OKCODE' '=BU'.
PERFORM bdc_field USING 'BDC_CURSOR' 'MAKT-MAKTX'.
PERFORM bdc_field USING 'MAKT-MAKTX' itab-maktx.
PERFORM bdc_field USING 'MARA-MEINS' itab-meins.
PERFORM bdc_field USING 'MARA-MATKkL' itab-matkl.
ENDFORM. "APPEND_MM01
*---------------------------------------------------------------------*
* FORM RUN_BDC *
*---------------------------------------------------------------------*
* ........ *
*---------------------------------------------------------------------*
FORM run_bdc.
*开始调用事务MM01,把做好的bdc对象传递过去,然后把模式设置为A,
*就是说所有窗口,均可以看见.
* N 表示不看见吧
REFRESH t_bdcmsg.
CLEAR t_bdcmsg.
CALL TRANSACTION 'MM01' USING i_bdcdata MODE 'N' MESSAGES INTO t_bdcmsg.
READ TABLE t_bdcmsg WITH KEY msgtyp = 'S'
msgid = 'M3'
msgnr = '800'.
IF sy-subrc EQ 0.
CONCATENATE '物料号：' t_bdcmsg-msgv1 '创建成功' INTO t_log.
ELSE.
LOOP AT t_bdcmsg.
IF t_bdcmsg-msgtyp = 'E'
OR t_bdcmsg-msgv1 <> ''
OR t_bdcmsg-msgv2 <> ''
OR t_bdcmsg-msgv3 <> ''
OR t_bdcmsg-msgv4 <> ''.
MESSAGE ID t_bdcmsg-msgid "收集错误信息，并写入自定义的表t_log中。
TYPE 'S'
NUMBER t_bdcmsg-msgnr
WITH t_bdcmsg-msgv1
t_bdcmsg-msgv2
t_bdcmsg-msgv3
t_bdcmsg-msgv4
INTO t_log-information.
CONCATENATE
t_bdcmsg-msgv1
* itab-posnr
'出错:'
t_log-information
INTO t_log-information.
APPEND t_log.
CLEAR t_log.
ENDIF.
ENDLOOP.
ENDIF.
LOOP AT t_log. "显示出错信息
WRITE:/ t_log-information.
ENDLOOP.
ENDFORM. "RUN_BDC
*&---------------------------------------------------------------------*
*& Form BDC_DYNPRO
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
* -->P_0121 text
* -->P_0122 text
*----------------------------------------------------------------------*
FORM bdc_dynpro USING program
dynpro.
i_bdcdata-program = program.
i_bdcdata-dynpro = dynpro.
i_bdcdata-dynbegin = 'X'.
APPEND i_bdcdata.
CLEAR i_bdcdata.
ENDFORM. " BDC_DYNPRO
*&---------------------------------------------------------------------*
*& Form BDC_FIELD
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
* -->P_0126 text
* -->P_0127 text
*----------------------------------------------------------------------*
FORM bdc_field USING fnam fval.
i_bdcdata-fnam = fnam .
i_bdcdata-fval = fval.
APPEND i_bdcdata.
CLEAR i_bdcdata.
ENDFORM. " BDC_FIELD
*&---------------------------------------------------------------------*
*& Form UPLOAD
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
* --> p1 text
* <-- p2 text
*----------------------------------------------------------------------*
FORM upload USING p_fname.
DATA:cc TYPE i.
CALL FUNCTION 'WS_FILENAME_GET'
EXPORTING
mask = ',Excel Files,*.xls,All Files,*.*.'(101)
title = '选择文件'(100)
IMPORTING
filename = p_fname
EXCEPTIONS
inv_winsys = 1
no_batch = 2
selection_cancel = 3
selection_error = 4
OTHERS = 5.
IF sy-subrc <> 0 AND sy-subrc <> 3.
MESSAGE e398(00) WITH '选择文件出错！'(007).
ENDIF.
CALL FUNCTION 'ALSM_EXCEL_TO_INTERNAL_TABLE'
EXPORTING
filename = p_fname
i_begin_col = 1
i_begin_row = 1
i_end_col = 100
i_end_row = 1000
TABLES
intern = iexcel
EXCEPTIONS
inconsistent_parameters = 1
upload_ole = 2
OTHERS = 3.
IF sy-subrc <> 0.
WRITE:/'文件读入错误！',p_fname.
ELSE.
cc = 1.
LOOP AT iexcel.
ASSIGN COMPONENT cc OF
STRUCTURE itab TO <fs>.
<fs> = iexcel-value(25).
cc = cc + 1.
AT END OF row.
IF iexcel-row <> '0001'.
APPEND itab.
ENDIF.
CLEAR itab.
cc = 1.
ENDAT.
ENDLOOP.
ENDIF.
ENDFORM. " UPLOAD