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>