Index: vhUnitTest/APPS/Halux/PPS/Activiteit/impl/TAOR/LijstVerwerkers/KlantEtiketten/PrintEtiketten/PrintEtikettenHelper/MaakTussenEtiket/Test.cls.xml
===================================================================
diff -u
--- vhUnitTest/APPS/Halux/PPS/Activiteit/impl/TAOR/LijstVerwerkers/KlantEtiketten/PrintEtiketten/PrintEtikettenHelper/MaakTussenEtiket/Test.cls.xml	(revision 0)
+++ vhUnitTest/APPS/Halux/PPS/Activiteit/impl/TAOR/LijstVerwerkers/KlantEtiketten/PrintEtiketten/PrintEtikettenHelper/MaakTussenEtiket/Test.cls.xml	(revision 69783)
@@ -0,0 +1,111 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.APPS.Halux.PPS.Activiteit.impl.TAOR.LijstVerwerkers.KlantEtiketten.PrintEtiketten.PrintEtikettenHelper.MaakTussenEtiket.Test">
+<Super>vhUnitTest.TestCase</Super>
+
+<Parameter name="BatchID">
+<Type>%Integer</Type>
+<Default>12345</Default>
+</Parameter>
+
+<Parameter name="BatchGeplandOp">
+<Type>%String</Type>
+<Default>20/10/2015</Default>
+</Parameter>
+
+<Parameter name="BatchVroegsteDueOut">
+<Type>%String</Type>
+<Default>20/10/2015 09:15:00</Default>
+</Parameter>
+
+<Property name="ToeleveringID">
+<Type>%String</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="KlantID">
+<Type>%String</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="ProductIDIterator">
+<Type>TECH.Iterator</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="BatchServiceStub">
+<Type>vhTest.Mock.APPS.Halux.common.BatchService</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="ToeleveringServiceStub">
+<Type>vhTest.Mock.DOM.AKP.ToeleveringService</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="AssemblageKarRepositoryStub">
+<Type>APPS.Halux.PPS.TAORProductie.impl.AssemblageKarRepository</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="UitvoeringInfo">
+<Type>APPS.Halux.PPS.Activiteit.impl.TAOR.dto.KlantEtiketUitvoeringInfo</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="OnBeforeOneTest">
+<FormalSpec>aTestName:%String</FormalSpec>
+<Implementation><![CDATA[
+	Do ##super(aTestName)
+	
+	Set ..ToeleveringID = 222222
+	Set ..KlantID = "K||1111"
+	Set ..ProductIDIterator = ##class(TECH.ListbuildIterator).%New($listbuild(123456,654321))
+	
+	Set ..BatchServiceStub = ##class(vhTest.Mock.APPS.Halux.common.BatchService).%New()
+	Set BatchStub = ##class(vhTest.Mock.APPS.Halux.common.Batch).%New()
+	Do BatchStub.IndienMethodCall("GeefID").DanReturn(..#BatchID)
+	Do BatchStub.IndienMethodCall("GeefGeplandOp").DanReturn(..#BatchGeplandOp)
+	Do BatchStub.IndienMethodCall("GeefVroegsteDueOut").DanReturn(..#BatchVroegsteDueOut)
+	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">
+<Implementation><![CDATA[
+	#dim UitvoeringInfo As APPS.Halux.PPS.Activiteit.impl.TAOR.dto.KlantEtiketUitvoeringInfo = ..GeefGeneriekeUitvoeringInfo()
+	#dim WisselToelevering As %Boolean = $$$True
+	#dim WisselKar As %Boolean = $$$False
+	
+	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, "")
+]]></Implementation>
+</Method>
+
+<Method name="GeefGeneriekeUitvoeringInfo">
+<Private>1</Private>
+<ReturnType>APPS.Halux.PPS.Activiteit.impl.TAOR.dto.KlantEtiketUitvoeringInfo</ReturnType>
+<Implementation><![CDATA[
+	Set UitvoeringInfo = ##class(APPS.Halux.PPS.Activiteit.impl.TAOR.dto.KlantEtiketUitvoeringInfo).%New()
+	Set UitvoeringInfo.ToeleveringID = ..ToeleveringID
+	Set UitvoeringInfo.BatchID = ..#BatchID
+	
+	Quit UitvoeringInfo
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>