Re: problem with print

Former Member — Mon, 04 Sep 2006 08:08:52 GMT

Please check the following code it may help u,

program bcalv_grid_05.

*&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&

Purpose:
~~~~~~~~
Demonstrate the creation of an own toolbar button.

*----

To check program behavior
~~~~~~~~~~~~~~~~~~~~~~~~~
The report shows a list of flights of one airline.
Select one or more lines and press the 'Detail'-Button to popup
a dialog window with related bookings.

*----

Essential steps (Search for '§')
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
1.Apply steps for event handling for events TOOLBAR and
USER_COMMAND (see example for print events)
2.In event handler method for event TOOLBAR: Append own functions
by using event parameter E_OBJECT.
3.In event handler method for event USER_COMMAND: Query your
function codes defined in step 2 and react accordingly.
4.Call method 'set_toolbar_interactive' to raise event TOOLBAR.

*&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&

include .

*********

Predefine a local class for event handling to allow the
declaration of a reference variable before the class is defined.

class lcl_event_receiver definition deferred.

*********

data: ok_code like sy-ucomm,

gt_sflight type table of sflight,

gt_sbook type table of sbook,

g_repid like sy-repid,

g_max type i value 100,

gs_layout type lvc_s_layo,

cont_on_main type scrfname value 'BCALVC_TOOLBAR_D100_C1',

cont_on_dialog type scrfname value 'BCALVC_TOOLBAR_D101_C1',

grid1 type ref to cl_gui_alv_grid,

grid2 type ref to cl_gui_alv_grid,

custom_container1 type ref to cl_gui_custom_container,

custom_container2 type ref to cl_gui_custom_container,

event_receiver type ref to lcl_event_receiver.

Set initial dynpro

set screen 100.

****************************************************************

LOCAL CLASSES: Definition

****************************************************************

*===============================================================

class lcl_event_receiver: local class to
define and handle own functions.

Definition:
~~~~~~~~~~~

class lcl_event_receiver definition.

public section.

methods:

handle_toolbar

for event toolbar of cl_gui_alv_grid

importing e_object e_interactive,

handle_user_command

for event user_command of cl_gui_alv_grid

importing e_ucomm.

private section.

endclass.

lcl_event_receiver (Definition)

*===============================================================

****************************************************************

LOCAL CLASSES: Implementation

****************************************************************

*===============================================================

class lcl_event_receiver (Implementation)

class lcl_event_receiver implementation.

method handle_toolbar.

§ 2.In event handler method for event TOOLBAR: Append own functions
by using event parameter E_OBJECT.

data: ls_toolbar type stb_button.

*....................................................................

E_OBJECT of event TOOLBAR is of type REF TO CL_ALV_EVENT_TOOLBAR_SET.
This class has got one attribute, namly MT_TOOLBAR, which
is a table of type TTB_BUTTON. One line of this table is
defined by the Structure STB_BUTTON (see data deklaration above).

A remark to the flag E_INTERACTIVE:
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
'e_interactive' is set, if this event is raised due to
the call of 'set_toolbar_interactive' by the user.
You can distinguish this way if the event was raised
by yourself or by ALV
(e.g. in method 'refresh_table_display').
An application of this feature is still unknown...

append a separator to normal toolbar

clear ls_toolbar.

move 3 to ls_toolbar-butn_type.

append ls_toolbar to e_object->mt_toolbar.

append an icon to show booking table

clear ls_toolbar.

move 'BOOKINGS' to ls_toolbar-function.

move icon_employee to ls_toolbar-icon.

move 'Show Bookings'(111) to ls_toolbar-quickinfo.

move 'Detail'(112) to ls_toolbar-text.

move ' ' to ls_toolbar-disabled.

append ls_toolbar to e_object->mt_toolbar.

endmethod.

*----

method handle_user_command.

§ 3.In event handler method for event USER_COMMAND: Query your
function codes defined in step 2 and react accordingly.

data: lt_rows type lvc_t_row.

case e_ucomm.

when 'BOOKINGS'.

call method grid1->get_selected_rows

importing et_index_rows = lt_rows.

call method cl_gui_cfw=>flush.

if sy-subrc ne 0.

add your handling, for example

call function 'POPUP_TO_INFORM'

exporting

titel = g_repid

txt2 = sy-subrc

txt1 = 'Error in Flush'(500).

else.

perform show_booking_table tables lt_rows.

endif.

endcase.

endmethod. "handle_user_command

*----

endclass.

lcl_event_receiver (Implementation)

*===================================================================

*----

FORM EXIT_PROGRAM *

*----

form exit_program.

The instance grid2 is freed not until the program exits from the
main screen.
(It is created only once during the first selection of SBOOK,
no matter how many times the second window is called).

call method custom_container1->free.

if not custom_container2 is initial.

call method custom_container2->free.

endif.

call method cl_gui_cfw=>flush.

if sy-subrc ne 0.

add your handling, for example

call function 'POPUP_TO_INFORM'

exporting

titel = g_repid

txt2 = sy-subrc

txt1 = 'Error in Flush'(500).

endif.

leave program.

endform.

*&----

*& Module PBO_100 OUTPUT

*&----

text

*----

module pbo_100 output.

set pf-status 'MAIN100'.

g_repid = sy-repid.

if custom_container1 is initial.

select data from table SFLIGHT

perform select_table_sflight changing gt_sflight.

create a custom container control for our ALV Control

create object custom_container1

exporting

container_name = cont_on_main

exceptions

cntl_error = 1

cntl_system_error = 2

create_error = 3

lifetime_error = 4

lifetime_dynpro_dynpro_link = 5.

if sy-subrc ne 0.

add your handling, for example

call function 'POPUP_TO_INFORM'

exporting

titel = g_repid

txt2 = sy-subrc

txt1 = 'The control could not be created'(510).

endif.

create an instance of alv control

create object grid1

exporting i_parent = custom_container1.

Set a titlebar for the grid control

gs_layout-grid_title = 'Flights'(100).

allow to select multiple lines

gs_layout-sel_mode = 'A'.

call method grid1->set_table_for_first_display

exporting i_structure_name = 'SFLIGHT'

is_layout = gs_layout

changing it_outtab = gt_sflight.

********

->Create Object to receive events and link them to handler methods.
When the ALV Control raises the event for the specified instance
the corresponding method is automatically called.

create object event_receiver.

set handler event_receiver->handle_user_command for grid1.

set handler event_receiver->handle_toolbar for grid1.

********

§ 4.Call method 'set_toolbar_interactive' to raise event TOOLBAR.

call method grid1->set_toolbar_interactive.

endif. "IF grid1 IS INITIAL

call method cl_gui_control=>set_focus exporting control = grid1.

endmodule. " PBO_100 OUTPUT

*&----

*& Module PAI_100 INPUT

*&----

text

*----

module pai_100 input.

case ok_code.

when 'EXIT'.

perform exit_program.

endcase.

clear ok_code.

endmodule. " PAI_100 INPUT

*&----

*& Module PBO_0101 OUTPUT

*&----

text

*----

module pbo_0101 output.

if custom_container2 is initial.

(the data from sbook is already selected)

create a custom container control for our ALV Control

create object custom_container2

exporting

container_name = cont_on_dialog

exceptions

cntl_error = 1

cntl_system_error = 2

create_error = 3

lifetime_error = 4

lifetime_dynpro_dynpro_link = 5.

if sy-subrc ne 0.

add your handling, for example

call function 'POPUP_TO_INFORM'

exporting

titel = g_repid

txt2 = sy-subrc

txt1 = 'The control could not be created'(510).

endif.

create an instance of alv control

create object grid2

exporting i_parent = custom_container2.

change title

gs_layout-grid_title = 'Bookings'(101).

gs_layout-sel_mode = ' '.

call method grid2->set_table_for_first_display

exporting i_structure_name = 'SBOOK'

is_layout = gs_layout

changing it_outtab = gt_sbook.

else.

call method grid2->refresh_table_display.

endif. "IF custom_container2 IS INITIAL.

call method cl_gui_control=>set_focus exporting control = grid2.

call method cl_gui_cfw=>flush.

if sy-subrc ne 0.

add your handling, for example

call function 'POPUP_TO_INFORM'

exporting

titel = g_repid

txt2 = sy-subrc

txt1 = 'Error in Flush'(500).

endif.

endmodule. " PBO_0101 OUTPUT

*&----

*& Form SELECT_TABLE_SFLIGHT

*&----

text

*----

<--P_GT_SFLIGHT text

*----

form select_table_sflight changing p_gt_sflight like gt_sflight[].

select * from sflight into table p_gt_sflight up to g_max rows.

endform. " SELECT_TABLE_SFLIGHT

*&----

*& Form SELECT_TABLE_SBOOK

*&----

text

*----

-->P_LS_SFLIGHT text
<--P_GT_SBOOK text

*----

form select_table_sbook using p_ls_sflight like line of gt_sflight

changing p_gt_sbook like gt_sbook[].

data: lt_sbook like gt_sbook[].

Select data from sbook according to a line of sflight
and append that data to table p_gt_sbook

select * from sbook into table lt_sbook

where carrid = p_ls_sflight-carrid

and connid = p_ls_sflight-connid

and fldate = p_ls_sflight-fldate.

append lines of lt_sbook to p_gt_sbook.

endform. " SELECT_TABLE_SBOOK

*&----

*& Module PAI_0101 INPUT

*&----

text

*----

module pai_0101 input.

case ok_code.

when 'RETURN'.

leave to screen 0.

endcase.

clear ok_code.

endmodule. " PAI_0101 INPUT

*&----

*& Form show_booking_table

*&----

text

*----

-->P_ET_INDEX_ROWS text

*----

form show_booking_table tables p_et_index_rows

structure lvc_s_row.

data: ls_selected_line like lvc_s_row,

lf_row_index type lvc_index,

ls_sflight like line of gt_sflight.

clear gt_sbook[].

loop at p_et_index_rows into ls_selected_line.

lf_row_index = ls_selected_line-index.

read selected row from internal table gt_sflight

read table gt_sflight index lf_row_index into ls_sflight.

select corresponding lines of table sbook
and append new lines to global table

perform select_table_sbook using ls_sflight

changing gt_sbook.

endloop.

call dialog screen and display new alv control

call screen 101 starting at 10 5.

endform. " show_booking_table

Check the following Example Programs also,

BCALV_GRID_01

BCALV_GRID_02

BCALV_GRID_03

BCALV_GRID_04

BCALV_GRID_05

BCALV_GRID_06

BCALV_GRID_07

BCALV_GRID_08

BCALV_GRID_09

BCALV_GRID_10

BCALV_GRID_11

Regards

topic Re: problem with print in Application Development and Automation Discussions

problem with print

Re: problem with print