Index: APPS/EDI/PrijsBerekening/impl/PrijsBerekeningService.cls.xml
===================================================================
diff -u -r32056 -r32065
--- APPS/EDI/PrijsBerekening/impl/PrijsBerekeningService.cls.xml	(.../PrijsBerekeningService.cls.xml)	(revision 32056)
+++ APPS/EDI/PrijsBerekening/impl/PrijsBerekeningService.cls.xml	(.../PrijsBerekeningService.cls.xml)	(revision 32065)
@@ -8,16 +8,11 @@
 <Private>1</Private>
 </Property>
 
-<Property name="ObjectConverter">
-<Type>TECH.ObjectUtils.impl.ObjectConverter</Type>
+<Property name="EDIAanvraagConvertor">
+<Type>APPS.EDI.PrijsBerekening.impl.PrijsBerekeningService.EDIAanvraagConvertor</Type>
 <Private>1</Private>
 </Property>
 
-<Property name="ConfiguratorService">
-<Type>APPS.EC.ConfiguratorService</Type>
-<Private>1</Private>
-</Property>
-
 <Property name="PersonalityID">
 <Type>DOM.common.enu.Personality</Type>
 <Private>1</Private>
@@ -36,8 +31,7 @@
 <ServerOnly>1</ServerOnly>
 <Implementation><![CDATA[
 	Set ..PrijsBerekeningRepository = $$$Implementation(PrijsBerekeningRepository,##class(APPS.EDI.PrijsBerekening.impl.PrijsBerekeningRepository).%New())
-	Set ..ObjectConverter = ##class(TECH.ObjectUtils.impl.ObjectConverter).%New()
-	Set ..ConfiguratorService = ##class(APPS.ApplicatieContext).Instance().GeefECommerceAPI().GeefInterneConfiguratorService()
+	Set ..EDIAanvraagConvertor = ##class(APPS.EDI.PrijsBerekening.impl.PrijsBerekeningService.EDIAanvraagConvertor).%New()
 	Set ..PersonalityID = ##class(DOM.common.enu.Personality).VanHoecke()
 	Set ..WinkelkarService = ##class(APPS.ApplicatieContext).Instance().GeefECommerceAPI().GeefWinkelkarService()
 	
@@ -52,7 +46,7 @@
 	Set Resultaat = ##class(APPS.EDI.PrijsBerekening.dto.Resultaat).%New()
 	try {
 		#dim KlantID As DOM.VKP.KlantID = EDIAanvraag.KlantID
-		#dim IngegevenKenmerken As APPS.PM.Maatwerk.dto.IngegevenKenmerken = ..GeefIngegevenKenmerken(EDIAanvraag)
+		#dim IngegevenKenmerken As APPS.PM.Maatwerk.dto.IngegevenKenmerken = ..EDIAanvraagConvertor.GeefIngegevenKenmerken(EDIAanvraag)
 
 		#dim Data As APPS.EDI.PrijsBerekening.data.PrijsBerekening = ..GeefData(KlantID)
 		#dim WinkelkarID As %String = Data.Winkelkar.GeefID()
@@ -70,126 +64,6 @@
 ]]></Implementation>
 </Method>
 
-<Method name="GeefIngegevenKenmerken">
-<FormalSpec>EDIAanvraag:APPS.EDI.PrijsBerekening.dto.Aanvraag</FormalSpec>
-<Private>1</Private>
-<ReturnType>APPS.PM.Maatwerk.dto.IngegevenKenmerken</ReturnType>
-<Implementation><![CDATA[
-	#dim IngegevenKenmerken As APPS.PM.Maatwerk.dto.IngegevenKenmerken = ..ConverteerNaarIK(EDIAanvraag.Product)
-	#dim VervolledigdeIngegevenKenmerken As APPS.PM.Maatwerk.dto.IngegevenKenmerken = ..GeefVervolledigdeIngegevenKenmerken(IngegevenKenmerken,EDIAanvraag.KlantID)
-	Quit VervolledigdeIngegevenKenmerken
-]]></Implementation>
-</Method>
-
-<Method name="ConverteerNaarIK">
-<FormalSpec>Product:APPS.EDI.common.dto.v001.LadeTAX</FormalSpec>
-<Private>1</Private>
-<ReturnType>APPS.PM.Maatwerk.dto.IngegevenKenmerken</ReturnType>
-<Implementation><![CDATA[
-	#dim IngegevenKenmerken As APPS.PM.Maatwerk.dto.TAORKenmerken = ##class(APPS.PM.Maatwerk.dto.TAORKenmerken).%New()
-
-	Set ConvertDataTAX = ##class(TECH.ObjectUtils.ObjectConvertData).%New()
-
-	// Lade (algemeen) 
-	;Do ConvertDataTAX.Add("Klasse",)
-	Do ConvertDataTAX.Add("LadeKleur",)
-	Do ConvertDataTAX.Add("BodemKleur",)
-	Do ConvertDataTAX.Add("LadeHoogte",)
-	Do ConvertDataTAX.Add("LadeDiepte",)
-	Do ConvertDataTAX.Add("IsBinnenlade",)
-	Do ConvertDataTAX.Add("FrontBevestiging",)
-	Do ConvertDataTAX.Add("CorpusBreedte",)
-	Do ConvertDataTAX.Add("IsBinnenbreedte",)
-	Do ConvertDataTAX.Add("CorpusWandDikte",)
-	Do ConvertDataTAX.Add("HeeftOpvullijstLinks",)
-	Do ConvertDataTAX.Add("HeeftOpvullijstRechts",)
-	Do ConvertDataTAX.Add("OpvullijstKleur",)
-	Do ConvertDataTAX.Add("Draagkracht",)
-	Do ConvertDataTAX.Add("GeleiderTechnologie",)
-	Do ConvertDataTAX.Add("HeeftZijstabilisering",)
-	Do ConvertDataTAX.Add("VerpakkingType",)
-
-	// LadeTAX (specifiek,  <> LBX ) 
-	Do ConvertDataTAX.Add("LadeBinnenKleur",)
-	Do ConvertDataTAX.Add("FrontEindkapKleur",)
-	Do ConvertDataTAX.Add("GlijderType",)
-	Do ConvertDataTAX.Add("HeeftDiepteVerstelling",)
-	Do ConvertDataTAX.Add("KoppelingType",)
-
-	Do ..ObjectConverter.Convert(Product,IngegevenKenmerken,ConvertDataTAX)
-
-	Set IngegevenKenmerken.NietMeeleveren = Product.NietMeeleveren
-	Set IngegevenKenmerken.LosseComponent = ""
-	Set IngegevenKenmerken.Uittrekbaarheid = ##class(DOM.PM.enu.TAORUittrekbaarheid).Volledig()
-	;Set IngegevenKenmerken.Omschrijving = ""
-
-	If (Product.HeeftMat) {
-		Do IngegevenKenmerken.GekoppeldeIngegevenKenmerken.Insert(..GeefGekoppeldeIKMat(Product))
-	}
-
-	Try {
-		Do IngegevenKenmerken.Valideer()
-	} 
-	Catch {
-		#dim Exception As APPS.PM.Maatwerk.impl.KenmerkenValidator.IsVolledigException = ##class(TECH.ExceptionHandler).Catch("APPS.PM.Maatwerk.impl.KenmerkenValidator.IsVolledigException")
-		Do ..RethrowAlsObjectConverterException(Exception,IngegevenKenmerken,Product)
-
-	}
-	Quit IngegevenKenmerken
-]]></Implementation>
-</Method>
-
-<Method name="RethrowAlsObjectConverterException">
-<FormalSpec>Exception:APPS.PM.Maatwerk.impl.KenmerkenValidator.IsVolledigException,IngegevenKenmerken:APPS.PM.Maatwerk.dto.IngegevenKenmerken,Product:APPS.EDI.common.dto.v001.LadeTAX</FormalSpec>
-<Private>1</Private>
-<Implementation><![CDATA[
-	Set Exceptions = ##class(TECH.ExceptionList).%New()
-	Set Iterator = ##class(TECH.ListIterator).%New(Exception.GeefPropertyNamen())
-	While (Iterator.HasNext()) {
-		#dim PropertyNaam As %List = $P(Iterator.Next()," ",1)
-		Set Exception = ##class(TECH.ObjectUtils.ObjectConverterPropertyException).%New("input",$classname(IngegevenKenmerken),PropertyNaam,"",PropertyNaam,PropertyNaam)
-		Do Exceptions.Insert(Exception)
-	}
-	
-	If Exceptions.Count() {
-		set Exception = ##class(TECH.ObjectUtils.ObjectConverterException).%New("IngegevenKenmerken zijn niet volledig ingevuld '"_$classname(Product)_"' to "_$classname(IngegevenKenmerken) )
-		do Exception.VoegToeInnerExcepties(Exceptions)
-		do ##class(TECH.ExceptionHandler).Throw(Exception)
-	}
-]]></Implementation>
-</Method>
-
-<Method name="GeefGekoppeldeIKMat">
-<FormalSpec>Lade:APPS.EDI.common.dto.v001.Lade</FormalSpec>
-<Private>1</Private>
-<ReturnType>APPS.PM.Maatwerk.dto.GekoppeldIngegevenKenmerk</ReturnType>
-<Implementation><![CDATA[
-	Set MatKenmerken = ##class(APPS.PM.Maatwerk.dto.MATKenmerken).%New()
-	Set MatKenmerken.Materiaal = Lade.MatMateriaal
-	Set MatKenmerken.Kleur = Lade.MatKleur
-	
-	Set GekoppeldIngegevenKenmerk = ##class(APPS.PM.Maatwerk.dto.GekoppeldIngegevenKenmerk).%New()
-	Set GekoppeldIngegevenKenmerk.Key = ##class(DOM.PM.Maatwerk.Calc.Common.enu.GekoppeldIKType).Mat()
-	Set GekoppeldIngegevenKenmerk.IngegevenKenmerken = MatKenmerken
-	Quit GekoppeldIngegevenKenmerk
-]]></Implementation>
-</Method>
-
-<Method name="GeefVervolledigdeIngegevenKenmerken">
-<FormalSpec>IngegevenKenmerken:APPS.PM.Maatwerk.dto.IngegevenKenmerken,KlantID:DOM.VKP.KlantID</FormalSpec>
-<Private>1</Private>
-<ReturnType>APPS.PM.Maatwerk.dto.IngegevenKenmerken</ReturnType>
-<Implementation><![CDATA[
-	#dim Klant As DOM.VKP.VanHoeckeKlant = ##class(DOM.DomeinContext).Instance().GeefVerkoopAPI().GeefKlant(KlantID)
-	#dim Personality As DOM.common.Personality = ##class(DOM.DomeinContext).Instance().GeefCommonAPI().GeefPersonality(..PersonalityID)
-	
-	Set KenmerkWijzigingen = ##class(APPS.PM.Maatwerk.dto.IngegevenKenmerkWijzigingenLijst).%New()
-	#dim Result As APPS.PM.Maatwerk.dto.VerwerkingVanKenmerkWijzigingen = ..ConfiguratorService.VerwerkKenmerkWijzigingen(IngegevenKenmerken,KenmerkWijzigingen,Klant,Personality)
-	
-	Quit IngegevenKenmerken
-]]></Implementation>
-</Method>
-
 <Method name="GeefData">
 <FormalSpec>KlantID:%String</FormalSpec>
 <Private>1</Private>
Index: APPS/EDI/PrijsBerekening/impl/PrijsBerekeningService/EDIAanvraagConvertor.cls.xml
===================================================================
diff -u
--- APPS/EDI/PrijsBerekening/impl/PrijsBerekeningService/EDIAanvraagConvertor.cls.xml	(revision 0)
+++ APPS/EDI/PrijsBerekening/impl/PrijsBerekeningService/EDIAanvraagConvertor.cls.xml	(revision 32065)
@@ -0,0 +1,157 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="APPS.EDI.PrijsBerekening.impl.PrijsBerekeningService.EDIAanvraagConvertor">
+<Super>TECH.RegisteredObject,APPS.EDI.PrijsBerekening.PrijsBerekeningService</Super>
+
+<Property name="ObjectConverter">
+<Type>TECH.ObjectUtils.impl.ObjectConverter</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="ConfiguratorService">
+<Type>APPS.EC.ConfiguratorService</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="PersonalityID">
+<Type>DOM.common.enu.Personality</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="%OnNew">
+<FormalSpec>PrijsBerekeningRepository:APPS.EDI.PrijsBerekening.impl.PrijsBerekeningRepository=""</FormalSpec>
+<Private>1</Private>
+<ProcedureBlock>1</ProcedureBlock>
+<ReturnType>%Status</ReturnType>
+<ServerOnly>1</ServerOnly>
+<Implementation><![CDATA[
+	Set ..ObjectConverter = ##class(TECH.ObjectUtils.impl.ObjectConverter).%New()
+	Set ..ConfiguratorService = ##class(APPS.ApplicatieContext).Instance().GeefECommerceAPI().GeefInterneConfiguratorService()
+	Set ..PersonalityID = ##class(DOM.common.enu.Personality).VanHoecke()
+	
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
+<Method name="GeefIngegevenKenmerken">
+<FormalSpec>EDIAanvraag:APPS.EDI.PrijsBerekening.dto.Aanvraag</FormalSpec>
+<ReturnType>APPS.PM.Maatwerk.dto.IngegevenKenmerken</ReturnType>
+<Implementation><![CDATA[
+	#dim IngegevenKenmerken As APPS.PM.Maatwerk.dto.IngegevenKenmerken = ..ConverteerNaarIK(EDIAanvraag.Product)
+	#dim VervolledigdeIngegevenKenmerken As APPS.PM.Maatwerk.dto.IngegevenKenmerken = ..GeefVervolledigdeIngegevenKenmerken(IngegevenKenmerken,EDIAanvraag.KlantID)
+	Quit VervolledigdeIngegevenKenmerken
+]]></Implementation>
+</Method>
+
+<Method name="ConverteerNaarIK">
+<FormalSpec>Product:APPS.EDI.common.dto.v001.LadeTAX</FormalSpec>
+<Private>1</Private>
+<ReturnType>APPS.PM.Maatwerk.dto.IngegevenKenmerken</ReturnType>
+<Implementation><![CDATA[
+	#dim IngegevenKenmerken As APPS.PM.Maatwerk.dto.TAORKenmerken = ##class(APPS.PM.Maatwerk.dto.TAORKenmerken).%New()
+
+	Set ConvertDataTAX = ##class(TECH.ObjectUtils.ObjectConvertData).%New()
+
+	// Lade (algemeen) 
+	;Do ConvertDataTAX.Add("Klasse",)
+	Do ConvertDataTAX.Add("LadeKleur",)
+	Do ConvertDataTAX.Add("BodemKleur",)
+	Do ConvertDataTAX.Add("LadeHoogte",)
+	Do ConvertDataTAX.Add("LadeDiepte",)
+	Do ConvertDataTAX.Add("IsBinnenlade",)
+	Do ConvertDataTAX.Add("FrontBevestiging",)
+	Do ConvertDataTAX.Add("CorpusBreedte",)
+	Do ConvertDataTAX.Add("IsBinnenbreedte",)
+	Do ConvertDataTAX.Add("CorpusWandDikte",)
+	Do ConvertDataTAX.Add("HeeftOpvullijstLinks",)
+	Do ConvertDataTAX.Add("HeeftOpvullijstRechts",)
+	Do ConvertDataTAX.Add("OpvullijstKleur",)
+	Do ConvertDataTAX.Add("Draagkracht",)
+	Do ConvertDataTAX.Add("GeleiderTechnologie",)
+	Do ConvertDataTAX.Add("HeeftZijstabilisering",)
+	Do ConvertDataTAX.Add("VerpakkingType",)
+
+	// LadeTAX (specifiek,  <> LBX ) 
+	Do ConvertDataTAX.Add("LadeBinnenKleur",)
+	Do ConvertDataTAX.Add("FrontEindkapKleur",)
+	Do ConvertDataTAX.Add("GlijderType",)
+	Do ConvertDataTAX.Add("HeeftDiepteVerstelling",)
+	Do ConvertDataTAX.Add("KoppelingType",)
+
+	Do ..ObjectConverter.Convert(Product,IngegevenKenmerken,ConvertDataTAX)
+
+	Set IngegevenKenmerken.NietMeeleveren = Product.NietMeeleveren
+	Set IngegevenKenmerken.LosseComponent = ""
+	Set IngegevenKenmerken.Uittrekbaarheid = ##class(DOM.PM.enu.TAORUittrekbaarheid).Volledig()
+	;Set IngegevenKenmerken.Omschrijving = ""
+
+	If (Product.HeeftMat) {
+		Do IngegevenKenmerken.GekoppeldeIngegevenKenmerken.Insert(..GeefGekoppeldeIKMat(Product))
+	}
+
+	Try {
+		Do IngegevenKenmerken.Valideer()
+	} 
+	Catch {
+		#dim Exception As APPS.PM.Maatwerk.impl.KenmerkenValidator.IsVolledigException = ##class(TECH.ExceptionHandler).Catch("APPS.PM.Maatwerk.impl.KenmerkenValidator.IsVolledigException")
+		Do ..RethrowAlsObjectConverterException(Exception,IngegevenKenmerken,Product)
+
+	}
+	Quit IngegevenKenmerken
+]]></Implementation>
+</Method>
+
+<Method name="RethrowAlsObjectConverterException">
+<FormalSpec>Exception:APPS.PM.Maatwerk.impl.KenmerkenValidator.IsVolledigException,IngegevenKenmerken:APPS.PM.Maatwerk.dto.IngegevenKenmerken,Product:APPS.EDI.common.dto.v001.LadeTAX</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	Set Exceptions = ##class(TECH.ExceptionList).%New()
+	Set Iterator = ##class(TECH.ListIterator).%New(Exception.GeefPropertyNamen())
+	While (Iterator.HasNext()) {
+		#dim PropertyNaam As %List = $P(Iterator.Next()," ",1)
+		Set Exception = ##class(TECH.ObjectUtils.ObjectConverterPropertyException).%New("output",$classname(IngegevenKenmerken),PropertyNaam,"",PropertyNaam,PropertyNaam)
+		Do Exceptions.Insert(Exception)
+	}
+	
+	If Exceptions.Count() {
+		set Exception = ##class(TECH.ObjectUtils.ObjectConverterException).%New("IngegevenKenmerken zijn niet volledig ingevuld '"_$classname(Product)_"' to "_$classname(IngegevenKenmerken) )
+		do Exception.VoegToeInnerExcepties(Exceptions)
+		do ##class(TECH.ExceptionHandler).Throw(Exception)
+	}
+]]></Implementation>
+</Method>
+
+<Method name="GeefGekoppeldeIKMat">
+<FormalSpec>Lade:APPS.EDI.common.dto.v001.Lade</FormalSpec>
+<Private>1</Private>
+<ReturnType>APPS.PM.Maatwerk.dto.GekoppeldIngegevenKenmerk</ReturnType>
+<Implementation><![CDATA[
+	Set MatKenmerken = ##class(APPS.PM.Maatwerk.dto.MATKenmerken).%New()
+	Set MatKenmerken.Materiaal = Lade.MatMateriaal
+	Set MatKenmerken.Kleur = Lade.MatKleur
+	
+	Set GekoppeldIngegevenKenmerk = ##class(APPS.PM.Maatwerk.dto.GekoppeldIngegevenKenmerk).%New()
+	Set GekoppeldIngegevenKenmerk.Key = ##class(DOM.PM.Maatwerk.Calc.Common.enu.GekoppeldIKType).Mat()
+	Set GekoppeldIngegevenKenmerk.IngegevenKenmerken = MatKenmerken
+	Quit GekoppeldIngegevenKenmerk
+]]></Implementation>
+</Method>
+
+<Method name="GeefVervolledigdeIngegevenKenmerken">
+<FormalSpec>IngegevenKenmerken:APPS.PM.Maatwerk.dto.IngegevenKenmerken,KlantID:DOM.VKP.KlantID</FormalSpec>
+<Private>1</Private>
+<ReturnType>APPS.PM.Maatwerk.dto.IngegevenKenmerken</ReturnType>
+<Implementation><![CDATA[
+	#dim Klant As DOM.VKP.VanHoeckeKlant = ##class(DOM.DomeinContext).Instance().GeefVerkoopAPI().GeefKlant(KlantID)
+	#dim Personality As DOM.common.Personality = ##class(DOM.DomeinContext).Instance().GeefCommonAPI().GeefPersonality(..PersonalityID)
+	
+	Set KenmerkWijzigingen = ##class(APPS.PM.Maatwerk.dto.IngegevenKenmerkWijzigingenLijst).%New()
+	#dim Result As APPS.PM.Maatwerk.dto.VerwerkingVanKenmerkWijzigingen = ..ConfiguratorService.VerwerkKenmerkWijzigingen(IngegevenKenmerken,KenmerkWijzigingen,Klant,Personality)
+	
+	Quit IngegevenKenmerken
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>