Technology Blogs by Members
Explore a vibrant mix of technical expertise, industry insights, and tech buzz in member blogs covering SAP products, technology, and events. Get in the mix!
cancel
Showing results for 
Search instead for 
Did you mean: 
27,590

Applies to:

      Webdynpro ABAP

Summary

This article is to download Webdynpro ABAP table (header & line item) data in cell formatted excel sheet with colors, borders, filters. It was not possible to download data in Cell formatted Excel sheet using Webdynpro ABAP. To make this objective possible, we can use XML mapping.  For the XML mapping, create a dummy Excel Sheet with expected Cell formatting and save it as XML file. Use this XML tags in the method logic of Webdynpro ABAP coding.

Author(s):    KIRUTHIKA  P

Company:      L & T Infotech

Created on:   20 February 2012

Author Bio

              Kiruthika P is working as a SAP Technical ABAP consultant for one year in L & T Infotech. I am very much interested in learning new technologies in SAP. Currently I am working in Web Dynpro ABAP and ISU .

Introduction

This article is to download Webdynpro ABAP table (header & line item) data in cell formatted excel sheet with colors, borders, filters. It was not possible to download data in Cell formatted Excel sheet using Webdynpro ABAP. To make this objective possible, we can use XML mapping.  For the XML mapping, create a dummy Excel Sheet with expected Cell formatting and save it as XML file. Use this XML tags in the method logic of Webdynpro ABAP coding.

Objective

To download Webdynpro ABAP table (header & line item) data in cell formatted excel sheet with colors, borders, filters.

Steps

1. Create one Webdynpro Component

Go to SE80 -> Create Webdynpro component.

Give name of Webdynpro component and click Display Icon.

Then it will show one pop up message to create the component.

Click Yes.

2.Create the component with view and window.

  Give the description for Webdynpro component.

3. Save the component in local object or package.

4. Create a node (Node_Sflight) in Context of Component Controller.

5.Create a attribute in the node for table popin of type string.

6.Create a sub node (Node_sbook) under Node_Sflight.

7.Now context of Component Controller looks like as below.

8. Map the Context of Component Controller to view.

9. In layout of main View,Create one button “Get Flight” to get the flight details.

  Under the On_action   properties of this element create one event  “Flight_Details”.

10.Create one table to display the header data flight details.

11.The table is binded to ‘Node_Sflight’.

12.Insert one new table column for popin from the table.

13.In that column, Insert cell variant.

14.Go to the properties of “Table_popin_toggle_cell” in table column and provide ‘TOGGLE_CELL’ in

   ‘Variant key’ property.

15.Go to the properties of Table Column and provide ‘TOGGLE_CELL’ in ‘Selected Cell Variant’ property

   as in figure.

16.Go to the properties of ‘Table’ and bind Selected Popin property with table_popin attribute of node_Sflight.

17.Create a popin window by Insert Table popin.

18.In that popin, create a transparent container.

19.Create a table in the container to show the line data details of a particular flight.

20.The table in the popin is binded to subnode ‘Node_Sbook’.

     

21.Create another button “Export To Excel” which is used to export data from  table to Excel Sheet.

Under the On_action properties of this element create one event “Export_Excel”.

22.Go to methods tab. Then write logic for all the methods.

23.In the method list, Go to Get_Flights and click the code wizard.

24. By the code wizard, read the main node and sub node.

25.In Export_To _Excel method ,write logic to export data with formats such as borders,Colors,  etc.

26.In Webdynpro ABAP, no direct code for cell formatted excels. So create one dummy excel sheet with expected cell formatted features (colors, borders, filter, headers, etc).

27.Save the Excel file as XML data.

28. XML data mapped Excel file is in this format.

29.Open this file with notepad and map this XML data to coding.

30.The resulting XML tags are appended to code of Export_to_Excel.

31.After creating all methods, save and activate it.

32.Create a Webdynpro application for the Webdynpro component.

      

   

33.Then Save and Activate the entire component.

34.Go to web Dynpro application and then test the application.

     

Code Sample:

            Step 1.Method  To_get_Flight_details.

                 To get list of flights details by the method.

               

METHOD onactionto_get_flights .
* Declarations
 
DATA lo_nd_node_sflight TYPE REF TO if_wd_context_node.

 
DATA lo_el_node_sflight TYPE REF TO if_wd_context_element.
 
DATA ls_node_sflight    TYPE        wd_this->element_node_sflight.
 
DATA lt_sflight         TYPE        wd_this->elements_node_sflight.
*   navigate from <CONTEXT> to <NODE_SFLIGHT> via lead selection
  lo_nd_node_sflight = wd_context->get_child_node( name = wd_this->wdctx_node_sflight ).
*   To get static attributes table
  lo_nd_node_sflight->get_static_attributes_table(IMPORTING
 
table = lt_sflight ).
*To fill internal table
 
SELECT * FROM sflight
INTO CORRESPONDING FIELDS OF TABLE lt_sflight.
*   get element via lead selection
  lo_el_node_sflight = lo_nd_node_sflight->get_element( ).
*   @TODO handle not set lead selection
 
IF lo_el_node_sflight IS INITIAL.
 
ENDIF.*   To bind the internal table to main node
  lo_nd_node_sflight->bind_table( lt_sflight ).**********---------------------------------------------******************
*   Declarations of sub node
 
DATA lo_nd_node_sbook TYPE REF TO if_wd_context_node.
 
DATA lo_el_node_sbook TYPE REF TO if_wd_context_element.
 
DATA ls_node_sbook    TYPE        wd_this->element_node_sbook.
 
DATA lt_sbook         TYPE        wd_this->elements_node_sbook .
* navigate from <CONTEXT> to <NODE_SBOOK> via lead selection
  lo_nd_node_sbook = wd_context->path_get_node( path =
`NODE_SFLIGHT.NODE_SBOOK` ).
* @TODO handle not set lead selection
 
IF lo_el_node_sbook IS INITIAL.
 
ENDIF.
* To fill the popin internal table based on values in first internal table
 
SELECT * FROM sbook
    
INTO CORRESPONDING FIELDS OF TABLE  lt_sbook
   
FOR ALL ENTRIES IN lt_sflight
       
WHERE carrid = lt_sflight-carrid AND
                                  connid = lt_sflight-connid
AND
                                  fldate = lt_sflight-fldate.
* To bind internal table to the node
 
IF lo_nd_node_sbook IS NOT INITIAL.
    lo_nd_node_sbook->bind_table( lt_sbook ).
 
ENDIF

Step 2. Method_Linedata

         Next to get the lineitem data for particular header row.

METHOD onactionlinedata .* Declarations
 
DATA lo_nd_node_sflight TYPE REF TO if_wd_context_node.
 
DATA lo_el_node_sflight TYPE REF TO if_wd_context_element.
 
DATA ls_node_sflight    TYPE        wd_this->element_node_sflight.
 
DATA lt_sflight         TYPE        wd_this->elements_node_sflight.
*   navigate from <CONTEXT> to <SFLIGHT> via lead selection
  lo_nd_node_sflight = wd_context->get_child_node( name = wd_this->wdctx_node_sflight).
*   get element via lead selection
  lo_el_node_sflight = lo_nd_node_sflight->get_element( ).
* Declarations
 
DATA lt_sbook         TYPE        wd_this->elements_node_sbook.
 
DATA lo_nd_node_sbook TYPE REF TO if_wd_context_node.
 
DATA lo_el_node_sbook TYPE REF TO if_wd_context_element.
 
DATA ls_sbook         TYPE        wd_this->element_node_sbook.
* navigate from <CONTEXT> to <SBOOK> via lead selection
  lo_nd_node_sbook = wd_context->path_get_node (path =
`NODE_SFLIGHT.NODE_SBOOK` ).
* @TODO handle non existant child
 
IF lo_nd_node_sbook IS NOT INITIAL.
    lo_el_node_sbook = lo_nd_node_sbook->get_element( ).
 
ENDIF.
* Filling the linedata internal table
 
SELECT * FROM sbook
   
INTO CORRESPONDING FIELDS OF TABLE lt_sbook
   
FOR ALL ENTRIES IN lt_sflight
   
WHERE carrid = lt_sflight-carrid AND
           connid = lt_sflight-connid
AND
           fldate = lt_sflight-fldate.
* To bind internal table to line data node
 
IF lo_nd_node_sbook IS NOT INITIAL.


   

lo_nd_node_sbook->bind_table( lt_sbook ).
 
ENDIF.ENDMETHOD.

Step 3. Method_Export_To_Excel

       And now the final piece of the article  is to take action in response to the click  of  button “EXPORT_TO_EXCEL”

METHOD onactionexport_to_excel .*  declarations
 
DATA lo_nd_sflight TYPE REF TO if_wd_context_node.
 
DATA lo_el_sflight TYPE REF TO if_wd_context_element.
 
DATA ls_sflight TYPE wd_this->element_sflight.
 
DATA lt_sflight TYPE wd_this->elements_sflight.

 
DATA text  TYPE string.
 
DATA xtext TYPE xstring.
 
DATA lv_sno(3) TYPE n.
 
DATA lv_space  TYPE c VALUE ' '.
*   navigate from <CONTEXT> to <SFLIGHT> via lead selection
  lo_nd_sflight = wd_context->get_child_node( name = wd_this->wdctx_sflight ).
*   get element via lead selection
  lo_el_sflight = lo_nd_sflight->get_element( ).

 
DATA : lv_parent_index TYPE i.
 
CALL METHOD lo_el_sflight->get_index
    RECEIVING
      my_index = lv_parent_index.
*   get all declared attributes
  lo_nd_sflight->get_static_attributes_table(
 
IMPORTING
   
table = lt_sflight ).
*  declarations
 
DATA lo_nd_sbook TYPE REF TO if_wd_context_node.
 
DATA lo_el_sbook TYPE REF TO if_wd_context_element.
 
DATA ls_sbook TYPE wd_this->element_sbook.
 
DATA lt_sbook TYPE wd_this->elements_sbook.
*Assign initial value
  lv_sno =
1.

  lo_nd_sbook =  wd_context->path_get_node( path = `SFLIGHT.SBOOK` ).**************************************************************************** declarations for xml data
 
DATA p_t_xml_data TYPE TABLE OF tline.
 
FIELD-SYMBOLS <fs_xml> TYPE tline.
* append xml data to this code
 
APPEND INITIAL LINE TO p_t_xml_data
 
ASSIGNING <fs_xml>.
 
MOVE : '<?xml version="1.0"?>' TO  <fs_xml>-tdline.
 
CONCATENATE text <fs_xml>-tdline  cl_abap_char_utilities=>newline INTO text .

 
APPEND INITIAL LINE TO p_t_xml_data
 
ASSIGNING <fs_xml>.
 
MOVE : '<?mso-application progid="Excel.Sheet"?>' TO  <fs_xml>-tdline.
 
CONCATENATE text <fs_xml>-tdline  cl_abap_char_utilities=>newline INTO text .

 
APPEND INITIAL LINE TO p_t_xml_data
 
ASSIGNING <fs_xml>.
 
MOVE : '<Workbook xmlns="urn:schemas-microsoft-com:office:spreadsheet"' TO  <fs_xml>-tdline.
 
CONCATENATE text <fs_xml>-tdline  cl_abap_char_utilities=>newline INTO text .

 
APPEND INITIAL LINE TO p_t_xml_data
 
ASSIGNING <fs_xml>.
 
MOVE : 'xmlns:o="urn:schemas-microsoft-com:office:office"' TO  <fs_xml>-tdline.
 
CONCATENATE text <fs_xml>-tdline  cl_abap_char_utilities=>newline INTO text .

 
APPEND INITIAL LINE TO p_t_xml_data
 
ASSIGNING <fs_xml>.
 
MOVE : 'xmlns:x="urn:schemas-microsoft-com:office:excel"' TO  <fs_xml>-tdline.
 
CONCATENATE text <fs_xml>-tdline  cl_abap_char_utilities=>newline INTO text .

 
APPEND INITIAL LINE TO p_t_xml_data
 
ASSIGNING <fs_xml>.
 
MOVE : 'xmlns:ss="urn:schemas-microsoft-com:office:spreadsheet"' TO  <fs_xml>-tdline.
 
CONCATENATE text <fs_xml>-tdline  cl_abap_char_utilities=>newline INTO text .

 
APPEND INITIAL LINE TO p_t_xml_data
 
ASSIGNING <fs_xml>.
 
MOVE : 'xmlns:html="http://www.w3.org/TR/REC-html40">' TO  <fs_xml>-tdline.
 
CONCATENATE text <fs_xml>-tdline  cl_abap_char_utilities=>newline INTO text.

 
APPEND INITIAL LINE TO p_t_xml_data
 
ASSIGNING <fs_xml>.
 
MOVE : '<DocumentProperties xmlns="urn:schemas-microsoft-com:office:office">' TO  <fs_xml>-tdline.
 
CONCATENATE text <fs_xml>-tdline  cl_abap_char_utilities=>newline INTO text.

 
APPEND INITIAL LINE TO p_t_xml_data
 
ASSIGNING <fs_xml>.
 
MOVE : '<Author>281153</Author>' TO  <fs_xml>-tdline.
 
CONCATENATE text <fs_xml>-tdline  cl_abap_char_utilities=>newline INTO text.


 
APPEND INITIAL LINE TO p_t_xml_data
 
ASSIGNING <fs_xml>.
 
MOVE : '<LastAuthor>295231</LastAuthor>' TO  <fs_xml>-tdline.
 
CONCATENATE text <fs_xml>-tdline  cl_abap_char_utilities=>newline INTO text.


 
APPEND INITIAL LINE TO p_t_xml_data
 
ASSIGNING <fs_xml>.
 
MOVE : ' <Created>2011-12-05T10:59:08Z</Created>' TO  <fs_xml>-tdline.
 
CONCATENATE text <fs_xml>-tdline  cl_abap_char_utilities=>newline INTO text.

 
APPEND INITIAL LINE TO p_t_xml_data
 
ASSIGNING <fs_xml>.
 
MOVE : '<LastSaved>2011-12-27T06:14:56Z</LastSaved>' TO  <fs_xml>-tdline.
 
CONCATENATE text <fs_xml>-tdline  cl_abap_char_utilities=>newline INTO text.

 
APPEND INITIAL LINE TO p_t_xml_data
 
ASSIGNING <fs_xml>.
 
MOVE : '  <Company>lnt</Company>' TO  <fs_xml>-tdline.
 
CONCATENATE text <fs_xml>-tdline  cl_abap_char_utilities=>newline INTO text.



 
APPEND INITIAL LINE TO p_t_xml_data
 
ASSIGNING <fs_xml>.
 
MOVE : '<Version>12.00</Version>' TO  <fs_xml>-tdline.
 
CONCATENATE text <fs_xml>-tdline  cl_abap_char_utilities=>newline INTO text.

 
APPEND INITIAL LINE TO p_t_xml_data
 
ASSIGNING <fs_xml>.
 
MOVE : ' </DocumentProperties>' TO  <fs_xml>-tdline.
 
CONCATENATE text <fs_xml>-tdline  cl_abap_char_utilities=>newline INTO text.


 
APPEND INITIAL LINE TO p_t_xml_data
 
ASSIGNING <fs_xml>.
 
MOVE : '<ExcelWorkbook xmlns="urn:schemas-microsoft-com:office:excel">' TO  <fs_xml>-tdline.
 
CONCATENATE text <fs_xml>-tdline  cl_abap_char_utilities=>newline INTO text.



 
APPEND INITIAL LINE TO p_t_xml_data
 
ASSIGNING <fs_xml>.
 
MOVE : '<WindowHeight>7560</WindowHeight>' TO  <fs_xml>-tdline.
 
CONCATENATE text <fs_xml>-tdline  cl_abap_char_utilities=>newline INTO text.


 
APPEND INITIAL LINE TO p_t_xml_data
 
ASSIGNING <fs_xml>.
 
MOVE : '<WindowWidth>7500</WindowWidth>' TO  <fs_xml>-tdline.
 
CONCATENATE text <fs_xml>-tdline  cl_abap_char_utilities=>newline INTO text.


 
APPEND INITIAL LINE TO p_t_xml_data
 
ASSIGNING <fs_xml>.
 
MOVE : ' <WindowTopX>360</WindowTopX>' TO  <fs_xml>-tdline.
 
CONCATENATE text <fs_xml>-tdline  cl_abap_char_utilities=>newline INTO text.


 
APPEND INITIAL LINE TO p_t_xml_data
 
ASSIGNING <fs_xml>.
 
MOVE : ' <WindowTopY>105</WindowTopY>' TO  <fs_xml>-tdline.
 
CONCATENATE text <fs_xml>-tdline  cl_abap_char_utilities=>newline INTO text.

 
APPEND INITIAL LINE TO p_t_xml_data
 
ASSIGNING <fs_xml>.
 
MOVE : '   <ProtectStructure>False</ProtectStructure>' TO  <fs_xml>-tdline.
 
CONCATENATE text <fs_xml>-tdline  cl_abap_char_utilities=>newline INTO text.

 
APPEND INITIAL LINE TO p_t_xml_data
 
ASSIGNING <fs_xml>.
 
MOVE : ' <ProtectWindows>False</ProtectWindows>' TO  <fs_xml>-tdline.
 
CONCATENATE text <fs_xml>-tdline  cl_abap_char_utilities=>newline INTO text.

 
APPEND INITIAL LINE TO p_t_xml_data
 
ASSIGNING <fs_xml>.
 
MOVE : ' </ExcelWorkbook>' TO  <fs_xml>-tdline.
 
CONCATENATE text <fs_xml>-tdline  cl_abap_char_utilities=>newline INTO text.


 
APPEND INITIAL LINE TO p_t_xml_data
 
ASSIGNING <fs_xml>.
 
MOVE : '<Styles>' TO  <fs_xml>-tdline.
 
CONCATENATE text <fs_xml>-tdline  cl_abap_char_utilities=>newline INTO text.


 
APPEND INITIAL LINE TO p_t_xml_data
 
ASSIGNING <fs_xml>.
 
MOVE : '<Style ss:ID="Default" ss:Name="Normal">' TO  <fs_xml>-tdline.
 
CONCATENATE text <fs_xml>-tdline  cl_abap_char_utilities=>newline INTO text.

 
APPEND INITIAL LINE TO p_t_xml_data
 
ASSIGNING <fs_xml>.
 
MOVE : ' <Alignment ss:Vertical="Bottom"/>' TO  <fs_xml>-tdline.
 
CONCATENATE text <fs_xml>-tdline  cl_abap_char_utilities=>newline INTO text.

 
APPEND INITIAL LINE TO p_t_xml_data
 
ASSIGNING <fs_xml>.
 
MOVE : ' <Borders/>' TO  <fs_xml>-tdline.
 
CONCATENATE text <fs_xml>-tdline  cl_abap_char_utilities=>newline INTO text.

 
APPEND INITIAL LINE TO p_t_xml_data
 
ASSIGNING <fs_xml>.
 
MOVE : '<Font ss:FontName="Calibri" x:Family="Swiss" ss:Size="11" ss:Color="#000000"/>' TO  <fs_xml>-tdline.
 
CONCATENATE text <fs_xml>-tdline  cl_abap_char_utilities=>newline INTO text.


 
APPEND INITIAL LINE TO p_t_xml_data
 
ASSIGNING <fs_xml>.
 
MOVE : ' <Interior/>' TO  <fs_xml>-tdline.
 
CONCATENATE text <fs_xml>-tdline  cl_abap_char_utilities=>newline INTO text.

 
APPEND INITIAL LINE TO p_t_xml_data
 
ASSIGNING <fs_xml>.
 
MOVE : ' <NumberFormat/>' TO  <fs_xml>-tdline.
 
CONCATENATE text <fs_xml>-tdline  cl_abap_char_utilities=>newline INTO text.


 
APPEND INITIAL LINE TO p_t_xml_data
 
ASSIGNING <fs_xml>.
 
MOVE : '<Protection/>' TO  <fs_xml>-tdline.
 
CONCATENATE text <fs_xml>-tdline  cl_abap_char_utilities=>newline INTO text.

 
APPEND INITIAL LINE TO p_t_xml_data
 
ASSIGNING <fs_xml>.
 
MOVE : ' </Style>' TO  <fs_xml>-tdline.
 
CONCATENATE text <fs_xml>-tdline  cl_abap_char_utilities=>newline INTO text.

 
APPEND INITIAL LINE TO p_t_xml_data
 
ASSIGNING <fs_xml>.
 
MOVE : '<Style ss:ID="s16">' TO  <fs_xml>-tdline.
 
CONCATENATE text <fs_xml>-tdline  cl_abap_char_utilities=>newline INTO text.

 
APPEND INITIAL LINE TO p_t_xml_data
 
ASSIGNING <fs_xml>.
 
MOVE : '<Font ss:FontName="Calibri" x:Family="Swiss" ss:Size="11" ss:Color="#000000" ss:Bold="1"/>' TO  <fs_xml>-tdline.
 
CONCATENATE text <fs_xml>-tdline  cl_abap_char_utilities=>newline INTO text.

 
APPEND INITIAL LINE TO p_t_xml_data
 
ASSIGNING <fs_xml>.
 
MOVE : '<Interior ss:Color="#FAC090" ss:Pattern="Solid"/>' TO  <fs_xml>-tdline.
 
CONCATENATE text <fs_xml>-tdline  cl_abap_char_utilities=>newline INTO text.




 
APPEND INITIAL LINE TO p_t_xml_data
 
ASSIGNING <fs_xml>.
 
MOVE : '</Style>' TO  <fs_xml>-tdline.
 
CONCATENATE text <fs_xml>-tdline  cl_abap_char_utilities=>newline INTO text.

 
APPEND INITIAL LINE TO p_t_xml_data
 
ASSIGNING <fs_xml>.
 
MOVE : '<Style ss:ID="s17">' TO  <fs_xml>-tdline.
 
CONCATENATE text <fs_xml>-tdline  cl_abap_char_utilities=>newline INTO text.

 
APPEND INITIAL LINE TO p_t_xml_data
 
ASSIGNING <fs_xml>.
 
MOVE : '<Font ss:FontName="Calibri" x:Family="Swiss" ss:Size="11" ss:Color="#000000" ss:Bold="1"/>' TO  <fs_xml>-tdline.
 
CONCATENATE text <fs_xml>-tdline  cl_abap_char_utilities=>newline INTO text.

 
APPEND INITIAL LINE TO p_t_xml_data
 
ASSIGNING <fs_xml>.
 
MOVE : ' <Interior ss:Color="#E46D0A" ss:Pattern="Solid"/>' TO  <fs_xml>-tdline.
 
CONCATENATE text <fs_xml>-tdline  cl_abap_char_utilities=>newline INTO text.


 
APPEND INITIAL LINE TO p_t_xml_data
 
ASSIGNING <fs_xml>.
 
MOVE : '</Style>' TO  <fs_xml>-tdline.
 
CONCATENATE text <fs_xml>-tdline  cl_abap_char_utilities=>newline INTO text.
**
 
APPEND INITIAL LINE TO p_t_xml_data
 
ASSIGNING <fs_xml>.
 
MOVE : '<Style ss:ID="s18">' TO  <fs_xml>-tdline.
 
CONCATENATE text <fs_xml>-tdline  cl_abap_char_utilities=>newline INTO text.



 
APPEND INITIAL LINE TO p_t_xml_data
 
ASSIGNING <fs_xml>.
 
MOVE : '<Borders>' TO  <fs_xml>-tdline.
 
CONCATENATE text <fs_xml>-tdline  cl_abap_char_utilities=>newline INTO text.

 
APPEND INITIAL LINE TO p_t_xml_data
 
ASSIGNING <fs_xml>.
 
MOVE : '<Border ss:Position="Left" ss:LineStyle="Continuous" ss:Weight="2"/>' TO  <fs_xml>-tdline.
 
CONCATENATE text <fs_xml>-tdline  cl_abap_char_utilities=>newline INTO text.

 
APPEND INITIAL LINE TO p_t_xml_data
 
ASSIGNING <fs_xml>.
 
MOVE'<Border ss:Position="Right" ss:LineStyle="Continuous" ss:Weight="2"/>' TO  <fs_xml>-tdline.
 
CONCATENATE text <fs_xml>-tdline  cl_abap_char_utilities=>newline INTO text.

 
APPEND INITIAL LINE TO p_t_xml_data
 
ASSIGNING <fs_xml>.
 
MOVE : '</Borders>' TO  <fs_xml>-tdline.
 
CONCATENATE text <fs_xml>-tdline  cl_abap_char_utilities=>newline INTO text.

 
APPEND INITIAL LINE TO p_t_xml_data
 
ASSIGNING <fs_xml>.
 
MOVE :'<Font ss:FontName="Calibri" x:Family="Swiss" ss:Size="11" ss:Color="#000000" ss:Bold="1"/>' TO  <fs_xml>-tdline.
 
CONCATENATE text <fs_xml>-tdline  cl_abap_char_utilities=>newline INTO text.

 
APPEND INITIAL LINE TO p_t_xml_data
 
ASSIGNING <fs_xml>.
 
MOVE : '<Interior ss:Color="#E46D0A" ss:Pattern="Solid"/>' TO  <fs_xml>-tdline.
 
CONCATENATE text <fs_xml>-tdline  cl_abap_char_utilities=>newline INTO text.*
 
APPEND INITIAL LINE TO p_t_xml_data
 
ASSIGNING <fs_xml>.
 
MOVE : '</Style>' TO  <fs_xml>-tdline.
 
CONCATENATE text <fs_xml>-tdline  cl_abap_char_utilities=>newline INTO text.*
 
APPEND INITIAL LINE TO p_t_xml_data
 
ASSIGNING <fs_xml>.
 
MOVE : '<Style ss:ID="s19">' TO  <fs_xml>-tdline.
 
CONCATENATE text <fs_xml>-tdline  cl_abap_char_utilities=>newline INTO text.

 
APPEND INITIAL LINE TO p_t_xml_data
 
ASSIGNING <fs_xml>.
 
MOVE : '<Borders>' TO  <fs_xml>-tdline.
 
CONCATENATE text <fs_xml>-tdline  cl_abap_char_utilities=>newline INTO text.

 
APPEND INITIAL LINE TO p_t_xml_data
 
ASSIGNING <fs_xml>.
 
MOVE : '<Border ss:Position="Left" ss:LineStyle="Continuous" ss:Weight="2"/>' TO  <fs_xml>-tdline.
 
CONCATENATE text <fs_xml>-tdline  cl_abap_char_utilities=>newline INTO text.

 
APPEND INITIAL LINE TO p_t_xml_data
 
ASSIGNING <fs_xml>.
 
MOVE : '<Border ss:Position="Right" ss:LineStyle="Continuous" ss:Weight="2"/>' TO  <fs_xml>-tdline.
 
CONCATENATE text <fs_xml>-tdline  cl_abap_char_utilities=>newline INTO text.

 
APPEND INITIAL LINE TO p_t_xml_data
 
ASSIGNING <fs_xml>.
 
MOVE : '</Borders>' TO  <fs_xml>-tdline.
 
CONCATENATE text <fs_xml>-tdline  cl_abap_char_utilities=>newline INTO text.

 
APPEND INITIAL LINE TO p_t_xml_data
 
ASSIGNING <fs_xml>.
 
MOVE : '<Font ss:FontName="Calibri" x:Family="Swiss" ss:Size="11" ss:Color="#000000" ss:Bold="1"/>' TO  <fs_xml>-tdline.
 
CONCATENATE text <fs_xml>-tdline  cl_abap_char_utilities=>newline INTO text.

 
APPEND INITIAL LINE TO p_t_xml_data
 
ASSIGNING <fs_xml>.
 
MOVE : '<Interior ss:Color="#FAC090" ss:Pattern="Solid"/>' TO  <fs_xml>-tdline.
 
CONCATENATE text <fs_xml>-tdline  cl_abap_char_utilities=>newline INTO text.

 
APPEND INITIAL LINE TO p_t_xml_data
 
ASSIGNING <fs_xml>.
 
MOVE : '</Style>' TO  <fs_xml>-tdline.
 
CONCATENATE text <fs_xml>-tdline  cl_abap_char_utilities=>newline INTO text.

 
APPEND INITIAL LINE TO p_t_xml_data
 
ASSIGNING <fs_xml>.
 
MOVE : '<Style ss:ID="s20">' TO  <fs_xml>-tdline.
 
CONCATENATE text <fs_xml>-tdline  cl_abap_char_utilities=>newline INTO text.

 
APPEND INITIAL LINE TO p_t_xml_data
 
ASSIGNING <fs_xml>.
 
MOVE : '<Borders> ' TO  <fs_xml>-tdline.
 
CONCATENATE text <fs_xml>-tdline  cl_abap_char_utilities=>newline INTO text.

 
APPEND INITIAL LINE TO p_t_xml_data
 
ASSIGNING <fs_xml>.
 
MOVE : '<Border ss:Position="Left" ss:LineStyle="Continuous" ss:Weight="2"/> ' TO  <fs_xml>-tdline.
 
CONCATENATE text <fs_xml>-tdline  cl_abap_char_utilities=>newline INTO text.

 
APPEND INITIAL LINE TO p_t_xml_data
 
ASSIGNING <fs_xml>.
 
MOVE : '<Border ss:Position="Right" ss:LineStyle="Continuous" ss:Weight="2"/> ' TO  <fs_xml>-tdline.
 
CONCATENATE text <fs_xml>-tdline  cl_abap_char_utilities=>newline INTO text.

 
APPEND INITIAL LINE TO p_t_xml_data
 
ASSIGNING <fs_xml>.
 
MOVE : '</Borders>' TO  <fs_xml>-tdline.
 
CONCATENATE text <fs_xml>-tdline  cl_abap_char_utilities=>newline INTO text.

 
APPEND INITIAL LINE TO p_t_xml_data
 
ASSIGNING <fs_xml>.
 
MOVE : '</Style>' TO  <fs_xml>-tdline.
 
CONCATENATE text <fs_xml>-tdline  cl_abap_char_utilities=>newline INTO text.

 
APPEND INITIAL LINE TO p_t_xml_data
 
ASSIGNING <fs_xml>.
 
MOVE : '<Style ss:ID="s21">' TO  <fs_xml>-tdline.
 
CONCATENATE text <fs_xml>-tdline  cl_abap_char_utilities=>newline INTO text.

 
APPEND INITIAL LINE TO p_t_xml_data
 
ASSIGNING <fs_xml>.
 
MOVE : '<Borders>' TO  <fs_xml>-tdline.
 
CONCATENATE text <fs_xml>-tdline  cl_abap_char_utilities=>newline INTO text.

 
APPEND INITIAL LINE TO p_t_xml_data
 
ASSIGNING <fs_xml>.
 
MOVE : '<Border ss:Position="Bottom" ss:LineStyle="Continuous" ss:Weight="2"/>' TO  <fs_xml>-tdline.
 
CONCATENATE text <fs_xml>-tdline  cl_abap_char_utilities=>newline INTO text.

 
APPEND INITIAL LINE TO p_t_xml_data
 
ASSIGNING <fs_xml>.
 
MOVE : '<Border ss:Position="Left" ss:LineStyle="Continuous" ss:Weight="2"/>' TO  <fs_xml>-tdline.
 
CONCATENATE text <fs_xml>-tdline  cl_abap_char_utilities=>newline INTO text.

 
APPEND INITIAL LINE TO p_t_xml_data
 
ASSIGNING <fs_xml>.
 
MOVE : '<Border ss:Position="Top" ss:LineStyle="Continuous" ss:Weight="2"/>' TO  <fs_xml>-tdline.
 
CONCATENATE text <fs_xml>-tdline  cl_abap_char_utilities=>newline INTO text.

 
APPEND INITIAL LINE TO p_t_xml_data
 
ASSIGNING <fs_xml>.
 
MOVE : '</Borders>' TO  <fs_xml>-tdline.
 
CONCATENATE text <fs_xml>-tdline  cl_abap_char_utilities=>newline INTO text.

 
APPEND INITIAL LINE TO p_t_xml_data
 
ASSIGNING <fs_xml>.
 
MOVE : '<Font ss:FontName="Calibri" x:Family="Swiss" ss:Size="11" ss:Bold="1"/>' TO  <fs_xml>-tdline.
 
CONCATENATE text <fs_xml>-tdline  cl_abap_char_utilities=>newline INTO text.

 
APPEND INITIAL LINE TO p_t_xml_data
 
ASSIGNING <fs_xml>.
 
MOVE :   '<Interior ss:Color="#FFC000" ss:Pattern="Solid"/>' TO  <fs_xml>-tdline.
 
CONCATENATE text <fs_xml>-tdline  cl_abap_char_utilities=>newline INTO text.

 
APPEND INITIAL LINE TO p_t_xml_data
 
ASSIGNING <fs_xml>.
 
MOVE : '</Style>' TO  <fs_xml>-tdline.
 
CONCATENATE text <fs_xml>-tdline  cl_abap_char_utilities=>newline INTO text.

 
APPEND INITIAL LINE TO p_t_xml_data
 
ASSIGNING <fs_xml>.
 
MOVE : '<Style ss:ID="s22">' TO  <fs_xml>-tdline.
 
CONCATENATE text <fs_xml>-tdline  cl_abap_char_utilities=>newline INTO text.

 
APPEND INITIAL LINE TO p_t_xml_data
 
ASSIGNING <fs_xml>.
 
MOVE : '<Borders>' TO  <fs_xml>-tdline.
 
CONCATENATE text <fs_xml>-tdline  cl_abap_char_utilities=>newline INTO text.

 
APPEND INITIAL LINE TO p_t_xml_data
 
ASSIGNING <fs_xml>.
 
MOVE : '<Border ss:Position="Bottom" ss:Line="Continuous" ss:Weight="2"/>' TO  <fs_xml>-tdline.
 
CONCATENATE text <fs_xml>-tdline  cl_abap_char_utilities=>newline INTO text.

 
APPEND INITIAL LINE TO p_t_xml_data
 
ASSIGNING <fs_xml>.
 
MOVE : '  <Border ss:Position="Left" ss:LineStyle="Continuous" ss:Weight="2"/>' TO  <fs_xml>-tdline.
 
CONCATENATE text <fs_xml>-tdline  cl_abap_char_utilities=>newline INTO text.

 
APPEND INITIAL LINE TO p_t_xml_data
 
ASSIGNING <fs_xml>.
 
MOVE : ' <Border ss:Position="Right" ss:LineStyle="Continuous" ss:Weight="2"/>' TO  <fs_xml>-tdline.
 
CONCATENATE text <fs_xml>-tdline  cl_abap_char_utilities=>newline INTO text.

 
APPEND INITIAL LINE TO p_t_xml_data
 
ASSIGNING <fs_xml>.
 
MOVE : ' <Border ss:Position="Top" ss:LineStyle="Continuous" ss:Weight="2"/>' TO  <fs_xml>-tdline.
 
CONCATENATE text <fs_xml>-tdline  cl_abap_char_utilities=>newline INTO text.

 
APPEND INITIAL LINE TO p_t_xml_data
 
ASSIGNING <fs_xml>.
 
MOVE : ' </Borders>' TO  <fs_xml>-tdline.
 
CONCATENATE text <fs_xml>-tdline  cl_abap_char_utilities=>newline INTO text.

 
APPEND INITIAL LINE TO p_t_xml_data
 
ASSIGNING <fs_xml>.
 
MOVE : '<Font ss:FontName="Calibri" x:Family="Swiss" ss:Size="11" ss:Bold="1"/>' TO  <fs_xml>-tdline.
 
CONCATENATE text <fs_xml>-tdline  cl_abap_char_utilities=>newline INTO text.

 
APPEND INITIAL LINE TO p_t_xml_data
 
ASSIGNING <fs_xml>.
 
MOVE : ' <Interior ss:Color="#FFC000" ss:Pattern="Solid"/>' TO  <fs_xml>-tdline.
 
CONCATENATE text <fs_xml>-tdline  cl_abap_char_utilities=>newline INTO text.

 
APPEND INITIAL LINE TO p_t_xml_data
 
ASSIGNING <fs_xml>.
 
MOVE : '  </Style>' TO  <fs_xml>-tdline.
 
CONCATENATE text <fs_xml>-tdline  cl_abap_char_utilities=>newline INTO text.

 
APPEND INITIAL LINE TO p_t_xml_data
 
ASSIGNING <fs_xml>.
 
MOVE : '  <Style ss:ID="s23">' TO  <fs_xml>-tdline.
 
CONCATENATE text <fs_xml>-tdline  cl_abap_char_utilities=>newline INTO text.

 
APPEND INITIAL LINE TO p_t_xml_data
 
ASSIGNING <fs_xml>.
 
MOVE : '  <Borders>' TO  <fs_xml>-tdline.
 
CONCATENATE text <fs_xml>-tdline  cl_abap_char_utilities=>newline INTO text.

 
APPEND INITIAL LINE TO p_t_xml_data
 
ASSIGNING <fs_xml>.
 
MOVE : ' <Border ss:Position="Bottom" ss:LineStyle="Continuous" ss:Weight="2"/>' TO  <fs_xml>-tdline.
 
CONCATENATE text <fs_xml>-tdline  cl_abap_char_utilities=>newline INTO text.

 
APPEND INITIAL LINE TO p_t_xml_data
 
ASSIGNING <fs_xml>.
 
MOVE : '  <Border ss:Position="Top" ss:LineStyle="Continuous" ss:Weight="2"/>' TO  <fs_xml>-tdline.
 
CONCATENATE text <fs_xml>-tdline  cl_abap_char_utilities=>newline INTO text.

 
APPEND INITIAL LINE TO p_t_xml_data
 
ASSIGNING <fs_xml>.
 
MOVE : '  </Borders>' TO  <fs_xml>-tdline.
 
CONCATENATE text <fs_xml>-tdline  cl_abap_char_utilities=>newline INTO text.

 
APPEND INITIAL LINE TO p_t_xml_data
 
ASSIGNING <fs_xml>.
 
MOVE : '<Font ss:FontName="Calibri" x:Family="Swiss" ss:Size="11" ss:Bold="1"/>' TO  <fs_xml>-tdline.
 
CONCATENATE text <fs_xml>-tdline  cl_abap_char_utilities=>newline INTO text.

 
APPEND INITIAL LINE TO p_t_xml_data
 
ASSIGNING <fs_xml>.
 
MOVE : ' <Interior ss:Color="#FFC000" ss:Pattern="Solid"/>' TO  <fs_xml>-tdline.
 
CONCATENATE text <fs_xml>-tdline  cl_abap_char_utilities=>newline INTO text.

 
APPEND INITIAL LINE TO p_t_xml_data
 
ASSIGNING <fs_xml>.
 
MOVE : ' </Style>' TO  <fs_xml>-tdline.
 
CONCATENATE text <fs_xml>-tdline  cl_abap_char_utilities=>newline INTO text.

 
APPEND INITIAL LINE TO p_t_xml_data
 
ASSIGNING <fs_xml>.
 
MOVE : ' <Style ss:ID="s24">' TO  <fs_xml>-tdline.
 
CONCATENATE text <fs_xml>-tdline  cl_abap_char_utilities=>newline INTO text.

 
APPEND INITIAL LINE TO p_t_xml_data
 
ASSIGNING <fs_xml>.
 
MOVE : ' <Alignment ss:Horizontal="Right" ss:Vertical="Bottom"/>' TO  <fs_xml>-tdline.
 
CONCATENATE text <fs_xml>-tdline  cl_abap_char_utilities=>newline INTO text.

 
APPEND INITIAL LINE TO p_t_xml_data
 
ASSIGNING <fs_xml>.
 
MOVE : ' <Borders>' TO  <fs_xml>-tdline.
 
CONCATENATE text <fs_xml>-tdline  cl_abap_char_utilities=>newline INTO text.

 
APPEND INITIAL LINE TO p_t_xml_data
 
ASSIGNING <fs_xml>.
 
MOVE : '  <Border ss:Position="Left" ss:LineStyle="Continuous" ss:Weight="2"/>' TO  <fs_xml>-tdline.
 
CONCATENATE text <fs_xml>-tdline  cl_abap_char_utilities=>newline INTO text.

 
APPEND INITIAL LINE TO p_t_xml_data
 
ASSIGNING <fs_xml>.
 
MOVE : ' <Border ss:Position="Right" ss:LineStyle="Continuous" ss:Weight="2"/>' TO  <fs_xml>-tdline.
 
CONCATENATE text <fs_xml>-tdline  cl_abap_char_utilities=>newline INTO text.

 
APPEND INITIAL LINE TO p_t_xml_data
 
ASSIGNING <fs_xml>.
 
MOVE : ' </Borders>' TO  <fs_xml>-tdline.
 
CONCATENATE text <fs_xml>-tdline  cl_abap_char_utilities=>newline INTO text.

 
APPEND INITIAL LINE TO p_t_xml_data
 
ASSIGNING <fs_xml>.
 
MOVE : ' </Style>' TO  <fs_xml>-tdline.
 
CONCATENATE text <fs_xml>-tdline  cl_abap_char_utilities=>newline INTO text.

 
APPEND INITIAL LINE TO p_t_xml_data
 
ASSIGNING <fs_xml>.
 
MOVE : ' </Styles>' TO  <fs_xml>-tdline.
 
CONCATENATE text <fs_xml>-tdline  cl_abap_char_utilities=>newline INTO text.

  APPEND INITIAL LINE TO p_t_xml_data
 
ASSIGNING <fs_xml>.
 
MOVE : '<Worksheet ss:Name="Sheet1">' TO  <fs_xml>-tdline.
 
CONCATENATE text <fs_xml>-tdline  cl_abap_char_utilities=>newline INTO text.

 
APPEND INITIAL LINE TO p_t_xml_data
 
ASSIGNING <fs_xml>.
 
MOVE : '<Names>' TO  <fs_xml>-tdline.
 
CONCATENATE text <fs_xml>-tdline  cl_abap_char_utilities=>newline INTO text.

 
APPEND INITIAL LINE TO p_t_xml_data
 
ASSIGNING <fs_xml>.
 
MOVE : ' <NamedRange ss:Name="_FilterDatabase" ss:RefersTo="=Sheet1!R1C1:R1C6" ss:Hidden="1"/>' TO  <fs_xml>-tdline.
 
CONCATENATE text <fs_xml>-tdline  cl_abap_char_utilities=>newline INTO text.

 
APPEND INITIAL LINE TO p_t_xml_data
 
ASSIGNING <fs_xml>.
 
MOVE : '</Names>' TO  <fs_xml>-tdline.
 
CONCATENATE text <fs_xml>-tdline  cl_abap_char_utilities=>newline INTO text.

 
APPEND INITIAL LINE TO p_t_xml_data
 
ASSIGNING <fs_xml>.
 
MOVE : '<Table ss:ExpandedColumnCount="6"  x:FullColumns="1" x:FullRows="1" ss:DefaultRowHeight="15">' TO  <fs_xml>-tdline.
 
CONCATENATE text <fs_xml>-tdline  cl_abap_char_utilities=>newline INTO text.

 
APPEND INITIAL LINE TO p_t_xml_data
 
ASSIGNING <fs_xml>.
 
MOVE : '<Column ss:AutoFitWidth="0" ss:Width="54"/>' TO  <fs_xml>-tdline.
 
CONCATENATE text <fs_xml>-tdline  cl_abap_char_utilities=>newline INTO text.

 
APPEND INITIAL LINE TO p_t_xml_data
 
ASSIGNING <fs_xml>.
 
MOVE : '<Column ss:StyleID="s20" ss:AutoFitWidth="0" ss:Width="63.75"/>' TO  <fs_xml>-tdline.
 
CONCATENATE text <fs_xml>-tdline  cl_abap_char_utilities=>newline INTO text.

 
APPEND INITIAL LINE TO p_t_xml_data
 
ASSIGNING <fs_xml>.
 
MOVE : '<Column ss:AutoFitWidth="0" ss:Width="72"/>' TO  <fs_xml>-tdline.
 
CONCATENATE text <fs_xml>-tdline  cl_abap_char_utilities=>newline INTO text.

 
APPEND INITIAL LINE TO p_t_xml_data
 
ASSIGNING <fs_xml>.
 
MOVE : '<Column ss:StyleID="s20" ss:AutoFitWidth="0" ss:Width="69.75"/>' TO  <fs_xml>-tdline.
 
CONCATENATE text <fs_xml>-tdline  cl_abap_char_utilities=>newline INTO text.

 
APPEND INITIAL LINE TO p_t_xml_data
 
ASSIGNING <fs_xml>.
 
MOVE : '<Column ss:AutoFitWidth="0" ss:Width="61.5"/>' TO  <fs_xml>-tdline.
 
CONCATENATE text <fs_xml>-tdline  cl_abap_char_utilities=>newline INTO text.

 
APPEND INITIAL LINE TO p_t_xml_data
 
ASSIGNING <fs_xml>.
 
MOVE : '<Column ss:StyleID="s20" ss:AutoFitWidth="0" ss:Width="111"/>' TO  <fs_xml>-tdline.
 
CONCATENATE text <fs_xml>-tdline  cl_abap_char_utilities=>newline INTO text.

 
APPEND INITIAL LINE TO p_t_xml_data
 
ASSIGNING <fs_xml>.
 
MOVE : '<Row ss:Height="15.75">' TO  <fs_xml>-tdline.
 
CONCATENATE text <fs_xml>-tdline  cl_abap_char_utilities=>newline INTO text.

 
APPEND INITIAL LINE TO p_t_xml_data
 
ASSIGNING <fs_xml>.
 
MOVE : ' <Cell ss:StyleID="s21"><Data ss:Type="String">Sr No.</Data><NamedCell ss:Name="_FilterDatabase"/></Cell>' TO  <fs_xml>-tdline.
 
CONCATENATE text <fs_xml>-tdline  cl_abap_char_utilities=>newline INTO text.

 
APPEND INITIAL LINE TO p_t_xml_data
 
ASSIGNING <fs_xml>.
 
MOVE : ' <Cell ss:StyleID="s21"><Data ss:Type="String">carr id</Data><NamedCell ss:Name="_FilterDatabase"/></Cell>' TO  <fs_xml>-tdline.
 
CONCATENATE text <fs_xml>-tdline  cl_abap_char_utilities=>newline INTO text.

 
APPEND INITIAL LINE TO p_t_xml_data
 
ASSIGNING <fs_xml>.
 
MOVE : ' <Cell ss:StyleID="s21"><Data ss:Type="String">conn id</Data><NamedCell ss:Name="_FilterDatabase"/></Cell>' TO  <fs_xml>-tdline.
 
CONCATENATE text <fs_xml>-tdline  cl_abap_char_utilities=>newline INTO text.

 
APPEND INITIAL LINE TO p_t_xml_data
 
ASSIGNING <fs_xml>.
 
MOVE : '<Cell ss:StyleID="s21"><Data ss:Type="String">fldate</Data><NamedCell ss:Name="_FilterDatabase"/></Cell>' TO  <fs_xml>-tdline.
 
CONCATENATE text <fs_xml>-tdline  cl_abap_char_utilities=>newline INTO text.

 
APPEND INITIAL LINE TO p_t_xml_data
 
ASSIGNING <fs_xml>.
 
MOVE : '<Cell ss:StyleID="s21"><Data ss:Type="String">currency</Data><NamedCell ss:Name="_FilterDatabase"/></Cell>' TO  <fs_xml>-tdline.
 
CONCATENATE text <fs_xml>-tdline  cl_abap_char_utilities=>newline INTO text.

 
APPEND INITIAL LINE TO p_t_xml_data
 
ASSIGNING <fs_xml>.
 
MOVE : '<Cell ss:StyleID="s21"><Data ss:Type="String">plane type</Data><NamedCell ss:Name="_FilterDatabase"/></Cell>' TO  <fs_xml>-tdline.
 
CONCATENATE text <fs_xml>-tdline  cl_abap_char_utilities=>newline INTO text.


 
APPEND INITIAL LINE TO p_t_xml_data
 
ASSIGNING <fs_xml>.
 
MOVE : '</Row>' TO  <fs_xml>-tdline.
 
CONCATENATE text <fs_xml>-tdline  cl_abap_char_utilities=>newline INTO text.
**************************************************************************
 
LOOP AT lt_sflight INTO ls_sflight.

*Start Of Master Bath Data
******************* Area ****************************************

   
APPEND INITIAL LINE TO p_t_xml_data
   
ASSIGNING <fs_xml>.
   
MOVE : '<Row>' TO  <fs_xml>-tdline.
   
CONCATENATE text <fs_xml>-tdline  cl_abap_char_utilities=>newline INTO text .


   
APPEND INITIAL LINE TO p_t_xml_data
   
ASSIGNING <fs_xml>.
   
CONCATENATE '<Cell ss:StyleID="s17"><Data ss:Type="String">' lv_sno '</Data></Cell>' INTO  <fs_xml>-tdline.
   
CONCATENATE text <fs_xml>-tdline  cl_abap_char_utilities=>newline INTO text .


   
APPEND INITIAL LINE TO p_t_xml_data
   
ASSIGNING <fs_xml>.
   
CONCATENATE '<Cell ss:StyleID="s18"><Data ss:Type="String">' ls_sflight-carrid '</Data></Cell>' INTO  <fs_xml>-tdline.
   
CONCATENATE text <fs_xml>-tdline  cl_abap_char_utilities=>newline INTO text .

   
APPEND INITIAL LINE TO p_t_xml_data
   
ASSIGNING <fs_xml>.
   
CONCATENATE '<Cell ss:StyleID="s17"><Data ss:Type="String">' ls_sflight-connid '</Data></Cell>' INTO  <fs_xml>-tdline.
   
CONCATENATE text <fs_xml>-tdline  cl_abap_char_utilities=>newline INTO text .

   
APPEND INITIAL LINE TO p_t_xml_data
   
ASSIGNING <fs_xml>.
   
CONCATENATE '<Cell ss:StyleID="s18"><Data ss:Type="String">' ls_sflight-fldate '</Data></Cell>' INTO  <fs_xml>-tdline.
   
CONCATENATE text <fs_xml>-tdline  cl_abap_char_utilities=>newline INTO text .

   
APPEND INITIAL LINE TO p_t_xml_data
   
ASSIGNING <fs_xml>.
   
CONCATENATE '<Cell ss:StyleID="s17"><Data ss:Type="String">' ls_sflight-currency '</Data></Cell>' INTO  <fs_xml>-tdline.
   
CONCATENATE text <fs_xml>-tdline  cl_abap_char_utilities=>newline INTO text .

   
APPEND INITIAL LINE TO p_t_xml_data
   
ASSIGNING <fs_xml>.
   
CONCATENATE '<Cell ss:StyleID="s18"><Data ss:Type="String">' ls_sflight-planetype '</Data></Cell>' INTO  <fs_xml>-tdline.
   
CONCATENATE text <fs_xml>-tdline  cl_abap_char_utilities=>newline INTO text .

   
APPEND INITIAL LINE TO p_t_xml_data
   
ASSIGNING <fs_xml>.
   
MOVE : '</Row>' TO  <fs_xml>-tdline.
   
CONCATENATE text <fs_xml>-tdline  cl_abap_char_utilities=>newline INTO text.*********************************************************Filling linedata XML data
   
APPEND INITIAL LINE TO p_t_xml_data
   
ASSIGNING <fs_xml>.
   
MOVE : '<Row>' TO  <fs_xml>-tdline.
   
CONCATENATE text <fs_xml>-tdline  cl_abap_char_utilities=>newline INTO text.

   
APPEND INITIAL LINE TO p_t_xml_data
   
ASSIGNING <fs_xml>.
   
MOVE : '<Cell ss:Index="3" ss:StyleID="s16"><Data ss:Type="String">connid</Data></Cell>' TO  <fs_xml>-tdline.
   
CONCATENATE text <fs_xml>-tdline  cl_abap_char_utilities=>newline INTO text.

   
APPEND INITIAL LINE TO p_t_xml_data
   
ASSIGNING <fs_xml>.
   
MOVE : '<Cell ss:StyleID="s19"><Data ss:Type="String">carrid</Data></Cell>' TO  <fs_xml>-tdline.
   
CONCATENATE text <fs_xml>-tdline  cl_abap_char_utilities=>newline INTO text.

   
APPEND INITIAL LINE TO p_t_xml_data
   
ASSIGNING <fs_xml>.
   
MOVE : ' <Cell ss:StyleID="s16"><Data ss:Type="String">bookid</Data></Cell>' TO  <fs_xml>-tdline.
   
CONCATENATE text <fs_xml>-tdline  cl_abap_char_utilities=>newline INTO text.


   
APPEND INITIAL LINE TO p_t_xml_data
   
ASSIGNING <fs_xml>.
   
MOVE : '<Cell ss:StyleID="s19"><Data ss:Type="String">custid</Data></Cell>' TO  <fs_xml>-tdline.
   
CONCATENATE text <fs_xml>-tdline  cl_abap_char_utilities=>newline INTO text.


   
APPEND INITIAL LINE TO p_t_xml_data
   
ASSIGNING <fs_xml>.
   
MOVE : '</Row>' TO  <fs_xml>-tdline.
   
CONCATENATE text <fs_xml>-tdline  cl_abap_char_utilities=>newline INTO text.**************************************************************************************

    lo_el_sflight = lo_nd_sflight->get_element(
index = lv_parent_index ).

    lo_nd_sflight->get_static_attributes(
       
IMPORTING
          static_attributes = ls_sflight ).


   
LOOP AT lt_sbook INTO ls_sbook .

     
APPEND INITIAL LINE TO p_t_xml_data
     
ASSIGNING <fs_xml>.
     
MOVE : '<Row>' TO  <fs_xml>-tdline.
     
CONCATENATE text <fs_xml>-tdline  cl_abap_char_utilities=>newline INTO text.

     
APPEND INITIAL LINE TO p_t_xml_data
     
ASSIGNING <fs_xml>.
     
CONCATENATE '<Cell ss:Index="3"><Data ss:Type="String">' ls_sbook-connid '</Data></Cell>' INTO  <fs_xml>-tdline.
     
CONCATENATE text <fs_xml>-tdline  cl_abap_char_utilities=>newline INTO text .

     
APPEND INITIAL LINE TO p_t_xml_data
     
ASSIGNING <fs_xml>.
     
CONCATENATE '<Cell ><Data ss:Type="String">' ls_sbook-carrid '</Data></Cell>' INTO  <fs_xml>-tdline.
     
CONCATENATE text <fs_xml>-tdline  cl_abap_char_utilities=>newline INTO text .
      .
     
APPEND INITIAL LINE TO p_t_xml_data
     
ASSIGNING <fs_xml>.
     
CONCATENATE '<Cell ><Data ss:Type="String">' ls_sbook- fldate '</Data></Cell>' INTO  <fs_xml>-tdline.
     
CONCATENATE text <fs_xml>-tdline  cl_abap_char_utilities=>newline INTO text .

     
APPEND INITIAL LINE TO p_t_xml_data
     
ASSIGNING <fs_xml>.
     
CONCATENATE '<Cell ><Data ss:Type="String">' ls_sbook-customid '</Data></Cell>' INTO  <fs_xml>-tdline.
     
CONCATENATE text <fs_xml>-tdline  cl_abap_char_utilities=>newline INTO text .

     
APPEND INITIAL LINE TO p_t_xml_data
     
ASSIGNING <fs_xml>.
     
MOVE : '</Row>' TO  <fs_xml>-tdline.
     
CONCATENATE text <fs_xml>-tdline  cl_abap_char_utilities=>newline INTO text.
   
ENDLOOP.**************************************************************************************
    lv_sno = lv_sno +
1.
 
ENDLOOP.

 
APPEND INITIAL LINE TO p_t_xml_data
 
ASSIGNING <fs_xml>.
 
MOVE : '</Table>' TO  <fs_xml>-tdline.
 
CONCATENATE text <fs_xml>-tdline  cl_abap_char_utilities=>newline INTO text.

 
APPEND INITIAL LINE TO p_t_xml_data
 
ASSIGNING <fs_xml>.
 
MOVE : ' <WorksheetOptions xmlns="urn:schemas-microsoft-com:office:excel">' TO  <fs_xml>-tdline.
 
CONCATENATE text <fs_xml>-tdline  cl_abap_char_utilities=>newline INTO text.

 
APPEND INITIAL LINE TO p_t_xml_data
 
ASSIGNING <fs_xml>.
 
MOVE : ' <PageSetup>' TO  <fs_xml>-tdline.
 
CONCATENATE text <fs_xml>-tdline  cl_abap_char_utilities=>newline INTO text.

 
APPEND INITIAL LINE TO p_t_xml_data
 
ASSIGNING <fs_xml>.
 
MOVE : ' <Header x:Margin="0.3"/>' TO  <fs_xml>-tdline.
 
CONCATENATE text <fs_xml>-tdline  cl_abap_char_utilities=>newline INTO text.

 
APPEND INITIAL LINE TO p_t_xml_data
 
ASSIGNING <fs_xml>.
 
MOVE : ' <Footer x:Margin="0.3"/>' TO  <fs_xml>-tdline.
 
CONCATENATE text <fs_xml>-tdline  cl_abap_char_utilities=>newline INTO text.

 
APPEND INITIAL LINE TO p_t_xml_data
 
ASSIGNING <fs_xml>.
 
MOVE : ' <PageMargins x:Bottom="0.75" x:Left="0.7" x:Right="0.7" x:Top="0.75"/>' TO  <fs_xml>-tdline.
 
CONCATENATE text <fs_xml>-tdline  cl_abap_char_utilities=>newline INTO text.

 
APPEND INITIAL LINE TO p_t_xml_data
 
ASSIGNING <fs_xml>.
 
MOVE : ' </PageSetup> ' TO  <fs_xml>-tdline.
 
CONCATENATE text <fs_xml>-tdline  cl_abap_char_utilities=>newline INTO text.

 
APPEND INITIAL LINE TO p_t_xml_data
 
ASSIGNING <fs_xml>.
 
MOVE : ' <Print>' TO  <fs_xml>-tdline.
 
CONCATENATE text <fs_xml>-tdline  cl_abap_char_utilities=>newline INTO text.

 
APPEND INITIAL LINE TO p_t_xml_data
 
ASSIGNING <fs_xml>.
 
MOVE : ' <ValidPrinterInfo/> ' TO  <fs_xml>-tdline.
 
CONCATENATE text <fs_xml>-tdline  cl_abap_char_utilities=>newline INTO text.

 
APPEND INITIAL LINE TO p_t_xml_data
 
ASSIGNING <fs_xml>.
 
MOVE : ' <HorizontalResolution>600</HorizontalResolution> ' TO  <fs_xml>-tdline.
 
CONCATENATE text <fs_xml>-tdline  cl_abap_char_utilities=>newline INTO text.

 
APPEND INITIAL LINE TO p_t_xml_data
 
ASSIGNING <fs_xml>.
 
MOVE : ' <VerticalResolution>600</VerticalResolution> ' TO  <fs_xml>-tdline.
 
CONCATENATE text <fs_xml>-tdline  cl_abap_char_utilities=>newline INTO text.

 
APPEND INITIAL LINE TO p_t_xml_data
 
ASSIGNING <fs_xml>.
 
MOVE : ' </Print> ' TO  <fs_xml>-tdline.
 
CONCATENATE text <fs_xml>-tdline  cl_abap_char_utilities=>newline INTO text.

 
APPEND INITIAL LINE TO p_t_xml_data
 
ASSIGNING <fs_xml>.
 
MOVE : ' <Selected/>' TO  <fs_xml>-tdline.
 
CONCATENATE text <fs_xml>-tdline  cl_abap_char_utilities=>newline INTO text.

 
APPEND INITIAL LINE TO p_t_xml_data
 
ASSIGNING <fs_xml>.
 
MOVE : ' <ProtectObjects>False</ProtectObjects>' TO  <fs_xml>-tdline.
 
CONCATENATE text <fs_xml>-tdline  cl_abap_char_utilities=>newline INTO text.

 
APPEND INITIAL LINE TO p_t_xml_data
 
ASSIGNING <fs_xml>.
 
MOVE : ' <ProtectScenarios>False</ProtectScenarios>' TO  <fs_xml>-tdline.
 
CONCATENATE text <fs_xml>-tdline  cl_abap_char_utilities=>newline INTO text.

 
APPEND INITIAL LINE TO p_t_xml_data
 
ASSIGNING <fs_xml>.
 
MOVE : '  </WorksheetOptions>' TO  <fs_xml>-tdline.
 
CONCATENATE text <fs_xml>-tdline  cl_abap_char_utilities=>newline INTO text.

 
APPEND INITIAL LINE TO p_t_xml_data
 
ASSIGNING <fs_xml>.
 
MOVE : '<AutoFilter x:Range="R1C1:R1C6" xmlns="urn:schemas-microsoft-com:office:excel">' TO  <fs_xml>-tdline.
 
CONCATENATE text <fs_xml>-tdline  cl_abap_char_utilities=>newline INTO text.

 
APPEND INITIAL LINE TO p_t_xml_data
 
ASSIGNING <fs_xml>.
 
MOVE : '</AutoFilter>' TO  <fs_xml>-tdline.
 
CONCATENATE text <fs_xml>-tdline  cl_abap_char_utilities=>newline INTO text.

 
APPEND INITIAL LINE TO p_t_xml_data
 
ASSIGNING <fs_xml>.
 
MOVE : ' </Worksheet>' TO  <fs_xml>-tdline.
 
CONCATENATE text <fs_xml>-tdline  cl_abap_char_utilities=>newline INTO text.

 
APPEND INITIAL LINE TO p_t_xml_data
 
ASSIGNING <fs_xml>.
 
MOVE : ' </Workbook>' TO  <fs_xml>-tdline.
 
CONCATENATE text <fs_xml>-tdline  cl_abap_char_utilities=>newline INTO text.
*************************************************************************************** Func module to dispaly data in EXcel sheet
 
CALL FUNCTION 'SCMS_STRING_TO_XSTRING'
   
EXPORTING
     
text   = text
   
IMPORTING
     
buffer = xtext.

 
DATA: filename TYPE string ,
        str1
TYPE string VALUE 'flight-' ,
        flight_number
TYPE c LENGTH 10,
        lv_estimation
TYPE c.

 
CALL FUNCTION 'CONVERSION_EXIT_ALPHA_OUTPUT'
   
EXPORTING
     
input  = lv_estimation
   
IMPORTING
     
output = flight_number.

 
CONCATENATE str1 flight_number '.xls' INTO filename .

  wdr_task=>client_window->client->attach_file_to_response(***path to the excel file
    i_filename = filename** String Variable
    i_content =  xtext** File Type
    i_mime_type =
'EXCEL' ).
ENDMETHOD.

Tool & Technology: Webdynpro ABAP, XML mapping

Output

When user clicks Get Flights button, flight info gets displayed.

When user clicks "Export to Excel" button, data is downloaded to Cell Formatted Excel Sheet ( with  colours,borders,filters,etc).

12 Comments
Labels in this area