topic Re: reg interactive reports in Application Development and Automation Discussions

reg interactive reports

Former Member — Tue, 05 Feb 2008 05:17:20 GMT

Hi Everybody,

I have one doubt in interactive repor. that is " How we will create 22 nd secondary list in interactive reports". please send the answer.

Thanks

Narasimha rao.

Re: reg interactive reports

Former Member — Tue, 05 Feb 2008 05:20:46 GMT

hi,

i think we cannot create more than 20 secoundary list and one basic list in interactive reporting

Re: reg interactive reports

Former Member — Tue, 05 Feb 2008 05:23:06 GMT

There is a Limitation in Interactive Reports. You can create 1 basic list and 20 secondary lists only.

REgards.

Re: reg interactive reports

Former Member — Tue, 05 Feb 2008 06:10:02 GMT

Hi,

As conventional methods suggest you can have 21 lists only. But you may do the operations for the 22nd secondary list in a perform and during line selection, check if sy-lsind is 21(the final value) ,set sy-lsind forcefully to 1 and then write as usual.

Regards,

Re: reg interactive reports

Former Member — Tue, 05 Feb 2008 06:51:51 GMT

Hi,

You can create only 21 list with basic list. If you try to move for next list then it will go to dump with the message LIST_TOO_MANY_LEVELS.

Regards,

Kumar

Re: reg interactive reports

Former Member — Tue, 05 Feb 2008 08:45:58 GMT

Hi,

you reset value of sy-lsind then continue your secondatory list.But we can get 20+1 list while using BACK.

L.Velu

Re: reg interactive reports

Former Member — Tue, 05 Feb 2008 08:48:14 GMT

From SAP Lib,

All lists created during an interactive list event are detail lists. Each interactive list event creates a new detail list. With one ABAP program, you can maintain one basic list and up to 20 detail lists. If the user creates a list on the next level (that is, SY-LSIND increases), the system stores the previous list and displays the new one. The user can interact with whichever list is currently displayed.

Re: reg interactive reports

Former Member — Tue, 05 Feb 2008 11:30:24 GMT

It is not possible to create a 22nd List. If you are interested in more than 21 reports then you should go for ALV

Re: reg interactive reports

Former Member — Tue, 05 Feb 2008 21:29:15 GMT

Is this really a serious question.

I've worked in SAP for more years than I care to remember and I can't EVER remember needing more than about 5 levels of reports -- and even that was on examination of what the user actually wanted far too many.

What on Earth is your business application that needs 22 interactive reports !! (or are we back to "Interview Monkey" type questions again).

I'll help ANYBODY out there if I can but please explalin what the business requirement is that needs so many interactive reports in one time.

If you use ALV OO classes for example cl_gui_alv_grid you could always display a new grid when a cell is double clicked --this would in fact give you a virtually unlimited amount of reports if you really needed them.

Cheers

jimbo

Re: reg interactive reports

Former Member — Fri, 02 May 2008 13:54:44 GMT

I want some coding for interactive list.

Re: reg interactive reports

Former Member — Fri, 02 May 2008 13:55:36 GMT

example of interactive reports

Re: reg interactive reports

Former Member — Fri, 02 May 2008 13:56:24 GMT

example of interactive reports

Re: reg interactive reports

Former Member — Fri, 02 May 2008 13:57:15 GMT

TYPES : BEGIN OF st_kna1,

kunnr TYPE kna1-kunnr, "CUSTOMER NUMBER

name1 TYPE kna1-name1, "CUSTOMER NAME

END OF st_kna1.

TYPES : BEGIN OF st_vbak,

kunnr TYPE kna1-kunnr,

vbeln TYPE vbak-vbeln, "SALES DOCUMENT NUMBER

erdat TYPE vbak-erdat, "DATE ON WHICH THE RECORD WAS CREATED

audat TYPE vbak-audat, "DOCUMENT DATE

auart TYPE vbak-auart, "SALES DOCUMENT TYPE

ernam TYPE vbak-ernam, "NAME OF PERSON WHO CREATED THE OBJECT.

augru TYPE vbak-augru, "ORDER REASON

END OF st_vbak.

TYPES : BEGIN OF st_vbap,

vbeln TYPE vbak-vbeln,

posnr TYPE vbap-posnr, "SALES DOCUMENT ITEM

matnr TYPE vbap-matnr, "MATERIAL NUMBER

charg TYPE vbap-charg, "BATCH NUMBER

matkl TYPE vbap-matkl, "MATERIAL GROUP

posar TYPE vbap-posar, "ITEM TYPE

END OF st_vbap.

DATA : it_kna1 TYPE STANDARD TABLE OF st_kna1,

it_vbak TYPE STANDARD TABLE OF st_vbak,

it_vbap TYPE STANDARD TABLE OF st_vbap,

wa_kna1 TYPE st_kna1,

wa_vbak TYPE st_vbak,

wa_vbap TYPE st_vbap.

DATA : v_fld(15),

v_kunnr TYPE kna1-kunnr,

v_vbeln TYPE vbak-vbeln.

----

SELECT-OPTIONS
PARAMETERS

----

SELECT-OPTIONS so_kunnr FOR v_kunnr. "CUSTOMER NUMBER

PARAMETERS : p_max TYPE i. "NUMBER OF HITS

----

START-OF-SELECTION

----

START-OF-SELECTION.

PERFORM get_customerdata.

SET PF-STATUS 'MENU1'.

----

AT LINE-SELECTION

----

AT LINE-SELECTION.

IF sy-lsind = 1.

PERFORM get_salesheader.

ELSEIF sy-lsind = 2.

PERFORM get_salesitemdata.

ENDIF.

----

AT USER-COMMAND

----

AT USER-COMMAND.

CASE sy-ucomm.

WHEN 'DISP'.

PERFORM get_salesheader.

WHEN 'ITEM'.

PERFORM get_salesitemdata.

WHEN 'VA03'.

SET PARAMETER ID 'AUN' FIELD wa_vbak-vbeln.

CALL TRANSACTION 'VA03' AND SKIP FIRST SCREEN.

ENDCASE.

----

TOP-OF-PAGE

----

TOP-OF-PAGE.

ULINE AT /1(56).

WRITE : /1 sy-vline ,

2(15) text-004 COLOR 1 ,

sy-vline ,

20(35) text-005 COLOR 1 ,

sy-vline.

ULINE AT /1(56).

----

TOP-OF-PAGE DURING LINE-SELECTION.

----

TOP-OF-PAGE DURING LINE-SELECTION.

CASE sy-lsind.

WHEN 1.

PERFORM get_topofpage1.

WHEN 2.

PERFORM get_topofpage2.

ENDCASE.

----

FORM GET_CUSTOMERDATA

----

FORM get_customerdata.

SELECT kunnr name1

FROM kna1

INTO TABLE it_kna1

UP TO p_max ROWS

WHERE kunnr IN so_kunnr.

IF sy-subrc EQ 0.

LOOP AT it_kna1 INTO wa_kna1.

WRITE : / sy-vline,

2(15) wa_kna1-kunnr ,

sy-vline ,

20 wa_kna1-name1,

sy-vline.

HIDE : wa_kna1-kunnr , wa_kna1-name1.

CLEAR wa_kna1.

ENDLOOP.

ULINE AT : /1(56).

ELSE.

MESSAGE w000(z50871msg).

ENDIF.

ENDFORM. "GET_CUSTOMERDATA

----

FORM GET_SALESHEADER

----

FORM get_salesheader.

SET PF-STATUS 'MENU2'.

GET CURSOR FIELD v_fld VALUE v_kunnr.

IF v_fld = 'WA_KNA1-KUNNR'.

CALL FUNCTION 'CONVERSION_EXIT_ALPHA_INPUT'

EXPORTING

input = v_kunnr

IMPORTING

output = v_kunnr.

SELECT kunnr vbeln erdat audat auart ernam augru

FROM vbak

INTO TABLE it_vbak

WHERE kunnr = v_kunnr.

IF sy-subrc EQ 0.

LOOP AT it_vbak INTO wa_vbak.

WRITE : / sy-vline ,

2(22) wa_vbak-vbeln ,

sy-vline,

27(25) wa_vbak-erdat ,

sy-vline ,

55(15) wa_vbak-audat ,

sy-vline ,

73(15) wa_vbak-auart ,

sy-vline,

91(16) wa_vbak-ernam ,

sy-vline,

109(13) wa_vbak-augru,

123 sy-vline.

HIDE : wa_vbak-vbeln.

CLEAR wa_vbak.

ENDLOOP.

ULINE AT : /1(123).

ELSE.

MESSAGE i015(z50871msg).

ENDIF.

ELSE.

MESSAGE i013(z50871msg).

ENDIF.

ENDFORM. "GET_SALESHEADER

----

FORM GET_SALESITEMDATA

----

FORM get_salesitemdata.

SET PF-STATUS space.

GET CURSOR FIELD v_fld VALUE v_vbeln.

IF v_fld = 'WA_VBAK-VBELN'.

CALL FUNCTION 'CONVERSION_EXIT_ALPHA_INPUT'

EXPORTING

input = v_vbeln

IMPORTING

output = v_vbeln.

SELECT vbeln posnr matnr charg matkl posar

FROM vbap

INTO TABLE it_vbap

WHERE vbeln = v_vbeln.

LOOP AT it_vbap INTO wa_vbap.

WRITE : /1 sy-vline,

2(13) wa_vbap-posnr ,

sy-vline,

18(18) wa_vbap-matnr ,

sy-vline,

40(13) wa_vbap-charg ,

sy-vline,

56(16) wa_vbap-matkl ,

sy-vline,

75 wa_vbap-posar,

112 sy-vline.

CLEAR wa_vbap.

ENDLOOP.

ULINE AT : /1(112).

ELSE.

MESSAGE i014(z50871msg).

ENDIF.

ENDFORM. "GET_SALESITEMDATA

----

FORM GET_TOPOFPAGE1

----

FORM get_topofpage1.

ULINE AT : /1(123).

WRITE : / sy-vline ,

2 text-000 ,

wa_kna1-kunnr ,

75 text-001 ,

wa_kna1-name1,

123 sy-vline.

ULINE AT : /1(123).

WRITE : / sy-vline ,

2(22) text-006 COLOR 1,

sy-vline,

27(25) text-007 COLOR 1 ,

sy-vline ,

55(15) text-008 COLOR 1 ,

sy-vline ,

73(15) text-009 COLOR 1 ,

sy-vline,

91(16) text-010 COLOR 1 ,

sy-vline,

109(13) text-011 COLOR 1,

123 sy-vline.

ULINE AT : /1(123).

ENDFORM. "GET_TOPOFPAGE1

----

FORM GET_TOPOFPAGE2

----

FORM get_topofpage2.

ULINE AT : /1(112).

WRITE : / sy-vline ,

2 text-000 ,

wa_kna1-kunnr ,

35 text-001 ,

wa_kna1-name1 ,

85 text-003 ,

wa_vbak-vbeln ,

112 sy-vline.

ULINE AT : /1(112).

WRITE : /1 sy-vline,

2(13) text-012 COLOR 1,

sy-vline,

18(18) text-013 COLOR 1 ,

sy-vline,

40(13) text-014 COLOR 1 ,

sy-vline,

56(16) text-015 COLOR 1 ,

sy-vline,

75 text-016 COLOR 1 ,

112 sy-vline.

ULINE AT : /1(112).

ENDFORM. "GET_TOPOFPAGE2