Index: vhUnitTest/APPS/Halux/PPS/Activiteit/impl/TAOR/LijstVerwerkers/KlantEtiketten/PrintEtiketten/PrintEtikettenHelper/MaakTussenEtiket/Test.cls.xml
===================================================================
diff -u -r69783 -r69784
--- vhUnitTest/APPS/Halux/PPS/Activiteit/impl/TAOR/LijstVerwerkers/KlantEtiketten/PrintEtiketten/PrintEtikettenHelper/MaakTussenEtiket/Test.cls.xml	(.../Test.cls.xml)	(revision 69783)
+++ vhUnitTest/APPS/Halux/PPS/Activiteit/impl/TAOR/LijstVerwerkers/KlantEtiketten/PrintEtiketten/PrintEtikettenHelper/MaakTussenEtiket/Test.cls.xml	(.../Test.cls.xml)	(revision 69784)
@@ -70,20 +70,24 @@
 	Do ..BatchServiceStub.IndienMethodCall("GeefBatch", $$$ElkeWaarde).DanReturn(BatchStub)
 	
 	Set ..ToeleveringServiceStub = ##class(vhTest.Mock.DOM.AKP.ToeleveringService).%New()
-	Do ..ToeleveringServiceStub.IndienMethodCall("GeefTransportWaarborgType", $$$ElkeWaarde).DanDoeNiks()
 	Do ..ToeleveringServiceStub.IndienMethodCall("GeefProductIDIterator",..ToeleveringID).DanReturn(..ProductIDIterator)
 	Do ..ToeleveringServiceStub.IndienMethodCall("GeefKlant",..ToeleveringID).DanReturn(##class(vhTest.Fake.DOM.VKP.VanHoeckeKlant).%New(..KlantID))
 	
 	Set ..AssemblageKarRepositoryStub = ##class(vhTest.Mock.APPS.Halux.PPS.TAORProductie.impl.AssemblageKarRepository).%New()
 ]]></Implementation>
 </Method>
 
-<Method name="Test: Standaard TussenEtiket wordt gemaakt Toelevering, BatchID en DueOut en lege Info4">
+<Method name="Test: Standaard TussenEtiket wordt gemaakt met Toelevering, BatchID en DueOut en lege Info4">
 <Implementation><![CDATA[
-	#dim UitvoeringInfo As APPS.Halux.PPS.Activiteit.impl.TAOR.dto.KlantEtiketUitvoeringInfo = ..GeefGeneriekeUitvoeringInfo()
+	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()
+	
 	Set PrintEtikettenHelper = ##class(APPS.Halux.PPS.Activiteit.impl.TAOR.LijstVerwerkers.KlantEtiketten.PrintEtiketten.PrintEtikettenHelper).%New(..AssemblageKarRepositoryStub, ..BatchServiceStub, ..ToeleveringServiceStub)
 	#dim TussenEtiket As BL.Etiket.LadeKlantEtiket = PrintEtikettenHelper.MaakTussenEtiket(UitvoeringInfo, WisselToelevering, WisselKar)
 	
@@ -94,15 +98,24 @@
 ]]></Implementation>
 </Method>
 
-<Method name="GeefGeneriekeUitvoeringInfo">
-<Private>1</Private>
-<ReturnType>APPS.Halux.PPS.Activiteit.impl.TAOR.dto.KlantEtiketUitvoeringInfo</ReturnType>
+<Method name="Test: TussenEtiket op wegwerppallet wordt gemaakt met Toelevering, BatchID en DueOut en Info wegwerppallet">
 <Implementation><![CDATA[
 	Set UitvoeringInfo = ##class(APPS.Halux.PPS.Activiteit.impl.TAOR.dto.KlantEtiketUitvoeringInfo).%New()
 	Set UitvoeringInfo.ToeleveringID = ..ToeleveringID
 	Set UitvoeringInfo.BatchID = ..#BatchID
 	
-	Quit UitvoeringInfo
+	#dim WisselToelevering As %Boolean = $$$True
+	#dim WisselKar As %Boolean = $$$False
+	
+	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 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")
 ]]></Implementation>
 </Method>
 </Class>