Read XLSX from third-party providers (namespaces) (#935)

* theme namespace

* XLSM and rename namespace default to main

Co-authored-by: sandraros <sandra.rossi@gmail.com>
Co-authored-by: Abo <andrea@borgia.bo.it>

src/zcl_excel_common.clas.abap

@@ -67,6 +67,11 @@ CLASS zcl_excel_common DEFINITION
       EXPORTING
         !e_column    TYPE zexcel_cell_column_alpha
         !e_row       TYPE zexcel_cell_row .
+    CLASS-METHODS clone_ixml_with_namespaces
+      IMPORTING
+        element TYPE REF TO if_ixml_element
+      RETURNING
+        VALUE(result) TYPE REF TO if_ixml_element.
     CLASS-METHODS date_to_excel_string
       IMPORTING
         !ip_value       TYPE d
@@ -625,6 +630,32 @@ CLASS zcl_excel_common IMPLEMENTATION.
   ENDMETHOD.
 
 
+  METHOD clone_ixml_with_namespaces.
+
+    DATA: iterator    TYPE REF TO if_ixml_node_iterator,
+          node        TYPE REF TO if_ixml_node,
+          xmlns       TYPE ihttpnvp,
+          xmlns_table TYPE TABLE OF ihttpnvp.
+    FIELD-SYMBOLS:
+      <xmlns> TYPE ihttpnvp.
+
+    iterator = element->create_iterator( ).
+    result ?= element->clone( ).
+    node = iterator->get_next( ).
+    WHILE node IS BOUND.
+      xmlns-name = node->get_namespace_prefix( ).
+      xmlns-value = node->get_namespace_uri( ).
+      COLLECT xmlns INTO xmlns_table.
+      node = iterator->get_next( ).
+    ENDWHILE.
+
+    LOOP AT xmlns_table ASSIGNING <xmlns>.
+      result->set_attribute_ns( prefix = 'xmlns' name = <xmlns>-name value = <xmlns>-value ).
+    ENDLOOP.
+
+  ENDMETHOD.
+
+
   METHOD date_to_excel_string.
     DATA: lv_date_diff         TYPE i.
 

src/zcl_excel_reader_xlsm.clas.abap

@@ -73,7 +73,7 @@ CLASS zcl_excel_reader_xlsm IMPLEMENTATION.
 
     rels_workbook = me->get_ixml_from_zip_archive( rels_workbook_path ).
 
-    node ?= rels_workbook->find_from_name( 'Relationship' ).
+    node ?= rels_workbook->find_from_name_ns( name = 'Relationship' uri = namespace-relationships ).
     WHILE node IS BOUND.
       me->fill_struct_from_attributes( EXPORTING ip_element = node CHANGING cp_structure = relationship ).
 
@@ -91,7 +91,7 @@ CLASS zcl_excel_reader_xlsm IMPLEMENTATION.
 
     " Read Workbook codeName
     workbook = me->get_ixml_from_zip_archive( iv_workbook_full_filename ).
-    node ?=  workbook->find_from_name( 'fileVersion' ).
+    node ?=  workbook->find_from_name_ns( name = 'fileVersion' uri = namespace-main ).
     IF node IS BOUND.
 
       fill_struct_from_attributes( EXPORTING ip_element   = node
@@ -102,7 +102,7 @@ CLASS zcl_excel_reader_xlsm IMPLEMENTATION.
 
     " Read Workbook codeName
     workbook = me->get_ixml_from_zip_archive( iv_workbook_full_filename ).
-    node ?=  workbook->find_from_name( 'workbookPr' ).
+    node ?=  workbook->find_from_name_ns( name = 'workbookPr' uri = namespace-main ).
     IF node IS BOUND.
 
       fill_struct_from_attributes( EXPORTING ip_element   = node
@@ -125,7 +125,7 @@ CLASS zcl_excel_reader_xlsm IMPLEMENTATION.
 
     " Read Workbook codeName
     worksheet = me->get_ixml_from_zip_archive( ip_path ).
-    node ?=  worksheet->find_from_name( 'sheetPr' ).
+    node ?=  worksheet->find_from_name_ns( name = 'sheetPr' uri = namespace-main ).
     IF node IS BOUND.
 
       fill_struct_from_attributes( EXPORTING ip_element   = node

src/zcl_excel_theme_eclrschemelst.clas.abap

@@ -41,7 +41,6 @@ CLASS zcl_excel_theme_eclrschemelst IMPLEMENTATION.
 
 
   METHOD load.
-    "! so far copy only existing values
-    extracolor ?= io_extra_color.
+    extracolor = zcl_excel_common=>clone_ixml_with_namespaces( io_extra_color ).
   ENDMETHOD.                    "load
 ENDCLASS.

src/zcl_excel_theme_extlst.clas.abap

@@ -41,7 +41,6 @@ CLASS zcl_excel_theme_extlst IMPLEMENTATION.
 
 
   METHOD load.
-    "! so far copy only existing values
-    extlst ?= io_extlst.
+    extlst = zcl_excel_common=>clone_ixml_with_namespaces( io_extlst ).
   ENDMETHOD.                    "load
 ENDCLASS.

src/zcl_excel_theme_fmt_scheme.clas.abap

@@ -189,7 +189,6 @@ CLASS zcl_excel_theme_fmt_scheme IMPLEMENTATION.
 
 
   METHOD load.
-    "! so far copy only existing values
-    fmt_scheme ?= io_fmt_scheme.
+    fmt_scheme = zcl_excel_common=>clone_ixml_with_namespaces( io_fmt_scheme ).
   ENDMETHOD.                    "load
 ENDCLASS.

src/zcl_excel_theme_objectdefaults.clas.abap

@@ -39,7 +39,6 @@ CLASS zcl_excel_theme_objectdefaults IMPLEMENTATION.
 
 
   METHOD load.
-    "! so far copy only existing values
-    objectdefaults ?= io_object_def.
+    objectdefaults = zcl_excel_common=>clone_ixml_with_namespaces( io_object_def ).
   ENDMETHOD.                    "load
 ENDCLASS.