Skip to Content

Archived discussions are read-only. Learn more about SAP Q&A

i need add a button in REUSE_ALV_GRID_DISPLAY

i need add a button in the status of REUSE_ALV_GRID_DISPLAY and i use this, but it don't run:

g_layout-zebra = 'X'.

CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'

EXPORTING

  • I_INTERFACE_CHECK = ' '

  • I_BYPASSING_BUFFER =

  • I_BUFFER_ACTIVE = '

I_CALLBACK_PROGRAM = sy-repid

I_CALLBACK_PF_STATUS_SET = 'PF_STATUS'

I_CALLBACK_USER_COMMAND = 'ACCION_BOTON'

  • I_CALLBACK_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 = g_layout

IT_FIELDCAT = g_t_catalogo

  • IT_EXCLUDING =

  • IT_SPECIAL_GROUPS =

  • IT_SORT =

  • IT_FILTER =

  • IS_SEL_HIDE =

  • I_DEFAULT = 'X'

  • I_SAVE = ' '

  • IS_VARIANT =

  • IT_EVENTS =

  • 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

  • IT_ALV_GRAPHICS =

  • IT_ADD_FIELDCAT =

  • IT_HYPERLINK =

  • I_HTML_HEIGHT_TOP =

  • I_HTML_HEIGHT_END =

  • IT_EXCEPT_QINFO =

  • IMPORTING

  • E_EXIT_CAUSED_BY_CALLER =

  • ES_EXIT_CAUSED_BY_USER =

TABLES

T_OUTTAB = g_t_escalafon

  • 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.

ENDIF.

ENDFORM. " alv

-


FORM PF_STATUS USING ce_func_exclude TYPE slis_t_extab.

DATA fcode_attrib_tab LIKE smp_dyntxt OCCURS 4 WITH HEADER LINE.

CLEAR: fcode_attrib_tab, fcode_attrib_tab[].

  • primer boton

fcode_attrib_tab-icon_id = '@2L@'.

fcode_attrib_tab-quickinfo = text-004.

APPEND fcode_attrib_tab.

PERFORM dynamic_report_fcodes(rhteiln0) TABLES fcode_attrib_tab

USING ce_func_exclude ' ' ' '.

SET PF-STATUS 'ALVLIST' EXCLUDING ce_func_exclude OF PROGRAM

'RHTEILN0'.

ENDFORM.

FORM ACCION_BOTON USING ucomm LIKE sy-ucomm rs_selfield TYPE

slis_selfield.

CASE ucomm.

WHEN 'SAVE'.

message i398(00) with text-001.

ENDCASE.

ENDFORM. "USER_COMMAND

Tags:
Former Member
Not what you were looking for? View more on this topic or Ask a question