Report for Purchaser Order block

Dear All
Please suggest standard T.Code for the following details
1.List of blocked POs and invoices along with reasons for such blockage.
2.Reasons for Purchase price variance and its accounting thereof.
3.Debit note issued to customers on account of rejected material/ short supply and its reversal on receipt of goods.
4.Availability of material in no. of days in comparison to Bill of Material.
Regards
Manoj

>
arpita b wrote:
> Dear rohit
>
> Iam asking about any report which compares or give details of open order vs shipped qty.
>
> Any sis report is available for this?
Hi Arpita,
There is no such sis report available. You will have to configure and create two seperate reports and do the comparison.
If you want, I will send you the list of all T.codes used to generate reports in SD.
Revert back to me if you need the same.
Regards,
Swapna D.

Similar Messages

Report for purchase orders - like ME80FN

Hello,
is there a way to get a report of purchase orders which have been released for stock and for customer orders.
I tried ME80FN, but there is no column available such like account-assignment-category where I could separate the orders for stock from the customer ones.
Any ideas?
Thx a lot!
Cheers Wolf.

account assignment category is available in dynamic selection
So you can at least execute ME80FN per account assignment category, even the field itself is not shown in the final report.

Missing Parts report for Purchase Orders

Hey Gurus,
We are running the availability check for Purchase orders and the user group is wondering if there is a standard Missing Parts report in SAP similiar to transaction CO24 for Purchase Orders so that they can view all of the Purchase orders with missing parts.
As a side note, we are using subcontracting purchase orders.

didn't get a response.

Report for Purchase Orders didnt reach target through ALE

Hi Experts,
we are sending Purchase Orders to Third party system using XI.
But some of the orders when we save its automatically system generating output medium is PRINT so these orders not going through ALE.
1)Can anyone please tell me why the system is generating PRINT instead of ALE distribution.
2) is there any report for how many purchase orders created for the day and how many of them gone through successfull using ALE distribution.
Answer will be rewarded.
Kiran

Hi
Have you configured the PO Output type/messages with the Medium as 'A'(ALE)
otherwise the system willd efualt take 1(print) as default medium.
Check the NAST table entries for that date created Output type of PO's
for all of them the Medium(NACHA) field should be A
then all will go through ALE
check them.
Regards
Anji

Report for Purchase orders and deliveries

Hi all,
Is there any report in SAP that gives me the list of purchase orders and the deliveries associated with those PO's.
Please advise.
Thanks in advance
Sruthi

Hi,
What kind of delivery are you looking for ??
If it's inbound delivery, use VL06I tcode & for outbound, try VL06O
Thanks & Best Regards,
Devendra Gaware
PS - Reward if found useful.

Report for Purchase Order Changes

Hi all,
Is there any report that record changes in purchase order?
Please respond.
Best Regards,
AI.

Hi
Go to ME23N or ME22N.. Choose Environment - Header Changes or Item changes(for item changes select the item first). You can see all the changes made.
OR
Changes to a lot of SAP documents are stored in table CDHDR and table CDPOS. This include changes such as: change data in Material Master, changes to Purchase Req (PR), Purch Orders, Contracts, Sales Orders, and many more.
Put the PO number in CDHDR table OBJECTID table and get the change numbers.
Put the change numbers in CDPOS and get the details.
You can get the ABAPer to write a simple report.....
Cheers
JOJI

SAP Standard report for Purchase order Amendments

Hello MM Gurus,
Kindly let me know whether any standard report available in SAP on
Purchase order amendments.
Regards
Yoga

Hi Yoga,
You can do a small work around.
Activate version management in PO.
Then, you can get the list of changed POs from the transaction ME2N, by clicking on the dynamic selection icon (icon with 3 colored lines) and entering values for the "Version" field.
You can enter multiple values there, say, 1,2,3..5, depending on the maximum number of versions that will be created.
This selection will give you the list of amended POs.
Regards
sampath

Simple FD for generating ALV report using purchase order or sales order

Can anybody send me a simple FD for generating ALV as well as interactive report for purchase order and sales order

On the both the Sales Pricing Condition type and the Purchase Pricing condition type there is a field called Ref.condit.type.
For example you have a sales pricing condition PR00 with value $10. In your pricing condition in MM for example PB00 you enter PR00 in the Ref.condit.type. The value for PB00 will now be $10.
Apart from this i do not think there is any standard configuration available in SAP for this. Please refer to SAP Note-95024. You may also consider to write your own logic in the PO Exit to derive the sales order pricing in PO.

Reporting on Purchase Order Discounts

Hi experts!
I read some threads about condition types etc. I have a requirement with my customer to not only enter a discount but also run reports on the given discount or at least a report which shows gross and net price.
Does anybody know if there are standard reports in SRM 5.0 which we could use? Or do we have to use BW for such kind of evaluations?
Does anybody have information about BW for SRM?
Many thanks for your help.
Best regards,
Corinne

Hi
<b>Please go through the following links -></b>
http://help.sap.com/saphelp_srm50/helpdata/en/ee/d9df3bbcce4b37e10000000a114084/content.htm
Re: SRM - problem in BW report execution - report id not geting passed
http://help.sap.com/saphelp_srm50/helpdata/en/14/15223862c3771be10000009b38f842/frameset.htm
http://help.sap.com/saphelp_srm50/helpdata/en/67/6e9746608221499322c93a03ffaf4e/frameset.htm
http://help.sap.com/saphelp_srm50/helpdata/en/75/c65d3a0eb60365e10000000a11402f/frameset.htm
http://help.sap.com/saphelp_srm50/helpdata/en/fd/dc804258544b76e10000000a155106/frameset.htm
PO Changes, PO date
http://help.sap.com/saphelp_srm50/helpdata/en/66/81b56c553b5840994ea041a5becd63/frameset.htm
Re: Report in EBP
Table links PO GUID and Confirmations in EBP
Item gross price condition / discount at backend PO
Re: SRM 4.0 Report's description ?
Influencing Condition Types in PO
Missing Acknowledgement in EBP Purchase order
Regarding condition types
Item gross price condition / discount at backend PO
Reports for Purchase Order
Re: Condition types from SRM to backend
Getting SC details using Backend Purchase Order
BBP_QUOT and Discount
Regards
- Atul

Goods-Receipt Block for Purchase Order depending on Goods-Receipt Date

Hi,
I want to set up the system so it can block the Goods-Receipt for Purchase Order respectively Scheduling Agreement if the Goods Receipt is about to take place 30 days or more before the Desired Delivery Date.
For Example: If I have a Purchase Order with the desired delivery date 30.09.2008. I want to set up the system so, that it bans (forbids) the Goods Receipt before the 01.09.2008.
If possible I would want to do that without additional programming. Is it possible to set up the system using only customising settings?
Thanks for your help
Bogdan

Hello Marius-Bodgan,
as this question is marked answered I assume you have received an solution for your requirement. Could you please share the solution with me by posting it here? I have the same requirement and did not find any possibility to do this in customizing.
Thanks in advance,
Emanuel
Found the solution in thread Re: Goods Receipt
Edited by: Emanuel Penalver on Jul 15, 2008 11:48 AM

Blocking material for Purchase order only

hi all,
i have a material and i want to block it for purchase order only bcos we dont want to allow to purchase it but it can perform all other operations. can anyone please help me?
regards saurabh.

Dear,
Go to MM02, in Basic1 tab
X-plant material status - 01 Blocked for procment/whse
but it is relevant not only for that plant but also for client level becoz while go to MM02, please not select any plant and go to Basic Data 1 tab.
this may help u
Reagrds,
pardeep Malik
Edited by: Pardeep Malik on Mar 14, 2009 5:59 AM
Edited by: Pardeep Malik on Mar 14, 2009 6:06 AM

Getting errors when iam using BAPI_PO_CREATE1 for Purchase Order creation

Hi sap Gurus,
I am getting Errors when iam using BAPI_PO_CREATE1 for Purchase Order creation that Material (144) does not exist but it is alreardy maintained in MM01.
I dont get how it is coming.and what are the mandatory fields in bapi BAPI_PO_CREATE1 in item level .that is too material only.
pls let me know .
thanks in advance.

Hi,
Check the sample code..
report zpo_test             .
*DATA DECLARATION
constants : c_x value 'X'.
*Structures to hold PO header data
data : header like bapimepoheader ,
headerx like bapimepoheaderx .
*Structures to hold PO account data
data : account like bapimepoaccount occurs 0 with header line ,
accountx like bapimepoaccountx occurs 0 with header line .
*Internal Tables to hold PO ITEM DATA
data : item like bapimepoitem occurs 0 with header line,
itemx like bapimepoitemx occurs 0 with header line,
*Internal table to hold messages from BAPI call
return like bapiret2 occurs 0 with header line,
*Internal table to hold messages from BAPI call
pocontractlimits like bapiesucc occurs 0 with header line.
data : w_header(40) value 'PO Header',
purchaseorder like bapimepoheader-po_number,
delivery_date like bapimeposchedule-delivery_date.
data : ws_langu like sy-langu.
*text-001 = 'PO Header' - define as text element
selection-screen begin of block b1 with frame title text-001.
parameters : company like header-comp_code default '122' ,
doctyp like header-doc_type default 'NB' ,
cdate like header-creat_date default sy-datum ,
vendor like header-vendor default '2000000012' ,
pur_org like header-purch_org default 'PU01' ,
pur_grp like header-pur_group default '005' .
*sociedad like HEADER-COMP_CODE default '122' ,
*vendedor like HEADER-SALES_PERS default 'sale person'.
selection-screen end of block b1.
selection-screen begin of block b2 with frame title text-002.
parameters : item_num like item-po_item default '00010',
material like item-material default '12000000' ,
tipo_imp like item-acctasscat default 'K' ,
*pos_doc like ITEM-ITEM_CAT default 'F' ,
shorttxt like item-short_text default 'PRUEBA BAPI' ,
grup_art like item-matl_group default '817230000' ,
plant like item-plant default '3001' ,
mpe like item-trackingno default '9999' ,
*contrato like ITEM-AGREEMENT default '4904000003' ,
*quantity like ITEM-QUANTITY default 1 .
po_unit like item-po_unit default 'EA'.
selection-screen end of block b2.
Par?mnetros de imputaci?n
selection-screen begin of block b3 with frame title text-004.
parameters : centro like account-costcenter default '1220813150',
cuenta like account-gl_account default '6631400' ,
num_pos like account-po_item default '10' ,
serial like account-serial_no default '01' ,
ind_imp like account-tax_code default 'I2' .
selection-screen end of block b3.
start-of-selection.
*DATA POPULATION
ws_langu = sy-langu. "Language variable
*POPULATE HEADER DATA FOR PO
*HEADER-COMP_CODE = sociedad .
header-doc_type = doctyp .
header-vendor = vendor .
header-creat_date = cdate .
header-created_by = 'TD17191' .
header-purch_org = pur_org .
header-pur_group = pur_grp .
header-comp_code = company .
header-langu = ws_langu .
*HEADER-SALES_PERS = vendedor .
*HEADER-CURRENCY = 'DOP' .
*HEADER-ITEM_INTVL = 10 .
*HEADER-PMNTTRMS = 'N30' .
*HEADER-EXCH_RATE = 1 .
*POPULATE HEADER FLAG.
headerx-comp_code = c_x.
headerx-doc_type = c_x.
headerx-vendor = c_x.
headerx-creat_date = c_x.
headerx-created_by = c_x.
headerx-purch_org = c_x.
headerx-pur_group = c_x.
headerx-langu = c_x.
*HEADERX-sales_pers = c_x.
*HEADERX-CURRENCY = c_x.
*HEADER-ITEM_INTVL = c_x.
*HEADER-PMNTTRMS = c_x.
*HEADER-EXCH_RATE = c_x.
*HEADER-EXCH_RATE = c_x.
*POPULATE ITEM DATA.
item-po_item = item_num.
item-quantity = '1'.
*ITEM-MATERIAL = material .
item-short_text = 'prueba bapi_po_create1'.
*ITEM-TAX_CODE = ''.
item-acctasscat = 'K' .
*ITEM-ITEM_CAT = 'D' .
item-matl_group = '817230000' .
item-plant = '3001' .
item-trackingno = '99999'.
item-preq_name = 'test'.
*ITEM-AGREEMENT = '' .
*ITEM-AGMT_ITEM = ''.
item-quantity = '1' .
item-po_unit = 'EA'.
*ITEM-ORDERPR_UN = 'EA'.
item-conv_num1 = '1'.
item-conv_den1 = '1'.
item-net_price = '1000000' .
item-price_unit = '1'.
item-gr_pr_time = '0'.
item-prnt_price = 'X'.
item-unlimited_dlv = 'X'.
item-gr_ind = 'X' .
item-ir_ind = 'X' .
item-gr_basediv = 'X'.
*ITEM-PCKG_NO = '' .
append item. clear item.
*POPULATE ITEM FLAG TABLE
itemx-po_item = item_num.
itemx-po_itemx = c_x.
*ITEMX-MATERIAL = C_X.
itemx-short_text = c_x.
itemx-quantity = c_x.
*ITEMX-TAX_CODE = C_X.
itemx-acctasscat = c_x.
*ITEMX-ITEM_CAT = c_x.
itemx-matl_group = c_x.
itemx-plant = c_x.
itemx-trackingno = c_x.
itemx-preq_name = c_x.
*ITEMX-AGREEMENT = C_X.
*ITEMX-AGMT_ITEM = c_x.
itemx-stge_loc = c_x.
itemx-quantity = c_x.
itemx-po_unit = c_x.
*ITEMX-ORDERPR_UN = C_X.
itemx-conv_num1 = c_x.
itemx-conv_den1 = c_x.
itemx-net_price = c_x.
itemx-price_unit = c_x.
itemx-gr_pr_time = c_x.
itemx-prnt_price = c_x.
itemx-unlimited_dlv = c_x.
itemx-gr_ind = c_x .
itemx-ir_ind = c_x .
itemx-gr_basediv = c_x .
append itemx. clear itemx.
*POPULATE ACCOUNT DATA.
account-po_item = item_num.
account-serial_no = serial .
account-creat_date = sy-datum .
account-costcenter = centro .
account-gl_account = cuenta .
account-gr_rcpt = 'tester'.
append account. clear account.
*POPULATE ACCOUNT FLAG TABLE.
accountx-po_item = item_num .
accountx-po_itemx = c_x .
accountx-serial_no = serial .
accountx-serial_nox = c_x .
accountx-creat_date = c_x .
accountx-costcenter = c_x .
accountx-gl_account = c_x .
account-gr_rcpt = c_x.
append accountx. clear accountx.
*BAPI CALL
call function 'DIALOG_SET_NO_DIALOG'.
call function 'BAPI_PO_CREATE1'
    exporting
      poheader         = header
      poheaderx        = headerx
    importing
      exppurchaseorder = purchaseorder
    tables
      return           = return
      poitem           = item
      poitemx          = itemx
      poaccount        = account
      poaccountx       = accountx.
*Confirm the document creation by calling database COMMIT
call function 'BAPI_TRANSACTION_COMMIT'
exporting
wait = 'X'
IMPORTING
RETURN =
end-of-selection.
*Output the messages returned from BAPI call
loop at return.
    write / return-message.
endloop.
Regards
Sudheer

SMART FORM FOR PURCHASE ORDER

Hii Experts,
I am developing a smart form for purchase order. I am customizing the existing PO smart form according to the clients requirements. The customer needs fields Discount percentage, Excise duty and VAT/CST%... all these fields when i explored in transaction me23n come from a structure so the values come only at run time.. can anyone tell me the exact table and fields from where these comes so that i can retrieve it from there and display it in my smart form. The fields i need are discount percentage, excise duty and VAT/CST%. its urgent.

REPORT ZMR_PURCHASE_ORDER.
types: BEGIN OF ty_lfa1,
          LIFNR TYPE lfa1-LIFNR,
          MCOD1 TYPE lfa1-MCOD1,
          STRAS TYPE lfa1-STRAS,
          MCOD3 TYPE lfa1-mcod3,
      END OF ty_lfa1.
TYPES: BEGIN OF ty_ekpo,
          ebeln TYPE ekpo-ebeln,
          ebelp TYPE ekpo-ebelp,
          txz01 TYPE ekpo-txz01,
          menge TYPE ekpo-menge,
          peinh TYPE ekpo-peinh,
          brtwr TYPE ekpo-brtwr,
      END OF ty_ekpo.
TYPES: BEGIN OF ty_ekko,
        ebeln TYPE ekko-ebeln, "purchase doc
        LIFNR TYPE ekko-LIFNR, "vendor
        MCOD1 TYPE lfa1-MCOD1, "vendor name
        STRAS TYPE lfa1-STRAS, "vendor add
        MCOD3 TYPE lfa1-MCOD3, "vendor city
        bedat TYPE ekko-bedat, "doc date
        unsez TYPE ekko-unsez, "contact person
        verkf TYPE ekko-verkf, "attn
        telf1 TYPE ekko-telf1, "tele
        ihrez TYPE ekko-ihrez, "ref
        KNUMV TYPE ekko-KNUMV, "doc condition
       ebelp TYPE ekpo-ebelp, "item
       txz01 TYPE ekpo-txz01, "message desc
       menge TYPE ekpo-menge, "qty
       peinh TYPE ekpo-peinh, "rate
       brtwr TYPE ekpo-brtwr, "gross
    END OF ty_ekko.
TYPES: BEGIN OF ty_t685t,
        kschl TYPE t685t-KSCHL,
        vtext TYPE t685t-vtext,
      END OF ty_t685t.
TYPES: BEGIN OF ty_line_item,
        KNUMV TYPE konv-KNUMV, "condition number
        STUNR TYPE konv-STUNR, "step
        kposn TYPE konv-kposn, "item
        KSCHL TYPE konv-KSCHL, "condition type
        vtext TYPE t685t-vtext, "condition name
        KAWRT TYPE konv-KAWRT, "base amt
        KRECH TYPE konv-KSCHL, "calculation type
        qty(13) TYPE n,         "qty
        kbetr TYPE konv-kbetr, "condition rate
        kwert TYPE konv-kwert, "condition value
    END OF ty_line_item.
data: wa_ekko TYPE zms_ekko,
      wa_item TYPE zms_konv,
      wa_lfa1 TYPE ty_lfa1,
      wa_t685t TYPE ty_t685t,
      wa_ekpo TYPE ty_ekpo.
data: it_ekko TYPE TABLE OF zms_ekko,
      it_item TYPE TABLE OF zms_konv,
      it_lfa1 type TABLE OF ty_lfa1,
      it_t685t TYPE TABLE OF ty_t685t,
      it_ekpo TYPE TABLE OF ty_ekpo.
SELECTION-SCREEN : BEGIN OF BLOCK ss_block WITH FRAME TITLE text-001.
   PARAMETERS: pa_ver(2) TYPE c DEFAULT '0'.
    SELECT-OPTIONS: pa_pord FOR wa_ekko-ebeln,
                    pa_date for wa_ekko-bedat.
SELECTION-SCREEN : END OF BLOCK ss_block.
SELECT EBELN LIFNR bedat unsez verkf telf1 ihrez knumv from ekko
    into CORRESPONDING FIELDS OF TABLE it_ekko.
if pa_pord is not INITIAL.
    DELETE it_ekko WHERE ebeln not in pa_pord.
endif.
if pa_date is not INITIAL.
    DELETE it_ekko WHERE bedat not IN pa_date.
endif.
if it_ekko is not INITIAL.
SELECT lifnr MCOD1 STRAS MCOD3 from lfa1
    INTO CORRESPONDING FIELDS OF TABLE it_lfa1
    FOR ALL ENTRIES IN it_ekko
    WHERE LIFNR = it_ekko-LIFNR.
SELECT ebeln ebelp txz01 menge peinh brtwr from ekpo
    INTO CORRESPONDING FIELDS OF TABLE it_ekpo
    FOR ALL ENTRIES IN it_ekko
    WHERE EBELN = it_ekko-ebeln.
loop at it_ekko into wa_ekko.
    READ TABLE it_lfa1 into wa_lfa1 WITH KEY lifnr = wa_ekko-LIFNR.
    wa_ekko-MCOD1 = wa_lfa1-MCOD1.
    wa_ekko-stras = wa_lfa1-stras.
    wa_ekko-MCOD3 = wa_lfa1-MCOD3.
    MODIFY it_ekko FROM wa_ekko TRANSPORTING MCOD1 STRAS MCOD3 WHERE ebeln = wa_ekko-ebeln.
ENDLOOP.
SELECT KNUMV STUNR KPOSN KSCHL KRECH kbetr kwert KAWRT from konv
    into CORRESPONDING FIELDS OF TABLE it_item
    FOR ALL ENTRIES IN it_ekko
    WHERE KNUMV = it_ekko-KNUMV.
SELECT kschl vtext from t685t
    INTO CORRESPONDING FIELDS OF TABLE it_t685t
    FOR ALL ENTRIES IN it_item
    WHERE spras = 'EN' and KSCHL = it_item-KSCHL.
LOOP AT it_item into wa_item.
    READ TABLE it_t685t into wa_t685t with key KSCHL = wa_item-KSCHL.
    wa_item-vtext = wa_t685t-vtext.
    if wa_item-kschl = 'ZBP1'.
      wa_item-qty = wa_item-KAWRT / wa_item-kbetr.
    endif.
    if wa_item-KRECH = 'A'.
     wa_item-kbetr = wa_item-kbetr / 10.
    endif.
    if wa_item-kschl = 'NAVS'.
      wa_item-vtext = 'Sales Tax'.
    endif.
    MODIFY it_item from wa_item TRANSPORTING vtext kbetr kschl qty
      WHERE stunr = wa_item-STUNR and
            kposn = wa_item-kposn.
ENDLOOP.
DELETE it_item WHERE kposn = '000000'.
DELETE it_item WHERE kschl <> 'ZBP1' and kschl <> 'ZD01' and kschl <> 'ZE01'
      and kschl <> 'NAVS' and kschl <> 'ZSRV'.
sort it_item by kposn STUNR.
CALL FUNCTION '/1BCDWB/SF00000025'
EXPORTING
    ARCHIVE_INDEX              =
    ARCHIVE_INDEX_TAB          =
    ARCHIVE_PARAMETERS         =
    CONTROL_PARAMETERS         =
    MAIL_APPL_OBJ              =
    MAIL_RECIPIENT             =
    MAIL_SENDER                =
    OUTPUT_OPTIONS             =
    USER_SETTINGS              = 'X'
IMPORTING
    DOCUMENT_OUTPUT_INFO       =
    JOB_OUTPUT_INFO            =
    JOB_OUTPUT_OPTIONS         =
    TABLES
      it_ekko                    = it_ekko
      it_item                    = it_item
EXCEPTIONS
    FORMATTING_ERROR           = 1
    INTERNAL_ERROR             = 2
    SEND_ERROR                 = 3
    USER_CANCELED              = 4
    OTHERS                     = 5
IF sy-subrc <> 0.
MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
        WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.
endif.

Require Standard DataSources for Purchase Orders

Hi,
Please provide me the standard datasources for purchase orders to get the data updated automatically in a BI System.
I have to display report containing the purchase orders details of each day.
Regards
Sunil Kumar

Hi,
Following link will give you complete details of purchase order deports and data sources.
http://help.sap.com/saphelp_nw70/helpdata/en/df/cfb839f6a7a307e10000000a11402f/frameset.htm
Regards,
Vishnu

Open items for purchase order its very urgent

hi
my requirement is to write extract program for purchase order(me21) to extract only open items.
please provide sample code its very urgent.
thanks in advance.
points will be rewarded.
thanks
hari prasad reddy

check the below report :
REPORT ZMM_OPEN_PO_REPORT no standard page heading
                          line-size 255
                          message-id zwave.
======================================================================
Program Name : ZMM_OPEN_PO_REPORT                                    *
Description : This report displays all Open PO Items and output     *
               would be PO Number,Material number and so on          *
Author       : Seshu                                                 *
Date         : 01/24/2007                                            *
MODIFICATION HISTORY                                                 *
DATE    | AUTHOR   | CHANGE #   | DESCRIPTION OF MODIFICATION        *
--|||--
01/24/07| Seshu    | DEVK921979 | Initial                            *
D A T A D E C L A R A T I O N   P A R T                         ***
type-pools
type-pools : slis.
Tables
tables : ekko, " Purchase order Header
         ekpo, " Purchase order Item
         marc. " Material with Plant data
Internal table for output.
data : begin of i_output occurs 0,
       ebeln like ekko-ebeln,
       matnr like ekpo-matnr,
       end of i_output.
ALV Data declaration.
data : v_repid like sy-repid.
ALV Function Module Variables
DATA: gs_layout type slis_layout_alv,
      g_exit_caused_by_caller,
      gs_exit_caused_by_user type slis_exit_by_user.
DATA: gt_fieldcat    type slis_t_fieldcat_alv,
      gs_print       type slis_print_alv,
      gt_events      type slis_t_event,
      gt_list_top_of_page type slis_t_listheader,
      g_status_set   type slis_formname value 'PF_STATUS_SET',
      g_user_command type slis_formname value 'USER_COMMAND',
      g_top_of_page type slis_formname value 'TOP_OF_PAGE',
      g_top_of_list type slis_formname value 'TOP_OF_LIST',
      g_end_of_list type slis_formname value 'END_OF_LIST',
      g_variant LIKE disvariant,
      g_save(1) TYPE c,
      g_tabname_header TYPE slis_tabname,
      g_tabname_item   TYPE slis_tabname,
      g_exit(1) TYPE c,
      gx_variant LIKE disvariant.
data : gr_layout_bck type slis_layout_alv.
Ranges
ranges r_eindt for eket-eindt.
initialization.
v_repid = sy-repid.
start-of-selection.
Get the data from EKKO ,EKPO and MARC Table
perform get_data_tables.
end-of-selection.
display the data in the form of ALV
perform display_data.
*&      Form get_data_tables
      Get the data from EKKO,EKPO and MARC Table
FORM get_data_tables.
clear : i_output.
refresh : i_output.
fill the dates in ranges
r_eindt-low = sy-datum - 7.
r_eindt-high = sy-datum + 14.
r_eindt-option = 'BT'.
r_eindt-sign = 'I'.
append r_eindt.
Get the data from EKKO,EKPO and EKET Tables
select aebeln bmatnr into table i_output
                       from ekko as a inner join
                            ekpo as b on aebeln = bebeln
                            inner join marc as c on cmatnr = bmatnr
                            inner join mara as d on dmatnr = bmatnr
                            inner join eket as e on eebeln = aebeln
                                           and   eebelp = bebelp
                            where c~beskz = 'E'
                            and   c~werks = '1000'
                            and   d~mtart = 'FERT'
                            and   b~loekz = space
                            and   b~elikz = space
                            and   e~eindt in r_eindt.
if sy-subrc ne 0.
message e000(zwave) with 'No open purchase order found'.
endif.
ENDFORM.                    " get_data_tables
*&      Form display_data
      text
FORM display_data.
Fill the Fiedlcat
PERFORM fieldcat_init using gt_fieldcat[].
CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
   EXPORTING
   I_INTERFACE_CHECK                 = ' '
   I_BYPASSING_BUFFER                =
   I_BUFFER_ACTIVE                   = ' '
     I_CALLBACK_PROGRAM                = v_repid
   I_CALLBACK_PF_STATUS_SET          = ' '
    I_CALLBACK_USER_COMMAND           = g_user_command
   I_CALLBACK_TOP_OF_PAGE            = ' '
   I_CALLBACK_HTML_TOP_OF_PAGE       = ' '
   I_CALLBACK_HTML_END_OF_LIST       = ' '
   I_STRUCTURE_NAME                  =
   I_BACKGROUND_ID                   = ' '
   I_GRID_TITLE                      =
   I_GRID_SETTINGS                   =
   IS_LAYOUT                         = gr_layout_bck
      IT_FIELDCAT                       = gt_fieldcat[]
   IT_EXCLUDING                      =
   IT_SPECIAL_GROUPS                 =
   IT_SORT                           =
   IT_FILTER                         =
   IS_SEL_HIDE                       =
   I_DEFAULT                         = 'X'
    I_SAVE                            = g_save
    IS_VARIANT                        =
   IT_EVENTS                         =
   IT_EVENT_EXIT                     =
   IS_PRINT                          =
   IS_REPREP_ID                      =
   I_SCREEN_START_COLUMN             = 0
   I_SCREEN_START_LINE               = 0
   I_SCREEN_END_COLUMN               = 0
   I_SCREEN_END_LINE                 = 0
   IT_ALV_GRAPHICS                   =
   IT_ADD_FIELDCAT                   =
   IT_HYPERLINK                      =
   I_HTML_HEIGHT_TOP                 =
   I_HTML_HEIGHT_END                 =
   IT_EXCEPT_QINFO                   =
IMPORTING
   E_EXIT_CAUSED_BY_CALLER           =
   ES_EXIT_CAUSED_BY_USER            =
    TABLES
      T_OUTTAB                          = i_output
   EXCEPTIONS
     PROGRAM_ERROR                     = 1
     OTHERS                            = 2
IF SY-SUBRC <> 0.
MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
        WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.
ENDFORM.                    " display_data
*&      Form fieldcat_init
      text
     -->P_GT_FIELDCAT[] text
FORM fieldcat_init USING e01_lt_fieldcat type slis_t_fieldcat_alv.
DATA: LS_FIELDCAT TYPE SLIS_FIELDCAT_ALV.
Purchase order number
CLEAR LS_FIELDCAT.
LS_FIELDCAT-FIELDNAME    = 'EBELN'.
LS_FIELDCAT-ref_fieldname = 'EBELN'.
LS_FIELDCAT-ref_tabname = 'EKKO'.
LS_FIELDCAT-TABNAME    = 'I_OUTPUT'.
ls_fieldcat-seltext_L = 'Purchase Order'.
ls_fieldcat-seltext_M = 'Purchase Order'.
ls_fieldcat-seltext_S = 'Purchase Order'.
APPEND LS_FIELDCAT TO E01_LT_FIELDCAT.
Material #
CLEAR LS_FIELDCAT.
LS_FIELDCAT-FIELDNAME    = 'MATNR'.
LS_FIELDCAT-ref_fieldname = 'MATNR'.
LS_FIELDCAT-ref_tabname = 'EKPO'.
LS_FIELDCAT-TABNAME    = 'I_OUTPUT'.
ls_fieldcat-seltext_L = 'Material'.
ls_fieldcat-seltext_M = 'Material'.
ls_fieldcat-seltext_S = 'Material'.
APPEND LS_FIELDCAT TO E01_LT_FIELDCAT.
ENDFORM.                    " fieldcat_init

Report for Purchaser Order block

Similar Messages

Maybe you are looking for