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是从图像中检测物体位置的方法,严格来讲不属于三维计算机视觉.但是这种方法却又非常非常 ...
随机推荐
- Scrapy笔记（1）- 入门篇
Scrapy笔记01- 入门篇 Scrapy是一个为了爬取网站数据,提取结构性数据而编写的应用框架.可以应用在包括数据挖掘, 信息处理或存储历史数据等一系列的程序中.其最初是为了页面抓取(更确切来说, ...
- Kinect一代学习（一）：开发环境搭建
https://blog.csdn.net/hongbin_xu/article/details/80722749 我用的是kinect一代(Xbox 360)的所以选择了v1.x的SDK,如果是ki ...
- Windbg的快捷键
窗口切换 可以使用以下键盘快捷方式窗口之间进行切换. 项 效果 CTRL+TAB 调试信息窗口之间切换. 通过重复使用此密钥,你可以扫描通过的所有窗口,而不考虑是否浮动. 停靠本身,或选项卡式停靠窗口 ...
- notapad++正则替换
1.替换小数点后一位 XP_001663106.2XP_001662510.3XP_001655249.2XP_001655248.1NP_001165739.1 \.[0-9]或者\.\d #第一个 ...
- 【数位DP】【P4127】[AHOI2009]同类分布
Description 给出两个数 \(a,~b\) 求出 \([a~,b]\) 中各位数字之和能整除原数的数的个数. Limitations \(1 \leq a,~b \leq 10^{18}\) ...
- 【CF848B】 Rooter's Song
题目链接 \(solution\) 类似于蚂蚁那道题的做法 弹性碰撞相当于交换位置并继续前进,考虑一个起点\((x,0)\),时间为\(t\)出发的\(dancer\),相当于从\((x,-t)\)的 ...
- [TJOI2009]猜数字（洛谷 3868）
题目描述 现有两组数字,每组k个,第一组中的数字分别为:a1,a2,...,ak表示,第二组中的数字分别用b1,b2,...,bk表示.其中第二组中的数字是两两互素的.求最小的非负整数n,满足对于任意 ...
- JS中 (function(){...})()立即执行函数
(function(){...})() (function(){...}()) 这是两种js立即执行函数的常见写法. 基本概念: 函数声明:function fname(){...}; 使用funct ...
- 第3课 auto类型推导（2）
第3课 auto类型推导(2) 一.使用auto的优势 (一)避免使用未初始化变量 (二)可简化变量/对象类型的声明 (三) 在某些场合无法判断出类型时,可用auto自动推导(如lambda表达式) ...
- Python【每日一问】30
问: [基础题]:一个足球队在寻找年龄在10岁到12岁的小女孩(包括10岁和12岁)加入.编写一个程序,询问用户的性别(m表示男性,f表示女性)和年龄,然后显示一条消息指出这个人是否可以加入球队,询问 ...