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.