ALV

alv

DATA: gt_fieldcat TYPE slis_t_fieldcat_alv,
      gs_fieldcat LIKE LINE OF gt_fieldcat,
      gs_layout   TYPE slis_layout_alv.
DATA BEGIN OF gt_all OCCURS 0.
        INCLUDE STRUCTURE mara.
DATA:sel,
END OF gt_all.
FORM frm_display_table  TABLES p_outtab .
  PERFORM frm_fill_layout USING 'SEL'.
  PERFORM frm_field_category.
  IF p_outtab[] IS INITIAL.
    MESSAGE  '查询无数据！' TYPE 'S'.
    STOP.
  ENDIF.
  gs_layout-colwidth_optimize = 'X'.

  CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
    EXPORTING
      i_callback_program       = sy-repid
      i_callback_user_command  = 'FRM_USER_COMMAND'
      i_callback_pf_status_set = 'FRM_ALV_PF_STATUS'
      it_fieldcat              = gt_fieldcat[]
      is_layout                = gs_layout
      i_save                   = 'A'
    TABLES
      t_outtab                 = p_outtab "gt_gwcg[]
    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.  

              
FORM frm_fill_layout USING pr_box.
  CLEAR:gt_events[],gs_events,gs_layout.

  gs_layout-colwidth_optimize = 'X'.    " 自动收缩
  IF pr_box IS NOT INITIAL.
    gs_layout-box_fieldname = pr_box.
  ENDIF.
ENDFORM.                    " FRM_FILL_LAYOUT

FORM frm_field_category .
  DATA: wa_fieldcat TYPE slis_fieldcat_alv.

  REFRESH: gt_fieldcat.
  PERFORM frm_init_field_edit_all
          USING:'T1' 'UZEIT'  '上传时间' '' 18,
                'T1' 'PERNR'  '工号' '' 18,
                'T1' 'UNAME'  '姓名' '' 18.
             
ENDFORM.                    " FRM_FIELD_CATEGORY


FORM frm_init_field_edit_all USING pr_tabname
                                   pr_field
                                   pr_fieldlabel
                                   pr_edit
                                   pr_fieldoutputlen.
  CLEAR gs_fieldcat.
  gs_fieldcat-tabname = pr_tabname.
  gs_fieldcat-fieldname = pr_field.
  gs_fieldcat-seltext_l = pr_fieldlabel.
  gs_fieldcat-edit = pr_edit.

  gs_fieldcat-just = 'L'.
  gs_fieldcat-outputlen = pr_fieldoutputlen.
  APPEND gs_fieldcat TO gt_fieldcat.


ENDFORM.    


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

  CASE r_ucomm.
    WHEN 'SEND'.
      PERFORM frm_refresh_alv.
      PERFORM frm_fill_inputcollection.
      PERFORM frm_send_data_batch.
      rs_selfield-refresh = 'X'.

ENDFORM.  

FORM frm_alv_pf_status USING rt_extab TYPE slis_t_extab.
  DATA lwa_extab LIKE LINE OF rt_extab.
  DATA:lr_grid TYPE REF TO cl_gui_alv_grid.

  SET PF-STATUS 'ZSTANDARD01'.
  "通过SE41去SAPLKKBL的 STANDARD_FULLSCREEN 点击 status copy

ENDFORM.