CRM BP函数
REPORT ZCRM_BP_TEST.
"""""""""""""""""""""""""""""""""""""CREATE BP***********************************
DATA:GW_HEAD TYPE BAPIBUS1006_HEAD,
GW_DATA TYPE BAPIBUS1006_CENTRAL,
GW_PERSON TYPE BAPIBUS1006_CENTRAL_PERSON,
GW_ORGAN TYPE BAPIBUS1006_CENTRAL_ORGAN,
GW_GROUP TYPE BAPIBUS1006_CENTRAL_GROUP,
GW_ADDR TYPE BAPIBUS1006_ADDRESS,
GT_ADTEL TYPE TABLE OF BAPIADTEL,
GW_ADTEL LIKE LINE OF GT_ADTEL,
GT_ADSMTP TYPE TABLE OF BAPIADSMTP,
GW_ADSMTP LIKE LINE OF GT_ADSMTP,
GT_RETURN TYPE TABLE OF BAPIRET2,
GW_RETURN LIKE LINE OF GT_RETURN,
GV_PARTNER TYPE BU_PARTNER. "person
GW_HEAD-PARTN_CAT = ''.
GW_HEAD-PARTN_GRP = 'Z021'. GW_PERSON-FIRSTNAME = 'FIRSTNAME'.
GW_PERSON-LASTNAME = 'LASTNAME'.
GW_PERSON-SEX = ''." ''Unknown,1 Female,2 Male GW_ADDR-STANDARDADDRESS = 'X'.
GW_ADDR-CITY = '滁州'.
GW_ADDR-DISTRICT = '定远'.
GW_ADDR-POSTL_COD1 = ''.
GW_ADDR-STREET = '严桥'.
GW_ADDR-STR_SUPPL1 = '官东'.
GW_ADDR-COUNTRY = 'CN'.
GW_ADDR-REGION = ''. GW_ADTEL-COUNTRY = 'CN'.
GW_ADTEL-STD_NO = 'X'.
GW_ADTEL-TELEPHONE = ''.
GW_ADTEL-R_3_USER = ''."1 Landline Telephones,3 Mobile Telephone
APPEND GW_ADTEL TO GT_ADTEL.
GW_ADTEL-COUNTRY = 'CN'.
GW_ADTEL-STD_NO = 'X'.
GW_ADTEL-TELEPHONE = ''.
GW_ADTEL-EXTENSION = ''.
GW_ADTEL-R_3_USER = ''."1 Landline Telephones,3 Mobile Telephone
APPEND GW_ADTEL TO GT_ADTEL. GW_ADSMTP-STD_NO = 'X'.
GW_ADSMTP-E_MAIL = 'WWWLIYUANANHUI@126.COM'.
APPEND GW_ADSMTP TO GT_ADSMTP. "创建BP
*CALL FUNCTION 'BUPA_CREATE_FROM_DATA'
* EXPORTING
** IV_PARTNER =
** IV_PARTNER_GUID =
* IV_CATEGORY = GW_HEAD-PARTN_CAT "BU_TYPE 1 = Person,2 = Organization ,3= Group
* IV_GROUP = GW_HEAD-PARTN_GRP
* IS_DATA = GW_DATA
* IS_DATA_PERSON = GW_PERSON
** IS_DATA_ORGAN =
** IS_DATA_GROUP =
* IS_ADDRESS = GW_ADDR
** IV_TESTRUN = ' '
** IV_DUPLICATE_MESSAGE_TYPE =
** IV_ACCEPT_ERROR = ' '
** IV_X_SAVE = 'X'
** IV_CONSIDER_CONSNUMBER_FOR_INS = ' '
** IV_CHECK_ADDRESS = 'X'
* IMPORTING
* EV_PARTNER = GV_PARTNER
** EV_PARTNER_GUID =
** EV_ADDRNUMBER =
** EV_ADDRGUID =
* TABLES
* IT_ADTEL = GT_ADTEL
** IT_ADFAX =
** IT_ADTTX =
** IT_ADTLX =
* IT_ADSMTP = GT_ADSMTP
** IT_ADRML =
** IT_ADX400 =
** IT_ADRFC =
** IT_ADPRT =
** IT_ADSSF =
** IT_ADURI =
** IT_ADPAG =
** IT_ADREM =
** IT_ADCOMREM =
** IT_ADCOMUSE =
** IT_ADTEL_ADDR_IND =
** IT_ADFAX_ADDR_IND =
** IT_ADTTX_ADDR_IND =
** IT_ADTLX_ADDR_IND =
** IT_ADSMTP_ADDR_IND =
** IT_ADRML_ADDR_IND =
** IT_ADX400_ADDR_IND =
** IT_ADRFC_ADDR_IND =
** IT_ADPRT_ADDR_IND =
** IT_ADSSF_ADDR_IND =
** IT_ADURI_ADDR_IND =
** IT_ADPAG_ADDR_IND =
** IT_ADCOMREM_ADDR_IND =
** IT_ADCOMUSE_ADDR_IND =
* ET_RETURN = GT_RETURN
** ET_ADDR_DUPLICATES =
* .
*READ TABLE GT_RETURN INTO GW_RETURN WITH KEY TYPE = 'E'.
*IF SY-SUBRC = 0.
* CALL FUNCTION 'BAPI_TRANSACTION_ROLLBACK'.
* WRITE GW_RETURN-MESSAGE.
*ELSE.
* CALL FUNCTION 'BAPI_TRANSACTION_COMMIT'
* EXPORTING
* WAIT = 'X'.
* WRITE GV_PARTNER.
*ENDIF.
"***************************ASSIGN ROLE TO BP
REFRESH:GT_RETURN.
GV_PARTNER = ''.
*CALL FUNCTION 'BUPA_ROLE_ADD_2'
* EXPORTING
* IV_PARTNER = GV_PARTNER
** IV_PARTNER_GUID =
** IV_PARTNERROLECATEGORY =
** IV_X_ALL_PARTNERROLES =
* IV_PARTNERROLE = 'CRM000'
** IV_DIFFTYPEVALUE =
** IV_VALIDFROM =
** IV_VALIDTO = '99991231'
** IV_X_SAVE = 'X'
** IV_CREATE_CP =
* TABLES
* ET_RETURN = GT_RETURN.
*READ TABLE GT_RETURN INTO GW_RETURN WITH KEY TYPE = 'E'.
*IF SY-SUBRC = 0.
* CALL FUNCTION 'BAPI_TRANSACTION_ROLLBACK'.
* WRITE GW_RETURN-MESSAGE.
*ELSE.
* CALL FUNCTION 'BAPI_TRANSACTION_COMMIT'
* EXPORTING
* WAIT = 'X'.
* WRITE GV_PARTNER.
*ENDIF.
"""""""""""""""""""""""""""""""ADD ID
*DATA:GW_IDENTIFICATION TYPE BAPIBUS1006_IDENTIFICATION.
*GW_IDENTIFICATION-IDINSTITUTE = '定远县公安局'.
*GW_IDENTIFICATION-IDENTRYDATE = '20160101'.
*GW_IDENTIFICATION-IDVALIDFROMDATE = '20160101'.
*GW_IDENTIFICATION-IDVALIDTODATE = '20260101'.
*GW_IDENTIFICATION-COUNTRY = 'CN'.
*GW_IDENTIFICATION-REGION = '110'.
*CALL FUNCTION 'BUPA_IDENTIFICATION_ADD'
* EXPORTING
* IV_PARTNER = GV_PARTNER
** IV_PARTNER_GUID =
** IV_IDENTIFICATIONCATEGORY = 'FS0001' "ID
* IV_IDENTIFICATIONNUMBER = '3411251991XXXXXXXX'
* IS_IDENTIFICATION = GW_IDENTIFICATION
** IV_X_SAVE = 'X'
* IV_IDENTIFICATIONTYPE = 'FS0001'
* TABLES
* ET_RETURN = GT_RETURN.
*READ TABLE GT_RETURN INTO GW_RETURN WITH KEY TYPE = 'E'.
*IF SY-SUBRC = 0.
* CALL FUNCTION 'BAPI_TRANSACTION_ROLLBACK'.
* WRITE GW_RETURN-MESSAGE.
*ELSE.
* CALL FUNCTION 'BAPI_TRANSACTION_COMMIT'
* EXPORTING
* WAIT = 'X'.
* WRITE GV_PARTNER.
*ENDIF. DATA:GT_DAT TYPE TABLE OF BUS_TB071_KEY,
GW_DAT LIKE LINE OF GT_DAT,
GV_GUID TYPE BU_PARTNER_GUID,
GV_ERROR TYPE CHAR01.
SELECT SINGLE PARTNER_GUID INTO GV_GUID FROM BUT000 WHERE PARTNER = GV_PARTNER.
GW_DAT-TAX_CTY = 'CN'.
*GW_DAT-TAX_REG = '110'.
GW_DAT-TAX_TYPE = 'MWST'.
GW_DAT-TAX_GROUP = 'FULL'.
APPEND GW_DAT TO GT_DAT.
CALL FUNCTION 'BUTX_FRG0010_CREATE'
EXPORTING
IV_PARTNER_GUID = GV_GUID
* IV_X_SAVE = 'X'
IMPORTING
ET_RETURN = GT_RETURN
EV_ERROR = GV_ERROR
TABLES
IT_DATA = GT_DAT.
READ TABLE GT_RETURN INTO GW_RETURN WITH KEY TYPE = 'E'.
IF SY-SUBRC = .
CALL FUNCTION 'BAPI_TRANSACTION_ROLLBACK'.
WRITE GW_RETURN-MESSAGE.
ELSE.
CALL FUNCTION 'BAPI_TRANSACTION_COMMIT'
EXPORTING
WAIT = 'X'.
WRITE GV_PARTNER.
ENDIF.
修改地址相关信息：
BAPI_BUPA_ADDRESS_CHANGE
BUBA_4包
CRM BP函数的更多相关文章
- CRM BP SEARCH 优化
出于方便的目的,这边将BU_GROUP,SALE_ORG加到了BP搜索里面,因为CRM项目推广了很多国家,每个国家一个SALE ORG,而标准的BP HEADER ADV SEARCH里竟然没有BU_ ...
- FG函数模块
ALDB: ABAP/4上的逻辑数据库 选择屏幕的修改更新 BUBA_4: ...
- Dynamics CRM 在报表中获取当前登陆用户的guid
<span style="font-size:18px;">CRM提供函数,只需在报表中调用即可.</span> <pre class="s ...
- Django的一些操作与视图函数
一 . Django的安装 pip install django==1.14.6 # 后面的数字是django的版本 二 . 通过命令行(cmd)来创建Django项目 1. 切换到保存项目的文件夹 ...
- Django之crm
crm注册 crm注册Form from django import forms from crm import models from django.core.exceptions import V ...
- 认识WinDbg
WinDbg学习笔记(一)--认识WinDbg 一.前言 本人学习WinDbg已经有好几天了,虽说技术掌握的还不太熟练,不过也总算是入门了在学习WinDbg的过程中,觉得WinDbg真的比Oll ...
- 三维计算机视觉 —— 中层次视觉 —— RCNN Family
RCNN是从图像中检测物体位置的方法,严格来讲不属于三维计算机视觉.但是这种方法却又非常非常重要,对三维物体的检测非常有启发,所以在这里做个总结. 1.RCNN - the original idea ...
- Unreal Engine 4 反射机制的实现
转自:http://blog.csdn.net/noahzuo/article/details/51482255 反射机制 反射机制指的是程序可以在运行期间进行检测和修改自己状态的能力. UE4引擎使 ...
- PCL —— RCNN Family 中层次点云处理
博客转载自:http://www.cnblogs.com/ironstark/p/6046411.html RCNN是从图像中检测物体位置的方法,严格来讲不属于三维计算机视觉.但是这种方法却又非常非常 ...
随机推荐
- JavaScript计算时间前一天跟后一天
1.获取当前时 //写在HTML <button onclick="goBefore()">前一天</button> <button onclick= ...
- MYSQL：基于哈希的索引和基于树的索引有什么区别？
B+树是一个平衡的多叉树.B+树从根节点到叶子节点的搜索效率基本相当,不会出现大幅波动. 哈希索引采用一定的哈希算法,把键值换成新的哈希值,检索时不需要类似B+树那样从根节点逐级查找,只需一次哈希算法 ...
- 回溯法 | 图的m着色问题
学习链接:算法 图的M着色问题 虽然今早9点才醒来,10点才来教室,但是coding得很高效.吃个早餐,拉个粑粑的时间,就把算法书上的[图的m着色]问题看明白了,大脑里也形成了解决问题的框架. 其实这 ...
- day 14
Sow an act, and you reap a habit. Sow a habit, and you reap a character. Sow a character, and you re ...
- awesome-RecSys
https://github.com/jihoo-kim/awesome-RecSys?fbclid=IwAR1m6OebmqO9mfLV1ta4OTihQc9Phw8WNS4zdr5IeT1X1OL ...
- 2017年计算语义相似度最新论文，击败了siamese lstm，非监督学习
Page 1Published as a conference paper at ICLR 2017AS IMPLE BUT T OUGH - TO -B EAT B ASELINE FOR S EN ...
- Android实时打印内核log
由于访问的是/proc/kmsg,因此需要先获取root权限: adb root adb shell "while true; do cat; sleep 1; done < /pro ...
- 剑指阿里P6，25岁小伙怒斩三面，喜提offer（Java研发岗）
本文提供者:洎扰の庸人 微信公众号:慕容千语的架构笔记.欢迎关注一起进步. 进阿里一直都是身为程序员的我,最初的梦想,经过去年面试蚂蚁金服失败的挫折后,今年再次鼓起勇气投简历,经过一位前辈的内推省了很 ...
- 62 网络编程（三）——UDP编程
UDP编程标准步骤 服务器端 使用DatagramSocket创建服务端:DatagramSocket server = new DatagramSocket(port);//参数为自定义端口号 准备 ...
- TJOI2018简要题解
Day1T1数学计算 按照时间轴建一棵线段树即可,复杂度为\(O(m \log m)\) #include <bits/stdc++.h> #define N 100005 #define ...