Index: AXimpl/BizTalkMessage/Converter/CustomerConverter.cls.xml
===================================================================
diff -u -r37806 -r37807
--- AXimpl/BizTalkMessage/Converter/CustomerConverter.cls.xml	(.../CustomerConverter.cls.xml)	(revision 37806)
+++ AXimpl/BizTalkMessage/Converter/CustomerConverter.cls.xml	(.../CustomerConverter.cls.xml)	(revision 37807)
@@ -13,6 +13,21 @@
 <Private>1</Private>
 </Property>
 
+<Property name="Partij">
+<Type>DOM.PARTIJ.Partij</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="Klant">
+<Type>DOM.VKP.VanHoeckeKlant</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="Customer">
+<Type>AXBizTalk.Customer</Type>
+<Private>1</Private>
+</Property>
+
 <Method name="%OnNew">
 <FormalSpec>PartijAPI:DOM.PARTIJ.PartijAPI,VerkoopAPI:DOM.VKP.VerkoopAPI</FormalSpec>
 <ReturnType>%Status</ReturnType>
@@ -27,51 +42,54 @@
 <FormalSpec>KlantId:%String</FormalSpec>
 <ReturnType>AXBizTalk.Customer</ReturnType>
 <Implementation><![CDATA[
-	#dim Partij As DOM.PARTIJ.Partij = ..PartijAPI.GeefPartij(KlantId)
-	#dim Klant As DOM.VKP.VanHoeckeKlant = ..VerkoopAPI.GeefKlant(KlantId)
+	Set ..Partij = ..PartijAPI.GeefPartij(KlantId)
+	Set ..Klant = ..VerkoopAPI.GeefKlant(KlantId)
 	
-	Set Customer = ##class(AXBizTalk.Customer).%New()
+	Set ..Customer = ##class(AXBizTalk.Customer).%New()
 	
-	Do ..ConvertAccountInformatie(Partij, Klant, Customer)
-	Do ..ConvertAlgemeneSegmentering(Partij, Klant, Customer)
+	Do ..ConvertAccountInformatie()
+	Do ..ConvertAlgemeneSegmentering()
+	Do ..ConvertAdminSegmentering()
 	
-	Quit Customer
+	Quit ..Customer
 ]]></Implementation>
 </Method>
 
 <Method name="ConvertAccountInformatie">
-<FormalSpec><![CDATA[Partij:DOM.PARTIJ.Partij,Klant:DOM.VKP.VanHoeckeKlant,&Customer:AXBizTalk.Customer]]></FormalSpec>
 <Private>1</Private>
 <Implementation><![CDATA[
 	Set Formatter = ##class(AX.common.impl.Formatter).%New()
 	
-	Set Customer.Klantnummer = Partij.GeefID()
-	Set Customer.Naam = Formatter.FormatPartyName(Partij,160)
-	Set Customer.Toenaam = $Extract(Partij.GeefToenaam(),1,50)
-	If $$$HasLength(Partij.GeefTelefoon1()) {
-		Set Customer.Telefoon = Partij.GeefTelefoon1()
-	} ElseIf $$$HasLength(Partij.GeefTelefoon2()){
-		Set Customer.Telefoon = Partij.GeefTelefoon2()
+	Set ..Customer.Klantnummer = ..Partij.GeefID()
+	Set ..Customer.Naam = Formatter.FormatPartyName(..Partij,160)
+	Set ..Customer.Toenaam = $Extract(..Partij.GeefToenaam(),1,50)
+	If $$$HasLength(..Partij.GeefTelefoon1()) {
+		Set ..Customer.Telefoon = ..Partij.GeefTelefoon1()
+	} ElseIf $$$HasLength(..Partij.GeefTelefoon2()){
+		Set ..Customer.Telefoon = ..Partij.GeefTelefoon2()
 	}
-	Set Customer.Fax = Partij.GeefTelefax()
-	Set Customer.VerkortNummer = Partij.GeefVerkortNummer()
-	Set Customer.Email = Partij.GeefEmail()
+	Set ..Customer.Fax = ..Partij.GeefTelefax()
+	Set ..Customer.VerkortNummer = ..Partij.GeefVerkortNummer()
+	Set ..Customer.Email = ..Partij.GeefEmail()
 ]]></Implementation>
 </Method>
 
 <Method name="ConvertAlgemeneSegmentering">
-<FormalSpec><![CDATA[Partij:DOM.PARTIJ.Partij,Klant:DOM.VKP.VanHoeckeKlant,&Customer:AXBizTalk.Customer]]></FormalSpec>
 <Private>1</Private>
 <Implementation><![CDATA[
-	Set Customer.RelatieType = "3"
-	Set Customer.BIDIMedewerker = Klant.GeefInterneVerantwoordelijke()
-	If Partij.GeefActiefStatus() = "" {
-		Set Customer.Status = "1"
+	Set ..Customer.RelatieType = "3"
+	Set ..Customer.BIDIMedewerker = ..Klant.GeefInterneVerantwoordelijke()
+	If ..Partij.GeefActiefStatus() = "" {
+		Set ..Customer.Status = "1"
 	} Else {
-		Set Customer.Status = "0"
+		Set ..Customer.Status = "0"
 	}
 ]]></Implementation>
 </Method>
+
+<Method name="ConvertAdminSegmentering">
+<Private>1</Private>
+</Method>
 </Class>