當前位置：首頁 > 编程资源 > 编程问答 >内容正文

编程问答

使用代码执行organization unit determination逻辑

發布時間：2023/12/19 编程问答 18 豆豆

生活随笔收集整理的這篇文章主要介紹了使用代码执行organization unit determination逻辑小編覺得挺不錯的,現在分享給大家,幫大家做個參考.

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逻辑的全部內容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網站內容還不錯，歡迎將生活随笔推薦給好友。