I MADE THIS PROGRAM
I WANT TO CLICK ON CUSTOMER AND BUTTON 'TEXST'
AND TO MAKE SOMETING WHAT THE CODE
&----
*& Report ZWM_CUSTOMER
*&
&----
*&
*&
&----
REPORT ZWM_CUSTOMER.
TYPE-POOLS: slis.
tables:vbak,kna1.
TYPES: BEGIN OF data_label,
box TYPE c ,
kunnr like vbak-kunnr,
END OF data_label.
DATA: itab TYPE TABLE OF data_label WITH HEADER LINE.
FIELD-SYMBOLS: <f1> LIKE LINE OF itab.
data: zname like kna1-name1.
DATA: gs_private TYPE slis_data_caller_exit VALUE 'X',
gs_selfield TYPE slis_selfield,
g_exit.
DATA: fieldcatalog TYPE slis_t_fieldcat_alv WITH HEADER LINE,
gd_tab_group TYPE slis_t_sp_group_alv,
gd_layout TYPE slis_layout_alv,
*gd_layout TYPE lvc_s_layo,
gd_repid LIKE sy-repid.
data: alvgrid TYPE REF TO cl_gui_alv_grid.
SELECT-OPTIONS : zkunnr for vbak-kunnr.
START-OF-SELECTION.
PERFORM data_retrieval.
PERFORM build_fieldcatalog.
PERFORM build_layout.
PERFORM display_alv_report.
----
----
----
FORM data_retrieval.
LOOP AT zkunnr.
itab-kunnr = zkunnr-low.
APPEND itab.
ENDLOOP.
ENDFORM.
----
----
----
FORM build_fieldcatalog.
clear fieldcatalog .
fieldcatalog-fieldname = 'KUNNR'.
fieldcatalog-seltext_m = 'Customer'.
fieldcatalog-outputlen = 10.
fieldcatalog-emphasize = 'X'.
fieldcatalog-key = 'X'.
APPEND fieldcatalog TO fieldcatalog.
CLEAR fieldcatalog.
ENDFORM.
----
----
----
FORM build_layout.
gd_layout-no_input = 'X'.
gd_layout-colwidth_optimize = 'X'.
gd_layout-totals_text = 'Totals'(201).
gd_layout-box_fieldname = 'CHECK'.
gd_layout-zebra = 'X'.
gd_layout-group_change_edit = 'X'.
gd_layout-header_text = 'helllllo'.
gd_layout-box_fieldname = 'BOX' .
gd_layout-box_tabname = 'DATA_LABEL' .
ENDFORM. " BUILD_LAYOUT
----
----
----
FORM display_alv_report.
gd_repid = sy-repid.
CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
EXPORTING
i_callback_program = gd_repid
i_callback_pf_status_set = 'STATUS_STANDARD'
i_callback_user_command = 'USER_COMMAND'
is_layout = gd_layout
it_fieldcat = fieldcatalog[]
i_save = 'X'
TABLES
t_outtab = itab
EXCEPTIONS
program_error = 1
OTHERS = 2.
ENDFORM. " DISPLAY_ALV_REPORT
FORM status_standard using rt_extab type slis_t_extab.
set PF-STATUS 'STANDARD1' .
endform.
form USER_COMMAND using r_comm type sy-ucomm
rs_selfield type slis_selfield.
if r_comm = 'SOMETHING'.
INCLUDE zprint_label_customer.
endif.
ENDFORM.
Bluesky
