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

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