Index: AXimpl/AifMessage/RequestGeneratorConfig.cls.xml
===================================================================
diff -u -r37941 -r37965
--- AXimpl/AifMessage/RequestGeneratorConfig.cls.xml	(.../RequestGeneratorConfig.cls.xml)	(revision 37941)
+++ AXimpl/AifMessage/RequestGeneratorConfig.cls.xml	(.../RequestGeneratorConfig.cls.xml)	(revision 37965)
@@ -13,7 +13,7 @@
 	quit:Request.Command="Customer/UpdatePart2" ##class(AXimpl.AifMessage.Converter.CustomerUpdatePart2Converter).%New()
 	quit:Request.Command="SalesInvoice/Create" ##class(AXimpl.AifMessage.Converter.SalesInvoiceConverter).%New()
 	quit:Request.Command="PurchaseInvoice/Create" ##class(AXimpl.AifMessage.Converter.PurchaseInvoiceConverter).%New()
-	quit:Request.Command="Crm/Customer/Update" ##class(AXimpl.BizTalkMessage.Converter.CustomerConverter).%New()
+	quit:Request.Command="Crm/Customer" ##class(AXimpl.BizTalkMessage.Converter.CustomerConverter).%New()
 	
 	do ##class(TECH.Exceptions.IllegalUsageException).Throw(Request.Command_" not supported")
 ]]></Implementation>
@@ -29,7 +29,7 @@
 	quit:Request.Command="Customer/UpdatePart2" "http://schemas.microsoft.com/dynamics/2008/01/services/CustomerService/update"
 	quit:Request.Command="SalesInvoice/Create" "http://schemas.microsoft.com/dynamics/2008/01/services/GeneralJournalService/create"
 	quit:Request.Command="PurchaseInvoice/Create" "http://schemas.microsoft.com/dynamics/2008/01/services/GeneralJournalService/create"
-	quit:Request.Command="Crm/Customer/Update" "CrmCustomerUpdate"
+	quit:Request.Command="Crm/Customer" "CrmCustomerUpdate"
 	
 	do ##class(TECH.Exceptions.IllegalUsageException).Throw(Request.Command_" not supported")
 ]]></Implementation>
@@ -45,7 +45,7 @@
 	quit:Request.Command="Customer/UpdatePart2" "Customer/Create"
 	quit:Request.Command="SalesInvoice/Create" "SalesInvoice/Create"
 	quit:Request.Command="PurchaseInvoice/Create" "PurchaseInvoice/Create"
-	quit:Request.Command="Crm/Customer/Update" "Customer"
+	quit:Request.Command="Crm/Customer" "Crm/Customer"
 	
 	do ##class(TECH.Exceptions.IllegalUsageException).Throw(Request.Command_" not supported")
 ]]></Implementation>
Index: AXimpl/BizTalkMessage/EventHandler/CustomerUpdate.cls.xml
===================================================================
diff -u
--- AXimpl/BizTalkMessage/EventHandler/CustomerUpdate.cls.xml	(revision 0)
+++ AXimpl/BizTalkMessage/EventHandler/CustomerUpdate.cls.xml	(revision 37965)
@@ -0,0 +1,18 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="AXimpl.BizTalkMessage.EventHandler.CustomerUpdate">
+<Super>TECH.PubSub.EventHandler</Super>
+
+<Method name="StartVerwerking">
+<ClassMethod>1</ClassMethod>
+<FormalSpec>KlantWijzigEvent:TECH.Events.KlantWijzigEvent</FormalSpec>
+<Implementation><![CDATA[
+	set Generator = ##class(AX.Uitgaand.common.impl.AifGenerator).%New()
+	set Request = ##class(AXBizTalk.Crm.Customer.Request).%New("Crm/Customer",KlantWijzigEvent.Data.GeefKlantID())
+	do Generator.Generate(Request)
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: vhUnitTest/AXimpl/BizTalkMessage/Converter/CustomerConverter/Convert/Test.cls.xml
===================================================================
diff -u -r37964 -r37965
--- vhUnitTest/AXimpl/BizTalkMessage/Converter/CustomerConverter/Convert/Test.cls.xml	(.../Test.cls.xml)	(revision 37964)
+++ vhUnitTest/AXimpl/BizTalkMessage/Converter/CustomerConverter/Convert/Test.cls.xml	(.../Test.cls.xml)	(revision 37965)
@@ -69,10 +69,8 @@
 <Implementation><![CDATA[
 	Do ..Partij.IndienMethodCall("GeefToenaam").DanReturn("Een toenaam die zeker meer dan 50 karakters lang zou moeten zijn")
 	
-	Set Converter = ##class(AXimpl.BizTalkMessage.Converter.CustomerConverter).%New(..PartijAPI, ..VerkoopAPI)
+	#dim GeconverteerdeKlant As AXBizTalk.Crm.Customer.Customer = ..GeefCustomer(..Klant.GeefID())
 	
-	#dim GeconverteerdeKlant As AXBizTalk.Crm.Customer.Customer = Converter.Convert(..Klant.GeefID())
-	
 	Do $$$AssertEquals(GeconverteerdeKlant.Toenaam,"Een toenaam die zeker meer dan 50 karakters lang z")
 ]]></Implementation>
 </Method>
@@ -83,10 +81,8 @@
 	Do ..Partij.IndienMethodCall("GeefVerkortNummer").DanReturn("7001")
 	Do ..Partij.IndienMethodCall("GeefEmail").DanReturn("info@example.com")
 	
-	Set Converter = ##class(AXimpl.BizTalkMessage.Converter.CustomerConverter).%New(..PartijAPI, ..VerkoopAPI)
+	#dim GeconverteerdeKlant As AXBizTalk.Crm.Customer.Customer = ..GeefCustomer(..Klant.GeefID())
 	
-	#dim GeconverteerdeKlant As AXBizTalk.Crm.Customer.Customer = Converter.Convert(..Klant.GeefID())
-	
 	Do $$$AssertEquals(GeconverteerdeKlant.Klantnummer,"01234")
 	Do $$$AssertEquals(GeconverteerdeKlant.Naam,"DE NAAM")
 	Do $$$AssertEquals(GeconverteerdeKlant.Toenaam,"Toenaam")
@@ -137,10 +133,8 @@
 	Do ..Partij.IndienMethodCall("GeefTelefoon1").DanReturn("03/1234899")
 	Do ..Partij.IndienMethodCall("GeefTelefoon2").DanReturn("03/1234567")
 	
-	Set Converter = ##class(AXimpl.BizTalkMessage.Converter.CustomerConverter).%New(..PartijAPI, ..VerkoopAPI)
+	#dim GeconverteerdeKlant As AXBizTalk.Crm.Customer.Customer = ..GeefCustomer(..Klant.GeefID())
 	
-	#dim GeconverteerdeKlant As AXBizTalk.Crm.Customer.Customer = Converter.Convert(..Klant.GeefID())
-	
 	Do $$$AssertEquals(GeconverteerdeKlant.Telefoon,"03/1234899")
 ]]></Implementation>
 </Method>
@@ -150,19 +144,16 @@
 	Do ..Partij.IndienMethodCall("GeefTelefoon1").DanReturn("")
 	Do ..Partij.IndienMethodCall("GeefTelefoon2").DanReturn("03/987654")
 	
-	Set Converter = ##class(AXimpl.BizTalkMessage.Converter.CustomerConverter).%New(..PartijAPI, ..VerkoopAPI)
+	#dim GeconverteerdeKlant As AXBizTalk.Crm.Customer.Customer = ..GeefCustomer(..Klant.GeefID())
 	
-	#dim GeconverteerdeKlant As AXBizTalk.Crm.Customer.Customer = Converter.Convert(..Klant.GeefID())
-	
 	Do $$$AssertEquals(GeconverteerdeKlant.Telefoon,"03/987654")
 ]]></Implementation>
 </Method>
 
 <Method name="Test: iedereen altijd als klant">
 <Implementation><![CDATA[
-	Set Converter = ##class(AXimpl.BizTalkMessage.Converter.CustomerConverter).%New(..PartijAPI, ..VerkoopAPI)
 	
-	#dim GeconverteerdeKlant As AXBizTalk.Crm.Customer.Customer = Converter.Convert(..Klant.GeefID())
+	#dim GeconverteerdeKlant As AXBizTalk.Crm.Customer.Customer = ..GeefCustomer(..Klant.GeefID())
 	
 	Do $$$AssertEquals(GeconverteerdeKlant.RelatieType,"3")
 ]]></Implementation>
@@ -172,10 +163,8 @@
 <Implementation><![CDATA[
 	Do ..Partij.IndienMethodCall("GeefActiefStatus").DanReturn("")
 	
-	Set Converter = ##class(AXimpl.BizTalkMessage.Converter.CustomerConverter).%New(..PartijAPI, ..VerkoopAPI)
+	#dim GeconverteerdeKlant As AXBizTalk.Crm.Customer.Customer = ..GeefCustomer(..Klant.GeefID())
 	
-	#dim GeconverteerdeKlant As AXBizTalk.Crm.Customer.Customer = Converter.Convert(..Klant.GeefID())
-	
 	Do $$$AssertEquals(GeconverteerdeKlant.Status,"1")
 ]]></Implementation>
 </Method>
@@ -184,10 +173,8 @@
 <Implementation><![CDATA[
 	Do ..Partij.IndienMethodCall("GeefActiefStatus").DanReturn("1")
 	
-	Set Converter = ##class(AXimpl.BizTalkMessage.Converter.CustomerConverter).%New(..PartijAPI, ..VerkoopAPI)
+	#dim GeconverteerdeKlant As AXBizTalk.Crm.Customer.Customer = ..GeefCustomer(..Klant.GeefID())
 	
-	#dim GeconverteerdeKlant As AXBizTalk.Crm.Customer.Customer = Converter.Convert(..Klant.GeefID())
-	
 	Do $$$AssertEquals(GeconverteerdeKlant.Status,"0")
 ]]></Implementation>
 </Method>
@@ -196,10 +183,8 @@
 <Implementation><![CDATA[
 	Do ..Partij.IndienMethodCall("GeefActiefStatus").DanReturn("1")
 	
-	Set Converter = ##class(AXimpl.BizTalkMessage.Converter.CustomerConverter).%New(..PartijAPI, ..VerkoopAPI)
+	#dim GeconverteerdeKlant As AXBizTalk.Crm.Customer.Customer = ..GeefCustomer(..Klant.GeefID())
 	
-	#dim GeconverteerdeKlant As AXBizTalk.Crm.Customer.Customer = Converter.Convert(..Klant.GeefID())
-	
 	Do $$$AssertEquals(GeconverteerdeKlant.Status,"0")
 ]]></Implementation>
 </Method>
@@ -208,10 +193,8 @@
 <Implementation><![CDATA[
 	Do ..Klant.IndienMethodCall("GeefActiviteit").DanReturn("Architect")
 	
-	Set Converter = ##class(AXimpl.BizTalkMessage.Converter.CustomerConverter).%New(..PartijAPI, ..VerkoopAPI)
+	#dim GeconverteerdeKlant As AXBizTalk.Crm.Customer.Customer = ..GeefCustomer(..Klant.GeefID())
 	
-	#dim GeconverteerdeKlant As AXBizTalk.Crm.Customer.Customer = Converter.Convert(..Klant.GeefID())
-	
 	Do $$$AssertEquals(GeconverteerdeKlant.Activiteit,"969950000")
 ]]></Implementation>
 </Method>
@@ -220,10 +203,8 @@
 <Implementation><![CDATA[
 	Do ..Klant.IndienMethodCall("GeefActiviteit").DanReturn($$$DummyString)
 	
-	Set Converter = ##class(AXimpl.BizTalkMessage.Converter.CustomerConverter).%New(..PartijAPI, ..VerkoopAPI)
+	#dim GeconverteerdeKlant As AXBizTalk.Crm.Customer.Customer = ..GeefCustomer(..Klant.GeefID())
 	
-	#dim GeconverteerdeKlant As AXBizTalk.Crm.Customer.Customer = Converter.Convert(..Klant.GeefID())
-	
 	Do $$$AssertEquals(GeconverteerdeKlant.Activiteit,"969950022")
 ]]></Implementation>
 </Method>
@@ -232,10 +213,8 @@
 <Implementation><![CDATA[
 	Do ..Klant.IndienMethodCall("GeefActiviteit").DanReturn("")
 	
-	Set Converter = ##class(AXimpl.BizTalkMessage.Converter.CustomerConverter).%New(..PartijAPI, ..VerkoopAPI)
+	#dim GeconverteerdeKlant As AXBizTalk.Crm.Customer.Customer = ..GeefCustomer(..Klant.GeefID())
 	
-	#dim GeconverteerdeKlant As AXBizTalk.Crm.Customer.Customer = Converter.Convert(..Klant.GeefID())
-	
 	Do $$$AssertEquals(GeconverteerdeKlant.Activiteit,"969950022")
 ]]></Implementation>
 </Method>
@@ -244,10 +223,8 @@
 <Implementation><![CDATA[
 	Do ..Klant.IndienMethodCall("GeefKwantitatief").DanReturn("")
 	
-	Set Converter = ##class(AXimpl.BizTalkMessage.Converter.CustomerConverter).%New(..PartijAPI, ..VerkoopAPI)
+	#dim GeconverteerdeKlant As AXBizTalk.Crm.Customer.Customer = ..GeefCustomer(..Klant.GeefID())
 	
-	#dim GeconverteerdeKlant As AXBizTalk.Crm.Customer.Customer = Converter.Convert(..Klant.GeefID())
-	
 	Do $$$AssertEquals(GeconverteerdeKlant.Kwantitatief,"969950015")
 ]]></Implementation>
 </Method>
@@ -256,10 +233,8 @@
 <Implementation><![CDATA[
 	Do ..Klant.IndienMethodCall("GeefKwantitatief").DanReturn($$$DummyString)
 	
-	Set Converter = ##class(AXimpl.BizTalkMessage.Converter.CustomerConverter).%New(..PartijAPI, ..VerkoopAPI)
+	#dim GeconverteerdeKlant As AXBizTalk.Crm.Customer.Customer = ..GeefCustomer(..Klant.GeefID())
 	
-	#dim GeconverteerdeKlant As AXBizTalk.Crm.Customer.Customer = Converter.Convert(..Klant.GeefID())
-	
 	Do $$$AssertEquals(GeconverteerdeKlant.Kwantitatief,"969950015")
 ]]></Implementation>
 </Method>
@@ -268,10 +243,8 @@
 <Implementation><![CDATA[
 	Do ..Klant.IndienMethodCall("GeefKwantitatief").DanReturn("AR/BP A")
 	
-	Set Converter = ##class(AXimpl.BizTalkMessage.Converter.CustomerConverter).%New(..PartijAPI, ..VerkoopAPI)
+	#dim GeconverteerdeKlant As AXBizTalk.Crm.Customer.Customer = ..GeefCustomer(..Klant.GeefID())
 	
-	#dim GeconverteerdeKlant As AXBizTalk.Crm.Customer.Customer = Converter.Convert(..Klant.GeefID())
-	
 	Do $$$AssertEquals(GeconverteerdeKlant.Kwantitatief,"969950008")
 ]]></Implementation>
 </Method>
@@ -281,10 +254,8 @@
 	Do ..Klant.IndienMethodCall("GeefKwaliteit").DanReturn("2")
 	Do ..Klant.IndienMethodCall("GeefActiviteit").DanReturn("Handel")
 	
-	Set Converter = ##class(AXimpl.BizTalkMessage.Converter.CustomerConverter).%New(..PartijAPI, ..VerkoopAPI)
+	#dim GeconverteerdeKlant As AXBizTalk.Crm.Customer.Customer = ..GeefCustomer(..Klant.GeefID())
 	
-	#dim GeconverteerdeKlant As AXBizTalk.Crm.Customer.Customer = Converter.Convert(..Klant.GeefID())
-	
 	Do $$$AssertEquals(GeconverteerdeKlant.KwaliteitHandel,"969950001")
 ]]></Implementation>
 </Method>
@@ -294,10 +265,8 @@
 	Do ..Klant.IndienMethodCall("GeefKwaliteit").DanReturn("2")
 	Do ..Klant.IndienMethodCall("GeefActiviteit").DanReturn("Meubelhandel")
 	
-	Set Converter = ##class(AXimpl.BizTalkMessage.Converter.CustomerConverter).%New(..PartijAPI, ..VerkoopAPI)
+	#dim GeconverteerdeKlant As AXBizTalk.Crm.Customer.Customer = ..GeefCustomer(..Klant.GeefID())
 	
-	#dim GeconverteerdeKlant As AXBizTalk.Crm.Customer.Customer = Converter.Convert(..Klant.GeefID())
-	
 	Do $$$AssertEquals(GeconverteerdeKlant.KwaliteitMeubelhandel,"969950001")
 ]]></Implementation>
 </Method>
@@ -307,10 +276,8 @@
 	Do ..Klant.IndienMethodCall("GeefKwaliteit").DanReturn("2")
 	Do ..Klant.IndienMethodCall("GeefActiviteit").DanReturn("Keuken")
 	
-	Set Converter = ##class(AXimpl.BizTalkMessage.Converter.CustomerConverter).%New(..PartijAPI, ..VerkoopAPI)
+	#dim GeconverteerdeKlant As AXBizTalk.Crm.Customer.Customer = ..GeefCustomer(..Klant.GeefID())
 	
-	#dim GeconverteerdeKlant As AXBizTalk.Crm.Customer.Customer = Converter.Convert(..Klant.GeefID())
-	
 	Do $$$AssertEquals(GeconverteerdeKlant.KwaliteitKeuken,"969950001")
 ]]></Implementation>
 </Method>
@@ -320,10 +287,8 @@
 	Do ..Klant.IndienMethodCall("GeefKwaliteit").DanReturn("2")
 	Do ..Klant.IndienMethodCall("GeefActiviteit").DanReturn("Scholen")
 	
-	Set Converter = ##class(AXimpl.BizTalkMessage.Converter.CustomerConverter).%New(..PartijAPI, ..VerkoopAPI)
+	#dim GeconverteerdeKlant As AXBizTalk.Crm.Customer.Customer = ..GeefCustomer(..Klant.GeefID())
 	
-	#dim GeconverteerdeKlant As AXBizTalk.Crm.Customer.Customer = Converter.Convert(..Klant.GeefID())
-	
 	Do $$$AssertEquals(GeconverteerdeKlant.KwaliteitScholen,"969950001")
 ]]></Implementation>
 </Method>
@@ -333,10 +298,8 @@
 	Do ..Klant.IndienMethodCall("GeefKwaliteit").DanReturn("2")
 	Do ..Klant.IndienMethodCall("GeefActiviteit").DanReturn("Consument")
 	
-	Set Converter = ##class(AXimpl.BizTalkMessage.Converter.CustomerConverter).%New(..PartijAPI, ..VerkoopAPI)
+	#dim GeconverteerdeKlant As AXBizTalk.Crm.Customer.Customer = ..GeefCustomer(..Klant.GeefID())
 	
-	#dim GeconverteerdeKlant As AXBizTalk.Crm.Customer.Customer = Converter.Convert(..Klant.GeefID())
-	
 	Do $$$AssertEquals(GeconverteerdeKlant.KwaliteitConsument,"969950001")
 ]]></Implementation>
 </Method>
@@ -346,10 +309,8 @@
 	Do ..Klant.IndienMethodCall("GeefKwaliteit").DanReturn("2")
 	Do ..Klant.IndienMethodCall("GeefActiviteit").DanReturn("Openbare besturen")
 	
-	Set Converter = ##class(AXimpl.BizTalkMessage.Converter.CustomerConverter).%New(..PartijAPI, ..VerkoopAPI)
+	#dim GeconverteerdeKlant As AXBizTalk.Crm.Customer.Customer = ..GeefCustomer(..Klant.GeefID())
 	
-	#dim GeconverteerdeKlant As AXBizTalk.Crm.Customer.Customer = Converter.Convert(..Klant.GeefID())
-	
 	Do $$$AssertEquals(GeconverteerdeKlant.KwaliteitOpenbareBesturen,"969950001")
 ]]></Implementation>
 </Method>
@@ -359,10 +320,8 @@
 	Do ..Klant.IndienMethodCall("GeefKwaliteit").DanReturn("2")
 	Do ..Klant.IndienMethodCall("GeefActiviteit").DanReturn("Leverancier")
 	
-	Set Converter = ##class(AXimpl.BizTalkMessage.Converter.CustomerConverter).%New(..PartijAPI, ..VerkoopAPI)
+	#dim GeconverteerdeKlant As AXBizTalk.Crm.Customer.Customer = ..GeefCustomer(..Klant.GeefID())
 	
-	#dim GeconverteerdeKlant As AXBizTalk.Crm.Customer.Customer = Converter.Convert(..Klant.GeefID())
-	
 	Do $$$AssertEquals(GeconverteerdeKlant.KwaliteitLeverancier,"969950001")
 ]]></Implementation>
 </Method>
@@ -372,10 +331,8 @@
 	Do ..Klant.IndienMethodCall("GeefKwaliteit").DanReturn("2")
 	Do ..Klant.IndienMethodCall("GeefActiviteit").DanReturn("Software")
 	
-	Set Converter = ##class(AXimpl.BizTalkMessage.Converter.CustomerConverter).%New(..PartijAPI, ..VerkoopAPI)
+	#dim GeconverteerdeKlant As AXBizTalk.Crm.Customer.Customer = ..GeefCustomer(..Klant.GeefID())
 	
-	#dim GeconverteerdeKlant As AXBizTalk.Crm.Customer.Customer = Converter.Convert(..Klant.GeefID())
-	
 	Do $$$AssertEquals(GeconverteerdeKlant.KwaliteitSoftware,"969950001")
 ]]></Implementation>
 </Method>
@@ -385,10 +342,8 @@
 	Do ..LeverAdresLijst.Insert(##class(vhTest.Fake.DOM.VKP.LeverAdres).%New(1))	
 	Do ..LeverAdresLijst.Insert(##class(vhTest.Fake.DOM.VKP.LeverAdres).%New(2))
 	
-	Set Converter = ##class(AXimpl.BizTalkMessage.Converter.CustomerConverter).%New(..PartijAPI, ..VerkoopAPI)
+	#dim GeconverteerdeKlant As AXBizTalk.Crm.Customer.Customer = ..GeefCustomer(..Klant.GeefID())
 	
-	#dim GeconverteerdeKlant As AXBizTalk.Crm.Customer.Customer = Converter.Convert(..Klant.GeefID())
-	
 	If $$$AssertEquals(GeconverteerdeKlant.Leveradressen.Count(),2) {
 		Do $$$AssertEquals(GeconverteerdeKlant.Leveradressen.GetAt(1).Klantnummer,"01234")
 		Do $$$AssertEquals(GeconverteerdeKlant.Leveradressen.GetAt(1).Straat1,"Straat 1")
@@ -419,10 +374,8 @@
 
 <Method name="Test: 0 leveradressen aanwezig -&gt; geen Leveradressen in resultaat">
 <Implementation><![CDATA[
-	Set Converter = ##class(AXimpl.BizTalkMessage.Converter.CustomerConverter).%New(..PartijAPI, ..VerkoopAPI)
+	#dim GeconverteerdeKlant As AXBizTalk.Crm.Customer.Customer = ..GeefCustomer(..Klant.GeefID())
 	
-	#dim GeconverteerdeKlant As AXBizTalk.Crm.Customer.Customer = Converter.Convert(..Klant.GeefID())
-	
 	Do $$$AssertEquals(GeconverteerdeKlant.Leveradressen.Count(),0)
 ]]></Implementation>
 </Method>
@@ -431,10 +384,8 @@
 <Implementation><![CDATA[
 	Do ..Klant.IndienMethodCall("GeefBezoekAdres").DanReturn(##class(vhTest.Fake.DOM.common.impl.VH.Adres).%New())
 	
-	Set Converter = ##class(AXimpl.BizTalkMessage.Converter.CustomerConverter).%New(..PartijAPI, ..VerkoopAPI)
+	#dim GeconverteerdeKlant As AXBizTalk.Crm.Customer.Customer = ..GeefCustomer(..Klant.GeefID())
 	
-	#dim GeconverteerdeKlant As AXBizTalk.Crm.Customer.Customer = Converter.Convert(..Klant.GeefID())
-	
 	Do $$$AssertEquals(GeconverteerdeKlant.Leveradressen.Count(),0)
 ]]></Implementation>
 </Method>
@@ -445,10 +396,8 @@
 	Do ..LeverAdresLijst.Insert(##class(vhTest.Fake.DOM.VKP.LeverAdres).%New(1))	
 	Do ..LeverAdresLijst.Insert(##class(vhTest.Fake.DOM.VKP.LeverAdres).%New(2))
 	
-	Set Converter = ##class(AXimpl.BizTalkMessage.Converter.CustomerConverter).%New(..PartijAPI, ..VerkoopAPI)
+	#dim GeconverteerdeKlant As AXBizTalk.Crm.Customer.Customer = ..GeefCustomer(..Klant.GeefID())
 	
-	#dim GeconverteerdeKlant As AXBizTalk.Crm.Customer.Customer = Converter.Convert(..Klant.GeefID())
-	
 	Do $$$AssertEquals(GeconverteerdeKlant.Leveradressen.Count(),2)
 ]]></Implementation>
 </Method>
@@ -459,13 +408,22 @@
 	Do FakeBezoekadres.ZetLandNr("")
 	Do ..Klant.IndienMethodCall("GeefBezoekAdres").DanReturn(FakeBezoekadres)
 	
-	Set Converter = ##class(AXimpl.BizTalkMessage.Converter.CustomerConverter).%New(..PartijAPI, ..VerkoopAPI)
+	#dim GeconverteerdeKlant As AXBizTalk.Crm.Customer.Customer = ..GeefCustomer(..Klant.GeefID())
 	
-	#dim GeconverteerdeKlant As AXBizTalk.Crm.Customer.Customer = Converter.Convert(..Klant.GeefID())
-		
 	Do $$$AssertEquals(GeconverteerdeKlant.BezoekadresLandcode,"BEL")
 ]]></Implementation>
 </Method>
+
+<Method name="GeefCustomer">
+<FormalSpec>KlantId:%String</FormalSpec>
+<ReturnType>AXBizTalk.Crm.Customer.Customer</ReturnType>
+<Implementation><![CDATA[
+	Set Converter = ##class(AXimpl.BizTalkMessage.Converter.CustomerConverter).%New(..PartijAPI, ..VerkoopAPI)
+	Set Request = ##class(AXBizTalk.Crm.Customer.Request).%New("Crm/Customer",KlantId)
+
+	Quit Converter.Convert(Request).Customer
+]]></Implementation>
+</Method>
 </Class>
 
 
Index: AXimpl/BizTalkMessage/Converter/CustomerConverter.cls.xml
===================================================================
diff -u -r37964 -r37965
--- AXimpl/BizTalkMessage/Converter/CustomerConverter.cls.xml	(.../CustomerConverter.cls.xml)	(revision 37964)
+++ AXimpl/BizTalkMessage/Converter/CustomerConverter.cls.xml	(.../CustomerConverter.cls.xml)	(revision 37965)
@@ -45,11 +45,11 @@
 </Method>
 
 <Method name="Convert">
-<FormalSpec>KlantId:%String</FormalSpec>
-<ReturnType>AXBizTalk.Crm.Customer.Customer</ReturnType>
+<FormalSpec>Command:AXBizTalk.Crm.Customer.Request</FormalSpec>
+<ReturnType>AXBizTalk.Crm.Customer.MessageParts</ReturnType>
 <Implementation><![CDATA[
-	Set ..Partij = ..PartijAPI.GeefPartij(KlantId)
-	Set ..Klant = ..VerkoopAPI.GeefKlant(KlantId)
+	Set ..Partij = ..PartijAPI.GeefPartij(Command.SubjectId)
+	Set ..Klant = ..VerkoopAPI.GeefKlant(Command.SubjectId)
 	
 	Set ..Customer = ##class(AXBizTalk.Crm.Customer.Customer).%New()
 	
@@ -60,7 +60,10 @@
 	Do ..ConvertFinancieleInformatie()
 	Do ..ConvertAdresGegevens()
 	
-	Quit ..Customer
+	set MessageParts = ##class(AXBizTalk.Crm.Customer.MessageParts).%New()
+	set MessageParts.Customer = ..Customer
+	
+	Quit MessageParts
 ]]></Implementation>
 </Method>