Index: vhUnitTest/AXimpl/Dynamics/CustomerIn/Converter/CustomerInConverter/Test.cls.xml
===================================================================
diff -u -r50242 -r50540
--- vhUnitTest/AXimpl/Dynamics/CustomerIn/Converter/CustomerInConverter/Test.cls.xml	(.../Test.cls.xml)	(revision 50242)
+++ vhUnitTest/AXimpl/Dynamics/CustomerIn/Converter/CustomerInConverter/Test.cls.xml	(.../Test.cls.xml)	(revision 50540)
@@ -48,11 +48,12 @@
 	Do ..PartijApiMock.VerwachtMethodCall("GeefPartij","K||1111").DanReturn(PartijMock)
 	
 	#Dim KlantMock as vhTest.Mock.DOM.VKP.VanHoeckeKlant = ..GeefKlant()
-	DO ..VerkoopApiMock.VerwachtMethodCall("GeefKlant","K||1111").DanReturn(KlantMock)
+	Do ..VerkoopApiMock.VerwachtMethodCall("GeefKlant","K||1111").DanReturn(KlantMock)
 
 	Do ..VerwachtZetNawGegevens(PartijMock, ..GeefAdres())
 	Do ..VerwachtZetKlantgegevens(KlantMock)
 	Do KlantMock.VerwachtMethodCall("ZetBusinessType","B2C").DanDoeNiks()
+	Do KlantMock.VerwachtMethodCall("ZetFacturatieWijze","Incl").DanDoeNiks()
 	
 	Do ..LeverAdresUtilsMock.IndienMethodCall("MaakPrimairAdres",KlantMock,$$$True).DanReturn(..GeefAdres())
 	
@@ -79,11 +80,12 @@
 	Do ..PartijApiMock.VerwachtMethodCall("GeefPartij","K||1111").DanReturn(PartijMock)
 	
 	#Dim KlantMock as vhTest.Mock.DOM.VKP.VanHoeckeKlant = ..GeefKlant()
-	DO ..VerkoopApiMock.VerwachtMethodCall("GeefKlant","K||1111").DanReturn(KlantMock)
+	Do ..VerkoopApiMock.VerwachtMethodCall("GeefKlant","K||1111").DanReturn(KlantMock)
 
 	Do ..VerwachtZetNawGegevens(PartijMock, ..GeefAdres())
 	Do ..VerwachtZetKlantgegevens(KlantMock)
-	Do KlantMock.VerwachtMethodCall("ZetBusinessType","B2B").DanDoeNiks()
+	Do KlantMock.VerwachtMethodCall("ZetBusinessType","B2C").DanDoeNiks()
+	Do KlantMock.VerwachtMethodCall("ZetFacturatieWijze","Excl").DanDoeNiks()
 	
 	Do ..LeverAdresUtilsMock.IndienMethodCall("MaakPrimairAdres",KlantMock,$$$True).DanReturn(..GeefAdres())
 	
@@ -113,11 +115,12 @@
 	Do ..PartijApiMock.VerwachtMethodCall("GeefPartij","K||1111").DanReturn(PartijMock)
 	
 	#Dim KlantMock as vhTest.Mock.DOM.VKP.VanHoeckeKlant = ..GeefKlant()
-	DO ..VerkoopApiMock.VerwachtMethodCall("GeefKlant","K||1111").DanReturn(KlantMock)
+	Do ..VerkoopApiMock.VerwachtMethodCall("GeefKlant","K||1111").DanReturn(KlantMock)
 
 	Do ..VerwachtZetNawGegevensIndienGeenHoofdadres(PartijMock, ..GeefLeegAdres())
 	Do ..VerwachtZetKlantgegevens(KlantMock)
 	Do KlantMock.VerwachtMethodCall("ZetBusinessType","B2C").DanDoeNiks()
+	Do KlantMock.VerwachtMethodCall("ZetFacturatieWijze","Incl").DanDoeNiks()
 	
 	#dim LandMock As vhTest.Mock.DOM.common.Land = ##class(vhTest.Mock.DOM.common.Land).%New()
 	Do LandMock.IndienMethodCall("GeefCode").DanReturn("BE")
@@ -151,6 +154,7 @@
 	Do ..VerwachtZetNawGegevens(PartijMock, Adres)
 	Do ..VerwachtZetKlantgegevens(KlantMock)
 	Do KlantMock.VerwachtMethodCall("ZetBusinessType","B2C").DanDoeNiks()
+	Do KlantMock.VerwachtMethodCall("ZetFacturatieWijze","Incl").DanDoeNiks()
 	
 	Do ..LeverAdresUtilsMock.IndienMethodCall("MaakPrimairAdres",KlantMock,$$$True).DanReturn(..GeefAdres())
 	
@@ -265,6 +269,7 @@
 <FormalSpec>KlantMock:vhTest.Mock.DOM.VKP.VanHoeckeKlant</FormalSpec>
 <Private>1</Private>
 <Implementation><![CDATA[
+	Do KlantMock.IndienMethodCall("GeefKlantIndexKKL").DanReturn("TESTKLANTVANHOECKENV 1000")
 	Do KlantMock.VerwachtMethodCall("ZetHandelsregisterNr","159753").DanDoeNiks()
 	Do KlantMock.VerwachtMethodCall("ZetBTWRegime","0").DanDoeNiks()
 	Do KlantMock.VerwachtMethodCall("ZetBetalingwijze","Rembours").DanDoeNiks()
@@ -297,13 +302,15 @@
 	#dim LeverAdres As DOM.VKP.LeverAdres = ..GeefAdres()
 	
 	DO ..VerkoopApiMock.VerwachtMethodCall("GeefKlant","K||1111").DanReturn(KlantMock)
+	Do KlantMock.IndienMethodCall("GeefKlantIndexKKL").DanReturn("TESTKLANTVANHOECKENV 1000")
 	Do KlantMock.VerwachtMethodCall("ZetHandelsregisterNr","159753").DanDoeNiks()
 	Do KlantMock.VerwachtMethodCall("ZetBTWRegime","0").DanDoeNiks()
 	Do KlantMock.VerwachtMethodCall("ZetBetalingwijze","Rembours").DanDoeNiks()
 	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("ZetFacturatieWijze","Incl").DanDoeNiks()
 	Do KlantMock.VerwachtMethodCall("Save").DanDoeNiks()
 ]]></Implementation>
 </Method>
Index: vhTest/Mock/DOM/VKP/VanHoeckeKlant.cls.xml
===================================================================
diff -u -r50171 -r50540
--- vhTest/Mock/DOM/VKP/VanHoeckeKlant.cls.xml	(.../VanHoeckeKlant.cls.xml)	(revision 50171)
+++ vhTest/Mock/DOM/VKP/VanHoeckeKlant.cls.xml	(.../VanHoeckeKlant.cls.xml)	(revision 50540)
@@ -183,6 +183,12 @@
 ]]></Implementation>
 </Method>
 
+<Method name="GeefKlantIndexKKL">
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[	quit ..VerwerkMethodCall("GeefKlantIndexKKL")
+]]></Implementation>
+</Method>
+
 <Method name="GeefKlantOrderInstellingen">
 <ReturnType>DOM.VKP.KlantOrderInstellingen</ReturnType>
 <Implementation><![CDATA[	quit ..VerwerkMethodCall("GeefKlantOrderInstellingen")
Index: AXimpl/Dynamics/CustomerIn/Converter/CustomerInConverter.cls.xml
===================================================================
diff -u -r50242 -r50540
--- AXimpl/Dynamics/CustomerIn/Converter/CustomerInConverter.cls.xml	(.../CustomerInConverter.cls.xml)	(revision 50242)
+++ AXimpl/Dynamics/CustomerIn/Converter/CustomerInConverter.cls.xml	(.../CustomerInConverter.cls.xml)	(revision 50540)
@@ -8,6 +8,11 @@
 <Private>1</Private>
 </Property>
 
+<Property name="LegacyPartijApi">
+<Type>DOM.PARTIJ.LegacyPartijAPI</Type>
+<Private>1</Private>
+</Property>
+
 <Property name="PartijApi">
 <Type>DOM.PARTIJ.PartijAPI</Type>
 <Private>1</Private>
@@ -39,7 +44,7 @@
 </Property>
 
 <Method name="%OnNew">
-<FormalSpec>PartijApi:DOM.PARTIJ.PartijAPI,VerkoopApi:DOM.VKP.VerkoopAPI,KlantLevenCyclusService:APPS.KlantBeheer.KlantLevenCyclusService,LandRepository:DOM.common.Locatie.impl.LandRepository,LeverAdresUtils:AXimpl.Dynamics.CustomerIn.Converter.LeverAdresUtils,Logger:vhLib.Logger</FormalSpec>
+<FormalSpec>PartijApi:DOM.PARTIJ.PartijAPI,VerkoopApi:DOM.VKP.VerkoopAPI,KlantLevenCyclusService:APPS.KlantBeheer.KlantLevenCyclusService,LandRepository:DOM.common.Locatie.impl.LandRepository,LeverAdresUtils:AXimpl.Dynamics.CustomerIn.Converter.LeverAdresUtils,Logger:vhLib.Logger,LegacyPartijApi:DOM.PARTIJ.LegacyPartijAPI</FormalSpec>
 <Private>1</Private>
 <ProcedureBlock>1</ProcedureBlock>
 <ReturnType>%Status</ReturnType>
@@ -52,6 +57,7 @@
 	Set ..LandRepository  = $$$Inject(LandRepository,##class(DOM.common.Locatie.impl.LandRepository).%New())
 	Set ..LeverAdresUtils = $$$Inject(LeverAdresUtils,##class(AXimpl.Dynamics.CustomerIn.Converter.LeverAdresUtils).%New())
 	Set ..Logger = $$$Inject(Logger,##class(vhLib.Logger).%New())
+	Set ..LegacyPartijApi = $$$Inject(LegacyPartijApi, ##class(DOM.PARTIJ.impl.LegacyPartijAPI).%New())
 	Quit $$$OK
 ]]></Implementation>
 </Method>
@@ -93,6 +99,7 @@
 	
 	Do ..ZetGemeenschappelijkeKlantProperties(.Klant, Cust)
 	Do Klant.Save()
+	Do ..ForceerFacturatieWijzeOndanksCRMeventInKlantSave(KlantId, Klant.GeefKlantIndexKKL(), Cust.InclTax)
 	
 	Do ..LeverAdresUtils.ZetLeverAdressen(Klant, Cust)
 ]]></Implementation>
@@ -127,6 +134,7 @@
 	#Dim Klant as DOM.VKP.VanHoeckeKlant = ..VerkoopApi.GeefKlant(PartijID)	
 	Do ..ZetGemeenschappelijkeKlantProperties(.Klant, Cust)
 	Do Klant.Save()
+	Do ..ForceerFacturatieWijzeOndanksCRMeventInKlantSave(PartijID, Klant.GeefKlantIndexKKL(), Cust.InclTax)
 	
 	Do ..LeverAdresUtils.ZetLeverAdressen(Klant, Cust)
 ]]></Implementation>
@@ -242,13 +250,31 @@
 <Implementation><![CDATA[
 	Do Klant.ZetHandelsregisterNr(Cust.TaxRegistrationNumber)
 	Do Klant.ZetActiviteit($$$If(Cust.IsConsumer="Yes",##class(DOM.VKP.enu.KlantActiviteit).Consument(),##class(DOM.VKP.enu.KlantActiviteit).Onbepaald()))
-	Do Klant.ZetBusinessType($$$If(Cust.InclTax="Yes",##class(DOM.VKP.enu.BusinessType).B2C(),##class(DOM.VKP.enu.BusinessType).B2B()))
+	Do Klant.ZetBusinessType($$$If(Cust.IsConsumer="Yes",##class(DOM.VKP.enu.BusinessType).B2C(),##class(DOM.VKP.enu.BusinessType).B2B()))
+	Do Klant.ZetFacturatieWijze($$$If(Cust.InclTax="Yes",##class(DOM.VKP.enu.FacturatieWijze).Incl(),##class(DOM.VKP.enu.FacturatieWijze).Excl()))
 	Do Klant.ZetBTWRegime(..AxToAdminUtils.ConvertTaxGroupToBTWRegime(Cust.TaxGroup))
 	Do Klant.ZetRegio(..AxToAdminUtils.ConvertCustClassificationIdToRegio(Cust.CustClassificationId))
 	Do ..VerwerkPaymTermId(.Klant, Cust.PaymTermId)
 ]]></Implementation>
 </Method>
 
+<Method name="ForceerFacturatieWijzeOndanksCRMeventInKlantSave">
+<FormalSpec>KlantId:%String,KlantIndexKKL:%String,InclTax:%String</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	#dim KlantNummer As %Integer = ..LegacyPartijApi.GeefKlantNummerVoorPartijID(KlantId)
+	If (InclTax = "Yes") {
+		Set $Piece(^KKL(KlantIndexKKL,0),"\",55) = "Incl"
+		Set $Piece(^DKL("K","KL.A",KlantNummer,0),"\",55) = "Incl"
+	} Else {
+		Set $Piece(^KKL(KlantIndexKKL,0),"\",55) = "Excl"
+		Set $Piece(^DKL("K","KL.A",KlantNummer,0),"\",55) = "Excl"
+	}
+	
+	Quit
+]]></Implementation>
+</Method>
+
 <Method name="VerwerkPaymTermId">
 <FormalSpec><![CDATA[&Klant:DOM.VKP.VanHoeckeKlant,PaymTermId:%String]]></FormalSpec>
 <Private>1</Private>