2021-09-03

最新推荐文章于 2025-05-27 20:12:36 发布

四十不惑之东京

最新推荐文章于 2025-05-27 20:12:36 发布

阅读量116

点赞数

文章标签： windows

本文链接：https://blog.youkuaiyun.com/iteye_9084/article/details/120073407

版权

本文档展示了如何使用SAP ABAP编程语言创建一个简单的ALV报告。通过T-code SE16查看数据，然后使用SE38编写ALV函数Z_TYO07_F001。代码中详细定义了内表、字段类别和布局，从VBAK和VBAP表中选取数据，并设置了ALV显示的格式，包括斑马纹、详细信息弹窗等。最后调用REUSE_ALV_GRID_DISPLAY函数来显示ALV表格。

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

@ALV简单代码

T-code:se16

查看表

T-code:se38

写ALV
Function： Z_TYO07_F001

&---------------------------------------------------------------------
*& Report Z_TYO07_F001
*&
&---------------------------------------------------------------------
*&
*&
&---------------------------------------------------------------------

REPORT z_tyo07_f001.
—第一步：声明ALV相关变量—
TYPE-POOLS:slis.
DATA: lt_fieldcat TYPE slis_t_fieldcat_alv,"存储fieldcat的内表
"wa_fieldcat TYPE slis_fieldcat_alv,
ls_fieldcat TYPE slis_fieldcat_alv,
ls_layout TYPE slis_layout_alv."ALV格式控制的结构体：Layout
data lv_colpos TYPE int2.
—第二步：定义内表-----------
TYPES:BEGIN OF ty_alvshow,
vbeln TYPE vbak-vbeln,
erdat TYPE vbak-erdat,
ernam TYPE vbak-ernam,
kunnr TYPE vbak-kunnr,
posnr TYPE vbap-posnr,
matkl TYPE vbap-matkl,
matnr TYPE vbap-matnr,
zmeng TYPE vbap-zmeng,
zieme TYPE vbap-zieme,
werks TYPE vbap-werks,
lgort TYPE vbap-lgort,
END OF ty_alvshow.
Data: lt_alvshow type TABLE OF ty_alvshow, "定义内表
wa_alvshow TYPE ty_alvshow."定义工作区
—第三步：读取数据-----------
SELECT
a~vbeln
a~erdat
a~ernam
kunnr
posnr
matkl
matnr
zmeng
zieme
werks
lgort
FROM VBAK as a INNER JOIN vbap as b
on a~VBELN = b~vbeln
into TABLE lt_alvshow
up to 100 rows.
—第四步：格式控制-----------
ls_layout-zebra = ‘X’. " 斑马纹
ls_layout-detail_popup = ‘X’.
ls_layout-detail_titlebar = ‘详细信息’.
ls_layout-F2code = ‘X’.
ls_layout-colwidth_optimize = ‘X’.
"fieldcat
"销售凭证
lv_colpos = 1.
ls_fieldcat-fieldname = ‘VBELN’.
ls_fieldcat-col_pos = lv_colpos.
ls_fieldcat-key = ‘X’.
ls_fieldcat-datatype = ‘CHAR’.
ls_fieldcat-outputlen = ‘10’.
ls_fieldcat-seltext_m = ‘销售凭证’.
APPEND ls_fieldcat to lt_fieldcat.

"凭证日期
clear ls_fieldcat.
lv_colpos = lv_colpos + 1.
ls_fieldcat-fieldname = ‘ERDAT’.
ls_fieldcat-col_pos = lv_colpos.
ls_fieldcat-datatype = ‘DATS’.
ls_fieldcat-outputlen = ‘8’.
ls_fieldcat-seltext_m = ‘销售日期’.
APPEND ls_fieldcat to lt_fieldcat.

"创建人
clear ls_fieldcat.
lv_colpos = lv_colpos + 1.
ls_fieldcat-fieldname = ‘ERNAM’.
ls_fieldcat-col_pos = lv_colpos.

ls_fieldcat-key = ‘X’.
ls_fieldcat-datatype = ‘CHAR’.
ls_fieldcat-outputlen = ‘12’.
ls_fieldcat-seltext_m = ‘销售人’.
APPEND ls_fieldcat to lt_fieldcat.

"售达方
clear ls_fieldcat.
lv_colpos = lv_colpos + 1.
ls_fieldcat-fieldname = ‘KUNNR’.
ls_fieldcat-col_pos = lv_colpos.

ls_fieldcat-key = ‘X’.
ls_fieldcat-datatype = ‘CHAR’.
ls_fieldcat-outputlen = ‘10’.
ls_fieldcat-seltext_m = ‘售达方’.
APPEND ls_fieldcat to lt_fieldcat.

"项目编码
clear ls_fieldcat.
lv_colpos = lv_colpos + 1.
ls_fieldcat-fieldname = ‘POSNR’.
ls_fieldcat-col_pos = lv_colpos.

ls_fieldcat-key = ‘X’.
ls_fieldcat-datatype = ‘NUMC’.
ls_fieldcat-outputlen = ‘6’.
ls_fieldcat-seltext_m = ‘项目编码’.
APPEND ls_fieldcat to lt_fieldcat.

"物料
clear ls_fieldcat.
lv_colpos = lv_colpos + 1.
ls_fieldcat-fieldname = ‘MATNR’.
ls_fieldcat-col_pos = lv_colpos.

ls_fieldcat-key = ‘X’.
ls_fieldcat-datatype = ‘CHAR’.
ls_fieldcat-outputlen = ‘18’.
ls_fieldcat-seltext_m = ‘物料’.
APPEND ls_fieldcat to lt_fieldcat.

"物料组
clear ls_fieldcat.
lv_colpos = lv_colpos + 1.
ls_fieldcat-fieldname = ‘MATKL’.
ls_fieldcat-col_pos = lv_colpos.

ls_fieldcat-key = ‘X’.
ls_fieldcat-datatype = ‘CHAR’.
ls_fieldcat-outputlen = ‘9’.
ls_fieldcat-seltext_m = ‘物料组’.
APPEND ls_fieldcat to lt_fieldcat.

"数量
clear ls_fieldcat.
lv_colpos = lv_colpos + 1.
ls_fieldcat-fieldname = ‘ZMENG’.
ls_fieldcat-col_pos = lv_colpos.

ls_fieldcat-key = ‘X’.
ls_fieldcat-datatype = ‘QUAN’.
ls_fieldcat-outputlen = ‘13’.
ls_fieldcat-seltext_m = ‘数量’.
APPEND ls_fieldcat to lt_fieldcat.

"数量单位
clear ls_fieldcat.
lv_colpos = lv_colpos + 1.
ls_fieldcat-fieldname = ‘ZIEME’.
ls_fieldcat-col_pos = lv_colpos.

ls_fieldcat-datatype = ‘UNIT’.
ls_fieldcat-outputlen = ‘3’.
ls_fieldcat-seltext_m = ‘单位’.
APPEND ls_fieldcat to lt_fieldcat.

"工厂
clear ls_fieldcat.
lv_colpos = lv_colpos + 1.
ls_fieldcat-fieldname = ‘WERKS’.
ls_fieldcat-col_pos = lv_colpos.
ls_fieldcat-ref_tabname = ‘VBAP’.
APPEND ls_fieldcat to lt_fieldcat.

"库存
clear ls_fieldcat.
lv_colpos = lv_colpos + 1.
ls_fieldcat-fieldname = ‘LGORT’.
ls_fieldcat-col_pos = lv_colpos.
ls_fieldcat-ref_tabname = ‘VBAP’.
APPEND ls_fieldcat to lt_fieldcat.

—第五步：显示ALV-----------
CALL FUNCTION ‘REUSE_ALV_GRID_DISPLAY’
EXPORTING

            IS_LAYOUT                         = LS_LAYOUT
            IT_FIELDCAT                       = LT_FIELDCAT
       TABLES
             t_outtab                          = lt_alvshow
          EXCEPTIONS
            PROGRAM_ERROR                     = 1
            OTHERS                            = 2
                   .
         IF sy-subrc <> 0.

Implement suitable error handling here
ENDIF.