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是从图像中检测物体位置的方法,严格来讲不属于三维计算机视觉.但是这种方法却又非常非常 ...
随机推荐
- yarn rest api未授权漏洞
项目集群之前在yarn8088的web资源管理页面上看到一堆莫名的定时任务,就是黑客利用漏洞挖矿,最后禁用了8088端口. freebuff传送门: https://www.freebuf.com/v ...
- Spring Cloud微服务安全实战_3-3_API安全之流控
这几篇将API安全的 流控.认证.审计.授权 简单的过一遍,对这些概念先有个初步印象.后边还会详细讲解. 本篇说API安全之流控~第一印象. 一.概念 流控,流量控制,只放系统能处理的请求的数量过去, ...
- 使用uwsgi部署项目？
方式1: 这种方式虽然比较方便,但是启动操作比较繁琐,每次都不能关闭窗口 安装uwsgi:pip3 install uwsgi 上传项目,部署web app 创建数据库,同步数据 运行django项目 ...
- Stuts 文件上传
Stuts 文件上传 三种上传方案 1.上传到tomcat服务器 上传图片的存放位置与tomcat服务器的耦合度太高 2.上传到指定文件目录,添加服务器与真实目录的映射 ...
- javascript中的作用域和变量提升
js的运行主要分两个阶段:js的预解析和运行,预解析阶段所有的变量声明和函数定义都会提前,但是变量的赋值不会提前.
- db服务器参数优化
1.swap分区 swap作用是在系统内存不够的情况下,当做临时的内存使用. swap是在硬盘上,性能肯定没有再内存好,当系统内存使用超过40%的时候, swap会可能被使用,而系统一旦使用swap会 ...
- java web开发入门三（Hibernate）基于intellig idea
Hibernate 1.开发流程 项目配置好后的结构: 1.下载源码: 版本:hibernate-distribution-3.6.0.Final 2.引入hibernate需要的开发包(3.6版本) ...
- 安装OpenIMSCore的SIP测试客户端 utcimsclient
环境 Ubuntu16.04,Vmvare12(win10). 下载 & 解压 //utcimsclient 下载地址 : https://liquidtelecom.dl.sourcefor ...
- 深度学习 NI-DL 框架
NI-DL 应用框架:图像分类,目标检测,分割提取. 底层:TensorFlow,Keras,Cuda,C/C++ 上层:C#.NET Winform [图像分类] 识别一张图片是否为某个类型的物体/ ...
- Android开发遇到的一些小问题
1.文件下载时,默认只能用https,怎么用http协议: 在Manifest.xml文件中增加一个配置项: android:usesCleartextTraffic="true" ...