Change customer for purchase requisition

Question

Hi gurus,
i'm trying to change customer number for purchase requisition.
i tried to enter this code in badi ME_PROCESS_REQ_CUST~PROCESS_ITEM but KUNNR is not changed:
  DATA : ls_item_data   TYPE mereq_item,
         ls_item_datax  TYPE mereq_itemx,
         lv_obj         TYPE REF TO object,
         lv_attr        TYPE string,
         lv_aktyp       TYPE aktyp,
         lv_kunnr       TYPE ekunnr.
  FIELD-SYMBOLS : <fs_lcl> TYPE any,
                 <fs_source> TYPE any.
  IF im_count EQ 1.  " to avoid infinate Loop"
Access Attributes value of Local Class
for getting the transaction mode of Line item
H-> Create
    lv_obj ?= im_item.
    MOVE 'MY_STATE->AKTYP' TO lv_attr.
    ASSIGN lv_obj->(lv_attr) TO <fs_lcl>.
    lv_aktyp = <fs_lcl>.
    IF lv_aktyp EQ 'H' OR lv_aktyp EQ 'V'.        "While creating line item"
Extracting existing Item Data and Modify the fields
Requestor Name (AFNAM) & Source of supply details
      CLEAR : ls_item_data.
      ls_item_data = im_item->get_data( ).
     ls_item_datax = im_item->get_datax( ).
     MOVE ls_item_data-ernam TO ls_item_data-afnam.
      lv_kunnr = '0000100000'.
      ls_item_data-kunnr = lv_kunnr.
         ls_item_datax-kunnr = 'X'.
     im_item->set_datax(
     EXPORTING
     im_datax = ls_item_datax ).
      im_item->set_data(
      EXPORTING
      im_data = ls_item_data ).
    ENDIF.
  ENDIF.
when trying changing other fields like AFNAM for example, the data is changed.
the customer number exists in KNA1.
any ideas?
Thanks,
Sagit.

Answer 1

SEARCH  SEARCH  SEARCH  SEARCH  SEARCH  SEARCH  SEARCH
Good work