Zelleninhalt im GRID ausblenden

Code: Alles auswählen.

 
DATA:        gt_fieldcat TYPE slis_t_fieldcat_alv .
FIELD-SYMBOLS: <fs_slis> TYPE slis_fieldcat_alv.

CALL FUNCTION 'REUSE_ALV_FIELDCATALOG_MERGE'
   EXPORTING
     i_program_name               = 'PROGRAMMNAME'
*   I_INTERNAL_TABNAME           =
     i_structure_name             = 'STRUKTURNAME'
*   I_CLIENT_NEVER_DISPLAY       = 'X'
*   I_INCLNAME                   =
   i_bypassing_buffer           = 'X'
*   I_BUFFER_ACTIVE              =
    CHANGING
      ct_fieldcat                  = gt_fieldcat
 EXCEPTIONS
   inconsistent_interface       = 1
   program_error                = 2
   OTHERS                       = 3.

  IF sy-subrc <> 0.
* MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
*         WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
  ENDIF.

Code: Alles auswählen.

 
LOOP AT gt_fieldcat   ASSIGNING <fs_slis>.
    CASE <fs_slis>-fieldname.
      WHEN 'FELD1'.
*------- Feld1(Spalte1)
        <fs_slis>-no_zero         = 'X'.
      WHEN 'FELD2'.
*------- Feld2(Spalte2)
        <fs_slis>-no_zero         = 'X'.
      WHEN 'FELD3'.
*------- Feld3(Spalte3)
        <fs_slis>-no_zero         = 'X'.
      WHEN 'FELD4'.
*------- Feld4(Spalte4)
        <fs_slis>-no_zero         = 'X'.
      WHEN 'FELD5'.
*------- Feld5(Spalte5)
        <fs_slis>-no_zero         = 'X'.
      WHEN 'FELD6'.
*------- Feld6(Spalte6) wird nicht ausgegeben
        <fs_slis>-no_out       = 'X'.
      WHEN OTHERS.
    ENDCASE.
  ENDLOOP.

Code: Alles auswählen.

    
  DATA: g_repid LIKE sy-repid.
  DATA: ls_variant TYPE disvariant.
  g_repid = sy-repid.
  ls_variant-report = sy-repid.

CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
     EXPORTING
*   I_INTERFACE_CHECK             = ' '
      i_bypassing_buffer          = 'X'
*   I_BUFFER_ACTIVE               = ' '
      i_callback_program          = g_repid
      i_structure_name            = 'STRUKTURNAME
*   I_BACKGROUND_ID               = ' '
*   I_GRID_TITLE                  =
*   I_GRID_SETTINGS               =
*     is_layout                   =  ' '
      it_fieldcat                 = gt_fieldcat
*     it_sort                     = ' '
      i_save                      = 'U'
      is_variant                  = ls_variant
     TABLES
      t_outtab                    = gt_ausg
     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.