GeMIS_WEB/GUI/incl/winmainblock.i

    
    MaxSeite = 7.
    AktSeite = 1.
    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.

/*  TRIGGERS    ------------------------------------------------------  */

    ON 'ALT-CURSOR-RIGHT':U OF {&WINDOW-NAME} ANYWHERE
    DO:
        RUN SEITENWECHSEL ( INPUT 'N' ).
        RETURN NO-APPLY.
    END.
    ON 'ALT-CURSOR-LEFT':U OF {&WINDOW-NAME} ANYWHERE
    DO:
        RUN SEITENWECHSEL ( INPUT 'V' ).
        RETURN NO-APPLY.
    END.

    ON 'PAGE-DOWN':U     OF {&WINDOW-NAME} OR
       'ALT-PAGE-DOWN':U OF {&WINDOW-NAME} ANYWHERE
    DO:
        RUN TOOLBAR ( INPUT 'Next':U ).
        RETURN NO-APPLY.
    END.
    ON 'PAGE-UP':U     OF {&WINDOW-NAME} OR
       'ALT-PAGE-UP':U OF {&WINDOW-NAME} ANYWHERE
    DO:
        RUN TOOLBAR ( INPUT 'Prev':U ).
        RETURN NO-APPLY.
    END.
    
    ON 'ALT-RETURN':U OF {&WINDOW-NAME} ANYWHERE
    DO:
        RUN TOOLBAR ( INPUT 'UPDATE':U ).
        RETURN NO-APPLY.
    END.
    ON 'ALT-INS':U, 'ALT-I':U, 'CTRL-INS':U OF {&WINDOW-NAME} ANYWHERE
    DO:
        RUN TOOLBAR ( INPUT 'ADD':U    ).
        RETURN NO-APPLY.
    END.
    ON 'ALT-DEL':U, 'CTRL-DEL':U OF {&WINDOW-NAME} ANYWHERE
    DO:
        RUN TOOLBAR ( INPUT 'DELETE':U ).
        RETURN NO-APPLY.
    END.
    ON 'ALT-D':U OF {&WINDOW-NAME} ANYWHERE
    DO:
        RUN TOOLBAR ( INPUT 'DELETE':U ).
        RETURN NO-APPLY.
    END.
    ON 'ALT-R':U OF {&WINDOW-NAME} ANYWHERE
    DO:
        RUN TOOLBAR ( INPUT 'RESET':U  ).
        RETURN NO-APPLY.
    END.
    ON 'ALT-S':U, 'F9':U OF {&WINDOW-NAME} ANYWHERE
    DO:
        RUN TOOLBAR ( INPUT 'SAVE':U   ).
        RETURN NO-APPLY.
    END.
    ON 'ALT-K':U OF {&WINDOW-NAME} ANYWHERE
    DO:
        RUN TOOLBAR ( INPUT 'COPY':U   ).
        RETURN NO-APPLY.
    END.

    ON 'ALT-1':U, 'ALT-2':U, 'ALT-3':U, 'ALT-4':U, 'ALT-5':U, 'ALT-6':U,
       'ALT-7':U, 'ALT-8':U, 'ALT-9':U
       OF {&WINDOW-NAME} ANYWHERE
    DO:
        AktSeite = INTEGER(LASTKEY) - 1072.
        IF AktSeite > MaxSeite THEN RETURN NO-APPLY.
        RUN SelectPage ( INPUT AktSeite ).
        RETURN NO-APPLY.
    END.

    ON 'U1':U OF {&WINDOW-NAME} ANYWHERE
    DO:
        RUN ENTRY_CURSOR.
        RETURN NO-APPLY.
    END.

    ON 'END-ERROR':U OF {&WINDOW-NAME} ANYWHERE
    DO:
        FMutFlag = DYNAMIC-FUNCTION('getMutFlag':U, INPUT Progname) NO-ERROR.
        IF FMutFlag = FALSE THEN DO:
            RUN ENDE.
            APPLY 'U1'.
            RETURN NO-APPLY.
        END.
        RUN TOOLBAR ( INPUT 'CANCEL':U ).
        RETURN NO-APPLY.
    END.
    
    PROCEDURE GetSystemMetrics EXTERNAL "USER32.DLL":
        DEFINE INPUT PARAMETER nIndex AS LONG.
        DEFINE RETURN PARAMETER nRet AS LONG.
    END PROCEDURE.