ALV grid

Former Member · ‎10-06-2008

Hi ,

Is it possible to call multiple ALV in one screen which changes dynamically depending upon input data?

former_member188685 · ‎10-06-2008

yes

Former Member · ‎10-06-2008

Hi Vijay,

Can you please gide me.

former_member188685 · ‎10-06-2008

just search in general forum and also in ABAP object forum you get the samples

Former Member · ‎10-06-2008

hi Vijay,

I have already created one alv which is interactive using REUSE_ALV_GRID_DISPLAY.

former_member188685 · ‎10-06-2008

it is not possible with the function you mentioned, you have to use block list or oo Alv.

Former Member · ‎10-06-2008

Hi Vijay,

I got dis code while searching

MODULE status_0100 OUTPUT.

SET PF-STATUS 'ABC'.

CREATE OBJECT g_custom

EXPORTING container_name = 'CONT'.

CREATE OBJECT o_splitter

EXPORTING parent = g_custom

rows = 3

columns = 1.

CALL METHOD o_splitter->get_container

EXPORTING

row = 1

column = 1

RECEIVING

container = o_grid1.

CALL METHOD o_splitter->get_container

EXPORTING

row = 2

column = 1

RECEIVING

container = o_grid2.

CALL METHOD o_splitter->get_container

EXPORTING

row = 3

column = 1

RECEIVING

container = o_grid3.

cl_salv_table=>factory(

EXPORTING

r_container = o_grid1

IMPORTING

r_salv_table = salv1

CHANGING

t_table = it_flight

).

cl_salv_table=>factory(

EXPORTING

r_container = o_grid2

IMPORTING

r_salv_table = salv2

CHANGING

t_table = it_carr

).

cl_salv_table=>factory(

EXPORTING

r_container = o_grid3

IMPORTING

r_salv_table = salv3

CHANGING

t_table = it_book

).

CALL METHOD salv1->display.

CALL METHOD salv2->display.

CALL METHOD salv3->display.

But this cannot be used in my case because in mine alv can cross more than 50.

former_member188685 · ‎10-06-2008

>But this cannot be used in my case because in mine alv can cross more than 50.

what is more than 50

Former Member · ‎10-06-2008

Hi,

Check these 2 programs for knowing how to use Splitter container to display multiple ALVs on same page

RSDEMO_SPLITTER_CONTROL

BC_MEMORY_INSPECTOR

Cheers,

Kothand

Former Member · ‎10-06-2008

now the output is coming in list format where in they have written code using write statement in loop , which is creating 50 lists.

i am trying it to covert to alv . 50 means 50alv grid .Now i have created 1 interactive alv. All 50alv should be interactive.

former_member188685 · ‎10-06-2008

do you think 50 reports going to watch by some user. it is very interesting . for 50 reports you hav interactive also. i am scared .

Former Member · ‎10-06-2008

ya..... even i am scared .. but customer requirement .......can you tell is it possible... if not we can ask them to go for alternative.

Former Member · ‎10-06-2008

Hi,

I dont understand the requirement now... You are saying the report is now LIST format. But also you have mentioned output is written using WRITE statment which means it is classical report and not List report.

Is the report currently having 50 lists or 50 records?

Cheers,

Kothand

Former Member · ‎10-06-2008

Hi Harishitha

u must check this program may be it will help u.

&----

*& Report T_FILE_PARSE *

*& *

&----

*& Shows xml DOM parsing using the iXML DOM parser *

*& *

&----

report sample.

DATA: G_GRID TYPE REF TO CL_GUI_ALV_GRID.

DATA: L_VALID TYPE C,

V_FLAG,

V_DATA_CHANGE,

V_ROW TYPE LVC_S_ROW,

V_COLUMN TYPE LVC_S_COL,

V_ROW_NUM TYPE LVC_S_ROID.

"The Below Definitions Must.....

DATA:

*Reference to document

DG_DYNDOC_ID TYPE REF TO CL_DD_DOCUMENT,

*Reference to split container

DG_SPLITTER TYPE REF TO CL_GUI_SPLITTER_CONTAINER,

*

*Reference to grid container

DG_PARENT_GRID TYPE REF TO CL_GUI_CONTAINER,

*Reference to html container

DG_HTML_CNTRL TYPE REF TO CL_GUI_HTML_VIEWER,

*Reference to html container

DG_PARENT_HTML TYPE REF TO CL_GUI_CONTAINER.

"up to here

*----

*CLASS lcl_event_handler DEFINITION

*----

CLASS LCL_EVENT_HANDLER DEFINITION .

PUBLIC SECTION .

METHODS:

**Hot spot Handler

HANDLE_HOTSPOT_CLICK FOR EVENT HOTSPOT_CLICK OF CL_GUI_ALV_GRID

IMPORTING E_ROW_ID E_COLUMN_ID ES_ROW_NO,

**Double Click Handler

HANDLE_DOUBLE_CLICK FOR EVENT DOUBLE_CLICK OF CL_GUI_ALV_GRID

IMPORTING E_ROW E_COLUMN ES_ROW_NO,

TOP_OF_PAGE FOR EVENT TOP_OF_PAGE "event handler

OF CL_GUI_ALV_GRID

IMPORTING E_DYNDOC_ID.

ENDCLASS. "lcl_event_handler DEFINITION

*----

*CLASS lcl_event_handler IMPLEMENTATION

*----

CLASS LCL_EVENT_HANDLER IMPLEMENTATION.

*Handle Hotspot Click

METHOD HANDLE_HOTSPOT_CLICK .

CLEAR: V_ROW,V_COLUMN,V_ROW_NUM.

V_ROW = E_ROW_ID.

V_COLUMN = E_COLUMN_ID.

V_ROW_NUM = ES_ROW_NO.

*MESSAGE I000 WITH V_ROW 'clicked'.

ENDMETHOD. "lcl_event_handler

*Handle Double Click

METHOD HANDLE_DOUBLE_CLICK.

ENDMETHOD. "handle_double_click

METHOD TOP_OF_PAGE. "implementation

*Top-of-page event

PERFORM EVENT_TOP_OF_PAGE USING DG_DYNDOC_ID.

ENDMETHOD. "top_of_page

ENDCLASS. "LCL_EVENT_HANDLER IMPLEMENTATION

*&----

*& Global Definitions

*&----

DATA: G_CUSTOM_CONTAINER TYPE REF TO CL_GUI_CUSTOM_CONTAINER,"Container1

G_HANDLER TYPE REF TO LCL_EVENT_HANDLER. "handler

DATA: OK_CODE LIKE SY-UCOMM,

SAVE_OK LIKE SY-UCOMM,

G_CONTAINER1 TYPE SCRFNAME VALUE 'ALV_GRID',

GS_LAYOUT TYPE LVC_S_LAYO.

*Fieldcatalog for First and second Report

DATA: IT_FIELDCAT TYPE LVC_T_FCAT,

X_FIELDCAT TYPE LVC_S_FCAT,

LS_VARI TYPE DISVARIANT.

*----

*START-OF_SELE<CTION

*----

START-OF-SELECTION.

DATA:BEGIN OF ITAB OCCURS 0,

VBELN LIKE LIKP-VBELN,

POSNR LIKE LIPS-POSNR,

CELLCOLOR TYPE LVC_T_SCOL, "required for color

DROP(10),

END OF ITAB.

SELECT VBELN

POSNR

FROM LIPS

UP TO 20 ROWS

INTO CORRESPONDING FIELDS OF TABLE ITAB.

END-OF-SELECTION.

IF NOT ITAB[] IS INITIAL.

CALL SCREEN 100.

ELSE.

*MESSAGE I002 WITH 'NO DATA FOR THE SELECTION'(004).

ENDIF.

*&----

*& Form CREATE_AND_INIT_ALV

*&----

*text

*----

FORM CREATE_AND_INIT_ALV .

DATA: LT_EXCLUDE TYPE UI_FUNCTIONS.

"attention.....from here

"split your container here...into two parts

"create the container

CREATE OBJECT G_CUSTOM_CONTAINER

EXPORTING CONTAINER_NAME = G_CONTAINER1.

"this is for top of page

*Create TOP-Document

CREATE OBJECT DG_DYNDOC_ID

EXPORTING STYLE = 'ALV_GRID'.

*Create Splitter for custom_container

CREATE OBJECT DG_SPLITTER

EXPORTING PARENT = G_CUSTOM_CONTAINER

ROWS = 2

COLUMNS = 1.

*Split the custom_container to two containers and move the reference

*to receiving containers g_parent_html and g_parent_grid

"i am allocating the space for grid and top of page

CALL METHOD DG_SPLITTER->GET_CONTAINER

EXPORTING

ROW = 1

COLUMN = 1

RECEIVING

CONTAINER = DG_PARENT_HTML.

CALL METHOD DG_SPLITTER->GET_CONTAINER

EXPORTING

ROW = 2

COLUMN = 1

RECEIVING

CONTAINER = DG_PARENT_GRID.

"you can set the height of it

*Set height for g_parent_html

CALL METHOD DG_SPLITTER->SET_ROW_HEIGHT

EXPORTING

ID = 1

HEIGHT = 30.

"from here as usual..you need to specify parent as splitter part

"which we alloted for grid

CREATE OBJECT G_GRID

EXPORTING I_PARENT = DG_PARENT_GRID.

*Set a titlebar for the grid control

CLEAR GS_LAYOUT.

GS_LAYOUT-GRID_TITLE = TEXT-003.

GS_LAYOUT-ZEBRA = SPACE.

GS_LAYOUT-CWIDTH_OPT = 'X'.

GS_LAYOUT-NO_ROWMARK = 'X'.

GS_LAYOUT-CTAB_FNAME = 'CELLCOLOR'.

CALL METHOD G_GRID->REGISTER_EDIT_EVENT

EXPORTING

I_EVENT_ID = CL_GUI_ALV_GRID=>MC_EVT_ENTER.

CREATE OBJECT G_HANDLER.

SET HANDLER G_HANDLER->HANDLE_DOUBLE_CLICK FOR G_GRID.

SET HANDLER G_HANDLER->HANDLE_HOTSPOT_CLICK FOR G_GRID.

SET HANDLER G_HANDLER->TOP_OF_PAGE FOR G_GRID.

DATA: LS_CELLCOLOR TYPE LVC_S_SCOL. "required for color

DATA: L_INDEX TYPE SY-TABIX.

"Here i am changing the color of line 1,5,10...

"so you can change the color of font conditionally

LOOP AT ITAB.

L_INDEX = SY-TABIX.

IF L_INDEX = 1 OR L_INDEX = 5 OR L_INDEX = 10.

LS_CELLCOLOR-FNAME = 'VBELN'.

LS_CELLCOLOR-COLOR-COL = '6'.

LS_CELLCOLOR-COLOR-INT = '0'.

LS_CELLCOLOR-COLOR-INV = '1'.

APPEND LS_CELLCOLOR TO ITAB-CELLCOLOR.

MODIFY ITAB INDEX L_INDEX TRANSPORTING CELLCOLOR.

LS_CELLCOLOR-FNAME = 'POSNR'.

LS_CELLCOLOR-COLOR-COL = '6'.

LS_CELLCOLOR-COLOR-INT = '0'.

LS_CELLCOLOR-COLOR-INV = '1'.

APPEND LS_CELLCOLOR TO ITAB-CELLCOLOR.

MODIFY ITAB INDEX L_INDEX TRANSPORTING CELLCOLOR.

ENDIF.

ENDLOOP.

*setting focus for created grid control

CALL METHOD CL_GUI_CONTROL=>SET_FOCUS

EXPORTING

CONTROL = G_GRID.

*Build fieldcat and set editable for date and reason code

*edit enabled. Assign a handle for the dropdown listbox.

PERFORM BUILD_FIELDCAT.

PERFORM SET_DRDN_TABLE.

*Optionally restrict generic functions to 'change only'.

*(The user shall not be able to add new lines).

PERFORM EXCLUDE_TB_FUNCTIONS CHANGING LT_EXCLUDE.

**Vaiant to save the layout

LS_VARI-REPORT = SY-REPID.

LS_VARI-HANDLE = SPACE.

LS_VARI-LOG_GROUP = SPACE.

LS_VARI-USERNAME = SPACE.

LS_VARI-VARIANT = SPACE.

LS_VARI-TEXT = SPACE.

LS_VARI-DEPENDVARS = SPACE.

**Calling the Method for ALV output

CALL METHOD G_GRID->SET_TABLE_FOR_FIRST_DISPLAY

EXPORTING

IT_TOOLBAR_EXCLUDING = LT_EXCLUDE

IS_VARIANT = LS_VARI

IS_LAYOUT = GS_LAYOUT

I_SAVE = 'A'

CHANGING

IT_FIELDCATALOG = IT_FIELDCAT

IT_OUTTAB = ITAB[].

"do these..{

*Initializing document

CALL METHOD DG_DYNDOC_ID->INITIALIZE_DOCUMENT.

*Processing events

CALL METHOD G_GRID->LIST_PROCESSING_EVENTS

EXPORTING

I_EVENT_NAME = 'TOP_OF_PAGE'

I_DYNDOC_ID = DG_DYNDOC_ID.

"end }

*Set editable cells to ready for input initially

CALL METHOD G_GRID->SET_READY_FOR_INPUT

EXPORTING

I_READY_FOR_INPUT = 1.

ENDFORM. "CREATE_AND_INIT_ALV

*&----

*& Form EXCLUDE_TB_FUNCTIONS

*&----

*text

*----

*

*-->PT_EXCLUDE text

*----

FORM EXCLUDE_TB_FUNCTIONS CHANGING PT_EXCLUDE TYPE UI_FUNCTIONS.

*

*Only allow to change data not to create new entries (exclude

*generic functions).

DATA LS_EXCLUDE TYPE UI_FUNC.

LS_EXCLUDE = CL_GUI_ALV_GRID=>MC_FC_LOC_COPY_ROW.