Index: APPS/EDI/PrijsBerekening/impl/PrijsBerekeningService.cls.xml
===================================================================
diff -u -r32000 -r32013
--- APPS/EDI/PrijsBerekening/impl/PrijsBerekeningService.cls.xml	(.../PrijsBerekeningService.cls.xml)	(revision 32000)
+++ APPS/EDI/PrijsBerekening/impl/PrijsBerekeningService.cls.xml	(.../PrijsBerekeningService.cls.xml)	(revision 32013)
@@ -8,6 +8,11 @@
 <Private>1</Private>
 </Property>
 
+<Property name="ObjectConverter">
+<Type>TECH.ObjectUtils.impl.ObjectConverter</Type>
+<Private>1</Private>
+</Property>
+
 <Method name="%OnNew">
 <FormalSpec>PrijsBerekeningRepository:APPS.EDI.PrijsBerekening.impl.PrijsBerekeningRepository=""</FormalSpec>
 <Private>1</Private>
@@ -16,6 +21,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()
 	Quit $$$OK
 ]]></Implementation>
 </Method>
@@ -31,10 +37,10 @@
 
 		#dim Data As APPS.EDI.PrijsBerekening.data.PrijsBerekening = ..GeefData(KlantID)
 		#dim WinkelkarID As %String = Data.Winkelkar.GeefID()
-		#dim Lijn As DOM.EC.Winkelkar.MaatwerkLijn = ..GeefBerekendeMaatwerkLijn(WinkelkarID,IngegevenKenmerken,EDIAanvraag.Aantal)
+		#dim Lijn As DOM.EC.Winkelkar.MaatwerkLijn = ..GeefBerekendeMaatwerkLijn(Data.Winkelkar,IngegevenKenmerken,EDIAanvraag.Aantal)
 		
 		Set Resultaat.OfferteID = ""   ; WinkelkarID   ; ??? 
-		Set Resultaat.LijnID = Lijn.GeefID()
+		Set Resultaat.LijnID = "VH_Fixed"   ;  Lijn.GeefID() ??? 
 		Set Resultaat.KostPrijs = Lijn.GeefTotaalPrijs()
 	} catch {
 		#dim Exception As TECH.Exceptions.Exception = ##class(TECH.ExceptionHandler).Catch("TECH.Exceptions.GeneralErrorException")
@@ -51,24 +57,80 @@
 <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)
-
+	#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.Product</FormalSpec>
+<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.IngegevenKenmerken = ""
+	#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.HeeftTipon = ""
+	;Set IngegevenKenmerken.Omschrijving = ""
+
+	If (Product.HeeftMat) {
+		Do IngegevenKenmerken.GekoppeldeIngegevenKenmerken.Insert(..GeefGekoppeldeIKMat(Product))
+	}
+
 	Quit IngegevenKenmerken
 ]]></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</FormalSpec>
+<FormalSpec>IngegevenKenmerken:APPS.PM.Maatwerk.dto.IngegevenKenmerken,KlantID:DOM.VKP.KlantID</FormalSpec>
 <Private>1</Private>
 <ReturnType>APPS.PM.Maatwerk.dto.IngegevenKenmerken</ReturnType>
 <Implementation><![CDATA[
@@ -98,7 +160,7 @@
 </Method>
 
 <Method name="GeefBerekendeMaatwerkLijn">
-<FormalSpec>WinkelkarID:%String,IngegevenKenmerken:APPS.PM.Maatwerk.dto.IngegevenKenmerken,Aantal:%Numeric</FormalSpec>
+<FormalSpec>Winkelkar:DOM.EC.Winkelkar.Winkelkar,IngegevenKenmerken:APPS.PM.Maatwerk.dto.IngegevenKenmerken,Aantal:%Numeric</FormalSpec>
 <Private>1</Private>
 <ReturnType>DOM.EC.Winkelkar.MaatwerkLijn</ReturnType>
 <Implementation><![CDATA[