Index: TRANSP.mac.rou =================================================================== diff -u -r50584 -r52125 --- TRANSP.mac.rou (.../TRANSP.mac.rou) (revision 50584) +++ TRANSP.mac.rou (.../TRANSP.mac.rou) (revision 52125) @@ -157,7 +157,7 @@ Merge sFL("C")=^TRANSP("D",VervRef,"D",GroepNr,"C") Quit ; -DELGRP(VervRef,GroepNr) +DELGRP(VervRef,GroepNr) ; Haal een leveringsbon terug van transport af. Werkt ook als het transport reeds gesloten is. New R,BONNr,KLNr,Gewicht,Node Do ##class(DOM.TRANSP.event.EventRaiser).VoorLeveringVerwijderingEvent(VervRef,GroepNr) Set BONNr="",Gewicht=0 @@ -778,4 +778,3 @@ IsBonMetEnkelVerwijzingNaarLeveradres(Node3VanBon) Quit '$$IsBonMetEigenLeveradres(Node3VanBon) && (+$P(Node3VanBon,D)>=1) ; -