Index: AXaif/Message/MessageParts.cls.xml
===================================================================
diff -u
--- AXaif/Message/MessageParts.cls.xml	(revision 0)
+++ AXaif/Message/MessageParts.cls.xml	(revision 33560)
@@ -0,0 +1,16 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="AXaif.Message.MessageParts">
+<Super>%RegisteredObject,%XML.Adaptor</Super>
+
+<Parameter name="NAMESPACE">
+<Default>http://schemas.microsoft.com/dynamics/2011/01/documents/Message</Default>
+</Parameter>
+
+<Property name="Customer">
+<Type>AXaif.Customer.AxdCustomer</Type>
+</Property>
+</Class>
+
+
+</Export>
Index: AX/Uitgaand/Klant/impl/AifGenerator.cls.xml
===================================================================
diff -u
--- AX/Uitgaand/Klant/impl/AifGenerator.cls.xml	(revision 0)
+++ AX/Uitgaand/Klant/impl/AifGenerator.cls.xml	(revision 33560)
@@ -0,0 +1,77 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="AX.Uitgaand.Klant.impl.AifGenerator">
+<Super>TECH.RegisteredObject</Super>
+
+<Property name="PartijAPI">
+<Type>DOM.PARTIJ.PartijAPI</Type>
+</Property>
+
+<Property name="VerkoopAPI">
+<Type>DOM.VKP.VerkoopAPI</Type>
+</Property>
+
+<Property name="FileAPI">
+<Type>TECH.File.FileAPI</Type>
+</Property>
+
+<Property name="Converter">
+<Type>AX.Uitgaand.Klant.impl.AifConverter</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="%OnNew">
+<FormalSpec>PartijAPI:DOM.PARTIJ.PartijAPI,VerkoopAPI:DOM.VKP.VerkoopAPI,FileAPI:TECH.File.FileAPI</FormalSpec>
+<Private>1</Private>
+<ProcedureBlock>1</ProcedureBlock>
+<ReturnType>%Status</ReturnType>
+<ServerOnly>1</ServerOnly>
+<Implementation><![CDATA[
+	set ..PartijAPI = ##class(DOM.DomeinContext).Instance().GeefPartijAPI()
+	set ..VerkoopAPI = ##class(DOM.DomeinContext).Instance().GeefVerkoopAPI()
+	set ..FileAPI = ##class(TECH.Context).Instance().GeefFileAPI()
+	
+	set ..Converter = ##class(AX.Uitgaand.Klant.impl.AifConverter).%New()
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
+<Method name="GenerateAll">
+<Implementation><![CDATA[
+	#dim KlantIterator As TECH.Iterator = ..VerkoopAPI.GeefKlantIterator()
+	while KlantIterator.HasNext() {
+		do ..Generate(KlantIterator.Next().GeefID())	
+	}
+]]></Implementation>
+</Method>
+
+<Method name="Generate">
+<FormalSpec>PartijId:%String</FormalSpec>
+<Implementation><![CDATA[
+	#dim Partij As DOM.PARTIJ.Partij = ..PartijAPI.GeefPartij(PartijId)
+	#dim Klant As DOM.VKP.VanHoeckeKlant = ..VerkoopAPI.GeefKlant(PartijId)
+		
+	set Message = ##class(AXaif.Message.Envelope).%New()
+	set Message.Header = ##class(AXaif.Message.Header).%New()
+	set Message.Header.MessageId = "{"_$system.Util.CreateGUID()_"}"
+	set Message.Header.Action = "http://schemas.microsoft.com/dynamics/2008/01/services/CustomerService/create"
+	set Message.Body = ##class(AXaif.Message.Body).%New()
+	set Message.Body.MessageParts = ##class(AXaif.Message.MessageParts).%New()
+	set Message.Body.MessageParts.Customer = ..Converter.Convert(Partij,Klant)
+		
+	#dim Path As %String = ##class(TECH.Files).AppendSubPath(##class(TECH.Config.ConfigMgr).Instance().GeefString("MSMGATEWAY"),"AIF\Incomming")
+	#dim Filename As %String = PartijId_" "_##class(TECH.Files).GeefCurrentTimeStamp()_" .xml"
+	#dim FullFilename As %String = ##class(TECH.Files).AppendFile(Path,Filename)
+		
+	#dim FileWriter As TECH.File.FileWriter = ..FileAPI.GeefFileWriter()
+	do FileWriter.Open(FullFilename,$$$False)
+	do FileWriter.WriteXML(Message)
+	do FileWriter.Close()
+	
+	quit
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: AXaif/Customer/AxdCustomer.cls.xml
===================================================================
diff -u -r33487 -r33560
--- AXaif/Customer/AxdCustomer.cls.xml	(.../AxdCustomer.cls.xml)	(revision 33487)
+++ AXaif/Customer/AxdCustomer.cls.xml	(.../AxdCustomer.cls.xml)	(revision 33560)
@@ -18,7 +18,7 @@
 </Parameter>
 
 <Parameter name="XMLNAME">
-<Default>AxdCustomer</Default>
+<Default>Customer</Default>
 </Parameter>
 
 <Parameter name="XMLSEQUENCE">
Index: AXaif/Message/Envelope.cls.xml
===================================================================
diff -u
--- AXaif/Message/Envelope.cls.xml	(revision 0)
+++ AXaif/Message/Envelope.cls.xml	(revision 33560)
@@ -0,0 +1,24 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="AXaif.Message.Envelope">
+<Super>%RegisteredObject,%XML.Adaptor</Super>
+
+<Parameter name="XMLNAME">
+<Default>Envelope</Default>
+</Parameter>
+
+<Parameter name="XMLSEQUENCE">
+<Default>0</Default>
+</Parameter>
+
+<Property name="Header">
+<Type>AXaif.Message.Header</Type>
+</Property>
+
+<Property name="Body">
+<Type>AXaif.Message.Body</Type>
+</Property>
+</Class>
+
+
+</Export>
Index: AXaif/Message/Body.cls.xml
===================================================================
diff -u
--- AXaif/Message/Body.cls.xml	(revision 0)
+++ AXaif/Message/Body.cls.xml	(revision 33560)
@@ -0,0 +1,12 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="AXaif.Message.Body">
+<Super>%RegisteredObject,%XML.Adaptor</Super>
+
+<Property name="MessageParts">
+<Type>AXaif.Message.MessageParts</Type>
+</Property>
+</Class>
+
+
+</Export>
Index: AX/Uitgaand/Klant/impl/AifConverter.cls.xml
===================================================================
diff -u -r33557 -r33560
--- AX/Uitgaand/Klant/impl/AifConverter.cls.xml	(.../AifConverter.cls.xml)	(revision 33557)
+++ AX/Uitgaand/Klant/impl/AifConverter.cls.xml	(.../AifConverter.cls.xml)	(revision 33560)
@@ -11,6 +11,7 @@
 	set AxKlant.SenderId = "PRBE"
 	
 	set Custable = ##class(AXaif.Customer.AxdEntityCustTable).%New()
+	set Custable.class = "entity"
 	set Custable.AccountNum = ##class(TECH.StringUtils).AlignRight(Partij.GeefCode(),0,9)
 	set Custable.CashDisc = ..FormatCashDisc(Klant)
 	set Custable.Currency = "EUR"
@@ -24,10 +25,12 @@
 	set Custable.WebSalesOrderDisplay = "All"
 	
 	set DirParty = ##class(AXaif.Customer.AxdEntityDirPartyDirOrganization).%New()
+	set DirParty.class = "entity"
 	set DirParty.LanguageId = ..FormatLanuageId(Partij.GeefTaal())
 	set DirParty.Name = Partij.GeefNaam()_$$$IfLength(Partij.GeefToenaam()," ","")
 	
 	set OrganizationName = ##class(AXaif.Customer.AxdEntityOrganizationName).%New()
+	set OrganizationName.class = "entity"
 	set OrganizationName.Name = DirParty.Name
 	do DirParty.OrganizationName.Insert(OrganizationName)
 	
@@ -54,6 +57,7 @@
 <ReturnType>AXaif.Customer.AxdEntityDirPartyContactInfoView</ReturnType>
 <Implementation><![CDATA[
 	set ContactInfo = ##class(AXaif.Customer.AxdEntityDirPartyContactInfoView).%New()
+	set ContactInfo.class = "entity"
 	set ContactInfo.LocationName = LocationName
 	set ContactInfo.Locator = Locator
 	set ContactInfo.Type = Type
@@ -67,6 +71,7 @@
 <ReturnType>AXaif.Customer.AxdEntityDirPartyPostalAddressView</ReturnType>
 <Implementation><![CDATA[
 	set PostalAddres = ##class(AXaif.Customer.AxdEntityDirPartyPostalAddressView).%New()
+	set PostalAddres.class = "entity"
 	#dim Adres As DOM.common.Adres = Partij.GeefAdres()
 	set PostalAddres.City = $$$UCase(Adres.GeefGemeente())
 	set PostalAddres.IsPrimary = ##class(AXaif.Shared.AxdExtTypeLogisticsIsPrimaryAddress).Yes()
@@ -95,7 +100,8 @@
 <Implementation><![CDATA[
 	quit:Klant.GeefKortingContantPercentage()=0 ""
 	quit:Klant.GeefKortingContantTermijn()="" ""
-	quit ( Klant.GeefKortingContantTermijn() ) _ ( Klant.GeefKortingContantPercentage() _"%" )
+	
+	quit ( ##class(TECH.StringUtils).AlignRight(Klant.GeefKortingContantTermijn(),0,2) ) _ ( Klant.GeefKortingContantPercentage() _"%" )
 ]]></Implementation>
 </Method>
 
Index: AXaif/Message/Header.cls.xml
===================================================================
diff -u
--- AXaif/Message/Header.cls.xml	(revision 0)
+++ AXaif/Message/Header.cls.xml	(revision 33560)
@@ -0,0 +1,28 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="AXaif.Message.Header">
+<Super>%RegisteredObject,%XML.Adaptor</Super>
+
+<Parameter name="XMLNAME">
+<Default>Header</Default>
+</Parameter>
+
+<Parameter name="XMLSEQUENCE">
+<Default>1</Default>
+</Parameter>
+
+<Property name="MessageId">
+<Type>%String</Type>
+<Parameter name="MAXLEN"/>
+<Parameter name="XMLNAME" value="MessageId"/>
+</Property>
+
+<Property name="Action">
+<Type>%String</Type>
+<Parameter name="MAXLEN"/>
+<Parameter name="XMLNAME" value="Action"/>
+</Property>
+</Class>
+
+
+</Export>