Change the schedule line committed qty in PO items using ME_PROCESS_PO_CUST

Question

Dear Experts,
I want to make the PO item schedule line committed quantity MNG02 field to zero, for this purpose I wrote the logic as below.
but its not changing the committed quantity to zero. Please advice me.
method IF_EX_ME_PROCESS_PO_CUST~PROCESS_ITEM.
DATA: lwa_po_header TYPE REF TO if_purchase_order_mm,
        lwa_mepoheader TYPE mepoheader,
        lwa_mepoitem TYPE mepoitem,
        lwa_mepoitemx TYPE mepoitemx,
        lwa_ekko TYPE ekko,
        lwa_ekpo TYPE ekpo,
        lwa_ekpv TYPE ekpv,
        lwa_eket TYPE eket,
        tp_minqty TYPE min_qty,
        tp_clabs TYPE labst,
        tp_kosch TYPE kosch,
        tp_werks TYPE werks_d,
        tp_tdid type tdid,
        ta_textlines type MMPUR_T_TEXTLINES,
        lwa_textlines LIKE LINE OF ta_textlines,
        lwa_minstk TYPE zminstk.
  DATA: schedules TYPE PURCHASE_ORDER_SCHEDULES,
        schedule LIKE LINE OF schedules,
        lwa_schedule TYPE meposchedule,
        tp_mtvfp TYPE mtvfp,
        tp_avqty TYPE BSTMG,
        tp_minqty1 TYPE BSTMG.
  if sy-tcode = 'ME21N'.
Get PO Header data
    lwa_po_header = im_item->get_header( ).
    lwa_mepoheader = lwa_po_header->get_data( ).
    MOVE-CORRESPONDING lwa_mepoheader TO lwa_ekko.
Get PO Item data
    lwa_mepoitem = im_item->get_data( ).
    MOVE-CORRESPONDING lwa_mepoitem TO lwa_ekpo.
*-> Get schedule line data
              CALL METHOD im_item->get_schedules
                RECEIVING
                  re_schedules = schedules.
              LOOP AT schedules INTO schedule.
                CALL METHOD schedule-schedule->get_data
                  RECEIVING
                    re_data = lwa_schedule.
*-> Change Committed quantity
                lwa_schedule-mng02 = 0.
                CALL METHOD schedule-schedule->set_data
                  EXPORTING
                    im_data = lwa_schedule.
              ENDLOOP.
                CALL METHOD im_item->set_data
                  EXPORTING
                    im_data = lwa_mepoitem.
    ENDIF.
endmethod.

Answer 1

Hi Siddu,
Please finf enclosed with the suedo code.
DATA: LS_MEPOITEM TYPE MEPOITEM,
            LS_OBJ TYPE REF TO IF_PURCHASE_ORDER_MM,
            LS_MEPOHEADER TYPE MEPOHEADER.
*IM_ITEM is ur importing parameter
in order to get the  item details :
LS_MEPOITEM = IM_ITEM->GET_DATA( ).
*In order to get the current document type
  LS_OBJ = IM_ITEM->GET_HEADER( ).
  LS_MEPOHEADER = LS_OBJ->GET_DATA( ).
Now you have your document type in LS_MEPOHEADER-bsart ...
IF LS_MEPOHEADER-bsart ... = ur custom doc type .
*Set the return item = 'X'.
LS_MEPOITEM-RETPO = 'X'.
    CALL METHOD IM_ITEM->SET_DATA
      EXPORTING
        IM_DATA = LS_MEPOITEM.
ENDIF.
Hope this helps you,,,
Regards,
Deepak.