Report to display purchase orders

Question

Hi I am Venkat
can any one send me report to display a list of Purchase orders open for period more than one year. I need the following output fields to be dispayed are Vendor, Period, Purchasing organization, PO number, Document date, GR status, check box

Answer 1

i think this code will help u.
REPORT  Z_PURCHASEU.
tables :  ekko,vbrk,mara,rseg,lfa1,makt,konv,bseg,vbap,j_1iexhead.
data: begin of itab occurs 0,
     qty   like rseg-menge,           "qty
     bed   like rseg-wrbtr,           "bed(basic excise duty)
     mwskz like rseg-mwskz,           "tax code
     cess  like rseg-wrbtr,           "cess
     sum   like rseg-wrbtr,
     unit  like rseg-bstme,           "unit
     belnr like rseg-belnr,           "document number
  lst_cst  like rseg-wrbtr ,          "CST amount
    amount like rseg-wrbtr,           "amount
     aedat like ekko-aedat,           "po date
     ebeln like ekko-ebeln,           "po number
     lifnr like ekko-lifnr,           "vendor code
    matnr like mara-matnr,           "material code
    maktx like mara-maktx,           "material description
    mtart like mara-mtart,           "material type
    vbeln like vbrk-vbeln,           "bill number
    fkdat like vbrk-fkdat,           "bill date
    name1 like lfa1-name1,           "vendor name
    kzwi1 like vbap-kzwi1,           "basic value
     end of itab.
     select-options:
vendrcod for ekko-lifnr,
date for vbrk-fkdat,
matrtype for mara-mtart,
taxcode for rseg-mwskz.
select egmenge egwrbtr egmwskz egwrbtr egwrbtr egbstme eg~belnr
egwrbtr egwrbtr
          koaedat koebeln ko~lifnr
          into corresponding fields of table itab
          from rseg as eg inner join ekko as ko on egebeln = koebeln
where
ko~lifnr in vendrcod And
eg~mwskz in taxcode.
*select-options:
vendrcod for ekko-lifnr,
date for vbrk-fkdat,
matrtype for mara-mtart,
taxcode for rseg-mwskz.
select abelnr amwskz amenge awrbtr  into
*corresponding
*fields of table itab
*from rseg as a inner join bseg as b on
*awrbtr = bwrbtr where
*a~belnr in docment number and
*a~mwskz in tax code and
*a~menge in qty.
loop at itab.
write:/1 sy-vline,
       2   itab-name1    ,  18 sy-vline,
        19  itab-lifnr    ,  30 sy-vline,
        31  itab-aedat    ,  46 sy-vline,
        47  itab-ebeln    ,  60 sy-vline,
        61  itab-belnr    ,  80 sy-vline.
        uline.
        endloop.
write  :   /1 sy-vline,
          2  'vendor name'  ,     18 sy-vline,
          19  'vendor code' ,     30 sy-vline,
          31  'po date'      ,    46 sy-vline,
          47  'po number '     ,  60 sy-vline,
          61  'document number',  80 sy-vline.
give points if useful.