将SAP订单以XML格式输出

将订单信息从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 ).

执行结果：