Index: AXimpl/AifMessage/RequestComposer.cls.xml
===================================================================
diff -u -r35377 -r35427
--- AXimpl/AifMessage/RequestComposer.cls.xml	(.../RequestComposer.cls.xml)	(revision 35377)
+++ AXimpl/AifMessage/RequestComposer.cls.xml	(.../RequestComposer.cls.xml)	(revision 35427)
@@ -36,15 +36,7 @@
 	set Request.Header.Company = ..FirmaBepaler.GeefInitialen()
 	set Request.Header.Action = ..GetAction(Command)
 	set Request.Body = ##class(AXaif.Message.Body).%New()
-	set Request.Body.MessageParts = ##class(AXaif.Message.MessageParts).%New()
-	
-	#dim Converter As AX.Uitgaand.common.AifConverter = ..GetConverter(Command)
-	
-	set:Command="Customer/Create" Request.Body.MessageParts.Customer = Converter.Convert(Id)
-	set:Command="SalesInvoice/Create" Request.Body.MessageParts.LedgerGeneralJournal = Converter.Convert(Id)
-	set:Command="PurchaseInvoice/Create" Request.Body.MessageParts.LedgerGeneralJournal = Converter.Convert(Id)
-	set:Command="Customer/Read" Request.Body.MessageParts.EntityKeyList = ..GeefEntityKeyList(Id)
-
+	set Request.Body.MessageParts = ..GetConverter(Command).Convert(Id)
 	quit Request
 ]]></Implementation>
 </Method>
@@ -55,9 +47,9 @@
 <ReturnType>AX.Uitgaand.common.AifConverter</ReturnType>
 <Implementation><![CDATA[
 	quit:Command="Customer/Create" ##class(AXimpl.AifMessage.Converter.CustomerCreateConverter).%New()
+	quit:Command="Customer/UpdatePart1" ##class(AXimpl.AifMessage.Converter.CustomerUpdatePart1Converter).%New()
 	quit:Command="SalesInvoice/Create" ##class(AX.Uitgaand.VKP.VerkoopFactuur.impl.AifConverter).%New()
 	quit:Command="PurchaseInvoice/Create" ##class(AX.Uitgaand.BKH.AankoopFactuur.impl.AifConverter).%New()
-	quit $$$NULLOREF
 ]]></Implementation>
 </Method>
 
@@ -67,32 +59,11 @@
 <ReturnType>%String</ReturnType>
 <Implementation><![CDATA[
 	quit:Command="Customer/Create" "http://schemas.microsoft.com/dynamics/2008/01/services/CustomerService/create"
+	quit:Command="Customer/UpdatePart1" "http://schemas.microsoft.com/dynamics/2008/01/services/CustomerService/read"
 	quit:Command="SalesInvoice/Create" "http://schemas.microsoft.com/dynamics/2008/01/services/GeneralJournalService/create"
 	quit:Command="PurchaseInvoice/Create" "http://schemas.microsoft.com/dynamics/2008/01/services/GeneralJournalService/create"
-	quit:Command="Customer/Read" "http://schemas.microsoft.com/dynamics/2008/01/services/CustomerService/read"
 ]]></Implementation>
 </Method>
-
-<Method name="GeefEntityKeyList">
-<FormalSpec>Id:%String</FormalSpec>
-<Private>1</Private>
-<ReturnType>AXaif.EntityKey.EntityKeyList</ReturnType>
-<Implementation><![CDATA[
-	Set axEntityKeyList = ##class(AXaif.EntityKey.EntityKeyList).%New()
-	Set axEntityKey = ##class(AXaif.EntityKey.EntityKey).%New()
-	Set axKeyData = ##class(AXaif.EntityKey.KeyData).%New()	
-	Set axKeyField = ##class(AXaif.EntityKey.KeyField).%New()
-	
-	Set axKeyField.Field = "AccountNum"
-	Set axKeyField.Value = ##class(TECH.StringUtils).AlignRight($Extract(Id,4,*),0,5)
-	
-	Do axKeyData.KeyField.Insert(axKeyField)
-	Do axEntityKey.KeyData.Insert(axKeyData)	
-	Set axEntityKeyList.EntityKey = axEntityKey
-	
-	Quit axEntityKeyList
-]]></Implementation>
-</Method>
 </Class>