Quantcast
Channel: SCN: Message List
Viewing all articles
Browse latest Browse all 2300

Re: Double click on ALV Report using Module Pool Program

$
0
0

for click on field fucnctionality

 

declaration-

data:R_UCOMM LIKE SY-UCOMM,

RS_SELFIELD TYPE SLIS_SELFIELD

******************************Conatiner& grid  DECLARATIONS****************************************

DATA:I_FCAT TYPE STANDARD TABLE OF SLIS_FIELDCAT_ALV,

     W_LAYOUT TYPE SLIS_LAYOUT_ALV,

     W_DISVARIANT TYPE DISVARIANT,

     I_SORT TYPE SLIS_T_SORTINFO_ALV,

     LV_GRID_TITLE TYPE LVC_TITLE,

     LW_FCAT TYPE SLIS_FIELDCAT_ALV.

 

you have to check hotspot filed in field catalog = 'X'

 

  LW_FCAT-FIELDNAME = 'DOKNR'.

  LW_FCAT-TABNAME = 'IT_FINAL'.

  LW_FCAT-SELTEXT_L = 'PDF Doc.No.'.

  LW_FCAT-NO_ZERO    = 'X'.

  LW_FCAT-HOTSPOT = 'X'.

  APPEND LW_FCAT TO I_FCAT.

  CLEAR : LW_FCAT.

  LW_FCAT-FIELDNAME = 'DOKNR'.

  LW_FCAT-TABNAME = 'IT_FINAL'.

  LW_FCAT-SELTEXT_L = 'PDF Doc.No.'.

  LW_FCAT-NO_ZERO    = 'X'.

  LW_FCAT-HOTSPOT = 'X'.

  APPEND LW_FCAT TO I_FCAT.

  CLEAR : LW_FCAT.

 

FORM USER_COMMAND USING

      SY_UCOMM TYPE SY-UCOMM SELFIELD TYPE SLIS_SELFIELD.

  CASE SY_UCOMM.

    WHEN '&IC1'.   "here we capture sy-code of field

      CLEAR WA_FINAL.

      READ TABLE IT_FINAL INTO WA_FINAL INDEX SELFIELD-TABINDEX.

      PERFORM DISPLAY_FILE_DIALOG USING WA_FINAL-EMPNO.

      IF SY-SUBRC = 0.

 

ENDIF.

    WHEN OTHERS.

  ENDCASE.

  CASE SY-UCOMM.

    WHEN 'BACK' OR  'EXIT' OR 'CANCEL'.

      LEAVE TO SCREEN 0.

  ENDCASE.

ENDFORM.                    "user_com


Viewing all articles
Browse latest Browse all 2300

Trending Articles



<script src="https://jsc.adskeeper.com/r/s/rssing.com.1596347.js" async> </script>