*&---------------------------------------------------------------------*
*& Report ZEXCEL_TO_INTERNAL_TABLE2
*&
*&---------------------------------------------------------------------*
*&文本带导入,不带数据头
*&
*&---------------------------------------------------------------------*
REPORT ZTXT_TO_INTERNAL_TABLE2.
DATA:BEGIN OF IEXCEL OCCURS 0,
MATNR LIKE MARD-MATNR,
WERKS LIKE MARD-WERKS,
LGORT LIKE MARD-LGORT,
END OF IEXCEL.
SELECTION-SCREEN BEGIN OF BLOCK B1 WITH FRAME TITLE TEXT-001.
PARAMETERS:RB1 RADIOBUTTON GROUP B1,
RB2 RADIOBUTTON GROUP B1.
SELECTION-SCREEN END OF BLOCK B1.
CALL FUNCTION 'UPLOAD'
EXPORTING
FILETYPE = 'DAT'
TABLES
DATA_TAB = IEXCEL
* EXCEPTIONS
* CONVERSION_ERROR = 1
* INVALID_TABLE_WIDTH = 2
* INVALID_TYPE = 3
* NO_BATCH = 4
* UNKNOWN_ERROR = 5
* GUI_REFUSE_FILETRANSFER = 6
* OTHERS = 7
.
IF SY-SUBRC <> 0.
* MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
* WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.
DATA SUM TYPE I.
DESCRIBE TABLE IEXCEL LINES SUM.
IF RB1 = 'X'.
IF SUM > 1000.
WRITE:'导入数据条数过多,不能超过1000条'.
ELSE.
WRITE:'数据正确,可以导入'.
WRITE:/'总共有',SUM,'条数据'.
ENDIF.
ENDIF.
IF RB2 = 'X'.
WRITE:/ '物料编号','工厂','库位'.
LOOP AT IEXCEL.
WRITE:/ IEXCEL-MATNR,IEXCEL-WERKS,IEXCEL-LGORT.
ENDLOOP.
ENDIF.