*-------------------------------------------------------------------
***INCLUDE LKAEPFLI .
*-------------------------------------------------------------------
*&---------------------------------------------------------------------*
FORM list
*&---------------------------------------------------------------------*
USING value(vs_disvariant) TYPE kaep_disvariant_key
value(vd_container) type ref to cl_gui_custom_container
value(vd_top_of_page) type ref to cl_gui_custom_container
value(vs_layout) TYPE slis_layout_alv
CHANGING value(vr_alv_grid) type ref to cl_gui_alv_grid.
"""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""$"$\SE:(1) Form LIST, Start A
*$*$-Start: (1)---------------------------------------------------------------------------------$*$*
ENHANCEMENT 1 ZCJI3N_001. "active version
***ADD BY TUS FANZHENHUI 20200924
IF SY-TCODE EQ 'CJI3N'.
IF IS ASSIGNED.
FIELD-SYMBOLS: TYPE ANY.
FIELD-SYMBOLS: TYPE ANY.
FIELD-SYMBOLS: TYPE ANY.
LOOP AT ASSIGNING .
ASSIGN COMPONENT 'PSPID' OF STRUCTURE
TO .
CHECK IS ASSIGNED.
ASSIGN COMPONENT 'ZPOST1' OF STRUCTURE
TO .
CHECK IS ASSIGNED.
SELECT SINGLE POST1 INTO
FROM PROJ
WHERE PSPID EQ .
ENDLOOP.
ENDIF.
ENDIF.
ENDENHANCEMENT.
阅读(1590) | 评论(0) | 转发(1) |
