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

最新推荐文章于 2024-02-29 08:32:44 发布

ABAPER_小辛

最新推荐文章于 2024-02-29 08:32:44 发布

阅读量1.4k

点赞数

CC 4.0 BY-SA版权

分类专栏： ABAP开发总结文章标签： ALV

本文链接：https://blog.youkuaiyun.com/ioumm2008/article/details/19473279

该程序演示了如何将EXCEL数据上传到SAP内表，进行数据检查，存储到后台表，并使用ALV展示查询结果。用户可以选择上传文件并进行数据验证，如果数据有效则将其插入SAP的 zsrm_ztest002 表，否则弹出错误信息。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

先将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  = '文件名'.
  text3  = '待检数据显示'.
  text4  = '全删全建'.
*&---