AL

DATA:gs_layout TYPE lvc_s_layo,
gt_fieldcat TYPE STANDARD TABLE OF lvc_s_fcat WITH HEADER LINE.
FORM frm_set_field USING p_col
VALUE(p_fieldname)
VALUE(p_checkbox)
VALUE(p_reff)
VALUE(p_reft)
VALUE(p_txt).
CLEAR:gt_fieldcat.
gt_fieldcat-col_pos = p_col.
gt_fieldcat-fieldname = p_fieldname.
gt_fieldcat-checkbox = p_checkbox.
gt_fieldcat-ref_field = p_reff .
gt_fieldcat-ref_table = p_reft.
gt_fieldcat-scrtext_l = p_txt.
APPEND gt_fieldcat.
ENDFORM.
FORM frm_set_fields .
DATA l_col TYPE i.
l_col = l_col + 1.
PERFORM frm_set_field USING l_col ‘BUKRS’ ” ” ” ‘公司代码’ .
l_col = l_col + 1.
PERFORM frm_set_field USING l_col ‘KUNRG’ ” ” ” ‘客户’ .
ENDFORM.
FORM frm_display .
gs_layout-zebra = ‘X’.
gs_layout-cwidth_opt = ‘X’.
PERFORM frm_set_fields.

CALL FUNCTION ‘REUSE_ALV_GRID_DISPLAY_LVC’
EXPORTING
* I_INTERFACE_CHECK = ’ ’
* I_BYPASSING_BUFFER =
* I_BUFFER_ACTIVE =
i_callback_program = sy-repid
i_callback_pf_status_set = ‘PF_STATUS_SET’
i_callback_user_command = ‘USER_COMMAND’
* 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_lvc = gs_layout
it_fieldcat_lvc = gt_fieldcat[]
* IT_EXCLUDING =
* IT_SPECIAL_GROUPS_LVC =
* IT_SORT_LVC =
* IT_FILTER_LVC =
* IT_HYPERLINK =
* IS_SEL_HIDE =
* I_DEFAULT = ‘X’
i_save = ‘A’
* IS_VARIANT =
* IT_EVENTS =
* IT_EVENT_EXIT =
* IS_PRINT_LVC =
* IS_REPREP_ID_LVC =
* I_SCREEN_START_COLUMN = 0
* I_SCREEN_START_LINE = 0
* I_SCREEN_END_COLUMN = 0
* I_SCREEN_END_LINE = 0
* I_HTML_HEIGHT_TOP =
* I_HTML_HEIGHT_END =
* IT_ALV_GRAPHICS =
* IT_EXCEPT_QINFO_LVC =
* IR_SALV_FULLSCREEN_ADAPTER =
* IMPORTING
* E_EXIT_CAUSED_BY_CALLER =
* ES_EXIT_CAUSED_BY_USER =
TABLES
t_outtab = gt_itab_display[]
* EXCEPTIONS
* PROGRAM_ERROR = 1
* OTHERS = 2
.
IF sy-subrc <> 0.
* Implement suitable error handling here
ENDIF.

ENDFORM.

FORM pf_status_set USING rt_extab TYPE slis_t_extab.
SET PF-STATUS ‘STATUS_1000’ .
ENDFORM.

FORM user_command USING ucomm LIKE sy-ucomm
selfield TYPE slis_selfield.
DATA l_check TYPE c LENGTH 1.
DATA l_sdm TYPE bapiplaf_i1-material.” lfa1-lifnr.
DATA ls_headerdata TYPE bapiplaf_i1.
DATA ls_return TYPE bapireturn1.
DATA ls_plannedorder TYPE bapi_pldord-pldord_num.
DATA lt_componentsdata TYPE STANDARD TABLE OF bapi_pldordcomp_i1 WITH HEADER LINE.
DATA : l_grid TYPE REF TO cl_gui_alv_grid.
CALL FUNCTION ‘GET_GLOBALS_FROM_SLVC_FULLSCR’
IMPORTING
e_grid = l_grid.
CALL METHOD l_grid->check_changed_data.

CASE ucomm.

WHEN 'XZ'.
  PERFORM download.

ENDCASE.

“刷新ALV,并固定屏幕
DATA:wa_stbl TYPE lvc_s_stbl.
wa_stbl-row = ‘X’.
CALL METHOD l_grid->refresh_table_display
EXPORTING
is_stable = wa_stbl.

ENDFORM.