GeMIS_WEB/GUI/incl/viwmainblock.i

    Progname = ''.
    FCancel  = FALSE.
    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.
    END.

    /*  Triggers    ------------------------------------------------------  */

    ON 'CTRL-P':U OF FRAME {&FRAME-NAME} ANYWHERE
    DO:
        MESSAGE 'Programmname für Zugriff -> '
                ENTRY(1, THIS-PROCEDURE:FILE-NAME, '.') VIEW-AS ALERT-BOX.
        RETURN NO-APPLY.
    END.

    ON 'RETURN':U OF FRAME {&FRAME-NAME} ANYWHERE
    DO:
        RUN RETURN_FELD ( INPUT SELF:HANDLE ).
        IF RETURN-VALUE <> '' THEN DO:
            APPLY RETURN-VALUE TO SELF.
            RETURN NO-APPLY.
        END.
    END.

    ON 'ENTRY':U OF FRAME {&FRAME-NAME} ANYWHERE
    DO:
        RUN ENTRY_FELD_TEST ( INPUT SELF:HANDLE ).
        IF RETURN-VALUE = 'ERROR' THEN DO:
            APPLY 'ENTRY' TO SELF.
            RETURN NO-APPLY.
        END.
        IF RETURN-VALUE = 'APPLY' THEN DO:
            RETURN NO-APPLY.
        END.
    END.

    ON 'LEAVE':U OF FRAME {&FRAME-NAME} ANYWHERE
    DO:
        RUN LEAVE_FELD_TEST ( INPUT SELF:HANDLE ).
        IF RETURN-VALUE = 'ERROR' THEN DO:
            APPLY 'ENTRY' TO SELF.
            RETURN NO-APPLY.
        END.
        IF RETURN-VALUE = 'APPLY' THEN DO:
            RETURN NO-APPLY.
        END.
    END.
    
    ON 'CTRL-T':U OF FRAME {&FRAME-NAME} ANYWHERE
    DO:
        PUBLISH 'TRANSLATE' ( Firma, Fenster, THIS-PROCEDURE:NAME, 1, iBenuSprcd) .
        RETURN NO-APPLY.
    END.