Interacitve Report

[Former Member]

Hi all,

Can anybody please send me the code for interactive report which uses all or most of the system fields for interative report (like sy-lsind,sy-lisel....).

Thanks in Advance

[Former Member]

Hi

In the purchasing (MM module) you can process the purchase requisitions. The purchase requisitions define primarily the need for a material/service. List the first 100 purchase requisitions at the plant 'PL01' (table EBAN). Then make it possible to change the purchase requisition itself from the list by clicking twice on the row or by using a push-button.

<b><i><u>ADDITIONAL REQUIREMENTS TO THE LIST:</u></i></b>

1. <i><b>CONTENT:</b></i> PURCHASE REQUISITION NUMBER, ITEM NUMBER, DOCUMENT TYPE, MATERIAL, QUANTITY, UNIT OF MEASURE

2. <b><i>LAYOUT:</i></b> MAIN HEADER SHOULD INCLUDE

PROGRAM NAME, COMPANY NAME, PLANT, PURCHASE GROUP, CREATION DATE, PAGE NUMBER

3. ONE PAGE SHOULD HAVE 50 LINE ITEM

--------------------------------------------------------------------------------

report zmjud001 no standard page heading line-size 85 line-count 50. 
* DATA /TABLES DECLARATION* 
tables: eban. 
data: prog_nam(8). 
data: begin of pur_req occurs 100, 
ekgrp like eban-ekgrp, 
werks like eban-werks, 
banfn like eban-banfn, 
bnfpo like eban-bnfpo, 
bsart like eban-bsart, 
estkz like eban-estkz, 
matnr like eban-matnr, 
menge like eban-menge, 
meins like eban-meins, 
numb(3) type n.
data: end of pur_req. 
* THE REPORT HEADER 
prog_nam = sy-repid. 
top-of-page. 
perform header_write.
* SELECTION 
start-of-selection. 
pur_req-numb = 1.
* SELECT ONLY THOSE FIELDS THAT WILL BE USED FROM THE TABLE EBAN, AND ONLY 
*THE FIRST100 RECORDS OF THE THE PLANT 'PL01' 
select banfn bnfpo bsart ekgrp matnr werks menge meins frgdt estkz 
into corresponding fields of eban from eban up to 100 rows 
where bsart = 'NB' "document type 'NB' = purchase requisition 
and werks = 'PL01' 
and statu = 'N' "processing status 
and loekz = ' '. "deletion indicator
* THE SELECTED RECORDS SHOULD BE APPENDED TO INTERNAL TABLE 'PUR_REQ' 
pur_req-banfn = eban-banfn. 
pur_req-matnr = eban-matnr. 
pur_req-werks = eban-werks. 
pur_req-ekgrp = eban-ekgrp. 
pur_req-bnfpo = eban-bnfpo. 
pur_req-bsart = eban-bsart. 
pur_req-menge = eban-menge. 
pur_req-meins = eban-meins. 
pur_req-estkz = eban-estkz. 
append pur_req. 
pur_req-numb = pur_req-numb + 1.
endselect.
* CHECK WHETHER THE TABLE EBAN CONTAINS ANY PURCHASE REQUISITIONS 
if sy-subrc ne 0. 
write: / 'No Purchase Requisition found.'.
endif.
* PROCESS THE INTERNAL TABLE; WRITE OUT THE REQUIRED FIELDS AND HIDE THE 
*FIELDS YOU ARE GOING TO USE LATER 
loop at pur_req. 
write: /1 pur_req-numb, 9 pur_req-banfn, 21 pur_req-bnfpo, 31 pur_req-bsart, 41 pur_req-matnr, 
61 pur_req-menge unit pur_req-meins, 82 pur_req-meins. 
hide: pur_req-matnr, pur_req-werks, pur_req-banfn.
endloop. 
clear pur_req-banfn. clear pur_req-matnr. clear pur_req-werks.
* IN THE MENU PAINTER (SE41) CREATE A STATUS TO YOUR PROGRAM. HERE YOU CAN 
*DEFINE THE PUSH-BUTTON 
set pf-status 'basic'.
* CHOOSE A REQUISITION (WITH DOUBLE CLICKING OR PUSH-BUTTON) IN THE LIST! THE 
*PURCHASE REQUISITION IS GOING TO COME UP 
at line-selection. 
if pur_req-banfn <> space. 
set parameter id 'BAN' field pur_req-banfn. " parameter id for pruchase req. number 
call transaction 'ME52' and skip first screen. "trans. code 'ME52': Change Purchase Requis. 
clear pur_req-banfn. clear pur_req-matnr. 
clear pur_req-werks.
endif.
* FORM THE HEADER 
form header_write. 
write: / prog_nam, 32 'FUN-FACTORY', 
/ 'Purch.Gr.:', pur_req-ekgrp, 26 'Purchase Requisition List', 
61 'As Of Date:', 75 sy-datum, 
/ 'Plant:', pur_req-werks, 61 'Page:', 75 sy-pagno.
uline. 
write: / text-001, 
/ text-002.
uline.
endform.
--------------------------------------------------------------------------------

<b><u>NOTES:</u></b>

1. PUSH-BUTTON DEFINITION (SE11)

In the Menu Painter a status must be created where you can maintain the function keys

2. MAINTAIN THE TEXT ELEMENT TO THE HEADER OF THE LIST

(SE38 choose the object component 'TEXT ELEMENTS' at the first screen, then the'TEXT SYMBOLS'. Here you can add a number (I.E. 001) to 'TEXT SYMBOL' and write the header title into the text field like this:

001 Numb.__Requisition__Item___Document_____Material_________________Quantity_Unit_of

002 _________Number_____Num______Type__________________________________Measure

<i></i>

Chjeck this link for check boxes in interactive report

http://www.sap-basis-abap.com/abap/check-boxes-in-an-interactive-report.htm

Reward all helpfull answers

Regards

Pavan

[Former Member]

Hi Pavan,

Can you pls send me the pdf files of BDC,LSMW and interactive reports stuff along with the screen shots to my email id..

abap.girish@gmail.com, or sap_girish@yahoo.co.in.

Thanks and Regards,

Girish.

[Former Member]

Hi Girish forwarded u the material plz check it out

Regards

Pavan

[Former Member]

Hello Ranjith,

You are opening multiple thread and not closing many,if you follow same procedure,then you will not get good response from forum.

Check the below program :

REPORT ZTEJ_INTAB1 LINE-SIZE 103 LINE-COUNT 35(5) NO STANDARD PAGE

HEADING.

*TABLES DECLARATION

TABLES : KNA1, VBAK, VBAP.

*SELECT OPTIONS

SELECT-OPTIONS: CUST_NO FOR KNA1-KUNNR.

*INITIALIZATION

INITIALIZATION.

CUST_NO-LOW = '01'.

CUST_NO-HIGH = '5000'.

CUST_NO-SIGN = 'I'.

CUST_NO-OPTION = 'BT'.

APPEND CUST_NO.

*SELECTION SCREEN VALIDATION

AT SELECTION-SCREEN ON CUST_NO.

LOOP AT SCREEN.

IF CUST_NO-LOW < 1 OR CUST_NO-HIGH > 5000.

MESSAGE E001(ZTJ1).

ENDIF.

ENDLOOP.

*BASIC LIST SELECTION

START-OF-SELECTION.

SELECT KUNNR NAME1 ORT01 LAND1 INTO

(KNA1-KUNNR, KNA1-NAME1,KNA1-ORT01,KNA1-LAND1)

FROM KNA1

WHERE KUNNR IN CUST_NO.

WRITE:/1 SY-VLINE,

KNA1-KUNNR UNDER 'CUSTOMER NO.' HOTSPOT ON,

16 SY-VLINE,

KNA1-NAME1 UNDER 'NAME',

61 SY-VLINE,

KNA1-ORT01 UNDER 'CITY',

86 SY-VLINE,

KNA1-LAND1 UNDER 'COUNTRY',

103 SY-VLINE.

HIDE: KNA1-KUNNR.

ENDSELECT.

ULINE.

*SECONDARY LIST ACCESS

AT LINE-SELECTION.

IF SY-LSIND = 1.

PERFORM SALES_ORD.

ENDIF.

IF SY-LSIND = 2.

PERFORM ITEM_DET.

ENDIF.

*TOP OF PAGE

TOP-OF-PAGE.

FORMAT COLOR 1.

WRITE : 'CUSTOMER DETAILS'.

FORMAT COLOR 1 OFF.

ULINE.

FORMAT COLOR 3.

WRITE : 1 SY-VLINE,

3 'CUSTOMER NO.',

16 SY-VLINE,

18 'NAME',

61 SY-VLINE,

63 'CITY',

86 SY-VLINE,

88 'COUNTRY',

103 SY-VLINE.

ULINE.

FORMAT COLOR 3 OFF.

*TOP OF PAGE FOR SECONDARY LISTS

TOP-OF-PAGE DURING LINE-SELECTION.

*TOP OF PAGE FOR 1ST SECONDARY LIST

IF SY-LSIND = 1.

ULINE.

FORMAT COLOR 1.

WRITE : 'SALES ORDER DETAILS'.

ULINE.

FORMAT COLOR 1 OFF.

FORMAT COLOR 3.

WRITE : 1 SY-VLINE,

3 'CUSTOMER NO.',

16 SY-VLINE,

18 'SALES ORDER NO.',

40 SY-VLINE,

42 'DATE',

60 SY-VLINE,

62 'CREATOR',

85 SY-VLINE,

87 'DOC DATE',

103 SY-VLINE.

ULINE.

ENDIF.

FORMAT COLOR 3 OFF.

*TOP OF PAGE FOR 2ND SECONDARY LIST

IF SY-LSIND = 2.

ULINE.

FORMAT COLOR 1.

WRITE : 'ITEM DETAILS'.

ULINE.

FORMAT COLOR 1 OFF.

FORMAT COLOR 3.

WRITE : 1 SY-VLINE,

3 'SALES ORDER NO.',

40 SY-VLINE,

42 'SALES ITEM NO.',

60 SY-VLINE,

62 'ORDER QUANTITY',

103 SY-VLINE.

ULINE.

ENDIF.

FORMAT COLOR 3 OFF.

*END OF PAGE

END-OF-PAGE.

ULINE.

WRITE :'USER :',SY-UNAME,/,'DATE :', SY-DATUM, 85 'END OF PAGE:',

SY-PAGNO.

SKIP.

&----

---

*& Form SALES_ORD

*&

*& FIRST SECONDARY LIST FORM

&----

---

FORM SALES_ORD .

SELECT KUNNR VBELN ERDAT ERNAM AUDAT INTO

(VBAK-KUNNR, VBAK-VBELN, VBAK-ERDAT, VBAK-ERNAM, VBAK-AUDAT)

FROM VBAK

WHERE KUNNR = KNA1-KUNNR.

WRITE:/1 SY-VLINE,

VBAK-KUNNR UNDER 'CUSTOMER NO.' HOTSPOT ON,

16 SY-VLINE,

VBAK-VBELN UNDER 'SALES ORDER NO.' HOTSPOT ON,

40 SY-VLINE,

VBAK-ERDAT UNDER 'DATE',

60 SY-VLINE,

VBAK-ERNAM UNDER 'CREATOR',

85 SY-VLINE,

VBAK-AUDAT UNDER 'DOC DATE',

103 SY-VLINE.

HIDE : VBAK-VBELN.

ENDSELECT.

ULINE.

ENDFORM. " SALES_ORD

&----

---

*& Form ITEM_DET

*&

*& SECOND SECONDARY LIST FORM

&----

---

FORM ITEM_DET .

SELECT VBELN POSNR KWMENG INTO

(VBAP-VBELN, VBAP-POSNR, VBAP-KWMENG)

FROM VBAP

WHERE VBELN = VBAK-VBELN.

WRITE : /1 SY-VLINE,

VBAP-VBELN UNDER 'SALES ORDER NO.',

40 SY-VLINE,

VBAP-POSNR UNDER 'SALES ITEM NO.',

60 SY-VLINE,

VBAP-KWMENG UNDER 'ORDER QUANTITY',

103 SY-VLINE.

ENDSELECT.

ULINE.

ENDFORM. " ITEM_DET

Thanks

Seshu