Created by Jerry Wang, last modified on Sep 16, 2014

使用report 打印hierarchy:

*&---------------------------------------------------------------------*

*& Report ZIBASE_READ_STRUCTURE

*&---------------------------------------------------------------------*

REPORT zibase_read_structure_03.

PARAMETERS: id TYPE ibib-ibase OBLIGATORY DEFAULT '112448'.

START-OF-SELECTION.

DATA: ls_header TYPE ibap_head1,

lt_struc_tab TYPE ibap_struc1_tab,

ls_line LIKE LINE OF lt_struc_tab,

ls_comp TYPE ibap_dat1,

ls_comp_detail TYPE ibap_comp2.

ls_header-ibase = id.

PERFORM handle_ibase USING ls_header-ibase.

FORM print_object_str USING iv_ibase_id TYPE ibib-ibase.

* source - object guid target: ibase guid

DATA: ls_link TYPE COMM_IL_PRDIB,

lv_id TYPE comm_product-product_id.

SELECT SINGLE * INTO CORRESPONDING FIELDS OF ls_link FROM COMM_IL_PRDIB AS A INNER JOIN ibib AS B ON

A~destinguid = B~ib_guid_16 WHERE B~ibase = iv_ibase_id.

CHECK sy-subrc = 0.

SELECT SINGLE product_id FROM comm_product INTO lv_id WHERE product_guid = ls_link-sourceguid.

CHECK sy-subrc = 0.

WRITE: / 'Object ID: ', lv_id COLOR COL_HEADING.

ENDFORM.

FORM get_obj_struc USING iv_obj_guid TYPE comm_product-product_guid.

" try to find object structure IBASE id

" source obj_guid destination ibase guid

DATA:

lv_id TYPE ibib-ibase.

SELECT SINGLE ibase INTO lv_id FROM ibib AS A INNER JOIN COMM_IL_PRDIB AS B ON

A~ib_guid_16 = B~destinguid WHERE B~sourceguid = iv_obj_guid.

CHECK sy-subrc = 0.

PERFORM handle_ibase USING lv_id.

ENDFORM.

FORM handle_obj_component USING iv_ibase_id TYPE ibib_ibase.

WRITE: / 'IBASE ID: ', iv_ibase_id COLOR COL_POSITIVE.

ls_header-ibase = iv_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.

ASSERT sy-subrc = 0.

LOOP AT lt_struc_tab INTO ls_line.

WRITE: / 'Component ID: ' , ls_line-instance COLOR COL_NEGATIVE.

ls_comp-ibase = iv_ibase_id.

ls_comp-instance = ls_line-instance.

CALL FUNCTION 'CRM_IBASE_COMP_GET_DETAIL'

EXPORTING

i_comp = ls_comp

IMPORTING

e_comp_det = ls_comp_detail

EXCEPTIONS

not_specified = 1

doesnt_exist = 2

no_authority = 3.

WRITE: / 'Component Description:' , ls_comp_detail-descr COLOR COL_POSITIVE,

'Object ID: ', ls_comp_detail-object_id COLOR COL_GROUP.

WRITE: / 'Component guid: ' , ls_comp_detail-guid_comp COLOR COL_KEY,

'component guidc: ' , ls_comp_detail-guid_compc COLOR COL_HEADING.

PERFORM get_obj_struc USING ls_comp_detail-object_guid.

ENDLOOP.

ENDFORM.

FORM handle_ibase USING iv_ibase_id TYPE ibib-ibase.

PERFORM print_object_str USING iv_ibase_id.

PERFORM handle_obj_component USING iv_ibase_id.

ENDFORM.

使用report 打印category 03的IBASE hierarchy相关推荐

如何查看header object和category 03的IBASE的relationship关系
Created by Jerry Wang, last modified on Oct 23, 2014 IBASE 113009, category为03 ( object structure ) ...
打印系统里所有Category为03的IBASE及其关联的object ID
Created by Jerry Wang, last modified on Sep 04, 2014 如果需要找出系统里所有category为03的IBASE及其关联的object ID, 可以r ...
Why IBASE category 03 is filtered out in creation
Created by Jerry Wang, last modified on Sep 06, 2015 创建IBASE时,发现category 03没有出现在列表中: debug发现数据源来自lt_ ...
使用SAT研究IBASE hierarchy读取性能
Created by Jerry Wang on Mar 06, 2014 1. transaction code SAT,创建一个新的variant例如ZJERRY, 确保Aggregation为N ...
IBASE category 03 parent relationship remove
Created by Jerry Wang, last modified on Sep 08, 2014 ERP内有三个拥有层级关系的equipment: 现将D2和D3的parent - child ...
IBASE category 03 download
Created by Jerry Wang, last modified on Sep 18, 2014
IBASE hierarchy structure and related API
Created by Jerry Wang, last modified on Apr 11, 2014 IBASE 13835包含了一个first level component: componen ...
crystal report 打印卡片从VB迁移到java
SAP的文档的搜索 httpresponse写入文件 pdf转图片图片的 dataUrl web打印插件的选择利用web打印插件无预览打印
【Springboot系列】如何去除CONDITIONS EVALUATION REPORT打印
在SpringBoot项目启动中如果出现如下提示: ============================ CONDITIONS EVALUATION REPORT ================ ...

使用report 打印category 03的IBASE hierarchy

Created by Jerry Wang, last modified on Sep 16, 2014

使用report 打印category 03的IBASE hierarchy相关推荐

最新文章

热门文章