批量上传SAP FI凭证上的附加的Note

*&---------------------------------------------------------------------*
*& Report  Z02FIUPNOTE
*&
*&---------------------------------------------------------------------*
*& FI Batch Document Note
*&
*&---------------------------------------------------------------------*

REPORT  Z02FIUPNOTE.

TYPES:BEGIN OF TP_OUT,
  BUKRS LIKE BKPF-BUKRS,
  GJAHR LIKE BKPF-GJAHR,
  BELNR LIKE BKPF-BELNR,
  TITLE TYPE SO_OBJ_DES,
  CONTENT TYPE CHAR255,
  END OF TP_OUT.

DATA: GT_OUT TYPE TABLE OF TP_OUT,
      GS_OUT TYPE TP_OUT.
DATA: L_EXCEL_TAB TYPE ALSMEX_TABLINE OCCURS 0 WITH HEADER LINE.
FIELD-SYMBOLS: <FS>.

SELECTION-SCREEN BEGIN OF BLOCK B1 WITH FRAME TITLE TEXT-001.
PARAMETERS:
            INPATH TYPE RLGRAP-FILENAME.
SELECTION-SCREEN END OF BLOCK B1.

AT SELECTION-SCREEN ON VALUE-REQUEST FOR INPATH.
  PERFORM GET_PC_FILENAME USING INPATH.

START-OF-SELECTION.
  PERFORM FRM_UPLOAD_DATA.
  PERFORM FRM_PROCESS_DATA.
*&---------------------------------------------------------------------*
*&      Form  FRM_UPLOAD_DATA
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
*  -->  p1        text
*  <--  p2        text
*----------------------------------------------------------------------*
FORM FRM_UPLOAD_DATA .
  CALL FUNCTION 'ALSM_EXCEL_TO_INTERNAL_TABLE'
    EXPORTING
      FILENAME                = INPATH
      I_BEGIN_COL             = 1
      I_BEGIN_ROW             = 2
      I_END_COL               = 5
      I_END_ROW               = 65535
    TABLES
      INTERN                  = L_EXCEL_TAB
    EXCEPTIONS
      INCONSISTENT_PARAMETERS = 1
      UPLOAD_OLE              = 2
      OTHERS                  = 3.
  IF SY-SUBRC <> 0.
    MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
            WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
  ENDIF.

  SORT L_EXCEL_TAB BY ROW COL.
  LOOP AT L_EXCEL_TAB.
    ASSIGN COMPONENT L_EXCEL_TAB-COL OF STRUCTURE GS_OUT TO <FS>.
    MOVE L_EXCEL_TAB-VALUE TO <FS>.
    AT END OF ROW.
      APPEND GS_OUT TO GT_OUT.
      CLEAR GS_OUT.
    ENDAT.
  ENDLOOP.
  IF GT_OUT IS INITIAL.
    MESSAGE 'No data found' TYPE 'I'.
    STOP.
  ENDIF.
ENDFORM.                    " FRM_UPLOAD_DATA
*&---------------------------------------------------------------------*
*&      Form  GET_PC_FILENAME
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
*      -->P_INPATH  text
*----------------------------------------------------------------------*
FORM GET_PC_FILENAME  USING    P_INPATH.
  CALL FUNCTION 'WS_FILENAME_GET'
    EXPORTING
      DEF_FILENAME     = ' '
      DEF_PATH         = ' '
      MASK             = ',*.*  ,*.*. '
      MODE             = 'O'
      TITLE            = ' '
    IMPORTING
      FILENAME         = INPATH
    EXCEPTIONS
      INV_WINSYS       = 1
      NO_BATCH         = 2
      SELECTION_CANCEL = 3
      SELECTION_ERROR  = 4
      OTHERS           = 5.
ENDFORM.                    " GET_PC_FILENAME
*&---------------------------------------------------------------------*
*&      Form  FRM_PROCESS_DATA
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
*  -->  p1        text
*  <--  p2        text
*----------------------------------------------------------------------*
FORM FRM_PROCESS_DATA .
  DATA MSG TYPE STRING.
  DATA ANSWER.
  DATA LINES TYPE STRING.
  DATA FOLDER_ID         TYPE SOFDK.
  DATA LT_OBJHEAD TYPE STANDARD TABLE OF SOLI.
  DATA LT_OBJCONT TYPE STANDARD TABLE OF SOLI WITH HEADER LINE.
  DATA L_OBJ_ID   TYPE SOODK.
  DATA L_OBJ_DATA TYPE SOOD1.
  DATA DOCUMENT_ID       TYPE SOFMK.
  DATA REL_DOC  TYPE BORIDENT.
  DATA IS_OBJECT TYPE BORIDENT.
  DATA L_INDEX TYPE SY-INDEX.
  CLEAR:MSG,ANSWER,LINES ,FOLDER_ID ,LT_OBJHEAD,LT_OBJCONT,LT_OBJCONT[],L_OBJ_ID,L_OBJ_DATA,DOCUMENT_ID ,IS_OBJECT,REL_DOC ,L_INDEX.

  LINES = LINES( GT_OUT ) .
  CONCATENATE  LINES 'lines of FI Document Note will be updated' INTO MSG SEPARATED BY SPACE.

  CALL FUNCTION 'POPUP_TO_CONFIRM'
    EXPORTING
      TEXT_QUESTION = MSG
    IMPORTING
      ANSWER        = ANSWER.

  IF SY-SUBRC <> 0.
  ENDIF.

  IF ANSWER NE '1'.
    STOP.
  ENDIF.

  CALL FUNCTION 'SO_FOLDER_ROOT_ID_GET'
    EXPORTING
      REGION    = 'B'
    IMPORTING
      FOLDER_ID = FOLDER_ID
    EXCEPTIONS
      OTHERS    = 1.

  LOOP AT GT_OUT INTO GS_OUT.
    L_INDEX = SY-TABIX.
    IF GS_OUT-TITLE IS INITIAL.
      WRITE:/ 'Line ', L_INDEX ,'title is blank, skip'.
      CLEAR GS_OUT.
      CONTINUE.
    ENDIF.
    IF GS_OUT-CONTENT IS INITIAL.
      WRITE:/ 'Line ', L_INDEX ,'content is blank, skip'.
      CLEAR GS_OUT.
      CONTINUE.
    ENDIF.

    LT_OBJCONT-LINE = GS_OUT-CONTENT.
    APPEND LT_OBJCONT.

    L_OBJ_DATA-OBJSNS = 'O'.
    L_OBJ_DATA-OBJLA  = SY-LANGU.
    L_OBJ_DATA-OBJDES = GS_OUT-TITLE.
    L_OBJ_DATA-FILE_EXT = 'TXT'.


    CALL FUNCTION 'SO_OBJECT_INSERT'
      EXPORTING
        FOLDER_ID             = FOLDER_ID
        OBJECT_TYPE           = 'RAW'
        OBJECT_HD_CHANGE      = L_OBJ_DATA
      IMPORTING
        OBJECT_ID             = L_OBJ_ID
      TABLES
        OBJHEAD               = LT_OBJHEAD
        OBJCONT               = LT_OBJCONT
      EXCEPTIONS
        ACTIVE_USER_NOT_EXIST = 35
        FOLDER_NOT_EXIST      = 6
        OBJECT_TYPE_NOT_EXIST = 17
        OWNER_NOT_EXIST       = 22
        PARAMETER_ERROR       = 23
        OTHERS                = 1000.

    IF SY-SUBRC = 0.
      DOCUMENT_ID-FOLTP = FOLDER_ID-FOLTP.
      DOCUMENT_ID-FOLYR = FOLDER_ID-FOLYR.
      DOCUMENT_ID-FOLNO = FOLDER_ID-FOLNO.
      DOCUMENT_ID-DOCTP = L_OBJ_ID-OBJTP.
      DOCUMENT_ID-DOCYR = L_OBJ_ID-OBJYR.
      DOCUMENT_ID-DOCNO = L_OBJ_ID-OBJNO.

      CLEAR REL_DOC.
      REL_DOC-OBJKEY  = DOCUMENT_ID.
      REL_DOC-OBJTYPE = 'MESSAGE'.
      CONCATENATE GS_OUT-BUKRS GS_OUT-BELNR GS_OUT-GJAHR INTO IS_OBJECT-OBJKEY.
      IS_OBJECT-OBJTYPE = 'BKPF'.
      CALL FUNCTION 'BINARY_RELATION_CREATE'
        EXPORTING
          OBJ_ROLEA    = IS_OBJECT
          OBJ_ROLEB    = REL_DOC
          RELATIONTYPE = 'NOTE'
        EXCEPTIONS
          OTHERS       = 1.
      IF SY-SUBRC = 0.
        WRITE:/ 'Line ', L_INDEX ,'updated FI Document Note successfully'.
        COMMIT WORK.
      ELSE.
        WRITE:/ 'Line ', L_INDEX ,'updated FI Document Note unsuccessfully'.
        ROLLBACK WORK.
      ENDIF.
    ELSE.
      WRITE:/ 'Line ', L_INDEX ,'updated FI Document Note successfully'.
    ENDIF.

    CLEAR:LT_OBJHEAD,LT_OBJCONT,LT_OBJCONT[],L_OBJ_ID,L_OBJ_DATA,DOCUMENT_ID ,IS_OBJECT,REL_DOC ,L_INDEX.
    CLEAR GS_OUT.
  ENDLOOP.


ENDFORM.                    " FRM_PROCESS_DATA