SAP EXCEL数据上传,ALV显示模板程序

先将EXCEL数据上传到SAP的内表中，然后对数据进行检查，将数据存储到SAP的后台表，然后用ALV对数据进行查询。

REPORT  ztest002.
TYPE-POOLS truxs.
DATA xltab TYPE truxs_t_text_data.

DATA: BEGIN OF gt_upload OCCURS 0,
        matnr(18),
        lifnr(10),
        jyfs(10),   "检验方式
        maktx(40),
        name1(35).
DATA: END OF gt_upload.

DATA: BEGIN OF gt_ztest002 OCCURS 0.
        INCLUDE STRUCTURE zsrm_ztest002.
DATA: END OF gt_ztest002.

*************ALV 报表定义
TYPE-POOLS slis.
*DATA: myrepid LIKE sy-repid.  "REPORT NAME
DATA: fieldcat TYPE slis_t_fieldcat_alv.
DATA: afield   TYPE LINE OF slis_t_fieldcat_alv.
DATA: layout   TYPE slis_layout_alv .

DEFINE fill.
  clear afield.
  afield-col_pos = &1.
  afield-fieldname = &2.
  afield-seltext_l = &3.
  afield-no_zero = &4.
  append afield to fieldcat.
END-OF-DEFINITION.

DATA: BEGIN OF gt_error OCCURS 0,
        matnr  TYPE zsrm_ztest002-matnr,
        maktx  TYPE zsrm_ztest002-maktx,
        lifnr  TYPE zsrm_ztest002-lifnr,
        name1  TYPE zsrm_ztest002-name1,
        jyfs   TYPE zsrm_ztest002-jyfs,
        message(40) TYPE c.
DATA: END OF gt_error.
DATA: BEGIN OF gx_error_title,
        matnr(18),
        maktx(40),
        lifnr(10),
        name1(35),
        jyfs(10),
        message(40) TYPE c.
DATA: END OF gx_error_title.

SELECTION-SCREEN BEGIN OF BLOCK blk2
                          WITH FRAME TITLE title2.
SELECTION-SCREEN BEGIN OF LINE.
PARAMETER: r1 RADIOBUTTON GROUP gr1 .
SELECTION-SCREEN COMMENT 3(10)  text1.
SELECTION-SCREEN COMMENT 16(5)  text2.
PARAMETER: file LIKE rlgrap-filename .

SELECTION-SCREEN COMMENT 70(10) text4.
PARAMETER: del_box AS CHECKBOX.
SELECTION-SCREEN END OF LINE.

SELECTION-SCREEN BEGIN OF LINE.
PARAMETER: r2 RADIOBUTTON GROUP gr1 DEFAULT 'X'.
SELECTION-SCREEN COMMENT 3(20) text3.
SELECTION-SCREEN END OF LINE.
SELECTION-SCREEN END OF BLOCK blk2.

*&---------------------------------------------------------------------*
*&      INITIALIZATION.
*&---------------------------------------------------------------------*
INITIALIZATION.
  title2 = '待检数据上传\查看'.
  text1  = '待检数据上传'.
  text2