Report to display "Purchase Order History"

Hi all,
Can any one solve my problem, i need to create a report on Purchase Order History. So can any one tell, from which infoprovider i can generate this report or is there any standard report for this in SAP BW.
Thanks in Advance,
Regards,
Ramakrishna Kamurthy
+91-9963101073

Try with 0PUR_C01 and 0PUR_C03
Jayasudha

Similar Messages

Report to display purchase orders

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

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.

Mass display or print Purchase Order History

Instead of checking your Purchase Order History one at a time, you can now mass display or print them with this customized abap report.
Mass display or print Purchase Order History
You can request report by :
1. Change date
2. User Name
3. Purchase Order Number
4. Vendor Code
Written by : SAP Basis, ABAP Programming and Other IMG Stuff
             http://www.sap-img.com
REPORT ZPOCHANGE LINE-SIZE 132 NO STANDARD PAGE HEADING
                 LINE-COUNT 065(001)
                 MESSAGE-ID VR.
TABLES: DD04T,
        CDHDR,
        CDPOS,
        DD03L,
        DD41V,
        T685T,
        VBPA,
        TPART,
        KONVC,
        EKKO.
SELECT-OPTIONS: XUDATE FOR CDHDR-UDATE,
                XNAME FOR CDHDR-USERNAME,
                XEBELN FOR EKKO-EBELN,
                XLIFNR FOR EKKO-LIFNR.
SELECTION-SCREEN SKIP.
TEXT-001 - Sorting Sequence
SELECTION-SCREEN BEGIN OF BLOCK BLK1 WITH FRAME TITLE TEXT-001.
PARAMETERS: SUDATE RADIOBUTTON GROUP R1,
            SNAME RADIOBUTTON GROUP R1,
            SOBID RADIOBUTTON GROUP R1.
SELECTION-SCREEN END OF BLOCK BLK1.
DATA: WFLAG,
      WCHANGENR LIKE CDHDR-CHANGENR.
DATA: INDTEXT(60) TYPE C.
DATA: BEGIN OF ICDHDR OCCURS 50.
        INCLUDE STRUCTURE CDHDR.
DATA: END OF ICDHDR.
DATA: BEGIN OF ICDSHW OCCURS 50.
        INCLUDE STRUCTURE CDSHW.
DATA: END OF ICDSHW.
DATA: BEGIN OF EKKEY,
        EBELN LIKE EKET-EBELN,
        EBELP LIKE EKET-EBELP,
        ETENR LIKE EKET-ETENR,
      END OF EKKEY.
DATA: BEGIN OF ITAB OCCURS 50,
        BEGIN OF EKKEY,
          EBELN LIKE EKET-EBELN,
          EBELP LIKE EKET-EBELP,
          ETENR LIKE EKET-ETENR,
        END OF EKKEY,
        CHANGENR LIKE CDHDR-CHANGENR,
        UDATE    LIKE CDHDR-UDATE,
        UTIME    LIKE CDHDR-UTIME,
        USERNAME LIKE CDHDR-USERNAME,
        CHNGIND LIKE CDSHW-CHNGIND,
        FTEXT    LIKE CDSHW-FTEXT,
        OUTLEN   LIKE CDSHW-OUTLEN,
        F_OLD    LIKE CDSHW-F_OLD,
        F_NEW    LIKE CDSHW-F_NEW,
      END OF ITAB.
DATA: OLD_OBJECTID LIKE CDHDR-OBJECTID.
FIELD-SYMBOLS: <F_OLD>, <F_NEW>.
SELECT * FROM EKKO WHERE EBELN IN XEBELN AND
                         LIFNR IN XLIFNR.
CLEAR CDHDR.
CLEAR CDPOS.
CDHDR-OBJECTCLAS = 'EINKBELEG'.
CDHDR-OBJECTID   = EKKO-EBELN.
PERFORM GETCHGDOCS.
ENDSELECT.
IF SUDATE = 'X'.
SORT ITAB BY UDATE EKKEY-EBELN CHANGENR EKKEY-EBELP
               EKKEY-ETENR.
ELSEIF SNAME = 'X'.
SORT ITAB BY USERNAME EKKEY-EBELN CHANGENR EKKEY-EBELP
               EKKEY-ETENR.
ELSE.
SORT ITAB BY EKKEY-EBELN CHANGENR EKKEY-EBELP EKKEY-ETENR.
ENDIF.
LOOP AT ITAB.
CLEAR: INDTEXT, EKKEY.
CASE ITAB-CHNGIND.
    WHEN 'U'.
        INDTEXT(50) = ITAB-FTEXT.
        INDTEXT+51 = TEXT-020.
        CONDENSE INDTEXT.
    WHEN 'D'.
        INDTEXT = TEXT-021.
    WHEN 'E'.
        INDTEXT(5) = ITAB-FTEXT.
        INDTEXT+51 = TEXT-021.
        CONDENSE INDTEXT.
      WHEN 'I'.
        INDTEXT = TEXT-022.
    ENDCASE.
    RESERVE 4 LINES.
    IF WCHANGENR NE ITAB-CHANGENR.
      WCHANGENR = ITAB-CHANGENR.
      EKKEY = ITAB-EKKEY.
      WRITE:/ ITAB-UDATE UNDER 'Change Date',
              ITAB-UTIME UNDER 'Time',
              ITAB-USERNAME UNDER 'User Name',
              ITAB-EKKEY-EBELN UNDER 'PO No',
              ITAB-EKKEY-EBELP UNDER 'Item',
              ITAB-EKKEY-ETENR UNDER 'Sch No',
              INDTEXT     UNDER 'Changes'.
    ELSEIF ITAB-EKKEY NE EKKEY.
      WRITE:/ ITAB-EKKEY-EBELP UNDER 'Item',
              ITAB-EKKEY-ETENR UNDER 'Sch No',
              INDTEXT     UNDER 'Changes'.
    ENDIF.
    CASE ITAB-CHNGIND.
      WHEN 'U'.
        ASSIGN ITAB-F_OLD(ITAB-OUTLEN) TO <F_OLD>.
        ASSIGN ITAB-F_NEW(ITAB-OUTLEN) TO <F_NEW>.
        WRITE: / TEXT-023 UNDER 'Changes',
                 <F_OLD>.
        WRITE: / TEXT-024 UNDER 'Changes',
                 <F_NEW>.
      WHEN 'E'.
        ASSIGN ITAB-F_OLD(ITAB-OUTLEN) TO <F_OLD>.
        WRITE: TEXT-023 UNDER 'Changes',
               <F_OLD>.
    ENDCASE.
    SKIP.
ENDLOOP.
TOP-OF-PAGE.
WRITE:/ SY-DATUM,SY-UZEIT,
       50 'P U R C H A S E O R D E R   H I S T O R Y',
      120 'Page', SY-PAGNO.
WRITE: / SY-REPID,
         60 'Purchase Orders Changes'.
SKIP.
ULINE.
IF SUDATE = 'X'.
WRITE:/001 'Change Date',
         014 'Time',
         024 'User Name',
         038 'PO No',
         050 'Item',
         057 'Sch No',
         065 'Changes'.
ELSEIF SOBID = 'X'.
WRITE:/001 'PO No',
         013 'Item',
         020 'Sch No',
         028 'Change Date',
         041 'Time',
         051 'User Name',
         065 'Changes'.
ELSE.
WRITE:/001 'User Name',
         015 'Change Date',
         028 'Time',
         038 'PO No',
         050 'Item',
         057 'Sch No',
         065 'Changes'.
ENDIF.
ULINE.
FORM GETCHGDOCS.
CALL FUNCTION 'CHANGEDOCUMENT_READ_HEADERS'
       EXPORTING
            DATE_OF_CHANGE    = CDHDR-UDATE
            OBJECTCLASS       = CDHDR-OBJECTCLAS
            OBJECTID          = CDHDR-OBJECTID
            TIME_OF_CHANGE    = CDHDR-UTIME
            USERNAME          = CDHDR-USERNAME
       TABLES
            I_CDHDR           = ICDHDR
       EXCEPTIONS
            NO_POSITION_FOUND = 1
            OTHERS            = 2.
CHECK SY-SUBRC EQ 0.
DELETE ICDHDR WHERE CHANGE_IND EQ 'I'.
CHECK NOT ICDHDR[] IS INITIAL.
LOOP AT ICDHDR.
    CHECK ICDHDR-UDATE IN XUDATE.
    CHECK ICDHDR-USERNAME IN XNAME.
    CALL FUNCTION 'CHANGEDOCUMENT_READ_POSITIONS'
                 EXPORTING CHANGENUMBER       = ICDHDR-CHANGENR
                 IMPORTING HEADER             = CDHDR
                 TABLES     EDITPOS            = ICDSHW
                 EXCEPTIONS NO_POSITION_FOUND = 1
                            OTHERS             = 2.
    CHECK SY-SUBRC EQ 0.
    LOOP AT ICDSHW.
      CHECK ICDSHW-TEXT_CASE EQ SPACE.
      MOVE-CORRESPONDING ICDSHW TO ITAB.
      MOVE-CORRESPONDING ICDHDR TO ITAB.
      MOVE ICDSHW-TABKEY+3 TO ITAB-EKKEY.
      APPEND ITAB.
    ENDLOOP.
ENDLOOP.
ENDFORM.
END OF PROGRAM

Hi,
copied from          http://www.sap-img.com/mm001.htm

Purchase Order History as a Report?

Hi,
I would like to follow the amounts of purchase orders, relevant goods receipt amounts and so on as shown in purchase order history on PO. But I need it as a report which could be seen as ALV type, and easily exported to excel.
Is there such a standart report that I could follow purchase order-goods receipt quantities?
Thanks in advance
Irem

hi,
use MC$G - Puchasing values
And MC$I - Puchasing quantities
Or use ME87 - Aggregate PO history
Regards
Priyanka.P
Edited by: Priyanka Paltanwale on May 13, 2009 12:57 PM

Accounting document number display in purchase order history tab

Is it possible to display the accounting document number in the purchase order history tab? Currently it is displaying material document number for Good receipts and LIV (logistic invoice verification) document number for Invoice receipts against material document number colmn. We can get to the accounting document number by drilling into the LIV document number. We are looking for a way to display the accounting document number in the display screen of purchase order history tab instead of drilling down.
Is there an option to display accounting document number of the MIRO posting in ME23N , purchase order history tab?
Truly appreciate any help in this regard.

Thanks for the response.

Displaying Purchase order in report

Hi Expert
I am modifing a report for Mangement , They want to display purchase order in the report .....So I did the following modification but when I run the report all the fields are displaying and purchase order is showing empty, though I have added the po in the table and if you see my coding for adding po
data: vbkd-bstkd.
clear po_number.
select single bstkd into po_number
    from vbkd
    where vbeln = s903-vgbel.
      call function 'RSAQRT_TEXTFIELD_CONTEXT'
           exporting name = 'S903'
                     struc = S903.
      call function 'RSAQRT_TEXTFIELD_CALL'
           exporting struc = S903
                     name = 'S903'
                     fname = 'MATNR'
           importing text = TEXT_S903_MATNR.
Can anyone help me please ....................it is very urgent
   include /1BCDWB/IQ000000000226DAT
*{   INSERT                                                           2
constants:
begin of %iqid,"type aqliqid
    workspace type aql_wsid   value ' ',
    usergroup type aql_ugroup value 'SALES',
    query     type aql_query value 'BILL_DEL',
    lid       type aql_lid    value 'G00',
    struct    type aql_tname value '/1BCDWB/IQ000000000226',
    infoset   type aql_iset   value 'S903',
end of %iqid.
data %runmode type aqlimode.
data %seloptions type table of rsparams with header line.
field-symbols <%selopt> type rsparams_tt.
data TEXT_S903_FKART like TVFKT-VTEXT.
data TEXT_S903_FKSTO like DD07D-DDTEXT.
data TEXT_S903_GEWEI like T006A-MSEHL.
data TEXT_S903_KDKG1 like TVKGGT-VTEXT.
data TEXT_S903_KDKG2 like TVKGGT-VTEXT.
data TEXT_S903_KDKG3 like TVKGGT-VTEXT.
data TEXT_S903_MATNR like MAKT-MAKTX.
data TEXT_S903_MATNR_01 like MAKT-MAKTX.
data TEXT_S903_PERIV like T009T-LTEXT.
data TEXT_S903_PKUNAG like KNA1-NAME1.
data TEXT_S903_PKUNAG_07 like KNA1-NAME1.
data TEXT_S903_PKUNWE_01 like KNA1-NAME1.
data TEXT_S903_PMATN like MAKT-MAKTX.
data TEXT_S903_SPART like TSPAT-VTEXT.
data TEXT_S903_VKBUR like TVKBT-BEZEI.
data TEXT_S903_VKBUR_05 like TVKBT-BEZEI.
data TEXT_S903_VKORG like TVKOT-VTEXT.
data TEXT_S903_VKORG_03 like TVKOT-VTEXT.
data TEXT_S903_VOLEH like T006A-MSEHL.
data TEXT_S903_VRKME like T006A-MSEHL.
data TEXT_S903_VSTEL like TVSTT-VTEXT.
data TEXT_S903_VTWEG like TVTWT-VTEXT.
data TEXT_S903_VTWEG_04 like TVTWT-VTEXT.
data TEXT_S903_WAERK like TCURT-LTEXT.
data TEXT_S903_WERKS like T001W-NAME1.
data TEXT_S903_WERKS_01 like T001W-NAME1.
data TEXT_S903_ZZ_MGN like DD07D-DDTEXT.
data SP_ADD like VBPA-ADRNR.
data CUST_NAME like KNA1-NAME1.
data SHADD like VBPA-ADRNR.
data SHNAME like KNA1-NAME1.
data ADDRS like ADRC-STREET.
data MANDCK like LIKP-BOLNR.
data CMDDOC like LIKP-XABLN.
data EXT_DEL like LIKP-LIFEX.
*****ADD BY PIROZ
data PO_NUMBER like VBKD-BSTKD.
*data TEXT_S903_MATNR like MAKT-MAKTX.
TOTAL
data %Z_0001 like S903-NETWR.
CON_MARG
data %Z_0004 like %Z_0001.
CON_MRG_PC
data %Z_0005 like %Z_0001.
tables S903.
Function----
FUNCTION /1BCDWB/IQ000000000226EXTR.
""Local interface:
*"       TABLES
*"              %SELOPT STRUCTURE RSPARAMS
*"              %DTAB STRUCTURE /1BCDWB/IQ000000000226
*"       CHANGING
*"             VALUE(%RTMODE) TYPE AQLIMODE
*"       EXCEPTIONS
*"              NO_DATA
*"              NO_AUTHORIZATION
*"              ILLEGAL_PACKAGE
*"              CURSOR_NOT_OPEN
call function 'RSAQRT_SET_IDENTIFICATION'
       exporting iqid        = %iqid
                 sscr_report = sy-repid
       changing rtmode      = %rtmode.
if %rtmode-pack_on = space or %rtmode-first_call = 'X'.
    call function 'RSAQRT_FILL_SELECTIONS'
         tables   selopt = %selopt
         changing rtmode = %rtmode.
endif.
call function 'RSAQRT_INIT_TEXTHANDLING'
       exporting class   = 'CL_TEXT_IDENTIFIER'
                 wsid    = ' '
                 infoset = 'S903'.
if %rtmode-no_authchk = space
     and ( %rtmode-pack_on = space or %rtmode-first_call = 'X' ).
    refresh %auth_tabs.
    append 'S903' to %auth_tabs.
    call function 'RSAQRT_AUTHORITY_CHECK'
         exporting
            auth_tabs         = %auth_tabs
         changing
            rtmode            = %rtmode
         exceptions
            NO_AUTHORIZATION = 1.
    if sy-subrc = 1.
      raise no_authorization.
    endif.
endif.
data: %l_no_further_fetch type flag, " stop fetching
        %l_hits_cnt         type i.    " cnt for %dbtab entries
if %rtmode-pack_abort = 'X'.
    if not %dbcursor is initial.
      close cursor %dbcursor.
    endif.
    exit.
endif.
if %rtmode-pack_on = space or %rtmode-first_call = 'X'.
    if not %dbcursor is initial.
      close cursor %dbcursor.
    endif.
    open cursor with hold %dbcursor for
    select FKDAT VBELN FKART VKORG PKUNAG PKUNWE_01 MATNR VKBUR FKIMG VRKME FKSTO WERKS NETWR WAERK MWSBP VGBEL VGPOS ERNAM POSNR
           VSTEL AUBEL KZWI1 KZWI2 ZZ_CART ZZ_MINCAR ZZ_WKND ZZ_FUEL UMSMNG KZWI4 KZWI3 ZZ_MGN WAVWR SPTAG
           from S903
           where SPTAG in SP$00001
             and ERNAM in SP$00012
             and WERKS in SP$00008
             and MATNR in SP$00006
             and PKUNAG in SP$00004
             and VKORG in SP$00005
             and FKART in SP$00007
             and VBELN in SP$00002
             and FKDAT in SP$00003.
endif.
if %dbcursor is initial.
    raise cursor_not_open.
endif.
while %l_no_further_fetch = space.
    fetch next cursor %dbcursor
          into corresponding fields of S903.
    if ( ( %rtmode-acc_check = 'X' and
           sy-dbcnt > %rtmode-acc_number )
        or sy-subrc <> 0 ).
      %l_no_further_fetch = 'X'.
    else.
      call function 'RSAQRT_TEXTFIELD_REFRESH'.
additional coding:
data: vbpa-kunnr,
         vbpa-parvw,
         vbpa-adrnr.
clear sP_add.
select single adrnr into SP_ADD
     from vbpa
     where vbeln = s903-vbeln and
           kunnr = s903-pkunag and
           parvw = 'AG'.
additional coding:
select single name1 into cust_name
     from adrc
     where addrnumber = sp_add.
additional coding:
data: adrc-name1,
         adrc-addrnumber.
clear shadd.
select single adrnr into SHADD
     from vbpa
     where vbeln = s903-vbeln and
           kunnr = s903-pkunwe_01 and
           parvw = 'WE'.
additional coding:
clear shname.
select single name1 into shname
     from adrc
     where addrnumber = shadd.
additional coding:
*{   REPLACE                                                          1
\ data: adrc-street.
\ select single street into addrs
\   from adrc
\    where addrnumber = shadd.
data: adrc-street.
select single street into addrs
   from adrc
    where addrnumber = shadd.
*}   REPLACE
additional coding:
data: likp-bolnr.
clear mandck.
if s903-vgbel ne space.
    select single bolnr into mandck
      from likp
      where vbeln = s903-vgbel.
endif.
      check SP$00009.
additional coding:
data: likp-xabln.
clear cmddoc.
select single xabln into cmddoc
    from likp
    where vbeln = s903-vgbel.
      check SP$00010.
additional coding:
data: likp-lifex.
clear ext_del.
select single lifex into ext_del
    from likp
    where vbeln = s903-vgbel.
      check SP$00011.
additional coding:
data: vbkd-bstkd.
clear po_number.
select single bstkd into po_number
    from vbkd
    where vbeln = s903-vgbel.
      call function 'RSAQRT_TEXTFIELD_CONTEXT'
           exporting name = 'S903'
                     struc = S903.
      call function 'RSAQRT_TEXTFIELD_CALL'
           exporting struc = S903
                     name = 'S903'
                     fname = 'MATNR'
           importing text = TEXT_S903_MATNR.
additional coding:
   %Z_0001 = S903-NETWR + S903-MWSBP .
      %dtab-FKDAT = S903-FKDAT .
      %dtab-VBELN = S903-VBELN .
      %dtab-FKART = S903-FKART .
      %dtab-VKORG = S903-VKORG .
      %dtab-PKUNAG = S903-PKUNAG .
      %dtab-CUST_NAME = CUST_NAME .
      %dtab-PKUNWE_01 = S903-PKUNWE_01 .
      %dtab-SHNAME = SHNAME .
      %dtab-ADDRS = ADDRS .
      %dtab-MATNR = S903-MATNR .
      %dtab-TEXT_S903_MATNR = TEXT_S903_MATNR .
      %dtab-VKBUR = S903-VKBUR .
      %dtab-FKIMG = S903-FKIMG .
      %dtab-VRKME = S903-VRKME .
      %dtab-FKSTO = S903-FKSTO .
      %dtab-WERKS = S903-WERKS .
      %dtab-NETWR = S903-NETWR .
      %dtab-WAERK = S903-WAERK .
      %dtab-MWSBP = S903-MWSBP .
      %dtab-WAERK001 = S903-WAERK .
      %dtab-VGBEL = S903-VGBEL .
      %dtab-VGPOS = S903-VGPOS .
      %dtab-MANDCK = MANDCK .
      %dtab-CMDDOC = CMDDOC .
      %dtab-EXT_DEL = EXT_DEL .
      %dtab-ERNAM = S903-ERNAM .
      %dtab-%Z_0001 = %Z_0001 .
      %dtab-WAERK002 = S903-WAERK .
      %dtab-POSNR = S903-POSNR .
      %dtab-VSTEL = S903-VSTEL .
      %dtab-AUBEL = S903-AUBEL .
      %dtab-KZWI1 = S903-KZWI1 .
      %dtab-WAERK003 = S903-WAERK .
      %dtab-KZWI2 = S903-KZWI2 .
      %dtab-WAERK004 = S903-WAERK .
      %dtab-ZZ_CART = S903-ZZ_CART .
      %dtab-WAERK005 = S903-WAERK .
      %dtab-ZZ_MINCAR = S903-ZZ_MINCAR .
      %dtab-WAERK006 = S903-WAERK .
      %dtab-ZZ_WKND = S903-ZZ_WKND .
      %dtab-WAERK007 = S903-WAERK .
      %dtab-ZZ_FUEL = S903-ZZ_FUEL .
      %dtab-WAERK008 = S903-WAERK .
      %dtab-UMSMNG = S903-UMSMNG .
      %dtab-VRKME001 = S903-VRKME .
      %dtab-KZWI4 = S903-KZWI4 .
      %dtab-WAERK009 = S903-WAERK .
      %dtab-KZWI3 = S903-KZWI3 .
      %dtab-WAERK010 = S903-WAERK .
      %dtab-ZZ_MGN = S903-ZZ_MGN .
      %dtab-WAVWR = S903-WAVWR .
      %dtab-WAERK011 = S903-WAERK .
      %dtab-PO_NUMBER = PO_NUMBER .
      append %dtab.
      %l_hits_cnt = %l_hits_cnt + 1.
      if %rtmode-pack_on = 'X'
         and %l_hits_cnt >= %rtmode-pack_size.
        %l_no_further_fetch = 'X'.
      endif.
    endif.
endwhile.
if %l_hits_cnt = 0.
    if not %dbcursor is initial.
      close cursor %dbcursor.
    endif.
    raise no_data.
endif.
if %rtmode-pack_on <> 'X'.
    close cursor %dbcursor.
endif.
read table %dtab index 1 transporting no fields.
if sy-subrc ne 0.
    raise no_data.
endif.
endfunction.

I had Done Like this All comments are as they are i.e. this code gives error (for endselect there is no select) so i commented the endselect statement.
read below code and plz do some improvement in it.
SELECT ekkoebeln ekkobedat ekpo~werks into CORRESPONDING FIELDS OF TABLE it_so    FROM EKKO
                  INNER JOIN EKPO ON EKKOEBELN = EKPOEBELN
                  WHERE ekko~EBELN IN S_EBELN
                  AND   BEDAT IN S_BEDAT
                  AND   WERKS IN S_WERKS.
"SELECT hEBELN hMATNR hWERKS e FROM EKPO INTO CORRESPONDING FIELDS OF TABLE it_so
      "                 WHERE EBELN IN S_EBELN
      "                 AND WERKS IN S_WERKS.
MOVE EKKO-EBELN TO TNAME.
CALL FUNCTION 'READ_TEXT'
EXPORTING
CLIENT = SY-MANDT
ID = 'F02'
LANGUAGE = 'E'
NAME = TNAME
OBJECT = 'EKKO'
ARCHIVE_HANDLE = 0
"IMPORTING
" HEADER = HTEXT
TABLES
LINES = LTEXT
EXCEPTIONS
ID = 1
LANGUAGE = 2
NAME = 3
NOT_FOUND = 4
OBJECT = 5
REFERENCE_CHECK = 6
WRONG_ACCESS_TO_ARCHIVE = 7
OTHERS = 8.
LOOP AT LTEXT.
IF LTEXT-TDLINE NE ''.
MOVE LTEXT-TDLINE TO IT_SO-TDLINE. " Header Note Selected.
MOVE EKKO-EBELN TO IT_SO-EBELN.
APPEND IT_SO.
endif.
ENDLOOP.
clear it_so.
"ENDSELECT.

Purchase order history tab is displayed

Hi,
When purchase order history tab (me23n) is displayed?
Thanks.
deniz.

GR for movement type '101'. IR via tcode MIRO.IR happens first before GR only in case where friegth charges are paid to a third party.

How to Display 'purchase order text' in MM03 using report program

Hi Friends,
Can anybody suggest me how to display 'purchase order text' in MM03 using report program.
'Purchase order text' tab displays purchase long text of particular material .
I coded as:
      SET PARAMETER ID 'MXX' FIELD 'E'.
      SET PARAMETER ID 'MAT' FIELD k_final-matnr.
      SET PARAMETER ID 'WRK' FIELD k_final-werks.
      CALL TRANSACTION 'MM03' AND SKIP FIRST SCREEN.
It displays Purchasing tab other than Purchase Order Text tab of MM03.
Please suggest me how can i solve this.
Is there any parameter id to set values for Purchase Order text tab

>
Madhu Mano Chitra wrote:
> I want how to navigate to MM03 'Purchase Order text' tab/ view using ABAP code.
> could any suggest me
You can call a transaction and pass it a BDC table that tells it where you want it to go. You have to work out for yourself what to put into the BDC table. The code below works for tcode CATSSHOW.
DATA: bdcdata_wa TYPE bdcdata,
      bdcdata_tab TYPE TABLE OF bdcdata.
DATA opt TYPE ctu_params.
   CLEAR bdcdata_wa.
    bdcdata_wa-program = 'CATSSHOW'.
    bdcdata_wa-dynpro   = '1000'.
    bdcdata_wa-dynbegin = 'X'.
    APPEND bdcdata_wa TO bdcdata_tab.
    CLEAR bdcdata_wa.
    bdcdata_wa-fnam = 'SO_STATU-LOW'.
    bdcdata_wa-fval = '20'.
    APPEND bdcdata_wa TO bdcdata_tab.
    CLEAR bdcdata_wa.
    bdcdata_wa-fnam = 'ANDZEIT'.
    bdcdata_wa-fval = SPACE.
    APPEND bdcdata_wa TO bdcdata_tab.
    CLEAR bdcdata_wa.
    bdcdata_wa-fnam = 'PAST'.
    bdcdata_wa-fval = 'X'.
    APPEND bdcdata_wa TO bdcdata_tab.
    IF p_selscr = SPACE.
       CLEAR bdcdata_wa.
       bdcdata_wa-fnam = 'BDC_OKCODE'.
       bdcdata_wa-fval = '=ONLI'.
       APPEND bdcdata_wa TO bdcdata_tab.
    ENDIF.
    opt-dismode = 'E'.
    opt-defsize = 'X'.
CALL TRANSACTION 'CAPP' USING bdcdata_tab OPTIONS FROM opt.

Purchase Order History Reports

Is there any standard SAP report to mass query Purchase Order History on several POs.
I can go to ME23N and see the PO history one-by-one, but trying to see if there is a report out there. I am basically looking for follwoing three things from a given PO:
1. How much GR/IR was booked against that PO
2. How much amount was vouched by AP
3. How much subsequent adjustments, if any, were made to the PO
Thanks,
Meet

Check in MM area,
This is for CO-FI
Regards,

Purchase order History

Hi..
     Iam trying to display the Purchase order History using BAPI_PO_GETDETAIL function module... and my code is
data : i_ekko type table of ekko,
       i_ekko_wa like line of i_ekko.
parameters : p_vendor like ekko-lifnr,
             p_po     like ekko-ebeln.
select * from ekko into corresponding fields of table i_ekko where lifnr = p_vendor and ebeln = p_po.
loop at i_ekko into i_ekko_wa.
CALL FUNCTION 'BAPI_PO_GETDETAIL'
EXPORTING
    PURCHASEORDER                    = '4500017124'
   ITEMS                            = 'X'
*   ACCOUNT_ASSIGNMENT               = ' '
*   SCHEDULES                        = ' '
   HISTORY                          = 'X'
*   ITEM_TEXTS                       = ' '
*   HEADER_TEXTS                     = ' '
*   SERVICES                         = ' '
*   CONFIRMATIONS                    = ' '
*   SERVICE_TEXTS                    = ' '
*   EXTENSIONS                       = ' '
* IMPORTING
*   PO_HEADER                        =
*   PO_ADDRESS                       =
* TABLES
*   PO_HEADER_TEXTS                  =
*   PO_ITEMS                         =
*   PO_ITEM_ACCOUNT_ASSIGNMENT       =
*   PO_ITEM_SCHEDULES                =
*   PO_ITEM_CONFIRMATIONS            =
*   PO_ITEM_TEXTS                    =
*   PO_ITEM_HISTORY                  =
*   PO_ITEM_HISTORY_TOTALS           =
*   PO_ITEM_LIMITS                   =
*   PO_ITEM_CONTRACT_LIMITS          =
*   PO_ITEM_SERVICES                 =
*   PO_ITEM_SRV_ACCASS_VALUES        =
*   RETURN                           =
*   PO_SERVICES_TEXTS                =
*   EXTENSIONOUT                     =
endloop.
Iam not getting the output ... It doesnt show errors..
Regards,
Abaper.

where is the displaying PO code???
check your code once again...
look at this example...
report zbapi_1.
data: begin of i_poitem occurs 0.
      include structure bapiekpo.
data: end of i_poitem.
parameters p_ebeln like ekko-ebeln default '4500012164'.
call function 'BAPI_PO_GETDETAIL'
exporting
    purchaseorder                    = p_ebeln
ITEMS                            = 'X'
ACCOUNT_ASSIGNMENT               = ' '
SCHEDULES                        = ' '
HISTORY                          = ' '
ITEM_TEXTS                       = ' '
HEADER_TEXTS                     = ' '
SERVICES                         = ' '
CONFIRMATIONS                    = ' '
SERVICE_TEXTS                    = ' '
EXTENSIONS                       = ' '
IMPORTING
PO_HEADER                        = PO_HEADER
PO_ADDRESS                       = PO_ADDRESS
tables
PO_HEADER_TEXTS                  = PO_HEADER_TEXTS
    po_items                         = i_poitem.
PO_ITEM_ACCOUNT_ASSIGNMENT       = PO_ITEM_ACCOUNT_ASSIGNMENT
PO_ITEM_SCHEDULES                = PO_ITEM_SCHEDULES
PO_ITEM_CONFIRMATIONS            = PO_ITEM_CONFIRMATIONS
PO_ITEM_TEXTS                    = PO_ITEM_TEXTS
PO_ITEM_HISTORY                  = PO_ITEM_HISTORY
PO_ITEM_HISTORY_TOTALS           = PO_ITEM_HISTORY_TOTALS
PO_ITEM_LIMITS                   =
PO_ITEM_CONTRACT_LIMITS          =
PO_ITEM_SERVICES                 =
PO_ITEM_SRV_ACCASS_VALUES        =
RETURN                           =
PO_SERVICES_TEXTS                = .
EXTENSIONOUT                     = EXTENSIONOUT
loop at i_poitem.
write :/ 'PONUMBER    = ' , i_poitem-po_number color col_heading,
       / 'ITEM = ' , i_poitem-po_item,
       / 'MATERIAL NAME = ' , i_poitem-material,
       / 'MATERIAL = ' , i_poitem-pur_mat,
       / 'CHANGED ON = ', i_poitem-changed_on,
       / 'SHORT TEXT = ' , i_poitem-short_text,
       / 'COMPANY CODE = ' , i_poitem-co_code,
       / 'PLANT = ' , i_poitem-plant,
       / 'MATERIAL GROUP = ' , i_poitem-mat_grp,
       / 'QUANTITY = ' , i_poitem-quantity left-justified,
       / 'UNIT = ' , i_poitem-unit,
       / 'NET PRICE = ' , i_poitem-net_price left-justified.
uline.
endloop.
Edited by: Venkat Appikonda on Mar 7, 2009 11:57 AM

Payment document in purchase order history

hi friends,
Customer requirement is to add the payment document(F-53) in the purchase order history in me23n along with GR no. and Invoice no... Is it possible?
thank you
Edited by: SUJITH BABU KURIAN on Feb 5, 2010 3:39 PM

Hi,
No its not possible to update std. Purchase Order history tab with vendor payment which is done via FI.
Std. Purchase Order History will be updated only with MM component docs which has a reference to PO.
I think you may have to develop some custom reports to track the same.
Thanks & Regards,

Report for released purchase order

Hai guru's
this is second time but i did't get any good replay please consider this, i want any standard report for released purchase order,means(i released two backdated po today next day i verify the report ME2n,those po are not display, the system take only document date not released date, now i am using CDHDR through this i got the report. but it is big process, so once check this and send your valuable solution.
Prasad

Hi Krishna,
You could use Me2N with the dynamic selection coupled with normal selection screen.
In Dynamic selection(3rd icon in screen).....you can select for which company code, release indicator as released....and save it as default variant.
hope this should solve your query
Sk.

Purchase Order History Program - not working properly

Dear friends
i am developing purchase order history program in ALV,
which shows the report of purchase order status
i.e (fields as below).
document no
PO date
line item
material number
material name
purchase org
plant
purchase group
orderd quantity
ordered amount
delivered quantity
delivered amount
to be delivered quantity
to be delivered amount
invoice quantity
invoice amount
to be invoiced quantity
to be invoiced amount
how to test from me23n
open me23n
enter PO number
press status tab
you can get some fields for verification..
the problem is
i can get all the details correctly except delivered amount and to be delivered amount
it works fine in both ( material purchase order and service purchase order )
sometimes i am getting incorrect values in service purchase order specifically in delivered amount and to be delivered amount
why i am getting these incorrect values ??
only couple of POs generate these things.
i am getting these values from EKBE table and using proper filtration like movement type and etc...
if anyone can resolve ... would be appreciable
avirat.

Hi,
for getting proper Po History you need to select PO's details from EKKO table and
Header details from CHANGEDOCUMENT_READ_HEADERS based on the details got from this FM pass
to the FM CHANGEDOCUMENT_READ_POSITIONS and get proper details.
This is the logic used by the standard program also to get the PO History.
Hope this helps.
Regards
Bikas

Interactive ALV report for vendorwise purchase order details

Hi Experts,
I am trying to create vendor wise purchase order interactive report, if i click any of vendor detail it has to display vendor details in a popup window or if i click any of purchase details it has to display purchase order details ina popup..
can any body explain by using function modules REUSE_ALV_POPUP_TO_SELECT and REUSE_ALV_FIELDCATALOG_MERGE...

Check the link below will be of some use to you.
http://www.geocities.com/mpioud/Z_REUSE_ALV_POPUP_TO_SELECT.html
Regards,
Murthy

Display Purchase order, PO Item , Order Number ,entry sheet quantity ,entry sheet price ,invoice quantity, invoice price against each line number

hello all,
i have an ALV report requirement like this,
on the initial screen i have displayed(for a given agreement number like in ME33K )
in the selection screen i have taken agreement number as EKPO-EBELN.
purchase document number        item number        short text        target quantity      net price
5400000019                                  1                      xxx                  1.000                  304300.00
                                                    2                     xxxx                 1.000                  500000.00
the above fields i have taken from EKPO table.....
and on double clicking the item number i have displayed
line number          service number       short text           quantity    units    gross price   quantity released
1                           swr10                   xxxx                 2.00          kg          500             2
2                           swr11                    xxxx                5.00          EA         500             2
the above fields i have taken from ESLL (esll-extrow, esll-srvpos, esll-ktext1 , esll-menge etc......)
this i have done by passing EBELN to ESLH and getting PACKNO and passed this PACKNO to ESLL.
now my question is i need to display Purchase order, PO Item , Order Number ,entry sheet quantity ,entry sheet price ,invoice quantity, invoice price
against each line number above.....
from which table do i need to take these fields.....
please guide me....
thankq....

Thanks Andra,
The problem is the multiple invoices is for non goods receipt item so there will be no delivery.At the time of creating a PO the GR is not checked so there will be no delivery .
Also this setting is for invoices which are comming from Vendors.But if we are genrating the invoices manually it is not blocking those invoices.Also i there is nowhere mentioned in Incomming invoice to set tolerence for incomming invoice.Are you talking about Vendor tolerences?
Thanks in advance
Edited by: Metroid01 on May 14, 2009 6:52 PM

Report to display "Purchase Order History"

Similar Messages

Maybe you are looking for