CRM Ibase Component Warranty Details....Very Very Urgent

Question

I have created a component in an ibase using the fm CRM_ICSS_CREATE_COMPONENT and added the warranty details using the fm CRM_IBCWTY_IL_API_CREATE. Now i need to update the counter and Qualification Requirement in the component relationships.
Can anyone help me in this.
It is very urgent....
Edited by: Bharath Srinivas on Apr 17, 2008 5:20 PM
Edited by: Bharath Srinivas on Apr 17, 2008 5:43 PM

Answer 1

Here you go :-
Use method ENLARGE_COMPONENT_DATA.
Create warranty link
DATA: it_interlinkage_to_create TYPE crmt_il_ibcwty_maint_ext_tab,
is_interlinkage_to_create TYPE crmt_il_ibcwty_maint_ext,
lv_object_guid TYPE comt_product_guid,
lv_object_reference TYPE crmt_il_wty_reference,
ls_prwty TYPE crmm_prwty,
ls_product_id TYPE comt_product_id,
ls_warranty_guid TYPE comt_product_guid.
ls_product_id = 'STD_WAR_1Y'. "Default warranty product
SELECT SINGLE product_guid FROM comm_product INTO ls_warranty_guid
WHERE product_id = ls_product_id.
is_interlinkage_to_create-warranty_guid = ls_warranty_guid.
is_interlinkage_to_create-start_date = ls_comp_det3-valfr.
is_interlinkage_to_create-end_date = ls_comp_det3-valto .
is_interlinkage_to_create-determine_dates = 'X'.
INSERT is_interlinkage_to_create INTO TABLE it_interlinkage_to_create.
lv_object_reference = '02'.
LOOP AT it_ibap_struc1_tab INTO is_ibap_struc1_tab.
lv_object_guid = is_ibap_struc1_tab-guid_compc.
ENDLOOP.
DATA: it_messages TYPE comt_il_error_tab,
it_interlinkage TYPE crmt_il_data_ibcwty_tab.
CALL FUNCTION 'CRM_IBCWTY_IL_API_CREATE'
EXPORTING
iv_object_guid = lv_object_guid
iv_object_reference = lv_object_reference
iv_timestamp = l_timestamp
iv_enqmode = 'E'
iv_raise_exception = 'X'
iv_save = 'X'
it_interlinkage_to_create = it_interlinkage_to_create
IMPORTING
et_messages = it_messages
et_interlinkage = it_interlinkage
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.