REPORT  ZZTEST_VBAP.

PARAMETERS:
    p_n LIKE draw-doknr MEMORY ID CV1
  , p_t LIKE draw-dokar MEMORY ID CV2
  , p_d LIKE draw-doktl MEMORY ID CV4
  , p_v LIKE draw-dokvr MEMORY ID CV3
  , v_n LIKE vbap-vbeln
  , v_p LIKE vbap-posnr
  .

DATA:
    DOCUMENTDATA  TYPE BAPI_DOC_DRAW2
  , DOCUMENTDATAX LIKE  BAPI_DOC_DRAWX2
  , OBJECTLINKS   TYPE STANDARD TABLE OF  BAPI_DOC_DRAD
  , wa_line       TYPE BAPI_DOC_DRAD
  , RETURN        TYPE BAPIRET2
  , p_vbap LIKE vbap
  .


START-OF-SELECTION.

CALL FUNCTION 'BAPI_DOCUMENT_GETDETAIL2'
EXPORTING
  DOCUMENTTYPE               = p_t
  DOCUMENTNUMBER             = p_n
  DOCUMENTPART               = p_d
  DOCUMENTVERSION            = p_v
IMPORTING
  DOCUMENTDATA               = DOCUMENTDATA
  .

SELECT SINGLE * INTO p_vbap
  FROM vbap
  WHERE
    vbeln = v_n AND
    posnr = v_p.

IF DOCUMENTDATA IS NOT INITIAL AND p_vbap IS NOT INITIAL.

  wa_line-OBJECTTYPE = 'VBAP'.
  CONCATENATE p_vbap-vbeln p_vbap-posnr INTO wa_line-OBJECTKEY.
  APPEND wa_line TO OBJECTLINKS.

  CALL FUNCTION 'BAPI_DOCUMENT_CHANGE2'
  EXPORTING
    DOCUMENTTYPE               = DOCUMENTDATA-DOCUMENTTYPE
    DOCUMENTNUMBER             = DOCUMENTDATA-DOCUMENTNUMBER
    DOCUMENTPART               = DOCUMENTDATA-DOCUMENTPART
    DOCUMENTVERSION            = DOCUMENTDATA-DOCUMENTVERSION
    DOCUMENTDATA               = DOCUMENTDATA
    DOCUMENTDATAX              = DOCUMENTDATAX
  IMPORTING
    RETURN                     = RETURN
  TABLES
    OBJECTLINKS                = OBJECTLINKS.

  CALL FUNCTION 'BAPI_TRANSACTION_COMMIT'.

ENDIF.