Index: APPS/Halux/PPS/Activiteit/impl/TAOR/LijstVerwerkers/KlantEtiketten/PrintEtiketten/PrintEtikettenHelper.cls.xml
===================================================================
diff -u -r70158 -r70159
--- APPS/Halux/PPS/Activiteit/impl/TAOR/LijstVerwerkers/KlantEtiketten/PrintEtiketten/PrintEtikettenHelper.cls.xml	(.../PrintEtikettenHelper.cls.xml)	(revision 70158)
+++ APPS/Halux/PPS/Activiteit/impl/TAOR/LijstVerwerkers/KlantEtiketten/PrintEtiketten/PrintEtikettenHelper.cls.xml	(.../PrintEtikettenHelper.cls.xml)	(revision 70159)
@@ -56,7 +56,7 @@
 	Set Etiket.Info1 = ..GeefInfo1(UitvoeringInfo, WisselToelevering, WisselKar)
 	Set Etiket.Info2 = "BatchID:" _ UitvoeringInfo.BatchID
 	Set Etiket.Info3 = DueOutFormatter.GeefGeformatteerdeDueOut(Batch)
-	Set Etiket.Info4 = ..GeefPalletType(UitvoeringInfo.ToeleveringID)
+	Set Etiket.Info4 = ..GeefInfo4(UitvoeringInfo.ToeleveringID)
 	
 	Quit Etiket
 ]]></Implementation>
@@ -93,12 +93,14 @@
 </Method>
 
 <Method name="GeefInfo4">
-<FormalSpec>UitvoeringInfo:APPS.Halux.PPS.Activiteit.impl.TAOR.dto.KlantEtiketUitvoeringInfo,WisselToelevering:%Boolean,WisselKar:%Boolean</FormalSpec>
+<FormalSpec>ToeleveringID:%String</FormalSpec>
 <Private>1</Private>
 <ReturnType>TECH.String</ReturnType>
 <Implementation><![CDATA[
-	#dim PalletTypeInfo As TECH.String = ..GeefPalletType(UitvoeringInfo.ToeleveringID)
-	#dim MeenemenInfo As TECH.String = ""
+	#dim Info4 As TECH.String = ..GeefPalletType(ToeleveringID)
+	Set Info4 = ##class(TECH.StringUtils).VoegToeIndienNietLeeg(Info4, ..GeefMeenemenInfo(ToeleveringID), " - ")
+	
+	Quit Info4
 ]]></Implementation>
 </Method>
 
@@ -120,16 +122,17 @@
 <ReturnType>TECH.String</ReturnType>
 <Implementation><![CDATA[
 	#dim MeenemenInfo As TECH.String = ""
-	#dim ToeleveringApi As DOM.AKP.ToeleveringAPI = ##class(DOM.DomeinContext).Instance().GeefToeleveringAPI()
-	#dim Toelevering As DOM.AKP.Toelevering = ToeleveringApi.GeefToelevering(ToeleveringID)
+	#dim Toelevering As DOM.AKP.Toelevering = ..ToeleveringAPI.GeefToelevering(ToeleveringID)
 	
 	If (..HeeftToeleveringProductMetRollen(Toelevering, ..GeefRollenTiponSynchronisatieStang())) {
-		Do ##class(TECH.StringUtils).VoegToeIndienNietLeeg(MeenemenInfo, "SYNCHR", " / ")
+		Set MeenemenInfo = ##class(TECH.StringUtils).VoegToeIndienNietLeeg(MeenemenInfo, "SYNCHRO", " / ")
 	}
 	
 	If (..HeeftToeleveringProductMetRollen(Toelevering, ##class(TECH.ListUtils).CreateListOfDataTypes(##class(DOM.PM.Maatwerk.Calc.HF.enu.TAORRol).Zijstabilisering()))) {
-		Do ##class(TECH.StringUtils).VoegToeIndienNietLeeg(MeenemenInfo, "ZIJSTAB", " / ")
+		Set MeenemenInfo = ##class(TECH.StringUtils).VoegToeIndienNietLeeg(MeenemenInfo, "ZIJSTAB", " / ")
 	}
+	
+	Quit MeenemenInfo
 ]]></Implementation>
 </Method>
 
@@ -140,18 +143,15 @@
 	#dim HeeftToeleveringProductMetRollen As %Boolean = $$$False
 	#dim RolIterator As TECH.Iterator = ##class(TECH.ListIterator).%New(Rollen)
 	
-	#dim ProductApi As DOM.PM.ProductAPI = ##class(DOM.DomeinContext).Instance().GeefProductAPI()
 	#dim MaatwerkProduct As DOM.PM.MaatwerkProduct
-	#dim HalffabItemsBoom As DOM.PM.Maatwerk.Calc.HF.HalffabItemsBoom
-	
 	#dim ToeleveringLijnIterator As DOM.AKP.impl.DataM.DataMToeleveringLijnIterator = Toelevering.GeefToeleveringLijnIterator()
 	#dim ProductToeleveringLijn As DOM.AKP.ProductToeleveringLijn
 	While (ToeleveringLijnIterator.HasNext() && $$$Not(HeeftToeleveringProductMetRollen)) {
 		Set ProductToeleveringLijn = ToeleveringLijnIterator.Next()
-		Set MaatwerkProduct = ProductApi.GeefProduct(ProductToeleveringLijn.GeefProductID())
+		Set MaatwerkProduct = ..ProductAPI.GeefProduct(ProductToeleveringLijn.GeefProductID())
 		
 		While (RolIterator.HasNext()) {
-			If (..HeeftMaatwerkProductHalffabMetRol(MaatwerkProduct, ##class(DOM.PM.Maatwerk.Calc.HF.enu.TAORRol).TiponSynchronisatieStang())) {
+			If (..HeeftMaatwerkProductHalffabMetRol(MaatwerkProduct, RolIterator.Next())) {
 				Set HeeftToeleveringProductMetRollen = $$$True
 			}
 		}
Index: vhUnitTest/APPS/Halux/PPS/Activiteit/impl/TAOR/LijstVerwerkers/KlantEtiketten/PrintEtiketten/PrintEtikettenHelper/MaakTussenEtiket/Test.cls.xml
===================================================================
diff -u -r69897 -r70159
--- vhUnitTest/APPS/Halux/PPS/Activiteit/impl/TAOR/LijstVerwerkers/KlantEtiketten/PrintEtiketten/PrintEtikettenHelper/MaakTussenEtiket/Test.cls.xml	(.../Test.cls.xml)	(revision 69897)
+++ vhUnitTest/APPS/Halux/PPS/Activiteit/impl/TAOR/LijstVerwerkers/KlantEtiketten/PrintEtiketten/PrintEtikettenHelper/MaakTussenEtiket/Test.cls.xml	(.../Test.cls.xml)	(revision 70159)
@@ -53,6 +53,16 @@
 <Private>1</Private>
 </Property>
 
+<Property name="ProductAPIStub">
+<Type>vhTest.Mock.DOM.PM.ProductAPI</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="ToeleveringAPIStub">
+<Type>vhTest.Mock.DOM.AKP.ToeleveringAPI</Type>
+<Private>1</Private>
+</Property>
+
 <Method name="OnBeforeOneTest">
 <FormalSpec>aTestName:%String</FormalSpec>
 <Implementation><![CDATA[
@@ -88,7 +98,10 @@
 	
 	Do ..ToeleveringServiceStub.IndienMethodCall("GeefTransportWaarborgType", $$$ElkeWaarde).DanDoeNiks()
 	
-	Set PrintEtikettenHelper = ##class(APPS.Halux.PPS.Activiteit.impl.TAOR.LijstVerwerkers.KlantEtiketten.PrintEtiketten.PrintEtikettenHelper).%New(..AssemblageKarRepositoryStub, ..BatchServiceStub, ..ToeleveringServiceStub)
+	#dim RollenInToelevering As %ListOfDataTypes = ##class(TECH.ListUtils).CreateListOfDataTypes()
+	Do ..ZetAPIStubsZodatToeleveringRollenBevat(RollenInToelevering)
+	
+	Set PrintEtikettenHelper = ##class(APPS.Halux.PPS.Activiteit.impl.TAOR.LijstVerwerkers.KlantEtiketten.PrintEtiketten.PrintEtikettenHelper).%New(..AssemblageKarRepositoryStub, ..BatchServiceStub, ..ToeleveringServiceStub, ..ToeleveringAPIStub, ..ProductAPIStub)
 	#dim TussenEtiket As BL.Etiket.LadeKlantEtiket = PrintEtikettenHelper.MaakTussenEtiket(UitvoeringInfo, WisselToelevering, WisselKar)
 	
 	Do $$$AssertEquals(TussenEtiket.Info1, "Toelevering:222222")
@@ -109,7 +122,10 @@
 	
 	Do ..ToeleveringServiceStub.IndienMethodCall("GeefTransportWaarborgType", $$$ElkeWaarde).DanReturn(##class(DOM.VKP.enu.TransportWaarborgType).ZonderWaarborg())
 	
-	Set PrintEtikettenHelper = ##class(APPS.Halux.PPS.Activiteit.impl.TAOR.LijstVerwerkers.KlantEtiketten.PrintEtiketten.PrintEtikettenHelper).%New(..AssemblageKarRepositoryStub, ..BatchServiceStub, ..ToeleveringServiceStub)
+	#dim RollenInToelevering As %ListOfDataTypes = ##class(TECH.ListUtils).CreateListOfDataTypes()
+	Do ..ZetAPIStubsZodatToeleveringRollenBevat(RollenInToelevering)
+	
+	Set PrintEtikettenHelper = ##class(APPS.Halux.PPS.Activiteit.impl.TAOR.LijstVerwerkers.KlantEtiketten.PrintEtiketten.PrintEtikettenHelper).%New(..AssemblageKarRepositoryStub, ..BatchServiceStub, ..ToeleveringServiceStub, ..ToeleveringAPIStub, ..ProductAPIStub)
 	#dim TussenEtiket As BL.Etiket.LadeKlantEtiket = PrintEtikettenHelper.MaakTussenEtiket(UitvoeringInfo, WisselToelevering, WisselKar)
 	
 	Do $$$AssertEquals(TussenEtiket.Info1, "Toelevering:222222")
@@ -118,6 +134,74 @@
 	Do $$$AssertEquals(TussenEtiket.Info4, "WEGWERPPALLET MAX 1,5m")
 ]]></Implementation>
 </Method>
+
+<Method name="Test: TussenEtiket met synchrostang wordt gemaakt met Toelevering, BatchID en DueOut en Info SYNCHR">
+<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
+	
+	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)
+	
+	Set PrintEtikettenHelper = ##class(APPS.Halux.PPS.Activiteit.impl.TAOR.LijstVerwerkers.KlantEtiketten.PrintEtiketten.PrintEtikettenHelper).%New(..AssemblageKarRepositoryStub, ..BatchServiceStub, ..ToeleveringServiceStub, ..ToeleveringAPIStub, ..ProductAPIStub)
+	#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, "SYNCHRO")
+]]></Implementation>
+</Method>
+
+<Method name="ZetAPIStubsZodatToeleveringRollenBevat">
+<FormalSpec>RollenInToelevering:%ListOfDataTypes</FormalSpec>
+<Implementation><![CDATA[
+	#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()
+	While (AlleRollenIterator.HasNext()) {
+		Do HalffabItemsBoomStub.IndienMethodCall("BevatRol", AlleRollenIterator.Next()).DanReturn($$$False)
+	}
+	Set RollenInToeleveringIterator = ##class(TECH.ListIterator).%New(RollenInToelevering)
+	While (RollenInToeleveringIterator.HasNext()) {
+		Do HalffabItemsBoomStub.IndienMethodCall("BevatRol", RollenInToeleveringIterator.Next()).DanReturn($$$True)
+	}
+	
+	#dim ProductStub As DOM.PM.MaatwerkProduct = ##class(vhTest.Mock.DOM.PM.MaatwerkProduct).%New()
+	Do ProductStub.IndienMethodCall("GeefHalffabItemsBoom").DanReturn(HalffabItemsBoomStub)
+	
+	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()
+	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()
+	Do ToeleveringStub.IndienMethodCall("GeefToeleveringLijnIterator").DanReturn(ToeleveringLijnIterator)
+	
+	Set ..ToeleveringAPIStub = ##class(vhTest.Mock.DOM.AKP.ToeleveringAPI).%New()
+	Do ..ToeleveringAPIStub.IndienMethodCall("GeefToelevering", ..ToeleveringID).DanReturn(ToeleveringStub)
+]]></Implementation>
+</Method>
+
+<Method name="GeefAlleRollenIterator">
+<ReturnType>TECH.ListIterator</ReturnType>
+<Implementation><![CDATA[
+	#dim Rollen 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())
+	Quit ##class(TECH.ListIterator).%New(Rollen)
+]]></Implementation>
+</Method>
 </Class>