Index: vhUnitTest/DOM/BKH/impl/OpenstaandeVerkoopFactuurRepository/Test.cls.xml
===================================================================
diff -u -r34716 -r34718
--- vhUnitTest/DOM/BKH/impl/OpenstaandeVerkoopFactuurRepository/Test.cls.xml	(.../Test.cls.xml)	(revision 34716)
+++ vhUnitTest/DOM/BKH/impl/OpenstaandeVerkoopFactuurRepository/Test.cls.xml	(.../Test.cls.xml)	(revision 34718)
@@ -50,6 +50,31 @@
 ]]></Implementation>
 </Method>
 
+<Method name="Test: Delete via klantid en factuurid">
+<Implementation><![CDATA[
+	#dim OpenstaandeVerkoopFactuur As DOM.BKH.impl.DataM.OpenstaandeFactuur
+	
+	Set OpenstaandeVerkoopFactuur = ..OpenstaandeVerkoopFactuurRepository.MaakViaKlantIDEnFactuurID(..Consument.GeefID(),654321)
+	Do $$$AssertTrue($IsObject(OpenstaandeVerkoopFactuur))	
+	
+	Do ..OpenstaandeVerkoopFactuurRepository.VerwijderViaKlantIDEnFactuurID(..Consument.GeefID(),654321)
+	
+	Set OpenstaandeVerkoopFactuur = ..OpenstaandeVerkoopFactuurRepository.OpenViaKlantIDEnFactuurID(..Consument.GeefID(),654321)	
+	Do $$$AssertFalse($IsObject(OpenstaandeVerkoopFactuur))
+]]></Implementation>
+</Method>
+
+<Method name="Test: z Delete alle facturen via klantid">
+<Implementation><![CDATA[
+	Do ..OpenstaandeVerkoopFactuurRepository.VerwijderViaKlantID(..Consument.GeefID())
+	
+	#dim OpenstaandeVerkoopFactuurIterator as TECH.Iterator
+	Set OpenstaandeVerkoopFactuurIterator = ..OpenstaandeVerkoopFactuurRepository.ZoekViaKlantID(..Consument.GeefID())
+	
+	Do $$$AssertFalse(OpenstaandeVerkoopFactuurIterator.HasNext(),"")
+]]></Implementation>
+</Method>
+
 <Method name="OnBeforeAllTests">
 <Implementation><![CDATA[
 	Set ..Consument = ##class(vhTest.Data.DOM.VKP.VanHoeckeKlant).MaakBelgischeConsument()