Index: APPS/EDI/common/impl/ProductConverter.cls.xml
===================================================================
diff -u
--- APPS/EDI/common/impl/ProductConverter.cls.xml	(revision 0)
+++ APPS/EDI/common/impl/ProductConverter.cls.xml	(revision 32094)
@@ -0,0 +1,171 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="APPS.EDI.common.impl.ProductConverter">
+<Super>TECH.RegisteredObject</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>
+
+<Method name="%OnNew">
+<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()
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
+<Property name="PersonalityID">
+<Type>DOM.common.enu.Personality</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="ConvertData">
+<Type>TECH.ObjectUtils.ObjectConvertData</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="ConvertDataGet">
+<Private>1</Private>
+<ReturnType>TECH.ObjectUtils.ObjectConvertData</ReturnType>
+<Implementation><![CDATA[
+	set r%ConvertData = $$$LazyLoad(r%ConvertData,..GeefConvertData())
+	quit r%ConvertData
+]]></Implementation>
+</Method>
+
+<Method name="GeefIngegevenKenmerken">
+<FormalSpec>Product:APPS.EDI.common.dto.Product,KlantID:%String,PersonalityID:%String</FormalSpec>
+<ReturnType>APPS.PM.Maatwerk.dto.IngegevenKenmerken</ReturnType>
+<Implementation><![CDATA[
+	set ..PersonalityID = PersonalityID	
+	#dim IngegevenKenmerken As APPS.PM.Maatwerk.dto.IngegevenKenmerken = ..ConverteerNaarIngegevenKenmerken(Product)
+	do ..VervolledigIngegevenKenmerken(IngegevenKenmerken,KlantID)
+	quit IngegevenKenmerken
+]]></Implementation>
+</Method>
+
+<Method name="ConverteerNaarIngegevenKenmerken">
+<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()
+
+	Do ..ObjectConverter.Convert(Product,IngegevenKenmerken,..ConvertData)
+
+	Set IngegevenKenmerken.NietMeeleveren = Product.NietMeeleveren
+	Set IngegevenKenmerken.LosseComponent = ""
+	Set IngegevenKenmerken.Uittrekbaarheid = ##class(DOM.PM.enu.TAORUittrekbaarheid).Volledig()
+	;Set IngegevenKenmerken.Omschrijving = ""
+
+	Do:(Product.HeeftMat) IngegevenKenmerken.GekoppeldeIngegevenKenmerken.Insert(..GeefGekoppeldMatKenmerk(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.Product</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 = $piece(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="GeefGekoppeldMatKenmerk">
+<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="VervolledigIngegevenKenmerken">
+<FormalSpec><![CDATA[&IngegevenKenmerken:APPS.PM.Maatwerk.dto.IngegevenKenmerken,KlantID:DOM.VKP.KlantID]]></FormalSpec>
+<Private>1</Private>
+<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)
+]]></Implementation>
+</Method>
+
+<Method name="GeefConvertData">
+<Private>1</Private>
+<ReturnType>TECH.ObjectUtils.ObjectConvertData</ReturnType>
+<Implementation><![CDATA[
+	Set ConvertData = ##class(TECH.ObjectUtils.ObjectConvertData).%New()
+	
+	// Lade (algemeen) 
+	;Do ConvertData.Add("Klasse",)
+	Do ConvertData.Add("LadeKleur",)
+	Do ConvertData.Add("BodemKleur",)
+	Do ConvertData.Add("LadeHoogte",)
+	Do ConvertData.Add("LadeDiepte",)
+	Do ConvertData.Add("IsBinnenlade",)
+	Do ConvertData.Add("FrontBevestiging",)
+	Do ConvertData.Add("CorpusBreedte",)
+	Do ConvertData.Add("IsBinnenbreedte",)
+	Do ConvertData.Add("CorpusWandDikte",)
+	Do ConvertData.Add("HeeftOpvullijstLinks",)
+	Do ConvertData.Add("HeeftOpvullijstRechts",)
+	Do ConvertData.Add("OpvullijstKleur",)
+	Do ConvertData.Add("Draagkracht",)
+	Do ConvertData.Add("GeleiderTechnologie",)
+	Do ConvertData.Add("HeeftZijstabilisering",)
+	Do ConvertData.Add("VerpakkingType",)
+	
+	// LadeTAX (specifiek,  <> LBX ) 
+	Do ConvertData.Add("LadeBinnenKleur",)
+	Do ConvertData.Add("FrontEindkapKleur",)
+	Do ConvertData.Add("GlijderType",)
+	Do ConvertData.Add("HeeftDiepteVerstelling",)
+	Do ConvertData.Add("KoppelingType",)
+	
+	Quit ConvertData
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: APPS/EDI/PrijsBerekening/impl/PrijsBerekeningService/EDIAanvraagConvertor.cls.xml
===================================================================
diff -u -r32073 -r32094
--- APPS/EDI/PrijsBerekening/impl/PrijsBerekeningService/EDIAanvraagConvertor.cls.xml	(.../EDIAanvraagConvertor.cls.xml)	(revision 32073)
+++ APPS/EDI/PrijsBerekening/impl/PrijsBerekeningService/EDIAanvraagConvertor.cls.xml	(.../EDIAanvraagConvertor.cls.xml)	(revision 32094)
@@ -3,16 +3,6 @@
 <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>
@@ -24,18 +14,13 @@
 </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()
-	
 	Set ..ConvertData = ..GeefConvertDataTAX()
-	
 	Quit $$$OK
 ]]></Implementation>
 </Method>
@@ -50,93 +35,11 @@
 <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
+	set ProductConverter = ##class(APPS.EDI.common.impl.ProductConverter).%New()
+	quit ProductConverter.GeefIngegevenKenmerken(EDIAanvraag.Product,EDIAanvraag.KlantID,..PersonalityID)
 ]]></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()
-
-	Do ..ObjectConverter.Convert(Product,IngegevenKenmerken,..ConvertData)
-
-	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>
-
 <Method name="GeefConvertDataTAX">
 <Private>1</Private>
 <ReturnType>TECH.ObjectUtils.ObjectConvertData</ReturnType>