Index: TRANSP.mac.rou
===================================================================
diff -u -r71039 -r73079
--- TRANSP.mac.rou	(.../TRANSP.mac.rou)	(revision 71039)
+++ TRANSP.mac.rou	(.../TRANSP.mac.rou)	(revision 73079)
@@ -57,6 +57,20 @@
  .Do UNLOCK(VervRef,GroepNr)
  Quit
  ;
+MarkControleur(BONNr) ; Toevoegen van de controleur aan de bon
+ New R,Mark,KLNr
+ Quit:$G(BONNr)=""
+ Set KLNr=$P($G(^KU1(BONNr,"F")),"\")
+ Quit:KLNr=""
+ Quit:$P(^KUL(KLNr,"F",BONNr,1),D,34)'="" ;niet overschrijven als het al is ingevuld
+ Set Controleur=$$Controleur^ULTOER($G(Controleur)) 
+ Quit:'Controleur
+ If $G(Controleur) Do
+ . Set R=^KUL(KLNr,"F",BONNr,1)
+ . Set $P(R,D,28)="M",$P(R,D,34)=Controleur_"#"_$H
+ . Set ^KUL(KLNr,"F",BONNr,1)=R
+ Quit
+ ;
 MODGRP(VervRef,GroepNr,BONNrs) 
  New %SC,R,sFL,TranspNr,KLNr,BONNr,Collie,ColList,Labels,OBCount,NBCount,ColTyp,IsTerugname
  Do:$$LOCK(VervRef,GroepNr)
@@ -197,6 +211,7 @@
  ..Set KLNr=$P(^KU1(BONNr,"F"),D),Node=$$NODE(BONNr)
  ..Set R=^KUL(KLNr,Node,BONNr,1),$P(R,D,8)=VervRef_";"_GroepNr_";"_TranspNr,^KUL(KLNr,Node,BONNr,1)=R
  ..Set ^TRANSP("D",VervRef,"D",GroepNr,"B",BONNr)=""
+ ..Do MarkControleur(BONNr)
  .Kill ^TRANSP("D",VervRef,"D",GroepNr,"Q")
  .Set Next=""
  .For  Set Next=$O(Nodes("Q",Next)) Quit:Next=""  Do
@@ -705,7 +720,7 @@
  . Set Langgoed=Langgoed+$G(^TRANSP("D",VervRef,"D",GroepNr,"Q","L"))
  . Set KleinePaletten=KleinePaletten+$G(^TRANSP("D",VervRef,"D",GroepNr,"Q","P"))
  . Set BuitenmaatsePaletten=BuitenmaatsePaletten+$G(^TRANSP("D",VervRef,"D",GroepNr,"Q","B"))
- Quit Paletten + WWPaletten_";"_ExtraPaletten_D_Collie_D_Langgoed_D_KleinePaletten_D_BuitenmaatsePaletten
+ Quit Paletten_";"_WWPaletten_";"_ExtraPaletten_D_Collie_D_Langgoed_D_KleinePaletten_D_BuitenmaatsePaletten
  ;
  ; Importeren van de ABX regios
 ImportABX