Re: Mutiple ALV

former_member200872 — Tue, 01 Jul 2008 09:32:34 GMT

Hi,

The answer to your question is Block ALV.

Check these programs:

BALVBT01

BCALV_TEST_BLOCK_LIST

Sample code is given below.

Regards,

Wajid Hussain P

* * * *

REPORT z_block_alv.

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

*PROGRAM... Z_BLOCK_ALV

*TITLE... Demo : Block ALV

*AUTHOR... Wajid, Zensar Technologies

*DATE WRITTEN 02/25/2008

*R/3 RELEASE

----

*COPIED FROM....

----

*PROGRAM TYPE... Executable

*DEV. CLASS... $TMP

*LOGICAL DB...

----

*SCREENS...

*GUl TITLE...

*GUl STATUS...

*TRANSACTIONS...

*USER EXITS...

----

*CHANGE HISTORY

*Date By Correction Number & Brief Description Release

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

TABLES: ekko.

TYPE-POOLS : slis. " Purchasing Document Header

&----

*& Type Declarations

&----

TYPES : BEGIN OF t_ekpo,

matnr LIKE ekpo-matnr, "#EC SET extended check off

menge LIKE ekpo-menge, " Quantity

meins LIKE ekpo-meins, " UoM

ebeln LIKE ekpo-ebeln,

END OF t_ekpo,

BEGIN OF t_makt,

matnr LIKE makt-matnr, " Material

maktx LIKE makt-maktx, " Material Description

END OF t_makt,

BEGIN OF t_adrc,

name1 LIKE adrc-name1, " Name1

name2 LIKE adrc-name2, " Name2

city1 LIKE adrc-city1, " City1

city2 LIKE adrc-city2, " City2

END OF t_adrc,

BEGIN OF t_lfa1,

lifnr LIKE lfa1-lifnr, " Vendor

adrnr LIKE lfa1-adrnr, " Address

END OF t_lfa1,

BEGIN OF t_ekko,

ebeln LIKE ekko-ebeln,

lifnr LIKE ekko-lifnr, " Vendor's account number

END OF t_ekko.

&----

*& Internal Tables & Structures

&----

DATA : it_ekpo TYPE TABLE OF t_ekpo WITH HEADER LINE,

it_makt TYPE TABLE OF t_makt WITH HEADER LINE,

it_adrc TYPE TABLE OF t_adrc WITH HEADER LINE,

it_lfa1 TYPE TABLE OF t_lfa1 WITH HEADER LINE,

it_ekko TYPE TABLE OF t_ekko WITH HEADER LINE.

DATA : BEGIN OF it_list1 OCCURS 0,

EBELN LIKE EKKO-EBELN,

matnr LIKE ekpo-matnr, " Material

meins LIKE ekpo-meins, " UoM

menge LIKE ekpo-menge, " Quantity

maktx LIKE makt-maktx, " Material Description

END OF it_list1,

BEGIN OF it_list2 OCCURS 0,

lifnr LIKE lfa1-lifnr,

adrnr LIKE adrc-addrnumber,

name1 LIKE adrc-name1,

name2 LIKE adrc-name2,

city1 LIKE adrc-city1,

city2 LIKE adrc-city2,

END OF it_list2.

DATA : it_flcat1 TYPE TABLE OF slis_fieldcat_alv,

it_flcat2 LIKE it_flcat1,

it_events1 TYPE slis_t_event,

it_events2 LIKE it_events1,

i_layout1 TYPE slis_layout_alv,

i_layout2 LIKE i_layout1.

DATA : i_print TYPE slis_print_alv.

&----

*& Selection Screen

&----

*SELECT-OPTIONS : S_EBELN FOR EKKO-EBELN. " Purchasing Document Number

PARAMETERS : p_ebeln TYPE ekko-ebeln OBLIGATORY. " Purchasing Document Number

&----

*& Initialization

&----

i_print-reserve_lines = 1.

&----

*& Start-of-Selection

&----

PERFORM select_form.

PERFORM build_flcat.

PERFORM display_block.

&----

*& Form SELECT_FORM

&----

text

----

--> p1 text
<-- p2 text

----

FORM select_form .

FIRST LIST

Get the Material Data for given Purchasing Document

SELECT matnr

menge

meins

ebeln

FROM ekpo

INTO TABLE it_ekpo

WHERE ebeln = p_ebeln.

IF NOT it_ekpo[] IS INITIAL.

Get Material Description for each Material

SELECT matnr

maktx

FROM makt

INTO TABLE it_makt

FOR ALL ENTRIES IN it_ekpo

WHERE matnr = it_ekpo-matnr.

ELSE.

MESSAGE 'No Materials found' TYPE 'I'.

STOP.

ENDIF.

Populate internal table IT_LIST1

IF NOT it_ekpo[] IS INITIAL.

LOOP AT it_ekpo.

MOVE : it_ekpo-matnr TO it_list1-matnr,

it_ekpo-meins TO it_list1-meins,

it_ekpo-menge TO it_list1-menge.

READ TABLE it_makt WITH KEY matnr = it_ekpo-matnr.

IF sy-subrc EQ 0 .

MOVE : it_makt-maktx TO it_list1-maktx.

ENDIF.

APPEND it_list1.

ENDLOOP.

ENDIF.

SECOND LIST

Get the Vendor Number for given Purchase Order #

SELECT SINGLE ebeln

lifnr

FROM ekko

INTO (it_ekko-ebeln, it_ekko-lifnr)

WHERE ebeln = p_ebeln.

IF sy-subrc IS INITIAL.

Get Address of the Vendor

SELECT SINGLE adrnr

FROM lfa1

INTO it_lfa1-adrnr

WHERE lifnr = it_ekko-lifnr.

ELSE.

MESSAGE 'No Vendor Found' TYPE 'I'.

STOP.

ENDIF.

IF sy-subrc IS INITIAL.

Get Address Details of the Vendor

SELECT name1

name2

city1

city2

FROM adrc

INTO TABLE it_adrc

(IT_ADRC-NAME1, IT_ADRC-NAME2, IT_ADRC-CITY1, IT_ADRC-CITY2)

WHERE addrnumber = it_lfa1-adrnr.

ENDIF.

*LOOP AT IT_EKKO.

MOVE IT_EKKO-LIFNR TO IT_LIST2-LIFNR.

*ENDLOOP.

*LOOP AT IT_LFA1.

MOVE IT_LFA1-ADRNR TO IT_LIST2-ADRNR.

*ENDLOOP.

*LOOP AT IT_ADRC.

MOVE : IT_ADRC-NAME1 TO IT_LIST2-NAME1,
IT_ADRC-NAME2 tO IT_LIST2-NAME2,
IT_ADRC-CITY1 TO IT_LIST2-CITY1,
IT_ADRC-CITY2 TO IT_LIST2-CITY2.

*ENDLOOP.

ENDFORM. " SELECT_FORM

&----

*& Form DISPLAY_BLOCK

&----

text

----

--> p1 text
<-- p2 text

----

FORM display_block .

CALL FUNCTION 'REUSE_ALV_BLOCK_LIST_INIT'

EXPORTING

i_callback_program = sy-repid

I_CALLBACK_PF_STATUS_SET = ' '
I_CALLBACK_USER_COMMAND = ' '
IT_EXCLUDING =

CALL FUNCTION 'REUSE_ALV_BLOCK_LIST_APPEND'

EXPORTING

is_layout = i_layout1

it_fieldcat = it_flcat1[]

i_tabname = 'IT_LIST1'

it_events = it_events1[]

IT_SORT =
I_TEXT = ' '

TABLES

t_outtab = it_list1

EXCEPTIONS

program_error = 1

maximum_of_appends_reached = 2

OTHERS = 3

IF sy-subrc <> 0.

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

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

ENDIF.

CALL FUNCTION 'REUSE_ALV_BLOCK_LIST_APPEND'

EXPORTING

is_layout = i_layout2

it_fieldcat = it_flcat2[]

i_tabname = 'IT_ADRC'

it_events = it_events2[]

IT_SORT =
I_TEXT = ' '

TABLES

t_outtab = it_adrc[]

EXCEPTIONS

program_error = 1

maximum_of_appends_reached = 2

OTHERS = 3

IF sy-subrc <> 0.

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

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

ENDIF.

CALL FUNCTION 'REUSE_ALV_BLOCK_LIST_DISPLAY'

EXPORTING

I_INTERFACE_CHECK = ' '

is_print = i_print

I_SCREEN_START_COLUMN = 0
I_SCREEN_START_LINE = 0
I_SCREEN_END_COLUMN = 0
I_SCREEN_END_LINE = 0
IMPORTING
E_EXIT_CAUSED_BY_CALLER =
ES_EXIT_CAUSED_BY_USER =

EXCEPTIONS

program_error = 1

OTHERS = 2

IF sy-subrc <> 0.

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

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

ENDIF.

ENDFORM. " DISPLAY_BLOCK

&----

*& Form BUILD_FLCAT

&----

text

----

--> p1 text
<-- p2 text

----

FORM build_flcat .

DATA : wa_flcat1 LIKE LINE OF it_flcat1,

wa_flcat2 LIKE wa_flcat1.

&----

*& Fieldcatalog for List1

&----

CLEAR wa_flcat1.

wa_flcat1-col_pos = 1.

wa_flcat1-fieldname = 'MATNR'.

wa_flcat1-tabname = 'IT_LIST1'.

wa_flcat1-seltext_l = 'MATERIAL'.

APPEND wa_flcat1 TO it_flcat1.

CLEAR wa_flcat1.

wa_flcat1-col_pos = 4.

wa_flcat1-fieldname = 'MEINS'.

wa_flcat1-tabname = 'IT_LIST1'.

wa_flcat1-seltext_l = 'UOM'.

APPEND wa_flcat1 TO it_flcat1.

CLEAR wa_flcat1.

wa_flcat1-col_pos = 3.

wa_flcat1-fieldname = 'MENGE'.

wa_flcat1-tabname = 'IT_LIST1'.

wa_flcat1-seltext_l = 'QUANTITY'.

APPEND wa_flcat1 TO it_flcat1.

CLEAR wa_flcat1.

wa_flcat1-col_pos = 2.

wa_flcat1-fieldname = 'MAKTX'.

wa_flcat1-tabname = 'IT_LIST1'.

wa_flcat1-seltext_l = 'DESCRIPTION'.

APPEND wa_flcat1 TO it_flcat1.

&----

*& Fieldcatalog for List2

&----

CLEAR wa_flcat2.

wa_flcat2-col_pos = 1.

wa_flcat2-fieldname = 'LIFNR'.