-
Notifications
You must be signed in to change notification settings - Fork 0
/
do_init_context Get property from relations
30 lines (23 loc) · 1.47 KB
/
do_init_context Get property from relations
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
METHOD do_init_context.
DATA: lr_btadminh TYPE REF TO cl_crm_bol_entity,
lr_bthpartnerset TYPE REF TO cl_crm_bol_entity,
lr_btpartner TYPE REF TO cl_crm_bol_entity,
lr_partner_ext TYPE REF TO cl_crm_bol_entity,
lr_btactivityh TYPE REF TO cl_crm_bol_entity,
lr_partner TYPE REF TO cl_crm_bol_entity,
lv_partner_guid TYPE bu_partner_guid.
DATA: lv_vip TYPE string.
CALL METHOD super->do_init_context.
CHECK 1 EQ 2.
lr_btadminh ?= typed_context->btadminh->collection_wrapper->get_current( ).
lr_bthpartnerset = lr_btadminh->get_related_entity( iv_relation_name = 'BTHeaderPartnerSet' ).
lr_btpartner = lr_bthpartnerset->get_related_entity( iv_relation_name = 'BTPartner_00000009' ).
lv_partner_guid = lr_btpartner->get_property_as_string( 'BP_PARTNER_GUID' ).
lr_partner = cl_crm_bol_core=>get_instance( )->get_root_entity( iv_object_name = 'BuilHeader' iv_object_guid = lv_partner_guid ).
lr_partner_ext = lr_partner->get_related_entity( iv_relation_name = 'ZEXT_BOL_RELAT000001' ).
lv_vip = lr_partner_ext->get_property_as_string( 'ZZVIP' ).
IF lv_vip EQ abap_true."для випов ставим приоритет высокий
lr_btactivityh ?= typed_context->btactivityh->collection_wrapper->get_current( ).
lr_btactivityh->set_property_as_string( iv_attr_name = 'PRIORITY' iv_value = zif_bt_priority_const=>priority-high ).
ENDIF.
ENDMETHOD.