cwTP
 Quit
 
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)
 Quit
 
DeleteLevering(BONNr)
 Write @F11,@F1,!!,"Do ##class(BL.Flow.Cons.TransportFlow).DeleteLevering("_BONNr_")"
 Do ##class(BL.Flow.Cons.TransportFlow).DeleteLevering(BONNr)
 Quit
 
TransportCollie
 New Obj
 Write !!!!!!!!!!
 Do:0
 . Set Obj=##Class(Flow.Cons.TransportCollie).%New()
 . Set Obj.Transport=123
 . Set Obj.Adres=456789
 . Set Obj.CollieType="L"
 . Set Obj.CollieAantal=6
 . Set Obj.LengteLangGoed=5.9
 . Set Ok=Obj.%Save()
 . Write !,Ok,!
 . ZWrite ^TRANSP
 . Kill Obj
 . Set Ok=##Class(Flow.Cons.TransportCollie).%DeleteId("123||456789||L")
 . Write Ok
 Do:1
 . Set Obj=##Class(Flow.Cons.TransportBarCode).%New()
 . Set Obj.Transport=123
 . Set Obj.Adres=456789
 . Set Obj.CollieNummer=998877665544
 . Set Ok=Obj.%Save()
 . Write !,Ok,!
 . ZWrite ^TRANSP
 . Kill Obj
 . 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))
 Do ##Class(BL.Flow.Cons.TransportFlow).AddLevering($P(^HULP(%J,"D",@DL(1)@(6)),D))
 Quit
 Set Tp(1)="O`Oude versie",Tp(2)="N`Nieuwe versie"
 Set Tp=$$WILD^vhPOPUP("C;C","-OB1","",.Tp,"N")
 Do:zb'="CANC"
 . Do:Tp="O" VERWERK^TRANSP($P(^HULP(%J,"D",@DL(1)@(6)),D))
 . Do:Tp="N" ##Class(BL.Flow.Cons.TransportFlow).AddLevering($P(^HULP(%J,"D",@DL(1)@(6)),D))
 Quit