| 12345678910111213141516171819202122232425262728293031323334353637383940414243444546474849505152535455 |
- DEFINE VARIABLE cParameter AS CHARACTER NO-UNDO.
- DEFINE VARIABLE cLogFile AS CHARACTER NO-UNDO.
- DEFINE VARIABLE cProgramm AS CHARACTER NO-UNDO.
- DEFINE VARIABLE cAnmeldung AS CHARACTER NO-UNDO.
- DEFINE VARIABLE cFirma AS CHARACTER NO-UNDO INIT '1000'.
- DEFINE VARIABLE ii AS INTEGER NO-UNDO.
- DEFINE TEMP-TABLE tAufze LIKE Aufze
- FIELD Knr AS INTEGER
- FIELD Datum AS DATE
- FIELD lAktion AS LOGICAL INIT TRUE
- .
- DEFINE VARIABLE htAufze AS HANDLE NO-UNDO.
- htAufze = TEMP-TABLE tAufze:DEFAULT-BUFFER-HANDLE.
- { properties.i }
- { propertiesYBM.i }
- { funktionen.i }
- /* ******************** Preprocessor Definitions ******************** */
- /* *************************** Main Block *************************** */
- cAnmeldung = SUBSTITUTE ('&1&4&2&4&3', 'SYSTEM', 'SYSTEM', '1000', CHR(01) ).
- RUN ANMELDUNG ( cAnmeldung ) NO-ERROR.
- EMPTY TEMP-TABLE tAufze.
- CREATE tAufze.
- ASSIGN
- tAufze.Firma = '1000'
- tAufze.Pos = 10
- tAufze.Artnr = 21857
- tAufze.Inhalt = 50
- tAufze.Jahr = 000
- tAufze.Knr = 3259
- tAufze.Datum = TODAY
- tAufze.lAktion = FALSE
- .
- ii = DYNAMIC-FUNCTION ('fillAufze':U, INPUT-OUTPUT htAufze) NO-ERROR.
- ASSIGN
- tAufze.KGeb_Be = 1
- tAufze.KGeb_Me = 1
- tAufze.MBest = 1
- tAufze.MGeli = 1
- .
- ii = DYNAMIC-FUNCTION ('getPreisAufze':U, INPUT-OUTPUT htAufze) NO-ERROR.
-
- MESSAGE tAufze.Preis SKIP
- tAufze.PreisArt SKIP
- tAufze.lAktion
- VIEW-AS ALERT-BOX.
|
