批量创建客户主数据函数SD_CUSTOMER_MAINTAIN_ALL

最新推荐文章于 2025-05-13 16:19:04 发布

jiqiong_t

最新推荐文章于 2025-05-13 16:19:04 发布

阅读量5.3k

点赞数 2

CC 4.0 BY-SA版权

本文链接：https://blog.youkuaiyun.com/jiqiong_t/article/details/7676789

本文介绍了如何利用SAP函数SD_CUSTOMER_MAINTAIN_ALL批量创建客户主数据，包括设置输入参数如KNA1、BAPIADDR1等，并通过示例代码展示详细步骤。在代码中，数据从T_CUSTOMER表中读取，然后调用函数进行创建，处理异常并进行事务处理。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

分享一下批创建客户主数据函数：SD_CUSTOMER_MAINTAIN_ALL

TABLES:T077D,ZCITY,T005S,BNKA,ADRC,KNA1.
DATA: TMP_KTOKD(4) TYPE N,
TMP_REGIO(3) TYPE N.
DATA: CURLINE LIKE SY-TABIX.

**定义调用bapiSD_CUSTOMER_MAINTAIN_ALL创建的输入参数
DATA:I_KNA1 TYPE KNA1,
       I_KNB1 TYPE KNB1,
       I_BAPIADDR1 TYPE BAPIADDR1,
       T_XKNBK LIKE FKNBK OCCURS 0 WITH HEADER LINE,
       T_YKNBK LIKE FKNBK OCCURS 0 WITH HEADER LINE,
       T_XKNVA LIKE FKNVA OCCURS 0 WITH HEADER LINE,
       T_XKNVK LIKE FKNVK OCCURS 0 WITH HEADER LINE,
       E_KUNNR LIKE KNA1-KUNNR,
       O_KNA1 LIKE KNA1,
       E_SD_CUST_1321_DONE TYPE C.

LOOP AT T_CUSTOMER.
**--客户主文件的一般数据
      I_KNA1-KUNNR = T_CUSTOMER-KUNNR.          "0003 0004 0009 人工授码
      I_KNA1-KTOKD = T_CUSTOMER-KTOKD.          "客户帐户组
      I_KNA1-LIFNR = T_CUSTOMER-LIFNR.          "供应商或债权人的帐号
      I_KNA1-VBUND = T_CUSTOMER-VBUND.          "贸易伙伴
      I_KNA1-STCEG = T_CUSTOMER-STCEG.          "纳税登记号
      I_KNA1-RPMKR = T_CUSTOMER-RPMKR.          "地区市场
      IF T_CUSTOMER-KTOKD = '0002'.             "国外客户
         I_KNA1-CIVVE = 'X'.
      ENDIF.
**--地址数据
      I_BAPIADDR1-TITLE = T_CUSTOMER-TITLE.     "标题文本
      I_BAPIADDR1-NAME = T_CUSTOMER-NAME.       "名称 1
      I_BAPIADDR1-NAME_2 = T_CUSTOMER-NAME_2.   "名称 2
      I_BAPIADDR1-SORT1 = T_CUSTOMER-SORT1.     "排序字段
      I_BAPIADDR1-STR_SUPPL1 = T_CUSTOMER-STR_SUPPL1.    "街道2
      I_BAPIADDR1-STREET = T_CUSTOMER-STREET.   "街道名
      I_BAPIADDR1-CITY = T_CUSTOMER-CITY.       "城市
      I_BAPIADDR1-COUNTRY = T_CUSTOMER-COUNTRY. "国家代码
      I_BAPIADDR1-REGION = T_CUSTOMER-REGION.   "地区 (州、省、县)
      I_BAPIADDR1-LANGU = T_CUSTOMER-LANGU.     "语言代码
**--客户主数据 (银行细目)
      T_XKNBK-KUNNR = T_CUSTOMER-KUNNR.         "自动授码0001 0002为空人工先授码0003 0004 0009不为空
      T_XKNBK-BANKS = T_CUSTOMER-BANKS.         "银行国家代码
      T_XKNBK-BANKL = T_CUSTOMER-BANKL.         "银行码
      T_XKNBK-BANKN = T_C