Basit ALV Raporu ()

REPORT z_guncelle_log.


TABLES: zmm_guncelle_log.
DATA : gt_log TYPE TABLE OF zmm_guncelle_log .

DATA gs_field  TYPE  slis_t_fieldcat_alv WITH HEADER LINE.



SELECT-OPTIONS : 
s_matnr FOR zmm_guncelle_log-matnr,
s_alan FOR zmm_guncelle_log-alan,
s_uname FOR zmm_guncelle_log-uname,
s_tarih FOR zmm_guncelle_log-tarih,
s_saat FOR zmm_guncelle_log-saat.

START-OF-SELECTION .
  PERFORM get_log_data .

  PERFORM fieldcat.
  PERFORM disp_log_alv .

*&---------------------------------------------------------------------*
*&      Form  GET_MARA_DATA
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
*  -->  p1        text
*  <--  p2        text
*----------------------------------------------------------------------*
FORM get_log_data .
  SELECT * FROM zmm_guncelle_log
      INTO TABLE gt_log
      WHERE 
            matnrIN s_matnr AND
            alan IN s_alan AND
            uname IN s_uname AND
            tarih IN s_tarih AND
            saat IN s_saat .






ENDFORM.                    " GET__MARA_DATA
*&---------------------------------------------------------------------*
*&      Form  DISP_MARA_ALV
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
*  -->  p1        text
*  <--  p2        text
*----------------------------------------------------------------------*
FORM disp_log_alv .


  CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
     EXPORTING
        i_callback_program      = 'ZDI_GUNCELLE_LOG'
       it_fieldcat              = gs_field[]

      i_callback_user_command  = 'USER_COMMAND'
            i_save = 'X'
     TABLES
       t_outtab                 = gt_log
     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.                    " DISP_MARA_ALV
*&---------------------------------------------------------------------*
*&      Form  FIELDCAT
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
*  -->  p1        text
*  <--  p2        text
*----------------------------------------------------------------------*
FORM fieldcat .



  gs_field-fieldname = 'MATNR'.
  gs_field-ref_tabname = 'ZDI_GUNCELLE_LOG'.
  gs_field-col_pos = 0.
  gs_field-reptext_ddic  = 'Ürünkodu'.
  APPEND gs_field.
  CLEAR gs_field.


  gs_field-fieldname = 'ALAN'.
  gs_field-ref_tabname = 'ZDI_GUNCELLE_LOG'.
  gs_field-reptext_ddic  = 'İşlem'.
  gs_field-col_pos = 0.
  APPEND gs_field.
  CLEAR gs_field.

  gs_field-fieldname = 'UNAME'.
  gs_field-ref_tabname = 'ZDI_GUNCELLE_LOG'.
  gs_field-reptext_ddic  = 'Kullanıcı'.
  gs_field-col_pos = 0.
  APPEND gs_field.
  CLEAR gs_field.

  gs_field-fieldname = 'TARIH'.
  gs_field-ref_tabname = 'ZDI_GUNCELLE_LOG'.
  gs_field-reptext_ddic  = 'Tarih'.
  gs_field-col_pos = 0.
  APPEND gs_field.
  CLEAR gs_field.

  gs_field-fieldname = 'SAAT'.
  gs_field-ref_tabname = 'ZDI_GUNCELLE_LOG'.
  gs_field-reptext_ddic  = 'Saat'.
  gs_field-col_pos = 0.
  APPEND gs_field.
  CLEAR gs_field.


ENDFORM.                    " FIELDCAT