Download to excell

Question

Hi All,
         I'm downloading o/p into excell file...
but for excell download i need to add header information how to add those....
my code as below..
METHOD onactiondownload .
  DATA lo_nd_it_prod_req_list_item TYPE REF TO if_wd_context_node.
  DATA lo_el_it_prod_req_list_item TYPE REF TO if_wd_context_element.
  DATA itab TYPE wd_this->elements_n_prod_req_list_item.
  DATA wa TYPE wd_this->element_n_prod_req_list_item.
  DATA : text TYPE string.
  DATA xtext  TYPE xstring.
navigate from <CONTEXT> to <SFLIGHT> via lead selection
  lo_nd_it_prod_req_list_item = wd_context->get_child_node( name = wd_this->wdctx_n_prod_req_list_item ).
get all declared attributes
  lo_nd_it_prod_req_list_item->get_static_attributes_table(
    IMPORTING
      table = itab ).
  TYPES : BEGIN OF ty_tab ,
            reqno       TYPE zmatreq-reqno,
            zitem       TYPE zmatreq-zitem,
            zreqtype    TYPE zmatreq-zreqtype,
            maktx       TYPE zmatreq-maktx,
            meins       TYPE zmatreq-meins,
            matkl       TYPE zmatreq-matkl,
            zbrand      TYPE zmatreq-zbrand,
            zvers       TYPE zmatreq-zvers,
            a_material  TYPE zmatreq-matnr,
            a_price     TYPE string,
            waers       TYPE zmatreq-waers,
            zmenge      TYPE string,
            name1       TYPE string,
            bill        TYPE string,
            zstatus     TYPE zmatreq-zstatus,
            lead_time   TYPE zmatreq-lead_time,
         END OF ty_tab.
     itab1 like TABLE OF itab.
  DATA : itab1 TYPE  TABLE OF ty_tab.
  DATA : wa_tab TYPE ty_tab.
  LOOP AT itab INTO wa.
  move wa-reqno to wa_tab-reqno.
    wa_tab-reqno    = wa-reqno.
    wa_tab-zitem    = wa-zitem.
    wa_tab-zreqtype = wa-zreqtype.
    wa_tab-maktx    = wa-maktx.
    wa_tab-meins    = wa-meins.
    wa_tab-matkl    = wa-matkl.
    wa_tab-zbrand   = wa-zbrand.
    wa_tab-zvers    = wa-zvers.
    wa_tab-a_material = wa-a_material.
    wa_tab-a_price    = wa-a_price.
    wa_tab-waers      = wa-waers.
    wa_tab-zmenge     = wa-zmenge.
    wa_tab-name1      = wa-name1.
    wa_tab-bill       = wa-bill.
    wa_tab-zstatus    = wa-zstatus.
    wa_tab-lead_time  = wa-lead_time.
    APPEND wa_tab TO itab1.
    CLEAR wa_tab.
  ENDLOOP.
  LOOP AT itab1 INTO wa_tab.
    CONCATENATE text
                wa_tab-reqno
                wa_tab-zitem
                wa_tab-zreqtype
                wa_tab-a_material
                wa_tab-maktx
                wa_tab-meins
                wa_tab-zmenge
                wa_tab-a_price
                wa_tab-waers
                wa_tab-matkl
                wa_tab-zbrand
                wa_tab-zvers
                wa_tab-name1
                wa_tab-bill
                wa_tab-lead_time
                wa_tab-zstatus
                cl_abap_char_utilities=>newline INTO text SEPARATED BY
                cl_abap_char_utilities=>horizontal_tab.
*append text.
  ENDLOOP.
  CALL FUNCTION 'SCMS_STRING_TO_XSTRING'
    EXPORTING
      text   = text
    IMPORTING
      buffer = xtext.
  wdr_task=>client_window->client->attach_file_to_response(
**path to the word file
  i_filename = 'Pre_Purchase_Query.XLS'
String Variable
  i_content =  xtext
File Type
  i_mime_type = 'EXCEL' ).
ENDMETHOD.
regards
Suprith

Answer 1

Hi Suprith,
    Here is a complete working sample code for downloading from WD table(context) to excel.
method ATTACH_FILES .
  data: xml_out TYPE string.
  data: string_out type string.
  data: line type string.
  data: line2 type string.
  data: conv_out type ref to cl_abap_conv_out_ce.
  data: content1 type xstring.
    data: begin of break,
              mandt type mandt,
              linekey type char_02,
              linebreak type ZLINEBREAK,
        end of break.
    DATA lo_nd_node_data TYPE REF TO if_wd_context_node.
    DATA lo_el_node_data TYPE REF TO if_wd_context_element.
    DATA ls_node_data TYPE wd_this->element_node_data.
    DATA export_line type wd_this->element_node_data.
    DATA export_tab like STANDARD TABLE OF export_line.
    lo_nd_node_data = wd_context->get_child_node( name = wd_this->wdctx_node_data ).
   select SINGLE * from ZCH_LINEBREAK into break
              where linekey = '01'.
#### This is where you add the header####
  CONCATENATE 'Submission ID'
               'Function'
               'FPO Type'
               'FPO Value'
               'Business Code'
               'Due Date'
               'Bridger'
               'Submitter'
               'Approver'
               'Recharger'
               'Actuals Manager'
               'Local Analyst'
               'Submitter'
             into line SEPARATED BY ','.
  CONCATENATE line break-linebreak into string_out.
*   alternative access  via index
  do.
   lo_el_node_data = lo_nd_node_data->get_element( index = sy-index ).
*   @TODO handle non existant child
    IF lo_el_node_data IS INITIAL.
      exit.
    ELSE.
*   get all declared attributes
    lo_el_node_data->get_static_attributes(
      IMPORTING
        static_attributes = ls_node_data ).
    export_line = ls_node_data .
*    append export_line to export_tab.
    replace: ALL OCCURRENCES OF ',' in export_line-submission_id with space,
             ALL OCCURRENCES OF ',' in   export_line-fnc_desc with space,
             ALL OCCURRENCES OF ',' in   export_line-fpo_type with space,
             ALL OCCURRENCES OF ',' in   export_line-fpo_value with space,
             ALL OCCURRENCES OF ',' in   export_line-bu_code with space,
             ALL OCCURRENCES OF ',' in   export_line-zdue_date with space,
             ALL OCCURRENCES OF ',' in   export_line-bridger_text with space,
             ALL OCCURRENCES OF ',' in   export_line-submitter_text with space,
             ALL OCCURRENCES OF ',' in   export_line-approver_text with space,
             ALL OCCURRENCES OF ',' in   export_line-recharger_text with space,
*             " Added - Multipule Template assigment D.Wong 03/12/08
*             ALL OCCURRENCES OF ',' in   export_line-ztext with space,
*             " End - Multipule Template assigment D.Wong 03/12/08
             ALL OCCURRENCES OF ',' in   export_line-actuals_manager_text with space,
*             ALL OCCURRENCES OF ',' in   export_line-zassigned_to_text with space,
             ALL OCCURRENCES OF ',' in   export_line-local_analyst_text with space.
    CONCATENATE
                export_line-submission_id
                export_line-fnc_desc
                export_line-fpo_type
                export_line-fpo_value
                export_line-bu_code
                export_line-zdue_date
                export_line-bridger_text
                export_line-submitter_text
                export_line-approver_text
                export_line-recharger_text
                export_line-local_analyst_text into line SEPARATED BY ','.
    CONCATENATE string_out line break-linebreak into string_out.
    ENDIF.
  enddo.
*  call transformation ('ID') source tab = export_tab result xml xml_out.
  conv_out = cl_abap_conv_out_ce=>create( encoding = 'UTF-8' ).
  CALL FUNCTION 'SCMS_STRING_TO_XSTRING'
  EXPORTING
  text = string_out
* MIMETYPE = ' '
* ENCODING =
  IMPORTING
  BUFFER = content1
* EXCEPTIONS
* FAILED = 1
* OTHERS = 2
* attach the first file
    conv_out->convert( exporting data = content1 ).
    cl_wd_runtime_services=>attach_file_to_response(
    i_filename  = 'file1.csv'
    i_content   = content1
    i_mime_type = 'application/msexcel'
    i_in_new_window = i_in_new_window
    i_inplace       = i_inplace ).
endmethod.
Please appreciate if helpful.