Index: BL/PPS/TBX/DocsV1.cls.xml
===================================================================
diff -u -r62214 -r75040
--- BL/PPS/TBX/DocsV1.cls.xml	(.../DocsV1.cls.xml)	(revision 62214)
+++ BL/PPS/TBX/DocsV1.cls.xml	(.../DocsV1.cls.xml)	(revision 75040)
@@ -96,7 +96,7 @@
 </Property>
 
 <Property name="LogoBepaler">
-<Type>BL.PPS.common.impl.OnderdelendoosLogoBepaler</Type>
+<Type>BL.Flow.Levering.LabelLogoBepaler</Type>
 <Private>1</Private>
 </Property>
 
@@ -165,13 +165,23 @@
 <Private>1</Private>
 </Property>
 
+<Property name="ProboxInhoudEtiketGenerator">
+<Type>BL.PPS.TBX.DocsV1.ProboxInhoudEtiketGenerator</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="ProboxBarcodeEtiketGenerator">
+<Type>BL.PPS.TBX.DocsV1.ProboxBarcodeEtiketGenerator</Type>
+<Private>1</Private>
+</Property>
+
 <Property name="Printer">
 <Type>%String</Type>
 <Private>1</Private>
 </Property>
 
 <Method name="%OnNew">
-<FormalSpec>LabelPrinter:BL.Sys.LabelPrinter="",BatchService:APPS.Halux.common.BatchService="",ProductieSequentieRepository:APPS.Halux.common.ProductieSequentieRepository="",ToeleveringService:DOM.AKP.ToeleveringService,LogoBepaler:BL.PPS.common.impl.OnderdelendoosLogoBepaler,ProductieService:APPS.Halux.common.ProductieService=""</FormalSpec>
+<FormalSpec>LabelPrinter:BL.Sys.LabelPrinter="",BatchService:APPS.Halux.common.BatchService="",ProductieSequentieRepository:APPS.Halux.common.ProductieSequentieRepository="",ToeleveringService:DOM.AKP.ToeleveringService,LogoBepaler:BL.Flow.Levering.LabelLogoBepaler,ProductieService:APPS.Halux.common.ProductieService=""</FormalSpec>
 <Private>1</Private>
 <ProcedureBlock>1</ProcedureBlock>
 <ReturnType>%Status</ReturnType>
@@ -185,7 +195,9 @@
 	Set ..ProductAPI = ##class(DOM.DomeinContext).Instance().GeefProductAPI()
 	Set ..TBXMatToEnuMatConverter = ##class(BL.PPS.TBX.impl.TBXMatToEnuMatConverter).%New()
 	Set ..MatFormatter = ##class(APPS.Halux.PPS.impl.Formatter.Mat).%New()
-	Set ..LogoBepaler = $$$Inject(LogoBepaler, ##class(BL.PPS.common.impl.OnderdelendoosLogoBepaler).%New())
+	Set ..LogoBepaler = $$$Inject(LogoBepaler, ##class(BL.Flow.Levering.LabelLogoBepaler).%New())
+	Set ..ProboxInhoudEtiketGenerator = ##class(BL.PPS.TBX.DocsV1.ProboxInhoudEtiketGenerator).%New()
+	Set ..ProboxBarcodeEtiketGenerator = ##class(BL.PPS.TBX.DocsV1.ProboxBarcodeEtiketGenerator).%New()
 	Quit $$$OK
 ]]></Implementation>
 </Method>
@@ -455,6 +467,7 @@
 	Set Opmerking=""
 	Set PRNr=$P(Basis,"\",1)
 	Set DC=$LG(##class(Prod.Kenmerk.DataDefinitie).Get("TBX",PRNr,"DC")) ; Designcode
+	Set IB=$LG(##class(Prod.Kenmerk.DataDefinitie).Get("TBX",PRNr,"IB")) ; InterneBreedte
 	Set LD=$LG(##class(Prod.Kenmerk.DataDefinitie).Get("TBX",PRNr,"LD")) ; Ladediepte
 	Set LC=$LG(##class(Prod.Kenmerk.DataDefinitie).Get("TBX",PRNr,"LC")) ; LadeCode
 	Set KL=$LG(##class(Prod.Kenmerk.DataDefinitie).Get("TBX",PRNr,"KL")) ; Kleurlade
@@ -463,7 +476,8 @@
 	Set ZWH=$LG(##class(Prod.Kenmerk.DataDefinitie).Get("TBX",PRNr,"ZW")) ; Zijwandhoogte
 	Set IsSR=$LG(##class(Prod.Kenmerk.DataDefinitie).Get("TBX",PRNr,"IsSR")) ; Stalenrug
 	Set KL=KL_$CASE(DC,"S":"","B":"","I":"-A"_$S((ZWH)="L":"2",1:""),"MA":"-A",:"-"_DC)
- 
+ 	
+ 	If (IB < 275) Quit ""
 	If DK=25 Set DK="I"
 	Else  If DK=80 Set DK="80"
 	Else  Set DK=""
@@ -741,9 +755,17 @@
 	#dim Opmerking4 As %String = ""
 	#dim TBX As DOM.PM.TBXProduct.TBXLade = ..ProductAPI.GeefProduct(PRNr)
 
-	if (..BevatSynchro(TBX) || ..BevatTOBSynchroStang(TBX)) && $$$Not(..IsV1Verpakking(TBX)) {
-		Set Opmerking4 = "SYNCST" _"  " 
+	If (TBX.BevatDwarsverdeling()) {
+		Set Opmerking4 = Opmerking4 _ "DWV:" _ TBX.GeefAantalDwarsverdelingen() _"  " 
 	}
+	
+	If (TBX.BevatStabilisator()) {
+		Set Opmerking4 = Opmerking4 _ "ZIJSTB" _"  " 
+	}
+	
+	If (..BevatSynchro(TBX) || ..BevatTOBSynchroStang(TBX)) {
+		Set Opmerking4 = Opmerking4 _ "SYNCST" _"  " 
+	}
 
 	Quit Opmerking4
 ]]></Implementation>
@@ -930,7 +952,11 @@
 	Set RSTL=$LG(##class(Prod.Kenmerk.DataDefinitie).Get("TBX",PRNr,"RSTL")) ; Rug verlaagd
 	Set PlaatMat=$LG(##class(Prod.Kenmerk.DataDefinitie).Get("TBX",PRNr,"MATKL")) ; Materiaal gezaagd
 
-	Set RugPRNr=$P($G(^PRBS("BS",PRNr,"PRRUGHS.001")),"\",1)
+	If (##class(TECH.Config.ConfigMgr).Instance().GetBoolean("DOM.common.ProjectSettingsApi_IsActiefBomBolOmleidingTbxNaarDotNet")) {
+		Set RugPRNr=$P($G(^PRBS("BS",PRNr,"RUGX.001")),"\",1)
+	} Else {
+		Set RugPRNr=$P($G(^PRBS("BS",PRNr,"PRRUGHS.001")),"\",1)
+	}
 	Set:RugPRNr?4.7N RH=$LG(##class(Prod.Kenmerk.DataDefinitie).Get("TB",RugPRNr,"RugHoogte")) ; Werkelijke hoogte van de rug
 
 	Set BodemPRNr=$P($G(^PRBS("BS",PRNr,"PRBDHO.001")),"\",1)
@@ -1180,20 +1206,56 @@
 	Set SamengesteldeLijst = ##class(APPS.Halux.PPS.dto.UitvoeringInfoLijst).%New()
 	#dim SamengesteldeLijstIterator AS TECH.ListIterator = ##class(TECH.ListIterator).%New(SamengesteldeLijst)
 	#dim LijstAantallen As %ListOfDataTypes = ##class(%ListOfDataTypes).%New("")
-		
+	
+	//Berekenen en schrijven van property TotaalAantalMattenInToelevering
 	#dim UitvoeringLijstIterator AS TECH.ListIterator = ##class(TECH.ListIterator).%New(UitvoeringInfoLijst)
+	#dim HuidigeMat, VorigeMat As APPS.Halux.PPS.Activiteit.impl.common.dto.MattenUitvoeringInfo = ""
+	#dim AantalMattenVoorDezeToelevering As %Integer = 0
+	while UitvoeringLijstIterator.HasNext() {
+		#dim Object = UitvoeringLijstIterator.Next()
+		#dim Batch As APPS.Halux.common.Batch = ##class(APPS.ApplicatieContext).Instance().GeefProductieAPI().GeefBatchService().GeefBatch(Object.BatchID)
+		Set HuidigeMat = Object
+		
+		If ($IsObject(Object) && (Object.%ClassName(1)="APPS.Halux.PPS.Activiteit.impl.common.dto.MattenUitvoeringInfo")) {
+			If ((VorigeMat = "") || ($Piece(VorigeMat.ToeDos, ":",1) = $Piece(HuidigeMat.ToeDos, ":",1))) {
+				Set AantalMattenVoorDezeToelevering = AantalMattenVoorDezeToelevering + HuidigeMat.Aantal
+			}
+			
+			If ($$$Not(VorigeMat = "") && $$$Not($Piece(VorigeMat.ToeDos, ":",1) = $Piece(HuidigeMat.ToeDos, ":",1))) {
+				If $$$Not(Batch.GeefProductieGroep() = ##class(APPS.Halux.common.enu.ProductieGroep).Kast()) { //Sequentie is anders bij vhoss dan bij andere groepen, daardoor kunnen totalen niet met dezelfde logica worden opgeteld.
+					Set VorigeMat.TotaalAantalMattenInToelevering = AantalMattenVoorDezeToelevering
+				} Else {
+					Set VorigeMat.TotaalAantalMattenInToelevering = ""
+				}
+				Set AantalMattenVoorDezeToelevering = HuidigeMat.Aantal
+			}
+			Set VorigeMat = HuidigeMat
+		}
+	}
+	
+	If $IsObject(VorigeMat) {
+		If $$$Not(Batch.GeefProductieGroep() = ##class(APPS.Halux.common.enu.ProductieGroep).Kast()) { //Sequentie is anders bij vhoss dan bij andere groepen, daardoor kunnen totalen niet met dezelfde logica worden opgeteld.
+			Set VorigeMat.TotaalAantalMattenInToelevering = AantalMattenVoorDezeToelevering
+		} Else {
+			Set VorigeMat.TotaalAantalMattenInToelevering = ""
+		}
+	}	
+	Set UitvoeringLijstIterator = ##class(TECH.ListIterator).%New(UitvoeringInfoLijst)
+	
+	//Matten met zelfde dimensies groeperen
 	while UitvoeringLijstIterator.HasNext() {		
 		#dim Mat As APPS.Halux.PPS.Activiteit.impl.common.dto.MattenUitvoeringInfo= UitvoeringLijstIterator.Next()			
 		#dim OvereenkomstigeMatGevonden As %Boolean = $$$False
-		#dim Batch As APPS.Halux.common.Batch = ..BatchService.GeefBatch(Mat.BatchID)
+		Set Batch = ..BatchService.GeefBatch(Mat.BatchID)
 		If ( $IsObject(Mat) && ((..IsProductiegroepKastOfPallet(Batch)) || (..IsProductiegroepProbox(Batch))) && (Mat.%ClassName(1)="APPS.Halux.PPS.Activiteit.impl.common.dto.MattenUitvoeringInfo")   ){
 			Do LijstAantallen.Insert(Mat.Aantal)
 			while (SamengesteldeLijstIterator.HasNext() & $$$Not(OvereenkomstigeMatGevonden)){			
 				#dim Mat2 As APPS.Halux.PPS.Activiteit.impl.common.dto.MattenUitvoeringInfo= SamengesteldeLijstIterator.Next()
 				If ((Mat.ToeDos = Mat2.ToeDos) &&(Mat.Diepte = Mat2.Diepte) && (Mat.Breedte = Mat2.Breedte) && (Mat.MateriaalId = Mat2.MateriaalId) && (Mat.KleurId = Mat2.KleurId) && (Mat.BewerkingBreedte = Mat2.BewerkingBreedte) && (Mat.BewerkingDiepte = Mat2.BewerkingDiepte)){
 					Set OvereenkomstigeMatGevonden = $$$True
-					Set Mat2.Aantal= Mat2.Aantal+Mat.Aantal					
-					}
+					Set Mat2.Aantal = Mat2.Aantal + Mat.Aantal	
+					Set Mat2.TotaalAantalMattenInToelevering = Mat.TotaalAantalMattenInToelevering
+				}
 			}		
 			If (SamengesteldeLijst.Count()=0 || $$$Not(OvereenkomstigeMatGevonden)){
 				Do SamengesteldeLijst.Insert(Mat)
@@ -1218,22 +1280,70 @@
 	}
 	else {
 		Do:UitvoeringInfoLijst.Count() Afdrukker.VerwerkUitvoeringInfoLijst(UitvoeringInfoLijst,ActiviteitParameters)	
-		}
+	}
 		
 	Quit MatCnt
 ]]></Implementation>
 </Method>
 
+<Method name="ZetTotaalAantalMattenPerToelevering">
+<FormalSpec>UitvoeringLijstIterator:TECH.ListIterator</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	#dim HuidigeMat, VorigeMat As APPS.Halux.PPS.Activiteit.impl.common.dto.MattenUitvoeringInfo = ""
+	#dim AantalMattenVoorDezeToelevering As %Integer = 0
+	while UitvoeringLijstIterator.HasNext() {
+		#dim Object = UitvoeringLijstIterator.Next()
+		Set HuidigeMat = Object
+		
+		If ($IsObject(Object) && (Object.%ClassName(1)="APPS.Halux.PPS.Activiteit.impl.common.dto.MattenUitvoeringInfo")) {
+			If ((VorigeMat = "") || ($Piece(VorigeMat.ToeDos, ":",1) = $Piece(HuidigeMat.ToeDos, ":",1))) {
+				Set AantalMattenVoorDezeToelevering = AantalMattenVoorDezeToelevering + HuidigeMat.Aantal
+			}
+			
+			If ($$$Not(VorigeMat = "") && $$$Not($Piece(VorigeMat.ToeDos, ":",1) = $Piece(HuidigeMat.ToeDos, ":",1))) {
+				Set VorigeMat.TotaalAantalMattenInToelevering = AantalMattenVoorDezeToelevering
+				Set AantalMattenVoorDezeToelevering = HuidigeMat.Aantal
+			}
+			Set VorigeMat = HuidigeMat
+		}
+	}
+	
+	If $IsObject(VorigeMat) {
+		Set VorigeMat.TotaalAantalMattenInToelevering = AantalMattenVoorDezeToelevering
+	}
+]]></Implementation>
+</Method>
+
+<Method name="GeefLijstVanToeleveringNummersVanMattenlijst">
+<FormalSpec>SamengesteldeLijstIterator:TECH.ListIterator</FormalSpec>
+<Private>1</Private>
+<ReturnType>%ListOfDataTypes</ReturnType>
+<Implementation><![CDATA[
+	Set LijstVanToeleveringen = ##class(%ListOfDataTypes).%New()
+	#dim Mat As APPS.Halux.PPS.Activiteit.impl.common.dto.MattenUitvoeringInfo
+	
+	While SamengesteldeLijstIterator.HasNext() {
+		Set Mat = SamengesteldeLijstIterator.Next()
+		
+		If $$$Not(##class(TECH.ListUtils).Contains(LijstVanToeleveringen, Mat.ToeleveringID)) {
+			Do LijstVanToeleveringen.Insert(Mat.ToeleveringID)
+		}
+	}
+	
+	Quit LijstVanToeleveringen
+]]></Implementation>
+</Method>
+
 <Method name="MatOneUitvoeringInfo">
 <FormalSpec>TBXQueue:DS.PPS.TBX.Queue</FormalSpec>
-<Private>1</Private>
 <ReturnType>APPS.Halux.PPS.Activiteit.impl.common.dto.MattenUitvoeringInfo</ReturnType>
 <Implementation><![CDATA[
 	#dim PRNr As %String = TBXQueue.ProductGetObjectId()
 	#dim ASM As %String = $S($LG(##class(Prod.Kenmerk.DataDefinitie).Get("TBX",PRNr,"NMASM")):"",1:$LG(##class(Prod.Kenmerk.DataDefinitie).Get("TBX",PRNr,"ASM"))) ; Antislipmat
 	quit:0[ASM ""
 
-	#dim Dim,IsSR,KLAS,KPRNr,LD,MatOpties,Opmerking,Rec,Type As %CacheString
+	#dim Dim,IsSR,KLAS,KPRNr,LD,IB,MatOpties,Opmerking,Rec,Type As %CacheString
 	
 	Set KPRNr=$P($G(^PRBS("BS",PRNr,"PRASM.001")),"\",1)
 	If KPRNr Do
@@ -1249,9 +1359,14 @@
 	. . If KPRNr  Do
 	. . . Set Dim=$P($G(^PRBS("BS",PRNr,"PRASMROL.001","D")),"\")
 	. . . Set Opmerking=""
+	. . Else  Do ; Mat nadat bombol via DotNet gaat
+	. . . Set KPRNr=$P($G(^PRBS("BS",PRNr,"MAT.001")),"\",1)
+	. . . If KPRNr  Do
+	. . . . Set Dim=$P($G(^PRBS("BS",PRNr,"MAT.001","D")),"\")
+	. . . . Set Opmerking=""
 	
 	Set LD=$LG(##class(Prod.Kenmerk.DataDefinitie).Get("TBX",PRNr,"LD")) ; Ladediepte
-	
+	Set IB=$LG(##class(Prod.Kenmerk.DataDefinitie).Get("TBX",PRNr,"IB")) ; InterneBreedte	
 	Set IsSR=$LG(##class(Prod.Kenmerk.DataDefinitie).Get("TBX",PRNr,"IsSR")) ; Stalenrug
 	Set KLAS=$LG(##class(Prod.Kenmerk.DataDefinitie).Get("TBX",PRNr,"KLAS")) ; Klasse (Spoelbak, Lade, ...)
 	
@@ -1262,28 +1377,45 @@
 	
 	Set $E(Opmerking,1,2)=""
 	
+	#dim ProductId As DOM.common.ProductID = TBXQueue.ProductGetObjectId()
+	#dim Product As DOM.PM.Product = ..ProductAPI.GeefProduct(ProductId)
 
-	set MattenUitvoeringInfo = ##class(APPS.Halux.PPS.Activiteit.impl.common.dto.MattenUitvoeringInfo).%New() 
-	set MattenUitvoeringInfo.BatchID = ..BatchID
-	set MattenUitvoeringInfo.ProductID = TBXQueue.ProductGetObjectId()
-	set MattenUitvoeringInfo.ToeleveringID = TBXQueue.TOENr
+	Set MattenUitvoeringInfo = ##class(APPS.Halux.PPS.Activiteit.impl.common.dto.MattenUitvoeringInfo).%New() 
+	Set MattenUitvoeringInfo.BatchID = ..BatchID
+	Set MattenUitvoeringInfo.ProductID = ProductId
+	Set MattenUitvoeringInfo.ToeleveringID = TBXQueue.TOENr
+	Set MattenUitvoeringInfo.SequentieNummer = TBXQueue.Sequence
+	Set MattenUitvoeringInfo.DossierCode = Product.GeefDossierNr()
+	
 	#dim Batch As APPS.Halux.common.Batch = ..BatchService.GeefBatch(..BatchID)
 	If ($$$Not(..IsProductiegroepStuk(Batch)) && ($$$Not(..IsProductiegroepFlatpackV1(Batch)))){
 		set MattenUitvoeringInfo.ToeDos = $Extract(TBXQueue.TOENr,3,6)
 	}
 	else {
 		set MattenUitvoeringInfo.ToeDos = $Extract(TBXQueue.TOENr,3,6)_":"_TBXQueue.DOSNr
 	}
-	set MattenUitvoeringInfo.Aantal = TBXQueue.TotaalAantal
+	Set MattenUitvoeringInfo.Aantal = TBXQueue.TotaalAantal
 	
-	set MattenUitvoeringInfo.Breedte = ..ProductAPI.GeefProductKenmerkDataDefinitie("MAT_SEL_Mat", KPRNr, "Breedte")
-	set MattenUitvoeringInfo.Diepte = ..ProductAPI.GeefProductKenmerkDataDefinitie("MAT_SEL_Mat", KPRNr, "Diepte")
+	Set MattenUitvoeringInfo.Breedte = ..ProductAPI.GeefProductKenmerkDataDefinitie("MAT_SEL_Mat", KPRNr, "Breedte")
+	Set MattenUitvoeringInfo.Diepte = ..ProductAPI.GeefProductKenmerkDataDefinitie("MAT_SEL_Mat", KPRNr, "Diepte")
 	
-	set MattenUitvoeringInfo.BewerkingBreedte = Dim
-	set MattenUitvoeringInfo.BewerkingDiepte = LD-27
-	set MattenUitvoeringInfo.MateriaalId = ..TBXMatToEnuMatConverter.GeefMateriaal($LG(##class(Prod.Kenmerk.DataDefinitie).Get("TB",KPRNr,"Kleur")))
-	set MattenUitvoeringInfo.KleurId = ..TBXMatToEnuMatConverter.GeefKleur($LG(##class(Prod.Kenmerk.DataDefinitie).Get("TB",KPRNr,"Kleur")))
- 	quit MattenUitvoeringInfo
+	Set MattenUitvoeringInfo.BewerkingBreedte = IB-85
+	Set MattenUitvoeringInfo.BewerkingDiepte = LD-27
+	
+	#dim MateriaalId As %String = ..ProductAPI.GeefProductKenmerkDataDefinitie("MAT_SEL_Mat", KPRNr, "Materiaal")
+	
+	Set MattenUitvoeringInfo.MateriaalId = MateriaalId
+	If MateriaalId = ##class(DOM.PM.enu.MATMateriaal).Antislip() {
+		Set MattenUitvoeringInfo.Materiaal = "AGO"
+	} Else{
+		Set MattenUitvoeringInfo.Materiaal = ##class(DOM.PM.enu.MATMateriaal).LogicalToDisplay(MateriaalId)
+	}
+	
+	#dim KleurId = ..ProductAPI.GeefProductKenmerkDataDefinitie("MAT_SEL_Mat", KPRNr, "Kleur")
+	Set MattenUitvoeringInfo.KleurId = KleurId
+	Set MattenUitvoeringInfo.Kleur = ##class(DOM.PM.enu.MATKleur).LogicalToDisplay(KleurId)
+
+ 	Quit MattenUitvoeringInfo
 ]]></Implementation>
 </Method>
 
@@ -1368,6 +1500,8 @@
 	
 	Quit:..IsSpoel(PRNr) 0 ; spoelbak laden worden apart verwerkt
 	
+	Set StdProd=$G(^PRBS("BS",PRNr,"MAT.001"))
+	Quit:($L(StdProd)&&(##class(TECH.Config.ConfigMgr).Instance().GetBoolean("DOM.common.ProjectSettingsApi_IsActiefBomBolOmleidingTbxNaarDotNet"))) 1	
 	Set StdProd=$G(^PRBS("BS",PRNr,"PRASM.001"))
 	Quit:$L(StdProd) 1
 	Set StrkProd=$G(^PRBS("BS",PRNr,"PRASMSTRK.001"))
@@ -1445,6 +1579,16 @@
 <FormalSpec>KlantNr:%String</FormalSpec>
 <ReturnType>%String</ReturnType>
 <Implementation><![CDATA[
+	try {
+		if $length(KlantNr) {
+			if ##class(TECH.StringUtils).StartsWith(KlantNr, "K||"){
+				Set KlantNr = ##class(DOM.PARTIJ.impl.LegacyPartijAPI).%New().GeefKlantNummerVoorPartijID(KlantNr)
+			}
+		}
+	} catch {
+		#dim Exception As TECH.Exceptions.Exception = ##class(TECH.ExceptionHandler).Catch()
+	}
+	
 	if $length(KlantNr) && ($data(^IPCom("CS","LOGO"_KlantNr,0))) set Logo ="LOGO\"_^IPCom("CS","LOGO"_KlantNr,0)
  	else  set Logo ="LOGO\"_^IPCom("CS","LOGO"_4682,0) ; default Van Hoecke
 	quit Logo
@@ -1508,14 +1652,16 @@
 
 <Method name="ProboxOverdoosEtiketten">
 <Implementation><![CDATA[
-	#dim itToeleveringen As TECH.Iterator = ..Batch.GeefToeleveringIterator()
-	while itToeleveringen.HasNext() {
-		#dim Toelevering As DOM.AKP.Toelevering = itToeleveringen.Next()
-	    #dim Aantal As %Integer = ..BepaalAantalOverdoosEtiketten(Toelevering)
-        // aantal etiketten wordt misbruikt om al dat niet te moeten printen
-		If (Aantal > 0) { 
-			Do ..ProboxOverdoosEtiket(Toelevering)
-			Hang 5
+	If (..MagProboxOverdoosEtiketAfdrukken()) {
+		#dim itToeleveringen As TECH.Iterator = ..Batch.GeefToeleveringIterator()	
+		while itToeleveringen.HasNext() {
+			#dim Toelevering As DOM.AKP.Toelevering = itToeleveringen.Next()
+		    #dim Aantal As %Integer = ..BepaalAantalOverdoosEtiketten(Toelevering)
+	        // aantal etiketten wordt misbruikt om al dat niet te moeten printen
+			If (Aantal > 0) { 
+				Do ..ProboxOverdoosEtiket(Toelevering)
+				Hang 5
+			}
 		}
 	}
 ]]></Implementation>
@@ -1524,7 +1670,7 @@
 <Method name="ProboxOverdoosEtiket">
 <FormalSpec>Toelevering:DOM.AKP.Toelevering</FormalSpec>
 <Implementation><![CDATA[
- 	Do ..blLabelPrinter.Clear()
+	Do ..blLabelPrinter.Clear()
  	
 	#dim i As %Integer
     #dim Aantal As %Integer = ..BepaalAantalOverdoosEtiketten(Toelevering) + 2 // Er werden te weinig probox overdoos etiketten aangemaakt => 2 erbij
@@ -1573,68 +1719,97 @@
 ]]></Implementation>
 </Method>
 
+<Method name="MagProboxOverdoosEtiketAfdrukken">
+<Private>1</Private>
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[
+	#dim MagAfdrukken As %Boolean = $$$True
+	#dim Type As %String = ..Batch.GeefCategorie()
+
+	If $$$Not(Type = "") {
+		If (##class(TECH.StringUtils).Equals(Type, ##class(APPS.Halux.common.enu.Categorie).Legrabox())) {
+			Set MagAfdrukken = ##class(DOM.DomeinContext).Instance().GeefProjectSettingsAPI().IsActiefLbxProboxOverdoosEtiketAfdrukken()
+		}
+		ElseIf (##class(TECH.StringUtils).Equals(Type, ##class(APPS.Halux.common.enu.Categorie).Merivobox())) {
+			Set MagAfdrukken = ##class(DOM.DomeinContext).Instance().GeefProjectSettingsAPI().IsActiefMvxProboxOverdoosEtiketAfdrukken()
+		} 
+		ElseIf (##class(TECH.StringUtils).Equals(Type, ##class(APPS.Halux.common.enu.Categorie).TAORbox())) {
+			Set MagAfdrukken = ##class(DOM.DomeinContext).Instance().GeefProjectSettingsAPI().IsActiefTaxProboxOverdoosEtiketAfdrukken()
+		} 
+		ElseIf (##class(TECH.StringUtils).Equals(Type, ##class(APPS.Halux.common.enu.Categorie).Tandembox())) {
+			Set MagAfdrukken = ##class(DOM.DomeinContext).Instance().GeefProjectSettingsAPI().IsActiefTbxProboxOverdoosEtiketAfdrukken()
+		} 
+	}
+	
+	Quit MagAfdrukken
+]]></Implementation>
+</Method>
+
 <Method name="ProboxInhoudEtiket">
 <FormalSpec>DnaCodeIterator:TECH.Iterator</FormalSpec>
 <Implementation><![CDATA[
- 	Quit:$$$Not(DnaCodeIterator.HasNext())
- 	
  	Do ..blLabelPrinter.Clear()
-	
-	#dim DnaCode As DOM.Halux.AAP.DnaCode
-	Set DnaCode = DnaCodeIterator.Next()
-	Do DnaCodeIterator.Reset()
-	
-	#dim PalletId As %String = DnaCode.PalletCode
-	#dim ToeleveringId As %String = DnaCode.Toelevering
-	#dim KlantNummer As %String = DnaCode.KlantNummer
-	#dim Partij As DOM.PARTIJ.Partij = ##class(DOM.DomeinContext).Instance().GeefPartijAPI().GeefPartij(DnaCode.KlantNummer)
-	
- 	Set ProboxInhoudLabel = ##class(BL.Etiket.ProboxOverdoosInhoud).%New()
- 	Set ProboxInhoudLabel.Device = ..LabelDevice
+ 	#dim ProboxInhoudLabel As BL.Etiket.ProboxInhoud = ..ProboxInhoudEtiketGenerator.GenereerProboxInhoudEtiket(DnaCodeIterator, ..LabelDevice)
+ 	Do DnaCodeIterator.Reset()
+ 	#dim ProboxInhoudLabelVervolgEtiket As BL.Etiket.ProboxInhoud = ..ProboxInhoudEtiketGenerator.GenereerProboxInhoudEtiket(DnaCodeIterator, ..LabelDevice, $$$True)
  	
- 	Set ProboxInhoudLabel.Aantal = 1
- 	Set ProboxInhoudLabel.KlantNaam = Partij.GeefNaam()
- 	Set ProboxInhoudLabel.InhoudAlsHTML = ##class(BL.PPS.TBX.DocsV1.HtmlInhoudProboxEtiketBepaler).%New().BepaalHtmlInhoudProboxEtiket(DnaCodeIterator)
- 	Set ProboxInhoudLabel.PalletBarcode = PalletId
- 	Set ProboxInhoudLabel.PalletBarcodeTxt = ..FormatteerPalletID(PalletId)
-
- 	Set ProboxInhoudLabel.Logo = ..GeefEtiketLogo(KlantNummer)
- 	
  	Do ..blLabelPrinter.Add(ProboxInhoudLabel)
+ 	If $$$Not(ProboxInhoudLabelVervolgEtiket = "") {
+ 		Do ..blLabelPrinter.Add(ProboxInhoudLabelVervolgEtiket)
+ 	}
  	
 	Do ..blLabelPrinter.Print2Bartender()
 ]]></Implementation>
 </Method>
 
-<Method name="ProboxOverdoosInhoudEtiket">
-<FormalSpec>bfrRGID:%String,bfrVolgNr:%String</FormalSpec>
+<Method name="ProboxBarcodeEtiketten">
+<FormalSpec>DnaCodeIterator:TECH.Iterator</FormalSpec>
 <Implementation><![CDATA[
  	Do ..blLabelPrinter.Clear()
-	
-	#dim PalletId As %String = $Piece(^UPRCP("B",bfrRGID,bfrVolgNr,1),"\",3)
-	#dim ToeleveringId As %String = $Piece(^UPRCP("B",bfrRGID,bfrVolgNr,1),"\",8)
-	#dim ToeleveringAPI As DOM.AKP.ToeleveringAPI = ##class(DOM.DomeinContext).Instance().GeefToeleveringAPI()
-	#dim Toelevering As DOM.AKP.Toelevering = ToeleveringAPI.GeefToelevering(ToeleveringId)
-	#dim Partij As DOM.PARTIJ.Partij = ##class(DOM.DomeinContext).Instance().GeefPartijAPI().GeefPartij(Toelevering.GeefKlantID())
-	
- 	Set ProboxOverdoosInhoudLabel = ##class(BL.Etiket.ProboxOverdoosInhoud).%New()
- 	Set ProboxOverdoosInhoudLabel.Device = ..LabelDevice
+ 	#dim ProboxBarcodeLabelIterator As TECH.Iterator = ..ProboxBarcodeEtiketGenerator.GenereerProboxBarcodeEtiketIterator(DnaCodeIterator, ..LabelDevice)
+ 	#dim ProboxBarcodeLabel As BL.Etiket.ProboxBarcode
  	
- 	Set ProboxOverdoosInhoudLabel.Aantal = 1
- 	Set ProboxOverdoosInhoudLabel.KlantNaam = Partij.GeefNaam()
- 	Set ProboxOverdoosInhoudLabel.InhoudAlsHTML = ##class(BL.PPS.TBX.DocsV1.HtmlInhoudProboxOverdoosEtiketBepaler).%New().BepaalHtmlInhoudProboxOverdoosEtiket(bfrRGID,bfrVolgNr)
- 	Set ProboxOverdoosInhoudLabel.PalletBarcode = PalletId
- 	Set ProboxOverdoosInhoudLabel.PalletBarcodeTxt = ..FormatteerPalletID(PalletId)
-
-	#dim KlantNummer As %String = ##class(DOM.DomeinContext).Instance().GeefLegacyPartijAPI().GeefKlantNummerVoorPartijID(Toelevering.GeefKlantID())
- 	Set ProboxOverdoosInhoudLabel.Logo = ..GeefEtiketLogo(KlantNummer)
+ 	While ProboxBarcodeLabelIterator.HasNext() {
+	 	Set ProboxBarcodeLabel = ProboxBarcodeLabelIterator.Next()
+	 	Do ..blLabelPrinter.Add(ProboxBarcodeLabel)
+ 	}
  	
- 	Do ..blLabelPrinter.Add(ProboxOverdoosInhoudLabel)
- 	
+ 	Do ..blLabelPrinter.Print2Bartender()
+]]></Implementation>
+</Method>
+
+<Method name="VRDDueOutEtiket">
+<FormalSpec>Dag:%String,Maand:%String,LabelPrinter:%String,Aantal:%Integer=1,BONNr:%String=""</FormalSpec>
+<Implementation><![CDATA[
+ 	Do ..blLabelPrinter.Clear()
+ 	Set VRDDueOutLabel = ##class(BL.Etiket.VRDDueOut).%New()
+ 	Set VRDDueOutLabel.Dag = Dag
+ 	Set VRDDueOutLabel.Maand = Maand
+ 	Set VRDDueOutLabel.Device = LabelPrinter
+ 	Set VRDDueOutLabel.BONNr = BONNr
+ 	for i=1:1:Aantal {
+	 	Do ..blLabelPrinter.Add(VRDDueOutLabel)
+ 	}
 	Do ..blLabelPrinter.Print2Bartender()
 ]]></Implementation>
 </Method>
 
+<Method name="VRDDueOutA4Etiket">
+<FormalSpec>Dag:%String,Maand:%String,LabelPrinter:%String,Aantal:%Integer=1,BONNr:%String=""</FormalSpec>
+<Implementation><![CDATA[
+ 	Do ..blLabelPrinter.Clear()
+ 	Set VRDDueOutLabel = ##class(BL.Etiket.VRDDueOutA4).%New()
+ 	Set VRDDueOutLabel.Dag = Dag
+ 	Set VRDDueOutLabel.Maand = Maand
+ 	Set VRDDueOutLabel.Device = LabelPrinter
+ 	Set VRDDueOutLabel.BONNr = BONNr
+ 	for i=1:1:Aantal {
+	 	Do ..blLabelPrinter.Add(VRDDueOutLabel)
+ 	}
+	Do ..blLabelPrinter.Print2Bartender()
+]]></Implementation>
+</Method>
+
 <Method name="BepaalAantalOverdoosEtiketten">
 <Description>
 Bepaalt het volume-aandeel van de probox-laden</Description>
@@ -1774,7 +1949,7 @@
 
 <Method name="FormatteerPalletID">
 <FormalSpec>PalletID:%String</FormalSpec>
-<Implementation><![CDATA[	quit $extract(PalletID,1,4)_" "_$extract(PalletID,5,8) ; formatering "AAAA AAAA"
+<Implementation><![CDATA[	quit $extract(PalletID,1,4)_" "_$extract(PalletID,5,9) ; formatering "AAAA AAAA"
 ]]></Implementation>
 </Method>
 
@@ -1901,6 +2076,7 @@
 	#dim OrderID As %String = Toelevering.GeefOrderID()
 	
 	#dim Klant As DOM.VKP.VanHoeckeKlant = ..ToeleveringService.GeefKlant(TOENr)
+	#dim KlantNummer As %Integer = Klant.GeefCode()
 	
 	Set pxLabel=##class(BL.PPS.TBX.sub.pxCommissie).%New()
 	
@@ -1910,13 +2086,14 @@
 		Set pxLabel.Device = ..#LabelPrinter
 	}
 	Set pxLabel.Layout =..#LabelExtraCommissie
-	Set pxLabel.Logo = ..LogoBepaler.GeefLogo(Klant)
+	Set pxLabel.Logo = ..LogoBepaler.GeefLogo(Toelevering.GeefOorsprongKetting(), KlantNummer)
     Set pxLabel.KlantNaam = Klant.GeefNaam()
     Set pxLabel.CommissieRef = ..CommissieRef(Klant.GeefCode(),OrderID)
     Set pxLabel.OrderNr = OrderID
     Set pxLabel.TOENr = TOENr
     Set pxLabel.Aantal = Aantal
     Set pxLabel.Titel = Titel
+    set pxLabel.BatchNr = ..BatchID
 	Quit pxLabel
 ]]></Implementation>
 </Method>