need help on hot-spot in alv grid

Best Answer

This answer has been deleted.

This answer has been undeleted.

Former Member

Posted on Sep 19, 2007 at 10:15 AM

1

check in below code I am calling two diffrent T codes depends on two diffrent fields

METHODS: handle_double_click

FOR EVENT double_click OF cl_gui_alv_grid

IMPORTING e_column

es_row_no.

----

---

• METHOD handle_double_click.

----

---

• To set call transaction for VD03 and VF03

----

---

METHOD handle_double_click.

DATA: ls_final_table TYPE gty_final,

lv_vbeln TYPE bsid-vbeln.

• To set Jump target with call transaction for VD03 and VF03

READ TABLE gt_final

INTO ls_final_table

INDEX es_row_no-row_id.

IF sy-subrc EQ 0.

CLEAR gs_bsid.

READ TABLE gt_bsid INTO gs_bsid

WITH KEY vbeln = ls_final_table-vbeln.

IF sy-subrc EQ 0.

CLEAR: lv_vbeln.

MOVE gs_bsid-vbeln TO lv_vbeln.

ELSE.

READ TABLE gt_bsid INTO gs_bsid

WITH KEY belnr = ls_final_table-vbeln.

IF sy-subrc EQ 0.

CLEAR: lv_vbeln.

MOVE gs_bsid-belnr TO lv_vbeln.

ENDIF.

ENDIF. " READ TABLE gt_bsid

IF lv_vbeln IS NOT INITIAL.

IF e_column EQ 'KUNNR'.

READ TABLE gt_vbrp INTO gs_vbrp WITH KEY vbeln = lv_vbeln BINARY SEARCH.

IF sy-subrc = 0 .

• Call Transaction VD03

SET PARAMETER ID 'KUN' FIELD gs_bsid-kunnr.

SET PARAMETER ID 'VKO' FIELD gs_vbrp-vkorg_auft.

SET PARAMETER ID 'VTW' FIELD gs_vbrp-vtweg_auft.

SET PARAMETER ID 'SPA' FIELD gs_vbrp-spart.

CALL TRANSACTION 'VD03' AND SKIP FIRST SCREEN.

ENDIF.

ELSEIF e_column EQ 'VBELN'.

• Call Transaction VF03

SET PARAMETER ID 'VF' FIELD lv_vbeln.

CALL TRANSACTION 'VF03' AND SKIP FIRST SCREEN.

ENDIF. " e_column EQ 'KUNNR'.

ENDIF. " IF lv_vbeln IS NOT INITIAL.

ENDIF. " READ TABLE gt_final

ENDMETHOD. "handle_data_changed_finished

For more details check

SE38 with BCALV * or RSDEMO*

Rewards if useful................

Minal

• Add a Comment

  Help to improve this answer by adding a comment

  If you have a different answer for this question, then please use the Your Answer form at the bottom of the page instead.

• Alert Moderator
• Share

Alert Moderator

You already have an active moderator alert for this content.

• Close

Add a comment

10|10000 characters needed characters left characters exceeded

• Submit
• Cancel

0 Comments

Comment on This Answer

Help to improve this answer by adding a comment

If you have a different answer for this question, then please use the Your Answer form at the bottom of the page instead.

Comment

This answer has been deleted.

This answer has been undeleted.

Former Member

Posted on Sep 19, 2007 at 10:15 AM

1

Hello dinesh,

Firstly set the field HOTSPOT in the field catalog for material. Then u have to code hot spot event and a mechanism to execute the action...

The event has three parameters in its interface out of which use es_row_no and id. “es_row_no” is of type “LVC_S_ROID” and passes information about the row index at “es_row_no-row_id”, and “e_column_id” of type “LVC_S_COL” which returns the column fieldname at “e_column_id-fieldname”. Utilizing these parameters you know where the user clicked and trigger your action.

FORM handle_hotspot_click USING i_row_id TYPE lvc_s_row

i_column_id TYPE lvc_s_col

is_row_no TYPE lvc_s_roid.

READ TABLE gt_list INDEX is_row_no-row_id .

IF sy-subrc = 0 AND i_column_id-fieldname = 'SEATSOCC' .

CALL SCREEN 200 . "Details about passenger-seat matching

ENDIF .

ENDFORM .

• Add a Comment

  Help to improve this answer by adding a comment

  If you have a different answer for this question, then please use the Your Answer form at the bottom of the page instead.

• Alert Moderator
• Share

Alert Moderator

You already have an active moderator alert for this content.

• Close

Add a comment

10|10000 characters needed characters left characters exceeded

• Submit
• Cancel

0 Comments

Comment on This Answer

Help to improve this answer by adding a comment

If you have a different answer for this question, then please use the Your Answer form at the bottom of the page instead.

Comment

This answer has been deleted.

This answer has been undeleted.

Former Member

Posted on Sep 19, 2007 at 10:17 AM

1

Hello

Try this

<b>Fieldcatalogue

-

---

</b>

CLEAR gst_fcat.

gst_fcat-fieldname = 'KUNNR'.

gst_fcat-ref_table = 'KNA1'.

gst_fcat-coltext = 'Customer Number'.

gst_fcat-hotspot = 'X'.

APPEND gst_fcat TO gt_fcat.

----

---

• CLASS lcl_event_handler DEFINITION

----

---

• ........ *

<b>----

---

CLASS lcl_event_handler DEFINITION.</b>

PUBLIC SECTION.

DATA: r1 TYPE i.

METHODS: handle_hotspot FOR EVENT hotspot_click OF cl_gui_alv_grid

IMPORTING e_row_id e_column_id.

METHODS: handle_dblclick FOR EVENT double_click OF cl_gui_alv_grid

IMPORTING e_row e_column.

PRIVATE SECTION.

DATA : gst_cust LIKE LINE OF gt_cust.

ENDCLASS.

----

---

• CLASS lcl_event_handler IMPLEMENTATION

----

---

• ........ *

----

---

CLASS lcl_event_handler IMPLEMENTATION.

METHOD handle_hotspot.

READ TABLE gt_cust INTO gst_cust INDEX e_row_id.

SET PARAMETER ID 'KUN' FIELD gst_cust-kunnr.

CALL TRANSACTION 'XD03' AND SKIP FIRST SCREEN.

ENDMETHOD.

METHOD handle_dblclick.

r1 = e_row.

CALL SCREEN 9001.

ENDMETHOD.

ENDCLASS.

CREATE OBJECT objhandler.

SET HANDLER objhandler->handle_hotspot FOR cust_alv.

SET HANDLER objhandler->handle_dblclick FOR cust_alv.

Like this u can handle the event

Reaward if helpful,

Regards,

LIJO

• Add a Comment

  Help to improve this answer by adding a comment

  If you have a different answer for this question, then please use the Your Answer form at the bottom of the page instead.

• Alert Moderator
• Share

Alert Moderator

You already have an active moderator alert for this content.

• Close

Add a comment

10|10000 characters needed characters left characters exceeded

• Submit
• Cancel

0 Comments

Comment on This Answer

Help to improve this answer by adding a comment

If you have a different answer for this question, then please use the Your Answer form at the bottom of the page instead.

Comment

This answer has been deleted.

This answer has been undeleted.

Former Member

Posted on Sep 19, 2007 at 10:30 AM

0

hi,

take this reference...

REPORT ZSD_STO_DETAILS LINE-SIZE 500 NO STANDARD PAGE HEADING LINE-COUNT 65 .

--

---

Table DECLARATION--

---

TABLES: EKKO,EKPO,EKBE.

--

---

DATA DECLARATION--

---

DATA: BEGIN OF IT_PO OCCURS 0,

EBELN LIKE EKKO-EBELN,

BEDAT LIKE EKKO-BEDAT,

EBELP LIKE EKPO-EBELP,

END OF IT_PO.

DATA: BEGIN OF IT_EKBE OCCURS 0,

EBELN LIKE EKBE-EBELN, "S.T.O NO

EBELP LIKE EKBE-EBELP, "LINE ITEM NO

• BEDAT LIKE EKKO-BEDAT, "S.T.O DATE

BEDAT(12), "S.T.O DATE

BELNR LIKE EKBE-BELNR, "G.T.N. NO

BUZEI LIKE EKBE-BUZEI, "G.T.N ITEM NO

CPUDT LIKE EKBE-CPUDT, "G.T.N DATE

MENGE LIKE EKBE-MENGE, "QUANTITY

DMBTR LIKE EKBE-DMBTR, "AMOUNT

WERKS LIKE EKBE-WERKS, "PLANT CODE

NAME1 LIKE T001W-NAME1, "PLANT NAME

MATNR LIKE EKBE-MATNR, "MATERIAL NO

MAKTX LIKE MAKT-MAKTX, "MATERIAL DESCRIPTION

FREIGHT LIKE KOMV-KWERT, "FREIGHT

TRANS(40), "TRANSPORTER NAME

GRNO(30), "GR NO

VEHICAL(40), "VECHICAL NO

REMARKS(40), "REMARKS

END OF IT_EKBE.

data: name like thead-tdname,

lines like tline occurs 0 with header line.

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

• ALV VARIABLES AND INTERNAL TABLES

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

TYPE-POOLS: slis.

DATA:st_layout TYPE slis_layout_alv,

it_fieldcat TYPE slis_t_fieldcat_alv,

it_listheader TYPE slis_t_listheader,

it_event TYPE slis_t_event,

keyinfo TYPE slis_keyinfo_alv,

lt_sort type SLIS_T_SORTINFO_ALV,

ls_sort type slis_sortinfo_alv.

DATA:ls_selfield TYPE slis_selfield.

--

---

SELECTION SCREEN DEFINITIONS--

---

SELECTION-SCREEN BEGIN OF BLOCK A WITH FRAME TITLE TEXT-001.

SELECT-OPTIONS : SO_WERKS for EKBE-WERKS, "Plant

SO_MATNR for EKPO-MATNR, "Material Number

SO_EBELN for EKPO-EBELN, "S.T.O NUMBER

SO_BEDAT FOR EKKO-BEDAT. "S.T.O DATE

SELECTION-SCREEN END OF BLOCK A.

--

---

START-OF-SELECTION--

---

START-OF-SELECTION.

*GETS ALL THE STO DETAILS

PERFORM STO_DETAILS.

*GETS ALL THE TEXT INFORMATIONS

PERFORM GET_TEXTS.

--

---

END-OF-SELECTION--

---

END-OF-SELECTION.

*DISPLAYING IN ALV FORMAT

PERFORM DISPLAY.

*FREE THE SPACE

*PERFORM FREE.

&----

---

*& Form STO_DETAILS

&----

---

• text

----

---

• --> p1 text

• <-- p2 text

----

---

FORM STO_DETAILS .

*FOR GETTING ONLY THE STO NUMBERS

SELECT A_{EBELN A}BEDAT B~EBELP INTO TABLE IT_PO

FROM EKKO AS A INNER JOIN EKPO AS B ON A_{EBELN = B}EBELN

WHERE A~EBELN IN SO_EBELN

AND A~BSART = 'UB'

AND A~BEDAT IN SO_BEDAT

AND B~MATNR IN SO_MATNR

AND B~WERKS IN SO_WERKS.

IF SY-SUBRC = 0.

• GETS ALL THE DETAILS ABOUT THE STO WHICH HAS A GI

SELECT EBELN EBELP BELNR BUZEI MENGE DMBTR WERKS MATNR CPUDT FROM EKBE INTO CORRESPONDING FIELDS OF TABLE IT_EKBE

FOR ALL ENTRIES IN IT_PO

WHERE EBELN = IT_PO-EBELN

AND EBELP = IT_PO-EBELP

AND BEWTP = 'U'.

ELSE.

• IF NO DATA ISSUE THE MESSAGE

MESSAGE 'No Date found for given selection criteria.' TYPE 'I'.

LEAVE PROGRAM.

ENDIF.

ENDFORM. " STO_DETAILS

&----

---

*& Form GET_TEXTS

&----

---

• text

----

---

• --> p1 text

• <-- p2 text

----

---

FORM GET_TEXTS.

LOOP AT IT_EKBE.

MOVE IT_EKBE-EBELN TO NAME.

• FOR THE TRANSPORTER NAME FROM THE TEXT.

• ID = 'Z002'

• OBJECT = 'VBBK'

• MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO

• WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.

******

• ENDIF.

******

• CLEAR LINES.

• REFRESH LINES.

******

******

• FOR THE GRNO FROM THE TEXT.

• ID = 'Z002'

• OBJECT = 'VBBK'

• MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO

• WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.

******

• ENDIF.

******

• CLEAR LINES.

• REFRESH LINES.

******

******

• FOR THE VEHICAL NUMBER FROM THE TEXT.

• ID = 'Z002'

• OBJECT = 'VBBK'

• MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO

• WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.

******

• ENDIF.

******

• CLEAR LINES.

• REFRESH LINES.

******

• FOR THE REMARKS FROM THE TEXT.

• ID = 'Z002'

• OBJECT = 'VBBK'

• MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO

• WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.

******

• ENDIF.

******

• CLEAR LINES.

• REFRESH LINES.

*FOR THE PLANT NAME

SELECT SINGLE NAME1 FROM T001W INTO IT_EKBE-NAME1 WHERE WERKS = IT_EKBE-WERKS.

*FOR MATERIAL DESCRIPTION

SELECT SINGLE MAKTX FROM MAKT INTO IT_EKBE-MAKTX WHERE MATNR = IT_EKBE-MATNR.

*FOR S.T.O DATE

READ TABLE IT_PO WITH KEY EBELN = IT_EKBE-EBELN EBELP = IT_EKBE-EBELP.

IF SY-SUBRC = 0.

CALL FUNCTION 'CONVERSION_EXIT_PDATE_OUTPUT'

EXPORTING

INPUT = IT_PO-BEDAT

IMPORTING

OUTPUT = IT_EKBE-BEDAT

.

ENDIF.

MODIFY IT_EKBE.

CLEAR IT_EKBE.

ENDLOOP.

ENDFORM. " GET_TEXTS

&----

*& Form DISPLAY

&----

• text

----

• --> p1 text

• <-- p2 text

----

FORM DISPLAY .

PERFORM fill_layout_structure.

PERFORM fill_field_catalog_table.

PERFORM get_event USING it_event.

PERFORM SORT_EVENT.

PERFORM fill_listheader USING it_listheader.

perFORM call_alv_function.

ENDFORM. " DISPLAY

&----

*& Form fill_layout_structure

&----

• text

----

• --> p1 text

• <-- p2 text

----

FORM fill_layout_structure .

st_layout-zebra = 'X'.

ENDFORM. " fill_layout_structure

&----

*& Form fill_field_catalog_table

&----

• text

----

• --> p1 text

• <-- p2 text

----

FORM fill_field_catalog_table .

SORT IT_EKBE BY BEDAT.

PERFORM fill_field_catalog USING :

'BEDAT' 'S.T.O Date ' 'IT_EKBE' space space '10' space,

'EBELN' 'S.T.O. Number' 'IT_EKBE' 'X' space '10' 'X',

'BELNR' 'G.T.N No' 'IT_EKBE' space space '10' space,

'CPUDT' 'G.T.N Date' 'IT_EKBE' space space '10' space,

'MENGE' 'Quantity' 'IT_EKBE' space space '17' space,

'DMBTR' 'Value' 'IT_EKBE' space space '17' space,

'FREIGHT' 'Freight' 'IT_EKBE' space space '17' space,

'NAME1' 'Destination' 'IT_EKBE' space space '40' space,

'MAKTX' 'Product' 'IT_EKBE' space space '40' space,

'TRANS' 'Transporter Name' 'IT_EKBE' space space '40' space,

'GRNO' 'GR No' 'IT_EKBE' space space '30' space,

'VEHICAL' 'Vehical No' 'IT_EKBE' space space '30' space,

'REMARKS' 'Remarks' 'IT_EKBE' space space '30' space.

ENDFORM. " fill_field_catalog_table

&----

*& Form fill_field_catalog

&----

• text

----

• -->P_0643 text

• -->P_0644 text

• -->P_0645 text

• -->P_SPACE text

• -->P_SPACE text

• -->P_0648 text

• -->P_SPACE text

----

FORM fill_field_catalog USING f d t p S o h.

DATA: wa_fieldcat TYPE slis_fieldcat_alv.

STATICS v_pos TYPE i VALUE 1.

wa_fieldcat-row_pos = 1.

wa_fieldcat-col_pos = v_pos.

wa_fieldcat-fieldname = f.

wa_fieldcat-seltext_m = d.

wa_fieldcat-tabname = t.

wa_fieldcat-hotspot = h.

wa_fieldcat-outputlen = o.

• wa_fieldcat-fix_column = p.

APPEND wa_fieldcat TO it_fieldcat.

v_pos = v_pos + 1.

ENDFORM. "fill_field_catalog

&----

*& Form get_event

&----

• text

----

• -->P_IT_EVENT text

----

FORM get_event USING P_IT_EVENT TYPE slis_t_event.

DATA : wa_event TYPE slis_alv_event.

CALL FUNCTION 'REUSE_ALV_EVENTS_GET'

EXPORTING

I_LIST_TYPE = 0

IMPORTING

ET_EVENTS = it_event.

READ TABLE it_event WITH KEY name = slis_ev_top_of_page INTO wa_event.

IF SY-SUBRC = 0.

MOVE 'TOP_OF_PAGE' to wa_event-form.

APPEND wa_event to it_event.

ENDIF.

ENDFORM. " get_event

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

*FORM FOR TOP_OF_PAGE(to assign form for the top-of-page event)

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

FORM top_of_page.

CALL FUNCTION 'REUSE_ALV_COMMENTARY_WRITE'

EXPORTING

it_list_commentary = it_listheader.

ENDFORM. "top_of_page

&----

*& Form fill_listheader

&----

• text

----

• -->P_IT_LISTHEADER text

----

FORM fill_listheader USING P_IT_LISTHEADER TYPE slis_t_listheader.

DATA : wa_listheader TYPE slis_listheader.

CLEAR wa_listheader.

wa_listheader-typ = 'S'.

wa_listheader-info ='S.T.O REPORT '.

APPEND wa_listheader TO it_listheader.

ENDFORM. " fill_listheader

&----

*& Form call_alv_function

&----

• text

----

• --> p1 text

• <-- p2 text

----

FORM call_alv_function .

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 = 'CALL_TCODE'

• I_STRUCTURE_NAME =

IS_LAYOUT = st_layout

IT_FIELDCAT = it_fieldcat[]

• IT_EXCLUDING =

• IT_SPECIAL_GROUPS =

IT_SORT = lt_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

• IMPORTING

• E_EXIT_CAUSED_BY_CALLER =

• ES_EXIT_CAUSED_BY_USER =

TABLES

T_OUTTAB = IT_EKBE

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

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

*FORM FOR ALV CALL_TCODE

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

FORM call_tcode USING r_ucomm ls_selfield LIKE ls_selfield.

CASE r_ucomm.

WHEN '&IC1'.

IF ls_selfield-fieldname = 'EBELN'.

SET PARAMETER ID 'BES' FIELD ls_selfield-value.

CALL TRANSACTION 'ME23N' AND SKIP FIRST SCREEN.

ENDIF.

ENDCASE.

ENDFORM.

&----

*& Form SORT_EVENT

&----

• text

----

• --> p1 text

• <-- p2 text

----

FORM SORT_EVENT .

CLEAR ls_sort.

ls_sort-spos = 1.

ls_sort-fieldname = 'BEDAT'. "Give the field name that you do the sum'.

ls_sort-tabname = 'IT_EKBE'.

ls_sort-up = 'X'.

ls_sort-subtot = 'X'.

APPEND ls_sort TO lt_sort.

CLEAR ls_sort.

*ls_sort-spos = 1.

ls_sort-fieldname = 'MENGE'. "Give the field name that you do the sum'.

ls_sort-tabname = 'IT_EKBE'.

ls_sort-subtot = 'X'.

APPEND ls_sort TO lt_sort.

ENDFORM. " SORT_EVENT

regards,