Index: WSimpl/Halux/AAP/DnaCodeService.cls.xml
===================================================================
diff -u -r62533 -r62547
--- WSimpl/Halux/AAP/DnaCodeService.cls.xml	(.../DnaCodeService.cls.xml)	(revision 62533)
+++ WSimpl/Halux/AAP/DnaCodeService.cls.xml	(.../DnaCodeService.cls.xml)	(revision 62547)
@@ -818,6 +818,17 @@
 		Do ##class(Tools.Wlip).%New(127).String(AantallenPerVhoss.ToString())
 		Do ##class(Tools.Wlip).%New(127).String(AantallenGescandPerVhoss.ToString())
 		
+		#dim PalletIterator As TECH.Iterator = AantallenPerVhoss.GeefItemIterator()
+		While PalletIterator.HasNext() {
+			Do ##class(Tools.Wlip).%New(127).String("in while")
+			Do PalletIterator.Next()
+			#dim Pallet As %String = PalletIterator.Key()
+			If ##class(TECH.StringUtils).StartsWith(Pallet, "O1") {
+				Do ##class(Tools.Wlip).%New(127).String("in if "_RondAfVhossBatchRequest.BatchId_"/"_Pallet)
+				Do ..DnaCodesKlaarmakenVoorBuffer(..DnaCodeRepository.ZoekViaPalletCodeEnRecent(Pallet), ##class(DOM.Halux.AAP.enu.DnaCodeStatus).InBuffer(), , Pallet, RondAfVhossBatchRequest.Header.Initialen)
+			}
+		}
+			
 		Set Response.Header.Status = "200"
 		
 	} Catch {
@@ -835,6 +846,7 @@
 <Private>1</Private>
 <ReturnType>%String</ReturnType>
 <Implementation><![CDATA[
+	Do ##class(Tools.Wlip).%New(127).String("ProbeerEchteVhossIdTeBepalen "_BatchId_"/"_SequentieNummer_"/"_InternVhossId)
 	#dim Resultaat As %String = ""
 	
 	#dim ItemsIterator As TECH.Iterator = ProductieSequentie.GeefItemIterator()
@@ -849,6 +861,7 @@
 			}
 		}
 	}
+	Do ##class(Tools.Wlip).%New(127).String("result = "_Resultaat)
 	If Resultaat = "" {
 		Set Resultaat = InternVhossId
 	}
Index: vhUnitTest/WSimpl/Halux/AAP/DnaCodeService/RondAfVhossBatch/Test.cls.xml
===================================================================
diff -u -r62533 -r62547
--- vhUnitTest/WSimpl/Halux/AAP/DnaCodeService/RondAfVhossBatch/Test.cls.xml	(.../Test.cls.xml)	(revision 62533)
+++ vhUnitTest/WSimpl/Halux/AAP/DnaCodeService/RondAfVhossBatch/Test.cls.xml	(.../Test.cls.xml)	(revision 62547)
@@ -16,6 +16,7 @@
 	
 	Set DnaCodeRepositoryMock = ##class(vhTest.Mock.DOM.Halux.AAP.DnaCodeRepository).%New()
 	Do DnaCodeRepositoryMock.VerwachtMethodCall("ZoekViaBatchId",Request.BatchId).DanReturn(DnaCodeIteratorTweeStuks)
+	Do DnaCodeRepositoryMock.VerwachtMethodCall("ZoekViaPalletCodeEnRecent","O100000042").DanReturn(DnaCodeIteratorEenStuk)
 	Do DnaCodeRepositoryMock.IndienMethodCall("ZoekViaBatchIdEnSequentienummer",Request.BatchId,43).DanReturn(##class(TECH.ListUtils).CreateIteratorOfObjects(DnaCode2))
 	
 	Set BatchStub = ##class(vhTest.Mock.APPS.Halux.common.TaorboxBatch).%New()
@@ -55,6 +56,7 @@
 	
 	Set DnaCodeRepositoryMock = ##class(vhTest.Mock.DOM.Halux.AAP.DnaCodeRepository).%New()
 	Do DnaCodeRepositoryMock.VerwachtMethodCall("ZoekViaBatchId",Request.BatchId).DanReturn(DnaCodeIteratorTweeStuks)
+	Do DnaCodeRepositoryMock.VerwachtMethodCall("ZoekViaPalletCodeEnRecent","O100000042").DanReturn(DnaCodeIteratorEenStuk)
 	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))
 	
@@ -99,6 +101,8 @@
 	
 	Set DnaCodeRepositoryMock = ##class(vhTest.Mock.DOM.Halux.AAP.DnaCodeRepository).%New()
 	Do DnaCodeRepositoryMock.VerwachtMethodCall("ZoekViaBatchId",Request.BatchId).DanReturn(DnaCodeIteratorVierStuks)
+	Do DnaCodeRepositoryMock.VerwachtMethodCall("ZoekViaPalletCodeEnRecent","O100000042").DanReturn(##class(TECH.ListUtils).CreateIteratorOfObjects(DnaCode1))
+	Do DnaCodeRepositoryMock.VerwachtMethodCall("ZoekViaPalletCodeEnRecent","O100000043").DanReturn(##class(TECH.ListUtils).CreateIteratorOfObjects(DnaCode2))
 	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))