Problem in container Alv

Former Member — Mon, 07 Nov 2005 08:47:15 GMT

Hi all,

I am using the ALV Split container to display of sales related data & Purchase related data in 2 different container in ALV.

Now when i use the download list . it only download the data of container 1 .

How to download the data of boths the container in single excel file.

If any of in forum has sample program , pls send me ..

Its urgent.

Regards

Niraj Kumar

Re: Problem in container Alv

Former Member — Mon, 07 Nov 2005 09:33:50 GMT

plz check this pogram..reward points if it helps you

&----

*& Report RSDEMO_EASY_SPLITTER_CONTROL *

*& *

&----

*& *

&----

REPORT rsdemo_easy_splitter_control .

splitter control

DATA splitter TYPE REF TO cl_gui_easy_splitter_container.

container for the splitter control

DATA container TYPE REF TO cl_gui_custom_container.

DATA: gs_layout type lvc_s_layo.

DATA: gs1_layout type lvc_s_layo.

containers created by the splitter control

DATA container_1 TYPE REF TO cl_gui_container.

DATA container_2 TYPE REF TO cl_gui_container.

picture controls

DATA picture_1 TYPE REF TO cl_gui_picture.

DATA picture_2 TYPE REF TO cl_gui_picture.

DATA:grid_obj1 type ref to cl_gui_alv_grid.

data:ftab type lvc_t_fcat,

ftab1 like line of ftab.

data:grid_obj2 type ref to cl_gui_alv_grid.

data:mtab type lvc_t_fcat,

mtab1 like line of mtab.

load control framework definition

tables:MARA,MAKT.

TYPE-POOLS cndp.

DATA init.

DATA ok_code TYPE sy-ucomm.

DATA:BEGIN OF ITAB OCCURS 0,

MATNR LIKE MARA-MATNR,

MATKL LIKE MARA-MATKL,

MTART LIKE MARA-MTART,

MAKTX LIKE MAKT-MAKTX,

END OF ITAB.

DATA: BEGIN OF JTAB OCCURS 0,

MATNR LIKE MARA-MATNR,

MATKL LIKE MARA-MATKL,

MTART LIKE MARA-MTART,

MAKTX LIKE MAKT-MAKTX,

END OF JTAB.

START-OF-SELECTION.

CALL SCREEN 100.

&----

*& Module STATUS_0100 OUTPUT

&----

text

----

MODULE status_0100 OUTPUT.

SET PF-STATUS 'STATUS'.

IF init is initial.

SELECT a~MATNR a~MATKL a~MTART B~MAKTX INTO CORRESPONDING FIELDS OF

TABLE ITAB FROM MARA AS A INNER JOIN MAKT AS B ON A~MATNR = B~MATNR.

IF SY-SUBRC = 0.

perform appl_alv using 'MATNR' 'MARA' 'MAT. NUMBER'.

perform appl_alv using 'MTART' 'MARA' 'MAT. TYPE'.

perform appl_alv using 'MATKL' 'MARA' 'MAT. GROUP'.

perform appl_alv using 'MAKTX' 'MAKT' 'MAT. DESCRIPTION'.

*ELSE.

*MESSAGE E001(111) WITH 'RECORD NOT FOUND'.

ENDIF.

SELECT a_{MATNR a}MATKL a_{MTART B}MAKTX INTO CORRESPONDING FIELDS OF

TABLE JTAB FROM MARA AS A INNER JOIN MAKT AS B ON A_{MATNR = B}MATNR.

IF SY-SUBRC = 0.

perform appl1_alv using 'MATNR' 'MARA' 'MAT. NUMBER'.

perform appl1_alv using 'MTART' 'MARA' 'MAT. TYPE'.

perform appl1_alv using 'MATKL' 'MARA' 'MAT. GROUP'.

perform appl1_alv using 'MAKTX' 'MAKT' 'MAT. DESCRIPTION'.

*ELSE.

*MESSAGE E001(111) WITH 'RECORD NOT FOUND'.

ENDIF.

create a container for the splitter control

CREATE OBJECT container

EXPORTING container_name = 'CUSTOM'.

create the splitter control

CREATE OBJECT splitter

EXPORTING parent = container

orientation = 1.

get the containers of the splitter control

container_1 = splitter->top_left_container.

container_2 = splitter->bottom_right_container.

create object grid_obj1

exporting i_parent = container_1.

gs_layout-grid_title = 'List Of MATERIAL Order'.

create object grid_obj2

exporting i_parent = container_2.

gs1_layout-grid_title = 'List Of MATERIAL Order'.

call method grid_obj1->set_table_for_first_display

exporting is_layout = gs_layout

changing it_outtab = itab[]

it_fieldcatalog = ftab.

call method grid_obj2->set_table_for_first_display

exporting is_layout = gs1_layout

changing it_outtab = jtab[]

it_fieldcatalog = mtab.

init = 'X'.

CALL METHOD cl_gui_cfw=>flush

EXCEPTIONS cntl_system_error = 1.

IF sy-subrc <> 0.

error handling

ENDIF.

endif.

ENDMODULE. " STATUS_0100 OUTPUT

&----

*& Module EXIT INPUT

&----

text

----

MODULE exit INPUT.

CALL METHOD container->free.

LEAVE PROGRAM.

ENDMODULE. " EXIT INPUT

&----

*& Form LOAD_PIC_FROM_DB

&----

text

----

&----

*& Form appl_alv

&----

text

----

-->P_0173 text
-->P_0174 text
-->P_0175 text

----

form appl_alv using flnm tbnm clnm.

ftab1-fieldname = flnm.

ftab1-tabname = tbnm.

ftab1-coltext = clnm.

append ftab1 to ftab.

clear ftab1.

endform. " appl_alv

&----

*& Form appl1_alv

&----

text

----

-->P_0246 text
-->P_0247 text
-->P_0248 text

----

form appl1_alv using f1lnm t1bnm c1lnm.

mtab1-fieldname = f1lnm.

mtab1-tabname = t1bnm.

mtab1-coltext = c1lnm.

append mtab1 to mtab.

clear mtab1.

endform. " appl1_alv

topic Problem in container Alv in Application Development and Automation Discussions

Problem in container Alv

Re: Problem in container Alv