Index: AXimpl/BizTalkMessage/Converter/CustomerConverter.cls.xml
===================================================================
diff -u -r38440 -r38441
--- AXimpl/BizTalkMessage/Converter/CustomerConverter.cls.xml	(.../CustomerConverter.cls.xml)	(revision 38440)
+++ AXimpl/BizTalkMessage/Converter/CustomerConverter.cls.xml	(.../CustomerConverter.cls.xml)	(revision 38441)
@@ -203,6 +203,7 @@
 	Set ..Customer.FacturatieFrequentie = $$$If(..Klant.GeefFacturatieFrequentie()="","D",$$$Replace(..Klant.GeefFacturatieFrequentie(),";","-"))
 	#dim KortingContant As %String = ..Formatter.FormatCashDiscount(..Klant.GeefKortingContantPercentage(),..Klant.GeefKortingContantTermijn())
 	Set ..Customer.KortingContant = $$$If(KortingContant="","0",KortingContant)
+	Set ..Customer.FactuurVerzendingVia = $$$If(..Klant.HeeftFactuurVerzendingViaMail(),"E","P")
 ]]></Implementation>
 </Method>
 
Index: AX/Uitgaand/VKP/VanHoeckeKlant/impl/DixfGenerator.cls.xml
===================================================================
diff -u -r38324 -r38441
--- AX/Uitgaand/VKP/VanHoeckeKlant/impl/DixfGenerator.cls.xml	(.../DixfGenerator.cls.xml)	(revision 38324)
+++ AX/Uitgaand/VKP/VanHoeckeKlant/impl/DixfGenerator.cls.xml	(.../DixfGenerator.cls.xml)	(revision 38441)
@@ -70,6 +70,7 @@
 	Do Headers.InsertKeyValue("AXBizTalk.Crm.Customer.Customer", "Leverstop")
 	Do Headers.InsertKeyValue("AXBizTalk.Crm.Customer.Customer", "LeverstopMotivatie")
 	Do Headers.InsertKeyValue("AXBizTalk.Crm.Customer.Customer", "IncassoProcedure")
+	Do Headers.InsertKeyValue("AXBizTalk.Crm.Customer.Customer", "FactuurVerzendingVia")
 		
 	#dim AXKlantData As APPS.common.Rapport.dto.BestandRapportDataObjectIteratorBased	
 	Set AXKlantData = ##class(APPS.common.Rapport.dto.BestandRapportDataObjectIteratorBased).%New()
Index: vhUnitTest/AXimpl/BizTalkMessage/Converter/CustomerConverter/Convert/Test.cls.xml
===================================================================
diff -u -r38440 -r38441
--- vhUnitTest/AXimpl/BizTalkMessage/Converter/CustomerConverter/Convert/Test.cls.xml	(.../Test.cls.xml)	(revision 38440)
+++ vhUnitTest/AXimpl/BizTalkMessage/Converter/CustomerConverter/Convert/Test.cls.xml	(.../Test.cls.xml)	(revision 38441)
@@ -64,6 +64,7 @@
 	Do ..Klant.IndienMethodCall("GeefOpmerking7").DanReturn("Opmerking7")
 	Do ..Klant.IndienMethodCall("GeefOpmerking8").DanReturn("Opmerking8")
 	Do ..Klant.IndienMethodCall("GeefOpmerking9").DanReturn("Opmerking9")
+	Do ..Klant.IndienMethodCall("HeeftFactuurVerzendingViaMail").DanReturn($$$False)	
 	
 	Do ..Partij.IndienMethodCall("GeefActiefStatus").DanReturn("")
 ]]></Implementation>
@@ -401,6 +402,26 @@
 ]]></Implementation>
 </Method>
 
+<Method name="Test: FacturatieVerzendenPer wordt &apos;E&apos; indien HeeftFactuurVerzendingViaMail true is">
+<Implementation><![CDATA[
+	Do ..Klant.IndienMethodCall("HeeftFactuurVerzendingViaMail").DanReturn($$$True)
+	
+	#dim GeconverteerdeKlant As AXBizTalk.Crm.Customer.Customer = ..GeefCustomer(..Klant.GeefID())
+	
+	Do $$$AssertEquals(GeconverteerdeKlant.FactuurVerzendingVia,"E")
+]]></Implementation>
+</Method>
+
+<Method name="Test: FacturatieVerzendenPer wordt &apos;P&apos; indien HeeftFactuurVerzendingViaMail false is">
+<Implementation><![CDATA[
+	Do ..Klant.IndienMethodCall("HeeftFactuurVerzendingViaMail").DanReturn($$$False)
+	
+	#dim GeconverteerdeKlant As AXBizTalk.Crm.Customer.Customer = ..GeefCustomer(..Klant.GeefID())
+	
+	Do $$$AssertEquals(GeconverteerdeKlant.FactuurVerzendingVia,"P")
+]]></Implementation>
+</Method>
+
 <Method name="GeefCustomer">
 <FormalSpec>KlantId:%String</FormalSpec>
 <ReturnType>AXBizTalk.Crm.Customer.Customer</ReturnType>
Index: AXBizTalk/Crm/Customer/Customer.cls.xml
===================================================================
diff -u -r38321 -r38441
--- AXBizTalk/Crm/Customer/Customer.cls.xml	(.../Customer.cls.xml)	(revision 38321)
+++ AXBizTalk/Crm/Customer/Customer.cls.xml	(.../Customer.cls.xml)	(revision 38441)
@@ -221,6 +221,10 @@
 <Type>%String</Type>
 </Property>
 
+<Property name="FactuurVerzendingVia">
+<Type>%String</Type>
+</Property>
+
 <Storage name="Default">
 <Type>%Library.CacheSerialState</Type>
 <State>CustomerState</State>
@@ -406,6 +410,12 @@
 <Value name="60">
 <Value>IncassoProcedure</Value>
 </Value>
+<Value name="61">
+<Value>FacturatieVerzendenPer</Value>
+</Value>
+<Value name="62">
+<Value>FactuurVerzendingVia</Value>
+</Value>
 </Data>
 </Storage>
 </Class>