Par exemple : C’est important quand on a plusieurs ALV dans un même écran  et qu’on ne veut pas multiplier les méthodes pour gérer les évènements double_click .

PUBLIC SECTION.
METHODS constructor.
METHODS dbl_click FOR EVENT double_click OF cl_gui_alv_grid
IMPORTING e_row e_column es_row_no sender.

…

METHOD dbl_click.

…

wv_name_alv =  sender->get_name( ). ” On récupère ici le nom de l’objet à partir duquel on a déclenché l’évènement double_click

case wv_name_alv.

when ‘XXX’.

when ‘YYY’.

endcase.

ENDMETHOD.

Il faut tout d’abord préparer puis sauvegarder un affichage de référence pour un utilisateur donné :

La table TIH01 est alors alimentée.

RIHQMEL_H : Avis service + Qualité

RIHAUFK_H : Ordre…

Il reste à coder un petit utilitaire pour copier la mise en forme (càd les données de la table TIH01) de l’utilisateur de référence vers les utilisateurs cibles. Cela évite de passer sur les PC pour paramétrer les listes.

Exemple de code :

REPORT zbcspe14                                                    .
************************************************************************
* Programme pour MAJ de la table TIH01 : Historique S/N
************************************************************************
* KU : JMEGIAS
* Dév : JMEGIAS
************************************************************************

PARAMETERS : p_user  LIKE sy-uname OBLIGATORY DEFAULT ’FGONTHIER’.
SELECT-OPTIONS : s_user  FOR  sy-uname OBLIGATORY.
DATA : wr_tab TYPE RANGE OF tabname,
ws_tab LIKE LINE OF wr_tab.
DATA : wv_uname TYPE syuname.
DATA : wt_tih01 TYPE TABLE OF tih01,
ws_tih01 TYPE tih01.
DATA : wv_tp_user TYPE syuname.
DATA : ws_usr02 TYPE usr02.

INITIALIZATION.
CLEAR ws_tab.
ws_tab-sign = ’I’.
ws_tab-option = ’EQ’.
ws_tab-low = ’RIHAUFK_H’.
APPEND ws_tab TO wr_tab.
ws_tab-low = ’SER02′.
APPEND ws_tab TO wr_tab.
ws_tab-low = ’RIHQMEL_H’.
APPEND ws_tab TO wr_tab.
ws_tab-low = ’SER01′.
APPEND ws_tab TO wr_tab.
ws_tab-low = ’SER03′.
APPEND ws_tab TO wr_tab.

START-OF-SELECTION.

CHECK p_user IS NOT INITIAL.
CHECK s_user IS NOT INITIAL.

* on recupère les enregistrements dans la tables TIH01 pour le modèle
SELECT * INTO TABLE wt_tih01
FROM tih01
WHERE tabname IN wr_tab
AND uname = p_user.
IF sy-dbcnt > 0.
MOVE p_user TO wv_tp_user.
LOOP AT s_user INTO ws_tab.
MOVE ws_tab-low TO wv_uname.
*      vérification du user
SELECT SINGLE * INTO ws_usr02
FROM usr02
WHERE bname = wv_uname.
IF sy-subrc = 0.
ws_tih01-uname = wv_uname.
MODIFY wt_tih01 FROM ws_tih01 TRANSPORTING uname WHERE uname = wv_tp_user.
IF sy-subrc = 0.
MOVE wv_uname TO wv_tp_user.
ENDIF.
*        MAJ de la base de données
MODIFY tih01 FROM TABLE wt_tih01.
COMMIT WORK AND WAIT.
ELSE.
MESSAGE i107(zqm1).
ENDIF.
ENDLOOP.
ENDIF.

Bien souvent on utilise un programme  classique pour pouvoir bénéficier des SELECT-OPTIONS et autres PARAMETERS très utiles pour la sélection des données, mais on oublie, à tort,  que l’on peut avoir exactement la même chose dans les dynpro. On peut allier facilement : Sélection de données des programmes et liberté graphique et fonctionnelle des dynpro.

Il suffit de gérer un sous-écran dans le dynpro et de déclarer le SELECTION-SCREEN comme SUBSCREEN.

Exemple :

REPORT zsdspe89                                                    .

INCLUDE zsdspe89d.
INCLUDE zsdspe89f.
*– Définition de l’écran de sélection –*
SELECTION-SCREEN BEGIN OF SCREEN 300 AS SUBSCREEN.
SELECTION-SCREEN BEGIN OF BLOCK bl1 WITH FRAME TITLE text-b01.
SELECT-OPTIONS : s_spbup  FOR s800-spbup OBLIGATORY.
SELECTION-SCREEN END OF BLOCK bl1.
SELECTION-SCREEN END OF SCREEN 300.

*– Fin de la définition –*
CLASS lcl_app DEFINITION DEFERRED.

DATA : wo_app TYPE REF TO lcl_app.

*———————————————————————-*
*       CLASS lcl_app DEFINITION
*———————————————————————-*
*
*———————————————————————-*
CLASS lcl_app DEFINITION.
PUBLIC SECTION.
PRIVATE SECTION.
ENDCLASS.                    “lcl_app DEFINITION

*———————————————————————-*
*       CLASS lcl_app IMPLEMENTATION
*———————————————————————-*
*
*———————————————————————-*
CLASS lcl_app IMPLEMENTATION.
ENDCLASS.                    “lcl_app IMPLEMENTATION

INCLUDE zsdspe89_pbo.
INCLUDE zsdspe89_pai.

START-OF-SELECTION.

CALL SCREEN ’200′.

***************************************************

Dans le dynpro 200 on déclare le sous-ecran 300 :

PROCESS BEFORE OUTPUT.
MODULE STATUS_0200.
CALL SUBSCREEN sub1 INCLUDING SY-REPID ’0300′.
*
PROCESS AFTER INPUT.
CALL SUBSCREEN sub1.
MODULE USER_COMMAND_0200.

Je l’utilise depuis un avis QM pour automatiser la création du PO sur ordre de service afin de facturer des coûts de garantie. Pour info : La réception de ce PO est aussi automatisée via la barre d’activités de l’avis et la BAPI  :   BAPI_GOODSMVT_CREATE  .

 - Dans cet exemple on ne crée qu’un seul poste dans le PO

DATA : ws_poheader     TYPE bapimepoheader,
             ws_poheaderx     TYPE bapimepoheaderx,
             wt_poitem            TYPE TABLE OF bapimepoitem,
             ws_poitem            TYPE bapimepoitem,
             wt_poitemx          TYPE TABLE OF bapimepoitemx,
             ws_poitemx          TYPE bapimepoitemx,
             wt_poaccount     TYPE TABLE OF bapimepoaccount,
             ws_poaccount     TYPE bapimepoaccount,
             ws_poaccountx   TYPE bapimepoaccountx,
             wt_poaccountx   TYPE TABLE OF bapimepoaccountx,
             wt_pocondx         TYPE TABLE OF bapimepocondx,
             ws_pocondx        TYPE bapimepocondx,
             wt_pocond           TYPE TABLE OF bapimepocond,
             ws_pocond          TYPE bapimepocond,
             wt_return             TYPE TABLE OF bapiret2,
             ws_return            TYPE bapiret2.

  DATA : wv_waers TYPE bstwa,
              wv_netpr TYPE bprei.

  CONSTANTS : wc_avtf(4) VALUE ’AVTF’,
                           wc_604(10) VALUE ’0060411150′,
                           wc_1000(4) value ’1000′,
                           wc_gar(8)  value ’GARANTIE’.

*… Récupération des données

********************************************
*            Entete                        *
********************************************
  CLEAR ws_poheader.
  ws_poheader-doc_type = ’NB’.
  ws_poheader-comp_code = wc_avtf.
  ws_poheader-purch_org = wc_avtf.
  ws_poheader-pur_group = ws_zq14-ekgrp.
  ws_poheader-vendor = ws_zq14-lifnr.
  ws_poheader-our_ref = i_viqmel-qmnum.
  ws_poheader-item_intvl = 00010.
  ws_poheader-currency = wv_waers.
  CLEAR ws_poheaderx.
  ws_poheaderx-doc_type = ’X’.
  ws_poheaderx-comp_code = ’X’.
  ws_poheaderx-purch_org = ’X’.
  ws_poheaderx-pur_group = ’X’.
  ws_poheaderx-vendor = ’X’.
  ws_poheaderx-our_ref = ’X’.
  ws_poheaderx-item_intvl = ’X’.
  ws_poheader-currency = ’X’.
*  ws_poheaderx-our_ref = ’X’.
**********************************************
*                Poste                       *
**********************************************
  CLEAR ws_poitem. REFRESH wt_poitem.
  CLEAR ws_poitemx. REFRESH wt_poitemx.
  ws_poitem-plant  = wc_1000.
  ws_poitemx-plant = ’X’.
  ws_poitem-stge_loc  = ws_zq14-lgort.
  ws_poitemx-stge_loc = ’X’.
  ws_poitem-matl_group  = wc_gar.
  ws_poitemx-matl_group = ’X’.
  ws_poitem-short_text  = text-607.
  ws_poitemx-short_text = ’X’.
  ws_poitem-po_item  = ’00010′.
  ws_poitemx-po_item = ’00010′.
  ws_poitemx-po_itemx = ’X’.
  ws_poitem-po_unit  = ’ST’.
  ws_poitemx-po_unit = ’X’.
  ws_poitem-quantity  = ’1′.
  ws_poitemx-quantity = ’X’.
  ws_poitem-acctasscat  = ’F’.
  ws_poitemx-acctasscat = ’X’.

  APPEND ws_poitem TO wt_poitem.
  APPEND ws_poitemx TO wt_poitemx.
*********************************************
*          Onglet imputation                *
*********************************************
  CLEAR ws_poaccount. REFRESH wt_poaccount.
  CLEAR ws_poaccountx. REFRESH wt_poaccountx.

  ws_poaccount-po_item  = ’00010′.
  ws_poaccountx-po_item = ’00010′.
  ws_poaccountx-po_itemx = ’X’.
  ws_poaccount-gl_account  = wc_604. 
  ws_poaccountx-gl_account = ’X’.
  ws_poaccount-orderid  = wv_aufnr. 
  ws_poaccountx-orderid = ’X’.
  ws_poaccount-co_area  = ’HVT’.
  ws_poaccountx-co_area = ’X’.
  ws_poaccount-bus_area = ’1′.
  ws_poaccountx-bus_area = ’X’.

  APPEND ws_poaccount  TO wt_poaccount.
  APPEND ws_poaccountx TO wt_poaccountx.

*********************************************
*           Conditions                      *
*********************************************
  CLEAR ws_pocond. REFRESH wt_pocond.
  CLEAR ws_pocondx. REFRESH wt_pocondx.

  ws_pocond-itm_number  = ’00010′.
  ws_pocondx-itm_number = ’00010′.
  ws_pocondx-itm_numberx = ’X’.
  ws_pocond-cond_value  = wv_netpr.
  ws_pocondx-cond_value = ’X’.
  ws_pocond-change_id  = ’I’.
  ws_pocondx-change_id = ’X’.
  ws_pocond-cond_type  = ’PB00′.
  ws_pocondx-cond_type = ’X’.

  APPEND ws_pocond TO wt_pocond.
  APPEND ws_pocondx TO wt_pocondx.

  CALL FUNCTION ‘BAPI_PO_CREATE1′
    EXPORTING
      poheader         = ws_poheader
      poheaderx        = ws_poheaderx
    IMPORTING
      exppurchaseorder = wv_ebeln
    TABLES
      return           = wt_return
      poitem           = wt_poitem
      poitemx          = wt_poitemx
      poaccount        = wt_poaccount
      poaccountx       = wt_poaccountx
      pocond           = wt_pocond
      pocondx          = wt_pocondx.

  CALL FUNCTION ‘BAPI_TRANSACTION_COMMIT’
    EXPORTING
      wait = ’X‘.

  Data : wt_groups type LVC_T_SGRP,
              ws_groups type LVC_S_SGRP.

…

Dans la methode de mise en forme de l’ALV (Tri, layout…)

* groupes spécials
    CLEAR ws_groups. REFRESH wt_groups.
    ws_groups-sp_group = ’01′.
    ws_groups-text = text-g01.  ”‘Avis QM’.
    APPEND ws_groups TO wt_groups.
    CLEAR ws_groups.
    ws_groups-sp_group = ’02′.
    ws_groups-text = text-g03. “‘Données CO’.
    APPEND ws_groups TO wt_groups.
    CLEAR ws_groups.
    ws_groups-sp_group = ’03′.
    ws_groups-text = text-g02. “‘Données CS’.
    APPEND ws_groups TO wt_groups.

…

Dans la methode la mise en forme du catalogue de l’ALV

      CALL FUNCTION ‘LVC_FIELDCATALOG_MERGE’
          EXPORTING
             i_structure_name = ’ZST_GARANTIE’
          CHANGING
            ct_fieldcat      = wt_fieldcat.
    LOOP AT wt_fieldcat INTO ws_field.
      CASE ws_field-fieldname.

…   

       WHEN ’QMKAT’.
          ws_field-no_out = ’X’.
          ws_field-sp_group = ’01′.
        WHEN OTHERS.
          ws_field-no_out = ’X’.
          ws_field-sp_group = ’02′.
      ENDCASE.
      MODIFY wt_fieldcat FROM ws_field.
    ENDLOOP.

Dans l’appel de la methode   : “set_table_for_first_display”  

wo_alv->set_table_for_first_display( EXPORTING
                                         is_layout            = ws_layout
                                         is_variant           = ws_disvariant
                                         i_save               = ’A’
                                         IT_SPECIAL_GROUPS    = wt_groups
                                         CHANGING
                                          it_fieldcatalog       = wt_fieldcat
                                          it_sort               = wt_sort
                                          it_outtab             = wt_garantie
                                          ).