Application Development and Automation Discussions
Join the discussions or start your own on all things application development, including tools and APIs, programming models, and keeping your skills sharp.
Here is a sample code to display subtotals on alv grid control,
U hv to create a screen & set pf-status
data:
begin of t_itab occurs 0.
include structure sflight.
data end of t_itab.
**declaring the container & grid for output table display**
data:
r_container type ref to cl_gui_custom_container,
r_grid type ref to cl_gui_alv_grid.
**structure of layout**
data:
fs_lay type lvc_s_layo.
**Field Catalog**
data:
t_fcat type lvc_t_fcat,
fs_fcat type lvc_s_fcat.
**Sort table**
data: t_sort type lvc_t_sort,
fs_sort type lvc_s_sort.
select * from sflight into corresponding fields of table t_itab.
fs_fcat-fieldname = 'PRICE'.
fs_fcat-do_sum = 'X'.
append fs_fcat to t_fcat.
fs_sort-spos = 1.
fs_sort-fieldname = 'CONNID'. " here give fieldname as VENDOR, it gives u total amt based on vendor
fs_sort-up = 'X'.
fs_sort-subtot = 'X'.
append fs_sort to t_sort.
*--------------------------------------------------------------------------------
call screen 100.
*&---------------------------------------------------------------------*
*& Module STATUS_0100 OUTPUT
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
module status_0100 output.
set pf-status 'SCREEN1'.
endmodule. " STATUS_0100 OUTPUT
*&---------------------------------------------------------------------*
*& Module USER_COMMAND_0100 INPUT
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
module user_command_0100 input.
case sy-ucomm.
when 'BACK'.
leave to screen 0.
when 'EXIT'.
leave program.
endcase.
endmodule. " USER_COMMAND_0100 INPUT
*&---------------------------------------------------------------------*
*& Module LIST OUTPUT
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
module list output.
create object r_container
exporting
container_name = 'CCONTAINER2'.
create object r_grid
exporting
i_parent = r_container.
*passing the layout structure, fieldcatalog and output table for display*
call method r_grid->set_table_for_first_display
exporting
i_structure_name = 'SFLIGHT'
IS_LAYOUT = fs_lay
changing
it_fieldcatalog = t_fcat
it_sort = t_sort
it_outtab = t_itab[].
endmodule. " LIST OUT
Bluesky
