DEF VAR cvProg      AS CHAR                     NO-UNDO.

    cvProg = ENTRY(1, THIS-PROCEDURE:NAME, '.').
    
    FIND FIRST Berecht NO-LOCK
            WHERE Berecht.Mandant  = Firma
            AND   Berecht.Benutzer = cBenutzer
            AND   Berecht.Programm = cvProg NO-ERROR.
    IF AVAILABLE Berecht AND
       NOT Berecht.PwA   THEN RETURN.