Quantcast
Channel: SCN : Unanswered Discussions - SAP Document Management
Viewing all articles
Browse latest Browse all 732

[ASK] successful create document in DMS using BAPI_DOCUMENT_CREATE2 but error Error while checking out:

$
0
0

Dear Expert,


I am really need your advise. I try to create document and upload file TXT to SAP easy DMS.

I am success create this document but when i access it through CV03N there is a message


"Error while checking out: DMO000000000000001000000002100000 Message no. 26254 "

error file.jpg


This is my code..


DATA: ls_doc LIKE bapi_doc_draw2 OCCURS 0 WITH HEADER LINE ,

         lt_files LIKE bapi_doc_files2 OCCURS 0 WITH HEADER LINE ,

         itabobjectlinks LIKE bapi_doc_drad OCCURS 0 WITH HEADER LINE,

         li_files TYPE TABLE OF bapi_doc_files2,

         ls_files TYPE bapi_doc_files2,

         ls_return TYPE bapiret2,

         lf_doctype LIKE  bapi_doc_aux-doctype,

         lf_docnumber LIKE  bapi_doc_aux-docnumber,

         lf_docpart LIKE  bapi_doc_aux-docpart,

         lf_docversion LIKE  bapi_doc_aux-docversion.

   DATA: BEGIN OF errmsg OCCURS 10.

           INCLUDE STRUCTURE bapiret2.

   DATA: END OF errmsg.

 

   CONSTANTS : lc_pdf TYPE bapi_doc_files2-wsapplication

               VALUE 'TXT',

               lc_path TYPE bapi_doc_files2-docpath

               VALUE 'D:\',

               lc_x   TYPE c VALUE 'X'.

 

 

   ls_doc-documenttype 'DMO'.

   "ls_doc-documentnumber = '0000000000000010000000013'.

   ls_doc-documentversion = '00'.

   ls_doc-documentpart  = '000'.

   ls_doc-description = 'Document Sample TXT'.

   ls_doc-docfile1 = 'D:\sample.txt'.

   ls_doc-savedocfile1 = 'D:\sample.txt'.

   ls_doc-wsapplication1 = 'TXT'.

   ls_doc-datacarrier1 = 'SAP-SYSTEM'.

   ls_doc-SAVEDATACARRIER1 = 'SAP-SYSTEM'.

   APPEND ls_doc.

 

   lt_files-documenttype = 'DMO'.

   lt_files-storagecategory = 'DMS_C1_ST'.

   lt_files-docfile 'D:\sample.txt'.

   lt_files-wsapplication = 'TXT'.

   lt_files-description = 'Document Sample TXT'.

   lt_files-sourcedatacarrier = 'SAP-SYSTEM'.

   APPEND lt_files.

 

*  CLEAR itabobjectlinks.

*  REFRESH itabobjectlinks.

*  itabobjectlinks-objecttype = 'VBAP'.

*  itabobjectlinks-objectkey = '2142342'.

*  APPEND itabobjectlinks.

 

   CALL FUNCTION 'BAPI_DOCUMENT_CREATE2'

     EXPORTING

       documentdata         = ls_doc

*     HOSTNAME             =

*     docbomchangenumber   =

*     DOCBOMVALIDFROM      =

*     DOCBOMREVISIONLEVEL  =

*     CAD_MODE             = ' '

*     PF_FTP_DEST          = ' '

*     PF_HTTP_DEST         = ' '

*     DEFAULTCLASS         = 'X'

     IMPORTING

       documenttype         = lf_doctype

       documentnumber       = lf_docnumber

       documentpart         = lf_docpart

       documentversion      = lf_docversion

       return               = errmsg

     TABLES

*     CHARACTERISTICVALUES =

*     CLASSALLOCATIONS     =

*     DOCUMENTDESCRIPTIONS =

       objectlinks          = itabobjectlinks

*     DOCUMENTSTRUCTURE    =

       documentfiles        = lt_files

*     LONGTEXTS            =

*     COMPONENTS           =

     .

   IF sy-subrc NE 0.

     CALL FUNCTION 'BAPI_TRANSACTION_ROLLBACK'.

   ELSE.

     CALL FUNCTION 'BAPI_TRANSACTION_COMMIT'

       EXPORTING

         wait = 'X'.

   ENDIF.

 

   "ls_files-storagecategory  = 'SAP-SYSTEM'.

   ls_files-docpath          = lc_path.

   ls_files-docfile          = 'sample.txt' .

   ls_files-wsapplication    = lc_pdf.

   ls_files-checkedin        = lc_x.

   APPEND ls_files TO li_files.

   CLEAR : ls_files.

*

* BAPI to check in all converted PDFs

   CALL FUNCTION 'BAPI_DOCUMENT_CHECKIN2'

     EXPORTING:

       documenttype    = lf_doctype

       documentnumber  = lf_docnumber

       documentpart    = lf_docpart

       documentversion = lf_docversion

     IMPORTING

      return     = ls_return

     TABLES

       documentfiles = li_files.

   IF ls_return-type CA 'EA'.

     CALL FUNCTION 'BAPI_TRANSACTION_ROLLBACK'.

   ELSE.

     CALL FUNCTION 'BAPI_TRANSACTION_COMMIT'

       EXPORTING

         wait = 'X'.

   ENDIF.


Please help...


Best Regards...


Viewing all articles
Browse latest Browse all 732

Trending Articles



<script src="https://jsc.adskeeper.com/r/s/rssing.com.1596347.js" async> </script>