供应商主数据导入和更新，BDC中没有email地址字段，只能使用函数，以下为相关资料：
加锁：
http://help.sap.com/saphelp_nw70/helpdata/EN/12/ad79815c5811d3b4ea006094192fe3/content.htm
http://www.sapnet.ru/viewtopic.php?p=202
http://help.sap.com/saphelp_sm32/helpdata/en/e9/9fd7cc7f0eeb4d823b9f1d8fb9f0b4/content.htm
示例函数：
FUNCTION zr000mm_vendor_email_update.
*"----------------------------------------------------------------------
*"*"Local interface:
*" IMPORTING
*" REFERENCE(IV_LIFNR) TYPE LIFNR
*" REFERENCE(IV_EMAIL) TYPE AD_SMTPADR OPTIONAL
*" EXPORTING
*" REFERENCE(EV_RETURN) TYPE C
*" EXCEPTIONS
*" ERROR_NO_VENDOR
*"----------------------------------------------------------------------
* added by zhumk @ 20110913
* email地址不能通过BDC更新，所以开发本函数进行更新
CONSTANTS: cns_table_type TYPE ad_tabtype VALUE 'ADSMTP'.
DATA: lv_address_number TYPE adr6-addrnumber.
DATA:lt_adsmtp TYPE adsmtp OCCURS 0 ,
ls_adsmtp TYPE adsmtp,
lt_aduse TYPE adsuse OCCURS 0 ,
ls_aduse TYPE adsuse.
FIELD-SYMBOLS:<fs_adsmtp> TYPE adsmtp,
<fs_aduse> TYPE adsuse.
**********************************************************************
* 检查供应商是否存在
SELECT SINGLE adrnr
INTO lv_address_number
FROM lfa1
WHERE lifnr = iv_lifnr.
IF sy-subrc NE 0.
ev_return = 'E'.
RAISE error_no_vendor.
ENDIF.
**********************************************************************
* 加锁
DO 5 TIMES.
CALL FUNCTION 'ENQUEUE_EXLFA1'
EXPORTING
* MODE_LFA1 = 'E'
* MANDT = SY-MANDT
lifnr = iv_lifnr
* X_LIFNR = ' '
* _SCOPE = '2'
* _WAIT = ' '
* _COLLECT = ' '
EXCEPTIONS
foreign_lock = 1
system_failure = 2
OTHERS = 3
.
IF sy-subrc <> 0.
* MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
* WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
WAIT UP TO 1 SECONDS.
ev_return = 'E'.
ELSE.
CLEAR ev_return.
EXIT. "exit do
ENDIF.
ENDDO.
IF ev_return EQ 'E'.
RETURN.
ENDIF.
**********************************************************************
* 读取已有的email
CALL FUNCTION 'ADDR_COMM_GET'
EXPORTING
* ADDRESS_HANDLE = ' '
address_number = lv_address_number
* DATE_FROM = '00010101'
* LANGUAGE = SY-LANGU
table_type = cns_table_type
* IV_CURRENT_STATE = 'X'
* IMPORTING
* RETURNCODE =
TABLES
comm_table = lt_adsmtp
* ERROR_TABLE =
et_usage = lt_aduse
EXCEPTIONS
parameter_error = 1
address_not_exist = 2
internal_error = 3
OTHERS = 4
.
IF sy-subrc <> 0.
* MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
* WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
ENDIF.
**********************************************************************
* 准备新的email地址
IF lt_adsmtp[] IS NOT INITIAL.
READ TABLE lt_adsmtp ASSIGNING <fs_adsmtp> INDEX 1.
<fs_adsmtp>-smtp_addr = iv_email.
<fs_adsmtp>-smtp_srch = iv_email(20).
TRANSLATE <fs_adsmtp>-smtp_srch TO UPPER CASE.
<fs_adsmtp>-updateflag = 'U'.
ELSE.
CLEAR ls_adsmtp.
ls_adsmtp-consnumber = 001.
ls_adsmtp-flgdefault = 'X'.
ls_adsmtp-home_flag = 'X'.
ls_adsmtp-smtp_addr = iv_email.
ls_adsmtp-smtp_srch = iv_email(20).
TRANSLATE ls_adsmtp-smtp_srch TO UPPER CASE.
ls_adsmtp-updateflag = 'I'.
APPEND ls_adsmtp TO lt_adsmtp.
ENDIF.
IF lt_aduse[] IS NOT INITIAL.
LOOP AT lt_aduse ASSIGNING <fs_aduse>.
<fs_aduse>-updateflag = 'U'.
ENDLOOP.
ELSE.
CLEAR ls_aduse.
ls_aduse-consnumber = '001'.
ls_aduse-comm_usage = 'AD_DEFAULT'. "AD_HOME
ls_aduse-def_usage = 'X'.
ls_aduse-updateflag = 'I'.
APPEND ls_aduse TO lt_aduse.
CLEAR ls_aduse.
ls_aduse-consnumber = '001'.
ls_aduse-comm_usage = 'AD_HOME'.
ls_aduse-def_usage = 'X'.
ls_aduse-updateflag = 'I'.
APPEND ls_aduse TO lt_aduse.
ENDIF.
DATA: lv_returncode TYPE szad_field-returncode,
lt_error_table TYPE addr_error OCCURS 0,
ls_error_table TYPE addr_error.
CALL FUNCTION 'ADDR_COMM_MAINTAIN'
EXPORTING
* ADDRESS_HANDLE = ' '
address_number = lv_address_number
* DATE_FROM = '00010101'
* LANGUAGE = SY-LANGU
table_type = cns_table_type
* SUBSTITUTE_ALL_COMM_DATA = ' '
* ACCEPT_TELNR_CALL = ' '
* CONSIDER_CONSNUMBER_FOR_INSERT = ' '
* CHECK_ADDRESS = 'X'
* IV_TIME_DEPENDENCE = ' '
IMPORTING
returncode = lv_returncode
TABLES
comm_table = lt_adsmtp
error_table = lt_error_table
* COMM_TABLE_OUT =
it_usage = lt_aduse
* ET_USAGE_OUT =
EXCEPTIONS
parameter_error = 1
address_not_exist = 2
internal_error = 3
OTHERS = 4
.
IF sy-subrc <> 0.
* MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
* WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
ev_return = 'E'.
RETURN.
ELSE.
CALL FUNCTION 'ADDR_SINGLE_SAVE'
EXPORTING
address_number = lv_address_number
* PERSON_NUMBER = ' '
* ADDRESS_TYPE = 1
* EXECUTE_IN_UPDATE_TASK = ' '
EXCEPTIONS
address_not_exist = 1
person_not_exist = 2
address_number_missing = 3
reference_missing = 4
internal_error = 5
database_error = 6
parameter_error = 7
OTHERS = 8
.
IF sy-subrc <> 0.
* MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
* WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
ev_return = 'E'.
ROLLBACK WORK.
ELSE.
ev_return = 'S'.
COMMIT WORK.
ENDIF.
ENDIF.
**********************************************************************
*解锁
CALL FUNCTION 'DEQUEUE_EXLFA1'
EXPORTING
* MODE_LFA1 = 'E'
* MANDT = SY-MANDT
lifnr = iv_lifnr
* X_LIFNR = ' '
* _SCOPE = '3'
* _SYNCHRON = ' '
* _COLLECT = ' '
.
ENDFUNCTION.
