get bp no from uname (employee)

*"----------------------------------------------------------------------
*"*"Local Interface:
*"  IMPORTING
*"     VALUE(IN_UNAME) TYPE  XUBNAME DEFAULT SY-UNAME
*"  EXPORTING
*"     REFERENCE(PARTNER) TYPE  BU_PARTNER
*"     REFERENCE(COUNTRY) TYPE  AD_COMCTRY
*"     REFERENCE(CHECK) TYPE  CHAR1
*"----------------------------------------------------------------------
  DATA addrnumber TYPE ad_addrnum .

*************************************************************************
  CALL FUNCTION 'CRM_ISA_IUSER_GET_BP_TO_ALIAS'
    EXPORTING
      username         = in_uname
    IMPORTING
      business_partner = partner.

 

  CALL FUNCTION 'BUPA_ADDRESSES_GET'
    EXPORTING
      iv_partner             = partner
    IMPORTING
      ev_standard_addrnumber = addrnumber.

 

  SELECT SINGLE country INTO country
    FROM adrc
    WHERE addrnumber = addrnumber.