Index: APPS/EC/Winkelkar/WinkelkarService.cls.xml
===================================================================
diff -u -r1674 -r1718
--- APPS/EC/Winkelkar/WinkelkarService.cls.xml	(.../WinkelkarService.cls.xml)	(revision 1674)
+++ APPS/EC/Winkelkar/WinkelkarService.cls.xml	(.../WinkelkarService.cls.xml)	(revision 1718)
@@ -23,6 +23,7 @@
 	Set Winkelkar.TotaalPrijs = TotaalPrijsBepaler.GeefPrijs()
 	Set Winkelkar.ApplicatieID = Applicatie.Naam
 	Set Winkelkar.WinkelkarID = WinkelkarID
+	Set Winkelkar.KlantID = WinkelkarImpl.Klant.%Id()
 	
 	Set LijnNaarDtoVisitor = ##class(APPS.EC.Winkelkar.impl.LijnNaarDtoVisitor).%New(Winkelkar)
 	Do WinkelkarImpl.Accept(LijnNaarDtoVisitor)
@@ -32,7 +33,7 @@
 </Method>
 
 <Method name="MaakWinkelkar">
-<FormalSpec>Applicatie:APPS.common.dto.Applicatie</FormalSpec>
+<FormalSpec>Applicatie:APPS.common.dto.Applicatie,KlantID:%String</FormalSpec>
 <ReturnType>APPS.EC.Winkelkar.dto.Winkelkar</ReturnType>
 <Implementation><![CDATA[
 	If (Applicatie.Type = ##class(APPS.common.enu.ApplicatieType).Intern())
@@ -44,6 +45,7 @@
 		Do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.InvalidInputException).%New("Voor dit type winkelkar is nog geen implementatie voorzien."))
 	}
 	
+	Do WinkelkarImpl.KlantSetObjectId(KlantID)
 	Set Status = WinkelkarImpl.%Save()
 	
 	If ($$$ISERR(Status))
@@ -80,7 +82,7 @@
 <Implementation><![CDATA[
 	Set Winkelkar = ..OpenWinkelkar(Applicatie, WinkelkarID)
 	
-	Set Status = ..VoegToeAanGroep(Winkelkar, GroepNaam, ..MaakMaatwerkLijn(IngegevenKenmerken, Aantal))
+	Set Status = ..VoegToeAanGroep(Winkelkar, GroepNaam, ..MaakMaatwerkLijn(IngegevenKenmerken, Aantal, Winkelkar.Klant.%Id()))
 	
 	If ($$$ISERR(Status))
 	{
@@ -149,7 +151,7 @@
 </Method>
 
 <Method name="MaakMaatwerkLijn">
-<FormalSpec>IngegevenKenmerken:APPS.PM.Maatwerk.dto.IngegevenKenmerken,Aantal:%String</FormalSpec>
+<FormalSpec>IngegevenKenmerken:APPS.PM.Maatwerk.dto.IngegevenKenmerken,Aantal:%String,KlantID:%String</FormalSpec>
 <Private>1</Private>
 <Implementation><![CDATA[
 	If (Aantal '> 0)
@@ -167,7 +169,6 @@
 	Set IngegevenKenmerkenDOM = IngegevenKenmerkenVisitor.GeefIngegevenKenmerken()
 	
 	// Berekenen halffabrikaat items product
-	Set KlantID = 7587
 	Set Personality = ##class(DOM.common.VanHoeckePersonality).Instance()
 	Set BerekeningsSpecificatie = ##class(DOM.PM.Maatwerk.Calc.Common.BerekeningsSpecificatie).%New(1,KlantID,Personality)
 	Set Context=##class(DOM.PM.Maatwerk.Calc.HF.HalffabContext).%New(IngegevenKenmerken.GeefFamilie(),IngegevenKenmerken.GeefVariant(),BerekeningsSpecificatie)