Index: vhUnitTest/APPS/EDI/Bestel/impl/BestelService/PlaatsBestelling/AanvraagHeaderBepaler/Test.cls.xml
===================================================================
diff -u -r58339 -r58754
--- vhUnitTest/APPS/EDI/Bestel/impl/BestelService/PlaatsBestelling/AanvraagHeaderBepaler/Test.cls.xml	(.../Test.cls.xml)	(revision 58339)
+++ vhUnitTest/APPS/EDI/Bestel/impl/BestelService/PlaatsBestelling/AanvraagHeaderBepaler/Test.cls.xml	(.../Test.cls.xml)	(revision 58754)
@@ -108,6 +108,21 @@
 ]]></Implementation>
 </Method>
 
+<Method name="Test VanDiessen">
+<Implementation><![CDATA[
+	#dim BestandVolledigeNaam As %String = "vandiessen_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||2595")
+	Do $$$AssertEquals(AanvraagHeader.PersonalityID,"1")
+]]></Implementation>
+</Method>
+
 <Method name="Test willekeurige bestandsnaam">
 <Implementation><![CDATA[
 	#dim BestandVolledigeNaam As %String = $$$DummyString
Index: APPS/EDI/Bestel/impl/BestelService/PlaatsBestelling/AanvraagHeaderBepaler.cls.xml
===================================================================
diff -u -r58339 -r58754
--- APPS/EDI/Bestel/impl/BestelService/PlaatsBestelling/AanvraagHeaderBepaler.cls.xml	(.../AanvraagHeaderBepaler.cls.xml)	(revision 58339)
+++ APPS/EDI/Bestel/impl/BestelService/PlaatsBestelling/AanvraagHeaderBepaler.cls.xml	(.../AanvraagHeaderBepaler.cls.xml)	(revision 58754)
@@ -53,6 +53,11 @@
 		Set Header.KlantID = ##class(DOM.VKP.enu.Klant).VanOlst()
 		Set Header.GebruikerID = "4682||1000"
 		Set Header.PersonalityID = ##class(DOM.common.enu.Personality).VanHoecke()
+	} ElseIf (##class(TECH.StringUtils).StartsWith(##class(TECH.File).GeefBestandsnaam(BestandVolledigeNaam),"vandiessen_nl")) {
+		Set Header.Taal = ##class(DOM.enu.Taal).Nederlands()
+		Set Header.KlantID = ##class(DOM.VKP.enu.Klant).VanDiessen()
+		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_"'.")
 	}