Index: vhUnitTest/BL/MB/UGLYPicking/Receptie/BuildBufferViaDnaCode/Test.cls.xml
===================================================================
diff -u -r55840 -r55841
--- vhUnitTest/BL/MB/UGLYPicking/Receptie/BuildBufferViaDnaCode/Test.cls.xml	(.../Test.cls.xml)	(revision 55840)
+++ vhUnitTest/BL/MB/UGLYPicking/Receptie/BuildBufferViaDnaCode/Test.cls.xml	(.../Test.cls.xml)	(revision 55841)
@@ -27,23 +27,8 @@
 
 <Method name="Test: 1 DnaCode naar Buffer">
 <Implementation><![CDATA[
-	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)
-	
+	Do ..MaakStandaardDnaCode()
+		
 	//Set ^TO("IP",1304468,271044,300) = "103"
 	//Set ^KTO(6332,271044,0)	= 	107
 	//Set ^KTO(6332,271044,1)	= 	"\19.02.19\KOMM. SEBO KINTEQUE\\\6332\140886\11171\\\\\\\\\\EUR\65085,61200\\\2\\\\\"
@@ -64,6 +49,38 @@
 	Do $$$AssertEquals($Piece(^UPRCP("B","~tmp",VolgNummer,1),"\",7),..DnaCode.InitialenScanner)
 ]]></Implementation>
 </Method>
+
+<Method name="Test: Niets toegevoegd aan buffer: weer verwijderen">
+<Implementation><![CDATA[
+	Do ..MaakStandaardDnaCode()
+	
+	#dim VolgNummer As %String = ""
+	Do ##class(BL.MB.UGLYPicking.Receptie).BuildBufferViaDnaCode($$$DummyString,..DnaCode.InitialenScanner,.VolgNummer)
+	
+	Do $$$AssertFalse($Data(^UPRCP("B","~tmp",VolgNummer)))
+]]></Implementation>
+</Method>
+
+<Method name="MaakStandaardDnaCode">
+<Implementation><![CDATA[
+	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)
+]]></Implementation>
+</Method>
 </Class>
 
 
Index: BL/MB/UGLYPicking/Receptie.cls.xml
===================================================================
diff -u -r55840 -r55841
--- BL/MB/UGLYPicking/Receptie.cls.xml	(.../Receptie.cls.xml)	(revision 55840)
+++ BL/MB/UGLYPicking/Receptie.cls.xml	(.../Receptie.cls.xml)	(revision 55841)
@@ -2072,7 +2072,10 @@
 		Set DnaCode = DnaCodeIterator.Next()
 		w !,"adding..."_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,,,,,)
-	}
+	}  
+	;Buffer verwijderen indien geen lijnen aangemaakt (leeg)
+	If ..IsBufferEmpty(RGID,VolgNr) Do
+	. Do ..RemoveBuffer(RGID,VolgNr)
 ]]></Implementation>
 </Method>