取图档对应的下挂有的附件类型及名称

最新推荐文章于 2022-11-10 13:17:42 发布

szq_zhengzhou

最新推荐文章于 2022-11-10 13:17:42 发布

阅读量504

点赞数

分类专栏： abap 文章标签： file

本文链接：https://blog.csdn.net/szq_zhengzhou/article/details/4364255

版权

abap 专栏收录该内容

130 篇文章 1 订阅

订阅专栏

需要指定图档类型，图档号，部分，版本

    DATA: BEGIN OF it_files OCCURS 0,
             filetype(3),
             filename(255),
          END   OF it_files,
         l_dokar LIKE draw-dokar,
         l_doknr  LIKE draw-doknr,
         l_doktl  LIKE draw-doktl,
         l_dokvr  LIKE draw-dokvr,
         return_message TYPE bapiret2.
    l_dokar = 'DOC'.
    l_doknr = 'JX04-00244'.
    l_doktl = '000'.
    l_dokvr = '01'.
    PERFORM get_file_name TABLES it_files
                           USING l_dokar
                                 l_doknr
                                 l_doktl
                                 l_dokvr
                           CHANGING return_message.
*&---------------------------------------------------------------------*
*&      Form  GET_FILE_NAME
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
*      -->P_DOCUMENTFILES  text
*      -->P_DOCUMENTTYPE  text
*      -->P_DOCUMENTNUMBER  text
*      -->P_DOCUMENTPART  text
*      -->P_DOCUMENTVERSION  text
*      <--P_RETURN  text
*----------------------------------------------------------------------*
    FORM get_file_name  TABLES   it_documentfiles STRUCTURE it_files
                        USING    p_documenttype
                                 p_documentnumber
                                 p_documentpart
                                 p_documentversion
                        CHANGING p_return.
      DATA:temp_documentfiles LIKE TABLE OF bapi_doc_files2 WITH HEADER LINE,
           BEGIN OF temp_filename OCCURS 0,
             docfile(255),
           END   OF temp_filename,
           l_lines_counts TYPE i.
*& 读取凭证对应的所有附件名及类型
      REFRESH:temp_documentfiles.

CALL FUNCTION 'BAPI_DOCUMENT_GETDETAIL2'
        EXPORTING
          documenttype       = p_documenttype
          documentnumber     = p_documentnumber
          documentpart       = p_documentpart
          documentversion    = p_documentversion
          getactivefiles     = 'X'
          getdocdescriptions = 'X'
          getdocfiles        = 'X'
        IMPORTING
          return             = p_return
        TABLES
          documentfiles      = temp_documentfiles.

      LOOP AT temp_documentfiles.
        REFRESH:temp_filename.
        SPLIT temp_documentfiles-docfile AT '/' INTO TABLE temp_filename.
        IF NOT temp_filename[] IS INITIAL.
          CLEAR:l_lines_counts.
          l_lines_counts = LINES( temp_filename ).
          READ TABLE temp_filename INDEX l_lines_counts.
          IF sy-subrc = 0.
            CLEAR:it_documentfiles.
*&文件名
            it_documentfiles-filename = temp_filename-docfile.
*& 文件类型
            it_documentfiles-filetype = temp_documentfiles-wsapplication.
            APPEND it_documentfiles.
          ENDIF.
        ENDIF.
      ENDLOOP.