URGENT: Update euipment to IBASE?

Question

Hi,
Can anyone tell me how to update the equipment to ibase?
is there any function module for this?

Answer 1

Hi Cady,
now back to square...
please look at the code below and let me know wht more needs to be done...
METHOD if_ex_crm_equi_load~perform_load.
  DATA: i_s_struc TYPE crmt_iloa_mess,
        i_t_struc TYPE crmt_equi_dmbdoc,
        g_sort    TYPE smo3eqfnr,
        g_guid    TYPE crmt_object_guid,
        g_object_id TYPE crmt_object_id_db.
*Internal tables
  DATA : l_thdr_guid   TYPE crmt_object_guid_tab       ,
         l_treq_obj    TYPE crmt_object_name_tab       .
  DATA : l_i_tpartner    TYPE crmt_partner_external_wrkt ,
         l_i_tapp        TYPE crmt_appointment_wrkt      ,
         l_i_torderadm_i TYPE crmt_orderadm_i_wrkt       ,
         l_i_torderadm_h TYPE crmt_orderadm_h_wrkt       ,
         l_i_tpricing    TYPE crmt_pricing_wrkt          ,
         l_i_tordprp_objl  TYPE crmt_ordprp_objl_i_d_wrkt,
          i_s_ordprp_objl  TYPE crmt_ordprp_objl_i_d_wrk  ,
          i_s_orderadm_i   TYPE crmt_orderadm_i_wrk       ,
         l_i_tproduct    TYPE crmt_product_i_wrkt        ,
         l_i_tpricing_i  TYPE crmt_pricing_i_wrkt        ,
         l_i_tschedlin   TYPE crmt_schedlin_wrkt         .
*Work Area
  DATA : l_shdr_guid   TYPE crmt_object_guid          ,
         l_sreq_obj    TYPE crmt_object_name          ,
         i_s_ibase     TYPE ibap_dat1,
         i_t_equi      TYPE crmt_equi_mess_t,
         i_s_equi      TYPE crmt_equi_mess,
         i_s_object    TYPE comt_product_maintain_api,
         i_t_index     TYPE ibequiindx,
         i_s_index     TYPE ibequichild,
         i_t_error     TYPE smw_errtab.
  break sunilch.
do 3 times.
    i_t_struc = it_equi_dmbdoc.
    LOOP AT i_t_struc-iloa INTO i_s_struc.
      g_sort = i_s_struc-eqfnr.
      g_object_id = g_sort.
      EXIT.
    ENDLOOP.
if there is value in sort field
get this as SO and use it to get the IBASE
    CALL FUNCTION 'CONVERSION_EXIT_ALPHA_INPUT'
      EXPORTING
        input  = g_object_id
      IMPORTING
        output = g_object_id.
get the guid of the sales order
    CALL FUNCTION 'CRM_HEADER_OBJ_ID_GET_GUID'
      EXPORTING
        iv_obj_id      = g_object_id
      IMPORTING
        ev_guid        = g_guid
      EXCEPTIONS
        error_occurred = 1
        OTHERS         = 2.
    IF sy-subrc <> 0.
MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
        WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
    ENDIF.
    l_shdr_guid = g_guid.
    INSERT l_shdr_guid INTO TABLE l_thdr_guid.
*Fill requested objects
    l_sreq_obj = 'ORDERADM_H'.
    INSERT l_sreq_obj INTO TABLE l_treq_obj.
    l_sreq_obj = 'ORDPRP_I'.
    INSERT l_sreq_obj INTO TABLE l_treq_obj.
    l_sreq_obj = 'ORDERADM_I'.
    INSERT l_sreq_obj INTO TABLE l_treq_obj.
*Call FM
    CALL FUNCTION 'CRM_ORDER_READ'
      EXPORTING
        it_header_guid       = l_thdr_guid
        it_requested_objects = l_treq_obj
      IMPORTING
        et_orderadm_h        = l_i_torderadm_h
        et_ordprp_objl_i_d   = l_i_tordprp_objl
        et_orderadm_i        = l_i_torderadm_i
      EXCEPTIONS
        document_not_found   = 1
        error_occurred       = 2
        document_locked      = 3
        no_change_authority  = 4
        no_display_authority = 5
        no_change_allowed    = 6
        OTHERS               = 7.
    IF sy-subrc = 0.
Read the Serial Numebr for the item
      READ TABLE l_i_torderadm_i INTO i_s_orderadm_i
                        WITH KEY header = g_guid.
      IF sy-subrc = 0.
        READ TABLE l_i_tordprp_objl INTO i_s_ordprp_objl
                          WITH KEY ref_guid = i_s_orderadm_i-guid.
        IF sy-subrc = 0.
          i_s_ibase-ibase = i_s_ordprp_objl-ibase_header.
          i_s_ibase-guid_comp = i_s_ordprp_objl-ibase_header_guid.
        ENDIF.
      ENDIF.
try updating the ibase with equipment.
      IF NOT i_s_ibase IS INITIAL.
        LOOP AT i_t_struc-equi INTO i_s_equi.
i_t_equi = i_t_struc-EQUI.
   CALL FUNCTION 'CONVERSION_EXIT_ALPHA_OUTPUT'
       EXPORTING
         input  = i_s_equi-equnr
       IMPORTING
         output = i_s_equi-equnr.
     CALL FUNCTION 'CONVERSION_EXIT_PRID1_INPUT'
       EXPORTING
         input        = i_s_equi-equnr
       IMPORTING
         output       = i_s_object-com_product-product_id
       EXCEPTIONS
         lenght_error = 1
         OTHERS       = 2.
         i_s_object-com_product-product_id = i_s_equi-equnr.
          i_s_index-father = i_s_ibase-ibase.
          i_s_index-cHILD = i_s_equi-equnr.
          i_s_index-ibase = i_s_ibase-ibase.
          i_s_index-guid_comp = i_s_ibase-guid_comp.
          APPEND i_s_index TO i_t_index.
          EXIT.
        ENDLOOP.
*READ TABLE  i_t_equi INTO i_s_equi index 1.
        i_s_object-com_product-object_family = '0401'.
        i_s_object-com_product-product_type = '01'.
        i_s_object-update_type               = 'I'.
populate the changing parameter i_t_index
        CALL FUNCTION 'CRM_UPDATE_IBASE_FROM_EQUI'
          EXPORTING
            is_equipment      = i_s_equi
            is_equi_dmbdoc    = it_equi_dmbdoc
            is_object         = i_s_object
          CHANGING
            ct_equi_index     = i_t_index
            ct_error_segments = i_t_error
          EXCEPTIONS
            update_error      = 1
            OTHERS            = 2.
        IF sy-subrc <> 0.
MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
        WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
        ENDIF.
      ENDIF. " if not ibase is initial
    ENDIF.
ENDDO.
ENDMETHOD.