Dans l’exemple suivant nous allons envoyer un e-mail lors de la création d’un doc.Article sur le magasin ‘XX’ et pour les codes mouvements ’101′ et ’622′ (en sachant que par docArticle on a 1 seul mvt et 1 seul magasin).

DATA : ws_ent type sodocchgi1.
DATA : wt_poste type TABLE OF soli,
                ws_poste type soli.
data : ws_mseg type mseg,
            ws_mkpf type mkpf.
 DATA : wv_adr type AD_SMTPADR.
 data : wr_range type range of mseg-BWART,
             ws_range like line of wr_range.
 * initialisation des codes mvt
  ws_range-option = ’EQ’.
  ws_range-sign = ’I’.
  ws_range-low = ’101′.
  append ws_range to wr_range.
  clear ws_range.
  ws_range-option = ’EQ’.
  ws_range-sign = ’I’.
  ws_range-low = ’622′.
  append ws_range to wr_range.

loop at xmkpf into ws_mkpf .

read table xmseg into ws_mseg with key mblnr = ws_mkpf-mblnr

                                                              mjahr = ws_mkpf-mjahr. 

  if sy-subrc = 0 and ws_mseg-BWART in wr_range and ws_mseg-lgort = ’XX’.

  * Entete du mail
       CLEAR ws_ent.
      ws_ent-obj_descr = text-001.
      ws_ent-obj_name = ’MAIL’.
      ws_ent-sensitivty = ’O’.

* Corps du mail
      clear ws_poste.      
       …      APPEND ws_poste to wt_poste.

* Fonction spécifique d’envoi d’un mail

      wv_adr = ‘contact.sapdev@gmail.com’.
      CALL FUNCTION ’Z_QM_MAIL’
        EXPORTING
          WS_ENTETE = ws_ent
          MAIL              = wv_adr
        TABLES
          WT_POSTE  = wt_poste
        EXCEPTIONS
          ERROR     = 1
          OTHERS    = 2.
  endif.

endloop.

On peut afficher par exemple le S/N et le P/N.

   Sur la copie d’écran, on est dans le flux de documents de l’avis 800000288 de type “D1″ dont la désignation est celle par défaut, c’est à dire la désignation de l’avis – zone QMEL-QMTXT. 

Pour le deuxième avis (400002237) de type “D2″, on a forcé la désignation avec le N° d’article / N° de série.

  On utilise la clé d’objet : “BUS2078″ : avis QM

PS : Il faut activer dans le custo l’option : Implémentation client (1) via la fonction : “Commutateur pour la sélection de l’implémentation du BADI”

On utilise ici la méthode CHANGE_AT_SAVE pour vérifier que le groupe marchandise des postes en N (Poste article non géré en stock) contient bien la chaine de caractères ‘ORD’,

si ce n’est pas le cas on génère un message d’erreur.

Code de la méthode Change_at_save

On utilise la table ’DELTA_STPOB’ et l’exception ‘ERROR_WITH_MESSAGE’

La BADI génère bien le message d’erreur – Transaction CS02

Définition: ME_PROCESS_REQ_CUST

Rappel : Pour activer une BADI, il faut utiliser la transaction SE19.

Il existe plusieurs methodes à utiliser selon les besoins.

Par exemple : La methode : Process_item déclanchée à chaque action sur le poste (Ajout, suppression, modification)

La methode a trois paramètres :

• IM_ITEM
• IM_COUNT
• IM_REF_ITEM

On ecrit le code pour changer, par exemple, le groupe acheteur du poste de la demande achat.

data : ws_item type mereq_item.

 * Recuperation des données du poste de la demande Achat
  CALL METHOD IM_ITEM->GET_DATA
     RECEIVING
        RE_DATA = WS_ITEM.

** Appel function pour récuperer le groupe acheteur

    CALL FUNCTION ’Z_EKGRP_LIFNR’
        EXPORTING
            LIFNR    = WS_ITEM-FLIEF
            EKORG    = WS_ITEM-EKORG
       IMPORTING
            EKGRP    = WS_ITEM-EKGRP
       EXCEPTIONS
            NO_EKGRP = 1
            NO_LIFNR = 2
            OTHERS   = 3.

 * Enregistrement des modifications
CALL METHOD IM_ITEM->SET_DATA
     EXPORTING
          IM_DATA = WS_ITEM.

 On ne peut pas modifier directement les données, il faut passer par les methodes GET et SET.

d’avis.

Elle permet de masquer, griser… les boutons et fonctionne avec les avis CS également.

Transaction : SE19 pour implémenter la BADI et SE18 pour regarder la définition.

Exemple de code :

If i_function-qmart = ‘XX’.

case i_function-funktion.

when ‘Z001′. ” Bouton de la barre d’activités définit dans le custo.

clear c_aktiv. “=> Bouton accessible

when ‘Z002′.

c_aktiv = ’2′. “=> Bouton grisé, pas encore cliquable

when ‘Z003′.

c_aktiv = ’1′ “=> Bouton déjà traité

endcase.

endif.