Open all | Close all
|
Org selection bsp - initial page to display input fields and retrieve user input
*initial.htm
Type Definitions
----------------
TYPES: begin of t_favourites,
tcode type tstc-tcode,
PGMNA type tstc-PGMNA,
ttext type TSTCT-ttext,
end of t_favourites.
types: tt_favourites type standard table of t_favourites,
tw_favourites type t_favourites.
Page Attributes
---------------
it_favourites TYPE TT_FAVOURITES (Auto selected)
wa_favourites TYPE TW_FAVOURITES
On create
---------
data: a_name type string value 'NONE',
a_name_space type string value 'NONE',
u_name type string value 'NONE',
session_id type string value 'NONE'.
CL_BSP_SERVER_SIDE_COOKIE=>GET_SERVER_COOKIE(
EXPORTING
NAME = 'NET200'
APPLICATION_NAME = a_name
APPLICATION_NAMESPACE = a_name_space
USERNAME = u_name
SESSION_ID = session_id
DATA_NAME = 'COOKIE_ID_43CASE2'
* IMPORTING
* EXPIRY_DATE =
* EXPIRY_TIME =
CHANGING
DATA_VALUE = it_favourites ).
OnInputProcessing
-----------------
CLASS CL_HTMLB_MANAGER DEFINITION LOAD.
case event_id.
when 'LOOKUP1'.
navigation->set_parameter( name = 'line1a' ).
navigation->set_parameter( name = 'line1b' ).
* gt_event = 1.
navigation->set_parameter( name = 'gt_event'
value = '1').
navigation->goto_page( 'DISPLAY.HTM' ).
when 'LOOKUP2'.
navigation->set_parameter( name = 'line2a' ).
navigation->set_parameter( name = 'line2b' ).
* gt_event = 2.
navigation->set_parameter( name = 'gt_event'
value = '2').
navigation->goto_page( 'DISPLAY.HTM' ).
when CL_HTMLB_MANAGER=>EVENT_ID.
DATA: event TYPE REF TO if_htmlb_data,
selrow TYPE REF TO CL_HTMLB_TABLEVIEW.
event = cl_htmlb_manager=>get_event_ex( request ).
selrow ?= cl_htmlb_manager=>get_data( request = request
name = 'tableView'
id = 'tv1' ).
DATA: tv_data TYPE REF TO CL_HTMLB_EVENT_TABLEVIEW.
tv_data = selrow->data.
IF event IS NOT INITIAL
AND event->event_name = 'tableView'.
read table it_favourites into wa_favourites index
tv_data->ROWSELECTION.
navigation->set_parameter( name = 'gt_tcode'
value = wa_favourites-tcode ).
navigation->goto_page( 'EXECUTE.HTM' ).
ENDIF.
when 'OTHERS'.
ENDCASE.
Layout
------
<%@page language="abap"%>
<%@extension name="htmlb" prefix="htmlb"%>
<html>
<head>
<link rel="stylesheet" href="../../sap/public/bc/bsp/styles/sapbsp.css">
<title> Intial page of BSP application </title>
</head>
<body class="bspBody1">
<h1><img src="sap_logo.gif"> Transaction Lookup Facility</h1>
<form>
<table width="80%" cellspacing="0" cellpadding="0" border="0">
<!-- Search by t code -->
<tr>
<td>
Search by Code:
</td><td>
<input type="text"
name="line1a"
size="10">
</td>
</tr>
<!-- Search by program name -->
<tr>
<td>
Search by Program name:
</td><td>
<input type="text"
name="line2a"
size="10"></td>
</tr>
</table>
<!------------------------------------------------------>
<!-- Submit Buttons -->
<!------------------------------------------------------>
<input type="hidden"
name="gt_event"
value=" ">
<input type="submit"
name="OnInputProcessing(LOOKUP1)"
value="Tcode"></td>
<input type="submit"
name="OnInputProcessing(LOOKUP2)"
value="Program"></td>
</form>
</body>
</html>
<htmlb:content design="design2003">
<htmlb:page title = " ">
<htmlb:form>
<htmlb:textView text = "Favourites"
design = "EMPHASIZED" />
<htmlb:tableView id = "tv1"
visibleRowCount = "100"
selectionMode = "lineEdit"
table = "<%= it_favourites %>"
columnWidth = "30" />
</htmlb:form>
</htmlb:page>
</htmlb:content>
|
|
|