SAP上传附件 代码

DATA ATTACHMENT TYPE BORIDENT.
DATA DOCUMENTS  TYPE STANDARD TABLE OF SOOD4.
DATA DOCUMENT   TYPE SOOD4.
DATA FOLDER_ID  TYPE SOFDK.
DATA IS_OBJECT TYPE BORIDENT.

IS_OBJECT-OBJKEY = '00000005'.
IS_OBJECT-OBJTYPE = 'BUS1065'.

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

DOCUMENT-FOLTP = FOLDER_ID-FOLTP.
DOCUMENT-FOLYR = FOLDER_ID-FOLYR.
DOCUMENT-FOLNO = FOLDER_ID-FOLNO.
APPEND DOCUMENT TO DOCUMENTS.
CALL FUNCTION 'SO_DOCUMENTS_MANAGER'
  EXPORTING
    ACTIVITY  = 'IMPO'
  TABLES
    DOCUMENTS = DOCUMENTS.
READ TABLE DOCUMENTS INDEX 1 INTO DOCUMENT.
IF NOT IS_OBJECT-OBJKEY IS INITIAL.
  IF DOCUMENT-OKCODE = 'CREA' OR DOCUMENT-OKCODE = 'CHNG'.
    ATTACHMENT-OBJTYPE = 'MESSAGE'.
    ATTACHMENT-OBJKEY  = DOCUMENT(34).
    CALL FUNCTION 'BINARY_RELATION_CREATE'
      EXPORTING
        OBJ_ROLEA    = IS_OBJECT
        OBJ_ROLEB    = ATTACHMENT
        RELATIONTYPE = 'ATTA'
      EXCEPTIONS
        OTHERS       = 1.
    IF SY-SUBRC = 0.
*      EP_ATTACHMENT = DOCUMENT(34).
      COMMIT WORK.
    ENDIF.
  ENDIF.
ELSE.
  IF DOCUMENT-OKCODE = 'CREA' OR DOCUMENT-OKCODE = 'CHNG'.
*    EP_ATTACHMENT = DOCUMENT(34).
  ENDIF.
ENDIF.