Index: vhUnitTest/WSimpl/Halux/AAP/DnaCodeService/RondAfVhossBatch/Test.cls.xml
===================================================================
diff -u -r62526 -r62533
--- vhUnitTest/WSimpl/Halux/AAP/DnaCodeService/RondAfVhossBatch/Test.cls.xml	(.../Test.cls.xml)	(revision 62526)
+++ vhUnitTest/WSimpl/Halux/AAP/DnaCodeService/RondAfVhossBatch/Test.cls.xml	(.../Test.cls.xml)	(revision 62533)
@@ -9,7 +9,7 @@
 	Set Request.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",$H,"","43",Request.BatchId)
+	#dim DnaCode2 As DOM.Halux.AAP.DnaCode = ..MaakDnaCode("LABCDF2",$H,"O100000042","43",Request.BatchId)
 	
 	#dim DnaCodeIteratorEenStuk As TECH.Iterator = ##class(TECH.ListUtils).CreateIteratorOfObjects(DnaCode1)
 	#dim DnaCodeIteratorTweeStuks As TECH.Iterator = ##class(TECH.ListUtils).CreateIteratorOfObjects(DnaCode1, DnaCode2)
@@ -85,26 +85,29 @@
 ]]></Implementation>
 </Method>
 
-<Method name="aTest: Standaardgedrag: batch met 3 vhossen: een volledig gescand, een deels en een nog helemaal niet">
+<Method name="Test: Standaardgedrag: batch met 3 vhossen: een volledig gescand, een deels en een nog helemaal niet">
 <Implementation><![CDATA[
 	Set Request = ##class(WS.Halux.AAP.RondAfVhossBatchRequest).%New()
 	Set Request.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",$H,"O100000043","43",Request.BatchId)
-	#dim DnaCode3 As DOM.Halux.AAP.DnaCode = ..MaakDnaCode("LABCDG3",,,"43",Request.BatchId)
-	#dim DnaCode4 As DOM.Halux.AAP.DnaCode = ..MaakDnaCode("LABCDH4",,,"43",Request.BatchId)
+	#dim DnaCode3 As DOM.Halux.AAP.DnaCode = ..MaakDnaCode("LABCDG3",,"","44",Request.BatchId)
+	#dim DnaCode4 As DOM.Halux.AAP.DnaCode = ..MaakDnaCode("LABCDH4",,"","45",Request.BatchId)
 	
-	#dim DnaCodeIteratorEenStuk As TECH.Iterator = ##class(TECH.ListUtils).CreateIteratorOfObjects(DnaCode1)
-	#dim DnaCodeIteratorTweeStuks As TECH.Iterator = ##class(TECH.ListUtils).CreateIteratorOfObjects(DnaCode1, DnaCode2)
+	#dim DnaCodeIteratorVierStuks As TECH.Iterator = ##class(TECH.ListUtils).CreateIteratorOfObjects(DnaCode1, DnaCode2, DnaCode3, DnaCode4)
 	
 	Set DnaCodeRepositoryMock = ##class(vhTest.Mock.DOM.Halux.AAP.DnaCodeRepository).%New()
-	Do DnaCodeRepositoryMock.VerwachtMethodCall("ZoekViaBatchId",Request.BatchId).DanReturn(DnaCodeIteratorTweeStuks)
+	Do DnaCodeRepositoryMock.VerwachtMethodCall("ZoekViaBatchId",Request.BatchId).DanReturn(DnaCodeIteratorVierStuks)
 	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))
+	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(1,43,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)
 	
 	Set BatchStub = ##class(vhTest.Mock.APPS.Halux.common.TaorboxBatch).%New()
 	Do BatchStub.IndienMethodCall("GeefID").DanReturn(Request.BatchId)
@@ -113,6 +116,8 @@
 	Set ProductieSequentie = ##class(APPS.Halux.common.ProductieSequentie).%New(BatchStub)
 	Do ProductieSequentie.VoegToeSequentieItem(ProductieSequentieItem1)
 	Do ProductieSequentie.VoegToeSequentieItem(ProductieSequentieItem2)
+	Do ProductieSequentie.VoegToeSequentieItem(ProductieSequentieItem3)
+	Do ProductieSequentie.VoegToeSequentieItem(ProductieSequentieItem4)
 	
 	Set SequentieService = ##class(vhTest.Mock.APPS.Halux.common.impl.SequentieService).%New()
 	Do SequentieService.IndienMethodCall("HeeftProductieSequentie",Request.BatchId).DanReturn($$$True)
@@ -122,10 +127,14 @@
 	
 	#dim Antwoord As WS.Halux.AAP.RondAfVhossBatchResponse = DnaCodeService.RondAfVhossBatch(Request)
 	
-	Do $$$AssertEquals(Antwoord.VhossKastenMetAantallen.Count(),1)
-	Do $$$AssertEquals(Antwoord.VhossKastenMetAantallen.GetAt(1).Vhosskast,"O100000042")
-	Do $$$AssertEquals(Antwoord.VhossKastenMetAantallen.GetAt(1).AantalLades,2)
-	Do $$$AssertEquals(Antwoord.VhossKastenMetAantallen.GetAt(1).AantalLadesGescand,1)
+	If $$$AssertEquals(Antwoord.VhossKastenMetAantallen.Count(),2 ){
+		Do $$$AssertEquals(Antwoord.VhossKastenMetAantallen.GetAt(1).Vhosskast,"Vhoss 3")
+		Do $$$AssertEquals(Antwoord.VhossKastenMetAantallen.GetAt(1).AantalLades,1)
+		Do $$$AssertEquals(Antwoord.VhossKastenMetAantallen.GetAt(1).AantalLadesGescand,0)
+		Do $$$AssertEquals(Antwoord.VhossKastenMetAantallen.GetAt(2).Vhosskast,"O100000043")
+		Do $$$AssertEquals(Antwoord.VhossKastenMetAantallen.GetAt(2).AantalLades,2)
+		Do $$$AssertEquals(Antwoord.VhossKastenMetAantallen.GetAt(2).AantalLadesGescand,1)
+	}
 	Do DnaCodeRepositoryMock.Verifieer()
 ]]></Implementation>
 </Method>
Index: WSimpl/Halux/AAP/DnaCodeService.cls.xml
===================================================================
diff -u -r62526 -r62533
--- WSimpl/Halux/AAP/DnaCodeService.cls.xml	(.../DnaCodeService.cls.xml)	(revision 62526)
+++ WSimpl/Halux/AAP/DnaCodeService.cls.xml	(.../DnaCodeService.cls.xml)	(revision 62533)
@@ -771,18 +771,19 @@
 		While DnaCodeViaBatchIterator.HasNext() {
 			Set DnaCodeTemp = DnaCodeViaBatchIterator.Next()
 			#dim ProductieItem As APPS.Halux.common.VHOSSProductieSequentieItem = ProductieSequentie.GeefVHOSSProductieSequentieItemViaSequentieNummer(DnaCodeTemp.SequentieNummer)
-			
+			Do ##class(Tools.Wlip).%New(127).String("seqnr = "_DnaCodeTemp.SequentieNummer)
 			If $$$HasLength(DnaCodeTemp.ScanTijdstip) {
+				Do ##class(Tools.Wlip).%New(127).String("100")
 				Do AantallenGescandPerVhoss.Verhoog(DnaCodeTemp.PalletCode)
 				Do AantallenPerVhoss.Verhoog(DnaCodeTemp.PalletCode)
 				//Do VhossMapper.Insert(##class(TECH.KeyValuePair).%New(ProductieItem.VHOSSID, DnaCodeTemp.PalletCode))
 			} Else {
 			  	If ##class(TECH.StringUtils).StartsWith(DnaCodeTemp.DnaCode,"T") {
 			  	} Else {
-				  	Do ##class(Tools.Wlip).%New(127).ObjToXML(ProductieItem)
+				  	//Do ##class(Tools.Wlip).%New(127).ObjToXML(ProductieItem)
 				  	//zoeken naar reeds bestaand echt palletnummer dat bij deze interne vhossid hoort. Indien gevonden, daarbij verhogen
 				  	
-				  	Do AantallenPerVhoss.Verhoog(..ProbeerEchteVhossIdTeBepalen(RondAfVhossBatchRequest.BatchId,DnaCodeTemp.SequentieNummer,ProductieItem.VHOSSID))
+				  	Do AantallenPerVhoss.Verhoog(..ProbeerEchteVhossIdTeBepalenNietTBX(RondAfVhossBatchRequest.BatchId,DnaCodeTemp.SequentieNummer,ProductieItem.VHOSSID, ProductieSequentie))
 			  	}
 			}
 			
@@ -829,21 +830,28 @@
 ]]></Implementation>
 </Method>
 
-<Method name="ProbeerEchteVhossIdTeBepalen">
-<FormalSpec>BatchId:%String,SequentieNummer:%String,InternVhossId:%String</FormalSpec>
+<Method name="ProbeerEchteVhossIdTeBepalenNietTBX">
+<FormalSpec>BatchId:%String,SequentieNummer:%String,InternVhossId:%String,ProductieSequentie:APPS.Halux.common.ProductieSequentie</FormalSpec>
 <Private>1</Private>
 <ReturnType>%String</ReturnType>
 <Implementation><![CDATA[
 	#dim Resultaat As %String = ""
-	#dim DnaCodeIterator As TECH.Iterator = ..DnaCodeRepository.ZoekViaBatchIdEnSequentienummer(BatchId, SequentieNummer)
-	If DnaCodeIterator.HasNext() {
-		#dim DnaCode As DOM.Halux.AAP.DnaCode = DnaCodeIterator.Next()
-		If ##class(TECH.StringUtils).StartsWith(DnaCode.PalletCode,"O1") {
-			Set Resultaat = DnaCode.PalletCode
-		} Else {
-			Set Resultaat = InternVhossId
+	
+	#dim ItemsIterator As TECH.Iterator = ProductieSequentie.GeefItemIterator()
+	
+	While ItemsIterator.HasNext() {
+		#dim ProductieItem As APPS.Halux.common.VHOSSProductieSequentieItem = ItemsIterator.Next()
+		If ProductieItem.VHOSSID = InternVhossId {
+			#dim DnaCodeIterator As TECH.Iterator = ..DnaCodeRepository.ZoekViaBatchIdEnSequentienummer(BatchId, ProductieItem.SequentieNummer)
+			#dim DnaCode As DOM.Halux.AAP.DnaCode = DnaCodeIterator.Next()
+			If ##class(TECH.StringUtils).StartsWith(DnaCode.PalletCode,"O1") {
+				Set Resultaat = DnaCode.PalletCode
+			}
 		}
 	}
+	If Resultaat = "" {
+		Set Resultaat = InternVhossId
+	}
 	Quit Resultaat
 ]]></Implementation>
 </Method>