At Line Selection on ALV Grid

[Former Member]

Hi guys: I need to double click on a field in the ALV report that should bring up another structure (which I have created) called s_det

s_det has only document number & company code.

Please provide the code for doing this in ALV. I know I cant use At Line Selection. Please give me simple code.

thanks so much

Brian

[Former Member]

Hi,

Please enable the 'hotspot' for that particular field and code your logic.(as in what to display etc.)

regards,

theja.

[Former Member]

hi,

  CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
    EXPORTING
      I_CALLBACK_PROGRAM       = SY-REPID
      I_CALLBACK_PF_STATUS_SET = 'POPUP'
      I_CALLBACK_USER_COMMAND   = 'HANDLE_USER_COMMAND'     
      IS_LAYOUT                = WA_LAYOUT
      IT_FIELDCAT              = IT_FIELDCAT[]
    TABLES
      T_OUTTAB                 = P_IT_VBRK
    EXCEPTIONS
      PROGRAM_ERROR            = 1
      OTHERS                   = 2.

FORM HANDLE_USER_COMMAND USING R_UCOMM     LIKE SY-UCOMM
                               RS_SELFIELD TYPE SLIS_SELFIELD.
  CASE R_UCOMM.

    WHEN '&IC1'.
        clear it_fieldcat1[].
        CLEAR IT_VBRP[].
        IF RS_SELFIELD-FIELDNAME = 'VBELN'.
        READ TABLE IT_VBRK INDEX RS_SELFIELD-TABINDEX.

        LOOP AT ITAB WHERE VBELN = IT_VBRK-VBELN.
        MOVE-CORRESPONDING ITAB TO IT_VBRP.
        APPEND IT_VBRP.
        ENDLOOP.

        PERFORM INTERACTIVE_REPORT.

        ENDIF.
  ENDCASE.

regards,

priya.

[Former Member]

Where do I paste this code?

I have created my structure that I want to populate as follows:

DATA: BEGIN OF s_det,

BELNR like %g00-BSEG-BELNR,

BUKRS like %g00-BSEG-BUKRS,

END OF s_det.

Do I paste this at the end of the program?

thanks

Brian

[Former Member]

Hi

take this as an example for ur solution.

In this if we double click on first level display then it opens second level display.Just have a look on the following code.

This is Interactive ALV report of displaying each row with colours and Headers.

TYPE-POOLS SLIS.

TYPES: BEGIN OF I_EKKO,

EBELN LIKE EKKO-EBELN,

AEDAT LIKE EKKO-AEDAT,

BUKRS LIKE EKKO-BUKRS,

BSART LIKE EKKO-BSART,

LIFNR LIKE EKKO-LIFNR,

L_COLOR(4) TYPE C,

END OF I_EKKO.

DATA: IT_EKKO TYPE STANDARD TABLE OF I_EKKO INITIAL SIZE 0,

WA_EKKO TYPE I_EKKO.

TYPES: BEGIN OF I_EKPO,

EBELN LIKE EKPO-EBELN,

EBELP LIKE EKPO-EBELP,

MATNR LIKE EKPO-MATNR,

MENGE LIKE EKPO-MENGE,

MEINS LIKE EKPO-MEINS,

NETPR LIKE EKPO-NETPR,

L_COLOR1(4) TYPE C,

END OF I_EKPO.

DATA: IT_EKPO TYPE STANDARD TABLE OF I_EKPO INITIAL SIZE 0,

WA_EKPO TYPE I_EKPO.

DATA: V_REPID TYPE SY-REPID,

I_FLDCAT TYPE SLIS_T_FIELDCAT_ALV,

WA_FLDCAT TYPE SLIS_FIELDCAT_ALV,

I_EVENTS TYPE SLIS_T_EVENT,

WA_EVENT TYPE SLIS_ALV_EVENT,

GD_LAYOUT TYPE SLIS_LAYOUT_ALV,

GD_LAYOUT1 TYPE SLIS_LAYOUT_ALV.

DATA: I_TITLE_EKKO TYPE LVC_TITLE VALUE 'FIRST ALV REPORT',

I_TITLE_EKPO TYPE LVC_TITLE VALUE 'SECONDARY ALV REPORT'.

INITIALIZATION.

V_REPID = SY-REPID.

PERFORM FLDCATALOG.

PERFORM CALL_EVENTS.

PERFORM POPULATE_EVENT.

PERFORM BLD_LAYOUT.

PERFORM BLD_LAYOUT1.

START-OF-SELECTION.

PERFORM DATA_RETRIEVAL.

PERFORM DISPLAY_ALV_REPORT.

FORM FLDCATALOG.

WA_FLDCAT-TABNAME = 'IT_EKKO'.

WA_FLDCAT-FIELDNAME = 'EBELN'.

WA_FLDCAT-SELTEXT_M = 'PO NUMBER'.

APPEND WA_FLDCAT TO I_FLDCAT.

CLEAR WA_FLDCAT.

WA_FLDCAT-TABNAME = 'IT_EKKO'.

WA_FLDCAT-FIELDNAME = 'AEDAT'.

WA_FLDCAT-SELTEXT_M = 'DATE'.

APPEND WA_FLDCAT TO I_FLDCAT.

CLEAR WA_FLDCAT.

WA_FLDCAT-TABNAME = 'IT_EKKO'.

WA_FLDCAT-FIELDNAME = 'BUKRS'.

WA_FLDCAT-SELTEXT_M = 'DOCUMENT TYPE'.

APPEND WA_FLDCAT TO I_FLDCAT.

CLEAR WA_FLDCAT.

WA_FLDCAT-TABNAME = 'IT_EKKO'.

WA_FLDCAT-FIELDNAME = 'LIFNR'.

WA_FLDCAT-SELTEXT_M = 'VENDOR CODE'.

APPEND WA_FLDCAT TO I_FLDCAT.

CLEAR WA_FLDCAT.

ENDFORM.

FORM CALL_EVENTS.

CALL FUNCTION 'REUSE_ALV_EVENTS_GET'

EXPORTING

I_LIST_TYPE = 0

IMPORTING

ET_EVENTS = I_EVENTS

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

FORM POPULATE_EVENT.

*READ TABLE I_EVENTS INTO WA_EVENT WITH KEY NAME = 'TOP_OF_PAGE'.

*IF SY-SUBRC = 0.

• WA_EVENT-FORM = 'TOP_OF_PAGE'.

• MODIFY I_EVENTS FROM WA_EVENT TRANSPORTING FORM WHERE NAME = WA_EVENT-FORM.

*ENDIF.

READ TABLE I_EVENTS INTO WA_EVENT WITH KEY NAME = 'USER_COMMAND'.

IF SY-SUBRC = 0.

WA_EVENT-FORM = 'USER_COMMAND'.

MODIFY I_EVENTS FROM WA_EVENT TRANSPORTING FORM WHERE NAME = WA_EVENT-NAME.

ENDIF.

ENDFORM.

FORM BLD_LAYOUT.

GD_LAYOUT-INFO_FIELDNAME = 'L_COLOR'.

ENDFORM.

FORM DATA_RETRIEVAL.

DATA LN_COLOR(1) TYPE C.

SELECT EBELN AEDAT BUKRS BSART LIFNR

FROM EKKO INTO TABLE IT_EKKO.

LOOP AT IT_EKKO INTO WA_EKKO.

LN_COLOR = LN_COLOR + 1.

IF LN_COLOR = 8.

LN_COLOR = 1.

ENDIF.

CONCATENATE 'C' LN_COLOR '11' INTO WA_EKKO-L_COLOR.

MODIFY IT_EKKO FROM WA_EKKO.

ENDLOOP.

ENDFORM.

FORM DISPLAY_ALV_REPORT.

CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'

EXPORTING

• I_INTERFACE_CHECK = ' '

• I_BYPASSING_BUFFER = ' '

• I_BUFFER_ACTIVE = ' '

I_CALLBACK_PROGRAM = V_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_EKKO

• I_GRID_SETTINGS =

IS_LAYOUT = GD_LAYOUT

IT_FIELDCAT = I_FLDCAT[]

• IT_EXCLUDING =

• IT_SPECIAL_GROUPS =

• IT_SORT =

• IT_FILTER =

• IS_SEL_HIDE =

• I_DEFAULT = 'X'

I_SAVE = 'A'

• IS_VARIANT =

IT_EVENTS = I_EVENTS

• 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_EKKO

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

FORM TOP_OF_PAGE.

DATA: T_HEADER TYPE SLIS_T_LISTHEADER,

WA_HEADER TYPE SLIS_LISTHEADER.

WA_HEADER-TYP = 'H'.

WA_HEADER-INFO = 'THIS IS MY FIRST ALV'.

APPEND WA_HEADER TO T_HEADER.

CALL FUNCTION 'REUSE_ALV_COMMENTARY_WRITE'

EXPORTING

IT_LIST_COMMENTARY = T_HEADER

• I_LOGO =

• I_END_OF_LIST_GRID =

• I_ALV_FORM =

.

ENDFORM.

FORM USER_COMMAND USING R_COMM TYPE SY-UCOMM

RS_SELFIELD TYPE SLIS_SELFIELD.

CASE R_COMM.

WHEN '&IC1'.

READ TABLE IT_EKKO INTO WA_EKKO INDEX RS_SELFIELD-TABINDEX.

PERFORM FLDCAT_EKPO.

PERFORM CALL_EVENT_EKPO.

• PERFORM POPULATE_EVENT_EKPO.

PERFORM DATA_RETRIEVAL_EKPO.

PERFORM DISPLAY_ALV_REPORT_EKPO.

ENDCASE.

ENDFORM.

FORM FLDCAT_EKPO.

WA_FLDCAT-TABNAME = 'IT_EKPO'.

WA_FLDCAT-FIELDNAME = 'EBELN'.

WA_FLDCAT-SELTEXT_M = 'PO NUMBER'.

APPEND WA_FLDCAT TO I_FLDCAT.

CLEAR WA_EKPO.

WA_FLDCAT-TABNAME = 'IT_EKPO'.

WA_FLDCAT-FIELDNAME = 'EBELP'.

WA_FLDCAT-SELTEXT_M = 'LINE NO'.

APPEND WA_FLDCAT TO I_FLDCAT.

CLEAR WA_EKPO.

WA_FLDCAT-TABNAME = 'IT_EKPO'.

WA_FLDCAT-FIELDNAME = 'MATNR'.

WA_FLDCAT-SELTEXT_M = 'MATERIAL NUMBER'.

APPEND WA_FLDCAT TO I_FLDCAT.

CLEAR WA_FLDCAT.

WA_FLDCAT-TABNAME = 'IT_EKPO'.

WA_FLDCAT-FIELDNAME = 'MENGE'.

WA_FLDCAT-SELTEXT_M = 'QUANTITY'.

APPEND WA_FLDCAT TO I_FLDCAT.

CLEAR WA_FLDCAT.

WA_FLDCAT-TABNAME = 'IT_EKPO'.

WA_FLDCAT-FIELDNAME = 'MEINS'.

WA_FLDCAT-SELTEXT_M = 'BASE UNIT OF MEASURE'.

APPEND WA_FLDCAT TO I_FLDCAT.

CLEAR WA_FLDCAT.

WA_FLDCAT-TABNAME = 'IT_EKPO'.

WA_FLDCAT-FIELDNAME = 'NETPR'.

WA_FLDCAT-SELTEXT_M = 'PRICE'.

APPEND WA_FLDCAT TO I_FLDCAT.

CLEAR WA_FLDCAT.

ENDFORM.

FORM CALL_EVENT_EKPO.

CALL FUNCTION 'REUSE_ALV_EVENTS_GET'

EXPORTING

I_LIST_TYPE = 0

IMPORTING

ET_EVENTS = I_EVENTS

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

*FORM POPULATE_EVENT_EKPO.

*

*READ TABLE I_EVENTS INTO WA_EVENT WITH KEY NAME = 'TOP_OF_PAGE'.

*IF SY-SUBRC = 0.

• WA_EVENT-FORM = 'TOP_OF_PAGE'.

• MODIFY I_EVENTS FROM WA_EVENT TRANSPORTING FORM WHERE NAME = WA_EVENT-FORM.

*ENDIF.

*

*ENDFORM.

FORM BLD_LAYOUT1.

GD_LAYOUT1-INFO_FIELDNAME = 'L_COLOR1'.

ENDFORM.

FORM DATA_RETRIEVAL_EKPO.

DATA LN_COLOR1(1) TYPE C.

SELECT EBELN EBELP MATNR MENGE MEINS NETPR

INTO TABLE IT_EKPO

FROM EKPO.

LOOP AT IT_EKPO INTO WA_EKPO.

LN_COLOR1 = LN_COLOR1 + 1.

IF LN_COLOR1 = 8.

LN_COLOR1 = 1.

ENDIF.

CONCATENATE 'C' LN_COLOR1 '11' INTO WA_EKPO-L_COLOR1.

MODIFY IT_EKPO FROM WA_EKPO.

ENDLOOP.

ENDFORM.

FORM DISPLAY_ALV_REPORT_EKPO.

CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'

EXPORTING

• I_INTERFACE_CHECK = ' '

• I_BYPASSING_BUFFER = ' '

• I_BUFFER_ACTIVE = ' '

I_CALLBACK_PROGRAM = V_REPID

• I_CALLBACK_PF_STATUS_SET = ' '

• I_CALLBACK_USER_COMMAND = ' '

I_CALLBACK_TOP_OF_PAGE = 'TOP_OF_PAGE1'

• I_CALLBACK_HTML_TOP_OF_PAGE = ' '

• I_CALLBACK_HTML_END_OF_LIST = ' '

• I_STRUCTURE_NAME =

• I_BACKGROUND_ID = ' '

I_GRID_TITLE = I_TITLE_EKPO

• I_GRID_SETTINGS =

IS_LAYOUT = GD_LAYOUT1

IT_FIELDCAT = I_FLDCAT[]

• IT_EXCLUDING =

• IT_SPECIAL_GROUPS =

• IT_SORT =

• IT_FILTER =

• IS_SEL_HIDE =

• I_DEFAULT = 'X'

I_SAVE = 'A'

• IS_VARIANT =

IT_EVENTS = I_EVENTS

• 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_EKPO

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

FORM TOP_OF_PAGE1.

DATA: T_HEADER1 TYPE SLIS_T_LISTHEADER,

WA_HEADER1 TYPE SLIS_LISTHEADER.

WA_HEADER1-TYP = 'H'.

WA_HEADER1-INFO = 'SECONDARY ALV LEVEL'.

APPEND WA_HEADER1 TO T_HEADER1.

CALL FUNCTION 'REUSE_ALV_COMMENTARY_WRITE'

EXPORTING

IT_LIST_COMMENTARY = T_HEADER1

• I_LOGO =

• I_END_OF_LIST_GRID =

• I_ALV_FORM = .

ENDFORM.

reward points,if it is useful.

Thanks,

chandu.