ABAP保存文件到服务器

前端之家收集整理的这篇文章主要介绍了ABAP保存文件到服务器前端之家小编觉得挺不错的,现在分享给大家,也给大家做个参考。

现在AL11 设置路径变量     DIR_Z_IT_XML

1

        CLEAR: LV_FILENAME.

        CALL FUNCTION SD_DOCUMENT_FLOW_GET
          EXPORTING
            IV_DOCNUM        = LS_BIL_INVOICE-HD_REF-BIL_NUMBER
          IMPORTING
            ET_DOCFLOW       = LT_DOCFLOW.

        CLEAR LS_DOCFLOW.
        LOOP AT LT_DOCFLOW INTO LS_DOCFLOW WHERE VBTYP_N = +.
          EXIT.
        ENDLOOP.

        CONCATENATE LS_DOCFLOW-DOCNUM
                    LS_BIL_INVOICE-HD_REF-BIL_NUMBER
                    LS_BIL_INVOICE-HD_GEN-SOLD_TO_PARTY
                    SY-DATUM
                    SY-UZEIT
                    INTO LV_FILENAME SEPARATED BY _.


        DATA:GV_DIRNAME              TYPE DIRNAME_AL11.

        CALL C_SAPGPARAM ID NAME  FIELD DIR_Z_IT_XML
                           ID VALUE FIELD GV_DIRNAME.

        CONCATENATE
                    \\SAP-EU-DMS.sapdns.cn\IT_TST_XML
                    LV_FILENAME
              INTO  GV_DIRNAME SEPARATED BY \‘.
        CONCATENATE GV_DIRNAME .PDF INTO GV_DIRNAME.

        OPEN DATASET GV_DIRNAME FOR OUTPUT IN BINARY MODE.

        IF SY-SUBRC = 0.
          LOOP AT LT_LINES INTO LS_LINES.
            TRANSFER LS_LINES-TDFORMAT TO GV_DIRNAME .
            TRANSFER LS_LINES-TDLINE   TO GV_DIRNAME .
          ENDLOOP.
          CLOSE DATASET LV_PATH.
        ENDIF.

猜你在找的XML相关文章