*&---------------------------------------------------------------------*
*&      Form  get_docnum
*&---------------------------------------------------------------------*
FORM get_docnum USING p_mblnr TYPE mblnr
                      p_mjahr TYPE mjahr
             CHANGING c_docnum TYPE edidc-docnum.
  DATA: l_objkey TYPE srrelroles-objkey.
  CONCATENATE p_mblnr p_mjahr INTO l_objkey.
  CLEAR c_docnum.
*  CLEAR c_idoc_new.

  SELECT SINGLE srrelroles_idoc~objkey INTO l_objkey "c_idoc_old
    FROM srrelroles AS srrelroles_mblnr INNER JOIN idocrel ON idocrel~client = srrelroles_mblnr~client
                                                           AND idocrel~role_b = srrelroles_mblnr~roleid
              INNER JOIN srrelroles AS srrelroles_idoc ON srrelroles_idoc~client = idocrel~client
                                                       AND srrelroles_idoc~roleid = idocrel~role_a
    WHERE srrelroles_mblnr~objkey = l_objkey
      AND srrelroles_mblnr~objtype = 'BUS2017'
      AND srrelroles_idoc~objtype = 'IDOC'.
  CHECK sy-subrc = 0 AND NOT l_objkey IS INITIAL.

  c_docnum = l_objkey.
ENDFORM.                    "get_docnum