Index: vhUnitTest/DOM/VKP/impl/LeverAdresRepository/GeefViaKlantIdEnKlantAdresNr/Test.cls.xml
===================================================================
diff -u
--- vhUnitTest/DOM/VKP/impl/LeverAdresRepository/GeefViaKlantIdEnKlantAdresNr/Test.cls.xml	(revision 0)
+++ vhUnitTest/DOM/VKP/impl/LeverAdresRepository/GeefViaKlantIdEnKlantAdresNr/Test.cls.xml	(revision 49775)
@@ -0,0 +1,127 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.DOM.VKP.impl.LeverAdresRepository.GeefViaKlantIdEnKlantAdresNr.Test">
+<Super>vhUnitTest.TestCase</Super>
+
+<Parameter name="TestKlantnaam">
+<Default>TestKlantnaam</Default>
+</Parameter>
+
+<Parameter name="TestKlantnummer">
+<Default>999999</Default>
+</Parameter>
+
+<Method name="OnBeforeOneTest">
+<FormalSpec>aTestName:%String</FormalSpec>
+<Implementation><![CDATA[
+	Do ##super(aTestName)
+	Do ..VerwijderData()
+]]></Implementation>
+</Method>
+
+<Method name="OnAfterOneTest">
+<FormalSpec>aTestName:%String</FormalSpec>
+<Implementation><![CDATA[
+	Do ..VerwijderData()
+	do ##super(aTestName)
+]]></Implementation>
+</Method>
+
+<Method name="OnAfterAllTests">
+<Implementation><![CDATA[
+	Do ..VerwijderData()
+	do ##super()
+]]></Implementation>
+</Method>
+
+<Method name="Test: 1 leveradres aanwezig">
+<Implementation><![CDATA[
+	Do ..VoegToeLeveradres("1")
+	
+	Set LeveradresRepository = ##class(DOM.VKP.impl.LeverAdresRepository).%New()
+	#dim LeverAdres As DOM.VKP.impl.LeverAdres = LeveradresRepository.GeefViaKlantIdEnKlantAdresNr("K||"_..#TestKlantnummer,"1")
+	
+	Do $$$AssertEquals(LeverAdres.GeefUniekId(),"84691")
+	Do $$$AssertEquals(LeverAdres.Straat,"TRADEBOULEVARD 5 A")
+	Do $$$AssertEquals(LeverAdres.Postcode,"NL-4761-RL")
+	Do $$$AssertEquals(LeverAdres.Gemeente,"ZEVENBERGEN")
+	Do $$$AssertEquals(LeverAdres.LandNr,"1147")
+	Do $$$AssertEquals(LeverAdres.Telefoon,"0031887651900")
+	Do $$$AssertEquals(LeverAdres.VerzendingWijze,"OD;4")
+	Do $$$AssertEquals(LeverAdres.GeefAdresType(),"L")
+	Do $$$AssertEquals(LeverAdres.GeefKlantId(),"K||"_..#TestKlantnummer)
+]]></Implementation>
+</Method>
+
+<Method name="Test: 2 leveradressen aanwezig (verschillend uniek id)">
+<Implementation><![CDATA[
+	Do ..VoegToeLeveradres("1")
+	Do ..VoegToeLeveradres("2")
+	
+	Set LeveradresRepository = ##class(DOM.VKP.impl.LeverAdresRepository).%New()
+	#dim LeverAdres As DOM.VKP.impl.LeverAdres = LeveradresRepository.GeefViaKlantIdEnKlantAdresNr("K||"_..#TestKlantnummer,"2")
+	
+	Do $$$AssertEquals(LeverAdres.GeefUniekId(),"84692")
+	Do $$$AssertEquals(LeverAdres.Straat,"TRADEBOULEVARD 5 A")
+	Do $$$AssertEquals(LeverAdres.Postcode,"NL-4761-RL")
+	Do $$$AssertEquals(LeverAdres.Gemeente,"ZEVENBERGEN")
+	Do $$$AssertEquals(LeverAdres.LandNr,"1147")
+	Do $$$AssertEquals(LeverAdres.Telefoon,"0031887651900")
+	Do $$$AssertEquals(LeverAdres.VerzendingWijze,"OD;4")
+	Do $$$AssertEquals(LeverAdres.GeefAdresType(),"L")
+	Do $$$AssertEquals(LeverAdres.GeefKlantId(),"K||"_..#TestKlantnummer)
+]]></Implementation>
+</Method>
+
+<Method name="Test: 1 leveradres aanwezig, opvragen zonder adresvolgnummer">
+<Implementation><![CDATA[
+	#dim Substrings = ##class(TECH.ListUtils).CreateListOfDataTypes("Geen leveradres voor combinatie KlantId 'K||999999' en AdresVolgnummer ''")
+	Do ..ZetVerwachteExceptie(##class(Tools.Test.VerwachteExceptie).%New(##class(TECH.Exceptions.InvalidInputException).%ClassName(1),Substrings))
+	
+	Do ..VoegToeLeveradres("1")
+	
+	Set LeveradresRepository = ##class(DOM.VKP.impl.LeverAdresRepository).%New()
+	#dim LeverAdres As DOM.VKP.impl.LeverAdres = LeveradresRepository.GeefViaKlantIdEnKlantAdresNr("K||"_..#TestKlantnummer,"")
+]]></Implementation>
+</Method>
+
+<Method name="Test: 1 leveradres aanwezig, opvragen zonder klantnummer">
+<Implementation><![CDATA[
+	#dim Substrings = ##class(TECH.ListUtils).CreateListOfDataTypes("Geen leveradres voor combinatie KlantId '' en AdresVolgnummer '1'")
+	Do ..ZetVerwachteExceptie(##class(Tools.Test.VerwachteExceptie).%New(##class(TECH.Exceptions.InvalidInputException).%ClassName(1),Substrings))
+	
+	Do ..VoegToeLeveradres("1")
+	
+	Set LeveradresRepository = ##class(DOM.VKP.impl.LeverAdresRepository).%New()
+	#dim LeverAdres As DOM.VKP.impl.LeverAdres = LeveradresRepository.GeefViaKlantIdEnKlantAdresNr("","1")
+]]></Implementation>
+</Method>
+
+<Method name="Test: geen leveradressen aanwezig">
+<Implementation><![CDATA[
+	#dim Substrings = ##class(TECH.ListUtils).CreateListOfDataTypes("Geen leveradres voor combinatie KlantId 'K||999999' en AdresVolgnummer '1'")
+	Do ..ZetVerwachteExceptie(##class(Tools.Test.VerwachteExceptie).%New(##class(TECH.Exceptions.InvalidInputException).%ClassName(1),Substrings))
+	
+	Set LeveradresRepository = ##class(DOM.VKP.impl.LeverAdresRepository).%New()
+	#dim LeverAdres As DOM.VKP.impl.LeverAdres = LeveradresRepository.GeefViaKlantIdEnKlantAdresNr("K||"_..#TestKlantnummer,"1")
+]]></Implementation>
+</Method>
+
+<Method name="VerwijderData">
+<Implementation><![CDATA[
+	Kill ^KKL(..#TestKlantnaam_" "_..#TestKlantnummer)
+	Kill ^KK1(..#TestKlantnummer)
+]]></Implementation>
+</Method>
+
+<Method name="VoegToeLeveradres">
+<FormalSpec>AdresVolgnummer:%String</FormalSpec>
+<Implementation><![CDATA[
+	Set ^KK1(..#TestKlantnummer) = ..#TestKlantnaam_" "_..#TestKlantnummer
+	Set ^KKL(..#TestKlantnaam_" "_..#TestKlantnummer,"L"_##class(TECH.StringUtils).AlignRight(AdresVolgnummer," ",3)) = "1\POLVO MOERDIJK CM\CENTRAAL MAGAZIJN\\TRADEBOULEVARD 5 A\NL-4761-RL\ZEVENBERGEN\1147\N\\\L\0031887651900\\\\\\.\\\\\LOSTIJDEN TUSSEN 7.00U EN 11.00U\\OD;4\\8469"_AdresVolgnummer
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>