Index: vhUnitTest/APPS/EDI/Bestel/impl/BestelService/PlaatsBestelling/AanvraagHeaderBepaler/Test.cls.xml
===================================================================
diff -u -r55016 -r57962
--- vhUnitTest/APPS/EDI/Bestel/impl/BestelService/PlaatsBestelling/AanvraagHeaderBepaler/Test.cls.xml	(.../Test.cls.xml)	(revision 55016)
+++ vhUnitTest/APPS/EDI/Bestel/impl/BestelService/PlaatsBestelling/AanvraagHeaderBepaler/Test.cls.xml	(.../Test.cls.xml)	(revision 57962)
@@ -78,6 +78,21 @@
 ]]></Implementation>
 </Method>
 
+<Method name="Test Herzog">
+<Implementation><![CDATA[
+	#dim BestandVolledigeNaam As %String = "c:\temp\Herzog_chDeRestMaaktNietUit"
+	
+	#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,"D")	
+	Do $$$AssertEquals(AanvraagHeader.GebruikerID,##class(DOM.VKP.enu.SfsKlant).Herzog()_"_1000")
+	Do $$$AssertEquals(AanvraagHeader.KlantID,##class(DOM.VKP.enu.SfsKlant).Herzog())
+	Do $$$AssertEquals(AanvraagHeader.PersonalityID,"3")
+]]></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 -r55016 -r57962
--- APPS/EDI/Bestel/impl/BestelService/PlaatsBestelling/AanvraagHeaderBepaler.cls.xml	(.../AanvraagHeaderBepaler.cls.xml)	(revision 55016)
+++ APPS/EDI/Bestel/impl/BestelService/PlaatsBestelling/AanvraagHeaderBepaler.cls.xml	(.../AanvraagHeaderBepaler.cls.xml)	(revision 57962)
@@ -43,7 +43,12 @@
 		Set Header.KlantID = ##class(DOM.VKP.enu.Klant).HeylenJos()
 		Set Header.GebruikerID = "4682||1000"
 		Set Header.PersonalityID = ##class(DOM.common.enu.Personality).VanHoecke()
-	} Else {
+	} ElseIf (##class(TECH.StringUtils).StartsWith(##class(TECH.File).GeefBestandsnaam(BestandVolledigeNaam),"Herzog_ch")) {
+		Set Header.Taal = ##class(DOM.enu.Taal).Duits()
+		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 {
 		Do ##class(TECH.Exceptions.InvalidInputException).Throw("BestandVerwerker : ongeldige Bestandnaam '"_BestandVolledigeNaam_"'.")
 	}
 	Quit Header