No linkage between order and credit memo

Code: Alles auswählen.

include LCRM_M1O_COMMUNICATIONF14
...

  IF sy-subrc NE 0.
    EXIT.
  ENDIF.

*  ls_object_a-objkey   = <lf_orderadm_h>-orderadm_h_guid. "delete
  ls_object_a-objkey = lv_guid. "insert
  ls_object_a-objtype  = lc_objtype.
*  ls_object_b-objkey   = lv_guid. "delete
  ls_object_b-objkey = <lf_orderadm_h>-orderadm_h_guid. "insert
  ls_object_b-objtype  = lc_objtype.

  CALL FUNCTION 'BINARY_RELATION_CREATE'
    EXPORTING
      obj_rolea            = ls_object_a
      obj_roleb            = ls_object_b
      relationtype         = 'VONA'
*    FIRE_EVENTS          = 'X'
*  IMPORTING
*    BINREL               =
*  TABLES
*    BINREL_ATTRIB        =
     EXCEPTIONS
       no_model             = 1
       internal_error       = 2
       unknown              = 3
       OTHERS               = 4
            .
  IF sy-subrc <> 0.
    EXIT.
  ENDIF.