Index: vhUnitTest/APPS/CRM/TestKlantBestand.cls.xml
===================================================================
diff -u
--- vhUnitTest/APPS/CRM/TestKlantBestand.cls.xml	(revision 0)
+++ vhUnitTest/APPS/CRM/TestKlantBestand.cls.xml	(revision 1174)
@@ -0,0 +1,79 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="9">
+<Class name="vhUnitTest.APPS.CRM.TestKlantBestand">
+<Description>
+JBL + 2011-05-19
+ Do ##class(vhUnitTest.Manager).RunTest("/Display=all","APPS.CRM.TestKlantBestand")</Description>
+<ProcedureBlock>1</ProcedureBlock>
+<Super>vhUnitTest.TestCase</Super>
+<ClassDefinitionError>0</ClassDefinitionError>
+
+<Property name="KlantNummer">
+<Type>%Integer</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="TestLeverancierUnitTest">
+<Implementation><![CDATA[
+	Set KlantService = ##class(APPS.CRM.KlantService).%New()
+	Set Klanten = KlantService.GeefKlantLijst()
+	Set KlantIt = ##class(TECH.ListIterator).%New(Klanten)
+	Set Gevonden  = 0
+	Set Klant = ""
+	While ('Gevonden && KlantIt.HasNext()){
+		Set Klant = KlantIt.Next()
+		If (Klant.Nummer = ..KlantNummer) Set Gevonden = 1
+	}	
+	Do $$$AssertTrue($IsObject(Klant),"Klant UnitTest is gevonden")
+	Do $$$AssertEquals(Klant.Naam,"UNITTEST KLANT","De klantnaam is correct.")
+	Do $$$AssertEquals(Klant.Nummer,..KlantNummer,"Het KlantNr is correct.")
+	Do $$$AssertEquals(Klant.Actief,"Actief","De klant is 'actief'")
+]]></Implementation>
+</Method>
+
+<Method name="OnBeforeAllTests">
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[
+	
+	Set KlantAPI = ##class(DOM.DomeinContext).Instance().GeefKlantAPI()
+	
+	Set KlantObject = ##class(DOM.CRM.dto.Klant).%New()
+	Set KlantObject.KlantNummer = ..KlantNummer
+	Set KlantObject.KlantNaam = "UnitTest Klant"
+	Set KlantObject.Toenaam = "Jos"
+	Set KlantObject.Aanspreking = "Dhr"
+	Set KlantObject.Taal = "N"
+	Set KlantObject.Telefoon1 = "09/333.33.33"
+	Set KlantObject.Email = "UnitTest@vanhoecke.be"
+	Set KlantObject.Adres = ##class(DOM.common.impl.Adres).%New()
+	Set KlantObject.Adres.Straat = "Industriepark 7"
+	Set KlantObject.Adres.Postcode = "8700"
+	Set KlantObject.Adres.Woonplaats = "Sint Niklaas"
+	Set KlantObject.Adres.LandNr = 1019
+	Set KlantObject.BTWNummer = "123456"
+	
+	Set Klant = KlantAPI.MaakKlant(KlantObject,##class(DOM.CRM.enu.TypeTemplateKlant).Consument())
+	Set ..KlantNummer = Klant.GeefNummer()
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
+<Method name="OnAfterAllTests">
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[
+	Set KlantAPI = ##class(DOM.DomeinContext).Instance().GeefKlantAPI()
+	
+	Set Klant = KlantAPI.GeefKlant(..KlantNummer)
+	Set KlantIndex = Klant.GeefKlantIndexKKL()
+	
+	Do Klant.VerwijderIndexen()
+	
+	Kill ^DKL("K","KL.A",..KlantNummer)
+	Kill ^KKL(KlantIndex)
+	Kill ^KK1(..KlantNummer)
+	
+	Quit $$$OK
+]]></Implementation>
+</Method>
+</Class>
+</Export>