Index: vhUnitTest/APPS/Halux/PPS/Activiteit/impl/TAOR/LijstVerwerkers/KlantEtiketten/PrintEtiketten/PrintEtikettenHelper/MaakTussenEtiket/Test.cls.xml
===================================================================
diff -u -r70167 -r70168
--- vhUnitTest/APPS/Halux/PPS/Activiteit/impl/TAOR/LijstVerwerkers/KlantEtiketten/PrintEtiketten/PrintEtikettenHelper/MaakTussenEtiket/Test.cls.xml	(.../Test.cls.xml)	(revision 70167)
+++ vhUnitTest/APPS/Halux/PPS/Activiteit/impl/TAOR/LijstVerwerkers/KlantEtiketten/PrintEtiketten/PrintEtikettenHelper/MaakTussenEtiket/Test.cls.xml	(.../Test.cls.xml)	(revision 70168)
@@ -63,6 +63,11 @@
 <Private>1</Private>
 </Property>
 
+<Property name="IngegevenKenmerkenAPIStub">
+<Type>vhTest.Mock.DOM.PM.IngegevenKenmerkenAPI</Type>
+<Private>1</Private>
+</Property>
+
 <Method name="OnBeforeOneTest">
 <FormalSpec>aTestName:%String</FormalSpec>
 <Implementation><![CDATA[
@@ -95,13 +100,14 @@
 	
 	#dim WisselToelevering As %Boolean = $$$True
 	#dim WisselKar As %Boolean = $$$False
+	#dim HeeftMat As %Boolean = $$$False
 	
 	Do ..ToeleveringServiceStub.IndienMethodCall("GeefTransportWaarborgType", $$$ElkeWaarde).DanDoeNiks()
 	
 	#dim RollenInToelevering As %ListOfDataTypes = ##class(TECH.ListUtils).CreateListOfDataTypes()
-	Do ..ZetAPIStubsZodatToeleveringRollenBevat(RollenInToelevering)
+	Do ..ZetAPIStubsZodatToeleveringRollenOfMatBevat(RollenInToelevering, HeeftMat)
 	
-	Set PrintEtikettenHelper = ##class(APPS.Halux.PPS.Activiteit.impl.TAOR.LijstVerwerkers.KlantEtiketten.PrintEtiketten.PrintEtikettenHelper).%New(..AssemblageKarRepositoryStub, ..BatchServiceStub, ..ToeleveringServiceStub, ..ToeleveringAPIStub, ..ProductAPIStub)
+	Set PrintEtikettenHelper = ##class(APPS.Halux.PPS.Activiteit.impl.TAOR.LijstVerwerkers.KlantEtiketten.PrintEtiketten.PrintEtikettenHelper).%New(..AssemblageKarRepositoryStub, ..BatchServiceStub, ..ToeleveringServiceStub, ..ToeleveringAPIStub, ..ProductAPIStub, ..IngegevenKenmerkenAPIStub)
 	#dim TussenEtiket As BL.Etiket.LadeKlantEtiket = PrintEtikettenHelper.MaakTussenEtiket(UitvoeringInfo, WisselToelevering, WisselKar)
 	
 	Do $$$AssertEquals(TussenEtiket.Info1, "Toelevering:222222")
@@ -119,13 +125,14 @@
 	
 	#dim WisselToelevering As %Boolean = $$$True
 	#dim WisselKar As %Boolean = $$$False
+	#dim HeeftMat As %Boolean = $$$False
 	
 	Do ..ToeleveringServiceStub.IndienMethodCall("GeefTransportWaarborgType", $$$ElkeWaarde).DanReturn(##class(DOM.VKP.enu.TransportWaarborgType).ZonderWaarborg())
 	
 	#dim RollenInToelevering As %ListOfDataTypes = ##class(TECH.ListUtils).CreateListOfDataTypes()
-	Do ..ZetAPIStubsZodatToeleveringRollenBevat(RollenInToelevering)
+	Do ..ZetAPIStubsZodatToeleveringRollenOfMatBevat(RollenInToelevering, HeeftMat)
 	
-	Set PrintEtikettenHelper = ##class(APPS.Halux.PPS.Activiteit.impl.TAOR.LijstVerwerkers.KlantEtiketten.PrintEtiketten.PrintEtikettenHelper).%New(..AssemblageKarRepositoryStub, ..BatchServiceStub, ..ToeleveringServiceStub, ..ToeleveringAPIStub, ..ProductAPIStub)
+	Set PrintEtikettenHelper = ##class(APPS.Halux.PPS.Activiteit.impl.TAOR.LijstVerwerkers.KlantEtiketten.PrintEtiketten.PrintEtikettenHelper).%New(..AssemblageKarRepositoryStub, ..BatchServiceStub, ..ToeleveringServiceStub, ..ToeleveringAPIStub, ..ProductAPIStub, ..IngegevenKenmerkenAPIStub)
 	#dim TussenEtiket As BL.Etiket.LadeKlantEtiket = PrintEtikettenHelper.MaakTussenEtiket(UitvoeringInfo, WisselToelevering, WisselKar)
 	
 	Do $$$AssertEquals(TussenEtiket.Info1, "Toelevering:222222")
@@ -143,13 +150,14 @@
 	
 	#dim WisselToelevering As %Boolean = $$$True
 	#dim WisselKar As %Boolean = $$$False
+	#dim HeeftMat As %Boolean = $$$False
 	
 	Do ..ToeleveringServiceStub.IndienMethodCall("GeefTransportWaarborgType", $$$ElkeWaarde).DanDoeNiks()
 	
 	#dim RollenInToelevering As %ListOfDataTypes = ##class(TECH.ListUtils).CreateListOfDataTypes(##class(DOM.PM.Maatwerk.Calc.HF.enu.TAORRol).TiponBlumotionSynchronisatieStang())
-	Do ..ZetAPIStubsZodatToeleveringRollenBevat(RollenInToelevering)
+	Do ..ZetAPIStubsZodatToeleveringRollenOfMatBevat(RollenInToelevering, HeeftMat)
 	
-	Set PrintEtikettenHelper = ##class(APPS.Halux.PPS.Activiteit.impl.TAOR.LijstVerwerkers.KlantEtiketten.PrintEtiketten.PrintEtikettenHelper).%New(..AssemblageKarRepositoryStub, ..BatchServiceStub, ..ToeleveringServiceStub, ..ToeleveringAPIStub, ..ProductAPIStub)
+	Set PrintEtikettenHelper = ##class(APPS.Halux.PPS.Activiteit.impl.TAOR.LijstVerwerkers.KlantEtiketten.PrintEtiketten.PrintEtikettenHelper).%New(..AssemblageKarRepositoryStub, ..BatchServiceStub, ..ToeleveringServiceStub, ..ToeleveringAPIStub, ..ProductAPIStub, ..IngegevenKenmerkenAPIStub)
 	#dim TussenEtiket As BL.Etiket.LadeKlantEtiket = PrintEtikettenHelper.MaakTussenEtiket(UitvoeringInfo, WisselToelevering, WisselKar)
 	
 	Do $$$AssertEquals(TussenEtiket.Info1, "Toelevering:222222")
@@ -167,13 +175,14 @@
 	
 	#dim WisselToelevering As %Boolean = $$$True
 	#dim WisselKar As %Boolean = $$$False
+	#dim HeeftMat As %Boolean = $$$False
 	
 	Do ..ToeleveringServiceStub.IndienMethodCall("GeefTransportWaarborgType", $$$ElkeWaarde).DanDoeNiks()
 	
 	#dim RollenInToelevering As %ListOfDataTypes = ##class(TECH.ListUtils).CreateListOfDataTypes(##class(DOM.PM.Maatwerk.Calc.HF.enu.TAORRol).Zijstabilisering())
-	Do ..ZetAPIStubsZodatToeleveringRollenBevat(RollenInToelevering)
+	Do ..ZetAPIStubsZodatToeleveringRollenOfMatBevat(RollenInToelevering, HeeftMat)
 	
-	Set PrintEtikettenHelper = ##class(APPS.Halux.PPS.Activiteit.impl.TAOR.LijstVerwerkers.KlantEtiketten.PrintEtiketten.PrintEtikettenHelper).%New(..AssemblageKarRepositoryStub, ..BatchServiceStub, ..ToeleveringServiceStub, ..ToeleveringAPIStub, ..ProductAPIStub)
+	Set PrintEtikettenHelper = ##class(APPS.Halux.PPS.Activiteit.impl.TAOR.LijstVerwerkers.KlantEtiketten.PrintEtiketten.PrintEtikettenHelper).%New(..AssemblageKarRepositoryStub, ..BatchServiceStub, ..ToeleveringServiceStub, ..ToeleveringAPIStub, ..ProductAPIStub, ..IngegevenKenmerkenAPIStub)
 	#dim TussenEtiket As BL.Etiket.LadeKlantEtiket = PrintEtikettenHelper.MaakTussenEtiket(UitvoeringInfo, WisselToelevering, WisselKar)
 	
 	Do $$$AssertEquals(TussenEtiket.Info1, "Toelevering:222222")
@@ -183,11 +192,67 @@
 ]]></Implementation>
 </Method>
 
-<Method name="ZetAPIStubsZodatToeleveringRollenBevat">
-<FormalSpec>RollenInToelevering:%ListOfDataTypes</FormalSpec>
+<Method name="Test: TussenEtiket met gekoppelde mat wordt gemaakt met Toelevering, BatchID en DueOut en Info MAT">
 <Implementation><![CDATA[
+	Set UitvoeringInfo = ##class(APPS.Halux.PPS.Activiteit.impl.TAOR.dto.KlantEtiketUitvoeringInfo).%New()
+	Set UitvoeringInfo.ToeleveringID = ..ToeleveringID
+	Set UitvoeringInfo.BatchID = ..#BatchID
+	
+	#dim WisselToelevering As %Boolean = $$$True
+	#dim WisselKar As %Boolean = $$$False
+	#dim HeeftMat As %Boolean = $$$True
+	
+	Do ..ToeleveringServiceStub.IndienMethodCall("GeefTransportWaarborgType", $$$ElkeWaarde).DanDoeNiks()
+	
+	#dim RollenInToelevering As %ListOfDataTypes = ##class(TECH.ListUtils).CreateListOfDataTypes()
+	Do ..ZetAPIStubsZodatToeleveringRollenOfMatBevat(RollenInToelevering, HeeftMat)
+	
+	Set PrintEtikettenHelper = ##class(APPS.Halux.PPS.Activiteit.impl.TAOR.LijstVerwerkers.KlantEtiketten.PrintEtiketten.PrintEtikettenHelper).%New(..AssemblageKarRepositoryStub, ..BatchServiceStub, ..ToeleveringServiceStub, ..ToeleveringAPIStub, ..ProductAPIStub, ..IngegevenKenmerkenAPIStub)
+	#dim TussenEtiket As BL.Etiket.LadeKlantEtiket = PrintEtikettenHelper.MaakTussenEtiket(UitvoeringInfo, WisselToelevering, WisselKar)
+	
+	Do $$$AssertEquals(TussenEtiket.Info1, "Toelevering:222222")
+	Do $$$AssertEquals(TussenEtiket.Info2, "BatchID:12345")
+	Do $$$AssertEquals(TussenEtiket.Info3, "DueOut:woe 20/01 9u")
+	Do $$$AssertEquals(TussenEtiket.Info4, "MAT")
+]]></Implementation>
+</Method>
+
+<Method name="Test: TussenEtiket met alle kenmerken wordt gemaakt met Toelevering, BatchID en DueOut en Info">
+<Implementation><![CDATA[
+	Set UitvoeringInfo = ##class(APPS.Halux.PPS.Activiteit.impl.TAOR.dto.KlantEtiketUitvoeringInfo).%New()
+	Set UitvoeringInfo.ToeleveringID = ..ToeleveringID
+	Set UitvoeringInfo.BatchID = ..#BatchID
+	
+	#dim WisselToelevering As %Boolean = $$$True
+	#dim WisselKar As %Boolean = $$$False
+	#dim HeeftMat As %Boolean = $$$True
+	
+	Do ..ToeleveringServiceStub.IndienMethodCall("GeefTransportWaarborgType", $$$ElkeWaarde).DanReturn(##class(DOM.VKP.enu.TransportWaarborgType).ZonderWaarborg())
+	
+	#dim RollenInToelevering As %ListOfDataTypes = ##class(TECH.ListUtils).CreateListOfDataTypes(##class(DOM.PM.Maatwerk.Calc.HF.enu.TAORRol).TiponSynchronisatieStang(),
+													   								##class(DOM.PM.Maatwerk.Calc.HF.enu.TAORRol).TiponBlumotionSynchronisatieStang(),
+													   								##class(DOM.PM.Maatwerk.Calc.HF.enu.TAORRol).Zijstabilisering())
+	Do ..ZetAPIStubsZodatToeleveringRollenOfMatBevat(RollenInToelevering, HeeftMat)
+	
+	Set PrintEtikettenHelper = ##class(APPS.Halux.PPS.Activiteit.impl.TAOR.LijstVerwerkers.KlantEtiketten.PrintEtiketten.PrintEtikettenHelper).%New(..AssemblageKarRepositoryStub, ..BatchServiceStub, ..ToeleveringServiceStub, ..ToeleveringAPIStub, ..ProductAPIStub, ..IngegevenKenmerkenAPIStub)
+	#dim TussenEtiket As BL.Etiket.LadeKlantEtiket = PrintEtikettenHelper.MaakTussenEtiket(UitvoeringInfo, WisselToelevering, WisselKar)
+	
+	Do $$$AssertEquals(TussenEtiket.Info1, "Toelevering:222222")
+	Do $$$AssertEquals(TussenEtiket.Info2, "BatchID:12345")
+	Do $$$AssertEquals(TussenEtiket.Info3, "DueOut:woe 20/01 9u")
+	Do $$$AssertEquals(TussenEtiket.Info4, "WEGWERPPALLET MAX 1,5m      MAT / SYNCHRO / ZIJSTAB")
+]]></Implementation>
+</Method>
+
+<Method name="ZetAPIStubsZodatToeleveringRollenOfMatBevat">
+<FormalSpec>RollenInToelevering:%ListOfDataTypes,HeeftMat:%Boolean</FormalSpec>
+<Implementation><![CDATA[
+	Set ..ProductAPIStub = ##class(vhTest.Mock.DOM.PM.ProductAPI).%New()
+	Set ..ToeleveringAPIStub = ##class(vhTest.Mock.DOM.AKP.ToeleveringAPI).%New()
+	Set ..IngegevenKenmerkenAPIStub = ##class(vhTest.Mock.DOM.PM.IngegevenKenmerkenAPI).%New()
+	
 	#dim AlleRollenIterator As TECH.ListIterator = ..GeefAlleRollenIterator()
-	#dim HalffabItemsBoomStub As DOM.PM.Maatwerk.Calc.HF.HalffabItemsBoom = ##class(vhTest.Mock.DOM.PM.Maatwerk.Calc.HF.HalffabItemsBoom).%New()
+	Set HalffabItemsBoomStub = ##class(vhTest.Mock.DOM.PM.Maatwerk.Calc.HF.HalffabItemsBoom).%New()
 	While (AlleRollenIterator.HasNext()) {
 		Do HalffabItemsBoomStub.IndienMethodCall("BevatRol", AlleRollenIterator.Next()).DanReturn($$$False)
 	}
@@ -196,23 +261,26 @@
 		Do HalffabItemsBoomStub.IndienMethodCall("BevatRol", RollenInToeleveringIterator.Next()).DanReturn($$$True)
 	}
 	
-	#dim ProductStub As DOM.PM.MaatwerkProduct = ##class(vhTest.Mock.DOM.PM.MaatwerkProduct).%New()
+	Do ..IngegevenKenmerkenAPIStub.IndienMethodCall("HeeftGekoppeldeMat", $$$ElkeWaarde).DanReturn(HeeftMat)
+	
+	Set ProductStub = ##class(vhTest.Mock.DOM.PM.MaatwerkProduct).%New()
 	Do ProductStub.IndienMethodCall("GeefHalffabItemsBoom").DanReturn(HalffabItemsBoomStub)
+	Do ProductStub.IndienMethodCall("GeefIngegevenKenmerken").DanDoeNiks()
 	
-	Set ..ProductAPIStub = ##class(vhTest.Mock.DOM.PM.ProductAPI).%New()
+	
 	Do ..ProductAPIStub.IndienMethodCall("GeefProduct", "1").DanReturn(ProductStub)
 	
 	
-	#dim ProductToeleveringLijnStub As DOM.AKP.ProductToeleveringLijn = ##class(vhTest.Mock.DOM.AKP.ProductToeleveringLijn).%New()
+	Set ProductToeleveringLijnStub = ##class(vhTest.Mock.DOM.AKP.ProductToeleveringLijn).%New()
 	Do ProductToeleveringLijnStub.IndienMethodCall("GeefProductID").DanReturn("1")
 	
 	#dim ToeleveringLijnLijst As %ListOfDataTypes = ##class(TECH.ListUtils).CreateListOfDataTypes(ProductToeleveringLijnStub)
 	#dim ToeleveringLijnIterator As DOM.AKP.impl.DataM.DataMToeleveringLijnIterator = ##class(TECH.ListIterator).%New(ToeleveringLijnLijst)
 	
-	#dim ToeleveringStub As DOM.AKP.Toelevering = ##class(vhTest.Mock.DOM.AKP.Toelevering).%New()
+	Set ToeleveringStub = ##class(vhTest.Mock.DOM.AKP.Toelevering).%New()
 	Do ToeleveringStub.IndienMethodCall("GeefToeleveringLijnIterator").DanReturn(ToeleveringLijnIterator)
 	
-	Set ..ToeleveringAPIStub = ##class(vhTest.Mock.DOM.AKP.ToeleveringAPI).%New()
+	
 	Do ..ToeleveringAPIStub.IndienMethodCall("GeefToelevering", ..ToeleveringID).DanReturn(ToeleveringStub)
 ]]></Implementation>
 </Method>
Index: APPS/Halux/PPS/Activiteit/impl/TAOR/LijstVerwerkers/KlantEtiketten/PrintEtiketten/PrintEtikettenHelper.cls.xml
===================================================================
diff -u -r70166 -r70168
--- APPS/Halux/PPS/Activiteit/impl/TAOR/LijstVerwerkers/KlantEtiketten/PrintEtiketten/PrintEtikettenHelper.cls.xml	(.../PrintEtikettenHelper.cls.xml)	(revision 70166)
+++ APPS/Halux/PPS/Activiteit/impl/TAOR/LijstVerwerkers/KlantEtiketten/PrintEtiketten/PrintEtikettenHelper.cls.xml	(.../PrintEtikettenHelper.cls.xml)	(revision 70168)
@@ -28,8 +28,13 @@
 <Private>1</Private>
 </Property>
 
+<Property name="IngegevenKenmerkenAPI">
+<Type>DOM.PM.IngegevenKenmerkenAPI</Type>
+<Private>1</Private>
+</Property>
+
 <Method name="%OnNew">
-<FormalSpec>AssemblageKarRepository:APPS.Halux.PPS.TAORProductie.impl.AssemblageKarRepository="",BatchService:APPS.Halux.common.BatchService="",ToeleveringService:DOM.AKP.ToeleveringService="",ToeleveringAPI:DOM.AKP.ToeleveringAPI="",ProductAPI:DOM.PM.ProductAPI=""</FormalSpec>
+<FormalSpec>AssemblageKarRepository:APPS.Halux.PPS.TAORProductie.impl.AssemblageKarRepository="",BatchService:APPS.Halux.common.BatchService="",ToeleveringService:DOM.AKP.ToeleveringService="",ToeleveringAPI:DOM.AKP.ToeleveringAPI="",ProductAPI:DOM.PM.ProductAPI="",IngegevenKenmerkenAPI:DOM.PM.IngegevenKenmerkenAPI=""</FormalSpec>
 <Private>1</Private>
 <ProcedureBlock>1</ProcedureBlock>
 <ReturnType>%Status</ReturnType>
@@ -40,6 +45,7 @@
 	Set ..ToeleveringService = 	$$$Inject(ToeleveringService, ##class(DOM.AKP.impl.ToeleveringService).%New())
 	Set ..ToeleveringAPI = $$$Inject(ToeleveringAPI, ##class(DOM.DomeinContext).Instance().GeefToeleveringAPI())
 	Set ..ProductAPI = $$$Inject(ProductAPI, ##class(DOM.DomeinContext).Instance().GeefProductAPI())
+	Set ..IngegevenKenmerkenAPI = $$$Inject(IngegevenKenmerkenAPI, ##class(DOM.DomeinContext).Instance().GeefIngegevenKenmerkenAPI())
 	
 	Quit $$$OK
 ]]></Implementation>
@@ -98,7 +104,7 @@
 <ReturnType>TECH.String</ReturnType>
 <Implementation><![CDATA[
 	#dim Info4 As TECH.String = ..GeefPalletType(ToeleveringID)
-	Set Info4 = ##class(TECH.StringUtils).VoegToeIndienNietLeeg(Info4, ..GeefMeenemenInfo(ToeleveringID), " - ")
+	Set Info4 = ##class(TECH.StringUtils).VoegToeIndienNietLeeg(Info4, ..GeefMeenemenInfo(ToeleveringID), "      ")
 	
 	Quit Info4
 ]]></Implementation>
@@ -124,7 +130,7 @@
 	#dim MeenemenInfo As TECH.String = ""
 	#dim Toelevering As DOM.AKP.Toelevering = ..ToeleveringAPI.GeefToelevering(ToeleveringID)
 	
-	If (..HeeftToeleveringProductMetMat(Toelevering, ##class(TECH.ListUtils).CreateListOfDataTypes(##class(DOM.PM.Maatwerk.Calc.HF.enu.TAORRol).Zijstabilisering()))) {
+	If (..HeeftToeleveringProductMetMat(Toelevering)) {
 		Set MeenemenInfo = ##class(TECH.StringUtils).VoegToeIndienNietLeeg(MeenemenInfo, "MAT", " / ")
 	}
 	
@@ -167,9 +173,24 @@
 </Method>
 
 <Method name="HeeftToeleveringProductMetMat">
-<FormalSpec>Toelevering:DOM.AKP.Toelevering,Rollen:%ListOfDataTypes</FormalSpec>
+<FormalSpec>Toelevering:DOM.AKP.Toelevering</FormalSpec>
 <ReturnType>%Boolean</ReturnType>
-<Implementation><![CDATA[	Quit 0
+<Implementation><![CDATA[
+	#dim HeeftToeleveringProductMetMat As %Boolean = $$$False
+	
+	#dim MaatwerkProduct As DOM.PM.MaatwerkProduct
+	#dim ToeleveringLijnIterator As DOM.AKP.impl.DataM.DataMToeleveringLijnIterator = Toelevering.GeefToeleveringLijnIterator()
+	#dim ProductToeleveringLijn As DOM.AKP.ProductToeleveringLijn
+	While (ToeleveringLijnIterator.HasNext() && $$$Not(HeeftToeleveringProductMetMat)) {
+		Set ProductToeleveringLijn = ToeleveringLijnIterator.Next()
+		Set MaatwerkProduct = ..ProductAPI.GeefProduct(ProductToeleveringLijn.GeefProductID())
+		
+		If (..IngegevenKenmerkenAPI.HeeftGekoppeldeMat(MaatwerkProduct.GeefIngegevenKenmerken())) {
+			Set HeeftToeleveringProductMetMat = $$$True
+		}
+	}
+	
+	Quit HeeftToeleveringProductMetMat
 ]]></Implementation>
 </Method>