Hotspot

[Former Member]

Hi Experts,

Please explain how to use Hot spot for more that 2 level in oridnary classical report and ALV report? .

Examples with sample code will be more useful ..

Points will be rewarded..

Thanks in advance...

[Former Member]

Hi Boopathy

change the code according to yoyur requirement

&----

---

*& Report ZJE_ALV_INTRACTIVE

*&

&----

---

*&

*&

&----

---

report zje_alv_intractive.

type-pools: slis.

tables: kna1,vbak.

types: begin of ty_kna1,

kunnr like kna1-kunnr,

land1 like kna1-land1,

name1 like kna1-name1,

ort01 like kna1-ort01,

end of ty_kna1.

types: begin of ty_vbak,

vbeln like vbak-vbeln,

erdat like vbak-erdat,

ernam like vbak-ernam,

• netwr LIKE vbak-netwr,

end of ty_vbak.

data: it_kna1 type table of ty_kna1,

wa_kna1 type ty_kna1,

it_vbak type table of ty_vbak,

wa_vbak type ty_vbak.

data: it_fieldcat type slis_t_fieldcat_alv,

wa_fieldcat type slis_fieldcat_alv,

it_event type slis_t_event,

wa_event type slis_alv_event,

it_listheader type slis_t_listheader,

wa_listheader type slis_listheader,

wa_layout type slis_layout_alv ,

hline type slis_listheader.

• wa_selfield TYPE slis_selfield.

data: i_title_kna1 type lvc_title value 'FIRST LIST DISPLAYED',

i_title_vbak type lvc_title value 'SECONDRY LIST DISPLAYED'.

select-options: s_kunnr for kna1-kunnr default 1000 to 1500.

selection-screen begin of block b2 with frame.

parameters: r1 radiobutton group g1 default 'X'.

parameters: r2 radiobutton group g1.

selection-screen end of block b2.

initialization.

perform layout.

perform fieldcat_kna1.

perform event.

perform eventpopulate.

start-of-selection.

perform datafetch_kna1.

if r1 = 'X'.

perform display.

endif.

if r2 = 'X'.

perform grid.

endif.

&----

---

*& Form fieldcat

&----

---

• text

----

---

form fieldcat_kna1.

**************FOR THE TABLE KNA1**********************

wa_fieldcat-fieldname = 'KUNNR'.

wa_fieldcat-seltext_l = 'CUSTOMER NUMBER'.

wa_fieldcat-datatype = 'CHAR'.

wa_fieldcat-outputlen = 10.

wa_fieldcat-tabname = 'IT_KNA1'.

wa_fieldcat-key = 'X'.

wa_fieldcat-hotspot = 'X'.

wa_fieldcat-col_pos = 1.

wa_fieldcat-emphasize = 'C11'.

append wa_fieldcat to it_fieldcat.

clear wa_fieldcat.

wa_fieldcat-fieldname = 'LAND1'.

wa_fieldcat-seltext_l = 'COUNTRY CODE'.

wa_fieldcat-datatype = 'CHAR'.

wa_fieldcat-outputlen = 10.

wa_fieldcat-tabname = 'IT_KNA1'.

wa_fieldcat-hotspot = 'X'.

wa_fieldcat-col_pos = 4.

wa_fieldcat-emphasize = 'C61'.

append wa_fieldcat to it_fieldcat.

clear wa_fieldcat.

wa_fieldcat-fieldname = 'NAME1'.

wa_fieldcat-seltext_l = 'CUSTOMER NAME'.

wa_fieldcat-datatype = 'CHAR'.

wa_fieldcat-outputlen = 15.

wa_fieldcat-tabname = 'IT_KNA1'.

wa_fieldcat-hotspot = 'X'.

wa_fieldcat-col_pos = 2.

wa_fieldcat-emphasize = 'C31'.

append wa_fieldcat to it_fieldcat.

clear wa_fieldcat.

wa_fieldcat-fieldname = 'ORT01'.

wa_fieldcat-seltext_l = 'COUNTRY '.

wa_fieldcat-datatype = 'CHAR'.

wa_fieldcat-outputlen = 10.

wa_fieldcat-tabname = 'IT_KNA1'.

wa_fieldcat-hotspot = 'X'.

wa_fieldcat-col_pos = 3.

wa_fieldcat-emphasize = 'C71'.

append wa_fieldcat to it_fieldcat.

clear wa_fieldcat.

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

endform. "fieldcat

&----

---

*& Form datafetch

&----

---

• text

----

---

form datafetch_kna1.

select kunnr land1 name1 ort01

from kna1

into table it_kna1

where kunnr in s_kunnr.

endform. "datafetch

&----

---

*& Form LAYOUT

&----

---

• text

----

---

form layout.

wa_layout-zebra = 'X'.

wa_layout-colwidth_optimize = 'X'.

endform. "LAYOUT

&----

---

*& Form display

&----

---

• text

----

---

form display.

call function 'REUSE_ALV_LIST_DISPLAY'

exporting

• I_INTERFACE_CHECK = ' '

• I_BYPASSING_BUFFER =

• I_BUFFER_ACTIVE = ' '

i_callback_program = sy-repid

• I_CALLBACK_PF_STATUS_SET =

i_callback_user_command = 'USER_COMMAND'

• I_STRUCTURE_NAME =

is_layout = wa_layout

it_fieldcat = it_fieldcat

• IT_EXCLUDING =

• IT_SPECIAL_GROUPS =

• IT_SORT =

• IT_FILTER =

• IS_SEL_HIDE =

• I_DEFAULT = 'X'

• I_SAVE = ' '

• IS_VARIANT =

it_events = it_event

• IT_EVENT_EXIT =

• IS_PRINT =

• IS_REPREP_ID =

• I_SCREEN_START_COLUMN = 0

• I_SCREEN_START_LINE = 0

• I_SCREEN_END_COLUMN = 0

• I_SCREEN_END_LINE = 0

• IR_SALV_LIST_ADAPTER =

• IT_EXCEPT_QINFO =

• I_SUPPRESS_EMPTY_DATA = ABAP_FALSE

• IMPORTING

• E_EXIT_CAUSED_BY_CALLER =

• ES_EXIT_CAUSED_BY_USER =

tables

t_outtab = it_kna1

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.

endform. "display

&----

---

*& Form GRID

&----

---

• text

----

---

• --> p1 text

• <-- p2 text

----

---

form grid .

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

call function 'REUSE_ALV_GRID_DISPLAY'

exporting

• I_INTERFACE_CHECK = ' '

• I_BYPASSING_BUFFER = ' '

• I_BUFFER_ACTIVE = ' '

i_callback_program = sy-repid

• I_CALLBACK_PF_STATUS_SET = ' '

i_callback_user_command = 'USER_COMMAND'

i_callback_top_of_page = 'TOP_OF_PAGE'

• I_CALLBACK_HTML_TOP_OF_PAGE = ' '

• I_CALLBACK_HTML_END_OF_LIST = ' '

• I_STRUCTURE_NAME =

• I_BACKGROUND_ID = ' '

i_grid_title = i_title_kna1

• I_GRID_SETTINGS =

is_layout = wa_layout

it_fieldcat = it_fieldcat

• IT_EXCLUDING =

• IT_SPECIAL_GROUPS =

• IT_SORT =

• IT_FILTER =

• IS_SEL_HIDE =

• I_DEFAULT = 'X'

• I_SAVE = ' '

• IS_VARIANT =

it_events = it_event

• IT_EVENT_EXIT =

• IS_PRINT =

• IS_REPREP_ID =

• I_SCREEN_START_COLUMN = 0

• I_SCREEN_START_LINE = 0

• I_SCREEN_END_COLUMN = 0

• I_SCREEN_END_LINE = 0

• I_HTML_HEIGHT_TOP = 0

• I_HTML_HEIGHT_END = 0

• IT_ALV_GRAPHICS =

• IT_HYPERLINK =

• IT_ADD_FIELDCAT =

• IT_EXCEPT_QINFO =

• IR_SALV_FULLSCREEN_ADAPTER =

• IMPORTING

• E_EXIT_CAUSED_BY_CALLER =

• ES_EXIT_CAUSED_BY_USER =

tables

t_outtab = it_kna1

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.

endform. "GRID

&----

---

*& Form EVENT

&----

---

• text

----

---

• --> p1 text

• <-- p2 text

----

---

form event .

call function 'REUSE_ALV_EVENTS_GET'

• EXPORTING

• i_list_type = 0

importing

et_events = it_event

exceptions

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

endform. " EVENT

&----

---

*& Form eventpopulate

&----

---

• text

----

---

• --> p1 text

• <-- p2 text

----

---

form eventpopulate .

read table it_event into wa_event with key name = 'TOP_OF_PAGE'.

if sy-subrc eq 0.

wa_event-form = 'TOP_OF_PAGE'.

modify it_event from wa_event transporting form where name = wa_event-name.

endif.

read table it_event into wa_event with key name = 'END_OF_LIST'.

if sy-subrc eq 0.

wa_event-form = 'END_OF_LIST'.

modify it_event from wa_event transporting form where name = wa_event-name.

endif.

read table it_event into wa_event with key name = 'USER_COMMAND'.

if sy-subrc eq 0.

wa_event-form = 'USER_COMMAND'.

modify it_event from wa_event transporting form where name = wa_event-name.

endif.

endform. " eventpopulate

&----

---

*& Form top-of-page

&----

---

• text

----

---

form top_of_page.

hline-typ = 'H'.

hline-info = 'Customer Details'.

append hline to it_listheader.

clear hline.

call function 'REUSE_ALV_COMMENTARY_WRITE'

exporting

it_list_commentary = it_listheader

i_logo = 'JELOGO'

• I_END_OF_LIST_GRID =

• I_ALV_FORM =

.

refresh it_listheader.

endform. "top-of-page

&----

---

*& Form END-OF-PAGE

&----

---

• text

----

---

form end_of_list.

write:/ 'JAGADISH RAJ KUMAR'.

endform. "end-of-LIST

&----

---

*& Form USER-COMMAND

&----

---

• text

----

---

• -->V_UCOMM text

----

---

form user_command

using u_comm type sy-ucomm

r_selfield type slis_selfield.

select kunnr vbeln erdat ernam

from vbak

into corresponding fields of table it_vbak

where kunnr = r_selfield-value.

perform fieldcat_vbak.

perform display_vbak.

endform. "USER-COMMAND

&----

---

*& Form FIELDCAT_VBAK

&----

---

• text

----

---

form fieldcat_vbak.

refresh it_fieldcat.

clear wa_fieldcat.

wa_fieldcat-fieldname = 'VBELN'.

wa_fieldcat-seltext_l = 'SALES ORDER'.

wa_fieldcat-datatype = 'CHAR'.

wa_fieldcat-outputlen = 10.

wa_fieldcat-tabname = 'IT_VBAK'.

wa_fieldcat-key = 'X'.

wa_fieldcat-hotspot = 'X'.

wa_fieldcat-col_pos = 1.

wa_fieldcat-emphasize = 'C11'.

append wa_fieldcat to it_fieldcat.

clear wa_fieldcat.

wa_fieldcat-fieldname = 'ERDAT'.

wa_fieldcat-seltext_l = 'CREATED ON'.

wa_fieldcat-datatype = 'DATS'.

wa_fieldcat-outputlen = 12.

wa_fieldcat-tabname = 'IT_VBAK'.

wa_fieldcat-hotspot = 'X'.

wa_fieldcat-col_pos = 3.

wa_fieldcat-emphasize = 'C51'.

append wa_fieldcat to it_fieldcat.

clear wa_fieldcat.

wa_fieldcat-fieldname = 'ERNAM'.

wa_fieldcat-seltext_l = 'CREATED BY'.

wa_fieldcat-datatype = 'CHAR'.

wa_fieldcat-outputlen = 15.

wa_fieldcat-tabname = 'IT_VBAK'.

wa_fieldcat-hotspot = 'X'.

wa_fieldcat-col_pos = 2.

wa_fieldcat-emphasize = 'C61'.

append wa_fieldcat to it_fieldcat.

clear wa_fieldcat.

• wa_fieldcat-cfieldname = 'NETWR'.

• wa_fieldcat-seltext_l = 'NET VALUE'.

• wa_fieldcat-datatype = 'CURR'.

• wa_fieldcat-outputlen = 10.

• wa_fieldcat-tabname = 'IT_VBAK'.

• wa_fieldcat-hotspot = 'X'.

• wa_fieldcat-col_pos = 4.

• APPEND wa_fieldcat TO it_fieldcat.

• CLEAR wa_fieldcat.

endform. "FIELDCAT_VBAK

*&----

---

*& Form DISPLAY_VBAK

&----

---

• text

----

---

• --> p1 text

• <-- p2 text

----

---

form display_vbak .

call function 'REUSE_ALV_GRID_DISPLAY'

exporting

• I_INTERFACE_CHECK = ' '

• I_BYPASSING_BUFFER = ' '

• I_BUFFER_ACTIVE = ' '

i_callback_program = sy-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 =

• I_BACKGROUND_ID = ' '

i_grid_title = i_title_vbak

• I_GRID_SETTINGS =

is_layout = wa_layout

it_fieldcat = it_fieldcat

• IT_EXCLUDING =

• IT_SPECIAL_GROUPS =

• IT_SORT =

• IT_FILTER =

• IS_SEL_HIDE =

• I_DEFAULT = 'X'

• I_SAVE = ' '

• IS_VARIANT =

it_events = it_event

• IT_EVENT_EXIT =

• IS_PRINT =

• IS_REPREP_ID =

• I_SCREEN_START_COLUMN = 0

• I_SCREEN_START_LINE = 0

• I_SCREEN_END_COLUMN = 0

• I_SCREEN_END_LINE = 0

• I_HTML_HEIGHT_TOP = 0

• I_HTML_HEIGHT_END = 0

• IT_ALV_GRAPHICS =

• IT_HYPERLINK =

• IT_ADD_FIELDCAT =

• IT_EXCEPT_QINFO =

• IR_SALV_FULLSCREEN_ADAPTER =

• IMPORTING

• E_EXIT_CAUSED_BY_CALLER =

• ES_EXIT_CAUSED_BY_USER =

tables

t_outtab = it_vbak

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.

endform. " DISPLAY_VBAK

Reward if help full

Regards

Lakshman

[naveen_inuganti2]

Hi....

w_filedcatfiled = 'VBELN'.

w_fieldcat-hotspot = 'x'.

here w_fieldcat is work area of the fieldact internal table...

with above code you can get hotspot for sales order field

and then only you can get secondary list wrt that field in alv reoprts.....

to get hot spot in classical report just edit rthe line of that field in write statement with 'hotspot'....

then you can easily identify the interactive column...

http://www.sapdev.co.uk/reporting/alv/alvgrid_editable.htm

thank you,

naveen.i

[Former Member]

Hi,

Check the code below:

START-OF-SELECTION.

WRITE 'Now comes a'.

FORMAT HOTSPOT ON COLOR 5 INVERSE ON.

WRITE 'HOTSPOT'.

FORMAT HOTSPOT OFF COLOR OFF.

AT LINE-SELECTION.

WRITE / 'New list AT-LINE-SELECTION'.

SKIP.

WRITE 'This is also a hotspot:'.

WRITE icon_list AS ICON HOTSPOT.

For multiple selection of lines you can use SET CURSOR and GET cursor or READ LINE.

Regards

Kannaiah

[Former Member]

Hi Boopathy,

Try this,it might be useful for you.

ALV Interactive Report with call transaction sample report./* &----

---

*& Report ZKAL_ALV_INTERACTIVE_1 *

*& *

&----

---

*& *

*& *

&----

---

REPORT ZKAL_ALV_INTERACTIVE_1 .

TYPE-POOLS: SLIS.

&----

---

TYPES: BEGIN OF TY_KNA1,

KUNNR TYPE KUNNR,

NAME1 TYPE NAME1,

ORT01 TYPE ORT01,

END OF TY_KNA1.

TYPES: BEGIN OF TY_VBAK,

VBELN TYPE VBELN,

ERNAM TYPE ERNAM,

ERDAT TYPE ERDAT,

NETWR TYPE NETWR,

WAERK TYPE WAERK,

END OF TY_VBAK.

&--

---

WORK AREA & TABLE DECLARATION--

---

DATA: W_KNA1 TYPE TY_KNA1.

DATA: T_KNA1 TYPE STANDARD TABLE OF TY_KNA1 INITIAL SIZE 1.

DATA: W_VBAK TYPE TY_VBAK.

DATA: T_VBAK TYPE STANDARD TABLE OF TY_VBAK INITIAL SIZE 1.

&--

---

FIELDCAT TABLE & WORK AREA--

---

DATA: W_FCAT TYPE SLIS_FIELDCAT_ALV.

DATA: T_FCAT TYPE SLIS_T_FIELDCAT_ALV.

&----

---

DATA: W_FCAT1 TYPE SLIS_FIELDCAT_ALV.

DATA: T_FCAT1 TYPE SLIS_T_FIELDCAT_ALV.

&--

---

EVENT TABLE AND WORK AREA--

---

DATA: W_EVENTS TYPE SLIS_ALV_EVENT.

DATA: T_EVENTS TYPE SLIS_T_EVENT.

&----

---

DATA: W_EVENTS1 TYPE SLIS_ALV_EVENT.

DATA: T_EVENTS1 TYPE SLIS_T_EVENT.

&--

---

COMMENT TABLE & WORK AREA--

---

DATA: W_COMMENT TYPE SLIS_LISTHEADER.

DATA: T_COMMENT TYPE SLIS_T_LISTHEADER.

&----

---

DATA: W_COMMENT1 TYPE SLIS_LISTHEADER.

DATA: T_COMMENT1 TYPE SLIS_T_LISTHEADER.

&----

---

APPENDING FCAT -

---

W_FCAT-COL_POS = 1.

W_FCAT-FIELDNAME = 'KUNNR'.

W_FCAT-SELTEXT_M = 'CUST. NO'.

W_FCAT-HOTSPOT = 'X'. "HOT SPOT HAND SYMBOL

W_FCAT-EMPHASIZE = 'C119'. "FOR COLORING THE COLUMN 1

APPEND W_FCAT TO T_FCAT.

CLEAR W_FCAT.

W_FCAT-COL_POS = 2.

W_FCAT-FIELDNAME = 'NAME1'.

W_FCAT-SELTEXT_M = 'CUST. NAME'.

APPEND W_FCAT TO T_FCAT.

W_FCAT-COL_POS = 3.

W_FCAT-FIELDNAME = 'ORT01'.

W_FCAT-SELTEXT_M = 'CITY'.

APPEND W_FCAT TO T_FCAT.

&----

---

W_FCAT1-COL_POS = 1.

W_FCAT1-FIELDNAME = 'VBELN'.

W_FCAT1-SELTEXT_M = 'ORDER NO'.

W_FCAT1-EMPHASIZE = 'C519'.

APPEND W_FCAT1 TO T_FCAT1.

CLEAR W_FCAT.

W_FCAT1-COL_POS = 2.

W_FCAT1-FIELDNAME = 'ERNAM'.

W_FCAT1-SELTEXT_M = 'NAME OF PARTY'.

APPEND W_FCAT1 TO T_FCAT1.

W_FCAT1-COL_POS = 3.

W_FCAT1-FIELDNAME = 'ERDAT'.

W_FCAT1-SELTEXT_M = 'DATE'.

APPEND W_FCAT1 TO T_FCAT1.

W_FCAT1-COL_POS = 4.

W_FCAT1-FIELDNAME = 'NETWR'.

W_FCAT1-SELTEXT_M = 'ORDER VALUE'.

APPEND W_FCAT1 TO T_FCAT1.

W_FCAT1-COL_POS = 5.

W_FCAT1-FIELDNAME = 'WAERK'.

W_FCAT1-SELTEXT_M = 'CURRENCY'.

APPEND W_FCAT1 TO T_FCAT1.

&--

---

APPEND COMMENTRY--

---

W_COMMENT-TYP = 'H'.

W_COMMENT-INFO = 'CUSTOMER DETAILS'.

APPEND W_COMMENT TO T_COMMENT.

CLEAR W_COMMENT.

&--

---

APPEND EVENTS TABLE--

---

W_EVENTS-NAME = 'TOP_OF_PAGE'.

W_EVENTS-FORM = 'TOPPAGE'.

APPEND W_EVENTS TO T_EVENTS.

W_EVENTS-NAME = 'USER_COMMAND'.

W_EVENTS-FORM = 'SUB2'.

APPEND W_EVENTS TO T_EVENTS.

W_EVENTS1-NAME = 'TOP_OF_PAGE'.

W_EVENTS1-FORM = 'TOPPAGE1'.

APPEND W_EVENTS1 TO T_EVENTS1.

CLEAR W_EVENTS1.

W_EVENTS1-NAME = 'USER_COMMAND'.

W_EVENTS1-FORM = 'SUB3'.

APPEND W_EVENTS1 TO T_EVENTS1.

&----

---

SELECT-OPTIONS: CUSTNO FOR W_KNA1-KUNNR.

&----

---

SELECT KUNNR

NAME1

ORT01 FROM KNA1 INTO TABLE T_KNA1

WHERE KUNNR IN CUSTNO.

CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'

EXPORTING

I_CALLBACK_PROGRAM = 'ZKAL_ALV_INTERACTIVE_12'

I_BACKGROUND_ID = 'BIKE'

I_GRID_TITLE = 'CUSTOMER DETAILS'

IT_FIELDCAT = T_FCAT

IT_EVENTS = T_EVENTS

TABLES

T_OUTTAB = T_KNA1 .

&----

---

FORM TOPPAGE.

CALL FUNCTION 'REUSE_ALV_COMMENTARY_WRITE'

EXPORTING

IT_LIST_COMMENTARY = T_COMMENT

I_LOGO = 'LOGO_ALV'.

ENDFORM. "END OF TOPPAGE SUB.

&----

---

FORM SUB2 USING UCOMM LIKE SY-UCOMM FIELDS1 TYPE SLIS_SELFIELD.

READ TABLE T_KNA1 INTO W_KNA1 INDEX FIELDS1-TABINDEX.

SELECT VBELN

ERNAM

ERDAT

NETWR

WAERK

FROM VBAK

INTO TABLE T_VBAK

WHERE KUNNR = W_KNA1-KUNNR.

&----

---

CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'

EXPORTING

I_CALLBACK_PROGRAM = 'ZKAL_ALV_INTERACTIVE_12'

I_BACKGROUND_ID = 'KALEEM'

I_GRID_TITLE = 'LIST OF ORDERS'

IT_FIELDCAT = T_FCAT1

IT_EVENTS = T_EVENTS1

TABLES

T_OUTTAB = T_VBAK.

ENDFORM. "END OF SUB2.

&----

---

FORM TOPPAGE1.

&--

---

APPEND COMMENTRYOF SECONDRY SCREEN--

---

W_COMMENT1-TYP = 'H'.

W_COMMENT1-INFO = 'LIST OF ORDERS'.

APPEND W_COMMENT1 TO T_COMMENT1.

W_COMMENT1-TYP = 'S'.

W_COMMENT1-KEY = 'CUSTOMER'.

W_COMMENT1-INFO = W_KNA1-KUNNR.

APPEND W_COMMENT1 TO T_COMMENT1.

CLEAR W_COMMENT.

W_COMMENT1-TYP = 'A'.

W_COMMENT1-INFO = W_KNA1-NAME1.

APPEND W_COMMENT1 TO T_COMMENT1.

CLEAR W_COMMENT1.

CALL FUNCTION 'REUSE_ALV_COMMENTARY_WRITE'

EXPORTING

IT_LIST_COMMENTARY = T_COMMENT1

I_LOGO = 'LOGO_ALV'

.

REFRESH T_COMMENT1.

ENDFORM. "END OF TOPPAGE1

&----

---

FORM SUB3 USING UCOMM LIKE SY-UCOMM FIELDS1 TYPE SLIS_SELFIELD.

READ TABLE T_VBAK INTO W_VBAK INDEX FIELDS1-TABINDEX.

SET PARAMETER ID 'AUN' FIELD W_VBAK-VBELN.

CALL TRANSACTION 'VA02' AND SKIP FIRST SCREEN.

ENDFORM.

&----

---

/

Reward points if useful.

Thanks & regards,

Khan.

[prasanth_kasturi]

hi.....

hot spot is of no use in classical reprts as its use for selecting a line through single click insted of double click.(EVENT: AT LINE_SELECTION)

so use it in interactive reports in following way.... use can use in classical also the same way

DATA : it_kna1 TYPE TABLE OF ty_kna1,

wa_kna1 TYPE ty_kna1.

SELECT-OPTIONS : s_kunnr FOR kna1-kunnr DEFAULT 1000 TO 1002.

*set pf-status 'BASIC'.

• slecting data for basic list(kna1)

SELECT kunnr name1 land1

FROM kna1

INTO TABLE it_kna1

WHERE kunnr IN s_kunnr.

• writng the list

LOOP AT it_kna1 INTO wa_kna1.

WRITE 😕 wa_kna1-kunnr hotspot on,

wa_kna1-name1 hotspot on,

wa_kna1-land1 hotspot on.

HIDE wa_kna1-kunnr.

*get cursor field wa_kna1-kunnr value v_fld.

ENDLOOP.

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

in alvs

populate the field cat of a field as follows to get the hot spot

wa_fieldcat-fieldname = 'KUNNR'.

wa_fieldcat-seltext_l = 'CUSTOMER NUMBER'.

wa_fieldcat-datatype = 'CHAR'.

wa_fieldcat-outputlen = 10.

wa_fieldcat-tabname = 'IT_KNA1'.

wa_fieldcat-key = 'X'.

wa_fieldcat-hotspot = 'X'.

wa_fieldcat-col_pos = 1.

wa_fieldcat-emphasize = 'C11'.

append wa_fieldcat to it_fieldcat.

clear wa_fieldcat.

REWARD IF HELPFUL

prasanth

[p291102]

Hi,

Following report is the basic Interactive report demo report.

REPORT  YMS_INTERACTIVETEST LINE-SIZE 50 NO STANDARD PAGE HEADING.

TABLES: VBAP,KNA1,VBAK.

SELECT-OPTIONS: CUST FOR KNA1-KUNNR.

DATA: BEGIN OF ITAB OCCURS 0,
        KUNNR LIKE KNA1-KUNNR,
        NAME1 LIKE KNA1-NAME1,
        VBELN LIKE VBAK-VBELN,
        AUDAT LIKE VBAK-AUDAT,
        AUART LIKE VBAK-AUART,
        POSNR LIKE VBAP-POSNR,
        POSAR LIKE VBAP-POSAR,
      END OF ITAB.

DATA: ITAB1 LIKE ITAB OCCURS 0 WITH HEADER LINE.

INITIALIZATION.

START-OF-SELECTION.

  SELECT KNA1~KUNNR KNA1~NAME1 INTO CORRESPONDING FIELDS OF TABLE ITAB1
          FROM KNA1 WHERE KNA1~KUNNR IN CUST.

  LOOP AT ITAB1.
    WRITE:/10 ITAB1-KUNNR HOTSPOT, 30 ITAB1-NAME1.
    HIDE: ITAB1-KUNNR.
  ENDLOOP.


AT LINE-SELECTION.

  CASE SY-LSIND.
    WHEN '1'.
      SELECT KNA1~KUNNR VBAK~VBELN VBAK~AUDAT VBAK~ERDAT INTO CORRESPONDING FIELDS OF TABLE ITAB1
      FROM KNA1 INNER JOIN VBAK ON KNA1~KUNNR = VBAK~KUNNR.

      LOOP AT ITAB1.
        WRITE:/ ITAB1-VBELN HOTSPOT, ITAB1-AUDAT, ITAB1-AUART.
        HIDE: ITAB1-VBELN, ITAB1-AUDAT, ITAB1-AUART.
      ENDLOOP.

    WHEN '2'.
      SELECT VBAK~VBELN VBAP~POSNR VBAP~POSAR
      INTO CORRESPONDING FIELDS OF TABLE ITAB1 FROM VBAK INNER JOIN VBAP ON VBAK~VBELN = VBAP~VBELN.
      LOOP AT ITAB1.
        WRITE:/ ITAB1-POSNR, ITAB1-POSAR.
      ENDLOOP.
  ENDCASE.


TOP-OF-PAGE.
  WRITE:/ SY-VLINE,TEXT-001 COLOR COL_NEGATIVE.
  ULINE.

Thanks,

Sankar M