SAP ABAP BP 批量维护邮箱地址
前言
业务情况是需要给我们的业务伙伴们发送邮件,所以需要维护各业务伙伴们的邮箱
手工维护效率太低
于是编写程序进行批量维护
示例代码总览
以下为馒头摘取的代码,对特殊部分进行了修改
关键代码处写有详尽注释
DATA: wa_data TYPE cvis_ei_extern,
it_data TYPE cvis_ei_extern_t,
it_return TYPE bapiretm,
wa_return TYPE bapireti.
DATA: wa_partner TYPE bus_ei_extern.
DATA: v_task TYPE vmd_ei_object_task, " I 创建,U 修改,C 现有状态
v_partner TYPE bu_partner,
v_smtp_task TYPE cvi_ei_smtp_task,
v_remarks_task TYPE bus_ei_comrem_task.
DATA: it_smtp TYPE bus_ei_bupa_smtp_t,
wa_smtp TYPE bus_ei_bupa_smtp.
DATA: it_remarks TYPE bus_ei_bupa_comrem_t,
wa_remarks TYPE bus_ei_bupa_comrem.
DATA: it_addresses TYPE bus_ei_bupa_address_t,
wa_address TYPE bus_ei_bupa_address.
v_partner = 'bp number'. " 业务伙伴编号
v_task = 'U'. " 这里为 U 是因为我们默认该BP已经存在,只是更新邮箱
wa_partner-header-object_task = v_task.
v_smtp_task = '2'.
wa_smtp-contact-task = v_smtp_task.
wa_smtp-contact-data-e_mail = 'xxx@xxx'. " 需要维护的 e-mail
wa_smtp-contact-datax-e_mail = 'X'.
v_remarks_task = '2'.
wa_remarks-task = v_remarks_task.
wa_remarks-