ME_CUST_PO Enhancement : PO Amount Check Against PR

[Sudipta099]

The goal is to ensure PO line items don't exceed the approved amount on the corresponding Purchase Requisition (PR).

Here's a simplified explanation:

1. Check for PR Reference: For each item in the PO (table EKPO), the system first checks if it's linked to a PR. It does this by looking at the BANFN (PR Number) and BNFPO (PR Item) fields. If these fields are blank, it means the PO item isn't related to a PR, and the system skips this item. We only care about PO items that are based on PRs.

2. Get PR Amount: If a PR link exists, the system retrieves the approved amount for that PR item. It goes to the EBAN table (PR table) and uses the BANFN (PR Number) and BNFPO (PR Item) as search criteria. It then fetches the NETWR field, which represents the PR item's net value (approved amount).

3. Calculate Total PO Amount for Each PR: Now, for each unique PR referenced in the PO, the system calculates the total amount of all PO items related to that specific PR. It sums up the NETWR (Net price) of all PO items that have the same BANFN (PR Number). Think of it as grouping PO items by PR and summing their amounts.

4. Compare and Validate: The crucial step: the system compares the total PO amount calculated in the previous step with the original PR amount fetched from EBAN. This comparison is done for each PR referenced in the PO.

5. Error Message: If the total PO amount for a given PR exceeds the PR amount, the system throws an error message: "PO amount exceeds PR amount for PR: ****** (the PR number). Please adjust the PO amount." This prevents POs from being created that overspend the approved PR budget.

In essence: The enhancement ensures that the total amount of all PO items linked to a specific PR never goes over the approved amount on that PR. It acts as a budget control mechanism during PO creation.

Example:

Let's say PR 12345 has an approved amount of $1000. A PO is being created with two items linked to PR 12345:

• PO Item 1: $600
• PO Item 2: $500

The system will:

1. Recognize both PO items are linked to PR 12345.
2. Fetch the PR amount ($1000) from EBAN for PR 12345.
3. Calculate the total PO amount for PR 12345: $600 + $500 = $1100.
4. Compare $1100 (PO total) with $1000 (PR total).
5. Since $1100 > $1000, the system will display the error message.

This prevents the PO from being saved until the amounts are adjusted.

[RaymondGiuseppi]

So, you have posted your specification, but what have you or your programmer coded so far in your BAdI ME_PROCESS_PO_CUST implementing class  and where are you stuck?

[Sudipta099]

Hi Raymond , the problem is we are trying to fetch real time data in ME21N while creating and ME22n while editing the PO so that we get a real time check whenever we are exceeding the PR amount , before saving ,so now the problem is EKPO table wont have the data because its not yet saved , and we need real time validation , here is the code that i am trying

[Sudipta099]

this is the code that i am trying

METHOD if_ex_me_process_po_cust~process_item.

DATA:
lt_eban TYPE TABLE OF eban, " PR Data from DB
lt_po_items TYPE TABLE OF mepoitem, " PO Items (Real-time)
lv_total_po_value TYPE p DECIMALS 2, " Total PO value for PR
lv_pr_total TYPE p DECIMALS 2, " Total PR value
ls_po_item TYPE mepoitem, " Current PO item
lo_header TYPE REF TO if_purchase_order_mm,
lt_items_ref TYPE REF TO mepoitems, " ✅ FIX: Use correct type
lv_ebeln TYPE ebeln. " PO number

FIELD-SYMBOLS:
<fs_items> TYPE TABLE OF mepoitem, " ✅ FIX: Define correct table type
<fs_item> TYPE mepoitem,
<fs_eban> TYPE eban.

" 1. Get current PO item data (Real-time)
ls_po_item = im_item->get_data( ).

" 2. Exit if no PR reference exists
IF ls_po_item-banfn IS INITIAL OR ls_po_item-bnfpo IS INITIAL.
RETURN.
ENDIF.

" 3. Get PO Header (Real-time PO Data)
lo_header = im_header. " ✅ FIXED: Use `im_header` instead of `lo_header`

" 4. Get all items in this PO (real-time)
lt_items_ref = im_header->get_items( ).
ASSIGN lt_items_ref->* TO <fs_items>.

IF sy-subrc = 0.
" Convert generic table to typed table
lt_po_items = CORRESPONDING #( <fs_items> ).
ELSE.
RETURN.
ENDIF.

" 5. Calculate total PO value for this PR (Before Save)
CLEAR lv_total_po_value.
LOOP AT lt_po_items ASSIGNING <fs_item> WHERE banfn = ls_po_item-banfn.
lv_total_po_value = lv_total_po_value + ( <fs_item>-netpr * <fs_item>-menge ).
ENDLOOP.

" 6. Fetch PR data from EBAN (DB Query)
SELECT * FROM eban INTO TABLE lt_eban
WHERE banfn = @LS_po_item-banfn.

IF sy-subrc <> 0.
MESSAGE e001(zpo_check) WITH 'PR data not found' TYPE 'E'.
RETURN.
ENDIF.

" 7. Calculate PR total value
CLEAR lv_pr_total.
LOOP AT lt_eban ASSIGNING <fs_eban>.
lv_pr_total = lv_pr_total + ( <fs_eban>-preis * <fs_eban>-menge ).
ENDLOOP.

" 8. Validate PO total vs PR total
IF lv_total_po_value > lv_pr_total.
MESSAGE e003(zpo_check) WITH ls_po_item-banfn TYPE 'E'. " Error: PO exceeds PR
ENDIF.

ENDMETHOD.

[RaymondGiuseppi]

Use the provided macros to handle error message as in this answer

• use a metafield for eban purchase requisition number
• insure correct handling of decimals in your code (currency)
• Use the SET_DATA methods to update some values (similar to the GET_DATA)
• For some global check, use the CHECK method, this method will be called by user or before save/post.
• In CHECK_HEADER and CHECK methods, you can get an internal table of reference to items with GET_ITEMS method

[Sudipta099]

Hi everyone , i am trying to create an enhancement using the badi me_process_po_cust , the requirement is pretty simple here , we need to validate the total PR with the total PO amount , if the po amount exceeds the PR amount then we should give error , this i can validate it process_item, but i am confused in case of a scenario where there's one PR and there are multiple POs referencing that PR , and i need to calculate the total PR with respect to multiple POs totalling it and then to compare it that wether it is exceeding the total pr or not if yes then error otherwise allow to save , so this where i should write , because in process_item it validates single line item not overall , and if i write in process_header then there's no signature for im_item , there's only one signature of IM_HEADER and if i export parameters , there's no exporting parameters from process_item method , Please suggest/help