DEF INPUT PARAMETER ipArt   AS CHAR             NO-UNDO.

    AktSeite = DYNAMIC-FUNCTION('getCurrentPage':U) NO-ERROR.

    CASE ipArt:
        WHEN 'V' THEN DO:
            IF AktSeite = 1 THEN AktSeite = MaxSeite.
            ELSE                 AktSeite = AktSeite - 1.
        END.
        WHEN 'N' THEN DO:
            IF AktSeite = MaxSeite THEN AktSeite = 1.
            ELSE                        AktSeite = AktSeite + 1.
        END.
    END CASE.

    RUN selectPage ( INPUT AktSeite ).