| 1234567891011121314151617181920 |
-
- 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.
-
|
