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

...Previous

  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 word file
    i_filename = filename
** String Variable
    i_content =  xtext
** File Type
    i_mime_type = 
'EXCEL' ).

ENDMETHOD.

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