alv展示

最新推荐文章于 2024-08-05 22:03:40 发布

weixin_54838736

最新推荐文章于 2024-08-05 22:03:40 发布

阅读量20

点赞数

文章标签：开发语言

本文链接：https://blog.csdn.net/weixin_54838736/article/details/134716332

版权

FORM frm_display_data .

  DATA: lt_fcat          TYPE lvc_t_fcat,
        ls_layout        TYPE lvc_s_layo,
        ls_fcat          TYPE lvc_s_fcat.

  PERFORM frm_build_data TABLES lt_fcat USING ls_fcat.

  ls_layout-cwidth_opt = 'X'.
  ls_layout-zebra = 'X'.

  CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY_LVC'
    EXPORTING
      i_callback_program       = sy-repid
      i_callback_pf_status_set = 'FRM_SET_STATUS'
      i_callback_user_command  = 'FRM_USER_COMMAND'
      is_layout_lvc            = ls_layout
      it_fieldcat_lvc          = lt_fcat
    TABLES
      t_outtab                 = gt_upload.

ENDFORM.

FORM frm_set_status USING extab TYPE kkblo_t_extab.

  SET PF-STATUS 'STANDARD' EXCLUDING extab.

ENDFORM.


FORM frm_user_command USING r_ucomm TYPE sy-ucomm
                            is_selfield TYPE slis_selfield.

  DATA: lr_grid TYPE REF TO cl_gui_alv_grid.
  CALL FUNCTION 'GET_GLOBALS_FROM_SLVC_FULLSCR'
    IMPORTING
      e_grid = lr_grid.
  CALL METHOD lr_grid->check_changed_data.

  CASE r_ucomm.
    WHEN 'SAVE'.
      PERFORM frm_save_data.
  ENDCASE.

  is_selfield-refresh = 'X'.
  is_selfield-col_stable = 'X'.
  is_selfield-row_stable = 'X'.
ENDFORM.

FORM frm_build_data  TABLES   pt_fcat STRUCTURE lvc_s_fcat
                      USING    ps_fcat.

  PERFORM add_fcat TABLES pt_fcat USING ps_fcat  'ZDN_NUM '  TEXT-005 ''.
  PERFORM add_fcat TABLES pt_fcat USING ps_fcat  'ZBL_NUM'   TEXT-006 p_edit.
  PERFORM add_fcat TABLES pt_fcat USING ps_fcat  'Z_CTR_NUM' TEXT-007 p_edit.
  PERFORM add_fcat TABLES pt_fcat USING ps_fcat  'ZMAKTX_DN' TEXT-008 p_edit.
  PERFORM add_fcat TABLES pt_fcat USING ps_fcat  'KDMAT'     TEXT-009 p_edit.
  PERFORM add_fcat TABLES pt_fcat USING ps_fcat  'ZLFIMG'    TEXT-010 p_edit.
  PERFORM add_fcat TABLES pt_fcat USING ps_fcat  'VRKME'     TEXT-011 p_edit.
  PERFORM add_fcat TABLES pt_fcat USING ps_fcat  'FLIGHT'    TEXT-012 ''.
  PERFORM add_fcat TABLES pt_fcat USING ps_fcat  'MESSAGE'   TEXT-013 ''.

ENDFORM.

FORM add_fcat TABLES pt_fcat STRUCTURE lvc_s_fcat
  USING ps_fcat TYPE lvc_s_fcat
          pv_name TYPE char30
          pv_text TYPE char30
          pv_edit TYPE char1.

  CLEAR ps_fcat.
  IF pv_name = 'FLIGHT'.
    ps_fcat-icon = 'X'.
  ENDIF.
  IF pv_name = 'ZLFIMG'.
    ps_fcat-ref_table = 'ZTTM_CONTAINER'.
    ps_fcat-ref_field = 'ZLFIMG'.
  ENDIF.
  ps_fcat-fieldname = pv_name.
  ps_fcat-reptext   = pv_text.
  ps_fcat-edit = pv_edit.
  APPEND ps_fcat TO pt_fcat.

ENDFORM.