Changer l'entête d'un ALV (objet)

1- Je déclare l'objet "Colonne" et son "sous-objet" pour modifier les paramètres des colonnes :

DATA : lr_columns1 TYPE REF TO cl_salv_columns_table,

lr_column1 TYPE REF TO cl_salv_column_table,

2- je pointe sur les paramètres de l'objet colonne de votre grille :

lr_columns1 = lr_alv1->get_columns( ).

lr_columns1->set_optimize( ).

3- Je modifie l'entete de mes colonnes :

lr_columns ?= lo_column->get_column( column_name ).

lr_columns->set_short_text( short_text ).

lr_columns->set_medium_text( medium_text ).

lr_columns->set_long_text( long_text ).

Copier le FORM column_label_change dans vos programmes...

Le code source à copier coller

form à copier coller

exemple utilisation

data :   lr_alv1                        TYPE REF TO cl_salv_table,
           lr_functions1                  TYPE REF TO cl_salv_functions,
           lr_columns1                    TYPE REF TO cl_salv_columns_table,
           lr_column1                     TYPE REF TO cl_salv_column_table,
            
        IF lr_alv1 IS BOUND.
          "Set all functions
          lr_functions1 = lr_alv1->get_functions( ).
          lr_functions1->set_all( abap_true ).

"Creation of selection column in ALV
          gr_selections1 = lr_alv1->get_selections( ).
          gr_selections1->set_selection_mode( 3 ).

"Optimise columns
          lr_columns1 = lr_alv1->get_columns( ).
          lr_columns1->set_optimize( ).
          PERFORM column_label_change USING 'DOCNUM' TEXT-h01 CHANGING lr_columns1.
          PERFORM column_label_change USING 'STATUS' TEXT-h02 CHANGING lr_columns1.
          PERFORM column_label_change USING 'SNDPRN' TEXT-h03 CHANGING lr_columns1.
          PERFORM column_label_change USING 'CREDAT' TEXT-h04 CHANGING lr_columns1.
          PERFORM column_label_change USING 'CRETIM' TEXT-h05 CHANGING lr_columns1.
          PERFORM column_label_change USING 'MESTYP' TEXT-h06 CHANGING lr_columns1.
          PERFORM column_label_change USING 'IDOCTP' TEXT-h07 CHANGING lr_columns1.
          PERFORM column_label_change USING 'MATNR' TEXT-h08 CHANGING lr_columns1.
          PERFORM column_label_change USING 'QUANTITY' TEXT-h10 CHANGING lr_columns1.
          PERFORM column_label_change USING 'MESSAGE' TEXT-h11 CHANGING lr_columns1.
          PERFORM column_label_change USING 'BAPI_MSG' TEXT-h15 CHANGING lr_columns1.
        endif.
  
           IF lr_alv1 IS NOT BOUND.
              IF custom_container1 IS NOT BOUND.
                CREATE OBJECT custom_container1
                  EXPORTING
                    container_name = 'CUSTOM_CONTAINER1'.
              ENDIF.
              cl_salv_table=>factory(
              EXPORTING
                r_container  = custom_container1
              IMPORTING
                r_salv_table = lr_alv1
              CHANGING
                t_table      = gt_idoc_whscon_alv1 ).
            ELSE. " obligatoire si la table a changé
              lr_alv1->refresh( ).
            ENDIF.
            CALL METHOD lr_alv1->display.