Hi I am using below three function modules to fetch IBASE details and
CRM_IBASE_GET_DETAIL
CRM_IBASE_GET_ADDRESS
CRM_IBASE_COMP_GET_PARTNER
CRM_IBASE_COMP_GET_DETAIL
Is there any single function module of IBASE is available to reduce no of function module calls..instead of 4 function modules..?
*** Gets IBase detail
CALL FUNCTION 'CRM_IBASE_GET_DETAIL'
EXPORTING
i_ibase_head = ibase_head
IMPORTING
e_ibib1 = ls_ibase_id
e_ibibt1 = ls_ibase_short_text
e_struc_ibase_tab = lt_ibase_structure[]
EXCEPTIONS
not_specified = 1
doesnt_exist = 2
OTHERS = 3.
IF sy-subrc = 0.
*-Get functional location address
CALL FUNCTION 'CRM_IBASE_GET_ADDRESS'
EXPORTING
i_ibase_head = ibase_head
IMPORTING
e_addr_val = t_address.
IF sy-subrc <> 0.
ENDIF.
LOOP AT lt_ibase_structure INTO ls_ibase_structure.
wa_cont-ibase = ls_ibase_id-ibase.
wa_cont-instance = ls_ibase_structure-instance.
CLEAR: ls_comp , ls_comp_detail.
ls_comp-instance = wa_cont-instance.
ls_comp-ibase = wa_cont-ibase.
REFRESH lt_comp_partners.
CALL FUNCTION 'CRM_IBASE_COMP_GET_PARTNER'
EXPORTING
i_comp = ls_comp
i_direct = 'X'
IMPORTING
e_partner_tab = lt_comp_partners
EXCEPTIONS
not_specified = 1
doesnt_exist = 2
OTHERS = 3.
* if i_aedat is initial.
CALL FUNCTION 'CRM_IBASE_COMP_GET_DETAIL'
EXPORTING
i_comp = ls_comp
IMPORTING
e_comp_det = ls_comp_detail
EXCEPTIONS
not_specified = 1
doesnt_exist = 2
OTHERS = 3.
* else.