Blocked ALV

[Former Member]

Hi All,

Iam displaying the Report using Blocked ALV, if we click on quote no it has to display VA23 screen. is this functionality possible in blocked ALV's? if yes please can u give me sample code?

[Former Member]

Hi Sreedhar,

Just copy paste this code you will get your desired functionality.

Just you need to replace table name,required fields.

Create a SCREEN ...

add custum cointainer in it and name...'XYZ'.

-

---

class lcl_event_receiver definition deferred.

DATA: OK_CODE LIKE SY-UCOMM,

code like ok_code,

G_CONTAINER(10),

GRID1 TYPE REF TO CL_GUI_ALV_GRID,

G_CUSTOM_CONTAINER TYPE REF TO CL_GUI_CUSTOM_CONTAINER.

data g_control type ref to CL_GUI_CONTROL .

DATA:

FS_LAYOUT TYPE LVC_S_LAYO.

DATA:

T_SFLIGHT LIKE STANDARD TABLE OF SFLIGHT,

event_receiver type ref to lcl_event_receiver.

DATA:

T_SBOOK LIKE STANDARD TABLE OF SBOOK.

DATA:

INDEX TYPE I VALUE 1.

CONSTANTS: CNTL_TRUE TYPE I VALUE 1,

CNTL_FALSE type i value 0.

data:

h_picture type ref to cl_gui_picture,

h_pic_container type ref to cl_gui_custom_container.

• class lcl_event_receiver: local class to handle event DOUBLE_CLICK

<b>class lcl_event_receiver definition.

public section.

methods:

handle_double_click

for event double_click of cl_gui_alv_grid

importing e_row e_column.

endclass.</b>

class lcl_event_receiver implementation.

method handle_double_click.

data: ls_sflight like line of t_sflight.

<b> call transaction 'VA23'.</b>

endmethod. "handle_double_click

endclass.

start-of-selection.

----

---

• MAIN *

----

---

SELECT * FROM SFLIGHT INTO CORRESPONDING FIELDS OF TABLE T_SFLIGHT.

CALL SCREEN 100.

----

---

• MODULE PBO OUTPUT *

----

---

MODULE PBO OUTPUT.

SET PF-STATUS 'MAIN100'.

G_CONTAINER = 'XYZ'.

IF G_CUSTOM_CONTAINER IS INITIAL.

CREATE OBJECT G_CUSTOM_CONTAINER

EXPORTING CONTAINER_NAME = G_CONTAINER.

CREATE OBJECT GRID1

EXPORTING I_PARENT = G_CUSTOM_CONTAINER.

CALL METHOD GRID1->SET_TABLE_FOR_FIRST_DISPLAY

EXPORTING I_STRUCTURE_NAME = 'SFLIGHT'

IS_LAYOUT = FS_LAYOUT

CHANGING IT_OUTTAB = T_SFLIGHT

.

ENDIF.

create object event_receiver.

set handler event_receiver->handle_double_click for grid1.

ENDMODULE.

----

---

• MODULE PAI INPUT *

----

---

MODULE PAI INPUT.

CODE = OK_CODE.

CLEAR OK_CODE.

CASE CODE.

WHEN 'EXIT'.

leave program.

WHEN OTHERS.

• do nothing

ENDCASE.

ENDMODULE.

I tested this code in my SAP system, I am sure that you will get your desired solution.

<b>Reward if helpful</b>

Reagards,

V.Raghavender.