Mass Upload DMS Originals and Set Status

Hello

Mass Upload DMS Originals and Set Status: Sometimes DIR have more than one origin LSMW is poor to upload more than one originals fllowing code upload orginals and set Status.

Excel Structure must :

 

* Original format : Must Capital and format must similar in customizing t.code:dc30 (for example word file in dc30 is WRD you must write WRD in this filed)

 *&---------------------------------------------------------------------* *& Report  ZDMS_SET_ORIGINAL_STATUS *& *&---------------------------------------------------------------------* *& *& *&---------------------------------------------------------------------* REPORT  ZDMS_SET_ORIGINAL_STATUS. "CONSTANTS STORAGE_NAME TYPE CV_STORAGE_CAT VALUE 'DMS_C1_ST'. TYPES:        BEGIN OF ST_DIR,          DOKAR TYPE DOKAR,          DOKNR TYPE DOKNR,          DOKVR TYPE DOKVR,          DOKTL TYPE DOKTL,          DOKST TYPE DOKST,          DOKTYPE TYPE CHAR3,          ORGDES TYPE CHAR40,          ORGPATH TYPE FILEP,          VISITED TYPE CHAR1,        END OF ST_DIR,        BEGIN OF ST_ERROR_DOCS,          DOKAR TYPE DOKAR,          DOKNR TYPE DOKNR,          DOKVR TYPE DOKVR,          DOKTL TYPE DOKTL,          ERRORMSG TYPE CHAR100,        END OF ST_ERROR_DOCS. PARAMETERS BEG_ROW TYPE i DEFAULT 2. PARAMETERS END_ROW TYPE i DEFAULT 101. PARAMETERS FILEPATH LIKE RLGRAP-FILENAME DEFAULT 'c:phase1.xlsx'. PARAMETERS STRGNAME TYPE CV_STORAGE_CAT DEFAULT 'PPL-PROJ'. DATA: it_documents TYPE TABLE OF st_dir,        wa_documents TYPE st_dir. DATA: it_error_docs TYPE TABLE OF ST_ERROR_DOCS WITH HEADER LINE. *DATA it_file_content TYPE TABLE OF ALSMEX_TABLINE WITH HEADER LINE. *CALL FUNCTION 'ALSM_EXCEL_TO_INTERNAL_TABLE' DATA it_file_content TYPE TABLE OF ZKCDE_CELLS WITH HEADER LINE. CALL FUNCTION 'ZKCD_EXCEL_OLE_TO_INT_CONVERT'    EXPORTING      FILENAME                      = FILEPATH      I_BEGIN_COL                   = 1      I_BEGIN_ROW                   = BEG_ROW      I_END_COL                     = 8      I_END_ROW                     = END_ROW    TABLES      INTERN                        = it_file_content * EXCEPTIONS *   INCONSISTENT_PARAMETERS       = 1 *   UPLOAD_OLE                    = 2 *   OTHERS                        = 3            . IF SY-SUBRC <> 0. * Implement suitable error handling here ENDIF. DATA: current_row TYPE i VALUE 1,        rowCount TYPE i. rowCount = LINES( it_file_content ). WHILE current_row <= rowCount.    LOOP AT it_file_content FROM CURRENT_ROW TO CURRENT_ROW + 7.      CASE it_file_content-COL.        WHEN '1'.          WA_DOCUMENTS-DOKNR = it_file_content-VALUE.        WHEN '2'.          WA_DOCUMENTS-DOKAR = it_file_content-VALUE.        WHEN '3'.          WA_DOCUMENTS-DOKTL = it_file_content-VALUE.        WHEN '4'.          WA_DOCUMENTS-DOKVR = it_file_content-VALUE.        WHEN '5'.          WA_DOCUMENTS-DOKST = it_file_content-VALUE.        WHEN '6'.          WA_DOCUMENTS-DOKTYPE = it_file_content-VALUE.        WHEN '7'.          WA_DOCUMENTS-ORGDES = it_file_content-VALUE.        WHEN '8'.          WA_DOCUMENTS-ORGPATH = it_file_content-VALUE.      ENDCASE.    ENDLOOP.    APPEND WA_DOCUMENTS TO IT_DOCUMENTS.    CLEAR WA_DOCUMENTS.    current_row = current_row + 8. ENDWHILE. "Pepare error file REFRESH IT_ERROR_DOCS. IT_ERROR_DOCS-DOKAR = 'TYP'. IT_ERROR_DOCS-DOKNR = 'DOC NO'. IT_ERROR_DOCS-DOKTL = 'PRT'. IT_ERROR_DOCS-DOKVR = 'VR'. IT_ERROR_DOCS-ERRORMSG = 'Error Message'. APPEND IT_ERROR_DOCS. LOOP AT IT_DOCUMENTS INTO WA_DOCUMENTS.    PERFORM ADD_ORG USING WA_DOCUMENTS. ENDLOOP. CALL FUNCTION 'GUI_DOWNLOAD'    EXPORTING *   BIN_FILESIZE                    =      FILENAME                        = 'D:Error.xls'      FILETYPE                        = 'DAT'      APPEND                          = 'X' *   WRITE_FIELD_SEPARATOR           = ' ' *   HEADER                          = '00' *   TRUNC_TRAILING_BLANKS           = ' ' *   WRITE_LF                        = 'X' *   COL_SELECT                      = ' ' *   COL_SELECT_MASK                 = ' ' *   DAT_MODE                        = ' ' *   CONFIRM_OVERWRITE               = ' ' *   NO_AUTH_CHECK                   = ' ' *   CODEPAGE                        = ' ' *   IGNORE_CERR                     = ABAP_TRUE *   REPLACEMENT                     = '#' *   WRITE_BOM                       = ' ' *   TRUNC_TRAILING_BLANKS_EOL       = 'X' *   WK1_N_FORMAT                    = ' ' *   WK1_N_SIZE                      = ' ' *   WK1_T_FORMAT                    = ' ' *   WK1_T_SIZE                      = ' ' *   WRITE_LF_AFTER_LAST_LINE        = ABAP_TRUE *   SHOW_TRANSFER_STATUS            = ABAP_TRUE * IMPORTING *   FILELENGTH                      =    TABLES      DATA_TAB                        = IT_ERROR_DOCS *   FIELDNAMES                      = * EXCEPTIONS *   FILE_WRITE_ERROR                = 1 *   NO_BATCH                        = 2 *   GUI_REFUSE_FILETRANSFER         = 3 *   INVALID_TYPE                    = 4 *   NO_AUTHORITY                    = 5 *   UNKNOWN_ERROR                   = 6 *   HEADER_NOT_ALLOWED              = 7 *   SEPARATOR_NOT_ALLOWED           = 8 *   FILESIZE_NOT_ALLOWED            = 9 *   HEADER_TOO_LONG                 = 10 *   DP_ERROR_CREATE                 = 11 *   DP_ERROR_SEND                   = 12 *   DP_ERROR_WRITE                  = 13 *   UNKNOWN_DP_ERROR                = 14 *   ACCESS_DENIED                   = 15 *   DP_OUT_OF_MEMORY                = 16 *   DISK_FULL                       = 17 *   DP_TIMEOUT                      = 18 *   FILE_NOT_FOUND                  = 19 *   DATAPROVIDER_EXCEPTION          = 20 *   CONTROL_FLUSH_ERROR             = 21 *   OTHERS                          = 22            . IF SY-SUBRC <> 0. * Implement suitable error handling here ENDIF. FORMAT COLOR COL_BACKGROUND INTENSIFIED. WRITE:/ 'Finished!!'. " Show errors in ALV DATA: FIELDCATALOG TYPE SLIS_T_FIELDCAT_ALV WITH HEADER LINE,        GD_LAYOUT    TYPE SLIS_LAYOUT_ALV,        GD_REPID     LIKE SY-REPID,        G_VARIANT TYPE DISVARIANT        . " Remove header row in excel file DELETE IT_ERROR_DOCS INDEX 1. PERFORM field_cat. GD_REPID = SY-REPID. CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'    EXPORTING      I_CALLBACK_PROGRAM      = GD_REPID *   I_CALLBACK_TOP_OF_PAGE  = 'TOP-OF-PAGE' "see FORM *   I_CALLBACK_USER_COMMAND = 'USER_COMMAND'      IT_FIELDCAT             = FIELDCATALOG[]      I_SAVE                  = 'X'      IS_VARIANT              = G_VARIANT    TABLES      T_OUTTAB                = IT_ERROR_DOCS    EXCEPTIONS      PROGRAM_ERROR           = 1      OTHERS                  = 2. *&---------------------------------------------------------------------* *&      Form  FIELD_CAT *&---------------------------------------------------------------------* *       text *----------------------------------------------------------------------* *  -->  p1        text *  <--  p2        text *----------------------------------------------------------------------* FORM FIELD_CAT .    FIELDCATALOG-FIELDNAME   = 'DOKNR'.    FIELDCATALOG-SELTEXT_M   = 'SAP Doc No.'.    FIELDCATALOG-OUTPUTLEN = '27'.    FIELDCATALOG-COL_POS     = 0.    APPEND FIELDCATALOG TO FIELDCATALOG.    CLEAR  FIELDCATALOG.    FIELDCATALOG-FIELDNAME   = 'DOKVR'.    FIELDCATALOG-SELTEXT_M   = 'Doc Version'.    FIELDCATALOG-COL_POS     = 1.    APPEND FIELDCATALOG TO FIELDCATALOG.    CLEAR  FIELDCATALOG.    FIELDCATALOG-FIELDNAME   = 'DOKAR'.    FIELDCATALOG-SELTEXT_M   = 'Doc Cat.'.    FIELDCATALOG-COL_POS     = 2.    APPEND FIELDCATALOG TO FIELDCATALOG.    CLEAR  FIELDCATALOG.    FIELDCATALOG-FIELDNAME   = 'DOKTL'.    FIELDCATALOG-SELTEXT_M   = 'Doc Part'.    FIELDCATALOG-COL_POS     = 3.    APPEND FIELDCATALOG TO FIELDCATALOG.    CLEAR  FIELDCATALOG.    FIELDCATALOG-FIELDNAME   = 'ERRORMSG'.    FIELDCATALOG-SELTEXT_M   = 'Error Message'.    FIELDCATALOG-OUTPUTLEN = '50'.    FIELDCATALOG-COL_POS     = 4.    APPEND FIELDCATALOG TO FIELDCATALOG.    CLEAR  FIELDCATALOG. ENDFORM.                    " FIELD_CAT FORM ADD_ORG USING wa_documents TYPE st_dir.    DATA: it_old_originals TYPE TABLE OF BAPI_DOC_FILES2 WITH HEADER LINE,          wa_old_originals TYPE BAPI_DOC_FILES2,          ret TYPE BAPIRET2,          ls_doc    LIKE bapi_doc_draw2,          ls_docx   LIKE bapi_doc_drawx2,          wa_documents2 TYPE st_dir.      IF WA_DOCUMENTS-VISITED = 'X'.        RETURN.      ENDIF.    ls_doc-DOCUMENTNUMBER = wa_documents-doknr.    ls_doc-DOCUMENTPART = wa_documents-doktl.    ls_doc-DOCUMENTTYPE = wa_documents-dokar.    ls_doc-DOCUMENTVERSION = wa_documents-dokvr. *  CALL FUNCTION 'BAPI_DOCUMENT_GETDETAIL2' *    EXPORTING *      DOCUMENTTYPE         = ls_doc-DOCUMENTTYPE *      DOCUMENTNUMBER       = ls_doc-DOCUMENTNUMBER *      DOCUMENTPART         = LS_DOC-DOCUMENTPART *      DOCUMENTVERSION      = ls_doc-DOCUMENTVERSION **     GETOBJECTLINKS       = ' ' **     GETCOMPONENTS        = ' ' **     GETSTATUSLOG         = ' ' **     GETLONGTEXTS         = ' ' *      GETACTIVEFILES       = 'X' *      GETDOCDESCRIPTIONS   = 'X' *      GETDOCFILES          = 'X' **     GETCLASSIFICATION    = ' ' **     GETSTRUCTURE         = ' ' **     GETWHEREUSED         = ' ' **     HOSTNAME             = ' ' *      INHERITED            = 'X' *    IMPORTING **     DOCUMENTDATA         = *      RETURN               = ret *    TABLES **     OBJECTLINKS          = **     DOCUMENTDESCRIPTIONS = **     LONGTEXTS            = **     STATUSLOG            = *      DOCUMENTFILES        = it_old_originals **     COMPONENTS           = **     CHARACTERISTICVALUES = **     CLASSALLOCATIONS     = **     DOCUMENTSTRUCTURE    = **     WHEREUSEDLIST        = *    . * REFRESH IT_OLD_ORIGINALS.    LOOP AT IT_DOCUMENTS INTO WA_DOCUMENTS2      WHERE DOKAR = WA_DOCUMENTS-DOKAR AND DOKNR = wa_documents-DOKNR AND DOKVR = wa_documents-DOKVR AND DOKTL = wa_documents-DOKTL.      CLEAR IT_OLD_ORIGINALS.      it_old_originals-DOCFILE = wa_documents2-ORGPATH.      "it_old_originals-DOCPATH = 'C:'.      it_old_originals-STORAGECATEGORY = STRGNAME.      it_old_originals-WSAPPLICATION = WA_DOCUMENTS2-DOKTYPE.      it_old_originals-DESCRIPTION = WA_DOCUMENTS2-ORGDES.      it_old_originals-ACTIVE_VERSION = 'X'.      "WA_OLD_ORIGINALS-CHECKEDIN = 'X'.      "WA_OLD_ORIGINALS-ORIGINALTYPE = '1'.      it_old_originals-LANGUAGE = 'E'.      APPEND it_old_originals TO IT_OLD_ORIGINALS. * Make document dirty      WA_DOCUMENTS2-VISITED = 'X'.      MODIFY IT_DOCUMENTS FROM WA_DOCUMENTS2.    ENDLOOP.    " Setting status of document    ls_doc-STATUSEXTERN = WA_DOCUMENTS-DOKST.    ls_docx-STATUSEXTERN = 'X'.    CALL FUNCTION 'BAPI_DOCUMENT_CHANGE2'      EXPORTING        DOCUMENTTYPE         = ls_doc-DOCUMENTTYPE        DOCUMENTNUMBER       = ls_doc-DOCUMENTNUMBER        DOCUMENTPART         = LS_DOC-DOCUMENTPART        DOCUMENTVERSION      = ls_doc-DOCUMENTVERSION        DOCUMENTDATA         = LS_DOC        DOCUMENTDATAX        = LS_DOCX *     HOSTNAME             = *     DOCBOMCHANGENUMBER   = *     DOCBOMVALIDFROM      = *     DOCBOMREVISIONLEVEL  = *     SENDCOMPLETEBOM      = ' ' *     PF_FTP_DEST          = ' ' *     PF_HTTP_DEST         = ' ' *     CAD_MODE             = ' ' *     ACCEPT_EMPTY_BOM     = ' '      IMPORTING        RETURN               = ret      TABLES *     CHARACTERISTICVALUES = *     CLASSALLOCATIONS     = *     DOCUMENTDESCRIPTIONS = *     OBJECTLINKS          = *     DOCUMENTSTRUCTURE    =        DOCUMENTFILES        = it_old_originals *     LONGTEXTS            = *     COMPONENTS           =      .    DATA msg TYPE char100.      IF ret-type CA 'EA'.        ROLLBACK WORK. *      MESSAGE ID '26' TYPE 'I' NUMBER '000' *              WITH ret-message.        CONCATENATE 'ERROR: ' ret-MESSAGE ' :: ' INTO msg SEPARATED BY SPACE.        WRITE:/ msg.        CONCATENATE 'Document: ' ls_doc-DOCUMENTNUMBER ls_doc-DOCUMENTTYPE  ls_doc-DOCUMENTPART  ls_doc-DOCUMENTVERSION ' NOT Updated!.' INTO msg SEPARATED BY SPACE.        WRITE:/ msg.        MOVE-CORRESPONDING WA_DOCUMENTS TO IT_ERROR_DOCS.        IT_ERROR_DOCS-ERRORMSG = ret-MESSAGE.        APPEND IT_ERROR_DOCS.      ELSE.        COMMIT WORK.        CONCATENATE 'Document: ' ls_doc-DOCUMENTNUMBER ls_doc-DOCUMENTTYPE ls_doc-DOCUMENTPART ls_doc-DOCUMENTVERSION ' Updated.' INTO msg SEPARATED BY SPACE.        WRITE:/ msg.      ENDIF. ENDFORM.