How to change net Price by using BAPI_PO_change

Question

Hi experts..
How i can change net price by using bapi_po_change.
What parameters i have to pass in this fm.
if possible please tell me , which table this FM will update.
Thanks.
I will award points for all help.

Answer 1

See the below code and have tested and it works great..
REPORT  ZTEST_PG_07 NO STANDARD PAGE HEADING
                    MESSAGE-ID z9_msg_prash.
Tables Declaration  ****
TABLES: ekpo.
Variables Declaration  ****
DATA: v_purchaseorder TYPE bapimepoheader-po_number.
DATA: v_ebelp TYPE ekpo-ebelp.
Constants Declaration  ****
CONSTANTS: x VALUE 'X'.
Internal Tables Declaration  ****
DATA: it_return  TYPE STANDARD TABLE OF bapiret2 WITH HEADER LINE.
DATA: it_poitem  TYPE STANDARD TABLE OF bapimepoitem WITH HEADER LINE.
DATA: it_poitemx TYPE STANDARD TABLE OF bapimepoitemx WITH HEADER LINE.
DATA: wa_return  TYPE bapiret2.
Selection Screen  ****
SELECTION-SCREEN BEGIN OF BLOCK b1 WITH FRAME.
PARAMETERS: p_ebeln LIKE ekpo-ebeln OBLIGATORY.
PARAMETERS: p_ebelp LIKE ekpo-ebelp.
PARAMETERS: p_menge LIKE ekpo-menge.
SELECTION-SCREEN END OF BLOCK b1.
AT SELECTION-SCREEN
AT SELECTION-SCREEN ON p_ebeln.
  IF p_ebeln IS NOT INITIAL.
    SELECT SINGLE ebeln INTO v_purchaseorder FROM ekpo
    WHERE ebeln = p_ebeln.
    IF sy-subrc <> 0.
      MESSAGE e002.
    ENDIF.
  ELSE.
    MESSAGE e005.
  ENDIF.
AT SELECTION-SCREEN ON p_ebelp.
  if p_ebeln is not initial.
  IF p_ebelp IS NOT INITIAL.
    SELECT SINGLE ebelp INTO v_ebelp FROM ekpo
    WHERE ebeln = p_ebeln AND ebelp = p_ebelp.
    IF sy-subrc <> 0.
      MESSAGE e003.
    ENDIF.
  ELSE.
    MESSAGE e006.
  ENDIF.
  endif.
START-OF-SELECTION
START-OF-SELECTION.
  v_purchaseorder = p_ebeln.
  it_poitem-po_item  = p_ebelp.
  it_poitem-quantity = p_menge.
  it_poitem-net_price = '20.00'.
  APPEND it_poitem.
  it_poitemx-po_item  = p_ebelp.
  it_poitemx-po_itemx = x.
  it_poitemx-quantity = x.
  APPEND it_poitemx.
*&----Calling BAPI function module
  CALL FUNCTION 'BAPI_PO_CHANGE'
    EXPORTING
     purchaseorder                = v_purchaseorder
    testrun                      = x
   TABLES
     return                       = it_return
     poitem                       = it_poitem
     poitemx                      = it_poitemx.
     CALL FUNCTION 'BAPI_TRANSACTION_COMMIT'
      EXPORTING
        WAIT          = space
     IMPORTING
       RETURN        =
END-OF-SELECTION
END-OF-SELECTION.
  LOOP AT it_return INTO wa_return.
    WRITE:/ wa_return-message.
  ENDLOOP.
Thanks
Seshu