Index: vhUnitTest/AXimpl/BizTalkMessage/Converter/CustomerConverter/Convert/Test.cls.xml
===================================================================
diff -u -r37789 -r37804
--- vhUnitTest/AXimpl/BizTalkMessage/Converter/CustomerConverter/Convert/Test.cls.xml	(.../Test.cls.xml)	(revision 37789)
+++ vhUnitTest/AXimpl/BizTalkMessage/Converter/CustomerConverter/Convert/Test.cls.xml	(.../Test.cls.xml)	(revision 37804)
@@ -36,6 +36,9 @@
 	
 	Set ..VerkoopAPI = ##class(vhTest.Mock.DOM.VKP.VerkoopAPI).%New()
 	Do ..VerkoopAPI.IndienMethodCall("GeefKlant",$$$ElkeWaarde).DanReturn(..Klant)
+	
+	Do ..Klant.IndienMethodCall("GeefInterneVerantwoordelijke").DanReturn("Verantwoordelijke")
+	Do ..Partij.IndienMethodCall("GeefActiefStatus").DanReturn("")
 ]]></Implementation>
 </Method>
 
@@ -57,6 +60,8 @@
 	Do $$$AssertEquals(GeconverteerdeKlant.Fax,"eenFaxNummer")
 	Do $$$AssertEquals(GeconverteerdeKlant.VerkortNummer,"7001")
 	Do $$$AssertEquals(GeconverteerdeKlant.Email,"info@example.com")
+	
+	Do $$$AssertEquals(GeconverteerdeKlant.BIDIMedewerker,"Verantwoordelijke")
 ]]></Implementation>
 </Method>
 
@@ -85,6 +90,52 @@
 	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.Customer = Converter.Convert(..Klant.GeefID())
+	
+	Do $$$AssertEquals(GeconverteerdeKlant.RelatieType,"3")
+]]></Implementation>
+</Method>
+
+<Method name="Test: actief status leeg -&gt; result = 1">
+<Implementation><![CDATA[
+	Do ..Partij.IndienMethodCall("GeefActiefStatus").DanReturn("")
+	
+	Set Converter = ##class(AXimpl.BizTalkMessage.Converter.CustomerConverter).%New(..PartijAPI, ..VerkoopAPI)
+	
+	#dim GeconverteerdeKlant As AXBizTalk.Customer = Converter.Convert(..Klant.GeefID())
+	
+	Do $$$AssertEquals(GeconverteerdeKlant.Status,"1")
+]]></Implementation>
+</Method>
+
+<Method name="Test: actief status &apos;1&apos; -&gt; result = 0">
+<Implementation><![CDATA[
+	Do ..Partij.IndienMethodCall("GeefActiefStatus").DanReturn("1")
+	
+	Set Converter = ##class(AXimpl.BizTalkMessage.Converter.CustomerConverter).%New(..PartijAPI, ..VerkoopAPI)
+	
+	#dim GeconverteerdeKlant As AXBizTalk.Customer = Converter.Convert(..Klant.GeefID())
+	
+	Do $$$AssertEquals(GeconverteerdeKlant.Status,"0")
+]]></Implementation>
+</Method>
+
+<Method name="Test: actief status &apos;2&apos; -&gt; result = 0">
+<Implementation><![CDATA[
+	Do ..Partij.IndienMethodCall("GeefActiefStatus").DanReturn("1")
+	
+	Set Converter = ##class(AXimpl.BizTalkMessage.Converter.CustomerConverter).%New(..PartijAPI, ..VerkoopAPI)
+	
+	#dim GeconverteerdeKlant As AXBizTalk.Customer = Converter.Convert(..Klant.GeefID())
+	
+	Do $$$AssertEquals(GeconverteerdeKlant.Status,"0")
+]]></Implementation>
+</Method>
 </Class>
 
 
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>
 
 
Index: AXBizTalk/Customer.cls.xml
===================================================================
diff -u -r37789 -r37804
--- AXBizTalk/Customer.cls.xml	(.../Customer.cls.xml)	(revision 37789)
+++ AXBizTalk/Customer.cls.xml	(.../Customer.cls.xml)	(revision 37804)
@@ -38,6 +38,19 @@
 <Parameter name="MAXLEN" value="100"/>
 </Property>
 
+<Property name="RelatieType">
+<Type>%String</Type>
+</Property>
+
+<Property name="BIDIMedewerker">
+<Type>%String</Type>
+<Parameter name="MAXLEN" value="200"/>
+</Property>
+
+<Property name="Status">
+<Type>%String</Type>
+</Property>
+
 <Storage name="Default">
 <Type>%Library.CacheSerialState</Type>
 <State>CustomerState</State>
@@ -64,6 +77,15 @@
 <Value name="7">
 <Value>Email</Value>
 </Value>
+<Value name="8">
+<Value>RelatieType</Value>
+</Value>
+<Value name="9">
+<Value>BIDIMedewerker</Value>
+</Value>
+<Value name="10">
+<Value>Status</Value>
+</Value>
 </Data>
 </Storage>
 </Class>