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是从图像中检测物体位置的方法,严格来讲不属于三维计算机视觉.但是这种方法却又非常非常 ...
随机推荐
- Gym - 102056C(2018EC final) -Heretical … Möbius ——CRT
题意 给出一个长为200的01序列,判断是否在前1e9个莫比乌斯*值中.(这里的莫比乌斯值加了绝对值) 分析 意到因为4的倍数一定是0,9的倍数一定是0……169的倍数一定是0.那么我们可以对4,9, ...
- hdu5285-wyh2000 and pupil-（染色法二分图判定）
http://acm.hdu.edu.cn/showproblem.php?pid=5285 题意:把互不认识的人分到两个组,第一组人数尽可能多. 题解:把互不认识的人连起来,当作二分图,二分图可能有 ...
- hadoop exit code 退出码含义
原文传送门:http://www.2cto.com/database/201308/236519.html "OS error code 1: Operation not permitted ...
- plv8 centos install steps
install deps yum -y update yum -y install https://download.postgresql.org/pub/repos/yum/reporpms/EL- ...
- LOJ6625 时间复杂度（min_25筛）
本人在LOJ的第三题(前两题太水不好意思说了QwQ),欢迎大家踩std. 题目链接:LOJ 题目大意:定义函数 $f$:($minp$ 表示最小质因子) $$f(x)=\begin{cases}0&a ...
- 请教网友：#pragma pack(push) #pragma pack(pop)无效
//try 一 try #pragma back(push) #pragma pack(2) struct E { char a; short b; double c; float d; char e ...
- js 校验手机号码格式
手机号码格式简单校验 原理:判断手机号是否以已经发行的手机号码段开头,而且判断其余9位是否是数字. 方式一: var phone = $('#phone').val(); var regex = ...
- Linux下的串口编程（转）
https://blog.csdn.net/tigerjibo/article/details/6179291 #include<stdio.h> /*标准输入输出定义*/ #includ ...
- 配置keepalived支持nginx高可用
实验环境 序号 主机名 IP地址 1 nginx1 192.168.204.11 2 nginx2 192.168.204.12 安装nginx 安装nginx yum install -y epel ...
- dockerfile 的问题 FROM alpine:3.8 temporary error (try again later)
FROM alpine:3.8 apk add xxx安装软件 fetch http://dl-cdn.alpinelinux.org/alpine/v3.8/main/x86_64/APKINDEX ...