report

[Former Member]

Hi,

In a interactive report, when I click on one particular field or coulumn thenit should go to the next list. how to do this one. If I click any where in the row it should not go to next list. Thanks in advance.

[Former Member]

You can find the example here

http://www.sap-img.com/abap/a-sample-hide-get-cursor-in-interactive-programming.htm

Regards,

Ravi

Note : Please mark all the helpful answers

[Former Member]

Hello Prakash,

Write ur code in

AT LINE-SELECTION Event.

GET CURSO FIELD <ur fieldname>.

If useful reward the points.

Regards,

Vasanth

[Former Member]

Hi Prakash,

We use get cursor anywaz chk out the below prg...

REPORT Z_INTERACTIVE NO STANDARD PAGE HEADING MESSAGE-ID ZGOPI

LINE-COUNT 40(3) LINE-SIZE 125.

TABLES: ZGOPSFLIGHT,(tables u have created)

ZFLIGHTFARES.

PARAMETER PFLIGNO LIKE ZGOPSFLIGHT-FLIGHTNO.

DATA: BEGIN OF IT_FLIGHT OCCURS 0,

FLIGHTNO LIKE ZGOPSFLIGHT-FLIGHTNO,

FLIGHTNAME LIKE ZGOPSFLIGHT-FLIGHTNAME,

END OF IT_FLIGHT.

DATA: BEGIN OF IT_FARE OCCURS 0,

FLIGHTNO LIKE ZGOPSFLIGHT-FLIGHTNO,

FLIGHTNAME LIKE ZGOPSFLIGHT-FLIGHTNAME,

FLIGHTFROM LIKE ZGOPSFLIGHT-FLIGHTFROM,

FLIGHTTO LIKE ZGOPSFLIGHT-FLIGHTTO,

FLIGHTFARE LIKE ZFLIGHTFARES-FLIGHTFARE,

END OF IT_FARE.

DATA: FLIGHT_NO(20).

AT SELECTION-SCREEN.

IF PFLIGNO EQ ''.

MESSAGE I000.

ELSEIF PFLIGNO NE ''.

SELECT SINGLE FLIGHTNO FLIGHTNAME FROM ZGOPSFLIGHT

INTO CORRESPONDING FIELDS OF IT_FLIGHT

WHERE FLIGHTNO = PFLIGNO.

ENDIF.

IF SY-SUBRC <> 0.

MESSAGE I001.

ENDIF.

TOP-OF-PAGE.

SKIP.

data : a like sy-datum, q(10), b(2), c(2), d(4).

a = sy-datum.

b = a+6(2).

*write:/ b.

a = sy-datum.

c = a+4(2).

*write:/ c.

a = sy-datum.

d = a+0(4).

*write:/ d.

concatenate b c d into q separated by '/'.

write:/100 q.

skip 2.

write:/ sy-uline.

skip 2.

write:48 sy-uline(15), 66 sy-uline(15).

do 5 times.

write:/30 sy-vline, 48 sy-vline, 66 sy-vline.

enddo.

write:55 sy-uline(8), 66 sy-uline(15).

do 5 times.

write:/62 sy-vline.

write:30 sy-vline, 48 sy-vline, 80 sy-vline.

enddo.

write:/30 sy-uline(15), 48 sy-uline(15), 66 sy-uline(15).

skip 2.

write:/ sy-uline.

skip 2.

ULINE.

WRITE:/5 'FLIGHTNUMBER',

30 'FLIGHTNAME'.

ULINE.

START-OF-SELECTION.

SELECT FLIGHTNO FLIGHTNAME FROM ZGOPSFLIGHT

INTO CORRESPONDING FIELDS OF TABLE IT_FLIGHT

WHERE FLIGHTNO = PFLIGNO.

END-OF-SELECTION.

LOOP AT IT_FLIGHT.

WRITE:/ IT_FLIGHT-FLIGHTNO UNDER 'FLIGHTNUMBER',

IT_FLIGHT-FLIGHTNAME UNDER 'FLIGHTNAME'.

ENDLOOP.

FLIGHT_NO = IT_FLIGHT-FLIGHTNO.

AT LINE-SELECTION.

GET CURSOR FIELD FLIGHT_NO.

IF FLIGHT_NO = 'IT_FLIGHT-FLIGHTNO'.

IF NOT IT_FLIGHT IS INITIAL.

• SELECT FLIGHTFROM FLIGHTTO FROM ZGOPSFLIGHT

• INTO CORRESPONDING FIELDS OF TABLE IT_FLIGHT

• WHERE FLIGHTNO = PFLIGNO.

• SELECT FLIGHTFARE FROM ZFLIGHTFARES

• INTO CORRESPONDING FIELDS OF TABLE IT_FARE

• WHERE FLIGHTNO = PFLIGNO.

SELECT T1_{FLIGHTNO T1}FLIGHTNAME T1_{FLIGHTFROM T1}FLIGHTTO T2~FLIGHTFARE

FROM ZGOPSFLIGHT AS T1 INNER JOIN ZFLIGHTFARES AS T2

ON T1_{FLIGHTNO = T2}FLIGHTNO INTO

CORRESPONDING FIELDS OF TABLE IT_FARE

WHERE T1~FLIGHTNO = PFLIGNO.

ENDIF.

LOOP AT IT_FARE.

WRITE:/ IT_FARE-FLIGHTFROM UNDER 'FLIGHTFROM',

IT_FARE-FLIGHTTO UNDER 'FLIGHTTO',

IT_FARE-FLIGHTFARE UNDER 'FLIGHTFARE'.

ENDLOOP.

ENDIF.

TOP-OF-PAGE DURING LINE-SELECTION.

IF SY-LSIND EQ 1.

ULINE.

WRITE:/2 'FLIGHTFROM',15 'FLIGHTTO',30 'FLIGHTFARE'.

ULINE.

ENDIF.

END-OF-PAGE.

Reward Points for the same

Regards,

Harini

[Former Member]

<b>look at this example report...</b>

http://www.sap-img.com/abap/example-code-for-drill-down-report.htm

[Former Member]

Hi prakash,

In your at AT LINE-SELECTION event you will be retrieving the column name for which you double click. validate the COLUMN name there, say it is VBELN

AT LINE-SELECTION.

GET CURSOR FIELD F.

CASE F.

WHEN 'VBELN'.--> Your required column

code.....

ENDCASE.

So you can validate your column here in the case statement where the value of F will be the column name you click .