*"----------------------------------------------------------------------
*"*"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.
阅读(679) | 评论(0) | 转发(1) |