sAktiv = DYNAMIC-FUNCTION('getSuperaktiv':U) NO-ERROR.
    IF sAktiv = ? THEN sAktiv = FALSE.

    IF sAktiv THEN DO:
        AdFirma  = DYNAMIC-FUNCTION('getADMandant':U) NO-ERROR.
        FBFirma  = DYNAMIC-FUNCTION('getFBMandant':U) NO-ERROR.
        Firma    = DYNAMIC-FUNCTION('getMandant':U  ) NO-ERROR.
        Progname = DYNAMIC-FUNCTION('makeProgname':U, INPUT THIS-PROCEDURE ) NO-ERROR.
    END.

    SESSION:DATA-ENTRY-RETURN = TRUE.