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

本文链接：https://blog.csdn.net/jiqiong_t/article/details/7676789

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

摘要由CSDN通过智能技术生成

分享一下批创建客户主数据函数：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.