GeMIS_WEB/GUI/incl/datmainblock.i

    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.
        lAdmin   = DYNAMIC-FUNCTION('getAdmin':U    ) NO-ERROR.
    END.

    CREATE tRowObject.