Index: vhUnitTest/WSimpl/Halux/AAP/DnaCodeService/RondAfVhossBatch/Test.cls.xml
===================================================================
diff -u -r62694 -r62695
--- vhUnitTest/WSimpl/Halux/AAP/DnaCodeService/RondAfVhossBatch/Test.cls.xml	(.../Test.cls.xml)	(revision 62694)
+++ vhUnitTest/WSimpl/Halux/AAP/DnaCodeService/RondAfVhossBatch/Test.cls.xml	(.../Test.cls.xml)	(revision 62695)
@@ -23,8 +23,8 @@
 	Do BatchStub.IndienMethodCall("GeefID").DanReturn(Request.BatchId)
 	Do BatchStub.IndienMethodCall("GeefCategorie").DanReturn(##class(APPS.Halux.common.enu.Categorie).Legrabox())
 	
-	#dim ProductieSequentieItem1 As APPS.Halux.common.VHOSSProductieSequentieItem= ..MaakProductieSequentieItem(1,42,Request.BatchId)
-	#dim ProductieSequentieItem2 As APPS.Halux.common.VHOSSProductieSequentieItem= ..MaakProductieSequentieItem(1,43,Request.BatchId)
+	#dim ProductieSequentieItem1 As APPS.Halux.common.VHOSSProductieSequentieItem= ..MaakProductieSequentieItem(1,42,Request.BatchId,1)
+	#dim ProductieSequentieItem2 As APPS.Halux.common.VHOSSProductieSequentieItem= ..MaakProductieSequentieItem(1,43,Request.BatchId,1)
 	
 	Set ProductieSequentie = ##class(APPS.Halux.common.ProductieSequentie).%New(BatchStub)
 	Do ProductieSequentie.VoegToeSequentieItem(ProductieSequentieItem1)
@@ -60,8 +60,8 @@
 	Do DnaCodeRepositoryMock.IndienMethodCall("ZoekViaBatchIdEnSequentienummer",Request.BatchId,42).DanReturn(##class(TECH.ListUtils).CreateIteratorOfObjects(DnaCode1))
 	Do DnaCodeRepositoryMock.IndienMethodCall("ZoekViaBatchIdEnSequentienummer",Request.BatchId,43).DanReturn(##class(TECH.ListUtils).CreateIteratorOfObjects(DnaCode2))
 	
-	#dim ProductieSequentieItem1 As APPS.Halux.common.VHOSSProductieSequentieItem= ..MaakProductieSequentieItem(1,42,Request.BatchId)
-	#dim ProductieSequentieItem2 As APPS.Halux.common.VHOSSProductieSequentieItem= ..MaakProductieSequentieItem(1,43,Request.BatchId)
+	#dim ProductieSequentieItem1 As APPS.Halux.common.VHOSSProductieSequentieItem= ..MaakProductieSequentieItem(1,42,Request.BatchId,1)
+	#dim ProductieSequentieItem2 As APPS.Halux.common.VHOSSProductieSequentieItem= ..MaakProductieSequentieItem(1,43,Request.BatchId,1)
 	
 	Set BatchStub = ##class(vhTest.Mock.APPS.Halux.common.TaorboxBatch).%New()
 	Do BatchStub.IndienMethodCall("GeefID").DanReturn(Request.BatchId)
@@ -76,7 +76,7 @@
 	Do SequentieService.IndienMethodCall("GeefProductieSequentie",Request.BatchId).DanReturn(ProductieSequentie)
 	
 	Set RondAfVhossKastHelper = ##class(vhTest.Mock.WSimpl.Halux.AAP.DnaCodeService.RondAfVhossKastHelper).%New()
-	Do RondAfVhossKastHelper.IndienMethodCall("ProbeerEchteVhossIdTeBepalenNietTBX",Request.BatchId,1,ProductieSequentie).DanReturn("O100000042")
+	Do RondAfVhossKastHelper.IndienMethodCall("ProbeerEchteVhossIdTeBepalenNietTBX",Request.BatchId,1,ProductieSequentie,1).DanReturn("O100000042")
 	
 	Set DnaCodeService = ##class(WSimpl.Halux.AAP.DnaCodeService).%New(DnaCodeRepositoryMock,,,,,,,,,SequentieService,RondAfVhossKastHelper)
 	
@@ -111,10 +111,10 @@
 	Do DnaCodeRepositoryMock.IndienMethodCall("ZoekViaBatchIdEnSequentienummer",Request.BatchId,44).DanReturn(##class(TECH.ListUtils).CreateIteratorOfObjects(DnaCode3))
 	Do DnaCodeRepositoryMock.IndienMethodCall("ZoekViaBatchIdEnSequentienummer",Request.BatchId,45).DanReturn(##class(TECH.ListUtils).CreateIteratorOfObjects(DnaCode4))
 	
-	#dim ProductieSequentieItem1 As APPS.Halux.common.VHOSSProductieSequentieItem= ..MaakProductieSequentieItem(1,42,Request.BatchId)
-	#dim ProductieSequentieItem2 As APPS.Halux.common.VHOSSProductieSequentieItem= ..MaakProductieSequentieItem(2,43,Request.BatchId)
-	#dim ProductieSequentieItem3 As APPS.Halux.common.VHOSSProductieSequentieItem= ..MaakProductieSequentieItem(2,44,Request.BatchId)
-	#dim ProductieSequentieItem4 As APPS.Halux.common.VHOSSProductieSequentieItem= ..MaakProductieSequentieItem(3,45,Request.BatchId)
+	#dim ProductieSequentieItem1 As APPS.Halux.common.VHOSSProductieSequentieItem= ..MaakProductieSequentieItem(1,42,Request.BatchId,1)
+	#dim ProductieSequentieItem2 As APPS.Halux.common.VHOSSProductieSequentieItem= ..MaakProductieSequentieItem(2,43,Request.BatchId,1)
+	#dim ProductieSequentieItem3 As APPS.Halux.common.VHOSSProductieSequentieItem= ..MaakProductieSequentieItem(2,44,Request.BatchId,1)
+	#dim ProductieSequentieItem4 As APPS.Halux.common.VHOSSProductieSequentieItem= ..MaakProductieSequentieItem(3,45,Request.BatchId,1)
 	
 	Set BatchStub = ##class(vhTest.Mock.APPS.Halux.common.TaorboxBatch).%New()
 	Do BatchStub.IndienMethodCall("GeefID").DanReturn(Request.BatchId)
@@ -131,10 +131,10 @@
 	Do SequentieService.IndienMethodCall("GeefProductieSequentie",Request.BatchId).DanReturn(ProductieSequentie)
 
 	Set RondAfVhossKastHelper = ##class(vhTest.Mock.WSimpl.Halux.AAP.DnaCodeService.RondAfVhossKastHelper).%New()
-	Do RondAfVhossKastHelper.IndienMethodCall("ProbeerEchteVhossIdTeBepalenNietTBX",Request.BatchId,1,ProductieSequentie).DanReturn("O100000042")
-	Do RondAfVhossKastHelper.IndienMethodCall("ProbeerEchteVhossIdTeBepalenNietTBX",Request.BatchId,2,ProductieSequentie).DanReturn("O100000043")
-	Do RondAfVhossKastHelper.IndienMethodCall("ProbeerEchteVhossIdTeBepalenNietTBX",Request.BatchId,3,ProductieSequentie).DanReturn("3-1")
-	Do RondAfVhossKastHelper.IndienMethodCall("ProbeerEchteVhossIdTeBepalenNietTBX",Request.BatchId,4,ProductieSequentie).DanReturn("3-1")
+	Do RondAfVhossKastHelper.IndienMethodCall("ProbeerEchteVhossIdTeBepalenNietTBX",Request.BatchId,1,ProductieSequentie,1).DanReturn("O100000042")
+	Do RondAfVhossKastHelper.IndienMethodCall("ProbeerEchteVhossIdTeBepalenNietTBX",Request.BatchId,2,ProductieSequentie,1).DanReturn("O100000043")
+	Do RondAfVhossKastHelper.IndienMethodCall("ProbeerEchteVhossIdTeBepalenNietTBX",Request.BatchId,3,ProductieSequentie,1).DanReturn("3-1")
+	Do RondAfVhossKastHelper.IndienMethodCall("ProbeerEchteVhossIdTeBepalenNietTBX",Request.BatchId,4,ProductieSequentie,1).DanReturn("3-1")
 	
 	Set DnaCodeService = ##class(WSimpl.Halux.AAP.DnaCodeService).%New(DnaCodeRepositoryMock,,,,,,,,,SequentieService,RondAfVhossKastHelper)
 	
@@ -249,14 +249,15 @@
 </Method>
 
 <Method name="MaakProductieSequentieItem">
-<FormalSpec>VHOSSID:%String,SequentieNummer:%String,BatchId:%String</FormalSpec>
+<FormalSpec>VHOSSID:%String,SequentieNummer:%String,BatchId:%String,ZijVlakId:%String</FormalSpec>
 <Private>1</Private>
 <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
+	Set ProductieSequentieItem.ZijVlakID = ZijVlakId
 	Quit ProductieSequentieItem
 ]]></Implementation>
 </Method>
Index: vhUnitTest/WSimpl/Halux/AAP/DnaCodeService/RondAfVhossKastHelper/ProbeerEchteVhossIdTeBepalenNietTbx/Test.cls.xml
===================================================================
diff -u -r62612 -r62695
--- vhUnitTest/WSimpl/Halux/AAP/DnaCodeService/RondAfVhossKastHelper/ProbeerEchteVhossIdTeBepalenNietTbx/Test.cls.xml	(.../Test.cls.xml)	(revision 62612)
+++ vhUnitTest/WSimpl/Halux/AAP/DnaCodeService/RondAfVhossKastHelper/ProbeerEchteVhossIdTeBepalenNietTbx/Test.cls.xml	(.../Test.cls.xml)	(revision 62695)
@@ -3,20 +3,21 @@
 <Class name="vhUnitTest.WSimpl.Halux.AAP.DnaCodeService.RondAfVhossKastHelper.ProbeerEchteVhossIdTeBepalenNietTbx.Test">
 <Super>vhUnitTest.TestCase</Super>
 
-<Method name="Test: intern vhoss id al gelink aan echte vhossid">
+<Method name="Test: intern vhoss id al gelinkt aan echte vhossid">
 <Implementation><![CDATA[
 	#dim BatchId = "123456"
 	#dim SequentieNummer = "42"
 	#dim InternVhossId = "1"
 	#dim EchtVhossId = "O100000042"
+	#dim Zijkant = "1"
 	
 	#dim DnaCode1 As DOM.Halux.AAP.DnaCode = ..MaakDnaCode("TABCDE1",$H,EchtVhossId,SequentieNummer,BatchId)
 	
 	Set BatchStub = ##class(vhTest.Mock.APPS.Halux.common.TaorboxBatch).%New()
 	Do BatchStub.IndienMethodCall("GeefID").DanReturn(BatchId)
 	Do BatchStub.IndienMethodCall("GeefCategorie").DanReturn(##class(APPS.Halux.common.enu.Categorie).Legrabox())
 	
-	#dim ProductieSequentieItem1 As APPS.Halux.common.VHOSSProductieSequentieItem= ..MaakProductieSequentieItem(1,42,BatchId)
+	#dim ProductieSequentieItem1 As APPS.Halux.common.VHOSSProductieSequentieItem= ..MaakProductieSequentieItem(1,42,BatchId,1)
 	
 	Set ProductieSequentie = ##class(APPS.Halux.common.ProductieSequentie).%New(BatchStub)
 	Do ProductieSequentie.VoegToeSequentieItem(ProductieSequentieItem1)
@@ -25,25 +26,26 @@
 	Do DnaCodeRepositoryMock.IndienMethodCall("ZoekViaBatchIdEnSequentienummer",BatchId,SequentieNummer).DanReturn(##class(TECH.ListUtils).CreateIteratorOfObjects(DnaCode1))
 	
 	Set Helper = ##class(WSimpl.Halux.AAP.DnaCodeService.RondAfVhossKastHelper).%New(DnaCodeRepositoryMock)
-	#dim Antwoord As %String = Helper.ProbeerEchteVhossIdTeBepalenNietTBX(BatchId, InternVhossId, ProductieSequentie)
+	#dim Antwoord As %String = Helper.ProbeerEchteVhossIdTeBepalenNietTBX(BatchId, InternVhossId, ProductieSequentie, Zijkant)
 	
 	Do $$$AssertEquals(Antwoord,EchtVhossId)
 ]]></Implementation>
 </Method>
 
-<Method name="Test: intern vhoss id nog niet gelink aan echte vhossid">
+<Method name="Test: intern vhoss id nog niet gelinkt aan echte vhossid">
 <Implementation><![CDATA[
 	#dim BatchId = "123456"
 	#dim SequentieNummer = "42"
 	#dim InternVhossId = "1"
+	#dim Zijkant = "1"
 	
 	#dim DnaCode1 As DOM.Halux.AAP.DnaCode = ..MaakDnaCode("TABCDE1",,"",SequentieNummer,BatchId)
 	
 	Set BatchStub = ##class(vhTest.Mock.APPS.Halux.common.TaorboxBatch).%New()
 	Do BatchStub.IndienMethodCall("GeefID").DanReturn(BatchId)
 	Do BatchStub.IndienMethodCall("GeefCategorie").DanReturn(##class(APPS.Halux.common.enu.Categorie).Legrabox())
 	
-	#dim ProductieSequentieItem1 As APPS.Halux.common.VHOSSProductieSequentieItem= ..MaakProductieSequentieItem(1,42,BatchId)
+	#dim ProductieSequentieItem1 As APPS.Halux.common.VHOSSProductieSequentieItem= ..MaakProductieSequentieItem(1,42,BatchId,1)
 	
 	Set ProductieSequentie = ##class(APPS.Halux.common.ProductieSequentie).%New(BatchStub)
 	Do ProductieSequentie.VoegToeSequentieItem(ProductieSequentieItem1)
@@ -52,9 +54,9 @@
 	Do DnaCodeRepositoryMock.IndienMethodCall("ZoekViaBatchIdEnSequentienummer",BatchId,SequentieNummer).DanReturn(##class(TECH.ListUtils).CreateIteratorOfObjects(DnaCode1))
 	
 	Set Helper = ##class(WSimpl.Halux.AAP.DnaCodeService.RondAfVhossKastHelper).%New(DnaCodeRepositoryMock)
-	#dim Antwoord As %String = Helper.ProbeerEchteVhossIdTeBepalenNietTBX(BatchId, InternVhossId, ProductieSequentie)
+	#dim Antwoord As %String = Helper.ProbeerEchteVhossIdTeBepalenNietTBX(BatchId, InternVhossId, ProductieSequentie, Zijkant)
 	
-	Do $$$AssertEquals(Antwoord,"1")
+	Do $$$AssertEquals(Antwoord,InternVhossId_"-"_Zijkant)
 ]]></Implementation>
 </Method>
 
@@ -63,14 +65,15 @@
 	#dim BatchId = "123456"
 	#dim SequentieNummer = "42"
 	#dim InternVhossId = "1"
+	#dim Zijkant = "1"
 	
 	#dim DnaCode1 As DOM.Halux.AAP.DnaCode = ..MaakDnaCode("TABCDE1",,"",SequentieNummer,BatchId)
 	
 	Set BatchStub = ##class(vhTest.Mock.APPS.Halux.common.TaorboxBatch).%New()
 	Do BatchStub.IndienMethodCall("GeefID").DanReturn(BatchId)
 	Do BatchStub.IndienMethodCall("GeefCategorie").DanReturn(##class(APPS.Halux.common.enu.Categorie).Legrabox())
 	
-	#dim ProductieSequentieItem1 As APPS.Halux.common.VHOSSProductieSequentieItem= ..MaakProductieSequentieItem(1,42,BatchId)
+	#dim ProductieSequentieItem1 As APPS.Halux.common.VHOSSProductieSequentieItem= ..MaakProductieSequentieItem(1,42,BatchId,1)
 	
 	Set ProductieSequentie = ##class(APPS.Halux.common.ProductieSequentie).%New(BatchStub)
 	Do ProductieSequentie.VoegToeSequentieItem(ProductieSequentieItem1)
@@ -79,9 +82,9 @@
 	Do DnaCodeRepositoryMock.IndienMethodCall("ZoekViaBatchIdEnSequentienummer",BatchId,SequentieNummer).DanReturn(..EmptyIterator())
 	
 	Set Helper = ##class(WSimpl.Halux.AAP.DnaCodeService.RondAfVhossKastHelper).%New(DnaCodeRepositoryMock)
-	#dim Antwoord As %String = Helper.ProbeerEchteVhossIdTeBepalenNietTBX(BatchId, InternVhossId, ProductieSequentie)
+	#dim Antwoord As %String = Helper.ProbeerEchteVhossIdTeBepalenNietTBX(BatchId, InternVhossId, ProductieSequentie, Zijkant)
 	
-	Do $$$AssertEquals(Antwoord,InternVhossId)
+	Do $$$AssertEquals(Antwoord,InternVhossId_"-"_Zijkant)
 ]]></Implementation>
 </Method>
 
@@ -90,6 +93,7 @@
 	#dim BatchId = "123456"
 	#dim SequentieNummer = "42"
 	#dim InternVhossId = "1"
+	#dim Zijkant = "1"
 	
 	#dim DnaCode1 As DOM.Halux.AAP.DnaCode = ..MaakDnaCode("TABCDE1",,"",SequentieNummer,BatchId)
 	
@@ -103,9 +107,9 @@
 	Do DnaCodeRepositoryMock.IndienMethodCall("ZoekViaBatchIdEnSequentienummer",BatchId,SequentieNummer).DanReturn(..EmptyIterator())
 	
 	Set Helper = ##class(WSimpl.Halux.AAP.DnaCodeService.RondAfVhossKastHelper).%New(DnaCodeRepositoryMock)
-	#dim Antwoord As %String = Helper.ProbeerEchteVhossIdTeBepalenNietTBX(BatchId, InternVhossId, ProductieSequentie)
+	#dim Antwoord As %String = Helper.ProbeerEchteVhossIdTeBepalenNietTBX(BatchId, InternVhossId, ProductieSequentie, Zijkant)
 	
-	Do $$$AssertEquals(Antwoord,InternVhossId)
+	Do $$$AssertEquals(Antwoord,InternVhossId_"-"_Zijkant)
 ]]></Implementation>
 </Method>
 
@@ -118,6 +122,8 @@
 	#dim InternVhossId2 = "2"
 	#dim EchtVhossId1 = "O100000042"
 	#dim EchtVhossId2 = "O100000043"
+	#dim Zijkant = "1"
+	#dim Zijkant2 = "2"
 	
 	#dim DnaCode1 As DOM.Halux.AAP.DnaCode = ..MaakDnaCode("TABCDE1",$H,EchtVhossId1,SequentieNummer1,BatchId)
 	#dim DnaCode2 As DOM.Halux.AAP.DnaCode = ..MaakDnaCode("TABCDE2",$H,EchtVhossId2,SequentieNummer2,BatchId)
@@ -126,8 +132,8 @@
 	Do BatchStub.IndienMethodCall("GeefID").DanReturn(BatchId)
 	Do BatchStub.IndienMethodCall("GeefCategorie").DanReturn(##class(APPS.Halux.common.enu.Categorie).Legrabox())
 	
-	#dim ProductieSequentieItem1 As APPS.Halux.common.VHOSSProductieSequentieItem= ..MaakProductieSequentieItem(1,SequentieNummer1,BatchId)
-	#dim ProductieSequentieItem2 As APPS.Halux.common.VHOSSProductieSequentieItem= ..MaakProductieSequentieItem(2,SequentieNummer2,BatchId)
+	#dim ProductieSequentieItem1 As APPS.Halux.common.VHOSSProductieSequentieItem= ..MaakProductieSequentieItem(1,SequentieNummer1,BatchId,1)
+	#dim ProductieSequentieItem2 As APPS.Halux.common.VHOSSProductieSequentieItem= ..MaakProductieSequentieItem(2,SequentieNummer2,BatchId,2)
 	
 	Set ProductieSequentie = ##class(APPS.Halux.common.ProductieSequentie).%New(BatchStub)
 	Do ProductieSequentie.VoegToeSequentieItem(ProductieSequentieItem1)
@@ -139,8 +145,8 @@
 	
 	Set Helper = ##class(WSimpl.Halux.AAP.DnaCodeService.RondAfVhossKastHelper).%New(DnaCodeRepositoryMock)
 	
-	Do $$$AssertEquals(Helper.ProbeerEchteVhossIdTeBepalenNietTBX(BatchId, InternVhossId, ProductieSequentie),EchtVhossId1)
-	Do $$$AssertEquals(Helper.ProbeerEchteVhossIdTeBepalenNietTBX(BatchId, InternVhossId2, ProductieSequentie),EchtVhossId2)
+	Do $$$AssertEquals(Helper.ProbeerEchteVhossIdTeBepalenNietTBX(BatchId, InternVhossId, ProductieSequentie, Zijkant),EchtVhossId1)
+	Do $$$AssertEquals(Helper.ProbeerEchteVhossIdTeBepalenNietTBX(BatchId, InternVhossId2, ProductieSequentie, Zijkant2),EchtVhossId2)
 ]]></Implementation>
 </Method>
 
@@ -153,6 +159,8 @@
 	#dim InternVhossId2 = "2"
 	#dim EchtVhossId1 = "O100000042"
 	#dim EchtVhossId2 = "O100000043"
+	#dim Zijkant = "1"
+	#dim Zijkant2 = "2"
 	
 	#dim DnaCode1 As DOM.Halux.AAP.DnaCode = ..MaakDnaCode("TABCDE1",$H,EchtVhossId1,SequentieNummer1,BatchId)
 	#dim DnaCode2 As DOM.Halux.AAP.DnaCode = ..MaakDnaCode("TABCDE2",,"",SequentieNummer2,BatchId)
@@ -161,8 +169,8 @@
 	Do BatchStub.IndienMethodCall("GeefID").DanReturn(BatchId)
 	Do BatchStub.IndienMethodCall("GeefCategorie").DanReturn(##class(APPS.Halux.common.enu.Categorie).Legrabox())
 	
-	#dim ProductieSequentieItem1 As APPS.Halux.common.VHOSSProductieSequentieItem= ..MaakProductieSequentieItem(1,SequentieNummer1,BatchId)
-	#dim ProductieSequentieItem2 As APPS.Halux.common.VHOSSProductieSequentieItem= ..MaakProductieSequentieItem(2,SequentieNummer2,BatchId)
+	#dim ProductieSequentieItem1 As APPS.Halux.common.VHOSSProductieSequentieItem= ..MaakProductieSequentieItem(1,SequentieNummer1,BatchId,1)
+	#dim ProductieSequentieItem2 As APPS.Halux.common.VHOSSProductieSequentieItem= ..MaakProductieSequentieItem(2,SequentieNummer2,BatchId,1)
 	
 	Set ProductieSequentie = ##class(APPS.Halux.common.ProductieSequentie).%New(BatchStub)
 	Do ProductieSequentie.VoegToeSequentieItem(ProductieSequentieItem1)
@@ -174,20 +182,21 @@
 	
 	Set Helper = ##class(WSimpl.Halux.AAP.DnaCodeService.RondAfVhossKastHelper).%New(DnaCodeRepositoryMock)
 	
-	Do $$$AssertEquals(Helper.ProbeerEchteVhossIdTeBepalenNietTBX(BatchId, InternVhossId, ProductieSequentie),EchtVhossId1)
-	Do $$$AssertEquals(Helper.ProbeerEchteVhossIdTeBepalenNietTBX(BatchId, InternVhossId2, ProductieSequentie),InternVhossId2)
+	Do $$$AssertEquals(Helper.ProbeerEchteVhossIdTeBepalenNietTBX(BatchId, InternVhossId, ProductieSequentie, Zijkant),EchtVhossId1)
+	Do $$$AssertEquals(Helper.ProbeerEchteVhossIdTeBepalenNietTBX(BatchId, InternVhossId2, ProductieSequentie, Zijkant2),InternVhossId2_"-"_Zijkant2)
 ]]></Implementation>
 </Method>
 
 <Method name="MaakProductieSequentieItem">
-<FormalSpec>VHOSSID:%String,SequentieNummer:%String,BatchId:%String</FormalSpec>
+<FormalSpec>VHOSSID:%String,SequentieNummer:%String,BatchId:%String,ZijvlakId:%String</FormalSpec>
 <Private>1</Private>
 <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
+	Set ProductieSequentieItem.ZijVlakID = ZijvlakId
 	Quit ProductieSequentieItem
 ]]></Implementation>
 </Method>
Index: WSimpl/Halux/AAP/DnaCodeService.cls.xml
===================================================================
diff -u -r62694 -r62695
--- WSimpl/Halux/AAP/DnaCodeService.cls.xml	(.../DnaCodeService.cls.xml)	(revision 62694)
+++ WSimpl/Halux/AAP/DnaCodeService.cls.xml	(.../DnaCodeService.cls.xml)	(revision 62695)
@@ -790,7 +790,7 @@
 					Do AantallenPerVhoss.Verhoog(..RondAfVhossKastHelper.ProbeerEchteVhossIdTeBepalenTBX(TbxSequentieItemIterator, VhossMapper))
 				} Else {
 				  	#dim ProductieItem As APPS.Halux.common.VHOSSProductieSequentieItem = ProductieSequentie.GeefVHOSSProductieSequentieItemViaSequentieNummer(DnaCodeTemp.SequentieNummer)
-				  	Do AantallenPerVhoss.Verhoog(..RondAfVhossKastHelper.ProbeerEchteVhossIdTeBepalenNietTBX(RondAfVhossBatchRequest.BatchId,ProductieItem.VHOSSID, ProductieSequentie))
+				  	Do AantallenPerVhoss.Verhoog(..RondAfVhossKastHelper.ProbeerEchteVhossIdTeBepalenNietTBX(RondAfVhossBatchRequest.BatchId,ProductieItem.VHOSSID, ProductieSequentie, ProductieItem.ZijVlakID))
 			  	}
 			}
 			
Index: vhTest/Mock/WSimpl/Halux/AAP/DnaCodeService/RondAfVhossKastHelper.cls.xml
===================================================================
diff -u -r62656 -r62695
--- vhTest/Mock/WSimpl/Halux/AAP/DnaCodeService/RondAfVhossKastHelper.cls.xml	(.../RondAfVhossKastHelper.cls.xml)	(revision 62656)
+++ vhTest/Mock/WSimpl/Halux/AAP/DnaCodeService/RondAfVhossKastHelper.cls.xml	(.../RondAfVhossKastHelper.cls.xml)	(revision 62695)
@@ -30,9 +30,9 @@
 </Method>
 
 <Method name="ProbeerEchteVhossIdTeBepalenNietTBX">
-<FormalSpec>BatchId:%String,InternVhossId:%String,ProductieSequentie:APPS.Halux.common.ProductieSequentie</FormalSpec>
+<FormalSpec>BatchId:%String,InternVhossId:%String,ProductieSequentie:APPS.Halux.common.ProductieSequentie,ZijVlakID:%String</FormalSpec>
 <ReturnType>%String</ReturnType>
-<Implementation><![CDATA[	quit ..VerwerkMethodCall("ProbeerEchteVhossIdTeBepalenNietTBX",BatchId,InternVhossId,ProductieSequentie)
+<Implementation><![CDATA[	quit ..VerwerkMethodCall("ProbeerEchteVhossIdTeBepalenNietTBX",BatchId,InternVhossId,ProductieSequentie,ZijVlakID)
 ]]></Implementation>
 </Method>
 
Index: WSimpl/Halux/AAP/DnaCodeService/RondAfVhossKastHelper.cls.xml
===================================================================
diff -u -r62657 -r62695
--- WSimpl/Halux/AAP/DnaCodeService/RondAfVhossKastHelper.cls.xml	(.../RondAfVhossKastHelper.cls.xml)	(revision 62657)
+++ WSimpl/Halux/AAP/DnaCodeService/RondAfVhossKastHelper.cls.xml	(.../RondAfVhossKastHelper.cls.xml)	(revision 62695)
@@ -45,7 +45,7 @@
 </Method>
 
 <Method name="ProbeerEchteVhossIdTeBepalenNietTBX">
-<FormalSpec>BatchId:%String,InternVhossId:%String,ProductieSequentie:APPS.Halux.common.ProductieSequentie</FormalSpec>
+<FormalSpec>BatchId:%String,InternVhossId:%String,ProductieSequentie:APPS.Halux.common.ProductieSequentie,ZijVlakID:%String</FormalSpec>
 <ReturnType>%String</ReturnType>
 <Implementation><![CDATA[
 	#dim Resultaat As %String = ""
@@ -54,7 +54,7 @@
 	
 	While ItemsIterator.HasNext() {
 		#dim ProductieItem As APPS.Halux.common.VHOSSProductieSequentieItem = ItemsIterator.Next()
-		If ProductieItem.VHOSSID = InternVhossId {
+		If (ProductieItem.VHOSSID = InternVhossId) && (ProductieItem.ZijVlakID = ZijVlakID) {
 			#dim DnaCodeIterator As TECH.Iterator = ..DnaCodeRepository.ZoekViaBatchIdEnSequentienummer(BatchId, ProductieItem.SequentieNummer)
 			If DnaCodeIterator.HasNext() {
 				#dim DnaCode As DOM.Halux.AAP.DnaCode = DnaCodeIterator.Next()
@@ -65,7 +65,7 @@
 		}
 	}
 	If Resultaat = "" {
-		Set Resultaat = InternVhossId
+		Set Resultaat = InternVhossId_"-"_ZijVlakID
 	}
 	Quit Resultaat
 ]]></Implementation>