Index: vhUnitTest/AXimpl/Dynamics/CustomerIn/Converter/CustomerInConverter/Test.cls.xml
===================================================================
diff -u -r50233 -r50242
--- vhUnitTest/AXimpl/Dynamics/CustomerIn/Converter/CustomerInConverter/Test.cls.xml	(.../Test.cls.xml)	(revision 50233)
+++ vhUnitTest/AXimpl/Dynamics/CustomerIn/Converter/CustomerInConverter/Test.cls.xml	(.../Test.cls.xml)	(revision 50242)
@@ -52,7 +52,7 @@
 
 	Do ..VerwachtZetNawGegevens(PartijMock, ..GeefAdres())
 	Do ..VerwachtZetKlantgegevens(KlantMock)
-	Do KlantMock.VerwachtMethodCall("ZetFacturatieWijze","Excl").DanDoeNiks()
+	Do KlantMock.VerwachtMethodCall("ZetBusinessType","B2C").DanDoeNiks()
 	
 	Do ..LeverAdresUtilsMock.IndienMethodCall("MaakPrimairAdres",KlantMock,$$$True).DanReturn(..GeefAdres())
 	
@@ -72,7 +72,7 @@
 ]]></Implementation>
 </Method>
 
-<Method name="Test: Standaard gedrag Bij update van bestaande klant indien InclTax Yes is">
+<Method name="Test: Standaard gedrag Bij update van bestaande klant indien InclTax No is">
 <Implementation><![CDATA[
 	Do ..VerkoopApiMock.VerwachtMethodCall("BestaatKlant","K||1111").DanReturn($$$True)
 	#Dim PartijMock as vhTest.Mock.DOM.PARTIJ.Partij = ..GeefPartij()
@@ -83,7 +83,7 @@
 
 	Do ..VerwachtZetNawGegevens(PartijMock, ..GeefAdres())
 	Do ..VerwachtZetKlantgegevens(KlantMock)
-	Do KlantMock.VerwachtMethodCall("ZetFacturatieWijze","Incl").DanDoeNiks()
+	Do KlantMock.VerwachtMethodCall("ZetBusinessType","B2B").DanDoeNiks()
 	
 	Do ..LeverAdresUtilsMock.IndienMethodCall("MaakPrimairAdres",KlantMock,$$$True).DanReturn(..GeefAdres())
 	
@@ -96,7 +96,7 @@
 	
 	
 	#dim Cust As AXif.Dynamics.CustomerIn.MessageParts.AxdEntityCust = ..GeefCust("01111","Klant1 BV BVBA")
-	Set Cust.InclTax = "Yes"
+	Set Cust.InclTax = "No"
 	Do ..GeefConverter().Convert(Cust)
 
 	Do ..PartijApiMock.Verifieer()
@@ -117,7 +117,7 @@
 
 	Do ..VerwachtZetNawGegevensIndienGeenHoofdadres(PartijMock, ..GeefLeegAdres())
 	Do ..VerwachtZetKlantgegevens(KlantMock)
-	Do KlantMock.VerwachtMethodCall("ZetFacturatieWijze","Excl").DanDoeNiks()
+	Do KlantMock.VerwachtMethodCall("ZetBusinessType","B2C").DanDoeNiks()
 	
 	#dim LandMock As vhTest.Mock.DOM.common.Land = ##class(vhTest.Mock.DOM.common.Land).%New()
 	Do LandMock.IndienMethodCall("GeefCode").DanReturn("BE")
@@ -150,7 +150,7 @@
 
 	Do ..VerwachtZetNawGegevens(PartijMock, Adres)
 	Do ..VerwachtZetKlantgegevens(KlantMock)
-	Do KlantMock.VerwachtMethodCall("ZetFacturatieWijze","Excl").DanDoeNiks()
+	Do KlantMock.VerwachtMethodCall("ZetBusinessType","B2C").DanDoeNiks()
 	
 	Do ..LeverAdresUtilsMock.IndienMethodCall("MaakPrimairAdres",KlantMock,$$$True).DanReturn(..GeefAdres())
 	
@@ -176,7 +176,6 @@
 <Method name="Test: Standaard gedrag bij creatie nieuwe klant">
 <Implementation><![CDATA[
 	#Dim KlantMock as vhTest.Mock.DOM.VKP.VanHoeckeKlant = ..GeefKlant()
-	Do KlantMock.VerwachtMethodCall("ZetFacturatieWijze","Excl").DanDoeNiks()
 	Do ..VerwachtMaakKlant(KlantMock)
 	
 	#dim LandMock As vhTest.Mock.DOM.common.Land = ##class(vhTest.Mock.DOM.common.Land).%New()
@@ -197,7 +196,6 @@
 <Method name="Test: Standaard gedrag bij creatie nieuwe klant indien InclTax Yes is">
 <Implementation><![CDATA[
 	#Dim KlantMock as vhTest.Mock.DOM.VKP.VanHoeckeKlant = ..GeefKlant()
-	Do KlantMock.VerwachtMethodCall("ZetFacturatieWijze","Incl").DanDoeNiks()
 	Do ..VerwachtMaakKlant(KlantMock)
 	
 	#dim LandMock As vhTest.Mock.DOM.common.Land = ##class(vhTest.Mock.DOM.common.Land).%New()
@@ -273,7 +271,6 @@
 	Do KlantMock.VerwachtMethodCall("ZetBetalingTermijn","").DanDoeNiks()
 	Do KlantMock.VerwachtMethodCall("ZetRegio","41").DanDoeNiks()
 	Do KlantMock.VerwachtMethodCall("ZetActiviteit","Consument").DanDoeNiks()
-	Do KlantMock.VerwachtMethodCall("ZetBusinessType","B2C").DanDoeNiks()
 	Do KlantMock.VerwachtMethodCall("Save").DanDoeNiks()
 ]]></Implementation>
 </Method>
@@ -390,7 +387,7 @@
     Set Cust.PriceException = "No"
 	Set Cust.VATNum = "0430.459.769"
 	Set Cust.TaxRegistrationNumber = "159753"
-	Set Cust.InclTax = "No"
+	Set Cust.InclTax = "Yes"
 	Set Cust.TaxGroup = "BUNIT"
 	Set Cust.PaymTermId = "REMBOURS"
 	Set Cust.CustClassificationId = "R41"