BSP application to download the table contents into excel sheet

Scenario: Download the table contents into excel sheet with the button click can be achieved by using class CL_BSP_UTILITY àdownload.

Step1: Go to SE80 transaction select BSP application and provide the name of application.

Step2: Give the short description of application and assign package to application.

Step3: Right-click on application and create a page.

Step4: Provide the name and description of page.

Step5: CODE

Layout code:

<%@page language="abap" %>
<%@extension name="htmlb" prefix="htmlb" %>
content design="design2003" >
title="First Page " >
<table width="100%" height="100%" border="0">
form>
<tr>
<td bgcolor = "#FFFFFF" >
<center>

<%
if fl_flag = 1.
%>
id = "flight"
table = "<%= t_flight %>"
width = "50%"
onRowSelection = "rowSelection"
design = "standard"
tableLayout = "AUTO"
footerVisible = "false" >
"CARRID"
title = "Carrier Id" >

"CONNID"
title = "Connection ID" >

"FLDATE"
title = "Flight Date" >

"PLANETYPE"
title = "Plane Type" >


<br><center>
button id = "submit"
text = "Download"
onClick = "test"
width = "20%"/>
<%endif.%>
center>

td>tr>

form>
table>

content>

OnCreate Code:

select carrid connid fldate planetype from sflight into table t_flight
up to 10 rows.
if sy-subrc eq 0.
fl_flag = 1.
endif.

OnInPutProcessing Code:

* event handler for checking and processing user input and
* for defining navigation

DATA: button_event TYPE REF TO cl_htmlb_event_button ,
event TYPE REF TO if_htmlb_data.

DATA: ls_flight LIKE LINE OF t_flight.

DATA:
output TYPE string ,
l_xstring TYPE xstring,
app_type TYPE string.

event = cl_htmlb_manager=>get_event( request ).

IF event IS NOT INITIAL AND event->event_name =
htmlb_eventS=>BUTTON .

button_event ?= event .

CASE event->event_server_name.

WHEN 'test' .

IF t_flight IS NOT INITIAL.

LOOP AT t_flight INTO ls_flight.
CONCATENATE
output
ls_flight-carrid
cl_abap_char_utilities=>horizontal_tab
ls_flight-connid
cl_abap_char_utilities=>horizontal_tab
ls_flight-fldate
cl_abap_char_utilities=>horizontal_tab
ls_flight-planetype
cl_abap_char_utilities=>cr_lf

INTO output SEPARATED BY space.
ENDLOOP.

app_type = 'APPLICATION/MSEXCEL;charset=utf-16le'.

CALL FUNCTION 'SCMS_STRING_TO_XSTRING'
EXPORTING
text = output
mimetype = 'APPLICATION/MSEXCEL;charset=utf-16le'
IMPORTING
buffer = l_xstring.

CONCATENATE
cl_abap_char_utilities=>byte_order_mark_little
l_xstring INTO l_xstring
IN BYTE MODE.
CALL METHOD cl_bsp_utility=>download
EXPORTING
object_s = l_xstring
content_type = app_type
content_disposition ='attachment;filename=FlightDetails.xls
response = _m_response
navigation = navigation.

ENDIF.
ENDCASE.
ENDIF.

Page Attributes:

fl_flag	       TYPE	I	                                                          

fs_flight1    TYPE	TYPE_S_FLIGHT	                                                          

t_flight	       TYPE	FS_FLIGHT	                                                          

w_carrid     TYPE	SFLIGHT-CARRID	



w_input      TYPE	STRING	         

Types Definition:

types:
begin of type_s_flight,
carrid type sflight-carrid,
connid type sflight-connid,
fldate type sflight-fldate,
planetype type sflight-planetype,
end of type_s_flight,
fs_flight type standard table of type_s_flight.

OUTPUT:

Step6: Layout is as follows with the flight details and user has option to download the table details with the button click.

Click on download button, Pop up appears asking to open or to save a file.

Popup appears for location of file and name of file.

Excel sheet is stored as flight details as follows: