Index: BL/MB/UGLYPicking/Receptie.cls.xml
===================================================================
diff -u -r60287 -r60302
--- BL/MB/UGLYPicking/Receptie.cls.xml	(.../Receptie.cls.xml)	(revision 60287)
+++ BL/MB/UGLYPicking/Receptie.cls.xml	(.../Receptie.cls.xml)	(revision 60302)
@@ -2067,9 +2067,9 @@
 	#dim RGID As %String = ..#TempBufferRGID
 	Set VolgNr = ..CreateNewBuffer(RGID,Initialen)
 	If $$$HasLength(ToeleveringId) {
-		Set DnaCodeIterator = ##class(DOM.Halux.AAP.DnaCodeRepository).%New().ZoekViaToeleveringId(ToeleveringId)
+		Set DnaCodeIterator = ##class(DOM.Halux.AAP.DnaCodeRepository).%New().ZoekViaToeleveringIdEnRecent(ToeleveringId)
 	} ElseIf $$$HasLength(PalletId) {
-		Set DnaCodeIterator = ##class(DOM.Halux.AAP.DnaCodeRepository).%New().ZoekViaPalletCode(PalletId)
+		Set DnaCodeIterator = ##class(DOM.Halux.AAP.DnaCodeRepository).%New().ZoekViaPalletCodeEnRecent(PalletId)
 	} Else {
 		Do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.GeneralErrorException).%New("ToeleveringId en PalletId zijn leeg"))
 	}
Index: vhUnitTest/BL/MB/UGLYPicking/Receptie/BuildBufferViaDnaCode/Test.cls.xml
===================================================================
diff -u -r60294 -r60302
--- vhUnitTest/BL/MB/UGLYPicking/Receptie/BuildBufferViaDnaCode/Test.cls.xml	(.../Test.cls.xml)	(revision 60294)
+++ vhUnitTest/BL/MB/UGLYPicking/Receptie/BuildBufferViaDnaCode/Test.cls.xml	(.../Test.cls.xml)	(revision 60302)
@@ -178,6 +178,7 @@
 <Method name="MaakStandaardDnaCode">
 <Implementation><![CDATA[
 	Set DnaCode = ##class(DOM.Halux.AAP.DnaCode).%New()
+	Set DnaCode.AanmaakTijdstip = ##class(TECH.Context).Instance().GeefDateTimeAPI().CurrentHorolog()
 	Set DnaCode.AxProductieOrderNummer = ""
 	Set DnaCode.DnaCode = "LAAAAAA0"
 	Set DnaCode.InitialenScanner = "TVE"