Index: TRANSP.mac.rou
===================================================================
diff -u -r66330 -r74677
--- TRANSP.mac.rou	(.../TRANSP.mac.rou)	(revision 66330)
+++ TRANSP.mac.rou	(.../TRANSP.mac.rou)	(revision 74677)
@@ -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
@@ -569,7 +584,7 @@
  ..Set NewVerzW="DI1",NewVerzW=NewVerzW_" #"_^RES("KLANT","PI","VERZENDWIJZE","D",NewVerzW,Taal)
  .Set BonRec=^KUL(KLNr,"F",BONNr,1),OldVerzW=$P(BonRec,D,7)
  .Quit:($E(OldVerzW,1,2)=$E(NewVerzW,1,2))
- .Quit:(($E(OldVerzW,1,2)="HD")||($E(OldVerzW,1,2)="DA"))
+ .Quit:(($E(OldVerzW,1,2)="HD")||($E(OldVerzW,1,2)="DA")||($E(OldVerzW,1,2)="DO")||($E(OldVerzW,1,2)="HW")||($E(OldVerzW,1,2)="BS")||($E(OldVerzW,1,2)="HS"))
  .Set R=$$^vhTXTPOP("TRANSP","NOABX","",BONNr,$TR(OldVerzW,"#",""),$TR(NewVerzW,"#",""))
  .Do KILL^KFVZW("F",BonRec,BONNr)
  .Set $P(BonRec,D,7)=NewVerzW,^KUL(KLNr,"F",BONNr,1)=BonRec
@@ -694,17 +709,18 @@
  Quit Paletten_D_ExtraPaletten
  ;
  
- ; Output = Eurpaletten\Colli\Langgoed\Extra paletten
+ ; Output = Eurpaletten;WWPalletten;Extra paletten\Colli\Langgoed\Kleine\buitenmaatse
 CalcVerpak(VervRef)
- New R,Paletten,Collie,Langgoed,ExtraPaletten,GroepNr, BuitenmaatsePaletten
- Set R=^TRANSP("D",VervRef),ExtraPaletten=$P(R,D,14),GroepNr="",(Paletten,Collie,Langgoed,KleinePaletten,BuitenmaatsePaletten)=0
+ New R,Paletten,Collie,Langgoed,ExtraPaletten,GroepNr, BuitenmaatsePaletten,WWPaletten
+ Set R=^TRANSP("D",VervRef),ExtraPaletten=$P(R,D,14),GroepNr="",(Paletten,Collie,Langgoed,KleinePaletten,BuitenmaatsePaletten,WWPaletten)=0
  For  Set GroepNr=$O(^TRANSP("D",VervRef,"D",GroepNr)) Quit:GroepNr=""  Do
  . Set Collie=Collie+$G(^TRANSP("D",VervRef,"D",GroepNr,"Q","C"))
  . Set Paletten=Paletten+$G(^TRANSP("D",VervRef,"D",GroepNr,"Q","E"))
+ . Set WWPaletten=WWPaletten+$G(^TRANSP("D",VervRef,"D",GroepNr,"Q","W"))
  . 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_";"_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