将SAP订单以XML格式输出

最新推荐文章于 2024-06-07 18:38:39 发布

SAP剑客

最新推荐文章于 2024-06-07 18:38:39 发布

阅读量3.6k

点赞数 1

分类专栏：程序人生 ABAPer

程序人生 ABAPer 专栏收录该内容

1330 篇文章 170 订阅

订阅专栏

将订单信息从SAP中以XML格式导出上载到FTP服务器上，客户从FTP下载到本地ERP系统，读取相应的信息生成自己报表。以此实现了EDI功能，是个不错的方法。

*&---------------------------------------------------------------------*
*& Report Z1766_TEST_XML
*&
*&---------------------------------------------------------------------*

REPORT z1766_test_xml.
*DATA:itab_item TYPE TABLE OF z1crm_sales_item.
DATA: BEGIN OF s_head,
        order_id LIKE z1crm_sales_head-order_id,
        status_h LIKE z1crm_sales_head-status_h,
        creat_date_h LIKE z1crm_sales_head-creat_date_h,
        creat_time_h LIKE z1crm_sales_head-creat_time_h,
        sold_to LIKE z1crm_sales_head-sold_to,
        ship_to LIKE z1crm_sales_head-ship_to,
        cont_total LIKE z1crm_sales_head-cont_total,
        zzroute LIKE z1crm_sales_head-zzroute,
        ship_cond LIKE z1crm_sales_head-ship_cond,
        pmnttrms LIKE z1crm_sales_head-pmnttrms,
       END OF s_head,
      itab_head   LIKE STANDARD TABLE OF s_head.
DATA: BEGIN OF s_item,
        itemcode LIKE z1crm_sales_item-number_int,
        pn_group LIKE z1crm_sales_item-pn_group,
        matnr LIKE z1crm_sales_item-matnr,
        charg LIKE z1crm_sales_item-charg,
        status_i LIKE z1crm_sales_item-status_i,
       END OF s_item,
      itab_item   LIKE STANDARD TABLE OF s_item.

DATA: BEGIN OF adminfo,
        object TYPE string,
        version TYPE string,
       END OF adminfo,
       adminfo_itab LIKE STANDARD TABLE OF adminfo.
PARAMETERS:order_id LIKE z1crm_sales_head-order_id DEFAULT '8895100207'.
PARAMETERS: p_show AS CHECKBOX DEFAULT 'X'.
CONSTANTS:
c_xml_root TYPE string VALUE 'BOM',
c_xml_adminfo TYPE string VALUE 'AdmInfo',
c_xml_documents TYPE string VALUE 'Documents',
c_xml_document_lines TYPE string VALUE 'Document_Lines',
c_xml_bo TYPE string VALUE 'BO'.
DATA:
g_xml TYPE REF TO cl_xml_document.",

START-OF-SELECTION.
REFRESH:itab_head,itab_item.
SELECT * INTO CORRESPONDING FIELDS OF TABLE itab_head
FROM z1crm_sales_head
WHERE order_id = order_id.
READ TABLE itab_head INTO s_head INDEX 1.

SELECT number_int AS itemcode pn_group matnr charg status_i
INTO CORRESPONDING FIELDS OF TABLE itab_item
FROM z1crm_sales_item
WHERE order_id = order_id.

adminfo-object = '17'.
adminfo-version = '2'.
END-OF-SELECTION.
DATA:
mtd_name TYPE string,
class_root TYPE REF TO if_ixml_node,
class_bo TYPE REF TO if_ixml_node.

CREATE OBJECT g_xml
    EXPORTING
      description = 'test'
      object_type = cl_xml_document=>c_bor_classtype.
*      object_name = s_head-mill.

* Simply generate sections of XML document

* First create root section
g_xml->set_data( name = c_xml_root
dataobject = '' ).

class_root = g_xml->find_node( name = c_xml_root ).

g_xml->set_data( name       = c_xml_bo
                parent_node = class_root
                  dataobject = '' ).
class_bo = g_xml->find_node( name   = c_xml_bo ).

* All other sections will be under the root (see parent_node)
DEFINE set_section_data.
    g_xml->set_data( name = &1
                     parent_node = class_bo
                     dataobject = &2 ).
END-OF-DEFINITION.

set_section_data:
    'AdmInfo' '',
    'Object' adminfo-object ,
    'Version' adminfo-version ,
    'Documents' s_head    ,
    'Document_Lines' itab_item .
* LOOP AT itab_item INTO s_item.
*    set_section_data:
*    'row' s_item.
* ENDLOOP.

* Now display resulting XML-file or export it into workstation file
mtd_name = order_id.

IF p_show = 'X'.
g_xml->display( ).
EXIT.
ENDIF.

DATA:
    user_action TYPE i,
    path TYPE string,
    full_path TYPE string,
    file_name TYPE string.

CALL METHOD cl_gui_frontend_services=>file_save_dialog
    EXPORTING
      default_extension    = 'xml'
      default_file_name    = mtd_name
      file_filter          = cl_gui_frontend_services=>filetype_xml
    CHANGING
      filename             = file_name
      path                 = path
      fullpath             = full_path
      user_action          = user_action
    EXCEPTIONS
      cntl_error           = 1
      error_no_gui         = 2
      not_supported_by_gui = 3
      OTHERS               = 4.

IF sy-subrc <> 0.
MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
ENDIF.

CHECK user_action = cl_gui_frontend_services=>action_ok.

DATA:
localfile TYPE localfile.

localfile = full_path.

g_xml->export_to_file( filename = localfile ).

执行结果：

xml version="1.0" ?>

- < BOM >

- < BO >

< AdmInfo />