Index: vhUnitTest/BL/PPS/TBX/DocsV1/ProboxBarcodeEtiketGenerator/GenereerProboxBarcodeEtiketIterator/Test.cls.xml
===================================================================
diff -u
--- vhUnitTest/BL/PPS/TBX/DocsV1/ProboxBarcodeEtiketGenerator/GenereerProboxBarcodeEtiketIterator/Test.cls.xml	(revision 0)
+++ vhUnitTest/BL/PPS/TBX/DocsV1/ProboxBarcodeEtiketGenerator/GenereerProboxBarcodeEtiketIterator/Test.cls.xml	(revision 68300)
@@ -0,0 +1,167 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.BL.PPS.TBX.DocsV1.ProboxBarcodeEtiketGenerator.GenereerProboxBarcodeEtiketIterator.Test">
+<Super>vhUnitTest.TestCase</Super>
+
+<Parameter name="ProductNummer1">
+<Default>1000000</Default>
+</Parameter>
+
+<Parameter name="ProductNummer2">
+<Default>2000000</Default>
+</Parameter>
+
+<Parameter name="ProductId1">
+<Default>111111</Default>
+</Parameter>
+
+<Parameter name="ProductId2">
+<Default>222222</Default>
+</Parameter>
+
+<Parameter name="LijnReferentie1">
+<Default>100</Default>
+</Parameter>
+
+<Parameter name="LijnReferentie2">
+<Default>200</Default>
+</Parameter>
+
+<Property name="ProductImplMock1">
+<Type>DOM.PM.Product</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="ProductImplMock2">
+<Type>DOM.PM.Product</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="Device">
+<Type>%String</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="ProductAPIStub">
+<Type>DOM.PM.ProductAPI</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="ToeleveringServiceStub">
+<Type>DOM.AKP.impl.ToeleveringService</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="OnBeforeAllTests">
+<FormalSpec>aTestName:%String</FormalSpec>
+<Implementation><![CDATA[
+	Do ##super()
+	
+	Set ..ProductImplMock1 = ##class(vhTest.Mock.DOM.PM.Product).%New()
+	Do ..ProductImplMock1.IndienMethodCall("GeefID",).DanReturn(..#ProductId1)
+	
+	Set ..ProductImplMock2 = ##class(vhTest.Mock.DOM.PM.Product).%New()
+	Do ..ProductImplMock2.IndienMethodCall("GeefID",).DanReturn(..#ProductId2)
+	
+	Set ..ProductAPIStub = ##class(vhTest.Mock.DOM.PM.ProductAPI).%New()
+	Do ..ProductAPIStub.IndienMethodCall("GeefProduct", ..#ProductNummer1).DanReturn(..ProductImplMock1)
+	Do ..ProductAPIStub.IndienMethodCall("GeefProduct", ..#ProductNummer2).DanReturn(..ProductImplMock2)
+	
+	Set ..ToeleveringServiceStub = ##class(vhTest.Mock.DOM.AKP.impl.ToeleveringService).%New()
+	Do ..ToeleveringServiceStub.IndienMethodCall("GeefLijnReferentie", $$$ElkeWaarde, ..#ProductId1).DanReturn(..#LijnReferentie1)
+	Do ..ToeleveringServiceStub.IndienMethodCall("GeefLijnReferentie", $$$ElkeWaarde, ..#ProductId2).DanReturn(..#LijnReferentie2)
+	
+	Set ..Device = $$$DummyString
+]]></Implementation>
+</Method>
+
+<Method name="OnBeforeOneTest">
+<FormalSpec>aTestName:%String</FormalSpec>
+<Implementation><![CDATA[
+	Do ##super()
+	
+	Do ##class(vhTest.Fake.TECH.DateTime.DateTimeAPI).Activeer()
+]]></Implementation>
+</Method>
+
+<Method name="Test: Geen DnaCodeIterator meegegeven">
+<Implementation><![CDATA[
+	Set ProboxInhoudEtiketGenerator = ##class(BL.PPS.TBX.DocsV1.ProboxBarcodeEtiketGenerator).%New()
+	
+	#dim Substring = ##class(TECH.ListUtils).CreateListOfDataTypes("Geen Dna codes meegegeven.")
+	Do ..ZetVerwachteExceptie(##class(Tools.Test.VerwachteExceptie).%New("TECH.Exceptions.InvalidInputException",Substring))
+	
+	Do ProboxInhoudEtiketGenerator.GenereerProboxBarcodeEtiketIterator(..EmptyIterator())
+]]></Implementation>
+</Method>
+
+<Method name="AssertEtiket">
+<FormalSpec>Etiket:BL.Etiket.ProboxBarcode,AantalLades:%Integer,LijnReferentie:%String,IsBarcodeLinks:%Boolean</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	Do $$$AssertEquals(Etiket.Device, ..Device)
+	Do $$$AssertEquals(Etiket.Aantal, 1)
+	Do $$$AssertEquals(Etiket.AantalLades, AantalLades)
+	Do $$$AssertEquals(Etiket.LijnReferentie, LijnReferentie)
+	Do $$$AssertEquals(Etiket.IsBarcodeLinks, IsBarcodeLinks)
+]]></Implementation>
+</Method>
+
+<Method name="GenereerIteratorMetAantalDnaCodes">
+<FormalSpec>Aantal:%Integer</FormalSpec>
+<Private>1</Private>
+<ReturnType>TECH.ListIterator</ReturnType>
+<Implementation><![CDATA[
+	#dim LadeCodePrefixLijst As %ListOfDataTypes = ..GeefLadeCodePrefixLijst()
+	#dim ProductNummerLijst As %ListOfDataTypes = ..GeefProductNummerLijst()
+	#dim LadeCodeSuffix As %String = ".ABCD.6"
+	#dim LadeCodeIndex As %Integer = 0
+	#dim ProductNummerIndex As %Integer = 0
+	
+	#dim DnaCode As DOM.Halux.AAP.DnaCode
+	Set DnaCodeLijst = ##class(%ListOfObjects).%New()
+	For i = 1:1:Aantal {
+		Set DnaCode = ##class(DOM.Halux.AAP.DnaCode).%New()
+		
+		Set LadeCodeIndex = (LadeCodeIndex # LadeCodePrefixLijst.Count()) + 1
+		Set ProductNummerIndex = (ProductNummerIndex # ProductNummerLijst.Count()) + 1
+		Set DnaCode.LadeCode = LadeCodePrefixLijst.GetAt(LadeCodeIndex) _ LadeCodeSuffix
+		Set DnaCode.ProductNummer = ProductNummerLijst.GetAt(ProductNummerIndex)
+		
+		Do DnaCodeLijst.Insert(DnaCode)
+	}
+	
+	Quit ##class(TECH.ListIterator).%New(DnaCodeLijst)
+]]></Implementation>
+</Method>
+
+<Method name="GeefLadeCodePrefixLijst">
+<Private>1</Private>
+<ReturnType>%ListOfDataTypes</ReturnType>
+<Implementation><![CDATA[
+	Set LadeCodePrefixLijst = ##class(%ListOfDataTypes).%New()
+	
+	Do LadeCodePrefixLijst.InsertAt("L", 1)
+	Do LadeCodePrefixLijst.InsertAt("T", 2)
+	Do LadeCodePrefixLijst.InsertAt("A", 3)
+	
+	Quit LadeCodePrefixLijst
+]]></Implementation>
+</Method>
+
+<Method name="GeefProductNummerLijst">
+<Private>1</Private>
+<ReturnType>%ListOfDataTypes</ReturnType>
+<Implementation><![CDATA[
+	Set ProductNummerLijst = ##class(%ListOfDataTypes).%New()
+	
+	Do ProductNummerLijst.InsertAt(..#ProductNummer1, 1)
+	Do ProductNummerLijst.InsertAt(..#ProductNummer2, 2)
+	
+	Quit ProductNummerLijst
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>