IBASE component deletion_comp delete-程序员宅基地

技术标签: CRM  

Created by Jerry Wang, last modified on Oct 18, 2014

在使用FM CRM_IBASE_COMP_DELETE删除一个IBASE component时(使用下列report 测试),

 

clipboard1

 

 

通过ST05 trace能发现component deletion不包含物理的Database 删除动作,仅仅是把相关的IBASE数据的valid to time stamp设置成deletion时的time stamp。

 

clipboard2

 

 

删除后在tcode IB52里无法再找到component 110059:

 

clipboard3

 

 

只有在tcode IB53里将valid on的时间设置成deletion之前的时间,

 

clipboard4

 

 

才能看到被删除的component 信息:

 

clipboard5

 

 

 

 

PARAMETERS: txt TYPE char40 OBLIGATORY DEFAULT 'description test',

 

            eid TYPE char30 OBLIGATORY DEFAULT 'PROGRAM',

 

            oid TYPE comm_product-product_id OBLIGATORY DEFAULT 'CHILDOB8',

 

            fam TYPE comm_product-object_family OBLIGATORY DEFAULT '0401',

 

            cat TYPE comt_category_id OBLIGATORY DEFAULT 'OBJ_0401'.

 

 

DATA: lt_param        TYPE crmt_name_value_pair_tab,

 

      ls_param        TYPE crmt_name_value_pair,

 

      lr_core         TYPE REF TO cl_crm_bol_core,

 

      ls_object       TYPE comm_product,

 

      lr_root         TYPE REF TO if_bol_entity_col,

 

      ls_comp_det     TYPE ibap_comp2,

 

      ls_comp_det_upd TYPE ibap_comp3,

 

      entity          TYPE REF TO cl_crm_bol_entity.

 

 

CHECK zcl_object_generator=>create_object( iv_id = oid iv_family = fam iv_catid = cat ) = abap_true.

 

 

ls_param-name  = cl_crm_ibase_il_constant=>createparam.

 

ls_param-value = '01'.

 

APPEND ls_param TO lt_param.

 

 

lr_core = cl_crm_bol_core=>get_instance( ).

 

lr_core->load_component_set('IBASE_ONLY').

 

 

CALL METHOD lr_core->root_create

 

  EXPORTING

 

    iv_object_name  = cl_crm_ibase_il_constant=>root_object

 

    iv_create_param = lt_param

 

    iv_number       = 1

 

  RECEIVING

 

    rv_result       = lr_root.

 

 

CHECK lr_root IS BOUND.

 

entity ?= lr_root->get_current( ).

 

 

CHECK entity IS BOUND.

 

IF entity->lock( ) = abap_true.

 

  entity->switch_to_change_mode( ).

 

ENDIF.

 

 

entity->set_property_as_string( iv_attr_name = 'DESCR' iv_value = CONV #( txt ) ).

 

entity->set_property_as_string( iv_attr_name = 'EXTID' iv_value = CONV #( eid ) ).

 

 

lr_core->modify( ).

 

DATA(lv_ibase_id) = entity->get_property_as_string( 'IBASE' ).

 

 

DATA(component) = entity->create_related_entity( 'FirstLevelComponent' ).

 

 

CHECK component IS NOT INITIAL.

 

 

DATA(obj_comp) = component->create_related_entity( 'IBCompObj').

 

 

CHECK obj_comp IS NOT INITIAL.

 

 

obj_comp->set_property_as_string( iv_attr_name = 'OBJECT_ID' iv_value = CONV #( oid ) ).

 

 

SELECT SINGLE * INTO ls_object FROM comm_product WHERE product_id = oid.

 

ASSERT sy-subrc = 0.

 

 

obj_comp->set_property_as_string( iv_attr_name = 'OBJECT_GUID' iv_value = CONV #( ls_object-product_guid ) ).

 

obj_comp->set_property_as_string( iv_attr_name = 'OBJECT_FAMILY' iv_value = CONV #( ls_object-product_guid ) ).

 

obj_comp->set_property_as_string( iv_attr_name = 'DESCR_EXT' iv_value = 'Jerry12345' ).

 

lr_core->modify( ).

 

 

DATA(lo_message_container) = entity->get_message_container( ).

 

CALL METHOD lo_message_container->get_messages

 

  EXPORTING

 

    iv_message_type = if_genil_message_container=>mt_all

 

  IMPORTING

 

    et_messages     = DATA(lt_msg1).

 

LOOP AT lt_msg1 ASSIGNING FIELD-SYMBOL(<msg1>).

 

  WRITE:/ <msg1>-message COLOR COL_NEGATIVE.

 

ENDLOOP.

 

 

CHECK lt_msg1 IS INITIAL.

 

 

DATA(lo_transaction) = lr_core->get_transaction( ).

 

DATA(lv_changed) = lo_transaction->check_save_needed( ).

 

 

CHECK lv_changed EQ abap_true.

 

 

DATA: ls_header    TYPE ibap_head1,

 

      lt_struc_tab TYPE ibap_struc1_tab,

 

      ls_comp      TYPE ibap_dat1.

 

 

ls_header-ibase = lv_ibase_id.

 

CALL FUNCTION 'CRM_IBASE_GET_DETAIL'

 

  EXPORTING

 

    i_ibase_head      = ls_header

 

  IMPORTING

 

    e_struc_ibase_tab = lt_struc_tab

 

  EXCEPTIONS

 

    not_specified     = 1

 

    doesnt_exist      = 2

 

    no_authority      = 3.

 

 

CHECK sy-subrc = 0.

 

 

READ TABLE lt_struc_tab ASSIGNING FIELD-SYMBOL(<line>) INDEX 1.

 

ls_comp-instance = <line>-instance.

 

 

CALL FUNCTION 'CRM_IBASE_COMP_GET_DETAIL'

 

  EXPORTING

 

    i_comp           = ls_comp

 

    i_date           = sy-datlo

 

    i_time           = sy-timlo

 

    iv_do_auth_check = 'X'

 

  IMPORTING

 

    e_comp_det       = ls_comp_det

 

  EXCEPTIONS

 

    not_specified    = 1

 

    doesnt_exist     = 2

 

    no_authority     = 3

 

    OTHERS           = 4.

 

 

MOVE-CORRESPONDING ls_comp_det TO ls_comp_det_upd.

 

ls_comp_det_upd-deviceid    = '1'.

 

ls_comp_det_upd-descr       = '2'.

 

 

CALL FUNCTION 'CRM_IBASE_COMP_CHANGE'

 

  EXPORTING

 

    i_comp              = ls_comp

 

    i_comp_det          = ls_comp_det_upd

 

  EXCEPTIONS

 

    data_not_consistent = 1

 

    ibase_locked        = 2

 

    not_succesful       = 3

 

    no_authority        = 4

 

    OTHERS              = 5.

 

ASSERT sy-subrc = 0.

 

 

DATA(lv_success) = lo_transaction->save( ).

 

 

DATA(lo_glb_msg_cont) = lr_core->get_global_message_cont( ).

 

CALL METHOD lo_glb_msg_cont->if_genil_message_container~get_messages

 

  EXPORTING

 

    iv_message_type = if_genil_message_container=>mt_all

 

  IMPORTING

 

    et_messages     = DATA(lt_msg).

 

LOOP AT lt_msg ASSIGNING FIELD-SYMBOL(<msg>).

 

  WRITE:/ <msg>-message.

 

ENDLOOP.

 

 

IF lv_success = abap_true.

 

  lo_transaction->commit( ).

 

  WRITE:/ 'IBASE Created Successfully: ', lv_ibase_id COLOR COL_NEGATIVE.

 

ELSE.

 

  lo_transaction->rollback( ).

 

ENDIF.

 

 

 

CALL FUNCTION 'CRM_IBASE_COMP_DELETE'

 

  EXPORTING

 

    i_comp              = ls_comp

 

  EXCEPTIONS

 

    data_not_consistent = 1

 

    ibase_locked        = 2

 

    not_succesful       = 3

 

    no_authority        = 4.

 

 

ASSERT sy-subrc = 0.

 

 

CALL FUNCTION 'CRM_IBASE_SAVE'.

 

 

COMMIT WORK AND WAIT.

 

 

CALL FUNCTION 'CRM_IBASE_COMP_GET_DETAIL'

 

  EXPORTING

 

    i_comp           = ls_comp

 

    i_date           = sy-datlo

 

    i_time           = sy-timlo

 

    iv_do_auth_check = 'X'

 

  IMPORTING

 

    e_comp_det       = ls_comp_det

 

  EXCEPTIONS

 

    not_specified    = 1

 

    doesnt_exist     = 2

 

    no_authority     = 3

 

    OTHERS           = 4.

 

 

IF sy-subrc = 2.

 

  WRITE: / 'Component does not exist:' , ls_comp-instance COLOR COL_NEGATIVE.

 

ELSE.

 

  WRITE: / 'Detail returned:' , ls_comp_det-instance COLOR COL_POSITIVE.

 

ENDIF.

 

版权声明:本文为博主原创文章,遵循 CC 4.0 BY-SA 版权协议,转载请附上原文出处链接和本声明。
本文链接:https://blog.csdn.net/i042416/article/details/95861774

智能推荐

攻防世界_难度8_happy_puzzle_攻防世界困难模式攻略图文-程序员宅基地

文章浏览阅读645次。这个肯定是末尾的IDAT了,因为IDAT必须要满了才会开始一下个IDAT,这个明显就是末尾的IDAT了。,对应下面的create_head()代码。,对应下面的create_tail()代码。不要考虑爆破,我已经试了一下,太多情况了。题目来源:UNCTF。_攻防世界困难模式攻略图文

达梦数据库的导出(备份)、导入_达梦数据库导入导出-程序员宅基地

文章浏览阅读2.9k次,点赞3次,收藏10次。偶尔会用到,记录、分享。1. 数据库导出1.1 切换到dmdba用户su - dmdba1.2 进入达梦数据库安装路径的bin目录,执行导库操作  导出语句:./dexp cwy_init/[email protected]:5236 file=cwy_init.dmp log=cwy_init_exp.log 注释:   cwy_init/init_123..._达梦数据库导入导出

js引入kindeditor富文本编辑器的使用_kindeditor.js-程序员宅基地

文章浏览阅读1.9k次。1. 在官网上下载KindEditor文件,可以删掉不需要要到的jsp,asp,asp.net和php文件夹。接着把文件夹放到项目文件目录下。2. 修改html文件,在页面引入js文件:<script type="text/javascript" src="./kindeditor/kindeditor-all.js"></script><script type="text/javascript" src="./kindeditor/lang/zh-CN.js"_kindeditor.js

STM32学习过程记录11——基于STM32G431CBU6硬件SPI+DMA的高效WS2812B控制方法-程序员宅基地

文章浏览阅读2.3k次,点赞6次,收藏14次。SPI的详情简介不必赘述。假设我们通过SPI发送0xAA,我们的数据线就会变为10101010,通过修改不同的内容,即可修改SPI中0和1的持续时间。比如0xF0即为前半周期为高电平,后半周期为低电平的状态。在SPI的通信模式中,CPHA配置会影响该实验,下图展示了不同采样位置的SPI时序图[1]。CPOL = 0,CPHA = 1:CLK空闲状态 = 低电平,数据在下降沿采样,并在上升沿移出CPOL = 0,CPHA = 0:CLK空闲状态 = 低电平,数据在上升沿采样,并在下降沿移出。_stm32g431cbu6

计算机网络-数据链路层_接收方收到链路层数据后,使用crc检验后,余数为0,说明链路层的传输时可靠传输-程序员宅基地

文章浏览阅读1.2k次,点赞2次,收藏8次。数据链路层习题自测问题1.数据链路(即逻辑链路)与链路(即物理链路)有何区别?“电路接通了”与”数据链路接通了”的区别何在?2.数据链路层中的链路控制包括哪些功能?试讨论数据链路层做成可靠的链路层有哪些优点和缺点。3.网络适配器的作用是什么?网络适配器工作在哪一层?4.数据链路层的三个基本问题(帧定界、透明传输和差错检测)为什么都必须加以解决?5.如果在数据链路层不进行帧定界,会发生什么问题?6.PPP协议的主要特点是什么?为什么PPP不使用帧的编号?PPP适用于什么情况?为什么PPP协议不_接收方收到链路层数据后,使用crc检验后,余数为0,说明链路层的传输时可靠传输

软件测试工程师移民加拿大_无证移民,未受过软件工程师的教育(第1部分)-程序员宅基地

文章浏览阅读587次。软件测试工程师移民加拿大 无证移民,未受过软件工程师的教育(第1部分) (Undocumented Immigrant With No Education to Software Engineer(Part 1))Before I start, I want you to please bear with me on the way I write, I have very little gen...

随便推点

Thinkpad X250 secure boot failed 启动失败问题解决_安装完系统提示secureboot failure-程序员宅基地

文章浏览阅读304次。Thinkpad X250笔记本电脑,装的是FreeBSD,进入BIOS修改虚拟化配置(其后可能是误设置了安全开机),保存退出后系统无法启动,显示:secure boot failed ,把自己惊出一身冷汗,因为这台笔记本刚好还没开始做备份.....根据错误提示,到bios里面去找相关配置,在Security里面找到了Secure Boot选项,发现果然被设置为Enabled,将其修改为Disabled ,再开机,终于正常启动了。_安装完系统提示secureboot failure

C++如何做字符串分割(5种方法)_c++ 字符串分割-程序员宅基地

文章浏览阅读10w+次,点赞93次,收藏352次。1、用strtok函数进行字符串分割原型: char *strtok(char *str, const char *delim);功能:分解字符串为一组字符串。参数说明:str为要分解的字符串,delim为分隔符字符串。返回值:从str开头开始的一个个被分割的串。当没有被分割的串时则返回NULL。其它:strtok函数线程不安全,可以使用strtok_r替代。示例://借助strtok实现split#include <string.h>#include <stdio.h&_c++ 字符串分割

2013第四届蓝桥杯 C/C++本科A组 真题答案解析_2013年第四届c a组蓝桥杯省赛真题解答-程序员宅基地

文章浏览阅读2.3k次。1 .高斯日记 大数学家高斯有个好习惯:无论如何都要记日记。他的日记有个与众不同的地方,他从不注明年月日,而是用一个整数代替,比如:4210后来人们知道,那个整数就是日期,它表示那一天是高斯出生后的第几天。这或许也是个好习惯,它时时刻刻提醒着主人:日子又过去一天,还有多少时光可以用于浪费呢?高斯出生于:1777年4月30日。在高斯发现的一个重要定理的日记_2013年第四届c a组蓝桥杯省赛真题解答

基于供需算法优化的核极限学习机(KELM)分类算法-程序员宅基地

文章浏览阅读851次,点赞17次,收藏22次。摘要:本文利用供需算法对核极限学习机(KELM)进行优化,并用于分类。

metasploitable2渗透测试_metasploitable2怎么进入-程序员宅基地

文章浏览阅读1.1k次。一、系统弱密码登录1、在kali上执行命令行telnet 192.168.26.1292、Login和password都输入msfadmin3、登录成功,进入系统4、测试如下:二、MySQL弱密码登录:1、在kali上执行mysql –h 192.168.26.129 –u root2、登录成功,进入MySQL系统3、测试效果:三、PostgreSQL弱密码登录1、在Kali上执行psql -h 192.168.26.129 –U post..._metasploitable2怎么进入

Python学习之路:从入门到精通的指南_python人工智能开发从入门到精通pdf-程序员宅基地

文章浏览阅读257次。本文将为初学者提供Python学习的详细指南,从Python的历史、基础语法和数据类型到面向对象编程、模块和库的使用。通过本文,您将能够掌握Python编程的核心概念,为今后的编程学习和实践打下坚实基础。_python人工智能开发从入门到精通pdf