image.png
*&---------------------------------------------------------------------*
*& Report ZPPF_ALV_900
*&
*&---------------------------------------------------------------------*
*&
*&
*&---------------------------------------------------------------------*
report zppf_alv_900.
*---------------------- 声明alv相关变量 ----------------------*
type-pools:slis.
data: lt_fieldcat type slis_t_fieldcat_alv, " 存储fieldcat的内表
ls_fieldcat type slis_fieldcat_alv,
ls_layout type slis_layout_alv, " alv格式控制的结构体 layout
lt_event type slis_t_event, " 事件内表
ls_event type slis_alv_event.
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,
matnr type vbap-matnr,
matkl type vbap-matkl,
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 matnr matkl zmeng
zieme werks lgort
from vbak as a inner join vbap as b
on a~vbeln = b~vbeln
into table lt_alvshow
up to 10 rows.
*---------------------- 设置ALV布局 ----------------------*
ls_layout-zebra = 'X'.
ls_layout-detail_popup = 'X'.
ls_layout-detail_titlebar = '详细信息'.
ls_layout-f2code = '&ETA'.
ls_layout-colwidth_optimize = 'X'.
" 销售凭证
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-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 = 'KUNNR'.
ls_fieldcat-col_pos = lv_colpos.
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-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-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-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-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.
clear ls_fieldcat.
*---------------------- 定义事件 ----------------------*
*ls_event-name = 'USER_COMMAND'. " 用户响应事件
*ls_event-form = 'FORM_USER_COMMAND'.
*append ls_event to lt_event.
*
ls_event-name = 'TOP_OF_PAGE'. " 显示标题
ls_event-form = 'FRM_TOP_OF_PAGE'.
append ls_event to lt_event.
*ls_event-name = 'PF_STATUS_SET'. " 设置gui状态 gui-status
*ls_event-form = 'FORM_PF_STATUS_SET'.
*append ls_event to lt_event.
*---------------------- 显示ALV ----------------------*
call function 'REUSE_ALV_GRID_DISPLAY'
exporting
* I_INTERFACE_CHECK = ' '
* I_BYPASSING_BUFFER = ' '
* I_BUFFER_ACTIVE = ' '
* I_CALLBACK_PROGRAM = ' '
* I_CALLBACK_PF_STATUS_SET = ' '
* I_CALLBACK_USER_COMMAND = ' '
* I_CALLBACK_TOP_OF_PAGE = 'FRM_TOP_OF_PAGE'
i_callback_top_of_page = 'FRM_TOP_OF_PAGE'
* I_CALLBACK_HTML_TOP_OF_PAGE = ' '
* I_CALLBACK_HTML_END_OF_LIST = ' '
* I_STRUCTURE_NAME =
* I_BACKGROUND_ID = ' '
* I_GRID_TITLE =
* I_GRID_SETTINGS =
is_layout = ls_layout
it_fieldcat = lt_fieldcat
* IT_EXCLUDING =
* IT_SPECIAL_GROUPS =
* IT_SORT =
* IT_FILTER =
* IS_SEL_HIDE =
* I_DEFAULT = 'X'
* I_SAVE = ' '
* IS_VARIANT =
* it_events = lt_event
* IT_EVENT_EXIT =
* IS_PRINT =
* IS_REPREP_ID =
* I_SCREEN_START_COLUMN = 0
* I_SCREEN_START_LINE = 0
* I_SCREEN_END_COLUMN = 0
* I_SCREEN_END_LINE = 0
* I_HTML_HEIGHT_TOP = 0
* I_HTML_HEIGHT_END = 0
* IT_ALV_GRAPHICS =
* IT_HYPERLINK =
* IT_ADD_FIELDCAT =
* IT_EXCEPT_QINFO =
* IR_SALV_FULLSCREEN_ADAPTER =
* IMPORTING
* E_EXIT_CAUSED_BY_CALLER =
* ES_EXIT_CAUSED_BY_USER =
tables
t_outtab = lt_alvshow
exceptions
program_error = 1
others = 2
.
*---------------------------- 事件回调 -----------------------------------------*
*&---------------------------------------------------------------------*
*& Form form_user_command
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
form form_user_command using r_ucomm like sy-ucomm rs_selfield type slis_selfield.
endform. "FORM_USER_COMMAND
*&---------------------------------------------------------------------*
*& Form form_top_of_page
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
form FRM_TOP_OF_PAGE.
DATA it_listheader TYPE slis_t_listheader.
DATA wa_listheader TYPE slis_listheader .
DATA: l_line TYPE string.
l_line = '负债表'.
CLEAR wa_listheader.
wa_listheader-typ = 'H'. "Header
wa_listheader-info = l_line.
APPEND wa_listheader TO it_listheader.
CLEAR wa_listheader.
l_line = '负债表'.
wa_listheader-typ = 'S'. "Selection
wa_listheader-info = l_line.
APPEND wa_listheader TO it_listheader.
CLEAR wa_listheader.
l_line = '负债表'.
wa_listheader-typ = 'S'. "Selection
wa_listheader-info = l_line.
APPEND wa_listheader TO it_listheader.
CALL FUNCTION 'REUSE_ALV_COMMENTARY_WRITE'
EXPORTING
it_list_commentary = it_listheader
i_logo = 'UNICHARM'.
endform. "FORM_TOP_OF_PAGE
*&---------------------------------------------------------------------*
*& Form form_pf_status_set
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
form form_pf_status_set using rt_extab type slis_t_extab.
set pf-status 'STANDARD'.
endform. "FORM_PF_STATUS_SET
