Index: BL/MB/UGLYPicking/Receptie.cls.xml
===================================================================
diff -u -r55842 -r55843
--- BL/MB/UGLYPicking/Receptie.cls.xml	(.../Receptie.cls.xml)	(revision 55842)
+++ BL/MB/UGLYPicking/Receptie.cls.xml	(.../Receptie.cls.xml)	(revision 55843)
@@ -2070,7 +2070,9 @@
 	#dim DnaCode As DOM.Halux.AAP.DnaCode
 	While DnaCodeIterator.HasNext() {
 		Set DnaCode = DnaCodeIterator.Next()
-		Set Status = ..AddToBuffer(RGID,VolgNr,DnaCode.ProductNummer,DnaCode.LadeCode,DnaCode.Locatie,DnaCode.PalletCode,Initialen,,,,,)
+		If DnaCode.Status = ##class(DOM.Halux.AAP.enu.DnaCodeStatus).Gescand() {
+			Set Status = ..AddToBuffer(RGID,VolgNr,DnaCode.ProductNummer,DnaCode.LadeCode,DnaCode.Locatie,DnaCode.PalletCode,Initialen,,,,,)
+		}
 	}  
 	;Buffer verwijderen indien geen lijnen aangemaakt (leeg)
 	If ..IsBufferEmpty(RGID,VolgNr) Do
Index: vhUnitTest/BL/MB/UGLYPicking/Receptie/BuildBufferViaDnaCode/Test.cls.xml
===================================================================
diff -u -r55842 -r55843
--- vhUnitTest/BL/MB/UGLYPicking/Receptie/BuildBufferViaDnaCode/Test.cls.xml	(.../Test.cls.xml)	(revision 55842)
+++ vhUnitTest/BL/MB/UGLYPicking/Receptie/BuildBufferViaDnaCode/Test.cls.xml	(.../Test.cls.xml)	(revision 55843)
@@ -58,7 +58,7 @@
 <Method name="Test: Toelevering met 2 DnaCode voor 1 product naar Buffer -&gt; aantal=2">
 <Implementation><![CDATA[
 	Set ..DnaCode1 = ..MaakStandaardDnaCode()
-	Set ..DnaCode2.DnaCode = "LAAAAAA0"
+	Set ..DnaCode1.DnaCode = "LAAAAAA0"
 	Set ..DnaCode2 = ..MaakStandaardDnaCode()
 	Set ..DnaCode2.DnaCode = "LAAAAAB7"
 	Do ##class(DOM.Halux.AAP.DnaCodeRepository).%New().Bewaar(..DnaCode1)
@@ -78,6 +78,31 @@
 ]]></Implementation>
 </Method>
 
+<Method name="Test: Toelevering met 2 DnaCode voor 1 product naar Buffer waarvan 1 niet status Gescand heeft -&gt; aantal=1">
+<Implementation><![CDATA[
+	Set ..DnaCode1 = ..MaakStandaardDnaCode()
+	Set ..DnaCode1.DnaCode = "LAAAAAA0"
+	Set ..DnaCode1.Status = ##class(DOM.Halux.AAP.enu.DnaCodeStatus).Gescand()
+	Set ..DnaCode2 = ..MaakStandaardDnaCode()
+	Set ..DnaCode2.DnaCode = "LAAAAAB7"
+	Set ..DnaCode1.Status = ##class(DOM.Halux.AAP.enu.DnaCodeStatus).Nieuw()
+	Do ##class(DOM.Halux.AAP.DnaCodeRepository).%New().Bewaar(..DnaCode1)
+	Do ##class(DOM.Halux.AAP.DnaCodeRepository).%New().Bewaar(..DnaCode2)
+		
+	#dim VolgNummer As %String = ""
+	Do ##class(BL.MB.UGLYPicking.Receptie).BuildBufferViaDnaCode(..DnaCode1.Toelevering,..DnaCode1.InitialenScanner,.VolgNummer)
+	
+	Do $$$AssertEquals(VolgNummer,"1")
+	Do $$$AssertEquals($Piece(^UPRCP("B","~tmp",VolgNummer),"\",3),..DnaCode1.InitialenScanner)
+	Do $$$AssertEquals($Piece(^UPRCP("B","~tmp",VolgNummer,1),"\",1),..DnaCode1.ProductNummer)
+	Do $$$AssertEquals($Piece(^UPRCP("B","~tmp",VolgNummer,1),"\",2),..DnaCode1.LadeCode)
+	Do $$$AssertEquals($Piece(^UPRCP("B","~tmp",VolgNummer,1),"\",3),..DnaCode1.PalletCode)
+	Do $$$AssertEquals($Piece(^UPRCP("B","~tmp",VolgNummer,1),"\",4),..DnaCode1.Locatie)
+	Do $$$AssertEquals($Piece(^UPRCP("B","~tmp",VolgNummer,1),"\",5),1)
+	Do $$$AssertEquals($Piece(^UPRCP("B","~tmp",VolgNummer,1),"\",7),..DnaCode1.InitialenScanner)
+]]></Implementation>
+</Method>
+
 <Method name="Test: Niets toegevoegd aan buffer: weer verwijderen">
 <Implementation><![CDATA[
 	Set ..DnaCode1 = ..MaakStandaardDnaCode()