我正在与您共享代码：

循环到it_tab进入wa_tab。
通话功能'CONVERSION_EXIT_ALPHA_INPUT'
导出
输入= wa_tab-kunnr
导入
输出= wa_tab-kunnr。

通话功能 'CONVERSION_EXIT_ALPHA_INPUT'
导出
输入= wa_tab-lifnr
导入
输出= wa_tab-lifnr。




* --------- -提取客户主记录--------------- **
从kna1选择单个*
进入lx_kna1
的对应字段，其中kunnr = wa_tab-kunnr。
* -------------客户合作伙伴函数--------------- *
SELECT * FROM knvp INTO TABLE lt_knvp
WHERE kunnr = wa_tab-kunnr。

按kunnr vkorg排序lt_knvp。
从lt_knvp中删除相邻的副本，比较kunnr vkorg。

通过parza DEKENDP排序SOlt lt_knvp。<_>读取表（读取表） ）索引1.
如果sy-subrc = 0.
ld_parza = wa_knvp-parza + 1.
ELSE。
ld_parza = 0.
ENDIF。
SORT lt_knvp BY kunnr。
* ---围绕knvp填写员工记录------------- -*
将lt_knvp循环到ls_knvp，其中kunnr = wa_tab-kunnr。
如果LS_KNVP-LIFNR = WA_TAB-LIFNR。
CONCATENATE wa_tab-lifnr'已分配给'wa_tab-kunnrs 。
附加wa_message到it_message。
清除：wa_message。
ELSE。
清除wa_xknvp。
wa_xknvp-kunnr = wa_tab-kunnr。
wa_xknvp-vkorg = ls_。 br> wa_xknvp-vtweg = ls_knvp-vtweg。
wa_xknvp-spart = ls_knvp-spart。
wa_xknvp-parvw = wa_tab-hier。
wa_xknvp-parza = ld_par。 lifnr。
APPEND wa_xknvp到lt_xknvp。
清除：wa_xknvp。
ENDIF。

通话功能'SD_CUSTOMER_MAINTAIN_ALL'
导出
i_kna1 = l__kna1更新 '
pi_postflag ='X'
* i_maintain_address_by_kna1 ='X'
导入
e_kunnr = ld_kunnr
o_kna1 = lx_ikna1
e_sd_cust_1321_done = ld_done
t TABLES
EXCEPTIONS
client_error = 1
kna1_incomplete = 2
knb1_incomplete = 3
knb5_incom plete = 4
knvv_incomplete = 5
kunnr_not_unique = 6
sales_area_not_unique = 7
sales_area_not_valid = 8
insert_update_conflict = 9
number_assignment_error = 10
number_not_in_range = 11
12
number_range_not_intern = 13
account_group_not_valid = 14
parnr_invalid = 15
bank_address_invalid = 16
tax_data_not_valid = 17
no_authority = 18
company_code_not_unique = 19
dunning_data_not_valid = 20 br> knb1_reference_invalid = 21
cam_error = 22
其他=23。
如果sy-subrc EQ0。
*提交工作并等待。
回滚工作。
消息ID sy- msgid类型sy-msgty编号sy-msgno
与sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4。
否则。
提交并等待。
ENDIF。