Index: vhUnitTest/AXimpl/BizTalkMessage/Converter/AddressUpsertConverter/Convert/Test.cls.xml
===================================================================
diff -u
--- vhUnitTest/AXimpl/BizTalkMessage/Converter/AddressUpsertConverter/Convert/Test.cls.xml	(revision 0)
+++ vhUnitTest/AXimpl/BizTalkMessage/Converter/AddressUpsertConverter/Convert/Test.cls.xml	(revision 38108)
@@ -0,0 +1,66 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.AXimpl.BizTalkMessage.Converter.AddressUpsertConverter.Convert.Test">
+<Super>vhUnitTest.TestCase</Super>
+
+<Property name="Leveradres">
+<Type>DOM.VKP.LeverAdres</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="Klant">
+<Type>vhTest.Mock.DOM.VKP.VanHoeckeKlant</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="VerkoopAPI">
+<Type>vhTest.Mock.DOM.VKP.VerkoopAPI</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="OnBeforeOneTest">
+<FormalSpec>aTestName:%String</FormalSpec>
+<Implementation><![CDATA[
+	Do ##super(aTestName)
+	
+	Set ..VerkoopAPI = ##class(vhTest.Mock.DOM.VKP.VerkoopAPI).%New()
+	Do ..VerkoopAPI.IndienMethodCall("GeefKlant",$$$ElkeWaarde).DanReturn(..Klant)
+	
+	Set ..Leveradres = ##class(vhTest.Fake.DOM.VKP.LeverAdres).%New(1)
+]]></Implementation>
+</Method>
+
+<Method name="Test: properties die 1 op 1 worden overgenomen">
+<Implementation><![CDATA[
+	#dim GeconverteerdeLeverAdres As AXBizTalk.Crm.Address.Upsert.Address = ..GeefAddress(..Leveradres.GeefID())
+	Do $$$AssertEquals(GeconverteerdeLeverAdres.Klantnummer,"Klant 1")
+	Do $$$AssertEquals(GeconverteerdeLeverAdres.Straat1,"Straat 1")
+	Do $$$AssertEquals(GeconverteerdeLeverAdres.Postcode,"9101")
+	Do $$$AssertEquals(GeconverteerdeLeverAdres.Plaats,"Gemeente 1")
+	Do $$$AssertEquals(GeconverteerdeLeverAdres.LandCodeISO3,"BEL")
+	Do $$$AssertEquals(GeconverteerdeLeverAdres.Telefoon,"03/1234561")
+	Do $$$AssertEquals(GeconverteerdeLeverAdres.Verzendwijze,"VerzendingWijze1")
+	Do $$$AssertEquals(GeconverteerdeLeverAdres.LeveringAdres,$$$True)
+	Do $$$AssertEquals(GeconverteerdeLeverAdres.BezoekAdres,$$$False)
+	Do $$$AssertEquals(GeconverteerdeLeverAdres.ToonzaalAdres,$$$False)
+	Do $$$AssertEquals(GeconverteerdeLeverAdres.FacturatieAdres,$$$False)
+]]></Implementation>
+</Method>
+
+<Method name="GeefAddress">
+<FormalSpec>LeveradresId:%String</FormalSpec>
+<ReturnType>AXBizTalk.Crm.Address.Upsert.Address</ReturnType>
+<Implementation><![CDATA[
+	Set LeveradresRepositoryStub = ##class(vhTest.Mock.AXimpl.BizTalkMessage.Converter.AddressUpsertConverter.LeveradresRepository).%New()
+	Do LeveradresRepositoryStub.IndienMethodCall("GeefViaID",$$$ElkeWaarde).DanReturn(..Leveradres)
+	
+	Set Converter = ##class(AXimpl.BizTalkMessage.Converter.AddressUpsertConverter).%New(..VerkoopAPI, LeveradresRepositoryStub)
+	Set Request = ##class(AXBizTalk.Crm.Address.Upsert.Request).%New("Crm/Address/Upsert/Address",LeveradresId)
+
+	Quit Converter.Convert(Request).Address
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: AXimpl/BizTalkMessage/Converter/AddressUpsertConverter.cls.xml
===================================================================
diff -u
--- AXimpl/BizTalkMessage/Converter/AddressUpsertConverter.cls.xml	(revision 0)
+++ AXimpl/BizTalkMessage/Converter/AddressUpsertConverter.cls.xml	(revision 38108)
@@ -0,0 +1,66 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="AXimpl.BizTalkMessage.Converter.AddressUpsertConverter">
+<Super>TECH.RegisteredObject</Super>
+
+<Property name="VerkoopAPI">
+<Type>DOM.VKP.VerkoopAPI</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="Address">
+<Type>AXBizTalk.Crm.Address.Upsert.Address</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="Klant">
+<Type>DOM.VKP.VanHoeckeKlant</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="LeveradresRepository">
+<Type>AXimpl.BizTalkMessage.Converter.AddressUpsertConverter.LeveradresRepository</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="%OnNew">
+<FormalSpec>VerkoopAPI:DOM.VKP.VerkoopAPI,LeveradresRepository:AXimpl.BizTalkMessage.Converter.AddressUpsertConverter.LeveradresRepository</FormalSpec>
+<Private>1</Private>
+<ProcedureBlock>1</ProcedureBlock>
+<ReturnType>%Status</ReturnType>
+<ServerOnly>1</ServerOnly>
+<Implementation><![CDATA[
+	Set ..VerkoopAPI = $$$Inject(VerkoopAPI,##class(DOM.DomeinContext).Instance().GeefVerkoopAPI())
+	Set ..LeveradresRepository = $$$Inject(LeveradresRepository,##class(AXimpl.BizTalkMessage.Converter.AddressUpsertConverter.LeveradresRepository).%New())
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
+<Method name="Convert">
+<FormalSpec>Command:AXBizTalk.Crm.Customer.Request</FormalSpec>
+<ReturnType>AXBizTalk.Crm.Customer.MessageParts</ReturnType>
+<Implementation><![CDATA[
+	#dim Adres As DOM.VKP.impl.LeverAdres = ..LeveradresRepository.GeefViaID(Command.SubjectId)
+	
+	Set ..Address.Straat1 = Adres.GeefStraat()
+	Set ..Address.Klantnummer = Adres.GeefKlantId()
+	Set ..Address.Postcode = Adres.GeefPostcode()
+	Set ..Address.Plaats = Adres.GeefGemeente()
+	Set ..Address.LandCodeISO3 = Adres.GeefLand().GeefIso3()
+	Set ..Address.Telefoon = Adres.GeefTelefoon()
+	Set ..Address.Verzendwijze = Adres.GeefVerzendingWijze()
+	Set ..Address.LeveringAdres = $$$True
+	Set ..Address.BezoekAdres = $$$False
+	Set ..Address.ToonzaalAdres = $$$False
+	Set ..Address.FacturatieAdres = $$$False
+		
+	Set MessageParts = ##class(AXBizTalk.Crm.Address.Upsert.MessageParts).%New()
+	Set MessageParts.Address = ..Address
+	
+	Quit MessageParts
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>