I am trying to update the BP number of reviewer in partner function 'Employee Responsible' only.
This is the code to fill the partner table and input_field table in CRM_ORDER_MAINTAIN.
(PS: I am using the same code in a custom report which is working fine but is not working in this BADI).
LS_PARTNER_COM-REF_GUID = LS_GUID_H.
LS_PARTNER_COM-REF_KIND = 'A'.
LS_PARTNER_COM-KIND_OF_ENTRY = 'C'.
LS_PARTNER_COM-PARTNER_FCT = '00000009'.
LS_PARTNER_COM-PARTNER_NO = BP_PARTNER.
LS_PARTNER_COM-DISPLAY_TYPE = 'BP'.
LS_PARTNER_COM-NO_TYPE = 'BP'.
APPEND LS_PARTNER_COM TO LT_PARTNER_COM.
LS_NAMETAB-FIELDNAME = 'DISPLAY TYPE'.
APPEND LS_NAMETAB TO LT_NAMETAB.
LS_NAMETAB-FIELDNAME = 'KIND_OF_ENTRY'.
APPEND LS_NAMETAB TO LT_NAMETAB.
LS_NAMETAB-FIELDNAME = 'NO_TYPE'.
APPEND LS_NAMETAB TO LT_NAMETAB.
LS_NAMETAB-FIELDNAME = 'PARTNER_FCT'.
APPEND LS_NAMETAB TO LT_NAMETAB.
LS_NAMETAB-FIELDNAME = 'PARTNER_NO'.
APPEND LS_NAMETAB TO LT_NAMETAB.
WA_INPUT_FIELDS-REF_HANDLE = '0000000000'.
WA_INPUT_FIELDS-REF_GUID = LS_GUID_H.
WA_INPUT_FIELDS-REF_KIND = 'A'.
WA_INPUT_FIELDS-OBJECTNAME = 'PARTNER'.
CONCATENATE LS_PARTNER_COM-REF_PARTNER_HANDLE LS_PARTNER_COM-REF_PARTNER_FCT LS_PARTNER_COM-REF_PARTNER_NO LS_PARTNER_COM-REF_NO_TYPE
LS_PARTNER_COM-REF_DISPLAY_TYPE INTO WA_INPUT_FIELDS-LOGICAL_KEY RESPECTING BLANKS.
WA_INPUT_FIELDS-FIELD_NAMES[] = LT_NAMETAB[].
INSERT WA_INPUT_FIELDS INTO TABLE LT_INPUT_FIELDS.
LS_PARTNER_COM-REF_GUID = LS_GUID_H.
LS_PARTNER_COM-REF_KIND = 'A'.
LS_PARTNER_COM-KIND_OF_ENTRY = 'C'.
LS_PARTNER_COM-PARTNER_FCT = '00000014'.
LS_PARTNER_COM-PARTNER_NO = V_PARTNER.
LS_PARTNER_COM-DISPLAY_TYPE = 'BP'.
LS_PARTNER_COM-NO_TYPE = 'BP'.
APPEND LS_PARTNER_COM TO LT_PARTNER_COM.
WA_INPUT_FIELDS-REF_HANDLE = '0000000000'.
WA_INPUT_FIELDS-REF_GUID = LS_GUID_H.
WA_INPUT_FIELDS-REF_KIND = 'A'.
WA_INPUT_FIELDS-OBJECTNAME = 'PARTNER'.
CONCATENATE LS_PARTNER_COM-REF_PARTNER_HANDLE LS_PARTNER_COM-REF_PARTNER_FCT LS_PARTNER_COM-REF_PARTNER_NO LS_PARTNER_COM-REF_NO_TYPE
LS_PARTNER_COM-REF_DISPLAY_TYPE INTO WA_INPUT_FIELDS-LOGICAL_KEY RESPECTING BLANKS.
WA_INPUT_FIELDS-FIELD_NAMES[] = LT_NAMETAB[].
INSERT WA_INPUT_FIELDS INTO TABLE LT_INPUT_FIELDS.
CALL FUNCTION 'CRM_ORDER_MAINTAIN'
EXPORTING
IT_PARTNER = LT_PARTNER_COM
IMPORTING
ET_EXCEPTION = ET_EXCEPTION
CHANGING
CT_INPUT_FIELDS = LT_INPUT_FIELDS
EXCEPTIONS
OTHERS = 99.
The partner function for 'Employee Responsible' is 00000014