ABAP保存文件到服务器

发布时间：2020-12-16 23:38:15 所属栏目：百科来源：网络整理

导读：现在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_

现在AL11 设置路径变量???? DIR_Z_IT_XML

        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.cnIT_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.

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!