Fenster = FRAME {&FRAME-NAME}:CURRENT-ITERATION.

    IF sAktiv THEN DO:
        hKontainer = DYNAMIC-FUNCTION('getContainerSource':U) NO-ERROR.
        hDaten     = DYNAMIC-FUNCTION('getDataSource':U)      NO-ERROR.
        RUN READONLY_FELDER ( INPUT Fenster, INPUT '{&ENABLED-FIELDS}', INPUT TRUE ).
        cBenutzerDaten = DYNAMIC-FUNCTION('getBenutzerDaten':U) NO-ERROR.
        cBenutzer      =         ENTRY(1, cBenutzerDaten, CHR(01))  NO-ERROR.
        iBenuSprcd     = INTEGER(ENTRY(6, cBenutzerDaten, CHR(01))) NO-ERROR.
        cInstallation  = DYNAMIC-FUNCTION('getInstallation':U) NO-ERROR.
    END.

    IF VALID-HANDLE(hKontainer)
        THEN ProgName = DYNAMIC-FUNCTION('makeProgname':U, INPUT hKontainer     ) NO-ERROR.
        ELSE ProgName = DYNAMIC-FUNCTION('makeProgname':U, INPUT THIS-PROCEDURE ) NO-ERROR.
        
    DYNAMIC-FUNCTION('setLabeltexte':U , Firma, Fenster, THIS-PROCEDURE:NAME, iBenuSprcd ) NO-ERROR.
    DYNAMIC-FUNCTION('setFieldSecure':U, Firma, Fenster, THIS-PROCEDURE:NAME, cBenutzer  ) NO-ERROR.