Hello,
I am trying to create document "CV01N" with PDF attachment.
I am using BAPI 'BAPI_DOCUMENT_CREATE2' to create document. It is creating document but is not attaching the PDF document. I am running in foreground mode. Tried to seach forum but did not find solution.
Following is the code i am using:
DATA:
lv_docnum TYPE bapi_doc_aux-docnumber,
lw_docdata TYPE bapi_doc_draw2,
lw_return TYPE bapiret2,
lw_dsp TYPE bapi_doc_drat,
lw_objlink TYPE bapi_doc_drad,
lw_docfile TYPE bapi_doc_files2,
lt_dsp TYPE STANDARD TABLE OF bapi_doc_drat,
lt_objlink TYPE STANDARD TABLE OF bapi_doc_drad,
lt_docfile TYPE STANDARD TABLE OF bapi_doc_files2.
START-OF-SELECTION.
CLEAR lw_docdata.
lw_docdata-documenttype = 'ZAC'.
lw_docdata-documentversion = 'A0'.
lw_docdata-documentpart = '000'.
lw_docdata-laboratory = '001'.
CLEAR lw_dsp.
lw_dsp-description = 'Test '.
lw_dsp-language = 'E'.
APPEND lw_dsp TO lt_dsp.
lw_docfile-docfile = 'C:\test.pdf'.
LW_DOCFILE-ORIGINALTYPE = '1'.
lw_docfile-storagecategory = 'SAP-SYSTEM'.
lw_docfile-wsapplication = 'PDF'.
lw_docfile-language = 'E'.
lw_docfile-checkedin = 'X'.
lw_docfile-active_version = 'X'.
APPEND lw_docfile TO lt_docfile.
CLEAR lw_objlink.
lw_objlink-objecttype = 'VBAP'.
lw_objlink-objectkey = '0040081239000010'.
lw_objlink-documentdirection = 'X'.
APPEND lw_objlink TO lt_objlink.
CALL FUNCTION 'BAPI_DOCUMENT_CREATE2'
EXPORTING
documentdata = lw_docdata
IMPORTING
documentnumber = lv_docnum
return = lw_return
TABLES
documentdescriptions = lt_dsp
objectlinks = lt_objlink
documentfiles = lt_docfile.
IF lw_return-type CA 'EA'.
CALL FUNCTION 'BAPI_TRANSACTION_ROLLBACK'.
MESSAGE ID lw_return-id
TYPE lw_return-type
NUMBER lw_return-number.
ELSE.
CALL FUNCTION 'BAPI_TRANSACTION_COMMIT'
EXPORTING
wait = 'X'.
CLEAR lw_return.
CALL FUNCTION 'BAPI_DOCUMENT_CHECKIN2'
EXPORTING
documenttype = 'ZTR'
documentnumber = lv_docnum
documentpart = '000'
documentversion = 'A0'
IMPORTING
return = lw_return
TABLES
documentfiles = lt_docfile.
IF lw_return-type CA 'EA'.
CALL FUNCTION 'BAPI_TRANSACTION_ROLLBACK'.
MESSAGE ID lw_return-id
TYPE lw_return-type
NUMBER lw_return-number.
ELSE.
CALL FUNCTION 'BAPI_TRANSACTION_COMMIT'
EXPORTING
wait = 'X'.
WRITE: / 'document number = ', lv_docnum.
ENDIF.
ENDIF.