Index: APPS/EDI/Bestel/impl/BestelService/PlaatsBestelling/AanvraagHeaderBepaler.cls.xml
===================================================================
diff -u
--- APPS/EDI/Bestel/impl/BestelService/PlaatsBestelling/AanvraagHeaderBepaler.cls.xml	(revision 0)
+++ APPS/EDI/Bestel/impl/BestelService/PlaatsBestelling/AanvraagHeaderBepaler.cls.xml	(revision 35715)
@@ -0,0 +1,31 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="APPS.EDI.Bestel.impl.BestelService.PlaatsBestelling.AanvraagHeaderBepaler">
+<Super>TECH.RegisteredObject</Super>
+
+<Method name="GeefAanvraagHeader">
+<FormalSpec>BestandVolledigeNaam:%String</FormalSpec>
+<ReturnType>APPS.EDI.Bestel.impl.BestelService.PlaatsBestelling.AanvraagHeader</ReturnType>
+<Implementation><![CDATA[
+	Do ##class(Tools.Wlip).%New(127).String("GeefAanvraagHeader "_BestandVolledigeNaam_"$")
+	#dim Header As APPS.EDI.Bestel.impl.BestelService.PlaatsBestelling.AanvraagHeader = ##class(APPS.EDI.Bestel.impl.BestelService.PlaatsBestelling.AanvraagHeader).%New()
+	If (##class(TECH.StringUtils).StartsWith(##class(TECH.File).GeefBestandsnaam(BestandVolledigeNaam),"alpnachnorm_ch")) {
+		Set Header.Taal = ##class(DOM.enu.Taal).Duits()
+		Set Header.GebruikerID = "SFS_83723_1000"
+		Set Header.KlantID = "SFS_83723"
+		Set Header.PersonalityID = ##class(DOM.common.enu.Personality).SFS()
+	} ElseIf (##class(TECH.StringUtils).StartsWith(##class(TECH.File).GeefBestandsnaam(BestandVolledigeNaam),"labonorm_be")) {
+		Set Header.Taal = ##class(DOM.enu.Taal).Nederlands()
+		Set Header.GebruikerID = "Vhisie||K||2265||10235"
+		Set Header.KlantID = "K||2265"
+		Set Header.PersonalityID = ##class(DOM.common.enu.Personality).VanHoecke()
+	} Else {
+		Do ##class(TECH.Exceptions.InvalidInputException).Throw("BestandVerwerker : ongeldige Bestandnaam '"_BestandVolledigeNaam_"'.")
+	}
+	Quit Header
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: EXT/Unishop/PurchaseOrder001/Service.cls.xml
===================================================================
diff -u -r35237 -r35715
--- EXT/Unishop/PurchaseOrder001/Service.cls.xml	(.../Service.cls.xml)	(revision 35237)
+++ EXT/Unishop/PurchaseOrder001/Service.cls.xml	(.../Service.cls.xml)	(revision 35715)
@@ -28,7 +28,7 @@
 <ServerOnly>1</ServerOnly>
 <Implementation><![CDATA[
 	set ..BestelService = ##class(APPS.EDI.Bestel.impl.BestelService).%New()
-	set ..OrderConverter = ##class(EXT.Unishop.PurchaseOrder001.OrderConverter).%New( , ..GeefKlantDataSubObjectTOBEVoorAlpnach())
+	set ..OrderConverter = ##class(EXT.Unishop.PurchaseOrder001.OrderConverter).%New( , ..GeefAlpnachHeader())
 	Quit $$$OK
 ]]></Implementation>
 </Method>
@@ -66,15 +66,11 @@
 ]]></Implementation>
 </Method>
 
-<Method name="GeefKlantDataSubObjectTOBEVoorAlpnach">
-<ReturnType>APPS.EDI.Bestel.BestelService.PlaatsBestelling.Aanvraag</ReturnType>
+<Method name="GeefAlpnachHeader">
+<ReturnType>APPS.EDI.Bestel.impl.BestelService.PlaatsBestelling.AanvraagHeader</ReturnType>
 <Implementation><![CDATA[
-	Set KlantDataSubObjectTOBE = ##class(APPS.EDI.Bestel.BestelService.PlaatsBestelling.Aanvraag).%New()
-	Set KlantDataSubObjectTOBE.Taal = ##class(DOM.enu.Taal).Duits()
-	Set KlantDataSubObjectTOBE.GebruikerID = "SFS_83723_1000"
-	Set KlantDataSubObjectTOBE.KlantID = "SFS_83723"
-	Set KlantDataSubObjectTOBE.PersonalityID = ##class(DOM.common.enu.Personality).SFS()
-	Quit KlantDataSubObjectTOBE
+	Set AanvraagHeaderBepaler = ##class(APPS.EDI.Bestel.impl.BestelService.PlaatsBestelling.AanvraagHeaderBepaler).%New()
+	Quit AanvraagHeaderBepaler.GeefAanvraagHeader("alpnachnorm_ch")
 ]]></Implementation>
 </Method>
 </Class>
Index: APPS/EDI/Bestel/impl/BestelService/PlaatsBestelling/AanvraagHeader.cls.xml
===================================================================
diff -u
--- APPS/EDI/Bestel/impl/BestelService/PlaatsBestelling/AanvraagHeader.cls.xml	(revision 0)
+++ APPS/EDI/Bestel/impl/BestelService/PlaatsBestelling/AanvraagHeader.cls.xml	(revision 35715)
@@ -0,0 +1,24 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="APPS.EDI.Bestel.impl.BestelService.PlaatsBestelling.AanvraagHeader">
+<Super>TECH.DataTransferObject</Super>
+
+<Property name="Taal">
+<Type>DOM.enu.Taal</Type>
+</Property>
+
+<Property name="KlantID">
+<Type>%String</Type>
+</Property>
+
+<Property name="PersonalityID">
+<Type>%Integer</Type>
+</Property>
+
+<Property name="GebruikerID">
+<Type>%String</Type>
+</Property>
+</Class>
+
+
+</Export>
Index: vhUnitTest/EXT/Unishop/PurchaseOrder001/BestandVerwerker/VerwerkBestand/Test.cls.xml
===================================================================
diff -u -r35408 -r35715
--- vhUnitTest/EXT/Unishop/PurchaseOrder001/BestandVerwerker/VerwerkBestand/Test.cls.xml	(.../Test.cls.xml)	(revision 35408)
+++ vhUnitTest/EXT/Unishop/PurchaseOrder001/BestandVerwerker/VerwerkBestand/Test.cls.xml	(.../Test.cls.xml)	(revision 35715)
@@ -57,8 +57,8 @@
 	#dim Aanvraag As APPS.EDI.Bestel.BestelService.PlaatsBestelling.Aanvraag = EdiBestelServiceSpy.GeefAanvraag()
 	
 	if $$$AssertIsObject(Aanvraag) {
-		do $$$AssertEquals(Aanvraag.PersonalityID,##class(DOM.common.enu.Personality).SFS())
-		do $$$AssertEquals(Aanvraag.KlantID,"SFS_83723")
+		do $$$AssertEquals(Aanvraag.Header.PersonalityID,##class(DOM.common.enu.Personality).SFS())
+		do $$$AssertEquals(Aanvraag.Header.KlantID,"SFS_83723")
 		if $$$AssertEquals(Aanvraag.Order.Lijnen.Count(),1) {
 			do $$$AssertEquals(Aanvraag.Order.Lijnen.GetAt(1).Aantal,1)	
 		}
Index: vhUnitTest/APPS/EDI/Bestel/impl/BestelService/PlaatsBestelling/AanvraagHeaderBepaler/Test.cls.xml
===================================================================
diff -u
--- vhUnitTest/APPS/EDI/Bestel/impl/BestelService/PlaatsBestelling/AanvraagHeaderBepaler/Test.cls.xml	(revision 0)
+++ vhUnitTest/APPS/EDI/Bestel/impl/BestelService/PlaatsBestelling/AanvraagHeaderBepaler/Test.cls.xml	(revision 35715)
@@ -0,0 +1,64 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.APPS.EDI.Bestel.impl.BestelService.PlaatsBestelling.AanvraagHeaderBepaler.Test">
+<Super>vhUnitTest.TestCase</Super>
+
+<Method name="Test Alpnach">
+<Implementation><![CDATA[
+	#dim BestandVolledigeNaam As %String = "c:\temp\alpnachnorm_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,"SFS_83723_1000")
+	Do $$$AssertEquals(AanvraagHeader.KlantID,"SFS_83723")
+	Do $$$AssertEquals(AanvraagHeader.PersonalityID,"3")
+]]></Implementation>
+</Method>
+
+<Method name="Test Labonorm">
+<Implementation><![CDATA[
+	#dim BestandVolledigeNaam As %String = "labonorm_beDeRestMaaktNietUit"
+	
+	#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,"Vhisie||K||2265||10235")
+	Do $$$AssertEquals(AanvraagHeader.KlantID,"K||2265")
+	Do $$$AssertEquals(AanvraagHeader.PersonalityID,"1")
+]]></Implementation>
+</Method>
+
+<Method name="Test willekeurige bestandsnaam">
+<Implementation><![CDATA[
+	#dim BestandVolledigeNaam As %String = "ollekebollekeknol"
+	
+	#dim Substrings = ##class(TECH.ListUtils).CreateListOfDataTypes("BestandVerwerker : ongeldige Bestandnaam 'ollekebollekeknol'")
+	do ..ZetVerwachteExceptie(##class(Tools.Test.VerwachteExceptie).%New(##class(TECH.Exceptions.InvalidInputException).%ClassName(1),Substrings))	
+	
+	#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)
+]]></Implementation>
+</Method>
+
+<Method name="Test lege bestandsnaam">
+<Implementation><![CDATA[
+	#dim BestandVolledigeNaam As %String = ""
+	
+	#dim Substrings = ##class(TECH.ListUtils).CreateListOfDataTypes("BestandVerwerker : ongeldige Bestandnaam ''")
+	do ..ZetVerwachteExceptie(##class(Tools.Test.VerwachteExceptie).%New(##class(TECH.Exceptions.InvalidInputException).%ClassName(1),Substrings))	
+	
+	#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)
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: vhUnitTest/APPS/EDI/Bestel/impl/BestelService/PlaatsBestelling/Test.cls.xml
===================================================================
diff -u -r35694 -r35715
--- vhUnitTest/APPS/EDI/Bestel/impl/BestelService/PlaatsBestelling/Test.cls.xml	(.../Test.cls.xml)	(revision 35694)
+++ vhUnitTest/APPS/EDI/Bestel/impl/BestelService/PlaatsBestelling/Test.cls.xml	(.../Test.cls.xml)	(revision 35715)
@@ -71,8 +71,8 @@
 <ReturnType>APPS.EDI.Bestel.BestelService.PlaatsBestelling.Aanvraag</ReturnType>
 <Implementation><![CDATA[
 	set Aanvraag = ##class(APPS.EDI.Bestel.BestelService.PlaatsBestelling.Aanvraag).%New()
-	set Aanvraag.KlantID = ..#KlantID
-	set Aanvraag.PersonalityID = ..#PersonalityID
+	set Aanvraag.Header.KlantID = ..#KlantID
+	set Aanvraag.Header.PersonalityID = ..#PersonalityID
 	set Aanvraag.Order.GevraagdeLeverdatum = "2011.01.01"
 	
 	quit Aanvraag
Index: vhUnitTest/APPS/EDI/Bestel/impl/BestelService/UnishopBesteller/PlaatsBestelling/Test.cls.xml
===================================================================
diff -u -r35673 -r35715
--- vhUnitTest/APPS/EDI/Bestel/impl/BestelService/UnishopBesteller/PlaatsBestelling/Test.cls.xml	(.../Test.cls.xml)	(revision 35673)
+++ vhUnitTest/APPS/EDI/Bestel/impl/BestelService/UnishopBesteller/PlaatsBestelling/Test.cls.xml	(.../Test.cls.xml)	(revision 35715)
@@ -255,8 +255,8 @@
 <ReturnType>APPS.EDI.Bestel.BestelService.PlaatsBestelling.Aanvraag</ReturnType>
 <Implementation><![CDATA[
 	set Aanvraag = ##class(APPS.EDI.Bestel.BestelService.PlaatsBestelling.Aanvraag).%New()
-	set Aanvraag.KlantID = ..#KlantID
-	set Aanvraag.PersonalityID = ..#PersonalityID
+	set Aanvraag.Header.KlantID = ..#KlantID
+	set Aanvraag.Header.PersonalityID = ..#PersonalityID
 	set Aanvraag.Order.GevraagdeLeverdatum = "2011.01.01"
 	quit Aanvraag
 ]]></Implementation>
Index: EXT/Unishop/PurchaseOrder001/OrderConverter.cls.xml
===================================================================
diff -u -r35455 -r35715
--- EXT/Unishop/PurchaseOrder001/OrderConverter.cls.xml	(.../OrderConverter.cls.xml)	(revision 35455)
+++ EXT/Unishop/PurchaseOrder001/OrderConverter.cls.xml	(.../OrderConverter.cls.xml)	(revision 35715)
@@ -8,20 +8,20 @@
 <Private>1</Private>
 </Property>
 
-<Property name="KlantDataSubObjectTOBE">
-<Type>APPS.EDI.Bestel.BestelService.PlaatsBestelling.Aanvraag</Type>
+<Property name="AanvraagHeader">
+<Type>APPS.EDI.Bestel.impl.BestelService.PlaatsBestelling.AanvraagHeader</Type>
 <Private>1</Private>
 </Property>
 
 <Method name="%OnNew">
-<FormalSpec>Converter:TECH.ObjectUtils.impl.ObjectConverter,KlantDataSubObjectTOBE:APPS.EDI.Bestel.BestelService.PlaatsBestelling.Aanvraag</FormalSpec>
+<FormalSpec>Converter:TECH.ObjectUtils.impl.ObjectConverter,AanvraagHeader:APPS.EDI.Bestel.impl.BestelService.PlaatsBestelling.AanvraagHeader</FormalSpec>
 <Private>1</Private>
 <ProcedureBlock>1</ProcedureBlock>
 <ReturnType>%Status</ReturnType>
 <ServerOnly>1</ServerOnly>
 <Implementation><![CDATA[
 	set ..Converter = ##class(TECH.ObjectUtils.impl.ObjectConverter).%New()
-	set ..KlantDataSubObjectTOBE = KlantDataSubObjectTOBE
+	set ..AanvraagHeader = AanvraagHeader
 	quit $$$OK
 ]]></Implementation>
 </Method>
@@ -31,10 +31,7 @@
 <ReturnType>APPS.EDI.Bestel.BestelService.PlaatsBestelling.Aanvraag</ReturnType>
 <Implementation><![CDATA[
 	set PlaatsBestellingAanvraag = ##class(APPS.EDI.Bestel.BestelService.PlaatsBestelling.Aanvraag).%New()
-	set PlaatsBestellingAanvraag.Taal = ..KlantDataSubObjectTOBE.Taal
-	set PlaatsBestellingAanvraag.GebruikerID = ..KlantDataSubObjectTOBE.GebruikerID
-	set PlaatsBestellingAanvraag.KlantID = ..KlantDataSubObjectTOBE.KlantID
-	set PlaatsBestellingAanvraag.PersonalityID = ..KlantDataSubObjectTOBE.PersonalityID
+	set PlaatsBestellingAanvraag.Header = ..AanvraagHeader
 	
 	set AppsOrder = ##class(APPS.EDI.Bestel.BestelService.PlaatsBestelling.Order).%New()
 	
Index: EXT/Unishop/PurchaseOrder001/BestandVerwerker.cls.xml
===================================================================
diff -u -r35408 -r35715
--- EXT/Unishop/PurchaseOrder001/BestandVerwerker.cls.xml	(.../BestandVerwerker.cls.xml)	(revision 35408)
+++ EXT/Unishop/PurchaseOrder001/BestandVerwerker.cls.xml	(.../BestandVerwerker.cls.xml)	(revision 35715)
@@ -61,47 +61,12 @@
 <FormalSpec>BestandVolledigeNaam:%String</FormalSpec>
 <Private>1</Private>
 <Implementation><![CDATA[
-	#dim OrderConverter As EXT.Unishop.PurchaseOrder001.OrderConverter = ""
-	
-	#dim KlantDataSubObjectTOBE As APPS.EDI.Bestel.BestelService.PlaatsBestelling.Aanvraag = ""
-
-	If (##class(TECH.StringUtils).StartsWith(##class(TECH.File).GeefBestandsnaam(BestandVolledigeNaam),"alpnachnorm_ch")) {
-		Set KlantDataSubObjectTOBE = ..GeefKlantDataSubObjectTOBEVoorAlpnach()
-	}
-	ElseIf (##class(TECH.StringUtils).StartsWith(##class(TECH.File).GeefBestandsnaam(BestandVolledigeNaam),"labonorm_be")) {
-		Set KlantDataSubObjectTOBE = ..GeefKlantDataSubObjectTOBEVoorLabonorm()
-	}
-	Else {
-		Do ##class(TECH.Exceptions.InvalidInputException).Throw("BestandVerwerker : ongeldige Bestandnaam '"_BestandVolledigeNaam_"'.")
-	}
-	Set OrderConverter = ##class(EXT.Unishop.PurchaseOrder001.OrderConverter).%New( , KlantDataSubObjectTOBE)
+	#dim OrderConverter As EXT.Unishop.PurchaseOrder001.OrderConverter = ""	
+	Set AanvraagHeaderBepaler = ##class(APPS.EDI.Bestel.impl.BestelService.PlaatsBestelling.AanvraagHeaderBepaler).%New()	
+	Set OrderConverter = ##class(EXT.Unishop.PurchaseOrder001.OrderConverter).%New( , AanvraagHeaderBepaler.GeefAanvraagHeader(BestandVolledigeNaam))
 	Quit OrderConverter
 ]]></Implementation>
 </Method>
-
-<Method name="GeefKlantDataSubObjectTOBEVoorAlpnach">
-<ReturnType>APPS.EDI.Bestel.BestelService.PlaatsBestelling.Aanvraag</ReturnType>
-<Implementation><![CDATA[
-	Set KlantDataSubObjectTOBE = ##class(APPS.EDI.Bestel.BestelService.PlaatsBestelling.Aanvraag).%New()
-	Set KlantDataSubObjectTOBE.Taal = ##class(DOM.enu.Taal).Duits()
-	Set KlantDataSubObjectTOBE.GebruikerID = "SFS_83723_1000"
-	Set KlantDataSubObjectTOBE.KlantID = "SFS_83723"
-	Set KlantDataSubObjectTOBE.PersonalityID = ##class(DOM.common.enu.Personality).SFS()
-	Quit KlantDataSubObjectTOBE
-]]></Implementation>
-</Method>
-
-<Method name="GeefKlantDataSubObjectTOBEVoorLabonorm">
-<ReturnType>APPS.EDI.Bestel.BestelService.PlaatsBestelling.Aanvraag</ReturnType>
-<Implementation><![CDATA[
-	Set KlantDataSubObjectTOBE = ##class(APPS.EDI.Bestel.BestelService.PlaatsBestelling.Aanvraag).%New()
-	Set KlantDataSubObjectTOBE.Taal = ##class(DOM.enu.Taal).Nederlands()
-	Set KlantDataSubObjectTOBE.GebruikerID = "Vhisie||K||2265||10235"
-	Set KlantDataSubObjectTOBE.KlantID = "K||2265"
-	Set KlantDataSubObjectTOBE.PersonalityID = ##class(DOM.common.enu.Personality).VanHoecke()
-	Quit KlantDataSubObjectTOBE
-]]></Implementation>
-</Method>
 </Class>
 
 
Index: APPS/EDI/Bestel/BestelService/PlaatsBestelling/Aanvraag.cls.xml
===================================================================
diff -u -r32480 -r35715
--- APPS/EDI/Bestel/BestelService/PlaatsBestelling/Aanvraag.cls.xml	(.../Aanvraag.cls.xml)	(revision 32480)
+++ APPS/EDI/Bestel/BestelService/PlaatsBestelling/Aanvraag.cls.xml	(.../Aanvraag.cls.xml)	(revision 35715)
@@ -7,22 +7,10 @@
 <Default>APPS.EDI.Bestel.BestelService.PlaatsBestellingAanvraag</Default>
 </Parameter>
 
-<Property name="Taal">
-<Type>DOM.enu.Taal</Type>
+<Property name="Header">
+<Type>APPS.EDI.Bestel.impl.BestelService.PlaatsBestelling.AanvraagHeader</Type>
 </Property>
 
-<Property name="KlantID">
-<Type>%String</Type>
-</Property>
-
-<Property name="PersonalityID">
-<Type>%Integer</Type>
-</Property>
-
-<Property name="GebruikerID">
-<Type>%String</Type>
-</Property>
-
 <Property name="Order">
 <Type>APPS.EDI.Bestel.BestelService.PlaatsBestelling.Order</Type>
 </Property>
@@ -34,6 +22,8 @@
 <ServerOnly>1</ServerOnly>
 <Implementation><![CDATA[
 	set ..Order = ##class(APPS.EDI.Bestel.BestelService.PlaatsBestelling.Order).%New()
+	set ..Header = ##class(APPS.EDI.Bestel.impl.BestelService.PlaatsBestelling.AanvraagHeader).%New()
+	
 	Quit $$$OK
 ]]></Implementation>
 </Method>