BAPI_GOODSMVT_CREATE

Code: Alles auswählen.

* Initialisieren
  clear ps_vbkok.

* Datenvorbelegen
  ps_vbkok-vbeln_vl        = p_vbeln.        " Lieferung
  ps_vbkok-vbtyp_vl        = 'J'.            " J=Lieferung
  ps_vbkok-wabuc         = 'X'.            " Warenausgang buchen
  ps_vbkok-wadat_ist     = sy-datum.       " Warenausgangsdatum

* je Line
  lw_vbpok-vbeln_vl  = p_vbeln.
  lw_vbpok-posnr_vl  = p_posnr.
  lw_vbpok-lfimg       = p_lfimg. 
  lw_vbpok-umvkz    = 1.                   "Umrechnung: Zähler
  lw_vbpok-umvkn    = 1.                   "Umrechnung: Nenner
  append lw_vbpok to pt_vbpok. clear lw_vbpok.

* Lieferung buchen
  call function 'WS_DELIVERY_UPDATE_2'
    exporting
      vbkok_wa       = ps_vbkok
      synchron       = ' '
      commit         = ' '
      delivery       = p_vbeln
    tables
      vbpok_tab      = pt_vbpok
      prot           = lt_prot
    exceptions
      error_message  = 1
      others         = 2.

* Wenn ein Fehler ausgelöst wurde, der nicht in der lt_prot steht
  if sy-subrc <> 0.
    p_rc = 4.
  endif.

  loop at lt_prot into lw_prot where msgty = 'E' or msgty = 'A'.
  endloop.