Index: TRANSP.mac.rou
===================================================================
diff -u -r40892 -r74677
--- TRANSP.mac.rou	(.../TRANSP.mac.rou)	(revision 40892)
+++ TRANSP.mac.rou	(.../TRANSP.mac.rou)	(revision 74677)
@@ -33,7 +33,7 @@
  If $L($G(VervRef)) Set R=^TRANSP("D",VervRef),TranspNr=$P(R,D)
  Else  Set R=$$SELVERV(,"N"),TranspNr=$P(R,";"),VervRef=$P(R,";",2)
  Do:$L($G(VervRef))
- .Do:TranspNr=5036 CHKVERZW(.BONNrs)
+ .Do:##class(DOM.TRANSP.impl.DataM.DataMTransportAPI).%New().IsGLS(TranspNr) CHKVERZW(.BONNrs)
  .Set Labels=0
  .Set GroepNr=$O(@BONNrs@(""))
  .Quit:'$$LOCK(VervRef,GroepNr)
@@ -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)
@@ -102,7 +116,7 @@
  Quit
  ;
 INITGRP 
- New R,Rembours,Rembours,Gewicht,ColTyp,Omschr,Count,BONNr,Node,BarCode,OphVoorz
+ New R,Rembours,Gewicht,ColTyp,Omschr,Count,BONNr,Node,BarCode,OphVoorz,RemboursVoorBon, LegacyTRANSP
  Set R=^KU1(GroepNr,"F"),KLNr=$P(R,D),Node=$$NODE(GroepNr)
  Set R=$G(^KUL(KLNr,Node,GroepNr,3))
  If $$IsBonMetEnkelVerwijzingNaarLeveradres(R) Set R = ^KKL(^KK1(KLNr),"L"_##class(TECH.StringUtils).AlignRight($P(R,D)," ",3))
@@ -113,7 +127,12 @@
  .Set (BONNr,Rembours,Gewicht)=""
  .For  Set BONNr=$O(Bons("BON",BONNr)) Quit:BONNr=""  Do
  ..Set Node=$$NODE(BONNr)
- ..Set Rembours=Rembours+$S($$ISREMB^REMBOURS(KLNr,BONNr):$P($$BON^REMBOURS(BONNr),D),1:"")
+ ..If ($$ISREMB^REMBOURS(KLNr,BONNr))  Do
+ ...Set LegacyTRANSP = ##class(BL.Legacy.TRANSP).%New()
+ ...Do LegacyTRANSP.ZetRemboursBedragVoorBon(BONNr,KLNr,"") 
+ ...Set RemboursVoorBon = LegacyTRANSP.GeefRemboursBedragVoorBon(BONNr,KLNr)
+ ...Do:(RemboursVoorBon>0) LegacyTRANSP.ZetRemboursBedragVoorBon(BONNr,KLNr,RemboursVoorBon) 
+ ...Set Rembours=Rembours+RemboursVoorBon
  ..Set R=^KUL(KLNr,Node,BONNr,1),Gewicht=Gewicht+$J($P($P(R,D,13),"#",3),0,1)
  .Set sFL(1)=KLNr_D_Rembours_D_Gewicht,$P(sFL(1),D,9)=$$DEVUSER^vhUSER(),$P(sFL(1),D,10)=$H
  Set sFL("V")=$G(^TRANSP("D",VervRef))
@@ -157,13 +176,14 @@
  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
  For  Set BONNr=$O(^TRANSP("D",VervRef,"D",GroepNr,"B",BONNr)) Quit:BONNr=""  Do
  .Set KLNr=$P(^KU1(BONNr,"F"),D),Node=$$NODE(BONNr)
  .Set R=^KUL(KLNr,Node,BONNr,1),$P(R,D,8)="",^KUL(KLNr,Node,BONNr,1)=R
+ .Do ##class(BL.Legacy.TRANSP).%New().ZetRemboursBedragVoorBon(BONNr,KLNr,"")
  .Set Gewicht=Gewicht+$J($P($P(R,D,13),"#",3),0,1)
  .Do:BONNr'=GroepNr VERW^LOG("TRP",VervRef,"B"_BONNr)
  Kill ^TRANSP("D",VervRef,"D",GroepNr)
@@ -191,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
@@ -278,7 +299,7 @@
  Quit
  ;
 MODBONS 
- New R,BONNr,Count,Rembours,Gewicht,TempBons,TempColList
+ New R,BONNr,Count,Rembours,Gewicht,TempBons,TempColList,RemboursVoorBon,LegacyTRANSP
  Merge TempBons=Bons,TempColList=ColList
  Do SELBON($NAME(Bons))
  Do:'$D(Bons("ANUL"))
@@ -293,7 +314,12 @@
  .Set (BONNr,Rembours,Gewicht)=""
  .For  Set BONNr=$O(Bons("BON",BONNr)) Quit:BONNr=""  Do
  ..Set Node=$$NODE(BONNr)
- ..Set Rembours=Rembours+$S($$ISREMB^REMBOURS(KLNr,BONNr):$P($$BON^REMBOURS(BONNr),D),1:"")
+ ..If ($$ISREMB^REMBOURS(KLNr,BONNr))  Do
+ ...Set LegacyTRANSP = ##class(BL.Legacy.TRANSP).%New()
+ ...Do LegacyTRANSP.ZetRemboursBedragVoorBon(BONNr,KLNr,"") 
+ ...Set RemboursVoorBon = LegacyTRANSP.GeefRemboursBedragVoorBon(BONNr,KLNr)
+ ...Do:(RemboursVoorBon>0) LegacyTRANSP.ZetRemboursBedragVoorBon(BONNr,KLNr,RemboursVoorBon) 
+ ...Set Rembours=Rembours+RemboursVoorBon
  ..Set R=^KUL(KLNr,Node,BONNr,1),Gewicht=Gewicht+$J($P($P(R,D,13),"#",3),0,1)
  .If Rembours>0,'##class(CHUI.Flow.Cons.Transport).CheckMaximumRembours(VervRef,GroepNr,Rembours,1) Kill Bons Merge Bons=TempBons,ColList=TempColList Quit
  .Do:$P(sFL(1),D,2,3)'=(Rembours_D_Gewicht)
@@ -326,8 +352,8 @@
  ..If '$$CHKMENU(Menu,Type,"O"),'$$CHKMENU(Menu,Type,"T") Set Ok=0
  .Else  Do
  ..Set VervRef=$P(R,D,21),TranspNr=$P(R,D),Status=$P(R,D,2),R=$G(^TRANSP("T",TranspNr)),Items=$P(R,D,4)
- ..If Type="F",Status="T",Aktie="VR",TranspNr=5036 Quit  ; Herprint vervoerlijst ABX
- ..If Type="F",Status="T",Aktie="RS",TranspNr=5036 Quit  ; Herzenden vervoerlijst ABX
+ ..If Type="F",Status="T",Aktie="VR",##class(DOM.TRANSP.impl.DataM.DataMTransportAPI).%New().IsGLS(TranspNr) Quit  ; Herprint vervoerlijst ABX
+ ..If Type="F",Status="T",Aktie="RS",##class(DOM.TRANSP.impl.DataM.DataMTransportAPI).%New().IsGLS(TranspNr) Quit  ; Herzenden vervoerlijst ABX
  ..Set:Items="" Items="O#T#E" Set Items="#"_Items_"#"
  ..Set:Ophalen Items=$P(Items,"O#")_$P(Items,"O#",2) Set:Transfer Items=$P(Items,"T#")_$P(Items,"T#",2)
  ..If Items[("#"_Aktie_"#") Quit:Aktie'="E"  Quit:'$$ISPRINT^TRANSPL(VervRef)
@@ -336,7 +362,7 @@
  .Set R=$G(^HULP(%J,SelClose("SELECT")))
  .If R="" Set Ok=0 Quit
  .Set VervRef=$P(R,D,21),TranspNr=$P(R,D),Status=$P(R,D,2),R=$G(^TRANSP("T",TranspNr)),Items=$P(R,D,4)
- .If Type="F",Status="T",Aktie="VRX",TranspNr'=5036 Quit  ; Herprint vervoerlijst andere dan ABX
+ .If Type="F",Status="T",Aktie="VRX",'##class(DOM.TRANSP.impl.DataM.DataMTransportAPI).%New().IsGLS(TranspNr) Quit  ; Herprint vervoerlijst andere dan ABX
  .Set Ok=0
  Quit Ok
  ;
@@ -494,7 +520,7 @@
  New R,VervRef,GroepNr,TranspNr
  Set R=$$GETREFS(BONNr),VervRef=$P(R,";"),GroepNr=$P(R,";",2)
  Set R=^TRANSP("D",VervRef),TranspNr=$P(R,D)
- Do @("RPLGRP"_$S(TranspNr=5036:"",1:"^TRANSPX")_"(VervRef,GroepNr)")
+ Do @("RPLGRP"_$S(##class(DOM.TRANSP.impl.DataM.DataMTransportAPI).%New().IsGLS(TranspNr):"",1:"^TRANSPX")_"(VervRef,GroepNr)")
  Quit
  ;
 LOCK(VervRef,GroepNr) 
@@ -557,7 +583,8 @@
  ..Set Taal=$P(R,D,9) Set:Taal="" Taal="N"
  ..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)=$E(NewVerzW,1,2))
+ .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
@@ -678,19 +705,22 @@
  New R,Paletten,ExtraPaletten,GroepNr
  Set R=^TRANSP("D",VervRef),ExtraPaletten=$P(R,D,14),GroepNr="",Paletten=0
  For  Set GroepNr=$O(^TRANSP("D",VervRef,"D",GroepNr)) Quit:GroepNr=""  Do
- . Set Paletten=Paletten+$G(^TRANSP("D",VervRef,"D",GroepNr,"Q","E"))
+ . Set Paletten=Paletten+$G(^TRANSP("D",VervRef,"D",GroepNr,"Q","E")) + $G(^TRANSP("D",VervRef,"D",GroepNr,"Q","W")) 
  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
- Set R=^TRANSP("D",VervRef),ExtraPaletten=$P(R,D,14),GroepNr="",(Paletten,Collie,Langgoed,KleinePaletten)=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"))
- Quit Paletten_";"_ExtraPaletten_D_Collie_D_Langgoed_D_KleinePaletten
+ . Set BuitenmaatsePaletten=BuitenmaatsePaletten+$G(^TRANSP("D",VervRef,"D",GroepNr,"Q","B"))
+ Quit Paletten _";"_ WWPaletten_";"_ExtraPaletten_D_Collie_D_Langgoed_D_KleinePaletten_D_BuitenmaatsePaletten
  ;
  ; Importeren van de ABX regios
 ImportABX
@@ -778,6 +808,3 @@
 IsBonMetEnkelVerwijzingNaarLeveradres(Node3VanBon)
  Quit '$$IsBonMetEigenLeveradres(Node3VanBon) && (+$P(Node3VanBon,D)>=1)
  ;
-
-
-