Skip to Content
0
Former Member
Dec 08, 2008 at 10:41 AM

unable to get output in alv grid

27 Views

hi experts,

im getting output for below code if im generating classical report.

but im unable to display it in alv reporting.

can any body tell me where i had done mistake.

thanks in advance,

harini.

REPORT zmm_ssr line-size 200.

TABLES : ekko,ekpo,eket,ekbe.

TYPE-POOLS : slis.

***********************************************************************

***************SELECTIONSCREEN***************************************

***********************************************************************

*******

SELECT-OPTIONS : so_date FOR ekko-bedat.

***selecting data

TYPES: BEGIN OF ty_ekko,

ebeln TYPE ebeln,

bedat TYPE bedat,

lifnr TYPE lifnr,

END OF ty_ekko.

DATA : it_ekko TYPE TABLE OF ty_ekko,

wa_ekko TYPE ty_ekko.

TYPES : BEGIN OF ty_ekpo,

matnr TYPE matnr,

ebeln TYPE ebeln,

ebelp TYPE ebelp,

END OF ty_ekpo.

DATA : it_ekpo TYPE TABLE OF ty_ekpo,

wa_ekpo TYPE ty_ekpo.

TYPES : BEGIN OF ty_eket,

ebeln TYPE ebeln,

ebelp type ebelp,

eindt TYPE eindt,

END OF ty_eket.

DATA : it_eket TYPE TABLE OF ty_eket,

wa_eket TYPE ty_eket.

TYPES : BEGIN OF ty_ekbe,

ebeln type ebeln,

ebelp type ebelp,

belnr TYPE ekbe-belnr,

budat TYPE ekbe-budat,

END OF ty_ekbe.

DATA : it_ekbe TYPE TABLE OF ty_ekbe,

wa_ekbe TYPE ty_ekbe.

TYPES : BEGIN OF ty_ekbe1,

ebeln type ebeln,

ebelp type ebelp,

belnr TYPE ekbe-belnr,

budat TYPE ekbe-budat,

END OF ty_ekbe1.

DATA : it_ekbe1 TYPE TABLE OF ty_ekbe1,

wa_ekbe1 TYPE ty_ekbe1.

TYPES : BEGIN OF ty_output,

ebeln TYPE ebeln,

bedat TYPE bedat,

lifnr TYPE lifnr,

matnr TYPE matnr,

eindt TYPE eindt,

belnr TYPE belnr,

budat TYPE budat,

belnr1 TYPE belnr,

budat1 TYPE budat,

END OF ty_output.

DATA : it_output TYPE TABLE OF ty_output,

wa_output TYPE ty_output.

data : fcit type slis_t_fieldcat_alv,

fcwa type slis_fieldcat_alv.

SELECT ebeln bedat lifnr FROM ekko

INTO CORRESPONDING FIELDS OF TABLE it_ekko

WHERE bedat IN so_date.

SORT it_ekko BY ebeln.

IF NOT it_ekko IS INITIAL.

SELECT matnr ebeln ebelp FROM ekpo INTO TABLE it_ekpo

FOR ALL ENTRIES IN it_ekko

WHERE ebeln = it_ekko-ebeln.

SORT it_ekpo BY ebeln.

ENDIF.

IF NOT it_ekpo IS INITIAL.

SELECT ebeln ebelp eindt FROM eket INTO TABLE it_eket

FOR ALL ENTRIES IN it_ekpo

WHERE ebeln = it_ekpo-ebeln AND ebelp = it_ekpo-ebelp.

SORT it_ekpo BY ebeln.

ENDIF.

IF NOT it_ekpo IS INITIAL.

SELECT ebeln ebelp belnr budat FROM ekbe

INTO CORRESPONDING FIELDS OF TABLE it_ekbe

FOR ALL ENTRIES IN it_ekpo

WHERE ebeln = it_ekpo-ebeln

AND ebelp = it_ekpo-ebelp

AND bewtp = 'Q'.

ENDIF.

SORT it_ekbe BY ebeln.

IF NOT it_ekpo IS INITIAL.

SELECT ebeln ebelp belnr budat FROM ekbe

INTO CORRESPONDING FIELDS OF TABLE it_ekbe1

FOR ALL ENTRIES IN it_ekpo

WHERE ebeln = it_ekpo-ebeln

AND ebelp = it_ekpo-ebelp

AND bewtp = 'E'

AND bwart = '101'.

ENDIF.

SORT it_ekbe BY ebeln.

LOOP AT it_ekpo INTO wa_ekpo.

wa_output-matnr = wa_ekpo-matnr.

read table it_ekko into wa_ekko with key ebeln = wa_ekpo-ebeln.

wa_output-ebeln = wa_ekko-ebeln.

wa_output-bedat = wa_ekko-bedat.

wa_output-lifnr = wa_ekko-lifnr.

READ TABLE it_eket INTO wa_eket WITH KEY ebeln = wa_ekpo-ebeln

ebelp = wa_ekpo-ebelp.

wa_output-eindt = wa_eket-eindt.

READ TABLE it_ekbe INTO wa_ekbe WITH KEY ebeln = wa_ekpo-ebeln ebelp

= wa_ekpo-ebelp.

wa_output-belnr = wa_ekbe-belnr.

wa_output-budat = wa_ekbe-budat.

READ TABLE it_ekbe1 INTO wa_ekbe1 WITH KEY ebeln = wa_ekpo-ebeln

ebelp = wa_ekpo-ebelp.

wa_output-belnr1 = wa_ekbe-belnr.

wa_output-budat1 = wa_ekbe-budat.

*write : / wa_output-ebeln,wa_output-bedat,wa_output-lifnr,

*wa_output-matnr,wa_output-eindt,wa_output-belnr,wa_output-budat,

*wa_output-belnr1,wa_output-budat.

append wa_output to it_output.

endloop.

fcwa-fieldname = 'ebeln'.

fcwa-seltext_m = 'po no'.

append fcwa to fcit.

fcwa-fieldname = 'bedat'.

fcwa-seltext_m = 'date'.

append fcwa to fcit.

fcwa-fieldname = 'lifnr'.

fcwa-seltext_m = 'vendor'.

append fcwa to fcit.

fcwa-fieldname = 'matnr'.

fcwa-seltext_m = 'material'.

append fcwa to fcit.

fcwa-fieldname = 'eindt'.

fcwa-seltext_m = 'reqd date'.

append fcwa to fcit.

fcwa-fieldname = 'belnr'.

fcwa-seltext_m = 'inv no'.

append fcwa to fcit.

fcwa-fieldname = 'budat'.

fcwa-seltext_m = 'inv date'.

append fcwa to fcit.

fcwa-fieldname = 'belnr1'.

fcwa-seltext_m = 'grdate'.

append fcwa to fcit.

fcwa-fieldname = 'budat1'.

fcwa-seltext_m = 'gr date'.

append fcwa to fcit.

CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'

EXPORTING

IT_FIELDCAT = fcit

TABLES

T_OUTTAB = it_output.