Index: APPS/EDI/Bestel/impl/BestelService/PlaatsBestelling/AanvraagHeaderBepaler.cls.xml
===================================================================
diff -u -r57962 -r58339
--- APPS/EDI/Bestel/impl/BestelService/PlaatsBestelling/AanvraagHeaderBepaler.cls.xml	(.../AanvraagHeaderBepaler.cls.xml)	(revision 57962)
+++ APPS/EDI/Bestel/impl/BestelService/PlaatsBestelling/AanvraagHeaderBepaler.cls.xml	(.../AanvraagHeaderBepaler.cls.xml)	(revision 58339)
@@ -48,7 +48,12 @@
 		Set Header.KlantID = ##class(DOM.VKP.enu.SfsKlant).Herzog()
 		Set Header.GebruikerID = ##class(DOM.VKP.enu.SfsKlant).Herzog()_"_1000"
 		Set Header.PersonalityID = ##class(DOM.common.enu.Personality).SFS()
-	}Else {
+	} ElseIf (##class(TECH.StringUtils).StartsWith(##class(TECH.File).GeefBestandsnaam(BestandVolledigeNaam),"VanOlst_nl")) {
+		Set Header.Taal = ##class(DOM.enu.Taal).Nederlands()
+		Set Header.KlantID = ##class(DOM.VKP.enu.Klant).VanOlst()
+		Set Header.GebruikerID = "4682||1000"
+		Set Header.PersonalityID = ##class(DOM.common.enu.Personality).VanHoecke()
+	} Else {
 		Do ##class(TECH.Exceptions.InvalidInputException).Throw("BestandVerwerker : ongeldige Bestandnaam '"_BestandVolledigeNaam_"'.")
 	}
 	Quit Header
Index: vhUnitTest/APPS/EDI/Bestel/impl/BestelService/PlaatsBestelling/AanvraagHeaderBepaler/Test.cls.xml
===================================================================
diff -u -r57962 -r58339
--- vhUnitTest/APPS/EDI/Bestel/impl/BestelService/PlaatsBestelling/AanvraagHeaderBepaler/Test.cls.xml	(.../Test.cls.xml)	(revision 57962)
+++ vhUnitTest/APPS/EDI/Bestel/impl/BestelService/PlaatsBestelling/AanvraagHeaderBepaler/Test.cls.xml	(.../Test.cls.xml)	(revision 58339)
@@ -93,6 +93,21 @@
 ]]></Implementation>
 </Method>
 
+<Method name="Test VanOlst">
+<Implementation><![CDATA[
+	#dim BestandVolledigeNaam As %String = "VanOlst_nlDeRestMaaktNietUit"
+	
+	#dim AanvraagHeader As APPS.EDI.Bestel.impl.BestelService.PlaatsBestelling.AanvraagHeader
+	Set AanvraagHeaderBepaler = ##class(APPS.EDI.Bestel.impl.BestelService.PlaatsBestelling.AanvraagHeaderBepaler).%New()
+	Set AanvraagHeader = AanvraagHeaderBepaler.GeefAanvraagHeader(BestandVolledigeNaam)
+	
+	Do $$$AssertEquals(AanvraagHeader.Taal,"N")	
+	Do $$$AssertEquals(AanvraagHeader.GebruikerID,"4682||1000")
+	Do $$$AssertEquals(AanvraagHeader.KlantID,"K||10421")
+	Do $$$AssertEquals(AanvraagHeader.PersonalityID,"1")
+]]></Implementation>
+</Method>
+
 <Method name="Test willekeurige bestandsnaam">
 <Implementation><![CDATA[
 	#dim BestandVolledigeNaam As %String = $$$DummyString