Created by Jerry Wang, last modified on May 15, 2015

执行report，输入order id和transaction type：

打印输出：

report打印的结果和ui上log里显示的结果一致。

source code:

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

*& Report ZORDER_DETERMINE_BY_ID

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

REPORT zorder_determine_by_id.

PARAMETERS: id TYPE crmd_orderadm_h-object_id OBLIGATORY DEFAULT '2145',

otype TYPE crmd_orderadm_h-process_type OBLIGATORY DEFAULT 'OPPT'.

DATA: lv_id TYPE crmd_orderadm_h-object_id VALUE '2145',

ls_order TYPE crmd_orderadm_h,

lv_profile_id TYPE crmt_org_profilid,

ls_actor_1 TYPE swhactor,

ls_actor_2 TYPE swhactor,

ls_org_com TYPE crmt_orgman_com,

lt_orgobjects TYPE crmt_orgman_swhactor_tab,

ls_orgprof TYPE crmc_orgprof.

START-OF-SELECTION.

lv_id = id.

CALL FUNCTION 'CONVERSION_EXIT_ALPHA_INPUT'

EXPORTING

input = lv_id

IMPORTING

output = lv_id.

SELECT SINGLE * INTO ls_order FROM crmd_orderadm_h WHERE object_id = lv_id

AND process_type = otype.

IF sy-subrc <> 0.

WRITE: / 'invalid order id: ' , lv_id.

RETURN.

ENDIF.

ls_org_com-ref_guid = ls_order-guid.

ls_org_com-ref_kind = 'A'.

CALL FUNCTION 'CRM_ORGMAN_GET_PROFIL_ID'

EXPORTING

iv_ref_guid = ls_order-guid

iv_ref_kind = 'A'

iv_scenario = 'SALE'

IMPORTING

ev_org_profilid = lv_profile_id

es_org_profile = ls_orgprof

EXCEPTIONS

no_profile_found = 1

OTHERS = 2.

ASSERT sy-subrc = 0.

ls_actor_1-otype = ls_orgprof-objtyp_rol_oe.

ls_actor_1-objid = ls_orgprof-org_rol_oe.

ls_actor_2-otype = ls_orgprof-objtyp_rol_resp.

ls_actor_2-objid = ls_orgprof-org_rol_resp.

CALL FUNCTION 'CRM_ORGMAN_DETERMINE_ORGOBJS_E'

EXPORTING

iv_ref_guid = ls_order-guid

iv_ref_kind = 'A'

iv_scenario = 'SALE'

is_actor_1 = ls_actor_1

is_actor_2 = ls_actor_2

is_orgman_com = ls_org_com

iv_otype = 'O'

IMPORTING

et_actor_tab = lt_orgobjects

EXCEPTIONS

no_actor_found = 1

OTHERS = 2.

IF sy-subrc <> 0.

WRITE: / 'no org unit determined'.

RETURN.

ENDIF.

LOOP AT lt_orgobjects ASSIGNING FIELD-SYMBOL(<object>).

WRITE: / <object>-objid, ' type: ' , <object>-otype.

ENDLOOP.

要获取更多Jerry的原创文章，请关注公众号"汪子熙":

使用代码执行organization unit determination逻辑相关推荐

「Vue 学习笔记 1」Vue 项目快速搭建，初始项目各个文件夹作用介绍和启动代码执行流程分析
「Vue 学习笔记 1」Vue 项目快速搭建,初始项目各个文件夹作用介绍和启动代码执行流程分析前言一.我的开发环境二.使用 Vue CLI (Vue 脚手架)快速搭建项目三.初始项目的目录结构 ...
第一行代码 Hello world 背后的逻辑
第一行代码 Hello world 背后的逻辑计算机俗称电脑,只不过它是一种通过通电来模拟人脑的工具,是一种可以进行数学.逻辑运算,还具有存储记忆功能的智能设备,目前是人类的小助手.计算机是以为 ...
c++ 界面交互影响处理代码执行速度_原创 | 某SCADA的远程代码执行漏洞挖掘与利用...
作者 | 绿盟科技格物实验室陈杰前言近年来网络安全形势日渐严峻,国内外都开始对工控安全越来越重视,而工控领域由于常年来对安全的忽视,导致暴露出数量惊人的严重安全漏洞,更为严重的是,相当一部分厂商 ...
这样统计代码执行耗时，才足够优雅！
作者 | Jitwxs 来源 | https://jitwxs.cn/5aa91d10.html 一.前言代码耗时统计在日常开发中算是一个十分常见的需求,特别是在需要找出代码性能瓶颈时. 可能也是受 ...
fastjson反序列化漏洞_漏洞预警Fastjson再爆反序列化代码执行漏洞；星巴克被发现存在信息泄露风险...
漏洞预警 Fastjson再次爆出通杀的反序列化代码执行漏洞漏洞信息据态势感知平台监测,网络上再次出现此前未曾发现的fastjson反序列化攻击向量. Fastjson是由阿里巴巴推出基于Java ...
[系统安全] 九.Windows漏洞利用之MS08-067远程代码执行漏洞复现及深度防御
您可能之前看到过我写的类似文章,为什么还要重复撰写呢?只是想更好地帮助初学者了解病毒逆向分析和系统安全,更加成体系且不破坏之前的系列.因此,我重新开设了这个专栏,准备系统整理和深入学习系统安全.逆向分 ...
C4C和CRM里获取当前登录用户分配的Organization Unit信息
C4C 如何查看某个用户分配的组织单元ID: 在Employee的Organization Data区域内看到分配的组织名称,如下图红色下划线所示: 现在的需求就是使用ABSL获取当前登录用户分配的O ...
Windows Media Center .MCL文件代码执行漏洞(MS16-059)
blast · 2016/06/21 13:18 0x00 简介漏洞作者EduardoBraun Prado在今年早期发现了WMP的.MCL文件又存在一个可以导致远程代码执行的漏洞.为什么要说又呢, ...
rmi远程代码执行漏洞_WebSphere 远程代码执行漏洞浅析（CVE20204450）
作者:beijixiong404 文章来源:先知社区漏洞简介 WebSphere是IBM的软件平台,它包含了编写.运行和监视全天候的工业强度的随需应变 Web 应用程序和跨平台.跨产品解决方案 ...

使用代码执行organization unit determination逻辑

Created by Jerry Wang, last modified on May 15, 2015

使用代码执行organization unit determination逻辑相关推荐

最新文章

热门文章