Want to copy Delivery address of one line item in shopping cart to all item

Question

Hi Experts,
                We are upgrading from SRM 5.0 to SRM 7.0,In SC Creation We want to copy Delivery address of one line item in shopping cart to all line items in Shopping cart by clicking Change All Items button.This is custom button we added this button and we had written code to achieve the functionality but it is not working.This is same like Change All Items button in Account Assigment for copy accont details of one line item to all other line items in SC.
Web Dynpro Component:/SAPSRM/WDC_UI_DO_SHIPTO
Web Dynpro View:V_DODC_SHIPTO
Thanks,
Aarthi.

Answer 1

Hi Prasad,
               Our customer needs that button,they want whenever they are clicking the button delivery address should copy to all line items.
In my action ONCHANGE_ALL_ITEMS i called this method
wd_this->mo_dodm_shipto->zchange_all_items( ).
zchange_all_items( ) is  implemented in class /SAPSRM/CL_CH_WD_DODM_SHIPTO.
the code i wrote inside zchange_all_items( )
*Error
  DATA: LX_PDO_ABORT               TYPE REF TO /SAPSRM/CX_PDO_ABORT,  " Class for Fatal error caught by PDO Layer
        LX_PDO_ERROR               TYPE REF TO /SAPSRM/CX_PDO_ERROR.  " Class for PDO General Exception
Object Instances
  DATA: LO_MSG_CONSUMER            TYPE REF TO /SAPSRM/IF_PDO_MSG_CONSUMER,
        LO_PDO_SHIPTO              TYPE REF TO /SAPSRM/IF_PDO_DO_PARTNER.
Context-Data
  DATA: lte_cll_shipto              TYPE /sapsrm/if_ch_wd_set_facade=>gt_guid_element,
        loe_cll_shipto              TYPE REF TO /sapsrm/if_ch_wd_set_element.
Field Symbols
  FIELD-SYMBOLS <lse_cll_shipto>    LIKE LINE OF lte_cll_shipto.
DATA : lo_pdo_acc TYPE REF TO /sapsrm/if_pdo_do_acct_assgmnt.
  DATA : ls_shipto_cll type /SAPSRM/S_CLL_SHIPTO,
         lt_pdo_partnerdetails      TYPE bbp_pdt_partner,
         ls_pdo_partnerdetails      TYPE bbp_pds_partner,
          LV_GUID          TYPE BBP_GUID,
          lv_item_guid type bbp_guid,
         lv_filled TYPE wdy_boolean.
*exceptions
  DATA : LX_ABORT                  TYPE REF TO /SAPSRM/CX_PDO_ABORT.
*Constants
  CONSTANTS : LC_OBJECT_ID         TYPE CRMT_SUBOBJECT_CATEGORY_DB VALUE 'BUS2121001',
              LC_ADDR_ORIGIN       TYPE /SAPSRM/S_CLL_SHIPTO-ADDR_ORIGIN VALUE 'B'.
  IF LV_FILLED = ABAP_TRUE.
Downcasting to shipto
    LO_PDO_SHIPTO ?= MO_PDO.
insert the clipboard into facade and update and submit update
    me->/sapsrm/if_cll_do_mapper~insert_from_clipboard( io_set_facade = mon_cll_set_facade ).
Add new Accounting entries.
    lte_cll_shipto = mon_cll_set_facade->get_data_elements( ). "get all elements from the context
    LOOP AT  lte_cll_shipto ASSIGNING <lse_cll_shipto>.
      loe_cll_shipto = <lse_cll_shipto>-set_element.
      loe_cll_shipto->get_static_attributes( IMPORTING rv_attributes = ls_shipto_cll ).
Map ui-structure to pdo-structure
      MOVE-CORRESPONDING ls_shipto_cll TO ls_pdo_partnerdetails.
      IF LS_SHIPTO_CLL-PARTNER_FCT =  mv_part_func.
        LS_PDO_PARTNERDETAILS-PARTNER_FCT = ''.
      ELSE.
        LS_PDO_PARTNERDETAILS-PARTNER_FCT = LS_SHIPTO_CLL-PARTNER_FCT.
      ENDIF.
      IF ls_pdo_partnerdetails-del_ind NE 'X'.
        CALL FUNCTION 'GUID_CREATE'
          IMPORTING
            ev_guid_16 = ls_pdo_partnerdetails-p_guid.
       mv_acc_guid_split = ls_pdo_shipto-guid .
        IF mo_scope = 1.
          ls_pdo_partnerdetails-p_guid = mon_cll_set_facade->get_bo_guid( ).
        ELSE.
          ls_pdo_partnerdetails-p_guid = mo_parent_bo_mapper->items_get_lead_selection( ).
        ENDIF.
        APPEND ls_pdo_partnerdetails TO lt_pdo_partnerdetails.
      ENDIF.
      CLEAR : ls_pdo_partnerdetails, ls_shipto_cll.
    ENDLOOP.
Add New items to PDO
    IF NOT lt_pdo_partnerdetails[] IS INITIAL.
      TRY.
          LO_PDO_SHIPTO->update_item_partners( EXPORTING it_partner = lt_pdo_partnerdetails
                                                           iv_item_guid       = lv_item_guid
                                               CHANGING co_message_handler = mo_pdo_message_consumer ).
        CATCH /sapsrm/cx_pdo_abort INTO lx_pdo_abort.
          mo_cll_message_handler->set_abort( io_pdo_abort_exception = lx_pdo_abort ).
        CATCH /sapsrm/cx_pdo_error INTO lx_pdo_error.
          mo_cll_message_handler->add_exception( io_pdo_error_exception = lx_pdo_error ).
      ENDTRY.
Update PDO with the changed data.
      TRY.
          mo_pdo->submit_update( ).
        CATCH /sapsrm/cx_pdo_abort INTO lx_pdo_abort.
          mo_cll_message_handler->set_abort( io_pdo_abort_exception = lx_pdo_abort ).
        CATCH /sapsrm/cx_pdo_error INTO lx_pdo_error.
          mo_cll_message_handler->add_exception( io_pdo_error_exception = lx_pdo_error ).
      ENDTRY.
Fire refresh of DO Mappers registered for refresh since the item table has acc related data.
      mo_parent_bo_mapper->fire_event_refresh( iv_perform_updates = abap_false ).
    ENDIF.
  ENDIF.
Thanks,
Aarthi.