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.

• Equipement : EQUI, EQKT, EQBS…
• Statut : JEST,JCDS et TJ02T…
• Avis : QMEL, QMMA, QMFE, QMUR, QMSM, QMIH…
• Catalogue : QPCT…
• Partenaire : IHPA…
• Ordre : AUFK..

Ex : modification du statut d’un numéro de série (S/N) - Transaction : IE01,  IE02, IE03, IE08…

Dans l’exemple , on passe le S/N du statut ChCl (Chez client) à MAGA       

     SELECT SINGLE objnr INTO wv_objnr
                                        FROM equi
                                        WHERE equnr = wv_equnr. 
            IF sy-subrc = 0.
              CALL FUNCTION ‘I_CHANGE_STATUS’
                EXPORTING
                  objnr                   = wv_objnr
                  estat_inactive  = ‘I0190′
                  estat_active      = ‘I0184′
                  stsma                  = ‘PMS8′
                EXCEPTIONS
                  cannot_update  = 1
                  OTHERS     = 2.
            ENDIF.  

  PS: Pour la gestion des statuts, il faut voir les tables JEST (Statut actif et inactif par objet) et TJ02T (descritpion des statuts)

On peut préciser si l’on veut clôturer également les avis liés à l’ordre.

Exemple :

 data : wt_return type TABLE OF BAPIRET2,

              wv_aufnr type aufnr 

    CALL FUNCTION ‘CO_IH_CLOSE_ORDER_TECHNICAL’
      EXPORTING
        order_number                          = wv_aufnr
        do_not_close_notification       = ‘ ’
     TABLES
        return                                       = wt_return.