-
Notifications
You must be signed in to change notification settings - Fork 0
/
set_partner_no.
56 lines (42 loc) · 1.88 KB
/
set_partner_no.
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
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
METHOD set_partner_no.
DATA: lr_partner TYPE REF TO cl_crm_bol_entity,
lr_adminh TYPE REF TO cl_crm_bol_entity,
lr_partner_ext TYPE REF TO cl_crm_bol_entity,
lr_current TYPE REF TO cl_crm_bol_entity,
lr_iterator TYPE REF TO if_bol_bo_col_iterator,
lv_partner TYPE bu_partner,
lv_partner_guid TYPE bu_partner_guid,
ls_data TYPE but000.
DATA: lv_vip TYPE string.
DATA lv_sourcecode TYPE string.
CALL METHOD super->set_partner_no
EXPORTING
attribute_path = attribute_path "'BPPARTNERPROSPECT/PARTNER_NO'
iterator = iterator
value = value.
* CHECK 1 EQ 2.
TRY.
lr_current ?= me->collection_wrapper->get_current( ).
lr_adminh = lr_current->get_parent( )->get_parent( ).
CALL FUNCTION 'CONVERSION_EXIT_ALPHA_INPUT'
EXPORTING
input = value
IMPORTING
output = lv_partner.
.
SELECT * FROM but000
INTO @ls_data
WHERE partner = @lv_partner.
ENDSELECT.
CHECK ls_data IS NOT INITIAL.
lv_partner_guid = ls_data-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."для випов ставим приоритет высокий
DATA(lr_lead_ext) = lr_adminh->get_related_entity( iv_relation_name = 'BTHeaderLeadExt').
lr_lead_ext->set_property_as_string( iv_attr_name = 'IMPORTANCE' iv_value = zif_bt_priority_const=>importance-high ).
ENDIF.
CATCH cx_root.
ENDTRY.
ENDMETHOD.