ABAP-创建客户

最新推荐文章于 2024-04-09 11:51:35 发布
最新推荐文章于 2024-04-09 11:51:35 发布
阅读量652 收藏
点赞数
原文链接：http://www.cnblogs.com/rainysblog/p/6616813.html
版权

  CALL METHOD CMD_EI_API=>MAINTAIN_BAPI

 

FUNCTION Z_CS_RFC_OA002 .
*"----------------------------------------------------------------------
*"*"本地接口：
*"  EXPORTING
*"     VALUE(EX_TYPE) TYPE  CHAR1
*"     VALUE(EX_MSG) TYPE  STRING
*"     VALUE(EX_VALUE) TYPE  KUNNR
*"  TABLES
*"      IN_DATA STRUCTURE  ZSCS_002
*"----------------------------------------------------------------------
  DATA:G_LIN TYPE STRING.
  DATA:LV_FLG.
  DATA:G_PARNR TYPE PARNR..

  DATA:LS_MAIN       TYPE CMDS_EI_MAIN,
       LS_MAIN1      TYPE CMDS_EI_MAIN,
       LS_MAIN2      TYPE CMDS_EI_MAIN,
       LS_MESG       TYPE CVIS_MESSAGE,
       LS_MESG1      TYPE CVIS_MESSAGE,
       LT_MSG        TYPE BAPIRET2_T,
       LWA_MSG       TYPE BAPIRET2,
       LT_CUST       TYPE CMDS_EI_EXTERN_T,
       LWA_CUST      TYPE CMDS_EI_EXTERN,
       LWA_SALE      TYPE CMDS_EI_SALES,
       LT_SALE       TYPE CMDS_EI_SALES_T,
       LT_FUNCTIONS  TYPE CMDS_EI_FUNCTIONS_T,
       LWA_FUNCTIONS TYPE CMDS_EI_FUNCTIONS,
       LT_COMPANY    TYPE CMDS_EI_COMPANY_T,
       LT_TEXT       TYPE CVIS_EI_TEXT_T,
       LWA_TEXT      TYPE CVIS_EI_TEXT,
       LT_CONTENT    TYPE TLINE_TAB,
       LWA_CONTENT   TYPE TLINE,
       LWA_TAX       TYPE CMDS_EI_TAX_IND,
       LT_TAX        TYPE CMDS_EI_TAX_IND_T,
       LT_REMARK     TYPE CVIS_EI_REM_T,
       LWA_REMARK    TYPE CVIS_EI_REM,
       LT_TEL        TYPE CVIS_EI_TLX_T,
       LWA_TEL       TYPE CVIS_EI_TLX_STR,
       LT_FAX        TYPE CVIS_EI_FAX_T,
       LWA_FAX       TYPE CVIS_EI_FAX_STR,
       LT_MAIL       TYPE CVIS_EI_SMTP_T,
       LWA_MAIL      TYPE CVIS_EI_SMTP_STR,
       LT_TEL01      TYPE CVIS_EI_TTX_T,
       LWA_TEL01     TYPE CVIS_EI_TTX_STR,
       LT_CONTACT    TYPE CMDS_EI_CONTACTS_T,
       LWA_CONTACT   TYPE CMDS_EI_CONTACTS,
       LT_VERSION    TYPE CVI_EI_VERSION_TYPE1_T,
       LWA_VERSION   TYPE CVI_EI_VERSION_TYPE1,
       LT_PHONE      TYPE CVIS_EI_PHONE_T,
       LWA_PHONE     TYPE CVIS_EI_PHONE_STR,
       LT_PHONE1     TYPE CVIS_EI_PHONE_T,
       LWA_PHONE1    TYPE CVIS_EI_PHONE_STR,
       LWA_COMPANY   TYPE CMDS_EI_COMPANY,
       LT_GET        TYPE CMDS_EI_EXTERN_T,
       LWA_GET       TYPE CMDS_EI_EXTERN.

  CONSTANTS:CON_INSERT TYPE C VALUE 'I',
            CON_UPDATE TYPE C VALUE 'M'.
*&---------------------------------------------------------------

*&S1.检查数据条目数
  G_LIN = LINES( IN_DATA[] ).
  IF G_LIN EQ 0.
    EX_TYPE = 'E'.
    EX_MSG = '没有数据！'.
  ELSEIF G_LIN GT 30.
    EX_TYPE = 'E'.
    EX_MSG = '数据大于30条！'.
  ENDIF.

  CHECK EX_TYPE NE 'E'.

  LOOP AT IN_DATA.
*&S2.1.主数据
    LWA_CUST-HEADER-OBJECT_TASK = 'I'.
    LWA_CUST-CENTRAL_DATA-CENTRAL-DATA-KTOKD = 'Z001'.  "客户帐户组
*&sign
    LWA_CUST-CENTRAL_DATA-CENTRAL-DATAX-KTOKD = 'X'.
*LWA_CUST-CENTRAL_DATA-CENTRAL-DATAX-CIVVE = 'X'.
*&S2.2.地址数据
    LWA_CUST-CENTRAL_DATA-ADDRESS-TASK = 'I'.
    LWA_CUST-CENTRAL_DATA-ADDRESS-POSTAL-DATA-TITLE   = '0003'.        "关键字 '3'公司
    LWA_CUST-CENTRAL_DATA-ADDRESS-POSTAL-DATA-NAME    = '重庆火锅客户'."客户名称
    LWA_CUST-CENTRAL_DATA-ADDRESS-POSTAL-DATA-LANGU   = SY-LANGU.
    LWA_CUST-CENTRAL_DATA-ADDRESS-POSTAL-DATA-COUNTRY = 'CN'.
    LWA_CUST-CENTRAL_DATA-ADDRESS-POSTAL-DATA-STREET  = '重庆渝中区新华路123号'.
*&sign
    LWA_CUST-CENTRAL_DATA-ADDRESS-POSTAL-DATAX-TITLE = 'X'.
    LWA_CUST-CENTRAL_DATA-ADDRESS-POSTAL-DATAX-NAME  = 'X'.
    LWA_CUST-CENTRAL_DATA-ADDRESS-POSTAL-DATAX-LANGU = 'X'.
    LWA_CUST-CENTRAL_DATA-ADDRESS-POSTAL-DATAX-COUNTRY = 'X'.
    LWA_CUST-CENTRAL_DATA-ADDRESS-POSTAL-DATAX-STREET  = 'X'.
*&S2.3电话
    CLEAR:LWA_PHONE.
    REFRESH LT_PHONE.
    LWA_PHONE-CONTACT-TASK = CON_INSERT.
    LWA_PHONE-CONTACT-DATA-TELEPHONE = '18866666666'."电话号码 W_BASIS-TEL.
    LWA_PHONE-CONTACT-DATAX-TELEPHONE = 'X'.
    APPEND LWA_PHONE TO LT_PHONE.
    LWA_CUST-CENTRAL_DATA-ADDRESS-COMMUNICATION-PHONE-PHONE = LT_PHONE.
**S2.4联系人1
*CLEAR:G_PARNR.
*CALL FUNCTION 'NUMBER_GET_NEXT'
*  EXPORTING
*    NR_RANGE_NR             = 'AP'
*    OBJECT                  = 'PARTNER'
*    QUANTITY                = '1'
*  IMPORTING
*    NUMBER                  = G_PARNR
*  EXCEPTIONS
*    INTERVAL_NOT_FOUND      = 1
*    NUMBER_RANGE_NOT_INTERN = 2
*    OBJECT_NOT_FOUND        = 3
*    QUANTITY_IS_0           = 4
*    QUANTITY_IS_NOT_1       = 5
*    INTERVAL_OVERFLOW       = 6
*    BUFFER_OVERFLOW         = 7
*    OTHERS                  = 8.
*LWA_CONTACT-TASK = 'I'.
*LWA_CONTACT-ADDRESS_TYPE_3-TASK = 'I'.
*LWA_CONTACT-DATA_KEY-PARNR = G_PARNR.
*LWA_CONTACT-ADDRESS_TYPE_3-POSTAL-DATA-FIRSTNAME  = 'aa'.
*LWA_CONTACT-ADDRESS_TYPE_3-POSTAL-DATA-LASTNAME   = 'bb'.
*LWA_CONTACT-ADDRESS_TYPE_3-POSTAL-DATAX-FIRSTNAME = 'X'.
*LWA_CONTACT-ADDRESS_TYPE_3-POSTAL-DATAX-LASTNAME  = 'X'.
*LWA_CONTACT-ADDRESS_TYPE_3-COMMUNICATION-PHONE-PHONE = LT_PHONE1.
*APPEND LWA_CONTACT TO LT_CONTACT.
*LWA_CUST-CENTRAL_DATA-CONTACT-CONTACTS = LT_CONTACT.
*&S2.5联系人电话
*lwa_phone1-contact-task = 'I'.
*lwa_phone1-contact-data-telephone = '89999888'.
*lwa_phone1-contact-data-extension = '3434343'.
*lwa_phone1-contact-datax-extension = 'X'.
*lwa_phone1-contact-datax-telephone = 'X'.
*APPEND lwa_phone1 TO lt_phone1.

*&get in_data.
    APPEND LWA_CUST TO LT_CUST.
    LS_MAIN-CUSTOMERS = LT_CUST."客户 (Tab.) 的复杂外部接口
*&S3.Create custmer
    CALL METHOD CMD_EI_API=>MAINTAIN_BAPI
      EXPORTING
*       IV_TEST_RUN              = P_TEST
        IV_COLLECT_MESSAGES      = 'X'
        IS_MASTER_DATA           = LS_MAIN
      IMPORTING
        ES_MASTER_DATA_CORRECT   = LS_MAIN1
        ES_MESSAGE_CORRECT       = LS_MESG1
        ES_MASTER_DATA_DEFECTIVE = LS_MAIN2
        ES_MESSAGE_DEFECTIVE     = LS_MESG.

*&S3.1get message
    LT_MSG = LS_MESG-MESSAGES.
    LT_GET[] = LS_MAIN1-CUSTOMERS.
*&S3.2.get return:
    LOOP AT LT_MSG INTO LWA_MSG WHERE TYPE = 'E' OR TYPE = 'A'.
      EX_TYPE = 'E'.
      EX_MSG  = LWA_MSG-MESSAGE.
    ENDLOOP.
*&S3.3.成功commit work
    IF EX_TYPE NE 'E'.
      COMMIT WORK.
      READ TABLE LT_GET INTO LWA_GET INDEX 1.
*&S3.3Get custmer
      EX_VALUE = LWA_GET-HEADER-OBJECT_INSTANCE-KUNNR.
      IN_DATA-KUNNR = LWA_GET-HEADER-OBJECT_INSTANCE-KUNNR.
      EX_TYPE = 'S'.
      EX_MSG  = '新增客户成功!'.
*&bdc 写联系人
      PERFORM BDC_DYNPRO      USING 'SAPMF02D' '0101'.
      PERFORM BDC_FIELD       USING 'BDC_CURSOR'
                                    'RF02D-D0360'.
      PERFORM BDC_FIELD       USING 'BDC_OKCODE'
                                    '/00'.
      PERFORM BDC_FIELD       USING 'RF02D-KUNNR'
                                    IN_DATA-KUNNR.
      PERFORM BDC_FIELD       USING 'RF02D-D0360'
                                    'X'. "RECORD-D0360_002.
      PERFORM BDC_DYNPRO      USING 'SAPMF02D' '0360'.
      PERFORM BDC_FIELD       USING 'BDC_CURSOR'
                                    'KNVK-TELF1(01)'.
      PERFORM BDC_FIELD       USING 'BDC_OKCODE'
                                    '=ENTR'.
*      PERFORM BDC_FIELD       USING 'KNVK-ANRED(01)'
*                                    RECORD-ANRED_01_003.
*      PERFORM BDC_FIELD       USING 'KNVK-NAMEV(01)'
*                                    RECORD-NAMEV_01_004.
      PERFORM BDC_FIELD       USING 'KNVK-NAME1(01)'
                                    IN_DATA-NAME1."RECORD-NAME1_01_005.
      PERFORM BDC_FIELD       USING 'KNVK-TELF1(01)'
                                    IN_DATA-TELF1."RECORD-TELF1_01_006.
      PERFORM BDC_DYNPRO      USING 'SAPMF02D' '0360'.
      PERFORM BDC_FIELD       USING 'BDC_CURSOR'
                                    'KNVK-ABTNR(01)'.
      PERFORM BDC_FIELD       USING 'BDC_OKCODE'
                                    '=ENTR'.
      PERFORM BDC_FIELD       USING 'KNVK-ABTNR(01)'
                                    '=ENTR'."RECORD-ABTNR_01_007.
      PERFORM BDC_DYNPRO      USING 'SAPMF02D' '0360'.
      PERFORM BDC_FIELD       USING 'BDC_CURSOR'
                                    'KNVK-NAMEV(01)'.
      PERFORM BDC_FIELD       USING 'BDC_OKCODE'
                                    '=UPDA'.
* PERFORM BDC_TRANSACTION USING 'XD02'.
      CALL TRANSACTION 'XD02' USING BDCDATA  MODE 'N' MESSAGES INTO IT_MESSAGE.
      CLEAR BDCDATA.
      WAIT UP TO 1 SECONDS.

      READ TABLE IT_MESSAGE WITH KEY MSGTYP = 'E'.
      IF SY-SUBRC EQ 0.
        EX_TYPE = 'W'.
        EX_MSG  = '供应商联系人信息创建失败！'.
       ENDIF.
*&S3.4.error 则rollback.
    ELSE.
      ROLLBACK WORK.
    ENDIF.

  ENDLOOP.

ENDFUNCTION.

 

转载于:https://www.cnblogs.com/rainysblog/p/6616813.html

anchangong3418
关注
ABAP-WebDynpro实例.pdf
09-22
ABAP-WebDynpro 实例是 SAP 中的一种开发技术，允许开发者创建基于 Web 的应用程序。该技术将 SAP 中开发的程序在 Web 中运行，从而不需要在客户机上安装 SAPGUI。 在本实例中，我们将创建一个 WebDynpro 程序，该...
ABAP-客户主数据创建
qq_37388190的博客
10-27 1656
sap 客户主数据创建
SAP BAPI 客户主数据创建：cmd_ei_api=＞maintain_bapi
weixin_37949164的博客
01-04 1070
SAP BAPI客户主数据创建：cmd_ei_api=>maintain_bapi
SAP cmd_ei_api=＞maintain_bapi 问题
weixin_45420932的博客
02-23 834
customer
ABAP 利用class创建客户/供应商主数据
matinal 當冬夜漸暖 。公众号：matinal
12-15 4050
ABAP 利用class创建客户/供应商主数据
客户/供应商主数据批导
热门推荐
ChampaignWolf的专栏
07-17 1万+
cmd_ei_api=>maintain_bapi和VMD_EI_API
ABAP-语法总结及实例解释.doc
06-05
编辑器允许创建新的或修改现有的程序，并设置程序属性，如标题、执行模式（stand-alone、include、module pool、function group、subroutine pool）、状态（SAP标准生产程序或客户生产程序）等。 总的来说，ABAP是...
ABAP BP创建角色程序示例以及更新信用数据示例(调用方法类).txt
10-20
ABAP BP创建角色程序示例以及更新信用数据示例(调用方法类),以上程序是使用方法类,可参考参数以及类方法后直接调用
SAP初探之ABAP-数据库对象[参照].pdf
10-20
本文主要探讨的是如何在SAP环境中使用ABAP处理数据库对象，包括创建数据库表、数据录入、建立域、数据类型、搜索帮助以及锁对象。 1. **创建数据库表**： - 在SAP ABAP工作台中，通过“开发” -> “ABAP字典”进入...
SAP初探之ABAP-数据库对象
03-14
在ABAP中创建数据库表是一项基础但重要的任务。以下是具体步骤： 1. **进入ABAP工作台**：通过开发 -> ABAP字典进入初始化工作台。 2. **选择数据库表**：在菜单中选择“数据库表”并输入所需创建的表名称。 3. **...
VMD_EI_API=＞MAINTAIN_BAPI 去创建供应商主数据（转载记录）
weixin_44936754的博客
01-29 862
VMD_EI_API=>MAINTAIN_BAPI 去创建供应商主数据
SAP BP主数据维护BAPI CVI_EI_INBOUND_MAIN
DeveloperMrMeng的博客
06-21 3533
近期有创建BP供应商主数据的需求，想起上次写这个批导还是2018年，当时的我面对这个BAPI还是抗拒的，因为算是相对来说比较复杂的一类BAPI了，当时网上各种搜索，缝缝补补，勉强实现了当时的功能，后来再也没碰到过这个批导的需求，直到最近，于是乎想偷懒，再次从网上找一些参考代码拿过来改一改，不过发现搜到的代码都不太能满足我的需求，或多或少都有一些问题，于是静下心来，自己从头开始写了一次调用函数。SAP已不推荐使用，已经成为过时函数，虽然还可以使用，但是风险需要自行承担。SAP推荐使用的函数模块。
SAP SD CMD_EI_API=＞MAINTAIN 创建客户主数据
IamRunjiang的博客
04-09 2579
DATA: IS_MAIN TYPE ZSDT_CUSTOMER. DATA: IS_SALES TYPE ZSDT_SALES. DATA: IT_BUKRS TYPE STANDARD TABLE OF ZSDT_SALES. DATA: IS_BUKRS TYPE ZSDT_SALES. DATA: IS_CONTACT TYPE ZSDT_CONTACT. DATA: GV_KUNNR TYPE KUNNR. DATA: ES_RETUR..
sap客户主数据bapi_客户主数据批导
weixin_36198509的博客
01-03 3068
1 操作介绍前台创建,修改，查看的Tcode分别是XD01，XD02，XD03.与客户主数据相关的操作有创建数据，修改数据和扩充视图。2实现方式有两种方法可以分别实现：2.1调用BAPISD_CUSTOMER_MAINTAIN_ALL2.2使用类CMD_EI_API=>MAINTAIN_BAPI3、示例详解1.13.1、前台界面展示TCODE：XD01。3 实现方法3.1SD_C...
BAPI-创建客户示例代码
星陨阁:wxgnolux
02-21 7046
自开发了一个简单的CRM系统，所有挖据到可能客户都存放在客户池中，有望成交的 客户业务员可以从客户池自动创建成潜在客户.生成简单的客户主数据，以客户ID为主键，从而有效记录与客户的沟通。 " 节选出创建客户部份代码，方便以后查询备用. data: op_kunnr like ZCRME00101-kunnr, is_kna1 type kna1...
SAP 要件定义：创建一个客户组织（BP）
最新发布
晴天的博客分享技术知识
04-09 988
然后【在业务伙伴角色中更改】选择：FLCU00客户（标准财务），然后点击，【通用数据】旁的【首先录入【公司代码】然后回车，下面的【客户：科目管理】会亮起，需要录入：统驭科目，排序码。然后【在业务伙伴角色中更改】选择：FLCU01 客户（销售），然后点击，【通用数据】旁的【在【开票】中下滑菜单找到【会计】，【客户科目分配组】，我选择01：国内收入。进来以后，如果【销售范围】被锁定了，可以点【切换区域】进行修改。同样在【开票】里，【税】的部分，一定要有，我选择1：必须上税。保存后，在【客户】位置生成客户号码。
SAP S4 BP创建、修改客户信息
qq_44034095的博客
06-28 1289
SAP S4 BP对应bapi
ECC：创建供应商vmd_ei_api=＞maintain_bapi
weixin_43734184的博客
09-13 1682
FUNCTION zmd_creat_lifnr. *"---------------------------------------------------------------------- "“局部接口： *” IMPORTING *" VALUE(IT_MD017) TYPE ZPIDT_MD017_BODY_TAB *" EXPORTING *" VALUE(EV_TYPE) TYPE BAPI_MTYPE *" VALUE(EV_MSG) TYPE BAPI_
abap 批量创建销售订单
09-06
在ABAP中，我们可以使用BDC（Batch Data Communication）技术来批量创建销售订单。 批量创建销售订单可以大大提高工作效率，为复杂的销售业务场景提供了便利。下面是一种基本的批量创建销售订单的方法： 1. 准备...
评论
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

当前余额3.43元 前往充值 >
需支付：10.00元
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付元
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明：

1.余额是钱包充值的虚拟货币，按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载，可以购买VIP、付费专栏及课程。

余额充值