[robemirandasap]

Buenas he conseguido que al traer el documento XML desde el servidor se vuelque en una tabla interna, del tipo name (tag) value (valor).

Haciendo el open dataset en modo binario, leemos en una tabla interna la cual le pasaremos al objeto cl_xml_document mediante un método, una vez montado el objeto xml solo será cuestión de recorrer los nodos y guardar la información en la tabla interna comentada anteriormente, pongo el código para que lo veais mas claro:

tipos ,tablas y variables:

DATA: ld_fullpath TYPE string.

DATA:
v_node TYPE REF TO if_ixml_node,
v_child_node TYPE REF TO if_ixml_node,
v_root TYPE REF TO if_ixml_node,
v_iterator TYPE REF TO if_ixml_node_iterator,
v_nodemap TYPE REF TO if_ixml_named_node_map,
v_count TYPE i,
v_index TYPE i,
v_attr TYPE REF TO if_ixml_node,
v_name TYPE string,
v_prefix TYPE string,
v_value TYPE string,
v_char TYPE char2.

TYPES: BEGIN OF ty_tab,
name TYPE string,
value TYPE string,
END OF ty_tab.

DATA: itab TYPE STANDARD TABLE OF ty_tab,
wa TYPE ty_tab.

types : begin of truxs_xml_line,
data(256) TYPE x,
end of truxs_xml_line.

types: truxs_xml_table TYPE TABLE OF truxs_xml_line.

TYPES: BEGIN OF xml_line,
data(256) TYPE x,
END OF xml_line.

DATA: lt_xml_table TYPE TABLE OF truxs_xml_line,
lw_xml_table TYPE truxs_xml_line,
ld_filename TYPE string.

DATA objeto TYPE REF TO cl_xml_document.

------------------------
---CÓDIGO PROCESO----
------------------------

---Lectura del fichero y volcado en tabla interna

OPEN DATASET ld_fullpath FOR INPUT IN BINARY MODE."
IF sy-subrc NE 0.
WRITE:/ 'ERROR'.
ENDIF.
FREE lt_xml_table.
DO.
READ DATASET ld_fullpath INTO lw_xml_table.
IF sy-subrc NE 0.
EXIT.
ELSE.
APPEND lw_xml_table TO lt_xml_table.
ENDIF.
ENDDO.

---Creaemos objeto xml y le pasamos la tabla obtenida

CREATE OBJECT objeto.

CALL METHOD objeto->create_with_table
EXPORTING
table = lt_xml_table.

---Pues a recorrer el XML (Podeis debuguear y ver como lo hace)

IF v_subrc EQ '0'.
v_node = objeto->m_document.
CHECK NOT v_node IS INITIAL.
v_iterator = v_node->create_iterator( ).
v_node = v_iterator->get_next( ).

WHILE NOT v_node IS INITIAL.
CASE v_node->get_type( ).
WHEN if_ixml_node=>co_node_element.
v_name = v_node->get_name( ).

WHEN if_ixml_node=>co_node_text OR
if_ixml_node=>co_node_cdata_section.
*text node
v_value = v_node->get_value( ).
MOVE v_value TO v_char.
IF v_char ne v_char_d. "cl_abap_char_utilities=>cr_lf and v_char <> v_char_d.
wa-name = v_name.
wa-value = v_value.
APPEND wa TO itab.
CLEAR wa.
ENDIF.
ENDCASE.
*advance to next node
v_node = v_iterator->get_next( ).
ENDWHILE.

---Esto es todo, este último código lo podeis customizar para que rellene
---la tabla como querais.

Un saludoooo