topic interactive report in Application Development and Automation Discussions

interactive report

Former Member — Fri, 22 Feb 2008 14:33:45 GMT

how can we move from basic list to secondary list , and from first secondary list , and so on?

I'm aware of the events At line-selection, at user-command,etc

it will b helpful if I get a sample code?

thanx in advance

Re: interactive report

former_member187255 — Fri, 22 Feb 2008 14:36:18 GMT

Tanuj,

Check this example [http://abapprogramming.blogspot.com/2007/11/alv-interactive-report-sample-code.html]

Re: interactive report

Former Member — Fri, 22 Feb 2008 17:02:08 GMT

Check the Sample Interactive Report


&---------------------------------------------------------------------
*& Report Z8VM_N_PO_PRICING_CONDITION *
*& *
&---------------------------------------------------------------------
*& *
*& *
&---------------------------------------------------------------------

REPORT Z8VM_N_PO_PRICING_CONDITION NO STANDARD PAGE HEADING
MESSAGE-ID Z8VM.

************************************************************************
* vivekanand meghmala
* trial assignment
* po with pricing condition interactive report with checkbox
************************************************************************

************************************************************************
* data declaration
************************************************************************

TYPES : BEGIN OF STRUCT_EKKO, "po header

BUKRS LIKE T001-BUKRS,
EBELN LIKE EKKO-EBELN,
BSART LIKE EKKO-BSART,
BEDAT LIKE EKKO-BEDAT,
EKORG LIKE EKKO-EKORG,
WAERS LIKE EKKO-WAERS,
LIFNR LIKE EKKO-LIFNR,
KNUMV LIKE EKKO-KNUMV,

END OF STRUCT_EKKO.

TYPES : BEGIN OF STRUCT_EKPO, "po details

EBELN LIKE EKPO-EBELN,
EBELP LIKE EKPO-EBELP,
MATNR LIKE EKPO-MATNR,

END OF STRUCT_EKPO.

TYPES : BEGIN OF STRUCT_KONV,

KNUMV LIKE KONV-KNUMV,
KPOSN LIKE KONV-KPOSN,
KSCHL LIKE KONV-KSCHL,
KAWRT LIKE KONV-KAWRT,
KBETR LIKE KONV-KBETR,

END OF STRUCT_KONV.

DATA : IT_EKKO TYPE STANDARD TABLE OF STRUCT_EKKO WITH HEADER LINE.
DATA : IT_EKPO TYPE STANDARD TABLE OF STRUCT_EKPO WITH HEADER LINE.
DATA : IT_KONV TYPE STANDARD TABLE OF STRUCT_KONV WITH HEADER LINE.

PARAMETERS : T_BUKRS LIKE EKKO-BUKRS .
SELECT-OPTIONS : S_BEDAT FOR IT_EKKO-BEDAT.
SELECT-OPTIONS : S_EKORG FOR IT_EKKO-EKORG.
************************************************************************
* validations
************************************************************************

AT SELECTION-SCREEN.

IF T_BUKRS = ' '.
MESSAGE E009.
ENDIF.

SELECT BUKRS FROM T001
INTO CORRESPONDING FIELDS OF IT_EKKO
WHERE BUKRS = T_BUKRS.
EXIT.
ENDSELECT.

IF SY-SUBRC 0.
MESSAGE E001.
ENDIF.



************************************************************************
* logic
************************************************************************
START-OF-SELECTION.

SELECT BUKRS
EBELN
BSART
BEDAT
EKORG
WAERS
LIFNR
KNUMV FROM EKKO INTO CORRESPONDING FIELDS OF TABLE IT_EKKO
WHERE BUKRS = T_BUKRS
AND BEDAT IN S_BEDAT
AND EKORG IN S_EKORG.




SELECT EBELN
EBELP
MATNR FROM EKPO INTO CORRESPONDING FIELDS OF IT_EKPO
FOR ALL ENTRIES IN IT_EKKO WHERE EBELN = IT_EKKO-EBELN.
APPEND IT_EKPO.
ENDSELECT.

LOOP AT IT_EKPO.
SELECT KNUMV
KPOSN
KSCHL
KAWRT
KBETR FROM KONV INTO CORRESPONDING FIELDS OF IT_KONV
WHERE KPOSN = IT_EKPO-EBELP.

APPEND IT_KONV.
ENDSELECT.
ENDLOOP.



*************************************************************************
*data printing
*************************************************************************
LOOP AT IT_EKKO.

WRITE :/ IT_EKKO-BUKRS,IT_EKKO-EBELN,IT_EKKO-BSART,IT_EKKO-BEDAT,
IT_EKKO-EKORG,IT_EKKO-WAERS,IT_EKKO-LIFNR,IT_EKKO-KNUMV.

LOOP AT IT_EKPO WHERE EBELN = IT_EKKO-EBELN.

WRITE :/ IT_EKPO-EBELP,IT_EKPO-MATNR.


LOOP AT IT_KONV.
* WHERE KPOSN = IT_EKPO-EBELN.

WRITE :/ IT_KONV-KNUMV COLOR 3,IT_KONV-KPOSN COLOR 3,IT_KONV-KSCHL COLOR 3,IT_KONV-KAWRT COLOR 3,IT_KONV-KBETR COLOR 3.

ENDLOOP.



ENDLOOP.
ENDLOOP.

Re: interactive report

Former Member — Mon, 03 Mar 2008 12:22:50 GMT

Hai ,

I Am Just Giving A Piece OF Code..

data: it_itab Type Standard Table OF mara Occurs 0 With Header Line.

Select * From Mara Into Table It _itab.

Loop At It_itab.

Write:/ It_itab-matnr.

endloop.

AT Line-selection.

Write:/ ' I Am In Secondary List', Sy-lsind.

Re: interactive report

Former Member — Tue, 15 Apr 2008 06:16:07 GMT

“In this scenario, we would take an example of a material and develop an interactive report. Once you click on require “material no” on the basic list, the corresponding material information on the secondary list.”

REPORT zintractive .

TYPES : BEGIN OF str_mard,

matnr TYPE mard-matnr,

lgort TYPE mard-lgort,

werks TYPE mard-werks,

END OF str_mard.DATA : wa_mard TYPE str_mard,

it_mard TYPE TABLE OF str_mard.TYPES : BEGIN OF str_makt,

matnr TYPE makt-matnr,

maktg TYPE makt-maktg, END OF str_makt.DATA : wa_makt TYPE str_makt,

it_makt TYPE TABLE OF str_makt.TYPES : BEGIN OF str_mara,

matnr TYPE mara-matnr,

ersda TYPE mara-ersda,

ernam TYPE mara-ernam,

laeda TYPE mara-laeda,

mtart TYPE mara-mtart,

matkl TYPE mara-matkl,

meins TYPE mara-meins,

END OF str_mara.DATA : wa_mara TYPE str_mara,

it_mara TYPE TABLE OF str_mara.TYPES : BEGIN OF str_final,

matnr TYPE mara-matnr,

ersda TYPE mara-ersda,

ernam TYPE mara-ernam,

laeda TYPE mara-laeda,

mtart TYPE mara-mtart,

matkl TYPE mara-matkl,

meins TYPE mara-meins,

lgort TYPE mard-lgort,

werks TYPE mard-werks,

END OF str_final.DATA: wa_final TYPE str_final,

it_final TYPE TABLE OF str_final.PARAMETERS : plant TYPE mard-werks,

stor LIKE mard-lgort.SELECT matnr lgort werks

FROM mard

INTO TABLE it_mard

WHERE lgort = stor AND werks = plant.

.SELECT matnr maktg

FROM makt

INTO TABLE it_makt FOR ALL ENTRIES IN it_mard

WHERE matnr = it_mard-matnr AND spras = 'E'.

SELECT matnr ersda ernam laeda mtart matkl meins

FROM mara

INTO TABLE it_mara FOR ALL ENTRIES IN it_makt

WHERE matnr = it_makt-matnr.

LOOP AT it_makt INTO wa_makt.

WRITE : /1 wa_makt-matnr COLOR 1,

40 wa_makt-maktg COLOR 2.

HIDE wa_makt-matnr.

ENDLOOP.CLEAR wa_mard-matnr.AT LINE-SELECTION.

REFRESH it_final.

CLEAR wa_final.

ULINE.

IF sy-lsind = 1.

WRITE : /1 'MATERIAL NO' COLOR 2,

20 'CREATION DATE' COLOR 3,

32 'PERSON CREATED',

50 'DATE OF LIST' ,

65 'MATERIALTYPE',

80 'MATGROUP' ,

90 'UNITOFMEASURE',

110 'STORLOCATION' COLOR 4,

130 'PLANT' COLOR 5.

ULINE.

ENDIF. LOOP AT it_mara INTO wa_mara WHERE matnr = wa_makt-matnr. wa_final-matnr = wa_mara-matnr.

wa_final-ersda = wa_mara-ersda.

wa_final-ernam = wa_mara-ernam.

wa_final-laeda = wa_mara-laeda.

wa_final-mtart = wa_mara-mtart.

wa_final-matkl = wa_mara-matkl.

wa_final-meins = wa_mara-meins. READ TABLE it_mard INTO wa_mard WITH KEY matnr = wa_makt-matnr. wa_final-lgort = wa_mard-lgort.

wa_final-werks = wa_mard-werks. APPEND wa_final TO it_final. ENDLOOP. LOOP AT it_final INTO wa_final. WRITE : /1 wa_final-matnr COLOR 2,

20 wa_final-ersda COLOR 3,

37 wa_final-ernam,

50 wa_final-laeda ,

70 wa_final-mtart ,

85 wa_final-matkl ,

95 wa_final-meins,

115 wa_final-lgort COLOR 4,

130 wa_final-werks COLOR 5.

ENDLOOP.TOP-OF-PAGE.

WRITE : /1 'MATERIAL NO' COLOR 1,

40 'DISCRIPTION' COLOR 2.

ULINE .Result

Enter the “Plant” and “Storage Location”

Press the Execute Button.

Double Click on require “Material No” which displays secondary list to corresponding material information.