Index: AXimpl/BizTalkMessage/Converter/AddressUpsertConverter/LeveradresRepository.cls.xml
===================================================================
diff -u
--- AXimpl/BizTalkMessage/Converter/AddressUpsertConverter/LeveradresRepository.cls.xml	(revision 0)
+++ AXimpl/BizTalkMessage/Converter/AddressUpsertConverter/LeveradresRepository.cls.xml	(revision 38106)
@@ -0,0 +1,64 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="AXimpl.BizTalkMessage.Converter.AddressUpsertConverter.LeveradresRepository">
+<Super>TECH.Repository</Super>
+
+<Method name="Maak">
+<Implementation><![CDATA[	Do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.UnimplementedException).%New("Maak() nog niet geïmplementeerd"))
+]]></Implementation>
+</Method>
+
+<Method name="Bewaar">
+<Implementation><![CDATA[	Do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.UnimplementedException).%New("Bewaar() nog niet geïmplementeerd"))
+]]></Implementation>
+</Method>
+
+<Method name="BestaatViaID">
+<FormalSpec>ID:%String</FormalSpec>
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[	Do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.UnimplementedException).%New("BestaatViaID() nog niet geïmplementeerd"))
+]]></Implementation>
+</Method>
+
+<Method name="GeefViaID">
+<FormalSpec>ID:%String</FormalSpec>
+<ReturnType>DOM.VKP.impl.LeverAdres</ReturnType>
+<Implementation><![CDATA[	Quit ..GeefViaKlantIdEnAdresVolgnummer($listget(^KKL.AdresI("KlantId_AdresVolgNr",ID),1), $listget(^KKL.AdresI("KlantId_AdresVolgNr",ID),2))
+]]></Implementation>
+</Method>
+
+<Method name="VerwijderViaID">
+<FormalSpec>ID:%String</FormalSpec>
+<Implementation><![CDATA[	Do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.UnimplementedException).%New("VerwijderViaID() nog niet geïmplementeerd"))
+]]></Implementation>
+</Method>
+
+<Method name="GeefViaKlantIdEnAdresVolgnummer">
+<FormalSpec>KlantId:%String,AdresVolgNr:%String</FormalSpec>
+<ReturnType>DOM.VKP.impl.LeverAdres</ReturnType>
+<Implementation><![CDATA[
+	#dim Key As %String
+	try {
+		Set Key = ^KKL(^KK1($E(KlantId,4,99)),"L"_##class(TECH.StringUtils).AlignRight(AdresVolgNr," ",3))
+	} catch {
+		#dim Exception As TECH.Exceptions.Exception = ##class(TECH.ExceptionHandler).Catch()
+		Do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.InvalidInputException).%New("Geen leveradres voor combinatie KlantId '"_KlantId_"' en AdresVolgnummer '"_AdresVolgNr_"'"))
+	}
+	
+	Set Leveradres = ##class(DOM.VKP.impl.LeverAdres).%New()
+	Set Leveradres.UniekId = $Piece(Key,"\",28)
+	Set Leveradres.Straat = $Piece(Key,"\",5)
+	Set Leveradres.Postcode = $Piece(Key,"\",6)
+	Set Leveradres.Gemeente = $Piece(Key,"\",7)
+	Set Leveradres.LandNr = $Piece(Key,"\",8)
+	Set Leveradres.Telefoon = $Piece(Key,"\",13)
+	Set Leveradres.VerzendingWijze = $Piece(Key,"\",26)
+	Set Leveradres.AdresType = $Piece(Key,"\",12)
+	
+	Quit Leveradres
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: DOM/VKP/impl/LeverAdres.cls.xml
===================================================================
diff -u -r37910 -r38106
--- DOM/VKP/impl/LeverAdres.cls.xml	(.../LeverAdres.cls.xml)	(revision 37910)
+++ DOM/VKP/impl/LeverAdres.cls.xml	(.../LeverAdres.cls.xml)	(revision 38106)
@@ -70,6 +70,14 @@
 <Type>%String</Type>
 </Property>
 
+<Property name="UniekId">
+<Type>%String</Type>
+</Property>
+
+<Property name="AdresType">
+<Type>%String</Type>
+</Property>
+
 <Method name="%OnNew">
 <Private>1</Private>
 <ProcedureBlock>1</ProcedureBlock>
@@ -148,6 +156,18 @@
 ]]></Implementation>
 </Method>
 
+<Method name="GeefUniekId">
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[	Quit ..UniekId
+]]></Implementation>
+</Method>
+
+<Method name="GeefAdresType">
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[	Quit ..AdresType
+]]></Implementation>
+</Method>
+
 <Method name="ZetKlantAdresNr">
 <FormalSpec>KlantAdresNr:%String</FormalSpec>
 <Implementation><![CDATA[	Set ..KlantAdresNr = KlantAdresNr
@@ -184,6 +204,19 @@
 ]]></Implementation>
 </Method>
 
+<Method name="ZetUniekId">
+<FormalSpec>UniekId:%String</FormalSpec>
+<Implementation><![CDATA[	Set ..UniekId = UniekId
+]]></Implementation>
+</Method>
+
+<Method name="ZetAdresType">
+<FormalSpec>AdresType:%String</FormalSpec>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[	Set ..AdresType = AdresType
+]]></Implementation>
+</Method>
+
 <Storage name="Default">
 <Type>%Library.CacheStorage</Type>
 <DataLocation>^DOM.common.impl.AdresD</DataLocation>
Index: vhUnitTest/AXimpl/BizTalkMessage/Converter/AddressUpsertConverter/LeveradresRepository/GeefViaKlantIdEnAdresVolgnummer/Test.cls.xml
===================================================================
diff -u
--- vhUnitTest/AXimpl/BizTalkMessage/Converter/AddressUpsertConverter/LeveradresRepository/GeefViaKlantIdEnAdresVolgnummer/Test.cls.xml	(revision 0)
+++ vhUnitTest/AXimpl/BizTalkMessage/Converter/AddressUpsertConverter/LeveradresRepository/GeefViaKlantIdEnAdresVolgnummer/Test.cls.xml	(revision 38106)
@@ -0,0 +1,121 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.AXimpl.BizTalkMessage.Converter.AddressUpsertConverter.LeveradresRepository.GeefViaKlantIdEnAdresVolgnummer.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 ..VerwijderData()
+	Do ##super()
+]]></Implementation>
+</Method>
+
+<Method name="OnAfterOneTest">
+<FormalSpec>aTestName:%String</FormalSpec>
+<Implementation><![CDATA[	Do ..VerwijderData()
+]]></Implementation>
+</Method>
+
+<Method name="OnAfterAllTests">
+<Implementation><![CDATA[	Do ..VerwijderData()
+]]></Implementation>
+</Method>
+
+<Method name="Test: 1 leveradres aanwezig">
+<Implementation><![CDATA[
+	Do ..VoegToeLeveradres("1")
+	
+	Set LeveradresRepository = ##class(AXimpl.BizTalkMessage.Converter.AddressUpsertConverter.LeveradresRepository).%New()
+	#dim LeverAdres As DOM.VKP.impl.LeverAdres = LeveradresRepository.GeefViaKlantIdEnAdresVolgnummer("K||"_..#TestKlantnummer,"1")
+	
+	Do $$$AssertEquals(LeverAdres.UniekId,"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.AdresType,"L")
+]]></Implementation>
+</Method>
+
+<Method name="Test: 2 leveradressen aanwezig (verschillend uniek id)">
+<Implementation><![CDATA[
+	Do ..VoegToeLeveradres("1")
+	Do ..VoegToeLeveradres("2")
+	
+	Set LeveradresRepository = ##class(AXimpl.BizTalkMessage.Converter.AddressUpsertConverter.LeveradresRepository).%New()
+	#dim LeverAdres As DOM.VKP.impl.LeverAdres = LeveradresRepository.GeefViaKlantIdEnAdresVolgnummer("K||"_..#TestKlantnummer,"2")
+	
+	Do $$$AssertEquals(LeverAdres.UniekId,"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.AdresType,"L")
+]]></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(AXimpl.BizTalkMessage.Converter.AddressUpsertConverter.LeveradresRepository).%New()
+	#dim LeverAdres As DOM.VKP.impl.LeverAdres = LeveradresRepository.GeefViaKlantIdEnAdresVolgnummer("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(AXimpl.BizTalkMessage.Converter.AddressUpsertConverter.LeveradresRepository).%New()
+	#dim LeverAdres As DOM.VKP.impl.LeverAdres = LeveradresRepository.GeefViaKlantIdEnAdresVolgnummer("","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(AXimpl.BizTalkMessage.Converter.AddressUpsertConverter.LeveradresRepository).%New()
+	#dim LeverAdres As DOM.VKP.impl.LeverAdres = LeveradresRepository.GeefViaKlantIdEnAdresVolgnummer("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>