Google Search - Blog...........

ABAP - F4 (Value On Request) On Field BUKRS On Selection Screen.

TYPE-POOLS SLIS.

DATA: BEGIN OF T_OUT_FOR_F4 OCCURS 0,
BUKRS LIKE T001-BUKRS,
BUTXT LIKE T001-BUTXT,
END OF T_OUT_FOR_F4.


PARAMETERS: P_BUKRS TYPE BUKRS.

AT SELECTION-SCREEN ON VALUE-REQUEST FOR P_BUKRS.

PERFORM F4_FOR_BUKRS.
*&---------------------------------------------------------------------*
*& Form F4_FOR_BUKRS
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
* --> p1 text
* <-- p2 text *----------------------------------------------------------------------*
FORM F4_FOR_BUKRS.

DATA: IT_FIELDCAT TYPE SLIS_T_FIELDCAT_ALV WITH HEADER LINE,
IT_REPORT TYPE SY-REPID,
ES_SELFIELD TYPE SLIS_SELFIELD.

* Get data
SELECT BUKRS BUTXT FROM T001
INTO TABLE T_OUT_FOR_F4
WHERE BUKRS = '0001' OR BUKRS = 'US01'.

* Get field
IT_REPORT = SY-REPID.
CALL FUNCTION 'REUSE_ALV_FIELDCATALOG_MERGE'
EXPORTING
I_PROGRAM_NAME = IT_REPORT
I_INTERNAL_TABNAME = 'T_OUT_FOR_F4'
I_INCLNAME = IT_REPORT
CHANGING
CT_FIELDCAT = IT_FIELDCAT[].

LOOP AT IT_FIELDCAT.
IT_FIELDCAT-KEY = SPACE.
IF IT_FIELDCAT-FIELDNAME = 'BUTXT'.
IT_FIELDCAT-KEY = 'X'.
ENDIF.
MODIFY IT_FIELDCAT.
ENDLOOP.

CALL FUNCTION 'REUSE_ALV_POPUP_TO_SELECT'
EXPORTING
* I_TITLE =
* I_SELECTION = 'X'
* I_ZEBRA = ' '
* I_SCREEN_START_COLUMN = 0
* I_SCREEN_START_LINE = 0
* I_SCREEN_END_COLUMN = 0
* I_SCREEN_END_LINE = 0
* I_CHECKBOX_FIELDNAME =
* I_LINEMARK_FIELDNAME =
* I_SCROLL_TO_SEL_LINE = 'X'
I_TABNAME = 'T_OUT_FOR_F4'
* I_STRUCTURE_NAME =
IT_FIELDCAT = IT_FIELDCAT[]
* IT_EXCLUDING =
* I_CALLBACK_PROGRAM =
* I_CALLBACK_USER_COMMAND =
* IS_PRIVATE =
IMPORTING ES_SELFIELD = ES_SELFIELD
* E_EXIT =
TABLES
T_OUTTAB = T_OUT_FOR_F4
EXCEPTIONS
PROGRAM_ERROR = 1
OTHERS = 2 .

IF SY-SUBRC 0.
MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.

ELSE.
READ TABLE T_OUT_FOR_F4 INDEX ES_SELFIELD-TABINDEX.
P_BUKRS = T_OUT_FOR_F4-BUKRS.

ENDIF.
ENDFORM. " F4_FOR_BUKRS


ALSO READ:



No comments:

Post a Comment