Created by Jerry Wang on May 09, 2014

下面这个report可以打印出系统所有满足下列条件的product:

product未被assign到任何的business transaction
product未被assign到任何的IBASE component

REPORT zprod_not_used_anymore.
PARAMETERS: num TYPE i OBLIGATORY DEFAULT 100.
DATA: lv_prod_guid TYPE comm_product-product_guid,lt_item_tab  TYPE STANDARD TABLE OF comm_product-product_guid,lt_ibase_tab LIKE lt_item_tab,lt_product   TYPE STANDARD TABLE OF comm_product.
START-OF-SELECTION.SELECT product_guid product_id object_family FROM comm_product INTO CORRESPONDING FIELDS OF TABLE lt_product.ASSERT lt_product IS NOT INITIAL.SELECT product INTO TABLE lt_item_tab FROM crmd_orderadm_iFOR ALL ENTRIES IN lt_product WHERE product = lt_product-product_guid.SELECT product_guid APPENDING TABLE lt_item_tab FROM crmd_srv_refobjFOR ALL ENTRIES IN lt_product WHERE product_guid = lt_product-product_guid.SELECT warranty APPENDING TABLE lt_item_tab FROM crmd_service_iFOR ALL ENTRIES IN lt_product WHERE warranty = lt_product-product_guid.SORT lt_item_tab.DELETE ADJACENT DUPLICATES FROM lt_item_tab.LOOP AT lt_product ASSIGNING FIELD-SYMBOL(<product>).READ TABLE lt_item_tab WITH KEY table_line = <product>-product_guid TRANSPORTING NO FIELDS.IF sy-subrc = 0.DELETE TABLE lt_product FROM <product>.ENDIF.ENDLOOP.DATA:lv_handle     TYPE ibxx_ref-handle,ls_sel        TYPE ibxx_sel_rec,lt_obj        TYPE ibco1_obj_tab,lo_product     TYPE REF TO CL_IBASE_CRM_PRODUCT,lo_object     TYPE REF TO CL_IBASE_CRM_object,lr_objnr      TYPE RANGE OF ibxx_ref-objnr, "Guid 22 of the objectlr_objnr_line LIKE LINE OF lr_objnr,ls_product TYPE comm_product.lr_objnr_line-sign    = 'I'.lr_objnr_line-option  = 'EQ'.LOOP AT lt_product ASSIGNING FIELD-SYMBOL(<in_ibase>).lr_objnr_line-low = cl_ibase_service=>cl_convert_guid_16_22( <in_ibase>-product_guid ).INSERT lr_objnr_line INTO TABLE ls_sel-s_objnr.ENDLOOP.CALL FUNCTION 'IB_COM_NEW'IMPORTINGe_ibco_handle = lv_handle.CALL FUNCTION 'IB_COM1_READ_INSTANCES_OBJ_TAB'EXPORTINGi_ibco_handle          = lv_handlei_sel_rec              = ls_selCHANGINGe_obj_tab              = lt_objEXCEPTIONSib_handle_not_defined  = 1ib_not_successful      = 2ib_criteria_incomplete = 3OTHERS                 = 4.ASSERT sy-subrc = 0.LOOP AT lt_obj ASSIGNING FIELD-SYMBOL(<obj>).TRY.lo_object = CAST cl_ibase_crm_object( <obj>-object ).ls_product = lo_object->get_product( ).CATCH cx_root.lo_product = CAST cl_ibase_crm_product( <obj>-object ).ls_product = lo_product->get_product( ).ENDTRY.APPEND ls_product-product_guid TO lt_ibase_tab.ENDLOOP.LOOP AT lt_product ASSIGNING FIELD-SYMBOL(<ibase>).READ TABLE lt_ibase_tab WITH KEY table_line = <ibase>-product_guid TRANSPORTING NO FIELDS.IF sy-subrc = 0.DELETE TABLE lt_product FROM <ibase>.ENDIF.ENDLOOP.DO num TIMES.READ TABLE lt_product ASSIGNING FIELD-SYMBOL(<result>) INDEX sy-index.IF sy-subrc = 0.IF <result>-object_family IS INITIAL.WRITE: / 'Product ID: ' , <result>-product_id COLOR COL_NEGATIVE.ELSE.WRITE: / 'Object  ID: ' , <result>-product_id COLOR COL_NEGATIVE.ENDIF.ELSE.RETURN.ENDIF.ENDDO.

打印出系统所有即未被assign到business transaction和IBASE component的product ID列表相关推荐

列出系统所有未被Business transaction 引用的Products集合
Created by Jerry Wang on Jul 25, 2014 需求是给出系统里所有products的列表,这些product尚未被assign到任何business transactio ...
springboot+微信小程序“微印象”在线打印预约系统的设计与实现毕业设计源码061642
摘要随着我国经济迅速发展,人们对手机的需求越来越大,各种手机软件也都在被广泛应用,但是对于手机进行数据信息管理,对于手机的各种软件也是备受用户的喜爱,微印象在线打印预约小程序被用户普遍使用,为方 ...
使用计算机打印文字,Word打印出的文字与电脑上的显示不同怎么办
Word是一款功能强大的文字处理系统,需要熟练地掌握和巧妙使用Word的各种技巧,才能达到事半功倍的效果;但是有时候,Word打印出的文字与电脑上的显示不同,这是怎么回事?下面小编来告诉你吧. Wor ...
3D打印出活体心脏，AI让你体验登月！|技术前沿洞察
硅谷Live /实地探访/ 热点探秘 / 深度探讨大家好,技术前沿洞察又来啦!你们知道吗,3D打印技术可以打出活体心脏啦,我们终于可以实现用眼睛来控制镜头的焦距了,以后无人机可能实现数日飞行,AI能 ...
平时各种常用的快捷键记录+快速打印出某文件夹下的子文件夹分布
目录 1. 实用Windows快捷键 2. cmd快捷键 3. chrome浏览器快捷键使用 4. PyCharm使用快捷键 5. PS快捷键 6. LabelImg快捷键快速打印出某文件夹下的子文 ...
（附源码）springboot“微印象”在线打印预约系统毕业设计 061642
小程序+spring boot微印象在线打印预约系统摘要随着我国经济迅速发展,人们对手机的需求越来越大,各种手机软件也都在被广泛应用,但是对于手机进行数据信息管理,对于手机的各种软件也是备受用 ...
python3 字典打印_Python3基础 dict items 以元组的形式打印出字典的每一个项
Python : 3.7.0 OS : Ubuntu 18.04.1 LTS IDE : PyCharm 2018.2.4 Conda : 4.5.11 typesetting : Markdown ...
Springboot+mysql+微信小程序校园在线打印预约系统-计算机毕业设计源码91740
摘要本文设计了一种基于微信支付的校园在线打印预约系统小程序,系统为人们提供了方便快捷的线上打印服务,包括打印预约.注册登录.打印平台.校园资讯等,用户不仅能够方便快捷在线搜索打印方式.还能进行打印 ...
Springboot校园在线打印预约系统小程序【纯干货分享，附源码91740】
摘要本文设计了一种基于微信支付的校园在线打印预约系统小程序,系统为人们提供了方便快捷的线上打印服务,包括打印预约.注册登录.打印平台.校园资讯等,用户不仅能够方便快捷在线搜索打印方式.还能进行打印 ...

打印出系统所有即未被assign到business transaction和IBASE component的product ID列表

Created by Jerry Wang on May 09, 2014

打印出系统所有即未被assign到business transaction和IBASE component的product ID列表相关推荐

最新文章

热门文章