GeMIS_WEB/GUI/incl/brwmainblock.i

    
Progname = ENTRY(1, THIS-PROCEDURE:FILE-NAME, '.') NO-ERROR.
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.
    D1Firma  = DYNAMIC-FUNCTION('getMandant':U  ) NO-ERROR.
    Firma    = DYNAMIC-FUNCTION('getMandant':U  ) NO-ERROR.
    Progname = DYNAMIC-FUNCTION('makeProgname':U, INPUT THIS-PROCEDURE ) NO-ERROR.
END.
Sektion = 'Browser-' + Progname.
    
ON 'F5':U OF FRAME {&FRAME-NAME} ANYWHERE
    DO:
        DYNAMIC-FUNCTION ('openQuery':U IN hDaten ) NO-ERROR.
        APPLY 'U1'.
        RETURN NO-APPLY.
    END.
    
ON 'PAGE-DOWN':U OF {&BROWSE-NAME} IN FRAME {&FRAME-NAME}
    DO:
    END.
ON 'PAGE-UP':U OF {&BROWSE-NAME} IN FRAME {&FRAME-NAME}
    DO:
    END.