BAPI_DOKUMENT_CHECKOUTMODIFY2

Code: Alles auswählen.

DATA: lf_doctype    LIKE bapi_doc_draw-documenttype,
       lf_docnumber  LIKE bapi_doc_draw-documentnumber,
       lf_docpart    LIKE bapi_doc_draw-documentpart,
       lf_docversion LIKE bapi_doc_draw-documentversion,
       ls_documentfile   LIKE bapi_doc_files2,
       ls_checkedoutfile LIKE bapi_doc_files2,
       lf_status     LIKE bapi_doc_draw-statusextern,
       ls_return LIKE bapiret2.

lf_doctype    = 'P01'.
lf_docnumber  = '10000001442'.
lf_docversion = '00'.
lf_docpart    = '000'.

ls_documentfile-docpath = 'c:\temp\.',
*ls_documentfile-docfile = 'work.dwg'.
lf_status = 'IA'.

  CALL FUNCTION 'BAPI_DOCUMENT_CHECKOUTMODIFY2'
       EXPORTING: documenttype     = lf_doctype
                   documentnumber   = lf_docnumber
                   documentpart     = lf_docpart
                   documentversion  = lf_docversion
                   documentfile     = ls_documentfile
                   statusextern     = lf_status
        IMPORTING: return = ls_return
                   checkedoutfile = ls_checkedoutfile.

IF ls_return-type CA 'EA'.
   ROLLBACK WORK.
   MESSAGE ID '26' TYPE 'I' NUMBER '000'
           WITH ls_return-message.

ELSE.
   COMMIT WORK.
ENDIF.