Index: APPS/EC/Winkelkar/impl/WinkelkarService/MagMaatwerklijnGewijzigdWorden.cls.xml
===================================================================
diff -u -r33279 -r33663
--- APPS/EC/Winkelkar/impl/WinkelkarService/MagMaatwerklijnGewijzigdWorden.cls.xml	(.../MagMaatwerklijnGewijzigdWorden.cls.xml)	(revision 33279)
+++ APPS/EC/Winkelkar/impl/WinkelkarService/MagMaatwerklijnGewijzigdWorden.cls.xml	(.../MagMaatwerklijnGewijzigdWorden.cls.xml)	(revision 33663)
@@ -30,7 +30,7 @@
 <Method name="Valideer">
 <FormalSpec>WinkelkarID:%String,LijnID:%String</FormalSpec>
 <Implementation><![CDATA[
-	#dim WinkelkarParent As APPS.EC.Winkelkar.Parent = ..WinkelkarService.GeefParent(WinkelkarID)
+	#dim WinkelkarParent As APPS.EC.Winkelkar.Parent = ..WinkelkarService.OpenWinkelkar(WinkelkarID).GeefParent()
 	
 	if $$$Not(..MagParentGewijzigdWorden(WinkelkarParent)) {
 		#dim Exception As TECH.Exceptions.GeneralErrorException = ##class(TECH.Exceptions.GeneralErrorException).%New("De Maatwerklijn van de winkelkar werd niet aangepast, u heeft geen authorisatie om deze te kunnen aanpassen")
Index: APPS/EC/Winkelkar/impl/WinkelkarService.cls.xml
===================================================================
diff -u -r33660 -r33663
--- APPS/EC/Winkelkar/impl/WinkelkarService.cls.xml	(.../WinkelkarService.cls.xml)	(revision 33660)
+++ APPS/EC/Winkelkar/impl/WinkelkarService.cls.xml	(.../WinkelkarService.cls.xml)	(revision 33663)
@@ -174,21 +174,6 @@
 ]]></Implementation>
 </Method>
 
-<Method name="GeefParent">
-<FormalSpec>WinkelkarID:%String</FormalSpec>
-<ReturnType>APPS.EC.Winkelkar.Parent</ReturnType>
-<Implementation><![CDATA[
-	#dim WinkelkarParent As APPS.EC.Winkelkar.Parent = ##class(APPS.EC.Winkelkar.Parent).%New()
-	#dim Query As %String = "SELECT ID FROM  APPS_VKP_impl.Offerte WHERE WinkelkarID = ?"
-	#dim OfferteID As %String = ##class(TECH.Context).Instance().GeefQueryAPI().GeefIDVanEnigeOptioneleRecord(Query, $LB(WinkelkarID))
-	If (OfferteID '=""){
-		Set WinkelkarParent.ID = OfferteID
-		Set WinkelkarParent.Type = ##class(APPS.EC.Winkelkar.enu.ParentType).WebshopOfferte()
-	}
-	Quit WinkelkarParent
-]]></Implementation>
-</Method>
-
 <Method name="GeefTaal">
 <FormalSpec>Winkelkar:DOM.EC.Winkelkar.Winkelkar</FormalSpec>
 <ReturnType>DOM.enu.Taal</ReturnType>
@@ -296,9 +281,10 @@
 <FormalSpec>WinkelkarID:%String,LijnID:%String,IngegevenKenmerken:APPS.PM.Maatwerk.dto.IngegevenKenmerken,Aantal:%String,GroepNaam:%String="",ProjectReferentie:%String=""</FormalSpec>
 <ReturnType>APPS.EC.Winkelkar.dto.Winkelkar</ReturnType>
 <Implementation><![CDATA[
+	
 	do ..MagMaatwerklijnGewijzigdWordenBepaler.Valideer(WinkelkarID, LijnID)
 	do ..MaatwerklijnInputValidator.Valideer(IngegevenKenmerken, Aantal)
-	
+
 	#dim Winkelkar As DOM.EC.Winkelkar.Winkelkar = ..OpenWinkelkar(WinkelkarID)
 	
 	#dim Lijn As DOM.EC.Winkelkar.MaatwerkLijn = Winkelkar.GeefLijn(LijnID)
@@ -420,34 +406,6 @@
 	Quit WinkelkarResultaat
 ]]></Implementation>
 </Method>
-
-<Method name="VoegToeLogItemWijzigMaatwerkLijn">
-<FormalSpec>OorspronkelijkAantalVanLijn:%Integer,IngegevenKenmerkenStream:%Stream,GewijzigdeKenmerkenStream:%Stream,Lijn:DOM.EC.Winkelkar.MaatwerkLijn,Winkelkar:DOM.EC.Winkelkar.Winkelkar</FormalSpec>
-<Implementation><![CDATA[
-	#dim VolledigeOmschrijving As %Stream = ##class(%GlobalCharacterStream).%New()
-	#dim DataService As APPS.common.DataService = ##class(APPS.ApplicatieContext).Instance().GeefCommonAPI().GeefDataService(Winkelkar.GeefPersonalityID())
-	#dim KlantData As DOM.common.dto.KlantData = DataService.GeefKlantData(Winkelkar.GeefKlantID())
-	#dim WinkelkarParent As APPS.EC.Winkelkar.Parent = ..GeefParent(Winkelkar.GeefID())
-	
-	Do VolledigeOmschrijving.WriteLine("Klant : "_KlantData.Naam_" ("_Winkelkar.GeefKlantID()_")")
-	If WinkelkarParent.ID '= "" {
-		#dim Offerte As APPS.VKP.Offerte = ##class(APPS.ApplicatieContext).Instance().GeefVerkoopAPI().GeefOfferteService().GeefOfferte(WinkelkarParent.ID)
-		Do VolledigeOmschrijving.WriteLine("Offerte : "_Offerte.GeefID())
-	}
-	Do VolledigeOmschrijving.WriteLine("De maatwerklijn '"_Lijn.GeefID()_"'  van de winkelkar '"_Winkelkar.GeefID()_"' is aangepast.")
-	do VolledigeOmschrijving.WriteLine()
-	do VolledigeOmschrijving.WriteLine("Van :")
-	Do VolledigeOmschrijving.CopyFrom(IngegevenKenmerkenStream)
-	Do VolledigeOmschrijving.WriteLine("Aantal: "_OorspronkelijkAantalVanLijn)
-	do VolledigeOmschrijving.WriteLine()
-	do VolledigeOmschrijving.WriteLine("Naar :")
-	Do VolledigeOmschrijving.CopyFrom(GewijzigdeKenmerkenStream)
-	Do VolledigeOmschrijving.WriteLine("Aantal: "_Lijn.GeefAantal())
-	
-	#dim CommonAPI As DOM.common.CommonAPI =  ##class(DOM.DomeinContext).Instance().GeefCommonAPI()
-	do CommonAPI.VoegToeLogItemAlsStream("DOM.EC.Winkelkar.Winkelkar", Winkelkar.GeefID()_"_"_Lijn.GeefID() ,VolledigeOmschrijving)
-]]></Implementation>
-</Method>
 </Class>
 
 
Index: DOM/EC/Winkelkar/Winkelkar.cls.xml
===================================================================
diff -u -r33644 -r33663
--- DOM/EC/Winkelkar/Winkelkar.cls.xml	(.../Winkelkar.cls.xml)	(revision 33644)
+++ DOM/EC/Winkelkar/Winkelkar.cls.xml	(.../Winkelkar.cls.xml)	(revision 33663)
@@ -92,6 +92,21 @@
 ]]></Implementation>
 </Method>
 
+<Method name="GeefParent">
+<ReturnType>APPS.EC.Winkelkar.Parent</ReturnType>
+<Implementation><![CDATA[
+	#dim WinkelkarID As %String = ..GeefID()
+	#dim WinkelkarParent As APPS.EC.Winkelkar.Parent = ##class(APPS.EC.Winkelkar.Parent).%New()
+	#dim Query As %String = "SELECT ID FROM  APPS_VKP_impl.Offerte WHERE WinkelkarID = ?"
+	#dim OfferteID As %String = ##class(TECH.Context).Instance().GeefQueryAPI().GeefIDVanEnigeOptioneleRecord(Query, $LB(WinkelkarID))
+	If (OfferteID '=""){
+		Set WinkelkarParent.ID = OfferteID
+		Set WinkelkarParent.Type = ##class(APPS.EC.Winkelkar.enu.ParentType).WebshopOfferte()
+	}
+	Quit WinkelkarParent
+]]></Implementation>
+</Method>
+
 <Method name="GeefPersonality">
 <ReturnType>DOM.common.Personality</ReturnType>
 <Implementation><![CDATA[	quit ##class(DOM.DomeinContext).Instance().GeefCommonAPI().GeefPersonality(..PersonalityID)
Index: APPS/EC/Winkelkar/MaatwerkLijnBuilder.cls.xml
===================================================================
diff -u -r33660 -r33663
--- APPS/EC/Winkelkar/MaatwerkLijnBuilder.cls.xml	(.../MaatwerkLijnBuilder.cls.xml)	(revision 33660)
+++ APPS/EC/Winkelkar/MaatwerkLijnBuilder.cls.xml	(.../MaatwerkLijnBuilder.cls.xml)	(revision 33663)
@@ -28,6 +28,7 @@
 	
 	Do ..ZetIngegevenKenmerken(Lijn, IngegevenKenmerken, Winkelkar.GeefApplicatieType())
 	Do ..ZetAantalEnPrijs(Lijn, Aantal, Winkelkar)
+	
 	Do Lijn.ZetProjectReferentie(ProjectReferentie)
 
 	Do ..VoegToeAanGroep(Winkelkar, GroepNaam, Lijn)
@@ -80,7 +81,7 @@
 	#dim IngegevenKenmerkenStream As %Stream = KenmerkenNaarDtoVisitor.GeefIngegevenKenmerken(Lijn.GeefIngegevenKenmerken()).ToStream()
 	#dim OorspronkelijkAantalVanLijn As %Integer = Lijn.GeefAantal()
 	
-	Do ..ZetIngegevenKenmerken(Lijn, IngegevenKenmerken, Winkelkar)
+	Do ..ZetIngegevenKenmerken(Lijn, IngegevenKenmerken, Winkelkar.GeefApplicatieType())
 	Do ..ZetAantalEnPrijs(Lijn, Aantal, Winkelkar)
 	
 	If ProjectReferentie '= "" {
@@ -93,8 +94,9 @@
 	}
 	
 	#dim GewijzigdeKenmerkenStream As %Stream = IngegevenKenmerken.ToStream()
-	///	Do ..WinkelkarService.VoegToeLogItemWijzigMaatwerkLijn(OorspronkelijkAantalVanLijn, IngegevenKenmerkenStream,GewijzigdeKenmerkenStream, Lijn, Winkelkar)
 	
+	Do ##class(APPS.EC.Winkelkar.Log).%New(Winkelkar).VoegToeLogItemWijzigMaatwerkLijn(OorspronkelijkAantalVanLijn, IngegevenKenmerkenStream,GewijzigdeKenmerkenStream, Lijn)
+	
 	Do Lijn.Save()
 ]]></Implementation>
 </Method>
@@ -166,7 +168,7 @@
 	
 	If $L(LijnIDIndienBestaandeLijn) {
 		Set Lijn = Winkelkar.GeefLijn(LijnIDIndienBestaandeLijn)
-		Do ..ZetIngegevenKenmerken(Lijn, Kenmerken, Winkelkar)
+		Do ..ZetIngegevenKenmerken(Lijn, Kenmerken, Winkelkar.GeefApplicatieType())
 		Do Lijn.ZetEenheidPrijsNettoExclBTW("")
 		Do Lijn.ZetTotaalPrijs("")
 		Do Lijn.ZetEindklantEenheidPrijsNettoExclBTW("")
Index: APPS/EC/Winkelkar/Log.cls.xml
===================================================================
diff -u
--- APPS/EC/Winkelkar/Log.cls.xml	(revision 0)
+++ APPS/EC/Winkelkar/Log.cls.xml	(revision 33663)
@@ -0,0 +1,53 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="APPS.EC.Winkelkar.Log">
+<Super>TECH.RegisteredObject</Super>
+
+<Property name="Winkelkar">
+<Type>DOM.EC.Winkelkar.Winkelkar</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="%OnNew">
+<FormalSpec>Winkelkar:DOM.EC.Winkelkar.Winkelkar</FormalSpec>
+<Private>1</Private>
+<ProcedureBlock>1</ProcedureBlock>
+<ReturnType>%Status</ReturnType>
+<ServerOnly>1</ServerOnly>
+<Implementation><![CDATA[
+	Set ..Winkelkar = Winkelkar
+	quit $$$OK
+]]></Implementation>
+</Method>
+
+<Method name="VoegToeLogItemWijzigMaatwerkLijn">
+<FormalSpec>OorspronkelijkAantalVanLijn:%Integer,IngegevenKenmerkenStream:%Stream,GewijzigdeKenmerkenStream:%Stream,Lijn:DOM.EC.Winkelkar.MaatwerkLijn</FormalSpec>
+<Implementation><![CDATA[
+	#dim VolledigeOmschrijving As %Stream = ##class(%GlobalCharacterStream).%New()
+	#dim DataService As APPS.common.DataService = ##class(APPS.ApplicatieContext).Instance().GeefCommonAPI().GeefDataService(..Winkelkar.GeefPersonalityID())
+	#dim KlantData As DOM.common.dto.KlantData = DataService.GeefKlantData(..Winkelkar.GeefKlantID())
+	#dim WinkelkarParent As APPS.EC.Winkelkar.Parent = ..Winkelkar.GeefParent()
+	
+	Do VolledigeOmschrijving.WriteLine("Klant : "_KlantData.Naam_" ("_..Winkelkar.GeefKlantID()_")")
+	If WinkelkarParent.ID '= "" {
+		#dim Offerte As APPS.VKP.Offerte = ##class(APPS.ApplicatieContext).Instance().GeefVerkoopAPI().GeefOfferteService().GeefOfferte(WinkelkarParent.ID)
+		Do VolledigeOmschrijving.WriteLine("Offerte : "_Offerte.GeefID())
+	}
+	Do VolledigeOmschrijving.WriteLine("De maatwerklijn '"_Lijn.GeefID()_"'  van de winkelkar '"_..Winkelkar.GeefID()_"' is aangepast.")
+	do VolledigeOmschrijving.WriteLine()
+	do VolledigeOmschrijving.WriteLine("Van :")
+	Do VolledigeOmschrijving.CopyFrom(IngegevenKenmerkenStream)
+	Do VolledigeOmschrijving.WriteLine("Aantal: "_OorspronkelijkAantalVanLijn)
+	do VolledigeOmschrijving.WriteLine()
+	do VolledigeOmschrijving.WriteLine("Naar :")
+	Do VolledigeOmschrijving.CopyFrom(GewijzigdeKenmerkenStream)
+	Do VolledigeOmschrijving.WriteLine("Aantal: "_Lijn.GeefAantal())
+	
+	#dim CommonAPI As DOM.common.CommonAPI =  ##class(DOM.DomeinContext).Instance().GeefCommonAPI()
+	do CommonAPI.VoegToeLogItemAlsStream("DOM.EC.Winkelkar.Winkelkar", ..Winkelkar.GeefID()_"_"_Lijn.GeefID() ,VolledigeOmschrijving)
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>