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