Extracting Purchase order details

Question

Hai All,
           I am workng on a report in which I have to display the purchase order and GRN details for a given Purchase Requisition number.
If the PR has 5 line items and PO is made only for 2 line items, then the purchase order details for only those 2 line items should be displayed, but I am getting default purch ord data for all those 5 line items even though PO is not made for 3 line items.
Can anyone pls help me on this....

Answer 1

Hi ,
    Here goes ur solution , Only u have to use EBAN and EKBE for the purpose.The report displays item no wise details of PR with PO and GR. selection options for PR REQ or REQ Date  is used .
types: begin of int_pr,
     banfn like eban-banfn,
     bnfpo like eban-bnfpo,
     badat like eban-badat,
     ebeln like eban-ebeln,
     bedat like eban-bedat,
     matnr like eban-matnr,
    end of int_pr.
declaring work area.
data: pr_wa type table of int_pr,
      pr_wa1 like line of pr_wa,
       prnum(10),prval(10),tot type n.
types: begin of type_ekbe,
       ebeln like ekbe-ebeln,       " PO NO
       ebelp like ekbe-ebelp,        " ITEM NO IN PO
       belnr like ekbe-belnr,         " GR NO
       end of type_ekbe.
data: itab_gr type table of type_ekbe,
      wa_gr like line of itab_gr.
giving selection crieteria
select-options pr_no for eban-banfn.         " for purchase requistion no.
select-options pr_dt for eban-badat.         " for pr date
start-of-selection.
if pr_no is not initial.
select banfn bnfpo badat ebeln bedat matnr into corresponding fields of table pr_wa from eban where
banfn in pr_no and loekz ne 'x'.
select ebeln ebelp belnr into table itab_gr from ekbe for all entries in pr_wa where ebeln = pr_wa-ebeln and ebelp = pr_wa-bnfpo.
elseif pr_dt is not initial.
select banfn bnfpo badat ebeln bedat matnr into corresponding fields of table pr_wa from eban where
badat in pr_dt and loekz ne 'x' order by badat.
select ebeln ebelp belnr into table itab_gr from ekbe for all entries in pr_wa where ebeln = pr_wa-ebeln and ebelp = pr_wa-bnfpo.
endif.
loop at pr_wa into pr_wa1.
read table itab_gr into wa_gr with key ebeln = pr_wa1-ebeln  ebelp = pr_wa1-bnfpo.
if pr_wa1-ebeln ne ' '.
write: / sy-vline,2(10) pr_wa1-banfn color 2, sy-vline,14(12) pr_wa1-badat color 2, sy-vline, 28(9) pr_wa1-bnfpo color 2, sy-vline, 40(13) pr_wa1-matnr color 2, sy-vline, 55(16) pr_wa1-ebeln color 2, sy-vline, 74(15) pr_wa1-bedat color 2, sy-vline,
wa_gr-belnr,sy-vline.
else.
write: / sy-vline,2(10) pr_wa1-banfn color 2, sy-vline,14(12) pr_wa1-badat color 2, sy-vline, 28(9) pr_wa1-bnfpo color 2, sy-vline, 40(13) pr_wa1-matnr color 2, sy-vline, 55(16) 'not processed' color 6, sy-vline, 74(15) pr_wa1-bedat color 2, sy-vline,
wa_gr-belnr,sy-vline.
endif.
endloop.
uline at /1(90).
                             thats all u have to do for getting the required output.