Index: DOM/VKP/enu/Klant/Verwerker.cls.xml
===================================================================
diff -u -r37638 -r38316
--- DOM/VKP/enu/Klant/Verwerker.cls.xml	(.../Verwerker.cls.xml)	(revision 37638)
+++ DOM/VKP/enu/Klant/Verwerker.cls.xml	(.../Verwerker.cls.xml)	(revision 38316)
@@ -12,7 +12,9 @@
 <Final>1</Final>
 <FormalSpec>Klant:DOM.VKP.enu.Klant</FormalSpec>
 <Implementation><![CDATA[
-	If Klant = "K||24755" {
+	If Klant = "K||4943" {
+		Do ..VerwerkBiemarBois()
+	} ElseIf Klant = "K||24755" {
 		Do ..VerwerkBlumPortugal()
 	} ElseIf Klant = "K||11708" {
 		Do ..VerwerkBruynzeel()
@@ -125,6 +127,12 @@
 ]]></Implementation>
 </Method>
 
+<Method name="VerwerkBiemarBois">
+<Abstract>1</Abstract>
+<Private>1</Private>
+<Implementation><![CDATA[]]></Implementation>
+</Method>
+
 <Method name="VerwerkBlumPortugal">
 <Abstract>1</Abstract>
 <Private>1</Private>
Index: DOM/VKP/enu/Klant/AutoComplete.cls.xml
===================================================================
diff -u -r37638 -r38316
--- DOM/VKP/enu/Klant/AutoComplete.cls.xml	(.../AutoComplete.cls.xml)	(revision 37638)
+++ DOM/VKP/enu/Klant/AutoComplete.cls.xml	(.../AutoComplete.cls.xml)	(revision 38316)
@@ -9,6 +9,13 @@
 <ProcedureBlock>1</ProcedureBlock>
 <Super>%SerialObject</Super>
 
+<Property name="BiemarBois">
+<Type>%String</Type>
+<InitialExpression>"K||4943"</InitialExpression>
+<Transient>1</Transient>
+<ReadOnly>1</ReadOnly>
+</Property>
+
 <Property name="BlumPortugal">
 <Type>%String</Type>
 <InitialExpression>"K||24755"</InitialExpression>
Index: BL/EC/Session.cls.xml
===================================================================
diff -u -r29059 -r38316
--- BL/EC/Session.cls.xml	(.../Session.cls.xml)	(revision 29059)
+++ BL/EC/Session.cls.xml	(.../Session.cls.xml)	(revision 38316)
@@ -175,7 +175,8 @@
 	
 	; IntraStat - alleen voor niet Belgen
 	Set Pos=$LF(lbToegang,$$$tgIntraStat)
-	If Pos,('$D(^KFA1("F",KLNr))||($P(^KKL(^KK1(KLNr),0),"\",8)=1019)) $$$ListRemove(lbToegang,Pos) ; Verwijderen intrastat
+	#Dim IsKlantDieSowiesoIntrastatWilt As %Boolean = (##class(DOM.VKP.enu.Klant).BiemarBois() = ##class(DOM.DomeinContext).Instance().GeefLegacyPartijAPI().GeefKlantPartijID(KLNr))
+	If Pos && $$$Not(IsKlantDieSowiesoIntrastatWilt) && ('$D(^KFA1("F",KLNr))||($P(^KKL(^KK1(KLNr),0),"\",8)=1019)) $$$ListRemove(lbToegang,Pos) ; Verwijderen intrastat
 
 	; Opties
  	#dim KlantID As DOM.VKP.VanHoeckeKlantID = ##class(DOM.DomeinContext).Instance().GeefLegacyPartijAPI().GeefKlantPartijID(KLNr)
Index: DOM/VKP/enu/Klant.cls.xml
===================================================================
diff -u -r37638 -r38316
--- DOM/VKP/enu/Klant.cls.xml	(.../Klant.cls.xml)	(revision 37638)
+++ DOM/VKP/enu/Klant.cls.xml	(.../Klant.cls.xml)	(revision 38316)
@@ -7,7 +7,7 @@
 <Super>TECH.Enumeration</Super>
 
 <Parameter name="VALUELIST">
-<Default>,K||1239,K||4682,K||1000,K||11708,K||4875,K||2671,K||6279,K||12130,K||7587,K||9365,K||12486,K||2523,K||1571,K||4451,K||4855,K||4830,K||9366,K||11211,K||12853,K||2999,K||6780,K||7833,K||1523,K||2669,K||6819,K||6820,K||6821,K||18455,K||27132,K||2009,K||23486,K||7606,K||23112,K||9382,K||18417,K||4073,K||1390,K||9197,K||3814,K||1387,K||8869,K||23968,K||11171,K||6261,K||24315,K||25868,K||24755,K||9905,K||10387,K||12983,K||9798,K||3145,K||2265</Default>
+<Default>,K||1239,K||4682,K||1000,K||11708,K||4875,K||2671,K||6279,K||12130,K||7587,K||9365,K||12486,K||2523,K||1571,K||4451,K||4855,K||4830,K||9366,K||11211,K||12853,K||2999,K||6780,K||7833,K||1523,K||2669,K||6819,K||6820,K||6821,K||18455,K||27132,K||2009,K||23486,K||7606,K||23112,K||9382,K||18417,K||4073,K||1390,K||9197,K||3814,K||1387,K||8869,K||23968,K||11171,K||6261,K||24315,K||25868,K||24755,K||9905,K||10387,K||12983,K||9798,K||3145,K||2265,K||4943</Default>
 </Parameter>
 
 <Method name="Keller">
@@ -383,6 +383,13 @@
 ]]></Implementation>
 </Method>
 
+<Method name="BiemarBois">
+<ClassMethod>1</ClassMethod>
+<ReturnType>DOM.VKP.enu.Klant</ReturnType>
+<Implementation><![CDATA[	Quit ..MaakPartijID(4943)
+]]></Implementation>
+</Method>
+
 <Method name="MaakPartijID">
 <ClassMethod>1</ClassMethod>
 <FormalSpec>KlantNummer:%String</FormalSpec>