Created by Jerry Wang on Jul 17, 2015

如下report能够返回指定user 所管理的employee 明细

REPORT zappointment_share_calendar.
DATA: gr_employee_class TYPE REF TO cl_crm_employee_srv_impl,lt_filter         TYPE /iwbep/t_mgw_select_option,ls_filter         LIKE LINE OF lt_filter,ls_options        LIKE LINE OF ls_filter-select_options,er_entityset      TYPE REF TO data,er_bp             TYPE REF TO crmt_bp_odata_employee_t,lt_headers        TYPE tihttpnvp,ls_header         LIKE LINE OF lt_headers,lv_start           TYPE i,lv_end            TYPE i,lo_context        TYPE REF TO TD_SADL_GW_REQUEST_ENTSET."/iwbep/cl_mgw_request.
FIELD-SYMBOLS: <data> TYPE crmt_bp_odata_employee_t.
GET RUN TIME FIELD lv_start.
sy-uname = 'WANGJER'.
ls_filter-property = 'IsMyEmployee'.
ls_options-low = 'X'.
ls_options-option = 'EQ'.
ls_options-sign = 'I'.
APPEND ls_options TO ls_filter-select_options.
APPEND ls_filter TO lt_filter.
CREATE OBJECT gr_employee_class.
CREATE OBJECT lo_context." EXPORTING"   it_headers = lt_headers.
CALL METHOD gr_employee_class->/iwbep/if_mgw_appl_srv_runtime~get_entitysetEXPORTINGiv_entity_name           = 'Employee'iv_entity_set_name       = 'EmployeeCollection'iv_source_name           = 'Employee'it_filter_select_options = lt_filteriv_filter_string         = `( IsMyEmployee eq 'X' )`io_tech_request_context  = lo_contextIMPORTINGer_entityset             = er_entityset.
ASSIGN er_entityset->* TO <data>.
GET RUN TIME FIELD lv_end.
lv_end = lv_end - lv_start.
WRITE: / 'Employee got:' , lines( <data> ), 'Time consumed: ' , lv_end.

下面的report是打印当前系统所有类型为developer的user所管理的employee信息，并打印出每个user取employee信息的消耗时间：

REPORT ZAPPOINTMENT_SHARE_CALENDAR1.
DATA: lt_usr02 TYPE STANDARD TABLE OF usr02,lt_table TYPE string_table.
SELECT bname INTO TABLE lt_table FROM usr02 where class = 'DEVELOPER'.
zcl_crm_employee_mgnt_tool=>get_assigned_employees_by_tab( lt_table ).
class ZCL_CRM_EMPLOYEE_MGNT_TOOL definitionpublicfinalcreate publicfor testing .
public section.class-methods GET_ASSIGNED_EMPLOYEESimporting!IV_NAME type SYUNAMEreturningvalue(RT_EMPLOYEE) type CRMT_BP_ODATA_EMPLOYEE_T .class-methods GET_ASSIGNED_EMPLOYEES_BY_TABimporting!IT_USER type STRING_TABLE .
protected section.
private section.
ENDCLASS.
CLASS ZCL_CRM_EMPLOYEE_MGNT_TOOL IMPLEMENTATION.
* <SIGNATURE>---------------------------------------------------------------------------------------+
* | Static Public Method ZCL_CRM_EMPLOYEE_MGNT_TOOL=>GET_ASSIGNED_EMPLOYEES
* +-------------------------------------------------------------------------------------------------+
* | [--->] IV_NAME                        TYPE        SYUNAME
* | [<-()] RT_EMPLOYEE                    TYPE        CRMT_BP_ODATA_EMPLOYEE_T
* +--------------------------------------------------------------------------------------</SIGNATURE>METHOD get_assigned_employees.DATA: gr_employee_class TYPE REF TO cl_crm_employee_srv_impl,lt_filter         TYPE /iwbep/t_mgw_select_option,ls_filter         LIKE LINE OF lt_filter,ls_options        LIKE LINE OF ls_filter-select_options,er_entityset      TYPE REF TO data,er_bp             TYPE REF TO crmt_bp_odata_employee_t,lt_headers        TYPE tihttpnvp,ls_header         LIKE LINE OF lt_headers,lo_context        TYPE REF TO td_sadl_gw_request_entset. "/iwbep/cl_mgw_request.FIELD-SYMBOLS: <data> TYPE crmt_bp_odata_employee_t.sy-uname = iv_name.ls_filter-property = 'IsMyEmployee'.ls_options-low = 'X'.ls_options-option = 'EQ'.ls_options-sign = 'I'.APPEND ls_options TO ls_filter-select_options.APPEND ls_filter TO lt_filter.CREATE OBJECT gr_employee_class.CREATE OBJECT lo_context." EXPORTING"   it_headers = lt_headers.CALL METHOD gr_employee_class->/iwbep/if_mgw_appl_srv_runtime~get_entitysetEXPORTINGiv_entity_name           = 'Employee'iv_entity_set_name       = 'EmployeeCollection'iv_source_name           = 'Employee'it_filter_select_options = lt_filteriv_filter_string         = `( IsMyEmployee eq 'X' )`io_tech_request_context  = lo_contextIMPORTINGer_entityset             = er_entityset.ASSIGN er_entityset->* TO <data>.rt_employee = <data>.ENDMETHOD.
* <SIGNATURE>---------------------------------------------------------------------------------------+
* | Static Public Method ZCL_CRM_EMPLOYEE_MGNT_TOOL=>GET_ASSIGNED_EMPLOYEES_BY_TAB
* +-------------------------------------------------------------------------------------------------+
* | [--->] IT_USER                        TYPE        STRING_TABLE
* +--------------------------------------------------------------------------------------</SIGNATURE>method GET_ASSIGNED_EMPLOYEES_BY_TAB.DATA: lv_start TYPE i,lv_end TYPE i,lt_employee TYPE crmt_bp_odata_employee_t,lv_total TYPE i,lv_current TYPE i,lv_text TYPE string.lv_total = lines( it_user ).LOOP AT it_user ASSIGNING FIELD-SYMBOL(<user>).GET RUN TIME FIELD lv_start.lv_current = sy-tabix * 100 / lv_total.lv_text = 'Totally user: ' && lv_total && ' currently processing: ' && sy-tabix.CALL FUNCTION 'SAPGUI_PROGRESS_INDICATOR'EXPORTINGPERCENTAGE = lv_currentTEXT = lv_text.lt_employee = GET_ASSIGNED_EMPLOYEES( conv #( <user> ) ).GET RUN TIME FIELD lv_end.lv_end = lv_end - lv_start.WRITE: 'User: ' , <user>, ' employee numbers: ', lines( lt_employee ) , ' consumed time: ', lv_end.ENDLOOP.endmethod.
ENDCLASS.

BP: Useful report to list assigned employees相关推荐

Oracle Golden Gate 系列十四 -- 监控 GG 状态说明
一.使用命令查看主要有如下命令: 这里注意STATS 指静态的信息,而STATUS 是运行时的信息. 1.1 Monitoring an Extract recovery If Extractabe ...
创建框架协议（价值合同）
事务代码:ME31K 显示合同:ME33K 查看行项目 BP实现 *&------------------------------------------------------------- ...
SAP RETAIL 维护Plant Profile 报错 - No customer account group assigned to business partner grouping ZNM2
SAP RETAIL 维护Plant Profile 报错 - No customer account group assigned to business partner grouping ZNM2 ...
如何高效的通过BP算法来训练CNN
< Neural Networks Tricks of the Trade.2nd>这本书是收录了1998-2012年在NN上面的一些技巧.原理.算法性文章,对于初学者或者是正在学习NN的 ...
Product settype list tool - report PROD_DISPLAY_SETTYPE
Created by Jerry Wang, last modified on Dec 20, 2014 使用该tool 列出指定的product type下能assign的所有settype nam ...
打印系统所有维护了sales area的BP id
Created by Jerry Wang, last modified on May 14, 2015 使用如下report打印所有维护了sales area的business partner id ...
【Codeforces 631C 】Report（单调栈，思维模拟）
题干: Each month Blake gets the report containing main economic indicators of the company "Blake ...
bp 神经网络优点不足_深度学习之BP神经网络--Stata和R同步实现（附Stata数据和代码）
说明:本文原发于"计量经济圈"公众号,在此仅展示Stata的部分.R部分请移步至本人主页的"R语言与机器学习--经济学视角"专栏,或点击下方链接卡跳转. 盲区行 ...
【BP神经网络】使用反向传播训练多层神经网络的原则+“常见问题”
(Principles of training multi-layer neural network using backpropagation) 使用反向传播训练多层神经网络的原则 (The pro ...

BP: Useful report to list assigned employees

Created by Jerry Wang on Jul 17, 2015

如下report能够返回指定user 所管理的employee 明细

下面的report是打印当前系统所有类型为developer的user所管理的employee信息，并打印出每个user取employee信息的消耗时间：

BP: Useful report to list assigned employees相关推荐

最新文章

热门文章