REPORT

Former Member — Tue, 18 Dec 2007 11:07:41 GMT

Hi all,

I have written a report for MRP. My certainpart of code is not working. i have highlighted it in bold for your convenience. please correct my code if rquired.

REPORT zmrpreport.

TABLES : mdkp,

makt,

mkpf,

eban.

TYPE-POOLS : slis.

DATA: it_sort TYPE slis_t_sortinfo_alv,

it_fieldcat TYPE slis_t_fieldcat_alv,

it_commentary TYPE slis_t_listheader,

it_events TYPE slis_t_event,

it_events_f TYPE slis_t_event.

DATA: fieldcatalog TYPE slis_t_fieldcat_alv WITH HEADER LINE,

gd_layout TYPE slis_layout_alv.

DATA: fieldcatalog1 TYPE slis_t_fieldcat_alv WITH HEADER LINE,

gd_layout1 TYPE slis_layout_alv.

*WORK AREA

DATA: wa_fieldcat LIKE LINE OF it_fieldcat,

wa_events LIKE LINE OF it_events,

wa_layout TYPE slis_layout_alv,

wa_print TYPE slis_print_alv,

wa_commentary TYPE slis_listheader.

DATA : it_mara TYPE TABLE OF mara WITH HEADER LINE.

DATA : it_j_2iregbal TYPE TABLE OF j_2iregbal.

DATA : it_zmatnumber TYPE TABLE OF zmatnumber WITH HEADER LINE.

DATA : it_mard TYPE TABLE OF mard WITH HEADER LINE.

DATA : it_mbew TYPE TABLE OF mbew WITH HEADER LINE.

DATA : it_mkpft TYPE TABLE OF mkpf WITH HEADER LINE.

DATA : it_msegt TYPE TABLE OF mseg WITH HEADER LINE.

DATA : wrk_receipts TYPE mseg-menge,

wrk_issues TYPE mseg-menge,

wrk_matnum TYPE mara-matnr,

wrk_ret TYPE mseg-menge.

DATA : wrk_index1 TYPE i.

DATA : wa_msegt LIKE LINE OF it_msegt.

DATA : BEGIN OF itab_output OCCURS 0,

matnr TYPE mara-matnr,

opstock LIKE mbew-lbkum,

clstock LIKE mbew-lbkum,

closestock LIKE mbew-lbkum,

issue LIKE mseg-menge,

rets LIKE mseg-menge,

rcpts LIKE mseg-menge,

END OF itab_output.

DATA : BEGIN OF ts_output OCCURS 0,

matnr TYPE mara-matnr,

maktx TYPE makt-maktx,

minbe TYPE mdkp-minbe,

bstfx TYPE mdkp-bstfx,

banfn TYPE eban-banfn,

menge TYPE eban-menge,

ekgrp TYPE eban-ekgrp,

opstock LIKE mbew-lbkum,

clstock LIKE mbew-lbkum,

issue LIKE mseg-menge,

rets LIKE mseg-menge,

rcpts LIKE mseg-menge,

END OF ts_output.

DATA : BEGIN OF it_output OCCURS 0,

matnr TYPE mara-matnr,

maktx TYPE makt-maktx,

minbe TYPE mdkp-minbe,

bstfx TYPE mdkp-bstfx,

banfn TYPE eban-banfn,

menge TYPE eban-menge,

ekgrp TYPE eban-ekgrp,

END OF it_output.

DATA : it_mdkp TYPE TABLE OF mdkp WITH HEADER LINE.

DATA : it_eban TYPE TABLE OF eban WITH HEADER LINE.

*DATA : it_output TYPE TABLE OF ts_output WITH HEADER LINE.

DATA : wa_output LIKE LINE OF it_output.

DATA : wa_output1 LIKE LINE OF itab_output.

DATA : wa_output2 LIKE LINE OF ts_output.

DATA : wa_mkpft LIKE LINE OF it_mkpft.

&----

*" Selection screen Definition

&----

SELECTION-SCREEN BEGIN OF BLOCK b1 WITH FRAME TITLE text-001.

SELECT-OPTIONS: s_date FOR mdkp-dsdat,

S_GROUP FOR MDKP-EKGRP,

s_plant FOR mdkp-plwrk NO-EXTENSION NO INTERVALS,

S_dat FOR mkpf-budat NO-EXTENSION NO INTERVALS.

SELECTION-SCREEN END OF BLOCK b1.

*S_DATE = S_DATE+3(16).

IF SY-SUBRC = 0.

IF s_plant-LOW NE '' AND s_group NE '' AND s_date NE ''.

*SELECT **

FROM

mdkp

INTO CORRESPONDING FIELDS

OF TABLE it_mdkp

WHERE plwrk EQ s_plant-LOW

AND EKGRP IN S_GROUP

AND dsdat IN s_date.

AND minbe ne 0.*

ELSEIF

s_Plant-LOW NE ''

and s_group NE ''.

*SELECT **

FROM

mdkp

INTO CORRESPONDING FIELDS

OF TABLE it_mdkp

WHERE plwrk EQ s_plant-LOW

AND EKGRP IN S_GROUP.

ELSEIF

s_group NE ''

and s_date NE '' .

*SELECT **

FROM

mdkp

INTO CORRESPONDING FIELDS

OF TABLE it_mdkp

WHERE EKGRP IN S_GROUP

AND dsdat IN s_date.

endIF.

ENDIF.

IF IT_MDKP[] IS NOT INITIAL.

SELECT *

FROM

eban

INTO CORRESPONDING FIELDS

OF TABLE it_eban

FOR ALL ENTRIES IN it_mdkp

WHERE matnr EQ it_mdkp-matnr

AND erdat EQ it_mdkp-dsdat

AND estkz EQ 'B'

AND loekz NE 'X'

AND ebakz NE 'X'.

is there need of checking the qty as pr will be closed when entire qty is closed
will the same material get planned twice

ENDIF.

LOOP AT it_eban.

SELECT SINGLE * FROM makt WHERE matnr EQ it_eban-matnr.

IF sy-subrc EQ 0.

it_output-matnr = makt-matnr.

it_output-maktx = makt-maktx.

ENDIF.

READ TABLE it_mdkp WITH KEY matnr = it_eban-matnr.

IF sy-subrc EQ 0.

it_output-minbe = it_mdkp-minbe.

it_output-bstfx = it_mdkp-bstfx.

ENDIF.

it_output-banfn = it_eban-banfn.

it_output-menge = it_eban-menge.

it_output-ekgrp = it_eban-ekgrp.

APPEND it_output TO it_output.

ENDLOOP.

IF it_mdkp IS NOT INITIAL.

SELECT *

FROM

mbew

INTO TABLE

it_mbew

FOR ALL ENTRIES IN it_mdkp

WHERE matnr EQ it_mdkp-matnr.

ENDIF.

IF sy-subrc EQ 0.

LOOP AT it_mbew.

wa_output1-matnr = it_mbew-matnr.

wa_output1-clstock = it_mbew-lbkum .

wa_output1-opstock = it_mbew-lbkum .

wa_output1-closestock = it_mbew-lbkum .

APPEND wa_output1 TO itab_output .

CLEAR : it_mbew,

wa_output1.

ENDLOOP.

ENDIF.

S_dat = S_dat+3(8).

IF S_dat NE sy-datum.

SELECT *

FROM

mkpf

INTO TABLE it_mkpft

WHERE

budat LE sy-datum AND

budat GE S_dat.

IF sy-subrc EQ 0.

SELECT *

FROM

mseg

INTO TABLE it_msegt

FOR ALL ENTRIES IN it_mkpft

WHERE mblnr EQ it_mkpft-mblnr

AND bwart IN ('101','102','122','123','201','202').

IF sy-subrc EQ 0.

SORT it_msegt BY matnr.

LOOP AT it_msegt.

wrk_index1 = sy-tabix + 1.

READ TABLE it_msegt INTO wa_msegt INDEX wrk_index1.

IF it_msegt-matnr EQ wa_msegt-matnr.

*Adding up the Receipts and subtracting reversal of receipts

IF it_msegt-bwart EQ '101'.

wrk_receipts = wrk_receipts + it_msegt-menge.

ELSEIF it_msegt-bwart EQ '102'.

wrk_receipts = wrk_receipts - it_msegt-menge.

ENDIF.

*Adding up the Issues and subtracting the reversals

IF it_msegt-bwart EQ '201'.

wrk_issues = wrk_issues + it_msegt-menge.

ELSEIF it_msegt-bwart EQ '202'.

wrk_issues = wrk_issues - it_msegt-menge.

ENDIF.

*Adding up the Returns and subtracting the reversals

IF it_msegt-bwart EQ '122'.

wrk_ret = wrk_ret + it_msegt-menge.

ELSEIF it_msegt-bwart EQ '123'.

wrk_ret = wrk_ret - it_msegt-menge.

ENDIF.

ELSE."when last record or no

*Adding up the Receipts and subtracting reversal of receipts

IF it_msegt-bwart EQ '101'.

wrk_receipts = wrk_receipts + it_msegt-menge.

ELSEIF it_msegt-bwart EQ '102'.

wrk_receipts = wrk_receipts - it_msegt-menge.

ENDIF.

*Adding up the Issues and subtracting the reversals

IF it_msegt-bwart EQ '201'.

wrk_issues = wrk_issues + it_msegt-menge.

ELSEIF it_msegt-bwart EQ '202'.

wrk_issues = wrk_issues - it_msegt-menge.

ENDIF.

*Adding up the Returns and subtracting the reversals

IF it_msegt-bwart EQ '122'.

wrk_ret = wrk_ret + it_msegt-menge.

ELSEIF it_msegt-bwart EQ '123'.

wrk_ret = wrk_ret - it_msegt-menge.

ENDIF.

READ TABLE itab_output INTO wa_output1 WITH KEY matnr = it_msegt-matnr. " changed mbewt instead of msegt

IF sy-subrc EQ 0.

wa_output1-rcpts = wrk_receipts.

wa_output1-issue = wrk_issues.

wa_output1-rets = wrk_ret.

wa_output1-opstock = wa_output1-clstock + wa_output1-issue + wa_output1-rets - wa_output1-rcpts.

MODIFY itab_output FROM wa_output1 INDEX sy-tabix TRANSPORTING opstock issue rets rcpts.

ENDIF.

CLEAR : wrk_receipts,

wrk_issues,

wrk_ret,

wrk_index1.

ENDIF.

CLEAR : wa_output1,

it_msegt,

wa_msegt.

ENDLOOP.

ENDIF.

*IF sy-subrc EQ 0.

SELECT *
FROM
eban
INTO CORRESPONDING FIELDS
OF TABLE it_eban
FOR ALL ENTRIES IN it_mdkp
WHERE matnr EQ it_mdkp-matnr
AND erdat EQ it_mdkp-dsdat
AND estkz EQ 'B'
AND loekz NE 'X'
AND ebakz NE 'X'.

is there need of checking the qty as pr will be closed when entire qty is closed
will the same material get planned twice

*ENDIF.

*LOOP AT it_eban.

SELECT SINGLE * FROM makt WHERE matnr EQ it_eban-matnr.
IF sy-subrc EQ 0.
it_output-matnr = makt-matnr.
it_output-maktx = makt-maktx.
ENDIF.
READ TABLE it_mdkp WITH KEY matnr = it_eban-matnr.
IF sy-subrc EQ 0.
it_output-minbe = it_mdkp-minbe.
it_output-bstfx = it_mdkp-bstfx.
ENDIF.
it_output-banfn = it_eban-banfn.
it_output-menge = it_eban-menge.
it_output-ekgrp = it_eban-ekgrp.
APPEND it_output TO it_output.

*ENDLOOP.

LOOP AT it_output.

CLEAR ts_output.

wa_output2-matnr = it_output-matnr.

wa_output2-maktx = it_output-maktx.

wa_output2-minbe = it_output-minbe.

wa_output2-bstfx = it_output-bstfx.

wa_output2-banfn = it_output-banfn.

wa_output2-menge = it_output-menge.

wa_output2-ekgrp = it_output-ekgrp.

READ TABLE itab_output WITH KEY matnr = it_output-matnr.

IF sy-subrc = 0.

wa_output2-rcpts = itab_output-rcpts.

wa_output2-rets = itab_output-rets.

wa_output2-issue = itab_output-issue.

wa_output2-opstock = itab_output-opstock.

wa_output2-clstock = itab_output-clstock.

ENDIF.

APPEND wa_output2 TO ts_output.

ENDLOOP.

fieldcatalog-fieldname = 'MATNR'.

fieldcatalog-seltext_m = 'Material No'.

fieldcatalog-col_pos = 1.