Index: TRANSPX.mac.rou
===================================================================
diff -u -r66249 -r73079
--- TRANSPX.mac.rou	(.../TRANSPX.mac.rou)	(revision 66249)
+++ TRANSPX.mac.rou	(.../TRANSPX.mac.rou)	(revision 73079)
@@ -103,6 +103,7 @@
  ..Do:'$D(^TRANSP("D",VervRef,"D",GroepNr,"B",BONNr)) OPEN^LOG("TRP",VervRef,"B"_BONNr)
  ..Set ^TRANSP("D",VervRef,"D",GroepNr,"B",BONNr)=""
  ..Do ##class(BL.Flow.Cons.TransportFlow).VerzendWijze(VervRef,GroepNr,"L",BONNr)
+ ..Do MarkControleur^TRANSP(BONNr)
  .Kill ^TRANSP("D",VervRef,"D",GroepNr,"Q")
  .Set ColTyp=""
  .For  Set ColTyp=$O(sFL("Q",ColTyp)) Quit:ColTyp=""  Do
@@ -172,6 +173,7 @@
  Quit
  ;
 INITEXEC
+ Do ##class(Tools.Wlip).%New(207).String("TRANSPX")
  If $G(ModHoofding) Do
  .Do REMATTR^vhScherm("OPHVOORZ","D","D"),REMATTR^vhScherm("ALGOPMERK","D","D")
  .Do REMATTR^vhScherm("GROEPEER","D","D"),REMATTR^vhScherm("UITLEVDAT","D","D")