Index: APPS/EC/Winkelkar/impl/WinkelkarService.cls.xml
===================================================================
diff -u -r39216 -r39318
--- APPS/EC/Winkelkar/impl/WinkelkarService.cls.xml	(.../WinkelkarService.cls.xml)	(revision 39216)
+++ APPS/EC/Winkelkar/impl/WinkelkarService.cls.xml	(.../WinkelkarService.cls.xml)	(revision 39318)
@@ -202,15 +202,25 @@
 
 <Method name="VoegToeMaatwerk">
 <FormalSpec>WinkelkarID:%String,GroepNaam:%String,IngegevenKenmerken:APPS.PM.Maatwerk.dto.IngegevenKenmerken,Aantal:%Integer,ProjectReferentie:%String="",ExterneId:%String=""</FormalSpec>
-<ReturnType>%String</ReturnType>
+<ReturnType>APPS.EC.Winkelkar.dto.MaatwerkLijn</ReturnType>
 <Implementation><![CDATA[
 	#dim Winkelkar As DOM.EC.Winkelkar.Winkelkar = ..OpenWinkelkar(WinkelkarID)
 
 	Do ..MaatwerkLijnBuilder.Init(Winkelkar)
 	#dim MaatwerkLijn As DOM.EC.Winkelkar.MaatwerkLijn = ..MaatwerkLijnBuilder.MaakLijn(IngegevenKenmerken, Aantal, ProjectReferentie, GroepNaam, ExterneId)
 	Do ..WijzigLijn(Winkelkar,MaatwerkLijn,Aantal)
 	
-	Quit MaatwerkLijn.GeefID()
+	#dim GevondenLijn As APPS.EC.Winkelkar.dto.Lijn = ""
+	#dim Winkelkardto As APPS.EC.Winkelkar.dto.Winkelkar = ..GeefWinkelkar(WinkelkarID)
+	
+	Set Iterator = ##class(TECH.ListIterator).%New(##class(APPS.EC.Winkelkar.impl.WinkelkarUtils).%New().GeefMaatwerkLijnen(Winkelkardto))
+	
+	While $$$Not($IsObject(GevondenLijn)) && Iterator.HasNext() {
+		#dim Lijn As APPS.EC.Winkelkar.dto.MaatwerkLijn = Iterator.Next()
+		Set:(Lijn.LijnID = MaatwerkLijn.GeefID()) GevondenLijn = Lijn 	
+	}
+	
+	Quit GevondenLijn
 ]]></Implementation>
 </Method>