Index: WSimpl/AX/CalculatedProduct/Converter/AxProductKenmerkenConverter.cls.xml
===================================================================
diff -u -r50350 -r50359
--- WSimpl/AX/CalculatedProduct/Converter/AxProductKenmerkenConverter.cls.xml	(.../AxProductKenmerkenConverter.cls.xml)	(revision 50350)
+++ WSimpl/AX/CalculatedProduct/Converter/AxProductKenmerkenConverter.cls.xml	(.../AxProductKenmerkenConverter.cls.xml)	(revision 50359)
@@ -3,12 +3,64 @@
 <Class name="WSimpl.AX.CalculatedProduct.Converter.AxProductKenmerkenConverter">
 <Super>TECH.RegisteredObject,TECH.Mockable</Super>
 
+<Property name="EconConfiguratieConverter">
+<Type>WSimpl.Vhisie4.Winkelkar.EconConfiguratieConverter</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="IngegevenKenmerkenConverter">
+<Type>APPS.PM.Maatwerk.impl.IngegevenKenmerkenConverter</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="WinkelkarService">
+<Type>APPS.EC.Winkelkar.impl.WinkelkarService</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="%OnNew">
+<FormalSpec>EconConfiguratieConverter:WSimpl.Vhisie4.Winkelkar.EconConfiguratieConverter="",IngegevenKenmerkenConverter:APPS.PM.Maatwerk.impl.IngegevenKenmerkenConverter="",WinkelkarService:APPS.EC.Winkelkar.impl.WinkelkarService=""</FormalSpec>
+<Private>1</Private>
+<ProcedureBlock>1</ProcedureBlock>
+<ReturnType>%Status</ReturnType>
+<ServerOnly>1</ServerOnly>
+<Implementation><![CDATA[
+	Set ..EconConfiguratieConverter = $$$Inject(EconConfiguratieConverter, ##class(WSimpl.Vhisie4.Winkelkar.EconConfiguratieConverter).%New())
+	Set ..IngegevenKenmerkenConverter = $$$Inject(IngegevenKenmerkenConverter, ##class(APPS.PM.Maatwerk.impl.IngegevenKenmerkenConverter).%New())
+	Set ..WinkelkarService = $$$Inject(WinkelkarService, ##class(APPS.EC.Winkelkar.impl.WinkelkarService).%New())
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
 <Method name="GeefConvertedAxKenmerken">
 <FormalSpec>Attributes:AXif.Dynamics.CalculatedProductIn.MessageParts.AxdEntityAttribute</FormalSpec>
 <ReturnType>DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken</ReturnType>
 <Implementation><![CDATA[
 	#dim IngegevenKenmerken As DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken = ##class(DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken).%New()
 	
+	Try {
+		;1.	AX to E-CON (Vhisie4):
+		#dim EconConfiguratie As %ArrayOfDataTypes = ..ConvertAxAttributesToEconAttributes(Attributes)
+		
+		
+		
+		;2.	E-CON (Vhisie4) to EDI:
+		#dim EconMaatwerkLijn As APPS.EC.Winkelkar.dto.MaatwerkLijn = ..EconConfiguratieConverter.Convert(EconConfiguratie) // Originele parameter: BewaarMaatwerkLijnRequest.EconConfiguratie As %ArrayOfDataTypes
+		
+		; Volgende method doet teveel en heeft daarom WinkelkarId en BewaarMaatwerkLijnRequest.LijnID nodig => verder onderzoeken waar in te breken op dit niveau!!
+		;#dim MaatwerkLijn As APPS.EC.Winkelkar.dto.MaatwerkLijn = ..WinkelkarService.VoegToeMaatwerk(WinkelkarId, EconMaatwerkLijn.GroepNaam, EconMaatwerkLijn.IngegevenKenmerken, EconMaatwerkLijn.Aantal, EconMaatwerkLijn.ProjectReferentie, BewaarMaatwerkLijnRequest.LijnID)
+		; Property IngegevenKenmerken op object APPS.EC.Winkelkar.dto.MaatwerkLijn is van type APPS.PM.Maatwerk.dto.IngegevenKenmerken
+		
+		
+		
+		;3.	EDI to Unishop (Vhintra):
+		Set IngegevenKenmerken = ..IngegevenKenmerkenConverter.NaarObject(MaatwerkLijn.IngegevenKenmerken) // IngegevenKenmerken As APPS.PM.Maatwerk.dto.IngegevenKenmerken)
+	} Catch {
+		#dim Exception As TECH.Exceptions.Exception = ##class(TECH.ExceptionHandler).Catch()
+	}
+	
+	Quit IngegevenKenmerken
+	
 	/*
 	IngegevenKenmerken komen binnen zoals AX ze aanlevert, in de vorm	: AXif.Dynamics.CalculatedProductIn.MessageParts.AxdEntityAttribute
 	Ze moeten in deze method teruggegeven worden in de vorm				: DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken
@@ -67,10 +119,16 @@
 		...JUST WHAT I NEED :-)
 		
 	*/
-	
-	Quit IngegevenKenmerken
 ]]></Implementation>
 </Method>
+
+<Method name="ConvertAxAttributesToEconAttributes">
+<FormalSpec>Attributes:AXif.Dynamics.CalculatedProductIn.MessageParts.AxdEntityAttribute</FormalSpec>
+<Private>1</Private>
+<ReturnType>%ArrayOfDataTypes</ReturnType>
+<Implementation><![CDATA[	Quit ##class(%ArrayOfDataTypes).%New()
+]]></Implementation>
+</Method>
 </Class>