Index: WS/EC/Winkelkar/WinkelkarService.cls.xml
===================================================================
diff -u -r1674 -r1718
--- WS/EC/Winkelkar/WinkelkarService.cls.xml	(.../WinkelkarService.cls.xml)	(revision 1674)
+++ WS/EC/Winkelkar/WinkelkarService.cls.xml	(.../WinkelkarService.cls.xml)	(revision 1718)
@@ -22,10 +22,10 @@
 </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>
 <WebMethod>1</WebMethod>
-<Implementation><![CDATA[	Quit ##class(APPS.EC.Winkelkar.WinkelkarService).%New().MaakWinkelkar(Applicatie)
+<Implementation><![CDATA[	Quit ##class(APPS.EC.Winkelkar.WinkelkarService).%New().MaakWinkelkar(Applicatie, KlantID)
 ]]></Implementation>
 </Method>
 
Index: vhUnitTest/APPS/EC/Winkelkar/TestWinkelkarService.cls.xml
===================================================================
diff -u -r1674 -r1718
--- vhUnitTest/APPS/EC/Winkelkar/TestWinkelkarService.cls.xml	(.../TestWinkelkarService.cls.xml)	(revision 1674)
+++ vhUnitTest/APPS/EC/Winkelkar/TestWinkelkarService.cls.xml	(.../TestWinkelkarService.cls.xml)	(revision 1718)
@@ -26,6 +26,9 @@
 	
 	Do Winkelkar.VoegToe(MaatwerkLijn)
 	
+	Set KlantID = 7587
+	Do Winkelkar.KlantSetObjectId(KlantID)
+	
 	Set SaveStatus = Winkelkar.%Save()
 	
 	Set WinkelkarService = ##class(APPS.EC.Winkelkar.WinkelkarService).%New()
@@ -43,7 +46,6 @@
 	Do $$$AssertEquals(WinkelkarDto.ApplicatieID,"UnitTest","De applicatie id")
 	Do $$$AssertEquals(WinkelkarDto.WinkelkarID,Winkelkar.%Id(),"De winkelkar id")
 	
-	
 	Do ##class(DOM.PM.Maatwerk.Calc.Common.impl.TAOOKenmerken).%DeleteId(MaatwerkLijn.GeefIngegevenKenmerken().%Id())
 	Do ##class(DOM.EC.Winkelkar.Winkelkar).%DeleteId(Winkelkar.%Id())
 ]]></Implementation>
@@ -57,11 +59,13 @@
 	Set Applicatie.Naam = "UnitTest"
 	Set Applicatie.Type = ##class(APPS.common.enu.ApplicatieType).Intern()
 	
-	Set Winkelkar = WinkelkarService.MaakWinkelkar(Applicatie)
+	Set KlantID = 7587
+	Set Winkelkar = WinkelkarService.MaakWinkelkar(Applicatie,KlantID)
 	
 	Do $$$AssertTrue($IsObject(Winkelkar),"Er werd een winkelkar aangemaakt")
 	Do $$$AssertEquals(Winkelkar.ApplicatieID,"UnitTest","De applicatie id is ingevuld")
 	Do $$$AssertEquals(Winkelkar.AantalProducten,0,"Er zitten nog geen producten in")
+	Do $$$AssertEquals(Winkelkar.KlantID,KlantID,"De klant id werd correct opgeslagen")
 	
 	Do WinkelkarService.WisWinkelkar(Applicatie,Winkelkar.WinkelkarID)
 	
@@ -79,7 +83,8 @@
 	
 	Set GroepNaam = "Groep"
 	
-	Set Winkelkar = WinkelkarService.MaakWinkelkar(Applicatie)
+	Set KlantID = 7587
+	Set Winkelkar = WinkelkarService.MaakWinkelkar(Applicatie,KlantID)
 	
 	Set IngegevenKenmerken = ##class(APPS.PM.Maatwerk.dto.TAOOKenmerken).%New()
 	Set IngegevenKenmerken.CorpusBreedte = 600
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)
Index: APPS/EC/Winkelkar/dto/Winkelkar.cls.xml
===================================================================
diff -u -r1574 -r1718
--- APPS/EC/Winkelkar/dto/Winkelkar.cls.xml	(.../Winkelkar.cls.xml)	(revision 1574)
+++ APPS/EC/Winkelkar/dto/Winkelkar.cls.xml	(.../Winkelkar.cls.xml)	(revision 1718)
@@ -25,5 +25,9 @@
 <Type>APPS.EC.Winkelkar.dto.Lijn</Type>
 <Collection>list</Collection>
 </Property>
+
+<Property name="KlantID">
+<Type>%String</Type>
+</Property>
 </Class>
 </Export>