Index: vhUnitTest/WSimpl/Halux/AAP/DnaCodeService/RondAfVhossBatch/Test.cls.xml
===================================================================
diff -u -r62519 -r62520
--- vhUnitTest/WSimpl/Halux/AAP/DnaCodeService/RondAfVhossBatch/Test.cls.xml	(.../Test.cls.xml)	(revision 62519)
+++ vhUnitTest/WSimpl/Halux/AAP/DnaCodeService/RondAfVhossBatch/Test.cls.xml	(.../Test.cls.xml)	(revision 62520)
@@ -40,35 +40,18 @@
 	Set Request = ##class(WS.Halux.AAP.RondAfVhossBatchRequest).%New()
 	Set Request.BatchId = "123456"
 	
-	Set DnaCode1 = ##class(DOM.Halux.AAP.DnaCode).%New()
-	Set DnaCode1.DnaCode = "LABCDE1"
-	Set DnaCode1.ScanTijdstip = $H
-	Set DnaCode1.PalletCode = "O100000042"
-	Set DnaCode1.SequentieNummer = 42
-	Set DnaCode1.BatchId = "123456"
+	#dim DnaCode1 As DOM.Halux.AAP.DnaCode = ..MaakDnaCode("LABCDE1",$H,"O100000042","42",Request.BatchId)
+	#dim DnaCode2 As DOM.Halux.AAP.DnaCode = ..MaakDnaCode("LABCDF2",,"O100000042","43",Request.BatchId)
 	
-	Set DnaCode2 = ##class(DOM.Halux.AAP.DnaCode).%New()
-	Set DnaCode2.DnaCode = "LABCDF2"
-	Set DnaCode2.PalletCode = "O100000042"
-	Set DnaCode2.BatchId = "123456"
-	Set DnaCode2.SequentieNummer = 43
-	
 	#dim DnaCodeIteratorEenStuk As TECH.Iterator = ##class(TECH.ListUtils).CreateIteratorOfObjects(DnaCode1)
 	#dim DnaCodeIteratorTweeStuks As TECH.Iterator = ##class(TECH.ListUtils).CreateIteratorOfObjects(DnaCode1, DnaCode2)
 	
 	Set DnaCodeRepositoryMock = ##class(vhTest.Mock.DOM.Halux.AAP.DnaCodeRepository).%New()
 	Do DnaCodeRepositoryMock.VerwachtMethodCall("ZoekViaBatchId",Request.BatchId).DanReturn(DnaCodeIteratorTweeStuks)
 	
+	#dim ProductieSequentieItem1 As APPS.Halux.common.VHOSSProductieSequentieItem= ..MaakProductieSequentieItem(1,42,Request.BatchId)
+	#dim ProductieSequentieItem2 As APPS.Halux.common.VHOSSProductieSequentieItem= ..MaakProductieSequentieItem(1,43,Request.BatchId)
 	
-	Set ProductieSequentieItem1 = ##class(APPS.Halux.common.VHOSSProductieSequentieItem).%New()
-	Set ProductieSequentieItem1.VHOSSID = 1
-	Set ProductieSequentieItem1.SequentieNummer = 42
-	Set ProductieSequentieItem1.BatchID = Request.BatchId
-	Set ProductieSequentieItem2 = ##class(APPS.Halux.common.VHOSSProductieSequentieItem).%New()
-	Set ProductieSequentieItem2.VHOSSID = 1
-	Set ProductieSequentieItem2.SequentieNummer = 43
-	Set ProductieSequentieItem2.BatchID = Request.BatchId
-	
 	Set BatchStub = ##class(vhTest.Mock.APPS.Halux.common.TaorboxBatch).%New()
 	Do BatchStub.IndienMethodCall("GeefID").DanReturn(Request.BatchId)
 	Do BatchStub.IndienMethodCall("GeefCategorie").DanReturn(##class(APPS.Halux.common.enu.Categorie).TAORbox())
@@ -92,6 +75,32 @@
 	Do DnaCodeRepositoryMock.Verifieer()
 ]]></Implementation>
 </Method>
+
+<Method name="MaakProductieSequentieItem">
+<FormalSpec>VHOSSID:%String,SequentieNummer:%String,BatchId:%String</FormalSpec>
+<ReturnType>APPS.Halux.common.VHOSSProductieSequentieItem</ReturnType>
+<Implementation><![CDATA[
+	Set ProductieSequentieItem = ##class(APPS.Halux.common.VHOSSProductieSequentieItem).%New()
+	Set ProductieSequentieItem.VHOSSID = VHOSSID
+	Set ProductieSequentieItem.SequentieNummer = SequentieNummer
+	Set ProductieSequentieItem.BatchID = BatchId
+	Quit ProductieSequentieItem
+]]></Implementation>
+</Method>
+
+<Method name="MaakDnaCode">
+<FormalSpec>DnaCode:%String,ScanTijdstip:TECH.Horolog="",PalletCode:%String,SequentieNummer:%String,BatchId:%String</FormalSpec>
+<ReturnType>DOM.Halux.AAP.DnaCode</ReturnType>
+<Implementation><![CDATA[
+	Set DnaCode = ##class(DOM.Halux.AAP.DnaCode).%New()
+	Set DnaCode.DnaCode = DnaCode
+	Set DnaCode.ScanTijdstip = ScanTijdstip
+	Set DnaCode.PalletCode = PalletCode
+	Set DnaCode.SequentieNummer = SequentieNummer
+	Set DnaCode.BatchId = BatchId
+	Quit DnaCode
+]]></Implementation>
+</Method>
 </Class>