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 .