Index: vhUnitTest/BL/MB/UGLYPicking/Receptie/BuildBufferViaDnaCode/Test.cls.xml
===================================================================
diff -u -r60289 -r60294
--- vhUnitTest/BL/MB/UGLYPicking/Receptie/BuildBufferViaDnaCode/Test.cls.xml	(.../Test.cls.xml)	(revision 60289)
+++ vhUnitTest/BL/MB/UGLYPicking/Receptie/BuildBufferViaDnaCode/Test.cls.xml	(.../Test.cls.xml)	(revision 60294)
@@ -159,6 +159,22 @@
 ]]></Implementation>
 </Method>
 
+<Method name="Test: Kaderdeur: speciale vorm van buffer">
+<Implementation><![CDATA[
+	Set ..DnaCode1 = ..MaakStandaardDnaCode()
+	Set ..DnaCode1.DnaCode = "KAAA001"
+	Set ..DnaCode1.LadeCode = "K.ABCD.6"
+	Set ..DnaCode1.Locatie = "10k12T01"
+	Do ##class(DOM.Halux.AAP.DnaCodeRepository).%New().Bewaar(..DnaCode1)
+	
+	#dim VolgNummer As %String = ""
+	Do ##class(BL.MB.UGLYPicking.Receptie).BuildBufferViaDnaCode(, ..DnaCode1.PalletCode, ..DnaCode1.InitialenScanner,.VolgNummer)
+	
+	Do $$$AssertEquals(VolgNummer,"1")
+	Do $$$AssertContains(^UPRCP("B","~tmp",VolgNummer,1),"K.ABCD.6\00KABCD6\10k12T01")
+]]></Implementation>
+</Method>
+
 <Method name="MaakStandaardDnaCode">
 <Implementation><![CDATA[
 	Set DnaCode = ##class(DOM.Halux.AAP.DnaCode).%New()