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‘.

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.

Exemple de transfert mvt 311 :

data : ws_header type  BAPI2017_GM_HEAD_01 ,

         ws_item type   BAPI2017_GM_ITEM_CREATE ,

         wt_item type table of   BAPI2017_GM_ITEM_CREATE,

data : ws_return type  BAPIRET2,

         wt_return type table of BAPIRET2.

data :  wv_doc    type BAPI2017_GM_HEAD_RET-MAT_DOC,
          wv_year   type BAPI2017_GM_HEAD_RET-DOC_YEAR.   

* Entête 

Clear ws_header.
  ws_header-pstng_date       = sy-datum.
  ws_header-doc_date          = sy-datum.
  ws_header-REF_DOC_NO = ’REFERENCE’.
*    Poste
  clear ws_item. refresh wt_item.
  ws_item-material           = wv_matnr.
  ws_item-plant                = wv_werks.
  ws_item-stge_loc           = ’MAG1.
  ws_item-MOVE_STLOC = ’MAG2′.
  ws_item-move_type        = ’311′.
  ws_item-entry_qnt          = wv_quantite.
  ws_item-entry_uom        = wv_unite.
  ws_item-mvt_ind            = ‘ ’.
  append ws_item to wt_item.

  CALL FUNCTION ‘BAPI_GOODSMVT_CREATE’
    EXPORTING
      GOODSMVT_HEADER             = ws_header
      GOODSMVT_CODE                 = ’04′
   IMPORTING
     MATERIALDOCUMENT             = wv_doc
     MATDOCUMENTYEAR             = wv_year
    TABLES
      GOODSMVT_ITEM                  = wt_item
      RETURN                                 = wt_return.

Attention au paramètre GOODSMVT_CODE qui varie suivant le type de mvt.

Pour modifier les offres client (VA22), on peut utiliser la BAPI : BAPI_CUSTOMERQUOTATION_CHANGE

Exemple :

On veut ajouter un motif de refus dans tous les postes d’un offre wv_vbeln.

 DATA : ws_headerx TYPE bapisdh1x,
              wt_return TYPE TABLE OF bapiret2,
              ws_return TYPE bapiret2,
              wt_item TYPE TABLE OF bapisditm,
              ws_item TYPE bapisditm,
              wt_itemx TYPE TABLE OF bapisditmx,
              ws_itemx TYPE bapisditmx.
 DATA : wt_vbap TYPE TABLE OF vbap,
               ws_vbap TYPE vbap.  

  
 SELECT * INTO TABLE wt_vbap
                    FROM vbap
                    WHERE vbeln  = wv_vbeln.
    IF sy-dbcnt > 0.
      ws_headerx-updateflag = ‘U’.
      LOOP AT wt_vbap INTO ws_vbap.
        CLEAR ws_item.
        CLEAR ws_itemx.
* N° de poste
        MOVE ws_vbap-posnr TO ws_item-itm_number.
        MOVE ws_vbap-posnr TO ws_itemx-itm_number.
        move ws_vbap-matnr to ws_item-material.
        ws_itemx-material = ‘X’.
* Motif de refus
        IF wv_step IS NOT INITIAL.
          ws_item-reason_rej = ‘XX’.
        ELSE.
          ws_item-reason_rej = ‘YY’.
        ENDIF.
        ws_itemx-reason_rej = ‘X’.        

        APPEND ws_item TO wt_item.
        APPEND ws_itemx TO wt_itemx.
      ENDLOOP.
      CALL FUNCTION ‘BAPI_CUSTOMERQUOTATION_CHANGE’
        EXPORTING
          salesdocument                = wv_vbeln
          quotation_header_inx   = ws_headerx
        TABLES
          return                               = wt_return
          quotation_item_in          = wt_item
          quotation_item_inx        = wt_itemx .

Ne pas oublier BAPI_TRANSACTION_COMMIT