Index: BL/MB/UGLYPicking/Receptie.cls.xml
===================================================================
diff -u -r39586 -r55836
--- BL/MB/UGLYPicking/Receptie.cls.xml	(.../Receptie.cls.xml)	(revision 39586)
+++ BL/MB/UGLYPicking/Receptie.cls.xml	(.../Receptie.cls.xml)	(revision 55836)
@@ -198,7 +198,7 @@
 			}
 		}
  }
-	
+ 	
  Quit:($LI(Status)'=0) Status
 
 
@@ -2059,6 +2059,21 @@
 ]]></Implementation>
 </Method>
 
+<Method name="BuildBufferViaDnaCode">
+<ClassMethod>1</ClassMethod>
+<FormalSpec>ToeleveringId:%String,Initialen:%String</FormalSpec>
+<Implementation><![CDATA[
+	#dim DnaCode As DOM.Halux.AAP.DnaCode
+	#dim RGID = ..#TempBufferRGID
+	Set VolgNr = ..CreateNewBuffer(RGID,Initialen)
+	#dim DnaCodeIterator = ##class(DOM.Halux.AAP.DnaCodeRepository).%New().ZoekViaToeleveringId(ToeleveringId)
+	While DnaCodeIterator.HasNext() {
+		Set DnaCode = DnaCodeIterator.Next()
+		Set Status=..AddToBuffer(RGID,VolgNr,DnaCode.ProductNummer,DnaCode.LadeCode,DnaCode.Locatie,DnaCode.PalletCode,Initialen,,,,,)
+	}
+]]></Implementation>
+</Method>
+
 <Method name="CloseAndPrintTBHBuffer">
 <Description>
 ============================================================================================================================