*&---------------------------------------------------------------------*
* Get OKPO and name of enterprise from T7RU9A
*&---------------------------------------------------------------------*
FORM get_org_name_okpo USING    objid
                       CHANGING p_nameent p_okpo.
  DATA: l_msgv1 LIKE sy-msgv1.
  SELECT SINGLE lnaam kdokp FROM t7ru9a
  INTO (p_nameent, p_okpo)
  WHERE t7ru9a~soort =  soort    AND
        t7ru9a~instl =  instl    AND
        t7ru9a~otype =  PCHOTYPE AND
        t7ru9a~objid =  objid    AND
        t7ru9a~endda GE pc-endda AND
        t7ru9a~begda LE pc-begda.
  IF sy-subrc NE 0.
    CONCATENATE soort instl PCHOTYPE objid INTO l_msgv1.
    PERFORM add_message_to_log USING 'E' '111' l_msgv1.
  ENDIF.
ENDFORM.                    " GET_ORG_OKPO

DATA: IFund TYPE p DECIMALS 2,
      INumb TYPE i,
      S_NAMEENT TYPE t7ru9a-lnaam,