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