-
Notifications
You must be signed in to change notification settings - Fork 0
/
METHOD do_init_context.
24 lines (19 loc) · 1.13 KB
/
METHOD do_init_context.
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
METHOD do_init_context.
DATA: lr_partner_0006 TYPE REF TO cl_crm_bol_entity,
lr_activityh TYPE REF TO cl_crm_bol_entity,
lr_partner TYPE REF TO cl_crm_bol_entity,
lr_partner_ext 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_partner_0006 ?= typed_context->btpartneracct->collection_wrapper->get_current( ).
lv_partner_guid = lr_partner_0006->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_activityh ?= typed_context->btactivityh->collection_wrapper->get_current( ).
lr_activityh->set_property_as_string( iv_attr_name = 'PRIORITY' iv_value = '3' ).
ENDIF.
ENDMETHOD.