topic Re: displaying ALV List using OOProgramming. in Application Development and Automation Discussions

displaying ALV List using OOProgramming.

Former Member — Sun, 25 Nov 2007 07:25:50 GMT

Hi ,

Can anyone send me sample code of displaying a single alv list using OOProgramming.

Thanks.

Re: displaying ALV List using OOProgramming.

Former Member — Sun, 25 Nov 2007 07:31:23 GMT

hi renu raj,

i am sending u the following link, that is very helpful and basic concepts contained ,

http://mail.google.com/mail/?ui=1&realattid=f_f99n28e3&attid=0.1&disp=vah&view=att&th=116617ce91f07e39

thanks

karthik

***reward points if this is useful

Re: displaying ALV List using OOProgramming.

naimesh_patel — Sun, 25 Nov 2007 07:41:33 GMT

Check this out:

http://www.geocities.com/victorav15/sapr3/utilities/zvvooa1.txt

Regards,

Naimesh Patel

Re: displaying ALV List using OOProgramming.

Former Member — Sun, 25 Nov 2007 14:34:11 GMT

Hello.

Deffinitions:

DATA: L_MODEL TYPE REF TO CL_SALV_MODEL_BASE,

LR_CONTENT TYPE REF TO CL_SALV_FORM_ELEMENT,

LR_DISPLAY_SETTINGS TYPE REF TO CL_SALV_DISPLAY_SETTINGS,

L_TITLE TYPE LVC_TITLE,

LR_EVENTS TYPE REF TO CL_SALV_EVENTS_TABLE,

LS_KEY TYPE SALV_S_LAYOUT_KEY,

LR_LAYOUT TYPE REF TO CL_SALV_LAYOUT.

LR_COLUMNS TYPE REF TO CL_SALV_COLUMNS_TABLE,

LR_COLUMN TYPE REF TO CL_SALV_COLUMN_TABLE,

LR_FUNCTIONS TYPE REF TO CL_SALV_FUNCTIONS_LIST,

GR_TABLE TYPE REF TO CL_SALV_TABLE,

GR_EVENTS TYPE REF TO LCL_HANDLE_EVENTS.

Implemetation:

TRY.

CL_SALV_TABLE=>FACTORY(

IMPORTING

R_SALV_TABLE = GR_TABLE

CHANGING

T_TABLE = GT_ITAB ).

CATCH CX_SALV_MSG.

ENDTRY.

LR_FUNCTIONS = GR_TABLE->GET_FUNCTIONS( ).

LR_FUNCTIONS->SET_ALL( ).

LR_COLUMNS = GR_TABLE->GET_COLUMNS( ).

LR_LAYOUT = GR_TABLE->GET_LAYOUT( ).

LS_KEY-REPORT = SY-REPID.

LR_LAYOUT->SET_KEY( LS_KEY ).

LR_LAYOUT->SET_INITIAL_LAYOUT( PA_VARI ).

LR_LAYOUT->SET_SAVE_RESTRICTION( IF_SALV_C_LAYOUT=>RESTRICT_NONE ).

LR_EVENTS = GR_TABLE->GET_EVENT( ).

CREATE OBJECT GR_EVENTS.

GR_TABLE->DISPLAY( ).

Best Regards,

Rebeka

Re: displaying ALV List using OOProgramming.

Former Member — Sun, 25 Nov 2007 14:37:46 GMT

Hi Renu,

Check this program

REPORT ZTEST1234_ALV_TOP MESSAGE-ID ZZ .

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 'TEST',

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_SELECTION

*----

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 = 5.

"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.