BAPI_PO_CHANGE with scheduling

Question

Hai frnds,
  Im using BAPI_PO_CHANGE for changing the quantity of the existing item and need to create an new item also. For this im using scheduling table(poschedule),where one item has two scheduling line.
Existing details
Eg: POHEADER:    0210000001
    POITEM:
      10 -> 400(quantity)
    POSCHEDULE:
      10 -> 1(1st sched) -> 100(quantity)
      10 -> 2(2nd sched) -> 300(quantity)
After modification
Eg: POHEADER:    0210000001
    POITEM:
     10 -> 60(quantity)
     20 -> 340(quantity)
    POSCHEDULE:
     10 -> 1(1st sched) -> 60(quantity)
     10 -> 2(2nd sched) -> 0(quantity)
     20 -> 1(1st sched) -> 40(quantity)
     20 -> 2(2nd sched) -> 300(quantity)
Can anyone help me to solve this problem??? wat are the fields to be considered in POITEM,POSCHEDULE?
Suganya Jayabalan.

Answer 1

Hai Thomas,
  this is the code:
REPORT  zfi_upd_import_process NO STANDARD PAGE HEADING
                                 MESSAGE-ID z6 .
TABLES: zmmpoamend,ekko, ekpo.
DATA:t_zmmpo_amend_tab LIKE zmmpoamend OCCURS 0 WITH HEADER LINE.
DATA:t_zmmpo_amend_tab1 LIKE zmmpoamend OCCURS 0 WITH HEADER LINE.
DATA:v_bstmg     LIKE bapimepoitem-quantity,
     v_ebelp     LIKE bapimepoitem-po_item,
     v_belnr1    LIKE bkpf-belnr,
     v_awkey     LIKE bkpf-awkey,
     v_orderunit LIKE ekpo-meins,
     v_currency  LIKE tcurc-waers,
     v_ebeln     LIKE ekko-ebeln,
     v_payterm   LIKE ekko-zterm,
     v_zfbdt     LIKE bseg-zfbdt,
     v_flag(1)   TYPE c,
     v_flgbdc(1) TYPE c.
DATA: wa_bapiquantity1 like eket-menge,
      wa_bapiquanfin1 like eket-menge,
      wa_bapiquantot like eket-menge,
      wa_bapiquantity2 like eket-menge,
      wa_bapiquanfin2 like eket-menge.
DATA: BEGIN OF t_belnr_tab OCCURS 0,
        belnr LIKE bkpf-belnr,
        gjahr LIKE bkpf-gjahr,
      END OF t_belnr_tab.
DATA: BEGIN OF t_ret_tab OCCURS 0.
        INCLUDE STRUCTURE bapiret2.
DATA: END OF t_ret_tab.
FOR PO AMENDMENT POSTING ****************
DATA:BEGIN OF t_bapimepocond_tab OCCURS 0.
        INCLUDE STRUCTURE bapimepocond.
DATA:END OF t_bapimepocond_tab.
DATA:BEGIN OF t_bapimepoitem_tab OCCURS 0.
        INCLUDE STRUCTURE bapimepoitem.
DATA:END OF t_bapimepoitem_tab.
DATA: t_bapimepoitem_tab1 LIKE t_bapimepoitem_tab OCCURS 0 WITH HEADER
LINE
DATA:BEGIN OF t_bapimepoitemdet_tab OCCURS 0.
        INCLUDE STRUCTURE bapiekpo.
DATA:END OF t_bapimepoitemdet_tab.
DATA:BEGIN OF t_bapieket_tab OCCURS 0.
        INCLUDE STRUCTURE bapieket.
DATA:END OF t_bapieket_tab.
DATA:BEGIN OF t_bapiposchedule OCCURS 0.
        INCLUDE STRUCTURE BAPIMEPOSCHEDULE.
DATA:END OF t_bapiposchedule.
data: w_no type i,
      w_no1 type i,
      w_idx type i.
DATA: w_ebelp like ekpo-ebelp.
DATA:BEGIN OF t_bapimepoaccount_tab OCCURS 0.
        INCLUDE STRUCTURE bapimepoaccount.
DATA:END OF t_bapimepoaccount_tab.
DATA:BEGIN OF t_bapimepoaccountx_tab OCCURS 0.
        INCLUDE STRUCTURE bapimepoaccountx.
DATA:END OF t_bapimepoaccountx_tab.
DATA:BEGIN OF t_bapimepoaccountdet_tab OCCURS 0.
        INCLUDE STRUCTURE bapiekkn.
DATA:END OF t_bapimepoaccountdet_tab.
DATA:BEGIN OF t_bapimepoitemx_tab OCCURS 0.
        INCLUDE STRUCTURE bapimepoitemx.
DATA:END OF t_bapimepoitemx_tab.
DATA:wa_bapimepoitem LIKE LINE OF t_bapimepoitem_tab.
data: begin of t_bapiposchedulex occurs 0.
        include structure BAPIMEPOSCHEDULX.
data: end of t_bapiposchedulex.
END OF FOR PO AMENDMENT POSTING **********
SELECTION-SCREEN BEGIN OF BLOCK b1 WITH FRAME TITLE text-001.
PARAMETERS: p_poamd RADIOBUTTON GROUP rad1,
           p_mirofs RADIOBUTTON GROUP rad1,
           p_mirocd RADIOBUTTON GROUP rad1,
           p_mirofr RADIOBUTTON GROUP rad1,
           p_j1iex RADIOBUTTON GROUP rad1.
SELECT-OPTIONS:s_zzboe FOR zmmpoamend-zzboe NO INTERVALS NO-EXTENSION
                           OBLIGATORY.
SELECTION-SCREEN END OF BLOCK b1.
IF p_poamd = 'X'.
begin of internal table processing for calling BAPI's*******
  SELECT * FROM zmmpoamend INTO TABLE t_zmmpo_amend_tab
     WHERE zzboe IN s_zzboe AND
           zzpostat = ' '.
  IF sy-subrc <> '0'.
    MESSAGE 'No PO found which has to be updated.' TYPE 'E'.
  ENDIF.
begin of PO Amendment****************
  LOOP AT t_zmmpo_amend_tab .
    t_zmmpo_amend_tab-waers = 'INR'.
    t_zmmpo_amend_tab1 = t_zmmpo_amend_tab.
    t_zmmpo_amend_tab1-zzpostat = 'X'.
    APPEND t_zmmpo_amend_tab1.
    IF t_zmmpo_amend_tab-zzwrbtrvcd NE '0'.
      CLEAR t_bapimepocond_tab.
      t_bapimepocond_tab-itm_number = t_zmmpo_amend_tab-ebelp.
      t_bapimepocond_tab-cond_value = t_zmmpo_amend_tab-zzwrbtrvcd.
      t_bapimepocond_tab-cond_type = 'ZVCD'.
      t_bapimepocond_tab-currency = t_zmmpo_amend_tab-waers.
      t_bapimepocond_tab-change_id = 'I'.
      APPEND t_bapimepocond_tab.
    ENDIF.
    IF t_zmmpo_amend_tab-zzwrbtrvnv NE '0'.
      CLEAR t_bapimepocond_tab.
      t_bapimepocond_tab-itm_number = t_zmmpo_amend_tab-ebelp.
      t_bapimepocond_tab-cond_value = t_zmmpo_amend_tab-zzwrbtrvnv.
      t_bapimepocond_tab-cond_type = 'ZVNV'.
      t_bapimepocond_tab-currency = t_zmmpo_amend_tab-waers.
      t_bapimepocond_tab-change_id = 'I'.
      APPEND t_bapimepocond_tab.
    ENDIF.
    IF t_zmmpo_amend_tab-zzwrbtrccd NE '0'.
      CLEAR t_bapimepocond_tab.
      t_bapimepocond_tab-itm_number = t_zmmpo_amend_tab-ebelp.
      t_bapimepocond_tab-cond_value = t_zmmpo_amend_tab-zzwrbtrccd.
      t_bapimepocond_tab-cond_type = 'ZCCD'.
      t_bapimepocond_tab-currency = t_zmmpo_amend_tab-waers.
      t_bapimepocond_tab-change_id = 'I'.
      APPEND t_bapimepocond_tab.
    ENDIF.
    IF t_zmmpo_amend_tab-zzwrbtrvcv NE '0'.
      CLEAR t_bapimepocond_tab.
      t_bapimepocond_tab-itm_number = t_zmmpo_amend_tab-ebelp.
      t_bapimepocond_tab-cond_value = t_zmmpo_amend_tab-zzwrbtrvcv.
      t_bapimepocond_tab-cond_type = 'ZVCV'.
      t_bapimepocond_tab-currency = t_zmmpo_amend_tab-waers.
      t_bapimepocond_tab-change_id = 'I'.
      APPEND t_bapimepocond_tab.
    ENDIF.
    IF t_zmmpo_amend_tab-zzwrbtrvce NE '0'.
      CLEAR t_bapimepocond_tab.
      t_bapimepocond_tab-itm_number = t_zmmpo_amend_tab-ebelp.
      t_bapimepocond_tab-cond_value = t_zmmpo_amend_tab-zzwrbtrvce.
      t_bapimepocond_tab-cond_type = 'ZVCE'.
      t_bapimepocond_tab-currency = t_zmmpo_amend_tab-waers.
      t_bapimepocond_tab-change_id = 'I'.
      APPEND t_bapimepocond_tab.
    ENDIF.
    IF t_zmmpo_amend_tab-zzwrbtrvfi NE '0'.
      CLEAR t_bapimepocond_tab.
      t_bapimepocond_tab-itm_number = t_zmmpo_amend_tab-ebelp.
      t_bapimepocond_tab-cond_value = t_zmmpo_amend_tab-zzwrbtrvfi.
      t_bapimepocond_tab-cond_type = 'ZVFI'.
      t_bapimepocond_tab-currency = t_zmmpo_amend_tab-waers.
      t_bapimepocond_tab-change_id = 'I'.
      APPEND t_bapimepocond_tab.
    ENDIF.
    IF t_zmmpo_amend_tab-zzwrbtrvad NE '0'.
      CLEAR t_bapimepocond_tab.
      t_bapimepocond_tab-itm_number = t_zmmpo_amend_tab-ebelp.
      t_bapimepocond_tab-cond_value = t_zmmpo_amend_tab-zzwrbtrvad.
      t_bapimepocond_tab-cond_type = 'ZVAD'.
      t_bapimepocond_tab-currency = t_zmmpo_amend_tab-waers.
      t_bapimepocond_tab-change_id = 'I'.
      APPEND t_bapimepocond_tab.
    ENDIF.
    IF t_zmmpo_amend_tab-zzwrbtrvac NE '0'.
ZVAC added..
      CLEAR t_bapimepocond_tab.
      t_bapimepocond_tab-itm_number = t_zmmpo_amend_tab-ebelp.
      t_bapimepocond_tab-cond_value = t_zmmpo_amend_tab-zzwrbtrvac.
      t_bapimepocond_tab-cond_type = 'ZVAC'.
      t_bapimepocond_tab-currency = t_zmmpo_amend_tab-waers.
      t_bapimepocond_tab-change_id = 'I'.
      APPEND t_bapimepocond_tab.
    ENDIF.
    IF t_zmmpo_amend_tab-zzwrbtrvae NE '0'.
ZVAE added..
      CLEAR t_bapimepocond_tab.
      t_bapimepocond_tab-itm_number = t_zmmpo_amend_tab-ebelp.
      t_bapimepocond_tab-cond_value = t_zmmpo_amend_tab-zzwrbtrvae.
      t_bapimepocond_tab-cond_type = 'ZVAE'.
      t_bapimepocond_tab-currency = t_zmmpo_amend_tab-waers.
      t_bapimepocond_tab-change_id = 'I'.
      APPEND t_bapimepocond_tab.
    ENDIF.
    IF t_zmmpo_amend_tab-zzwrbtrmis NE '0'.
ZMIS(Miscellaenous charges) added..
      CLEAR t_bapimepocond_tab.
      t_bapimepocond_tab-itm_number = t_zmmpo_amend_tab-ebelp.
      t_bapimepocond_tab-cond_value = t_zmmpo_amend_tab-zzwrbtrmis.
      t_bapimepocond_tab-cond_type = 'ZMIS'.
      t_bapimepocond_tab-currency = t_zmmpo_amend_tab-waers.
      t_bapimepocond_tab-change_id = 'I'.
      APPEND t_bapimepocond_tab.
    ENDIF.
    IF t_zmmpo_amend_tab-zzinsper NE '0'.
insurance
      CLEAR t_bapimepocond_tab.
      t_bapimepocond_tab-itm_number = t_zmmpo_amend_tab-ebelp.
      t_bapimepocond_tab-cond_value = t_zmmpo_amend_tab-zzinsper.
      t_bapimepocond_tab-cond_type = 'ZPIN'.
      t_bapimepocond_tab-currency = '%'. "zmmpo_amend_tab-waers.
      t_bapimepocond_tab-change_id = 'I'.
      APPEND t_bapimepocond_tab.
    ENDIF.
    IF t_zmmpo_amend_tab-zzclsper NE '0'.
*clearing charges.
      CLEAR t_bapimepocond_tab.
      t_bapimepocond_tab-itm_number = t_zmmpo_amend_tab-ebelp.
      t_bapimepocond_tab-cond_value = t_zmmpo_amend_tab-zzclsper.
      t_bapimepocond_tab-cond_type = 'ZPCL'.
      t_bapimepocond_tab-currency = '%'. "zmmpo_amend_tab-waers.
      t_bapimepocond_tab-change_id = 'I'.
      APPEND t_bapimepocond_tab.
    ENDIF.
    v_bstmg = t_zmmpo_amend_tab1-menge + v_bstmg.
    AT END OF ebelp.
     t_bapimepoitem_tab-po_number = t_zmmpo_amend_tab1-ebeln .
      t_bapimepoitem_tab-po_item = t_zmmpo_amend_tab1-ebelp .
      t_bapimepoitem_tab-quantity = v_bstmg.
      APPEND t_bapimepoitem_tab.
      CLEAR v_bstmg.
    ENDAT.
    AT END OF  ebeln.
     L_EBELN =
      CALL FUNCTION 'BAPI_PO_GETDETAIL'
        EXPORTING
          purchaseorder                    = t_zmmpo_amend_tab-ebeln
         items                            = 'X'
         account_assignment               = 'X'
         SCHEDULES                        = 'X'
       TABLES
         po_items                         = t_bapimepoitemdet_tab
         po_item_account_assignment       = t_bapimepoaccountdet_tab
         PO_ITEM_SCHEDULES                = t_bapieket_tab.
      CLEAR v_ebelp.
      v_ebelp = t_bapimepoitemdet_tab-po_item.
      LOOP AT t_bapimepoitem_tab.
        v_bstmg = t_bapimepoitem_tab-quantity.
        LOOP AT t_bapimepoitemdet_tab WHERE
                          po_number = t_zmmpo_amend_tab-ebeln AND
                          po_item = t_bapimepoitem_tab-po_item.
          IF t_bapimepoitemdet_tab-quantity =
          t_bapimepoitem_tab-quantity.
           MOVE-CORRESPONDING t_bapimepoitemdet_tab TO wa_bapimepoitem.
            wa_bapimepoitem-gr_basediv = ' '.
            APPEND wa_bapimepoitem TO t_bapimepoitem_tab1.
            t_bapimepoitemx_tab-po_item = wa_bapimepoitem-po_item.
            t_bapimepoitemx_tab-gr_basediv = 'X'.
            APPEND t_bapimepoitemx_tab.
          ELSE.
            v_ebelp = v_ebelp + '10'.
            MOVE-CORRESPONDING t_bapimepoitemdet_tab TO wa_bapimepoitem.
            wa_bapimepoitem-quantity = t_bapimepoitemdet_tab-quantity -
                                       t_bapimepoitem_tab-quantity.
            wa_bapimepoitem-po_item = v_ebelp .
            APPEND wa_bapimepoitem TO t_bapimepoitem_tab1.
            LOOP AT t_bapimepoaccountdet_tab
              WHERE po_item = t_bapimepoitem_tab-po_item.
              MOVE-CORRESPONDING t_bapimepoaccountdet_tab TO
                                t_bapimepoaccount_tab.
              t_bapimepoaccount_tab-gl_account =
                t_bapimepoaccountdet_tab-g_l_acct.
              t_bapimepoaccount_tab-itm_number =
                t_bapimepoaccountdet_tab-sdoc_item.
              t_bapimepoaccount_tab-quantity = wa_bapimepoitem-quantity.
              t_bapimepoaccount_tab-po_item = v_ebelp.
              t_bapimepoaccountx_tab-po_item = v_ebelp.
              t_bapimepoaccountx_tab-quantity = 'X'.
              t_bapimepoaccountx_tab-creat_date = 'X'.
              t_bapimepoaccountx_tab-quantity = 'X'.
              t_bapimepoaccountx_tab-gl_account = 'X'.
              t_bapimepoaccountx_tab-bus_area = 'X'.
              t_bapimepoaccountx_tab-costcenter = 'X'.
              t_bapimepoaccountx_tab-sd_doc = 'X'.
              t_bapimepoaccountx_tab-itm_number = 'X'.
              t_bapimepoaccountx_tab-co_area = 'X'.
              t_bapimepoaccountx_tab-part_acct = 'X'.
              APPEND  t_bapimepoaccount_tab.
              APPEND  t_bapimepoaccountx_tab.
            ENDLOOP.
            t_bapimepoitemx_tab-po_item = wa_bapimepoitem-po_item.
            t_bapimepoitemx_tab-quantity = 'X'.
            t_bapimepoitemx_tab-stge_loc = 'X'.
            t_bapimepoitemx_tab-preq_no = 'X'.
            t_bapimepoitemx_tab-preq_item = 'X'.
            t_bapimepoitemx_tab-material = 'X'.
            t_bapimepoitemx_tab-po_unit = 'X'.
            t_bapimepoitemx_tab-plant = 'X'.
            APPEND t_bapimepoitemx_tab.
            MOVE-CORRESPONDING t_bapimepoitemdet_tab TO wa_bapimepoitem.
            wa_bapimepoitem-quantity = v_bstmg.
            wa_bapimepoitem-gr_basediv = ' '.
            APPEND wa_bapimepoitem TO t_bapimepoitem_tab1.
            t_bapimepoitemx_tab-po_item = wa_bapimepoitem-po_item.
           t_bapimepoitemx_tab-quantity = 'X'.
           t_bapimepoitemx_tab-gr_basediv = 'X'.
            APPEND t_bapimepoitemx_tab.
*********this is wer new coding starts*****************************
*inserted for delivery scheduling foe PO
          loop at t_bapieket_tab
                  where po_item = t_bapimepoitemdet_tab-po_item.
            w_idx = sy-tabix.
          IF t_bapieket_tab-SERIAL_NO = '0001'.
           IF t_bapimepoitem_tab-quantity > t_bapieket_tab-quantity or
              t_bapimepoitem_tab-quantity = t_bapieket_tab-quantity.
             wa_bapiquantity1 = t_bapieket_tab-quantity.
           ELSEIF t_bapimepoitem_tab-quantity < t_bapieket_tab-quantity.
             wa_bapiquantity1 = t_bapimepoitem_tab-quantity.
           ENDIF.
             wa_bapiquanfin1 = t_bapieket_tab-quantity - wa_bapiquantity1.
             t_bapieket_tab-QUANTITY = wa_bapiquantity1.
             modify t_bapieket_tab index w_idx transporting quantity.
              t_bapieket_tab-po_item = v_ebelp.
              t_bapieket_tab-quantity = wa_bapiquanfin1.
              append t_bapieket_tab.
          ELSE.
             IF t_bapimepoitem_tab-quantity > t_bapieket_tab-quantity.
              wa_bapiquantity2 = t_bapimepoitem_tab-quantity - wa_bapiquantity1.
             ELSEIF t_bapimepoitem_tab-quantity < t_bapieket_tab-quantity or
                    t_bapimepoitem_tab-quantity = t_bapieket_tab-quantity.
              wa_bapiquantity2 = 0.
             ENDIF.
             wa_bapiquanfin2 = t_bapieket_tab-quantity - abs( wa_bapiquantity2 ).
             t_bapieket_tab-QUANTITY = abs( wa_bapiquantity2 ).
             modify t_bapieket_tab index w_idx transporting quantity.
              t_bapieket_tab-po_item = v_ebelp.
              t_bapieket_tab-quantity = wa_bapiquanfin2.
              append t_bapieket_tab.
          ENDIF.
          endloop.
          Sort t_bapieket_tab by po_item.
          sort t_bapimepoitem_tab1 by po_item.
          sort t_bapimepoitemx_tab by po_item.
          loop at t_bapieket_tab.
            move: t_bapieket_tab-po_item to t_bapiposchedule-po_item,
                  t_bapieket_tab-serial_no to t_bapiposchedule-sched_line,
                  t_bapieket_tab-quantity to t_bapiposchedule-quantity,
                  t_bapieket_tab-preq_no to t_bapiposchedule-preq_no,
                  t_bapieket_tab-preq_item to t_bapiposchedule-preq_item.
            if  t_bapieket_tab-quantity = 0.
             t_bapiposchedule-delete_ind = 'X'.
            endif.
            append t_bapiposchedule.
            move: t_bapieket_tab-po_item to t_bapiposchedulex-po_item,
                  t_bapieket_tab-serial_no to t_bapiposchedulex-sched_line.
            t_bapiposchedulex-po_itemx = 'X'.
            t_bapiposchedulex-sched_linex = 'X'.
            if  t_bapieket_tab-quantity = 0.
             t_bapiposchedulex-delete_ind = 'X'.
            elseif  t_bapieket_tab-quantity <> 0.
             t_bapiposchedulex-quantity = 'X'.
            endif.
            clear: w_ebelp.
            select single ebelp from ekpo
                   into w_ebelp
                   where ebeln = t_zmmpo_amend_tab-ebeln and
                         ebelp = t_bapieket_tab-po_item.
            if w_ebelp is initial.
             t_bapiposchedulex-preq_no = 'X'.
             t_bapiposchedulex-preq_item = 'X'.
            endif.
            append t_bapiposchedulex.
            clear: t_bapiposchedulex, t_bapiposchedule.
           endloop.
          ENDIF.
        ENDLOOP.
***********end of new insertion**********************************************
        CLEAR t_bapimepoitemdet_tab.
        CLEAR v_bstmg.
      ENDLOOP.
      CALL FUNCTION 'BAPI_PO_CHANGE'
        EXPORTING
          purchaseorder                = t_zmmpo_amend_tab-ebeln
       TABLES
         return                       = t_ret_tab
         poitem                       = t_bapimepoitem_tab1
         poitemx                      = t_bapimepoitemx_tab
*****************inserted by suganya-2006/06/27*************************
         POSCHEDULE                   = t_bapiposchedule
         POSCHEDULEX                  = t_bapiposchedulex
*****************end of insertion-suganya-2006/06/27********************
         poaccount                    =  t_bapimepoaccount_tab
         poaccountx                   =  t_bapimepoaccountx_tab
         pocond                       = t_bapimepocond_tab
      CLEAR v_flag.
      LOOP AT t_ret_tab.
        IF t_ret_tab-type = 'E'.
          v_flag = 'X'.
          WRITE:/2 t_zmmpo_amend_tab-ebeln,
               15 t_ret_tab-type,
               25 t_ret_tab-message.
        ENDIF.
        AT LAST.
          IF v_flag <> 'X'.
            UPDATE zmmpoamend FROM TABLE t_zmmpo_amend_tab1.
            CALL FUNCTION 'BAPI_TRANSACTION_COMMIT'
              EXPORTING
                wait = 'X'.
            WRITE:/2 'PO ',5 t_zmmpo_amend_tab-ebeln,
                           16 ' changed succesfully'.
          ENDIF.
        ENDAT.
      ENDLOOP.
      CLEAR t_ret_tab.
      REFRESH t_ret_tab.
      CLEAR t_bapimepocond_tab.
      REFRESH t_bapimepocond_tab.
      CLEAR t_zmmpo_amend_tab1.
      REFRESH t_zmmpo_amend_tab1.
      CLEAR t_bapimepoitem_tab.
      REFRESH t_bapimepoitem_tab.
      CLEAR t_bapimepoitemdet_tab.
      REFRESH t_bapimepoitemdet_tab.
      CLEAR t_bapimepoitem_tab1.
      REFRESH t_bapimepoitem_tab1.
      CLEAR t_bapimepoitemx_tab.
      REFRESH t_bapimepoitemx_tab.
      CLEAR t_bapimepoaccount_tab.
      REFRESH t_bapimepoaccount_tab.
      CLEAR t_bapimepoaccountdet_tab.
      REFRESH t_bapimepoaccountdet_tab.
      CLEAR t_bapimepoaccountx_tab.
      REFRESH t_bapimepoaccountx_tab.
    ENDAT.
  ENDLOOP.
ENDIF.
End of PO Amendment****************
Regrads,
Suganya Jayabalan