topic Re: Regarding the interactive alv in Application Development and Automation Discussions

Regarding the interactive alv

Former Member — Mon, 07 Jan 2008 06:18:44 GMT

hi,

This is my requirement.

iam displaying the PO and Vendor in the basic list.

and i want to perform these actions below.

On Clicking on PO should go to PO Display and on Vendor to Vedor master

Please provide me the code for this

Thanks in advance

Re: Regarding the interactive alv

Former Member — Mon, 07 Jan 2008 06:27:28 GMT

SET PARAMETER ID '< >' FIELD <field-name>.

CALL TRANSACTION '<tcode>' AND SKIP FIRST SCREEN.

Madhavi

Re: Regarding the interactive alv

Former Member — Mon, 07 Jan 2008 06:28:56 GMT

Write ur code with the help of this code

WHEN 'VGBEL'.

SET PARAMETER ID 'AUN' FIELD GS_LIPS-VGBEL.

CALL TRANSACTION 'VA03' AND SKIP FIRST SCREEN.

whne-------delivery'.

SET PARAMETER ID 'BES' FIELD GS_LIPS-VGBEL.

CALL TRANSACTION 'ME23N' AND SKIP FIRST SCREEN.

ENDIF.

WHEN OTHERS.

SET PARAMETER ID 'VL' FIELD GS_LIPS-VBELN.

CALL TRANSACTION 'VL03N' AND SKIP FIRST SCREEN.

ENDCASE.

This is the complete pgm for all ALV options

&----

*& Report ZCHECKALV_EXAMPLE *

*& *

&----

*& *

&----

REPORT zcheckalv_example

NO STANDARD PAGE HEADING.

Tables

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

TABLES sflight.

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

Includes

INCLUDE <icon>.

INCLUDE <symbol>.

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

Type-Pools

TYPE-POOLS: slis.

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

Constants

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

CONSTANTS: c_formname_top_of_page TYPE slis_formname VALUE 'TOP_OF_PAGE'

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

Intenal Table for ALV

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

DATA: i_fieldcat TYPE slis_t_fieldcat_alv,

i_layout TYPE slis_layout_alv,

i_sp_group TYPE slis_t_sp_group_alv,

i_events TYPE slis_t_event,

i_print TYPE slis_print_alv,

i_sort TYPE slis_t_sortinfo_alv.

DATA: i_list_top_of_page TYPE slis_t_listheader.

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

*Internal Table for data to be displayed

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

DATA: BEGIN OF i_sflight OCCURS 0.

INCLUDE STRUCTURE sflight.

DATA: box,

lights.

DATA: END OF i_sflight.

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

Variable

DATA: w_repid LIKE sy-repid,

w_boxnam TYPE slis_fieldname VALUE 'BOX',

w_f2code LIKE sy-ucomm VALUE '&ETA',

w_lignam TYPE slis_fieldname VALUE 'LIGHTS',

w_save(1) TYPE c,

w_default(1) TYPE c,

w_exit(1) TYPE c,

i_variant LIKE disvariant,

i_variant1 LIKE disvariant.

Selection Screen

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

SELECT-OPTIONS s_carrid FOR sflight-carrid.

SELECT-OPTIONS s_connid FOR sflight-connid.

SELECT-OPTIONS s_fldate FOR sflight-fldate.

*SELECTION-SCREEN SKIP 1.

PARAMETERS: p_maxrow TYPE i DEFAULT 30."to limit the selection

SELECTION-SCREEN SKIP 1.

Variant for ALV display

SELECTION-SCREEN BEGIN OF BLOCK 0 WITH FRAME TITLE text-000.

PARAMETERS: p_varnt LIKE disvariant-variant.

SELECTION-SCREEN END OF BLOCK 0.

Layout of the report display

SELECTION-SCREEN BEGIN OF BLOCK a WITH FRAME TITLE text-001.

PARAMETERS: p_zebra AS CHECKBOX DEFAULT ' ', "Striped pattern

p_nocolh AS CHECKBOX DEFAULT ' ', "No column heading

p_novlin AS CHECKBOX DEFAULT ' ', "No vertical lines

p_colopt AS CHECKBOX DEFAULT ' ', "Optimizes col. wd

p_keyhot AS CHECKBOX DEFAULT ' ', "Key fields hot

p_noinpt AS CHECKBOX DEFAULT ' '. "No field for input

SELECTION-SCREEN END OF BLOCK a.

SELECTION-SCREEN BEGIN OF BLOCK b WITH FRAME TITLE text-002.

PARAMETERS: p_lights AS CHECKBOX DEFAULT 'X',

p_lightc AS CHECKBOX DEFAULT 'X'.

SELECTION-SCREEN END OF BLOCK b.

SELECTION-SCREEN BEGIN OF BLOCK c WITH FRAME TITLE text-003.

PARAMETERS: p_totonl AS CHECKBOX DEFAULT ' ',

p_totext(60),

p_sttext(60).

SELECTION-SCREEN END OF BLOCK c.

SELECTION-SCREEN BEGIN OF BLOCK d WITH FRAME TITLE text-004.

PARAMETERS: p_chkbox AS CHECKBOX DEFAULT 'X',

p_detpop AS CHECKBOX DEFAULT 'X',

p_groupb AS CHECKBOX DEFAULT ' ',

p_groups AS CHECKBOX DEFAULT ' '.

SELECTION-SCREEN END OF BLOCK d.

SELECTION-SCREEN BEGIN OF BLOCK e WITH FRAME TITLE text-005.

PARAMETERS: p_print AS CHECKBOX DEFAULT ' ',

p_nosinf AS CHECKBOX DEFAULT ' ',

p_nocove AS CHECKBOX DEFAULT ' ',

p_nonewp AS CHECKBOX DEFAULT ' ',

p_nolinf AS CHECKBOX DEFAULT ' ',

p_reserv TYPE i.

SELECTION-SCREEN END OF BLOCK e.

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

AT SELECTION-SCREEN.

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

Process on value request (list of possible variants)

AT SELECTION-SCREEN ON VALUE-REQUEST FOR p_varnt.

PERFORM f4_for_variant.

AT SELECTION-SCREEN.

PERFORM pai_of_selection_screen.

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

*INITIALIZATION.

INITIALIZATION.

w_repid = sy-repid.

Set Options: save variant userspecific or general
'A or 'U' are for user-specific variants list
'X' or 'space' for general

w_save = 'A'.

PERFORM variant_init.

*----- Get default variant

i_variant1 = i_variant.

CALL FUNCTION 'REUSE_ALV_VARIANT_DEFAULT_GET'

EXPORTING

i_save = w_save

CHANGING

cs_variant = i_variant1

EXCEPTIONS

not_found = 2.

IF sy-subrc = 0.

p_varnt = i_variant1-variant.

ENDIF.

*----- Getting Events

PERFORM eventtab_build USING i_events.

*----- Even Top of Page

PERFORM comment_build USING i_list_top_of_page.

*----- Creating Special Group

PERFORM sp_group_build USING i_sp_group.

*----- Mentioning Sort Details

PERFORM t_sort_build USING i_sort.

*----- Filling Fieldcatalog

PERFORM fieldcat_init USING i_fieldcat.

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

*START-OF-SELECTION

START-OF-SELECTION.

PERFORM selection.

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

*END-OF-SELECTION

END-OF-SELECTION.

*----- Creating Layout for Report

PERFORM layout_build USING i_layout. "wg. Parameters

*----- Mentioning Print Parameters

PERFORM print_build USING i_print. "wg. Parameters

*----- Display Report

PERFORM disply_report.

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

----

FORM F4_FOR_VARIANT *

----

FORM f4_for_variant.

CALL FUNCTION 'REUSE_ALV_VARIANT_F4'

EXPORTING

is_variant = i_variant

i_save = w_save

it_default_fieldcat =

IMPORTING

e_exit = w_exit

es_variant = i_variant1

EXCEPTIONS

not_found = 2.

IF sy-subrc = 2.

MESSAGE ID sy-msgid TYPE 'S' NUMBER sy-msgno

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

ELSE.

IF w_exit = space.

p_varnt = i_variant1-variant.

ENDIF.

ENDFORM. "f4_for_variant

&----

*& Form PAI_OF_SELECTION_SCREEN

&----

to check whether right variant is entered on the selection scr

----

FORM pai_of_selection_screen.

IF NOT p_varnt IS INITIAL.

MOVE i_variant TO i_variant1.

MOVE p_varnt TO i_variant1-variant.

CALL FUNCTION 'REUSE_ALV_VARIANT_EXISTENCE'

EXPORTING

i_save = w_save

CHANGING

cs_variant = i_variant1.

i_variant = i_variant1.

ELSE.

PERFORM variant_init.

ENDIF.

ENDFORM. " PAI_OF_SELECTION_SCREEN

&----

*& Form VARIANT_INIT

----

FORM variant_init.

CLEAR i_variant.

i_variant-report = w_repid.

ENDFORM. " VARIANT_INIT

----

FORM EVENTTAB_BUILD *

----

--> l_EVENTS *

----

FORM eventtab_build USING l_events TYPE slis_t_event.

DATA: ls_event TYPE slis_alv_event.

CALL FUNCTION 'REUSE_ALV_EVENTS_GET'

EXPORTING

i_list_type = 0

IMPORTING

et_events = l_events.

READ TABLE l_events WITH KEY name = slis_ev_top_of_page INTO ls_event.

IF sy-subrc = 0.

MOVE c_formname_top_of_page TO ls_event-form.

APPEND ls_event TO l_events.

ENDIF.

ENDFORM. "eventtab_build

----

FORM TOP_OF_PAGE *

----

........ *

----

FORM top_of_page.

CALL FUNCTION 'REUSE_ALV_COMMENTARY_WRITE'

EXPORTING

i_logo = 'ENJOYSAP_LOGO'

it_list_commentary = i_list_top_of_page.

ENDFORM. "top_of_page

----

FORM COMMENT_BUILD *

----

--> L_TOP_OF_PAGE *

----

FORM comment_build USING l_top_of_page TYPE slis_t_listheader.

DATA: ls_line TYPE slis_listheader.

***Header

CLEAR ls_line.

ls_line-typ = 'H'.

LS_LINE-KEY: not used for this type

ls_line-info = 'Heading list'.

APPEND ls_line TO l_top_of_page.

***Selection

CLEAR ls_line.

ls_line-typ = 'S'.

ls_line-key = 'Key 1'.

ls_line-info = 'Information'.

APPEND ls_line TO l_top_of_page.

ls_line-key = 'Key 2'.

APPEND ls_line TO l_top_of_page.

***Action

CLEAR ls_line.

ls_line-typ = 'A'.

LS_LINE-KEY: not used for this type

ls_line-info = 'Status list'.

APPEND ls_line TO l_top_of_page.

ENDFORM. "comment_build

----

FORM SP_GROUP_BUILD *

----

--> L_SP_GROUP *

----

FORM sp_group_build USING l_sp_group TYPE slis_t_sp_group_alv.

DATA: ls_sp_group TYPE slis_sp_group_alv.

*Fields are assigned to the special group

CLEAR ls_sp_group.

ls_sp_group-sp_group = 'A'.

ls_sp_group-text = 'Reservation status'.

APPEND ls_sp_group TO l_sp_group.

CLEAR ls_sp_group.

ls_sp_group-sp_group = 'B'.

ls_sp_group-text = 'Flight charges'.

APPEND ls_sp_group TO l_sp_group.

ENDFORM. "sp_group_build

----

FORM T_SORT_BUILD *

----

FORM t_sort_build USING l_sort TYPE slis_t_sortinfo_alv.

DATA: ls_sort TYPE slis_sortinfo_alv.

ls_sort-fieldname = 'CARRID'.

ls_sort-spos = 1.

ls_sort-up = 'X'.

ls_sort-subtot = 'X'.

APPEND ls_sort TO l_sort.

ENDFORM. "t_sort_build

----

FORM FIELDCAT_INIT *

----

--> L_FIELDCAT *

----

FORM fieldcat_init USING l_fieldcat TYPE slis_t_fieldcat_alv.

DATA: ls_fieldcat TYPE slis_fieldcat_alv.

CLEAR ls_fieldcat.

ls_fieldcat-fieldname = 'SEATSOCC'.

*The field is not displayed in the initial output, can be interactively

chosen for display

ls_fieldcat-no_out = 'X'.

*This field is assigned to a special group with tech. key 'A' and can be

*displayed using the special group buttons

ls_fieldcat-sp_group = 'A'.

*The field cannot be summed irrespective of its data type

ls_fieldcat-no_sum = 'X'.

APPEND ls_fieldcat TO l_fieldcat.

CLEAR ls_fieldcat.

ls_fieldcat-fieldname = 'SEATSMAX'.

ls_fieldcat-no_out = 'X'.

ls_fieldcat-sp_group = 'A'.

APPEND ls_fieldcat TO l_fieldcat.

CLEAR ls_fieldcat.

ls_fieldcat-fieldname = 'PRICE'.

ls_fieldcat-no_out = 'X'.

ls_fieldcat-sp_group = 'B'.

APPEND ls_fieldcat TO l_fieldcat.

CLEAR ls_fieldcat.

ls_fieldcat-fieldname = 'CARRID'.

ls_fieldcat-outputlen = 7.

APPEND ls_fieldcat TO l_fieldcat.

ENDFORM. "fieldcat_init

----

FORM SELECTION *

----

FORM selection.

SELECT * FROM sflight INTO CORRESPONDING FIELDS OF TABLE i_sflight

UP TO p_maxrow ROWS WHERE carrid IN s_carrid

AND connid IN s_connid AND fldate IN s_fldate.

PERFORM data_add TABLES i_sflight.

ENDFORM. "selection

----

FORM DATA_ADD *

----

--> L_SFLIGHT

----

FORM data_add TABLES l_sflight STRUCTURE i_sflight.

LOOP AT l_sflight.

IF sy-tabix > 10.

l_sflight-box = 'X'.

l_sflight-lights = '3'.

ELSE.

IF sy-tabix = 1.

l_sflight-lights = '2'.

ELSE.

l_sflight-lights = '1'.

ENDIF.

MODIFY l_sflight.

ENDLOOP.

ENDFORM. "data_add

----

FORM LAYOUT_BUILD *

----

<-> LS_LAYOUT *

----

FORM layout_build USING ls_layout TYPE slis_layout_alv.

ls_layout-f2code = w_f2code.

ls_layout-zebra = p_zebra.

ls_layout-colwidth_optimize = p_colopt.

IF p_chkbox = 'X'.

*Fieldname for check box on the report output

ls_layout-box_fieldname = w_boxnam.

ELSE.

ls_layout-box_fieldname = space.

ENDIF.

ls_layout-no_input = p_noinpt.

ls_layout-no_vline = p_novlin.

ls_layout-no_colhead = p_nocolh.

IF p_lights = 'X' OR p_lightc = 'X'.

**Fieldname for lights on the report output

ls_layout-lights_fieldname = w_lignam.

ELSE.

CLEAR ls_layout-lights_fieldname.

ENDIF.

ls_layout-lights_condense = p_lightc.

ls_layout-totals_text = p_totext.

ls_layout-subtotals_text = p_sttext.

ls_layout-totals_only = p_totonl.

ls_layout-key_hotspot = p_keyhot.

ls_layout-detail_popup = p_detpop.

ls_layout-group_change_edit = p_groups.

E05_LS_LAYOUT-GROUP_BUTTONS = P_GROUPB.
ls_layout-group_buttons = 'X'.

ENDFORM. "layout_build

----

FORM PRINT_BUILD *

----

........ *

----

FORM print_build USING l_print TYPE slis_print_alv.

l_print-print = p_print.

l_print-no_print_selinfos = p_nosinf.

l_print-no_coverpage = p_nocove.

l_print-no_new_page = p_nonewp.

l_print-no_print_listinfos = p_nolinf.

l_print-reserve_lines = p_reserv.

l_print-print = p_print.

ENDFORM. "print_build

&----

*& Form disply_report

&----

text

----

--> p1 text
<-- p2 text

----

FORM disply_report .

CALL FUNCTION 'REUSE_ALV_FIELDCATALOG_MERGE'

EXPORTING

i_program_name = w_repid

i_internal_tabname = 'I_SFLIGHT'

i_structure_name = 'SFLIGHT'

i_client_never_display = 'X'

i_inclname = w_repid

CHANGING

ct_fieldcat = i_fieldcat[]

EXCEPTIONS

inconsistent_interface = 1

program_error = 2

OTHERS = 3.

IF sy-subrc <> 0.

MESSAGE ID sy-msgid TYPE 'S' NUMBER sy-msgno

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

ENDIF.

Call ABAP/4 List Viewer

CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'

EXPORTING

I_INTERFACE_CHECK = ' '

i_callback_program = w_repid

I_CALLBACK_PF_STATUS_SET = ' '
I_CALLBACK_USER_COMMAND = ' '
I_CALLBACK_TOP_OF_PAGE = ' '
I_CALLBACK_HTML_TOP_OF_PAGE = ' '
I_CALLBACK_HTML_END_OF_LIST = ' '

i_structure_name = 'SFLIGHT'

i_background_id = 'ALV_BACKGROUND'

I_GRID_TITLE =
I_GRID_SETTINGS =

is_layout = i_layout

it_fieldcat = i_fieldcat[]

IT_EXCLUDING =

it_special_groups = i_sp_group[]

it_sort = i_sort[]

IT_FILTER =
IS_SEL_HIDE =
I_DEFAULT = 'X'

i_save = w_save

is_variant = i_variant

it_events = i_events[]

IT_EVENT_EXIT =

is_print = i_print

IS_REPREP_ID =
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 =

TABLES

t_outtab = i_sflight

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.

CALL FUNCTION 'REUSE_ALV_LIST_DISPLAY'
EXPORTING
i_callback_program = w_repid
i_structure_name = 'SFLIGHT'
is_layout = i_layout
it_fieldcat = i_fieldcat[]

IT_EXCLUDING =

it_special_groups = i_sp_group[]
it_sort = i_sort[]

IT_FILTER =
IS_SEL_HIDE =
i_default = W_DEFAULT

i_save = w_save
is_variant = i_variant
it_events = i_events[]

IT_EVENT_EXIT =

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 =

TABLES
t_outtab = i_sflight.

ENDFORM. " disply_report

Re: Regarding the interactive alv

kesavadas_thekkillath — Mon, 07 Jan 2008 06:30:48 GMT

debug or check this simple program.......

&----

*& Report YPBC_ALV_INTERACTIVE *

*& *

&----

*& *

&----

REPORT YPBC_ALV_INTERACTIVE .

TABLES: KNA1,VBAP,VBAK.

TYPE-POOLS:SLIS.

SELECT-OPTIONS: CUSTOMER FOR KNA1-KUNNR.

DATA: BEGIN OF ITAB OCCURS 50,

KUNNR LIKE KNA1-KUNNR,

NAME1 LIKE KNA1-NAME1,

END OF ITAB.

DATA: BEGIN OF JTAB OCCURS 50,

VBELN LIKE VBAK-VBELN,

NETWR LIKE VBAK-NETWR,

END OF JTAB.

DATA: BEGIN OF KTAB OCCURS 50,

POSNR LIKE VBAP-POSNR,

MATNR LIKE VBAP-MATNR,

END OF KTAB.

DATA: F_KNA1 TYPE SLIS_T_FIELDCAT_ALV WITH HEADER LINE,

F_VBAK TYPE SLIS_T_FIELDCAT_ALV WITH HEADER LINE,

F_VBAP TYPE SLIS_T_FIELDCAT_ALV WITH HEADER LINE,

F_EVENTS TYPE SLIS_T_EVENT WITH HEADER LINE.

PERFORM GET_VAL.

&----

*& Form GET_VAL

&----

text

----

FORM GET_VAL.

F_KNA1-FIELDNAME = 'KUNNR'.

F_KNA1-REF_TABNAME = 'KNA1'.

F_KNA1-EMPHASIZE = 'C611'.

F_KNA1-HOTSPOT = 'X'.

APPEND F_KNA1.

F_KNA1-FIELDNAME = 'NAME1'.

F_KNA1-REF_TABNAME = 'KNA1'.

APPEND F_KNA1.

F_VBAK-FIELDNAME = 'VBELN'.

F_VBAK-REF_TABNAME = 'VBAK'.

APPEND F_VBAK.

F_VBAK-FIELDNAME = 'NETWR'.

F_VBAK-REF_TABNAME = 'VBAK'.

APPEND F_VBAK.

F_VBAP-FIELDNAME = 'POSNR'.

F_VBAP-REF_TABNAME = 'VBAP'.

APPEND F_VBAP.

F_VBAP-FIELDNAME = 'MATNR'.

F_VBAP-REF_TABNAME = 'VBAP'.

APPEND F_VBAP.

F_EVENTS-NAME = 'USER_COMMAND'.

F_EVENTS-FORM = 'VAL'.

APPEND F_EVENTS.

ENDFORM. "GET_VAL

START-OF-SELECTION.

SELECT KUNNR NAME1 FROM KNA1 INTO TABLE ITAB WHERE KUNNR IN CUSTOMER.

CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'

EXPORTING

I_CALLBACK_PROGRAM = SY-CPROG

I_STRUCTURE_NAME = 'ITAB'

IT_FIELDCAT = F_KNA1[]

IT_EVENTS = F_EVENTS[]

TABLES

T_OUTTAB = ITAB.

*&----

**& Form VAL

*&----

text

*----

-->USER_COMMANtext
-->CURSOR text

*----

FORM VAL USING USER_COMMAND LIKE SY-UCOMM CURSOR TYPE SLIS_SELFIELD.

DATA: CUST(10) TYPE N,

SEL(10) TYPE N,

MATN(10) TYPE C.

IF CURSOR-FIELDNAME = 'KUNNR'.

CUST = CURSOR-VALUE.

SELECT VBELN NETWR FROM VBAK INTO TABLE JTAB WHERE KUNNR = CUST.

CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'

EXPORTING

I_CALLBACK_PROGRAM = SY-REPID

I_STRUCTURE_NAME = 'JTAB'

IT_FIELDCAT = F_VBAK[]

IT_EVENTS = F_EVENTS[]

TABLES

T_OUTTAB = JTAB.

ENDIF.

IF CURSOR-FIELDNAME = 'VBELN'.

SEL = CURSOR-VALUE.

SELECT POSNR MATNR FROM VBAP INTO TABLE KTAB WHERE VBELN = SEL.

CALL FUNCTION 'REUSE_ALV_POPUP_TO_SELECT'

EXPORTING

I_TITLE = 'ITEM ORDER'

I_TABNAME = VBAP

IT_FIELDCAT = F_VBAP[]

I_CALLBACK_PROGRAM = SY-CPROG

IMPORTING

ES_SELFIELD = CURSOR

TABLES

T_OUTTAB = KTAB.

ENDIF.

IF CURSOR-FIELDNAME = 'MATNR'.

MATN = CURSOR-VALUE.

SET PARAMETER ID 'MAT' FIELD MATN.

CALL TRANSACTION 'MM03' AND SKIP FIRST SCREEN.

ENDIF.

ENDFORM.

END-OF-SELECTION.

Re: Regarding the interactive alv

Former Member — Mon, 07 Jan 2008 07:04:58 GMT

Hi,

Check the following link:

http://sap-img.com/abap/an-interactive-alv-report.htm

Regards,

Bhaskar

Re: Regarding the interactive alv

Former Member — Mon, 07 Jan 2008 07:18:54 GMT

Hi,

If it is an ALV report then try like this.

FORM user_command USING r_ucomm LIKE sy-ucomm

rs_selfield TYPE slis_selfield.

DATA: lv_lifnr LIKE ekko-lifnr,

lv_ebeln LIKE ekko-ebeln.

CHECK r_ucomm EQ '&IC1'.

CASE rs_selfield-fieldname.

WHEN 'LIFNR'.

lv_lifnr = rs_selfield-value.

SET PARAMETER ID 'LIF' FIELD lv_lifnr.

CALL TRANSACTION 'XK03' AND SKIP FIRST SCREEN.

(Otherwise write simple BDC to call XK03).

WHEN 'EBELN'.

lv_ebeln = rs_selfield-value.

CALL FUNCTION 'ME_DISPLAY_PURCHASE_DOCUMENT'

EXPORTING

i_ebeln = lv_ebeln

I_EBELP =
I_ENJOY = 'X'
I_PREVIEW =
I_DISPLAY_ONLY = ' '
I_EDIT = ' '

ENDCASE.

Rewards points if helpful.

Regards,

Srinivas Ch

Re: Regarding the interactive alv

graghavendra_sharma — Mon, 07 Jan 2008 08:05:10 GMT

Hello

This should help you:

REPORT zgrs_interactive_alv .

DATA: t_ekko TYPE STANDARD TABLE OF ekko WITH HEADER LINE.

DATA: wa_ekko LIKE LINE OF t_ekko.

DATA: w_field(30).

START-OF-SELECTION.

REFRESH t_ekko.

SELECT ebeln lifnr FROM ekko

INTO CORRESPONDING FIELDS OF TABLE t_ekko

UP TO 10 ROWS.

IF sy-subrc = 0.

LOOP AT t_ekko.

WRITE: / t_ekko-ebeln, t_ekko-lifnr.

ENDLOOP.

ENDIF.

AT LINE-SELECTION.

READ LINE sy-curow.

IF sy-subrc = 0.

GET CURSOR FIELD w_field.

CASE w_field.

WHEN 'T_EKKO-EBELN'.

SET PARAMETER ID 'BES' FIELD sy-lisel+0(10).

CALL TRANSACTION 'ME23N'.

WHEN 'T_EKKO-LIFNR'.

SET PARAMETER ID 'LIF' FIELD sy-lisel+11(4).

CALL TRANSACTION 'XK03'.

ENDCASE.

ENDIF.