Index: vhUnitTest/DOM/VKP/impl/LeverAdresRepository/VerwijderLeverAdressenZonderAxLeveradresIdVanKlant.cls.xml
===================================================================
diff -u
--- vhUnitTest/DOM/VKP/impl/LeverAdresRepository/VerwijderLeverAdressenZonderAxLeveradresIdVanKlant.cls.xml	(revision 0)
+++ vhUnitTest/DOM/VKP/impl/LeverAdresRepository/VerwijderLeverAdressenZonderAxLeveradresIdVanKlant.cls.xml	(revision 50003)
@@ -0,0 +1,140 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.DOM.VKP.impl.LeverAdresRepository.VerwijderLeverAdressenZonderAxLeveradresIdVanKlant">
+<Super>vhUnitTest.TestCase</Super>
+
+<Parameter name="TestKlantnaam">
+<Default>TestKlantnaam</Default>
+</Parameter>
+
+<Parameter name="TestKlantnummer">
+<Default>999999</Default>
+</Parameter>
+
+<Parameter name="TestKlantId">
+<Default>K||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: Standaard gedrag: bestaand leveradres zonder AxLeveradresId verwijderen">
+<Implementation><![CDATA[
+	Set VerkoopApiMock = ##class(vhTest.Mock.DOM.VKP.VerkoopAPI).%New()
+	Set LeveradresRepository = ##class(DOM.VKP.impl.LeverAdresRepository).%New(,,,VerkoopApiMock)
+	
+	Do ..VoegToeKlantMetLeveradres(1,0)
+	#dim LeverAdres As DOM.VKP.LeverAdres = LeveradresRepository.GeefViaKlantIdEnKlantAdresNr(..#TestKlantId,"1")
+	Set LeverAdressen = ##class(%ListOfDataTypes).%New()
+	Do LeverAdressen.Insert(LeverAdres)
+	
+	Set KlantMock = ##class(vhTest.Mock.DOM.VKP.VanHoeckeKlant).%New()
+	Do KlantMock.IndienMethodCall("GeefLeverAdressen").DanReturn(LeverAdressen)
+	
+	Do VerkoopApiMock.IndienMethodCall("GeefKlant",..#TestKlantId).DanReturn(KlantMock)
+	
+	Do $$$AssertTrue($Data(^KKL(..#TestKlantnaam_" "_..#TestKlantnummer,"L  1")))
+	Do $$$AssertTrue($Data(^KKL.AdresI("KlantId_AdresVolgNr",100001)))
+	
+	Do LeveradresRepository.VerwijderLeverAdressenZonderAxLeveradresIdVanKlant(..#TestKlantId)
+	
+	Do $$$AssertFalse($Data(^KKL(..#TestKlantnaam_" "_..#TestKlantnummer,"L  1")))
+	Do $$$AssertFalse($Data(^KKL.AdresI("KlantId_AdresVolgNr",100001)))
+]]></Implementation>
+</Method>
+
+<Method name="Test: 1 leveradres zonder AxLeveradresId verwijderen van klant met meerdere adressen">
+<Implementation><![CDATA[
+	Set VerkoopApiMock = ##class(vhTest.Mock.DOM.VKP.VerkoopAPI).%New()
+	Set LeveradresRepository = ##class(DOM.VKP.impl.LeverAdresRepository).%New(,,,VerkoopApiMock)
+	
+	Do ..VoegToeKlantMetLeveradres(1,1)
+	Do ..VoegToeKlantMetLeveradres(2,0)
+	Do ..VoegToeKlantMetLeveradres(3,1)
+	#dim LeverAdres1 As DOM.VKP.LeverAdres = LeveradresRepository.GeefViaKlantIdEnKlantAdresNr(..#TestKlantId,"1")
+	#dim LeverAdres2 As DOM.VKP.LeverAdres = LeveradresRepository.GeefViaKlantIdEnKlantAdresNr(..#TestKlantId,"2")
+	#dim LeverAdres3 As DOM.VKP.LeverAdres = LeveradresRepository.GeefViaKlantIdEnKlantAdresNr(..#TestKlantId,"3")
+	Set LeverAdressen = ##class(%ListOfDataTypes).%New()
+	Do LeverAdressen.Insert(LeverAdres1)
+	Do LeverAdressen.Insert(LeverAdres2)
+	Do LeverAdressen.Insert(LeverAdres3)
+	
+	Set KlantMock = ##class(vhTest.Mock.DOM.VKP.VanHoeckeKlant).%New()
+	Do KlantMock.IndienMethodCall("GeefLeverAdressen").DanReturn(LeverAdressen)
+	
+	Do VerkoopApiMock.IndienMethodCall("GeefKlant",..#TestKlantId).DanReturn(KlantMock)
+	
+	Do $$$AssertTrue($Data(^KKL(..#TestKlantnaam_" "_..#TestKlantnummer,"L  1")))
+	Do $$$AssertTrue($Data(^KKL(..#TestKlantnaam_" "_..#TestKlantnummer,"L  2")))
+	Do $$$AssertTrue($Data(^KKL(..#TestKlantnaam_" "_..#TestKlantnummer,"L  3")))
+	Do $$$AssertTrue($Data(^KKL.AdresI("KlantId_AdresVolgNr",100001)))
+	Do $$$AssertTrue($Data(^KKL.AdresI("KlantId_AdresVolgNr",100002)))
+	Do $$$AssertTrue($Data(^KKL.AdresI("KlantId_AdresVolgNr",100003)))
+	
+	Do LeveradresRepository.VerwijderLeverAdressenZonderAxLeveradresIdVanKlant(..#TestKlantId)
+	
+	Do $$$AssertTrue($Data(^KKL(..#TestKlantnaam_" "_..#TestKlantnummer,"L  1")))
+	Do $$$AssertFalse($Data(^KKL(..#TestKlantnaam_" "_..#TestKlantnummer,"L  2")))
+	Do $$$AssertTrue($Data(^KKL(..#TestKlantnaam_" "_..#TestKlantnummer,"L  3")))
+	Do $$$AssertTrue($Data(^KKL.AdresI("KlantId_AdresVolgNr",100001)))
+	Do $$$AssertFalse($Data(^KKL.AdresI("KlantId_AdresVolgNr",100002)))
+	Do $$$AssertTrue($Data(^KKL.AdresI("KlantId_AdresVolgNr",100003)))
+]]></Implementation>
+</Method>
+
+<Method name="VerwijderData">
+<Private>1</Private>
+<Implementation><![CDATA[
+	Do ..VerwijderDataPerLeverAdresNummer(1)
+	Do ..VerwijderDataPerLeverAdresNummer(2)
+	Do ..VerwijderDataPerLeverAdresNummer(3)
+]]></Implementation>
+</Method>
+
+<Method name="VerwijderDataPerLeverAdresNummer">
+<FormalSpec>LeverAdresNummer:%String</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	Kill ^KKL(..#TestKlantnaam_" "_..#TestKlantnummer)
+	Kill ^KK1(..#TestKlantnummer)
+	Kill ^KKL.AdresI("KlantId_AdresVolgNr",100000+LeverAdresNummer)
+]]></Implementation>
+</Method>
+
+<Method name="VoegToeKlantMetLeveradres">
+<FormalSpec>LeverAdresNummer:%String,InclAxLeveradresId:%Boolean</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	Set ^KKL(..#TestKlantnaam_" "_..#TestKlantnummer,"L"_$$$LeftPadding(LeverAdresNummer,3," ")) = $$$DummyString
+	If InclAxLeveradresId {
+		Set $Piece(^KKL(..#TestKlantnaam_" "_..#TestKlantnummer,"L"_$$$LeftPadding(LeverAdresNummer,3," ")),"\",29) = "AXID"_LeverAdresNummer
+	}
+	Set $Piece(^KKL(..#TestKlantnaam_" "_..#TestKlantnummer,"L"_$$$LeftPadding(LeverAdresNummer,3," ")),"\",28) = 100000+LeverAdresNummer
+	Set ^KKL.AdresI("KlantId_AdresVolgNr",100000+LeverAdresNummer) = $lb("K||"_..#TestKlantnummer,LeverAdresNummer)
+	Set ^KK1(..#TestKlantnummer) = ..#TestKlantnaam_" "_..#TestKlantnummer
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>