Download Webdynpro table data in Cell formatted Excel Sheet (WebDynpro for ABAP)

...Previous  

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)..

Click here for the excel sheet format

27.  Save the Excel file as XML data

28.  XML data mapped Excel file is in this format (click here)  

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.

i)              Method_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(3TYPE 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.

Click here to continue...

 

Please send us your feedback/suggestions at webmaster@SAPTechnical.COM 

HomeContribute About Us Privacy Terms Of Use • Disclaimer • SafeCompanies: Advertise on SAPTechnical.COM | Post JobContact Us  

Graphic Design by Round the Bend Wizards

footer image footer image