PS 技术规范书上传和下载1

 

*****documentdata
    l_documentdata-documenttype = 'ZPR'.
    l_documentdata-documentversion = '00'.
    l_documentdata-description = 'ztest'.
    l_documentdata-documentpart = p.
*****objectlinks
    CONCATENATE t_itab-banfn t_itab-bnfpo INTO l_char.
    l_objectlinks-objecttype = 'EBAN'.
    l_objectlinks-objectkey = l_char.
    APPEND l_objectlinks.

*    l_objectlinks-objecttype = 'VORGNET'.
*    DATA:aufnr LIKE afko-aufnr,
*         vornr LIKE resb-vornr,
*         posnr LIKE resb-posnr.
*    aufnr = '000005000393'.
*    vornr = '0020'.
*    posnr = '0010'.
*    CONCATENATE aufnr vornr posnr INTO l_objectlinks-objectkey.
*    APPEND l_objectlinks.
*    l_objectlinks-objecttype = 'ZTEST'.
    DATA:aufnr LIKE afko-aufnr,
         vornr LIKE resb-vornr,
         posnr LIKE resb-posnr.
    aufnr = '000005000393'.
    vornr = '0020'.
    posnr = '0010'.
    CONCATENATE aufnr vornr posnr INTO l_objectlinks-objectkey.
    APPEND l_objectlinks.
*    l_objectlinks-objecttype = 'AFKO'.
*    aufnr = '000005000393'.
*    l_objectlinks-objectkey = aufnr .
*    APPEND l_objectlinks.

*    l_objectlinks-objecttype = 'RESB'.
*    aufnr = '000005000393'.
*    vornr = '0020'.
*    CONCATENATE aufnr vornr  INTO l_objectlinks-objectkey.

    APPEND l_objectlinks.
    CLEAR: l_objectlinks.

*****documentfiles
    l_documentfiles-storagecategory = 'DMS_C1_ST'.
*    l_documentfiles-WSAPPLICATION  =
    DATA:t_len TYPE i,
         t_len1 TYPE i VALUE '4'.
    t_len = STRLEN( t_itab-pname ).
    SPLIT t_itab-pname AT '.' INTO l_char1 l_documentfiles-wsapplication.
    CLEAR:l_char1.
    IF l_documentfiles-wsapplication = 'DOC'.
      l_documentfiles-wsapplication = 'WRD'.
    ENDIF.
    SPLIT t_itab-pname AT '\' INTO l_char1 l_documentfiles-docfile.
    CONCATENATE l_char1 '\' INTO l_documentfiles-docpath.
*    l_documentfiles-description  = 'ZTEST_BY_SHIR_0005'."DKTXT
    l_documentfiles-description  = t_itab-dktxt."
    l_documentfiles-documenttype = 'ZPR'.
    l_documentfiles-documentpart = p.
    l_documentfiles-documentversion = '00'.
    APPEND l_documentfiles.
    CLEAR:l_documentfiles,p,l_char1.

    CALL FUNCTION 'BAPI_DOCUMENT_CREATE2'
      EXPORTING
        documentdata    = l_documentdata
      IMPORTING
        documenttype    = l_documenttype
        documentnumber  = l_documentnumber
        documentpart    = l_documentpart
        documentversion = l_documentversion
        return          = l_return
      TABLES
        objectlinks     = l_objectlinks
        documentfiles   = l_documentfiles.