Index: WSimpl/Vhisie4/Winkelkar/WinkelkarService/BewaarMaatwerkLijn.cls.xml
===================================================================
diff -u
--- WSimpl/Vhisie4/Winkelkar/WinkelkarService/BewaarMaatwerkLijn.cls.xml	(revision 0)
+++ WSimpl/Vhisie4/Winkelkar/WinkelkarService/BewaarMaatwerkLijn.cls.xml	(revision 38925)
@@ -0,0 +1,55 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="WSimpl.Vhisie4.Winkelkar.WinkelkarService.BewaarMaatwerkLijn">
+<Super>TECH.RegisteredObject</Super>
+
+<Property name="VerkoopService">
+<Type>APPS.EC.Verkoop.impl.Externe.VerkoopService</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="EdiConverter">
+<Type>ECONimpl.PM.Maatwerk.EdiConverter</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="WsTbxConverter">
+<Type>APPS.EDI.Bestel.impl.BestelService.TandemboxBesteller.ProductConverter</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="%OnNew">
+<FormalSpec>VerkoopService:APPS.EC.Verkoop.impl.Externe.VerkoopService</FormalSpec>
+<Private>1</Private>
+<ProcedureBlock>1</ProcedureBlock>
+<ReturnType>%Status</ReturnType>
+<ServerOnly>1</ServerOnly>
+<Implementation><![CDATA[
+	set ..VerkoopService = $$$Inject(VerkoopService,##class(APPS.EC.Verkoop.impl.Externe.VerkoopService).%New())
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
+<Method name="BewaarMaatwerkLijn">
+<FormalSpec>BewaarMaatwerkLijnRequest:WS.Vhisie4.Winkelkar.BewaarMaatwerkLijnRequest</FormalSpec>
+<ReturnType>WS.Vhisie4.Winkelkar.BewaarMaatwerkLijnResponse</ReturnType>
+<Implementation><![CDATA[
+	//#dim OfferteId As %String = ..OfferteRepository.GeefViaExterneId(BewaarMaatwerkLijnRequest.WinkelkarID).GeefID()
+	
+	// if BewaarMaatwerkLijnRequest.LijnID reeds bestaand dan exceptie 
+	
+	set EconKenmerken = ##class(ECON.PM.Maatwerk.dto.TbxKenmerken).%New()
+	do EconKenmerken.FromStream(BewaarMaatwerkLijnRequest.IngegevenKenmerken)
+	
+	#dim EdiKenmerken As APPS.EDI.common.dto.Product = ..EdiConverter.ConverteerEconNaarEdi(EconKenmerken)
+	
+	set IngegevenKenmerken = ##class(APPS.PM.Maatwerk.dto.TBXKenmerken).%New()
+	set IngegevenKenmerken.LegacyKenmerken = ..WsTbxConverter.Convert(EdiKenmerken)
+	
+	do ..VerkoopService.VoegToeMaatwerk(OfferteId,IngegevenKenmerken,BewaarMaatwerkLijnRequest.Aantal,BewaarMaatwerkLijnRequest.ProjectReferentie,BewaarMaatwerkLijnRequest.LijnID)
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>