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的原创文章，请关注公众号"汪子熙":