need sample program OO abap alv using hotspot( interactive report)

[Former Member]

need sample program on Object Oriented program using alv interactive report.

[Former Member]

&----

---

*& 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.[/code]

thanks

reward if helpful

[uwe_schieferstein]

Hello Anil

You may want to have a look at my ZUS_SDN_... sample reports in the following threads:

[Event handling in alv oops With buttons|;

[Event in ALV Grid|;

[How to handle two hot spot clicks on one screen|;

Regards

Uwe