Re: alv block reports

Former Member · ‎2009 Mar 10

hi,

how can print 4 block of output in single screen , if its possable please send the code.....

Former Member · ‎2009 Mar 10

Hi

try this code and modify according to your requirment.

This will display a screen with 3 grids on it.You can add one more to it if you want.

REPORT  ZALV.

TABLES : scarr .
DATA : it_scarr TYPE TABLE OF scarr .

DATA : ob_custom TYPE REF TO cl_gui_custom_container ,
       ob_split1 TYPE REF TO cl_gui_easy_splitter_container ,
       ob_split2 TYPE REF TO cl_gui_easy_splitter_container ,
       ob_grid1  TYPE REF TO cl_gui_alv_grid ,
       ob_grid2  TYPE REF TO cl_gui_alv_grid ,
       ob_grid3  TYPE REF TO cl_gui_alv_grid .

SELECT-OPTIONS : s_carrid FOR scarr-carrid .

START-OF-SELECTION .

  SELECT *
    INTO TABLE it_scarr
    FROM scarr
   WHERE carrid IN s_carrid .

  CALL SCREEN 100.
*&---------------------------------------------------------------------*
*&      Module  STATUS_0100  OUTPUT
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
MODULE status_0100 OUTPUT.
  SET PF-STATUS 'ZTEST'.
  SET TITLEBAR 'ZTITLE01'.
* This will create a container
  CREATE OBJECT ob_custom
    EXPORTING
      container_name = 'CONTAINER'.

* This spit the container OB_CUSTOM into two
  CREATE OBJECT ob_split1
    EXPORTING
      parent      = ob_custom
      orientation = cl_gui_easy_splitter_container=>orientation_vertical.

  CREATE OBJECT ob_split2
    EXPORTING
      parent      = ob_split1->bottom_right_container
      orientation = cl_gui_easy_splitter_container=>orientation_horizontal.

  CREATE OBJECT ob_grid1
    EXPORTING
      i_parent = ob_split1->top_left_container.

  CREATE OBJECT ob_grid2
    EXPORTING
      i_parent = ob_split2->top_left_container.

  CREATE OBJECT ob_grid3
    EXPORTING
      i_parent = ob_split2->bottom_right_container.

  CALL METHOD ob_grid1->set_table_for_first_display
    EXPORTING
      i_structure_name = 'SCARR'
    CHANGING
      it_outtab        = it_scarr.

  CALL METHOD ob_grid2->set_table_for_first_display
    EXPORTING
      i_structure_name = 'SCARR'
    CHANGING
      it_outtab        = it_scarr.

  CALL METHOD ob_grid3->set_table_for_first_display
    EXPORTING
      i_structure_name = 'SCARR'
    CHANGING
      it_outtab        = it_scarr.
ENDMODULE.                             " STATUS_0100  OUTPUT
*&---------------------------------------------------------------------*
*&      Module  USER_COMMAND_0100  INPUT
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
MODULE user_command_0100 INPUT.
  IF sy-ucomm = 'BACK' OR sy-ucomm = 'EXIT' .
    FREE : ob_grid1 ,
           ob_grid2 ,
           ob_grid3 ,
           ob_split1 ,
           ob_split2 ,
           ob_custom .
    LEAVE TO SCREEN 0 .
  ENDIF.

ENDMODULE.                             " USER_COMMAND_0100  INPUT

Hope this has helped you.

Regards

Hareesh Menon

Former Member · ‎2009 Mar 10

alv normal reports.........

Former Member · ‎2009 Mar 10

Hi Santhosh

alv normal reports.........?could you be pls more elaborate...

Former Member · ‎2009 Mar 10

HI,

See the BALVBT01 report.

HERE IT will use CALL FUNCTION 'REUSE_ALV_BLOCK_LIST_APPEND' .

which helps in getting the list one by one........ in the alv reports.

Regards,

Venkatesh

Former Member · ‎2009 Mar 10

Hi Santosh,

here is a program to display 6 tables using blocks..

https://www.sdn.sap.com/irj/scn/wiki?path=/display/snippets/blockedalvwith6tables

https://www.sdn.sap.com/irj/scn/wiki?path=/display/snippets/abap-ProgramforALVBlocklist


DATA : fcat TYPE slis_t_fieldcat_alv,          "FIELDCATALOG
DATA : layout1 TYPE slis_layout_alv,         "LAYOUT 1
layout2 TYPE slis_layout_alv,                     "LAYOUT 2
gt_event1 TYPE slis_t_event.

CALL FUNCTION 'REUSE_ALV_BLOCK_LIST_INIT'
EXPORTING
i_callback_program = SY-REPID.

CALL FUNCTION 'REUSE_ALV_BLOCK_LIST_APPEND'
EXPORTING
IS_LAYOUT = LAYOUT1
IT_FIELDCAT = FCAT1
I_TABNAME = 'FS_TAB1'  " structure of itab1
IT_EVENTS = GT_EVENT1

TABLES
T_OUTTAB = itab1.
* call for all the no.of tables u want to display..
CALL FUNCTION 'REUSE_ALV_BLOCK_LIST_APPEND'
EXPORTING
IS_LAYOUT = LAYOUT2
IT_FIELDCAT = FCAT2
I_TABNAME = 'FS_TAB2'  " structure of itab2
IT_EVENTS = GT_EVENT1

TABLES
T_OUTTAB = itab2.

CALL FUNCTION 'REUSE_ALV_BLOCK_LIST_DISPLAY'.

Hope it helps..

Regards,

Mdi.Deeba

Former Member · ‎2009 Mar 10

go through this program.

type-pools : slis.

&----

*& structure declaration

&----

types : begin of st_ekko,

ebeln type ekko-ebeln, "Purchasing Document Number

bstyp type ekko-bstyp, "Purchasing Document Category

bsart type ekko-bsart, "Purchasing Document Type

aedat type ekko-aedat, "record created on

ernam type ekko-ernam, "Person who Created the Object

end of st_ekko.

types : begin of st_ekpo,

ebeln type ekko-ebeln,

ebelp type ekpo-ebelp, "Item Number of Purchasing Document

ematn type ekpo-ematn, "Material number

matkl type ekpo-matkl, "Material group

netpr type ekpo-netpr, "Net price in purchasing document

end of st_ekpo.

&----

*& internal table and work area declaration

&----

data : it_ekpo type standard table of st_ekpo,

it_ekko type standard table of st_ekko,

it_fieldcat1 type slis_t_fieldcat_alv,

wa_fieldcat1 type slis_fieldcat_alv,

it_fieldcat2 type slis_t_fieldcat_alv,

wa_fieldcat2 type slis_fieldcat_alv,

it_events type slis_t_event,

wa_layout type slis_layout_alv.

&----

*& data declaration

&----

data : v_ebeln type ekko-ebeln.

&----

*& selection-screen

&----

selection-screen begin of block a with frame title text-000.

select-options : so_ebeln for v_ebeln.

selection-screen end of block a.

&----

*& At-selection-screen

&----

at selection-screen on so_ebeln.

perform validate_ebeln.

&----

*& start-of-selection

&----

start-of-selection.

perform data_retrieval.

&----

*& end-of-selection

&----

end-of-selection.

perform initialize_alv_block.

perform build_fieldcatalog1.

perform build_fieldcatalog2.

perform build_layout.

perform get_events .

perform append_ekkodata_to_alv_block.

perform append_ekpodata_to_alv_block.

perform display_blocked_alv.

&----

*& FORM initialize_alv_block

&----

form initialize_alv_block.

call function 'REUSE_ALV_BLOCK_LIST_INIT'

exporting

i_callback_program = sy-repid.

endform.

&----

*& FORM validate_ebeln

&----

form validate_ebeln.

select ebeln

from ekko

into table it_ekko

where ebeln in so_ebeln.

if sy-subrc ne 0.

message text-003 type 'W'.

endif.

endform.

&----

*& FORM data_retrieval

&----

form data_retrieval.

select ebeln bstyp bsart aedat ernam

from ekko

into table it_ekko

where ebeln in so_ebeln.

if sy-subrc ne 0.

message text-001 type 'I'.

endif.

select ebeln ebelp ematn matkl netpr

from ekpo

into table it_ekpo

where ebeln in so_ebeln.

if sy-subrc ne 0.

message text-002 type 'I'.

endif.

endform.

&----

*& Form build_fieldcatalog1

&----

form build_fieldcatalog1.

wa_fieldcat1-fieldname = 'EBELN'.

wa_fieldcat1-seltext_l = 'PURCHASE ORDER'.

wa_fieldcat1-col_pos = 0.

wa_fieldcat1-do_sum = 'X'.

append wa_fieldcat1 to it_fieldcat1.

wa_fieldcat1-fieldname = 'BSTYP'.

wa_fieldcat1-seltext_l = 'DOCUMENT CATEGORY'.

wa_fieldcat1-col_pos = 1.

append wa_fieldcat1 to it_fieldcat1.

wa_fieldcat1-fieldname = 'BSART'.

wa_fieldcat1-seltext_l = 'DOCUMENT TYPE'.

wa_fieldcat1-col_pos = 2.

append wa_fieldcat1 to it_fieldcat1.

wa_fieldcat1-fieldname = 'AEDAT'.

wa_fieldcat1-seltext_l = 'DATE'.

wa_fieldcat1-col_pos = 3.

append wa_fieldcat1 to it_fieldcat1.

wa_fieldcat1-fieldname = 'ERNAM'.

wa_fieldcat1-seltext_l = 'NAME'.

wa_fieldcat1-col_pos = 4.

append wa_fieldcat1 to it_fieldcat1.

endform. "build_fieldcatalog

&----

*& Form build_fieldcatalog2

&----

form build_fieldcatalog2.

wa_fieldcat2-fieldname = 'EBELN'.

wa_fieldcat2-seltext_l = 'PURCHASE ORDER'.

wa_fieldcat2-col_pos = 0.