Index: vhUnitTest/BL/MB/UGLYPicking/Receptie/BuildBufferViaDnaCode/Test.cls.xml
===================================================================
diff -u
--- vhUnitTest/BL/MB/UGLYPicking/Receptie/BuildBufferViaDnaCode/Test.cls.xml	(revision 0)
+++ vhUnitTest/BL/MB/UGLYPicking/Receptie/BuildBufferViaDnaCode/Test.cls.xml	(revision 55838)
@@ -0,0 +1,45 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.BL.MB.UGLYPicking.Receptie.BuildBufferViaDnaCode.Test">
+<Super>vhUnitTest.TestCase</Super>
+
+<Method name="Test: 1 DnaCode naar Buffer">
+<Implementation><![CDATA[
+	Set DnaCode = ##class(DOM.Halux.AAP.DnaCode).%New()
+	Set DnaCode.AxProductieOrderNummer = ""
+	Set DnaCode.DnaCode = "LAAAAAA0"
+	Set DnaCode.InitialenScanner = "TVE"
+	Set DnaCode.IsGlsDirect = $$$False
+	Set DnaCode.KlantNummer = "1000"
+	Set DnaCode.LadeCode = "L.ABCD.6"
+	Set DnaCode.Lijn = "L1"
+	Set DnaCode.Locatie = "04020101"
+	Set DnaCode.PalletCode = "TBX12345"
+	Set DnaCode.ParentDnaCode = ""
+	Set DnaCode.ProductNummer = "1304468"
+	Set DnaCode.ScanTijdstip = $H
+	Set DnaCode.SequentieNummer = ""
+	Set DnaCode.Status = "Gescand"
+	Set DnaCode.Toelevering = "271044"
+	
+	Do ##class(DOM.Halux.AAP.DnaCodeRepository).%New().Bewaar(DnaCode)
+	
+	#dim VolgNummer As %String = ""
+	Do ##class(BL.MB.UGLYPicking.Receptie).BuildBufferViaDnaCode(DnaCode.Toelevering,DnaCode.InitialenScanner,.VolgNummer)
+	
+	Do $$$AssertEquals(VolgNummer,"1")
+	Do $$$AssertEquals($Piece(^UPRCP("B","~tmp",VolgNummer),"\",3),DnaCode.InitialenScanner)
+	Do $$$AssertEquals($Piece(^UPRCP("B","~tmp",VolgNummer,1),"\",1),DnaCode.ProductNummer)
+	Do $$$AssertEquals($Piece(^UPRCP("B","~tmp",VolgNummer,1),"\",2),DnaCode.LadeCode)
+	Do $$$AssertEquals($Piece(^UPRCP("B","~tmp",VolgNummer,1),"\",3),DnaCode.PalletCode)
+	Do $$$AssertEquals($Piece(^UPRCP("B","~tmp",VolgNummer,1),"\",4),DnaCode.Locatie)
+	//Do $$$AssertEquals($Piece(^UPRCP("B","~tmp",VolgNummer,1),"\",5),1)
+	Do $$$AssertEquals($Piece(^UPRCP("B","~tmp",VolgNummer,1),"\",7),DnaCode.InitialenScanner)
+	
+	Kill ^UPRCP("B","~tmp")
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: BL/MB/UGLYPicking/Receptie.cls.xml
===================================================================
diff -u -r55836 -r55838
--- BL/MB/UGLYPicking/Receptie.cls.xml	(.../Receptie.cls.xml)	(revision 55836)
+++ BL/MB/UGLYPicking/Receptie.cls.xml	(.../Receptie.cls.xml)	(revision 55838)
@@ -2061,15 +2061,16 @@
 
 <Method name="BuildBufferViaDnaCode">
 <ClassMethod>1</ClassMethod>
-<FormalSpec>ToeleveringId:%String,Initialen:%String</FormalSpec>
+<FormalSpec><![CDATA[ToeleveringId:%String,Initialen:%String,&VolgNr:%String=""]]></FormalSpec>
 <Implementation><![CDATA[
-	#dim DnaCode As DOM.Halux.AAP.DnaCode
-	#dim RGID = ..#TempBufferRGID
+	New RGID, DnaCode, DnaCodeIterator, Status 
+	#dim RGID As %String = ..#TempBufferRGID
 	Set VolgNr = ..CreateNewBuffer(RGID,Initialen)
 	#dim DnaCodeIterator = ##class(DOM.Halux.AAP.DnaCodeRepository).%New().ZoekViaToeleveringId(ToeleveringId)
+	#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,,,,,)
+		Set Status = ..AddToBuffer(RGID,VolgNr,DnaCode.ProductNummer,DnaCode.LadeCode,DnaCode.Locatie,DnaCode.PalletCode,Initialen,,,,,)
 	}
 ]]></Implementation>
 </Method>