DEF VAR lOK         AS LOG                      NO-UNDO.
DEF VAR cMessage    AS CHAR                     NO-UNDO.

{ ttcompleteOrder.i }

CREATE  ttAuftrag.
ASSIGN  ttAuftrag.Firma = '1000'
        ttAuftrag.Aufnr = 1009626.

CREATE  ttGebinde.
ASSIGN  ttGebinde.Geb_Cd = '09'
        ttGebinde.amount = 5.
        
CREATE  ttPositionen.
ASSIGN  ttPositionen.Artnr   = 100141
        ttPositionen.Inhalt  = 0
        ttPositionen.Jahr    = 0
        ttPositionen.KGeb_Me = -2.
        .
RUN completeorder.p ( INPUT TABLE ttAuftrag, INPUT TABLE ttPositionen, INPUT TABLE ttGebinde,
                      OUTPUT lOK, OUTPUT cMessage).
MESSAGE lOK '->' cMessage
    VIEW-AS ALERT-BOX INFORMATION BUTTONS OK.