CS11增加附加字段
调用alv位置
RCS11001
开始
se11 STPOX_ALV增加字段
增加代码
FORM stb_fields_tb_prep.
"""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""$"$\SE:(1) Form STB_FIELDS_TB_PREP, Start A
*$*$-Start: (1)---------------------------------------------------------------------------------$*$*
ENHANCEMENT 4 ZCS11. "active version
*---------------------------------------------------------------------*
*增加旧物料号 chenyl for zhouwf 24.07.2017 10:52:17
data:BEGIN OF lt_marc OCCURS 0,
matnr like marc-matnr,
werks like marc-werks,
zzsrm24 like marc-zzsrm24,
END OF lt_marc.
if alv_stb[] is NOT INITIAL.
SELECT *
INTO CORRESPONDING FIELDS OF TABLE lt_marc
FROM marc
FOR ALL ENTRIES IN alv_stb
WHERE matnr = alv_stb-IDNRK AND werks = alv_stb-werks.
SORT lt_marc by werks matnr.
loop at alv_stb.
READ TABLE lt_marc with KEY werks = alv_stb-werks matnr = alv_stb-IDNRK BINARY SEARCH.
if sy-subrc = 0.
alv_stb-zzsrm24 = lt_marc-zzsrm24.
MODIFY alv_stb.
endif.
ENDLOOP.
endif.
*---------------------------------------------------------------------*
ENDENHANCEMENT.