Index: AXimpl/BizTalkMessage/Converter/CustomerConverter.cls.xml
===================================================================
diff -u -r37789 -r37804
--- AXimpl/BizTalkMessage/Converter/CustomerConverter.cls.xml	(.../CustomerConverter.cls.xml)	(revision 37789)
+++ AXimpl/BizTalkMessage/Converter/CustomerConverter.cls.xml	(.../CustomerConverter.cls.xml)	(revision 37804)
@@ -45,9 +45,25 @@
 	Set Customer.VerkortNummer = Partij.GeefVerkortNummer()
 	Set Customer.Email = Partij.GeefEmail()
 	
+	Do ..ConvertAdminSegmentering(Partij, Klant, Customer)
+	
 	Quit Customer
 ]]></Implementation>
 </Method>
+
+<Method name="ConvertAdminSegmentering">
+<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"
+	} Else {
+		Set Customer.Status = "0"
+	}
+]]></Implementation>
+</Method>
 </Class>