topic Re: how to do interactive report using oops in alv in Application Development and Automation Discussions

how to do interactive report using oops in alv

Former Member — Wed, 04 Jun 2008 10:51:10 GMT

hi gurus

can anyone suggest me

how to do interactive report in alv using oops

if possible please send the program

thanks&regards

kals.

Re: how to do interactive report using oops in alv

Former Member — Wed, 04 Jun 2008 10:53:56 GMT

hi kalyan

go to this link ithave program expalined in an simple manner

http://www.saptechnical.com/Tutorials/ALV/Interactive/oops.htm

Cheers

Snehi Chouhan

Re: how to do interactive report using oops in alv

Former Member — Wed, 04 Jun 2008 11:08:42 GMT

hi,

ALV is developed using OOPS(custom container) see this i hope this wil help u.

REPORT zalv_styles.*Include for ALV styles

INCLUDE <cl_alv_control>.*Type ppols for alv

TYPE-POOLS : slis.*structure for t582a tbale

TYPES : BEGIN OF ty_table,

infty TYPE infty,

pnnnn TYPE pnnnn_d,

zrmkz TYPE dzrmkz,

zeitb TYPE dzeitb,

dname TYPE dianm,

edynr TYPE edynp,

ldynr TYPE ldynp,

stypt TYPE stypt,

sytxt TYPE sytxt,

davo TYPE davo,

davoe TYPE davoe,

END OF ty_table.*Structure for infotype text

TYPES : BEGIN OF ty_itext,

infty TYPE infty,

itext TYPE intxt,

sprsl TYPE sprsl,

END OF ty_itext.*Structure for output display

TYPES : BEGIN OF ty_output,

infty TYPE infty,

itext TYPE intxt,

pnnnn TYPE pnnnn_d,

zrmkz TYPE dzrmkz,

zeitb TYPE dzeitb,

dname TYPE dianm,

edynr TYPE edynp,

ldynr TYPE ldynp,

stypt TYPE stypt,

sytxt TYPE sytxt,

davo TYPE davo,

davoe TYPE davoe,

text(6) TYPE c,

sradio(6) TYPE c,

scheck(6) TYPE c,

END OF ty_output.*internal table and work area declarations

DATA : it_table TYPE STANDARD TABLE OF ty_table INITIAL SIZE 0,

it_output TYPE STANDARD TABLE OF ty_output INITIAL SIZE 0,

it_ittext TYPE STANDARD TABLE OF ty_itext INITIAL SIZE 0,

wa_table TYPE ty_table,

wa_output TYPE ty_output,

wa_ittext TYPE ty_itext.*Data declarations for ALV

DATA: c_ccont TYPE REF TO cl_gui_custom_container, "Custom container

c_alvgd TYPE REF TO cl_gui_alv_grid, "ALV grid object

it_fcat TYPE lvc_t_fcat, "Field catalogue

it_layout TYPE lvc_s_layo. "Layout

Field symbols declarations for styleFIELD-SYMBOLS : <wa_fcat> TYPE lvc_s_fcat.initialization eventINITIALIZATION.*start of selection event

START-OF-SELECTION.*select the infotypes maintained

SELECT infty

pnnnn

zrmkz

zeitb

dname

edynr

ldynr

stypt

sytxt

davo

davoe

FROM t582a UP TO 25 ROWS

INTO CORRESPONDING FIELDS OF TABLE it_table.* *Select the infotype texts

IF it_table[] IS NOT INITIAL.

SELECT itext

infty

sprsl

FROM t582s

INTO CORRESPONDING FIELDS OF TABLE it_ittext

FOR ALL ENTRIES IN it_table

WHERE infty = it_table-infty

AND sprsl = 'E'.

ENDIF.*Apppending the data to the internal table of ALV output

LOOP AT it_table INTO wa_table. wa_output-infty = wa_table-infty.

wa_output-pnnnn = wa_table-pnnnn.

wa_output-zrmkz = wa_table-zrmkz.

wa_output-zeitb = wa_table-zeitb.

wa_output-dname = wa_table-dname.

wa_output-edynr = wa_table-edynr.

wa_output-ldynr = wa_table-ldynr.

wa_output-stypt = wa_table-stypt.

wa_output-sytxt = wa_table-sytxt.

wa_output-davo = wa_table-davo.

wa_output-davoe = wa_table-davoe.* For texts READ TABLE it_ittext INTO wa_ittext WITH KEY infty = wa_table-infty.

wa_output-itext = wa_ittext-itext.

wa_output-text = wa_ittext-sprsl. APPEND wa_output TO it_output.

CLEAR wa_output. ENDLOOP.* Calling the ALV screen with custom container CALL SCREEN 0600.On this statement double click it takes you to the screen painter SE51.Enter the attributes

*Create a Custom container and name it CC_CONT and OK code as OK_CODE.

*Save check and Activate the screen painter.

Now a normal screen with number 600 is created which holds the ALV grid. PBO of the actual screen ,

Here we can give a title and customized menus

&----

*& Module STATUS_0600 OUTPUT

&----

text

----

MODULE status_0600 OUTPUT.

SET PF-STATUS 'xxxxxxxx'.
SET TITLEBAR 'xxx'.

ENDMODULE. " STATUS_0600 OUTPUT* calling the PBO module ALV_GRID.

&----

*& Module ALV_GRID OUTPUT

&----

text

----

MODULE alv_grid OUTPUT.

CREATE OBJECT c_ccont

EXPORTING

container_name = 'CC_CONT'.

CREATE OBJECT c_alvgd

EXPORTING

i_parent = c_ccont.* SET field for ALV

PERFORM alv_build_fieldcat.* Setting the styles for the ALV grid control

using field-symbols LOOP AT it_fcat ASSIGNING <wa_fcat>.*For Each and every line of the fieldcat

CASE sy-tabix.*Color Styles

*Background/Font/Group/positive/negative

WHEN '1'.

<wa_fcat>-style = alv_style_color_inv_positive.

WHEN '2'.

<wa_fcat>-style = alv_style_color_int_negative.

WHEN '3'.

<wa_fcat>-style = alv_style_color_inv_negative.

WHEN '4'.

<wa_fcat>-style = alv_style_color_int_positive.

WHEN '5'.

<wa_fcat>-style = alv_style_color_background.

<wa_fcat>-style = alv_style_color_inv_background.

WHEN '6'.

<wa_fcat>-style = alv_style_color_group.

<wa_fcat>-style = alv_style_color_int_background.*Style for F4

WHEN '7'.

<wa_fcat>-style = alv_style_f4.*Style for Alignment(others are also possible)

WHEN '8'.

<wa_fcat>-style = alv_style_align_left_bottom.*Style for Font Underlined/Bold and Italic are possible

WHEN '9'.

<wa_fcat>-style = alv_style_font_underlined.*Style for button type

WHEN '10'.

<wa_fcat>-style = alv_style_button.*Style for Font Symbol

WHEN '11'.

<wa_fcat>-style = alv_style_font_symbol.*Style for Radiobutton

WHEN '12'.

<wa_fcat>-style = alv_style_radio_checked.*Style for checkbox

WHEN '13'.

<wa_fcat>-style = alv_style_checkbox_checked.*Style for column style characteristics(highlighting the col)

WHEN '14'.

<wa_fcat>-style = alv_col_style_characteristic.*Styles for Enabling the column

WHEN '15'.

<wa_fcat>-style = alv_style_enabled. ENDCASE. ENDLOOP.* Set ALV attributes FOR LAYOUT

PERFORM alv_report_layout. CHECK NOT c_alvgd IS INITIAL.* Call ALV GRID CALL METHOD c_alvgd->set_table_for_first_display

EXPORTING

is_layout = it_layout

CHANGING

it_outtab = it_output

it_fieldcatalog = it_fcat

EXCEPTIONS

invalid_parameter_combination = 1

program_error = 2

too_many_lines = 3

OTHERS = 4.

IF sy-subrc <> 0.

MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno

WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.

ENDIF.ENDMODULE. " ALV_GRID OUTPUT&----

*& Form alv_build_fieldcat

&----

text

----

<--P_IT_FCAT text

----

*subroutine to build fieldcatFORM alv_build_fieldcat. DATA lv_fldcat TYPE lvc_s_fcat.

CLEAR lv_fldcat. lv_fldcat-row_pos = '1'.

lv_fldcat-col_pos = '1'.

lv_fldcat-fieldname = 'INFTY'.

lv_fldcat-tabname = 'IT_OUTPUT'.

lv_fldcat-outputlen = 8.

lv_fldcat-scrtext_m = 'Infotype'.

lv_fldcat-icon = 'X'.

APPEND lv_fldcat TO it_fcat.

CLEAR lv_fldcat. lv_fldcat-row_pos = '1'.

lv_fldcat-col_pos = '2'.

lv_fldcat-fieldname = 'PNNNN'.

lv_fldcat-tabname = 'IT_OUTPUT'.

lv_fldcat-outputlen = 15.

lv_fldcat-scrtext_m = 'Structure'.

lv_fldcat-icon = ''.

APPEND lv_fldcat TO it_fcat.

CLEAR lv_fldcat. lv_fldcat-row_pos = '1'.

lv_fldcat-col_pos = '3'.

lv_fldcat-fieldname = 'ITEXT'.

lv_fldcat-tabname = 'IT_OUTPUT'.

lv_fldcat-outputlen = 60.

lv_fldcat-scrtext_m = 'Description'.

lv_fldcat-icon = ''.

APPEND lv_fldcat TO it_fcat.

CLEAR lv_fldcat.

lv_fldcat-row_pos = '1'.

lv_fldcat-col_pos = '4'.

lv_fldcat-fieldname = 'TEXT'.

lv_fldcat-tabname = 'IT_OUTPUT'.

lv_fldcat-outputlen = 5.

lv_fldcat-scrtext_m = 'General'.

lv_fldcat-icon = ''.

APPEND lv_fldcat TO it_fcat.

CLEAR lv_fldcat.

lv_fldcat-row_pos = '1'.

lv_fldcat-col_pos = '5'.

lv_fldcat-fieldname = 'ZRMKZ'.

lv_fldcat-tabname = 'IT_OUTPUT'.

lv_fldcat-outputlen = 1.

lv_fldcat-scrtext_m = 'PERIOD'.

lv_fldcat-icon = ''.

APPEND lv_fldcat TO it_fcat.

CLEAR lv_fldcat. lv_fldcat-row_pos = '1'.

lv_fldcat-col_pos = '6'.

lv_fldcat-fieldname = 'ZEITB'.

lv_fldcat-tabname = 'IT_OUTPUT'.

lv_fldcat-outputlen = 60.

lv_fldcat-scrtext_m = 'Time constraint'.

lv_fldcat-icon = ''.

APPEND lv_fldcat TO it_fcat.

CLEAR lv_fldcat. lv_fldcat-row_pos = '1'.

lv_fldcat-col_pos = '7'.

lv_fldcat-fieldname = 'DNAME'.

lv_fldcat-tabname = 'IT_OUTPUT'.

lv_fldcat-outputlen = 15.

lv_fldcat-scrtext_m = 'Dialogmodule'.

lv_fldcat-icon = ''.

APPEND lv_fldcat TO it_fcat.

CLEAR lv_fldcat. lv_fldcat-row_pos = '1'.

lv_fldcat-col_pos = '8'.

lv_fldcat-fieldname = 'EDYNR'.

lv_fldcat-tabname = 'IT_OUTPUT'.

lv_fldcat-outputlen = 10.

lv_fldcat-scrtext_m = 'Single screenno'.

lv_fldcat-icon = ''.

APPEND lv_fldcat TO it_fcat.

CLEAR lv_fldcat. lv_fldcat-row_pos = '1'.

lv_fldcat-col_pos = '9'.

lv_fldcat-fieldname = 'LDYNR'.

lv_fldcat-tabname = 'IT_OUTPUT'.

lv_fldcat-outputlen = 10.

lv_fldcat-scrtext_m = 'List screenno'.

lv_fldcat-icon = ''.

APPEND lv_fldcat TO it_fcat.

CLEAR lv_fldcat.

lv_fldcat-row_pos = '1'.

lv_fldcat-col_pos = '10'.

lv_fldcat-fieldname = 'STYPT'.

lv_fldcat-tabname = 'IT_OUTPUT'.

lv_fldcat-outputlen = 10.

lv_fldcat-scrtext_m = 'SubtypeTable'.

lv_fldcat-icon = ''.

APPEND lv_fldcat TO it_fcat.

CLEAR lv_fldcat. lv_fldcat-row_pos = '1'.

lv_fldcat-col_pos = '11'.

lv_fldcat-fieldname = 'SYTXT'.

lv_fldcat-tabname = 'IT_OUTPUT'.

lv_fldcat-outputlen = 10.

lv_fldcat-scrtext_m = 'Font Symbol'.

lv_fldcat-icon = ''.

APPEND lv_fldcat TO it_fcat.

CLEAR lv_fldcat.

lv_fldcat-row_pos = '1'.

lv_fldcat-col_pos = '12'.

lv_fldcat-fieldname = 'SRADIO'.

lv_fldcat-tabname = 'IT_OUTPUT'.

lv_fldcat-outputlen = 10.

lv_fldcat-scrtext_m = 'RADIO'.

lv_fldcat-icon = ''.

APPEND lv_fldcat TO it_fcat.

CLEAR lv_fldcat. lv_fldcat-row_pos = '1'.

lv_fldcat-col_pos = '13'.

lv_fldcat-fieldname = 'SCHECK'.

lv_fldcat-tabname = 'IT_OUTPUT'.

lv_fldcat-outputlen = 10.

lv_fldcat-scrtext_m = 'CHECK'.

lv_fldcat-icon = ''.

APPEND lv_fldcat TO it_fcat.

CLEAR lv_fldcat. lv_fldcat-row_pos = '1'.

lv_fldcat-col_pos = '14'.

lv_fldcat-fieldname = 'DAVO'.

lv_fldcat-tabname = 'IT_OUTPUT'.

lv_fldcat-outputlen = 10.

lv_fldcat-scrtext_m = 'Start Date'.

lv_fldcat-icon = ''.

APPEND lv_fldcat TO it_fcat.

CLEAR lv_fldcat. lv_fldcat-row_pos = '1'.

lv_fldcat-col_pos = '15'.

lv_fldcat-fieldname = 'DAVOE'.

lv_fldcat-tabname = 'IT_OUTPUT'.

lv_fldcat-outputlen = 10.

lv_fldcat-scrtext_m = 'End date'.

lv_fldcat-icon = ''.

APPEND lv_fldcat TO it_fcat.

CLEAR lv_fldcat.ENDFORM. " alv_build_fieldcat

&----

*& Form alv_report_layout

&----

text

----

<--P_IT_LAYOUT text

----

*Subroutine for setting alv layout

FORM alv_report_layout.

it_layout-cwidth_opt = 'X'.

it_layout-zebra = 'X'.

it_layout-col_opt = 'X'.

ENDFORM. " alv_report_layout

PAI module of the screen created. In case we use an interactive ALV or

*for additional functionalities we can create OK codes

*and based on the user command we can do the coding.

&----

*& Module USER_COMMAND_0600 INPUT

&----

text

----

MODULE user_command_0600 INPUT.ENDMODULE. " USER_COMMAND_0600 INPUT

regards,

dhaya.

Re: how to do interactive report using oops in alv

Former Member — Wed, 04 Jun 2008 11:09:12 GMT

*******First u have to take container on screen name it 'Test' then follow folloing code.

DATA: g_ref_custom_detail_1 TYPE REF TO cl_gui_custom_container, "Detail container

g_ref_alv_grid_detail_1 TYPE REF TO cl_gui_alv_grid . "Detail ALV instance

DATA: lwa_variant TYPE disvariant.

lwa_variant-report = w_repid.

lwa_variant-handle = c_handle.

DATA: wa_layout_detail TYPE lvc_s_layo , " For Detail ALV layout

**********IN PBO***********

CREATE OBJECT g_ref_custom_detail_1

EXPORTING

container_name = 'Test'

EXCEPTIONS

cntl_error = 1

cntl_system_error = 2

create_error = 3

lifetime_error = 4

lifetime_dynpro_dynpro_link = 5

OTHERS = 6.

Create ALV instance for detail

CREATE OBJECT g_ref_alv_grid_detail_1

EXPORTING

i_parent = g_ref_custom_detail_1

EXCEPTIONS

error_cntl_create = 1

error_cntl_init = 2

error_cntl_link = 3

error_dp_create = 4

OTHERS = 5.

lwa_fieldcat-fieldname = 'AUFNR' .

lwa_fieldcat-scrtext_l = 'SERVICE ORDER'.

lwa_fieldcat-outputlen = 20.

APPEND lwa_fieldcat TO it_fieldcat.

CLEAR lwa_fieldcat.

lwa_fieldcat-fieldname = 'ERDAT' .

lwa_fieldcat-scrtext_l = 'ORDER DATE'.

lwa_fieldcat-outputlen = 18.

APPEND lwa_fieldcat TO it_fieldcat.

CLEAR lwa_fieldcat.

lwa_fieldcat-fieldname = 'KMREAD' .

lwa_fieldcat-scrtext_l = 'KM READING'.

lwa_fieldcat-outputlen = 18.

APPEND lwa_fieldcat TO it_fieldcat.

CLEAR lwa_fieldcat.

CLEAR: w_counter.

lwa_fieldcat-fieldname = 'PMACT' .

lwa_fieldcat-scrtext_l = 'PM ACTIVITY'.

lwa_fieldcat-outputlen = 12.

APPEND lwa_fieldcat TO it_fieldcat.

CLEAR lwa_fieldcat.

CLEAR: w_counter.

do 5 TIMES.

WA_SORDER-AUFNR = space.

APPEND WA_SORDER TO IT_SORDER.

w_counter = w_counter + 1.

enddo.

Output data using ALV

CALL METHOD g_ref_alv_grid_detail_1->set_table_for_first_display

EXPORTING

is_variant = lwa_variant

is_layout = wa_layout_detail

CHANGING

it_outtab = it_sorder

it_fieldcatalog = it_fieldcat

EXCEPTIONS

invalid_parameter_combination = 1

program_error = 2

too_many_lines = 3

OTHERS = 4.

I think this may help u..

Re: how to do interactive report using oops in alv

Former Member — Wed, 04 Jun 2008 11:15:41 GMT

An example code:

1)Create a screen 100 with cumtom control "CONT1" and "CONT2".

2)and PF-status '100'.


*&---------------------------------------------------------------------*
*& Report  ZTEST_DEMO_ALV
*&
*&---------------------------------------------------------------------*
*&
*&
*&---------------------------------------------------------------------*

REPORT  ztest_demo_alv.


CLASS cl_event_reciever DEFINITION DEFERRED.
DATA:
wa_vbak TYPE vbak.
DATA:
i_vbak TYPE STANDARD TABLE OF vbak,
i_vbap TYPE STANDARD TABLE OF vbap.


DATA:
v_container1 TYPE scrfname VALUE 'CONT1',
v_grid1      TYPE REF TO cl_gui_alv_grid,
v_custom_container1 TYPE REF TO cl_gui_custom_container,
v_container2 TYPE scrfname VALUE 'CONT2',
v_grid2      TYPE REF TO cl_gui_alv_grid,
v_custom_container2 TYPE REF TO cl_gui_custom_container,
ok_code TYPE syucomm,
v_event_reciever TYPE REF TO cl_event_reciever.

*----------------------------------------------------------------------*
*       CLASS cl_event_reciever DEFINITION
*----------------------------------------------------------------------*
*
*----------------------------------------------------------------------*
CLASS cl_event_reciever DEFINITION.
  PUBLIC SECTION.

    METHODS:
      handle_double_click FOR EVENT double_click OF cl_gui_alv_grid
        IMPORTING e_row e_column.



ENDCLASS.                    "cl_event_reciever DEFINITION

*----------------------------------------------------------------------*
*       CLASS cl_event_reciever IMPLEMENTATION
*----------------------------------------------------------------------*
*
*----------------------------------------------------------------------*
CLASS cl_event_reciever IMPLEMENTATION.
  METHOD handle_double_click.

    READ TABLE i_vbak
    INTO wa_vbak
    INDEX e_row.
    IF sy-subrc = 0.

      SELECT * FROM vbap
        INTO TABLE i_vbap

        WHERE vbeln = wa_vbak-vbeln.
      IF sy-subrc = 0.
        SET SCREEN 00.
        LEAVE TO SCREEN 100.
      ENDIF.
    ENDIF.
  ENDMETHOD.                    "handle_double_click
ENDCLASS.                    "cl_event_reciever IMPLEMENTATION

SELECT-OPTIONS:
s_vbeln FOR  wa_vbak-vbeln.


START-OF-SELECTION.

  SELECT * FROM  vbak
    INTO TABLE i_vbak
    UP TO 50 ROWS
    WHERE vbeln IN s_vbeln.
  IF sy-subrc <> 0.
    MESSAGE i000(Z_ZZZ_CA_MESSAGES)  with 'No data found!'.
    leave LIST-PROCESSING.

  ENDIF.

END-OF-SELECTION.
  CALL SCREEN 100.


*&---------------------------------------------------------------------*
*&      Module  STATUS_0100  OUTPUT
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
MODULE status_0100 OUTPUT.
  SET PF-STATUS '100'.
*  SET TITLEBAR 'xxx'.

  IF v_custom_container1 IS NOT BOUND.

    CREATE OBJECT v_custom_container1
    EXPORTING container_name = v_container1.

    CREATE OBJECT v_grid1
      EXPORTING i_parent = v_custom_container1.

    CALL METHOD v_grid1->set_table_for_first_display
       EXPORTING
*       i_buffer_active               =
*       i_bypassing_buffer            =
*       i_consistency_check           =
         i_structure_name              = 'VBAK'
*       is_variant                    =
*       i_save                        =
*       i_default                     = 'X'
*       is_layout                     =
*       is_print                      =
*       it_special_groups             =
*       it_toolbar_excluding          =
*       it_hyperlink                  =
*       it_alv_graphics               =
*       it_except_qinfo               =
*       ir_salv_adapter               =
      CHANGING
        it_outtab                     = i_vbak
*       it_fieldcatalog               =
*       it_sort                       =
*       it_filter                     =
      EXCEPTIONS
        invalid_parameter_combination = 1
        program_error                 = 2
        too_many_lines                = 3
        OTHERS                        = 4
            .
    IF sy-subrc <> 0.
      MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
                 WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
    ENDIF.
    CREATE OBJECT v_event_reciever.
    SET HANDLER v_event_reciever->handle_double_click FOR v_grid1.

  ENDIF.

  IF v_custom_container2 IS NOT BOUND
    AND i_vbap IS NOT INITIAL.

    CREATE OBJECT v_custom_container2
    EXPORTING container_name = v_container2.

    CREATE OBJECT v_grid2
      EXPORTING i_parent = v_custom_container2.

    CALL METHOD v_grid2->set_table_for_first_display
       EXPORTING
*       i_buffer_active               =
*       i_bypassing_buffer            =
*       i_consistency_check           =
         i_structure_name              = 'VBAP'
*       is_variant                    =
*       i_save                        =
*       i_default                     = 'X'
*       is_layout                     =
*       is_print                      =
*       it_special_groups             =
*       it_toolbar_excluding          =
*       it_hyperlink                  =
*       it_alv_graphics               =
*       it_except_qinfo               =
*       ir_salv_adapter               =
      CHANGING
        it_outtab                     = i_vbap
*       it_fieldcatalog               =
*       it_sort                       =
*       it_filter                     =
      EXCEPTIONS
        invalid_parameter_combination = 1
        program_error                 = 2
        too_many_lines                = 3
        OTHERS                        = 4
            .
  ENDIF.
  IF v_custom_container2 IS BOUND.
    CALL METHOD v_grid2->refresh_table_display.
  ENDIF.

ENDMODULE.                 " STATUS_0100  OUTPUT
*&---------------------------------------------------------------------*
*&      Module  USER_COMMAND_0100  INPUT
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
MODULE user_command_0100 INPUT.
  CASE ok_code.
    WHEN 'BACK'.
      CALL METHOD v_grid1->free.
      CALL METHOD v_grid2->free.
      SET SCREEN 00.
      LEAVE SCREEN.

  ENDCASE.


ENDMODULE.                 " USER_COMMAND_0100  INPUT