Index: BL/PPS/TBX/DocsV1/ProboxBarcodeEtiketGenerator.cls.xml
===================================================================
diff -u -r68286 -r68289
--- BL/PPS/TBX/DocsV1/ProboxBarcodeEtiketGenerator.cls.xml	(.../ProboxBarcodeEtiketGenerator.cls.xml)	(revision 68286)
+++ BL/PPS/TBX/DocsV1/ProboxBarcodeEtiketGenerator.cls.xml	(.../ProboxBarcodeEtiketGenerator.cls.xml)	(revision 68289)
@@ -61,7 +61,7 @@
 	Set ProboxBarcodeLabel.Device = LabelDevice
 	Set ProboxBarcodeLabel.Aantal = 1
 	//Set ProboxBarcodeLabel.LijnReferentie = LijnReferentie
-
+	
  	Set ProboxBarcodeLabel.AantalLades = ..TelAantalDnaCodesInIterator(DnaCodeGroepIterator)
  	Set ProboxBarcodeLabel.IsBarcodeLinks = IsBarcodeLinks
  	
Index: vhUnitTest/BL/PPS/TBX/DocsV1/ProboxBarcodeEtiketGenerator/GeefGesorteerdeDnaCodeIterator/Test.cls.xml
===================================================================
diff -u
--- vhUnitTest/BL/PPS/TBX/DocsV1/ProboxBarcodeEtiketGenerator/GeefGesorteerdeDnaCodeIterator/Test.cls.xml	(revision 0)
+++ vhUnitTest/BL/PPS/TBX/DocsV1/ProboxBarcodeEtiketGenerator/GeefGesorteerdeDnaCodeIterator/Test.cls.xml	(revision 68289)
@@ -0,0 +1,211 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.BL.PPS.TBX.DocsV1.ProboxBarcodeEtiketGenerator.GeefGesorteerdeDnaCodeIterator.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="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="OnBeforeOneTest">
+<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)
+]]></Implementation>
+</Method>
+
+<Method name="Test: Iterator met 1 DnaCode meegegeven geeft iterator met 1 DnaCode terug">
+<Implementation><![CDATA[
+	#dim AantalDnaCodes As %Integer = 1
+	#dim DnaCodeIterator As TECH.Iterator = ..GenereerIteratorMetAantalDnaCodes(AantalDnaCodes)
+	
+	Set ProboxBarcodeEtiketGenerator = ##class(BL.PPS.TBX.DocsV1.ProboxBarcodeEtiketGenerator).%New(..ProductAPIStub, ..ToeleveringServiceStub)
+	#dim GesorteerdeDnaCodeIterator As TECH.ListIterator = ProboxBarcodeEtiketGenerator.GeefGesorteerdeDnaCodeIterator(DnaCodeIterator)
+	
+	Do ..AssertGesorteerdeIteratorMetEenDnaCode(GesorteerdeDnaCodeIterator, AantalDnaCodes)
+]]></Implementation>
+</Method>
+
+<Method name="Test: Iterator met 3 DnaCodes meegegeven geeft juist gesorteerde iterator terug">
+<Implementation><![CDATA[
+	#dim AantalDnaCodes As %Integer = 3
+	#dim DnaCodeIterator As TECH.Iterator = ..GenereerIteratorMetAantalDnaCodes(AantalDnaCodes)
+	
+	Set ProboxBarcodeEtiketGenerator = ##class(BL.PPS.TBX.DocsV1.ProboxBarcodeEtiketGenerator).%New(..ProductAPIStub, ..ToeleveringServiceStub)
+	#dim GesorteerdeDnaCodeIterator As TECH.ListIterator = ProboxBarcodeEtiketGenerator.GeefGesorteerdeDnaCodeIterator(DnaCodeIterator)
+	
+	Do ..AssertGesorteerdeIteratorMetDrieDnaCodes(GesorteerdeDnaCodeIterator, AantalDnaCodes)
+]]></Implementation>
+</Method>
+
+<Method name="Test: Iterator met 10 DnaCodes meegegeven geeft juist gesorteerde iterator terug">
+<Implementation><![CDATA[
+	#dim AantalDnaCodes As %Integer = 10
+	#dim DnaCodeIterator As TECH.Iterator = ..GenereerIteratorMetAantalDnaCodes(AantalDnaCodes)
+	
+	Set ProboxBarcodeEtiketGenerator = ##class(BL.PPS.TBX.DocsV1.ProboxBarcodeEtiketGenerator).%New(..ProductAPIStub, ..ToeleveringServiceStub)
+	#dim GesorteerdeDnaCodeIterator As TECH.ListIterator = ProboxBarcodeEtiketGenerator.GeefGesorteerdeDnaCodeIterator(DnaCodeIterator)
+	
+	Do ..AssertGesorteerdeIteratorMetTienDnaCodes(GesorteerdeDnaCodeIterator, AantalDnaCodes)
+]]></Implementation>
+</Method>
+
+<Method name="AssertGesorteerdeIteratorMetEenDnaCode">
+<FormalSpec>GesorteerdeDnaCodeIterator:TECH.ListIterator,AantalDnaCodes:%Integer</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	Do ..AssertDnaCode(GesorteerdeDnaCodeIterator.Next(), "L.ABCD.6", ..#LijnReferentie1)
+	Do $$$AssertFalse(GesorteerdeDnaCodeIterator.HasNext())
+]]></Implementation>
+</Method>
+
+<Method name="AssertGesorteerdeIteratorMetDrieDnaCodes">
+<FormalSpec>GesorteerdeDnaCodeIterator:TECH.ListIterator,AantalDnaCodes:%Integer</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	Do ..AssertDnaCode(GesorteerdeDnaCodeIterator.Next(), "A.ABCD.6", ..#LijnReferentie1)
+	Do ..AssertDnaCode(GesorteerdeDnaCodeIterator.Next(), "L.ABCD.6", ..#LijnReferentie1)
+	Do ..AssertDnaCode(GesorteerdeDnaCodeIterator.Next(), "T.ABCD.6", ..#LijnReferentie2)
+	Do $$$AssertFalse(GesorteerdeDnaCodeIterator.HasNext())
+]]></Implementation>
+</Method>
+
+<Method name="AssertGesorteerdeIteratorMetTienDnaCodes">
+<FormalSpec>GesorteerdeDnaCodeIterator:TECH.ListIterator,AantalDnaCodes:%Integer</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	Do ..AssertDnaCode(GesorteerdeDnaCodeIterator.Next(), "A.ABCD.6", ..#LijnReferentie1)
+	Do ..AssertDnaCode(GesorteerdeDnaCodeIterator.Next(), "A.ABCD.6", ..#LijnReferentie1)
+	Do ..AssertDnaCode(GesorteerdeDnaCodeIterator.Next(), "A.ABCD.6", ..#LijnReferentie2)
+	Do ..AssertDnaCode(GesorteerdeDnaCodeIterator.Next(), "L.ABCD.6", ..#LijnReferentie1)
+	Do ..AssertDnaCode(GesorteerdeDnaCodeIterator.Next(), "L.ABCD.6", ..#LijnReferentie1)
+	Do ..AssertDnaCode(GesorteerdeDnaCodeIterator.Next(), "L.ABCD.6", ..#LijnReferentie2)
+	Do ..AssertDnaCode(GesorteerdeDnaCodeIterator.Next(), "L.ABCD.6", ..#LijnReferentie2)
+	Do ..AssertDnaCode(GesorteerdeDnaCodeIterator.Next(), "T.ABCD.6", ..#LijnReferentie1)
+	Do ..AssertDnaCode(GesorteerdeDnaCodeIterator.Next(), "T.ABCD.6", ..#LijnReferentie2)
+	Do ..AssertDnaCode(GesorteerdeDnaCodeIterator.Next(), "T.ABCD.6", ..#LijnReferentie2)
+	Do $$$AssertFalse(GesorteerdeDnaCodeIterator.HasNext())
+]]></Implementation>
+</Method>
+
+<Method name="AssertDnaCode">
+<FormalSpec>DnaCode:DOM.Halux.AAP.DnaCode,LadeCode:%String,LijnReferentie:%String</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	Do $$$AssertEquals(DnaCode.LadeCode, LadeCode)
+	Do $$$AssertEquals(DnaCode.LijnReferentie, LijnReferentie)
+]]></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>