Index: vhUnitTest/DOM/BKH/impl/OpenstaandeVerkoopFactuurRepository/Test.cls.xml
===================================================================
diff -u -r34725 -r34764
--- vhUnitTest/DOM/BKH/impl/OpenstaandeVerkoopFactuurRepository/Test.cls.xml	(.../Test.cls.xml)	(revision 34725)
+++ vhUnitTest/DOM/BKH/impl/OpenstaandeVerkoopFactuurRepository/Test.cls.xml	(.../Test.cls.xml)	(revision 34764)
@@ -70,6 +70,20 @@
 ]]></Implementation>
 </Method>
 
+<Method name="Test: Bewaar">
+<Implementation><![CDATA[
+	#dim OpenstaandeVerkoopFactuur As DOM.BKH.impl.DataM.OpenstaandeFactuur
+	Set OpenstaandeVerkoopFactuur = ..OpenstaandeVerkoopFactuurRepository.MaakViaKlantIDEnFactuurID(..Consument.GeefID(),987654)	
+	Do OpenstaandeVerkoopFactuur.ZetCode("C")
+	
+	Do ..OpenstaandeVerkoopFactuurRepository.Bewaar(OpenstaandeVerkoopFactuur)
+	
+	Set OpenstaandeVerkoopFactuur = ..OpenstaandeVerkoopFactuurRepository.OpenViaKlantIDEnFactuurID(..Consument.GeefID(),987654)
+	#dim Code As %String = OpenstaandeVerkoopFactuur.GeefCode()
+	Do $$$AssertEquals(Code,"C","")
+]]></Implementation>
+</Method>
+
 <Method name="OnBeforeOneTest">
 <Implementation><![CDATA[
 	Set ..Consument = ##class(vhTest.Data.DOM.VKP.VanHoeckeKlant).MaakBelgischeConsument()