Quantcast
Channel: SCN: Message List - ABAP Connectivity
Viewing all articles
Browse latest Browse all 3125

Re: Deletion OF schedule LInes from APO SPP(Spare Parts Planning) through ABAP.

$
0
0

Hi Mukesh,

                DAO class has to be used accordingly as per your need

 

DAta: ob_dao_ds             TYPE REF TO /sapapo/cl_tdl_lc_ds_dao.

 

DATA: zlwa_init_tab LIKE LINE OF zit_init_tab.

     CREATE OBJECT zob_dao_ds .

* Create selection parameter

     zlwa_init_tab-param = 'ATP_CAT'.

     zlwa_init_tab-value = 'BE'.

     APPEND zlwa_init_tab TO zit_init_tab.

     CLEAR zlwa_init_tab.

 

     zlwa_init_tab-param = 'LC_ORDER_TYPE'.

     zlwa_init_tab-value = '16'.

     APPEND zlwa_init_tab TO zit_init_tab.

     CLEAR zlwa_init_tab.

 

     zlwa_init_tab-param = 'USE_SIMSESSION'.

     zlwa_init_tab-value = '-'.

     APPEND zlwa_init_tab TO zit_init_tab.

     CLEAR zlwa_init_tab.

 

     zlwa_init_tab-param = 'VERSION_ID'.

     zlwa_init_tab-value = '000'.

     APPEND zlwa_init_tab TO zit_init_tab.

     CLEAR zlwa_init_tab.

     TRY.

         CALL METHOD zob_dao_ds->/scmb/if_tdl_dao_general~init

           EXPORTING

             it_init_paramtab = zit_init_tab.

       CATCH /scmb/cx_tdl_dao INTO z_dao.

 

     ENDTRY.


*& set the original DS to Buffer before deleting.

           CALL METHOD ob_dao_ds->/scmb/if_tdl_deliveryschedule~set

             EXPORTING

               iv_vrsioid = sim_vrsioid

               it_order   = it_sl_ds_orig

             CHANGING

               ct_return  = lit_rettab.

           CALL METHOD ob_dao_ds->/scmb/if_tdl_deliveryschedule~delete

             EXPORTING

               iv_vrsioid = sim_vrsioid

               it_ordid   = it_del_ordid

             CHANGING

               ct_return  = lit_rettab.



TRY.

         CALL METHOD ob_dao_ds->/scmb/if_tdl_dao_general~save_to_db

           CHANGING

             ct_return = zit_rettab.

       CATCH /scmb/cx_tdl_dao .

       ROLLBACK WORK

     ENDTRY.

TRY.

         CALL METHOD zob_dao_ds->/scmb/if_tdl_dao_general~free.

       CATCH /scmb/cx_tdl_dao

 

ROLLBACK WORK

     ENDTRY.

Thanks,

Salim



Viewing all articles
Browse latest Browse all 3125

Trending Articles