Index: cwTP.mac.rou =================================================================== diff -u -r734 -r2415 --- cwTP.mac.rou (.../cwTP.mac.rou) (revision 734) +++ cwTP.mac.rou (.../cwTP.mac.rou) (revision 2415) @@ -3,7 +3,7 @@ CheckMenuItem(BONNr) Quit '$L(##class(Flow.Cons.TransportBon).GetTransport(BONNr)) - + AddLevering(BONNr) Write @F11,@F1,!!,"Do ##class(BL.Flow.Cons.TransportFlow).AddLevering("_BONNr_")" Do ##class(BL.Flow.Cons.TransportFlow).AddLevering(BONNr) @@ -42,7 +42,7 @@ . Set Ok=##Class(Flow.Cons.TransportBarCode).%DeleteId("123||456789||998877665544") . Write Ok Quit - + TransportLink New zb,Tp ;Do VERWERK^TRANSP($P(^HULP(%J,"D",@DL(1)@(6)),D))