Index: DOM/EC/Winkelkar/MaatwerkLijn.cls.xml
===================================================================
diff -u
--- DOM/EC/Winkelkar/MaatwerkLijn.cls.xml	(revision 0)
+++ DOM/EC/Winkelkar/MaatwerkLijn.cls.xml	(revision 1574)
@@ -0,0 +1,98 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="9">
+<Class name="DOM.EC.Winkelkar.MaatwerkLijn">
+<ClassType>persistent</ClassType>
+<ProcedureBlock>1</ProcedureBlock>
+<Super>DOM.EC.Winkelkar.Lijn</Super>
+<ClassDefinitionError>0</ClassDefinitionError>
+
+<Property name="Aantal">
+<Type>%Integer</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="EenheidPrijs">
+<Type>%Float</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="TotaalPrijs">
+<Type>%Float</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="IngegevenKenmerken">
+<Type>DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="%OnNew">
+<FormalSpec>Aantal:%Integer,IngegevenKenmerken:DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken,EenheidPrijs:%Float,TotaalPrijs:%Float</FormalSpec>
+<Private>1</Private>
+<ProcedureBlock>1</ProcedureBlock>
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[
+	Set ..Aantal = Aantal
+	Set ..EenheidPrijs = EenheidPrijs
+	Set ..TotaalPrijs = TotaalPrijs
+	Set ..IngegevenKenmerken = IngegevenKenmerken
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
+<Method name="GeefAantal">
+<ReturnType>%Integer</ReturnType>
+<Implementation><![CDATA[	Quit ..Aantal
+]]></Implementation>
+</Method>
+
+<Method name="GeefIngegevenKenmerken">
+<ReturnType>DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken</ReturnType>
+<Implementation><![CDATA[	Quit ..IngegevenKenmerken
+]]></Implementation>
+</Method>
+
+<Method name="GeefEenheidPrijs">
+<ReturnType>%Float</ReturnType>
+<Implementation><![CDATA[	Quit ..EenheidPrijs
+]]></Implementation>
+</Method>
+
+<Method name="GeefTotaalPrijs">
+<ReturnType>%Float</ReturnType>
+<Implementation><![CDATA[	Quit ..TotaalPrijs
+]]></Implementation>
+</Method>
+
+<Method name="Accept">
+<FormalSpec>Visitor:DOM.EC.Winkelkar.WinkelkarVisitor</FormalSpec>
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[	Quit Visitor.VerwerkMaatwerkLijn(##this)
+]]></Implementation>
+</Method>
+
+<Storage name="Default">
+<Type>%Library.CacheStorage</Type>
+<DefaultData>MaatwerkLijnDefaultData</DefaultData>
+<Data name="MaatwerkLijnDefaultData">
+<Structure>listnode</Structure>
+<Subscript>"MaatwerkLijn"</Subscript>
+<Value name="1">
+<Value>Aantal</Value>
+</Value>
+<Value name="2">
+<Value>EenheidPrijs</Value>
+</Value>
+<Value name="3">
+<Value>LijnNummer</Value>
+</Value>
+<Value name="4">
+<Value>TotaalPrijs</Value>
+</Value>
+<Value name="5">
+<Value>IngegevenKenmerken</Value>
+</Value>
+</Data>
+</Storage>
+</Class>
+</Export>
Index: vhUnitTest/DOM/EC/Winkelkar/TestWinkelkar.cls.xml
===================================================================
diff -u -r1566 -r1574
--- vhUnitTest/DOM/EC/Winkelkar/TestWinkelkar.cls.xml	(.../TestWinkelkar.cls.xml)	(revision 1566)
+++ vhUnitTest/DOM/EC/Winkelkar/TestWinkelkar.cls.xml	(.../TestWinkelkar.cls.xml)	(revision 1574)
@@ -84,6 +84,53 @@
 ]]></Implementation>
 </Method>
 
+<Method name="TestMaatwerkWinkelkar">
+<Implementation><![CDATA[
+	Set Winkelkar = ##class(DOM.EC.Winkelkar.MaatwerkWinkelkar).%New("UnitTest")
+	
+	Set Kenmerken = ##class(DOM.PM.Maatwerk.Calc.Common.impl.TAOOKenmerken).%New()
+	Set Aantal = 2
+	Set EenheidPrijs = 13
+	Set TotaalPrijs = 26
+	Set MaatwerkLijn = ##class(DOM.EC.Winkelkar.MaatwerkLijn).%New(Aantal, Kenmerken, EenheidPrijs, TotaalPrijs)
+	
+	Do Winkelkar.VoegToe(MaatwerkLijn)
+	
+	Set SaveStatus = Winkelkar.%Save()
+	
+	Do $$$AssertTrue($$$ISOK(SaveStatus),"De winkelkar werd correct opgeslagen")
+	
+	Set WinkelkarID = Winkelkar.%Id()
+	
+	Set Winkelkar = ""
+	Set Kenmerken = ""
+	Set MaatwerkLijn = ""
+	
+	Set Winkelkar = ##class(DOM.EC.Winkelkar.MaatwerkWinkelkar).%OpenId(WinkelkarID)
+	
+	Set MaatwerkLijn = Winkelkar.GeefLijnIterator().Next()
+	
+	Do $$$AssertEquals(MaatwerkLijn.GeefAantal(),Aantal,"Het aantal is correct")
+	Do $$$AssertEquals(MaatwerkLijn.GeefEenheidPrijs(),EenheidPrijs,"De eenheidsprijs is correct")
+	Do $$$AssertEquals(MaatwerkLijn.GeefTotaalPrijs(),TotaalPrijs,"De totaalprijs is correct")
+	Do $$$AssertTrue($IsObject(MaatwerkLijn.GeefIngegevenKenmerken()),"De ingegeven kenmerken werden opgeslagen")
+	Do $$$AssertFalse(Winkelkar.IsVerwijderbaar(),"De winkelkar mag nog niet verwijderd worden omdat deze niet ouder is dan 1 dag")
+	
+	// Laatste gewijzigd op 2 dagen geleden instellen zodat deze wel mag verwijderd worden
+	
+	Set ResultSet = ##class(%ResultSet).%New()
+	Do ResultSet.Prepare("UPDATE DOM_EC_Winkelkar.MaatwerkWinkelkar SET GewijzigdOp = ?")
+	Do ResultSet.Execute($H-2)
+	
+	Do Winkelkar.%Reload()
+	
+	Do $$$AssertTrue(Winkelkar.IsVerwijderbaar(),"De winkelkar is wel verwijderbaar na 2 dagen")
+	
+	Do ##class(DOM.PM.Maatwerk.Calc.Common.impl.TAOOKenmerken).%DeleteId(MaatwerkLijn.GeefIngegevenKenmerken().%Id())
+	Do ##class(DOM.EC.Winkelkar.MaatwerkWinkelkar).%DeleteId(Winkelkar.%Id())
+]]></Implementation>
+</Method>
+
 <Method name="OnBeforeAllTests">
 <ReturnType>%Status</ReturnType>
 <Implementation><![CDATA[
Index: DOM/EC/Winkelkar/WinkelkarVisitor.cls.xml
===================================================================
diff -u -r1566 -r1574
--- DOM/EC/Winkelkar/WinkelkarVisitor.cls.xml	(.../WinkelkarVisitor.cls.xml)	(revision 1566)
+++ DOM/EC/Winkelkar/WinkelkarVisitor.cls.xml	(.../WinkelkarVisitor.cls.xml)	(revision 1574)
@@ -43,15 +43,24 @@
 ]]></Implementation>
 </Method>
 
+<Method name="VerwerkMaatwerkLijn">
+<FormalSpec>MaatwerkLijn:DOM.EC.Winkelkar.MaatwerkLijn</FormalSpec>
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[	Quit $$$OK
+]]></Implementation>
+</Method>
+
 <Method name="VerwerkGroepBegin">
 <FormalSpec>GroepLijn:DOM.EC.Winkelkar.GroepLijn</FormalSpec>
+<Private>1</Private>
 <ReturnType>%Status</ReturnType>
 <Implementation><![CDATA[	Quit $$$OK
 ]]></Implementation>
 </Method>
 
 <Method name="VerwerkGroepEind">
 <FormalSpec>GroepLijn:DOM.EC.Winkelkar.GroepLijn</FormalSpec>
+<Private>1</Private>
 <ReturnType>%Status</ReturnType>
 <Implementation><![CDATA[	Quit $$$OK
 ]]></Implementation>
Index: APPS/EC/Winkelkar/dto/MaatwerkLijn.cls.xml
===================================================================
diff -u
--- APPS/EC/Winkelkar/dto/MaatwerkLijn.cls.xml	(revision 0)
+++ APPS/EC/Winkelkar/dto/MaatwerkLijn.cls.xml	(revision 1574)
@@ -0,0 +1,24 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="9">
+<Class name="APPS.EC.Winkelkar.dto.MaatwerkLijn">
+<ProcedureBlock>1</ProcedureBlock>
+<Super>APPS.EC.Winkelkar.dto.Lijn,%XML.Adaptor</Super>
+<ClassDefinitionError>0</ClassDefinitionError>
+
+<Property name="Aantal">
+<Type>%Integer</Type>
+</Property>
+
+<Property name="EenheidPrijs">
+<Type>%Float</Type>
+</Property>
+
+<Property name="TotaalPrijs">
+<Type>%Float</Type>
+</Property>
+
+<Property name="IngegevenKenmerken">
+<Type>APPS.PM.Maatwerk.dto.IngegevenKenmerken</Type>
+</Property>
+</Class>
+</Export>
Index: DOM/EC/Winkelkar/Winkelkar.cls.xml
===================================================================
diff -u -r1566 -r1574
--- DOM/EC/Winkelkar/Winkelkar.cls.xml	(.../Winkelkar.cls.xml)	(revision 1566)
+++ DOM/EC/Winkelkar/Winkelkar.cls.xml	(.../Winkelkar.cls.xml)	(revision 1574)
@@ -19,8 +19,9 @@
 <Type>Derde.Klant.Klant</Type>
 </Property>
 
-<Property name="ApplicatieNaam">
+<Property name="ApplicatieID">
 <Type>%String</Type>
+<Private>1</Private>
 </Property>
 
 <Property name="Root">
@@ -54,12 +55,12 @@
 </Property>
 
 <Method name="%OnNew">
-<FormalSpec>ApplicatieNaam:%String</FormalSpec>
+<FormalSpec>ApplicatieID:%String</FormalSpec>
 <Private>1</Private>
 <ProcedureBlock>1</ProcedureBlock>
 <ReturnType>%Status</ReturnType>
 <Implementation><![CDATA[
-	Set ..ApplicatieNaam = ApplicatieNaam
+	Set ..ApplicatieID = ApplicatieID
 	Set ..Root = ##class(DOM.EC.Winkelkar.GroepLijn).%New("ROOT")
 	
 	Do ..Inhoud.Insert(..Root)
@@ -68,6 +69,12 @@
 ]]></Implementation>
 </Method>
 
+<Method name="GeefApplicatieID">
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[	Quit ..ApplicatieID
+]]></Implementation>
+</Method>
+
 <Method name="IsWijzigbaar">
 <Abstract>1</Abstract>
 <ReturnType>%Boolean</ReturnType>
@@ -189,17 +196,7 @@
 <FormalSpec>Visitor:DOM.EC.Winkelkar.WinkelkarVisitor</FormalSpec>
 <ReturnType>%Status</ReturnType>
 <Implementation><![CDATA[
-	// We houden deze code even voor backward compatibility.
-	// Het is iets efficienter om meteen de visitor aan de root groep door te geven.
- 	Set it = ##class(TECH.ListIterator).%New(..Inhoud)
-	while (it.HasNext()) {
-		Set Item = it.Next()
-		// Verwerk enkel de hoofdgroepen
-		// Een visitor moet zelf voor het bezoek van de subgroepen zorgen.
-		if ('Item.Groep) { Do Item.Accept(Visitor) }
-		Set Item=""
-	} 
-	//Do ..Root.Accept(Visitor)	
+	Do ..Root.Accept(Visitor)	
 	
 	Do Visitor.Finalize()
 	
@@ -225,7 +222,7 @@
 <Value>AangemaaktOp</Value>
 </Value>
 <Value name="4">
-<Value>ApplicatieNaam</Value>
+<Value>ApplicatieID</Value>
 </Value>
 <Value name="5">
 <Value>GewijzigdDoor</Value>
Index: DOM/EC/Winkelkar/Visitors/TotaalPrijsBepaler.cls.xml
===================================================================
diff -u
--- DOM/EC/Winkelkar/Visitors/TotaalPrijsBepaler.cls.xml	(revision 0)
+++ DOM/EC/Winkelkar/Visitors/TotaalPrijsBepaler.cls.xml	(revision 1574)
@@ -0,0 +1,37 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="9">
+<Class name="DOM.EC.Winkelkar.Visitors.TotaalPrijsBepaler">
+<ProcedureBlock>1</ProcedureBlock>
+<Super>DOM.EC.Winkelkar.WinkelkarVisitor</Super>
+<ClassDefinitionError>0</ClassDefinitionError>
+
+<Property name="Prijs">
+<Type>%Float</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="GeefPrijs">
+<ReturnType>%Float</ReturnType>
+<Implementation><![CDATA[	Quit ..Prijs
+]]></Implementation>
+</Method>
+
+<Method name="VerwerkProductLijn">
+<FormalSpec>ProductLijn:DOM.EC.Winkelkar.ProductLijn</FormalSpec>
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[
+	// TODO: hier moet nog prijsbepaling komen voor een gewoon product
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
+<Method name="VerwerkMaatwerkLijn">
+<FormalSpec>MaatwerkLijn:DOM.EC.Winkelkar.MaatwerkLijn</FormalSpec>
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[
+	Set ..Prijs = ..Prijs + (MaatwerkLijn.GeefAantal() * $$ROUND^KPRIJS(MaatwerkLijn.GeefEenheidPrijs()))
+	Quit $$$OK
+]]></Implementation>
+</Method>
+</Class>
+</Export>
Index: WS/EC/Winkelkar/WinkelkarService.cls.xml
===================================================================
diff -u
--- WS/EC/Winkelkar/WinkelkarService.cls.xml	(revision 0)
+++ WS/EC/Winkelkar/WinkelkarService.cls.xml	(revision 1574)
@@ -0,0 +1,24 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="9">
+<Class name="WS.EC.Winkelkar.WinkelkarService">
+<ProcedureBlock>1</ProcedureBlock>
+<Super>WS.WebService</Super>
+<ClassDefinitionError>0</ClassDefinitionError>
+
+<Parameter name="SERVICENAME">
+<Default>WinkelkarService</Default>
+</Parameter>
+
+<Parameter name="NAMESPACE">
+<Default>http://www.vanhoecke.be/EC/Winkelkar</Default>
+</Parameter>
+
+<Method name="GeefWinkelkar">
+<FormalSpec>ApplicatieID:%String,WinkelkarID:%String</FormalSpec>
+<ReturnType>APPS.EC.Winkelkar.dto.Winkelkar</ReturnType>
+<WebMethod>1</WebMethod>
+<Implementation><![CDATA[	Quit ##class(APPS.EC.Winkelkar.WinkelkarService).%New().GeefWinkelkar(ApplicatieID,WinkelkarID)
+]]></Implementation>
+</Method>
+</Class>
+</Export>
Index: APPS/PM/Maatwerk/dto/IngegevenKenmerken.cls.xml
===================================================================
diff -u
--- APPS/PM/Maatwerk/dto/IngegevenKenmerken.cls.xml	(revision 0)
+++ APPS/PM/Maatwerk/dto/IngegevenKenmerken.cls.xml	(revision 1574)
@@ -0,0 +1,39 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="9">
+<Class name="APPS.PM.Maatwerk.dto.IngegevenKenmerken">
+<ProcedureBlock>1</ProcedureBlock>
+<Super>%RegisteredObject,%XML.Adaptor</Super>
+<ClassDefinitionError>0</ClassDefinitionError>
+
+<Property name="Familie">
+<Type>DOM.PM.enu.Familie</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="Variant">
+<Type>DOM.PM.enu.Variant</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="Omschrijving">
+<Type>%String</Type>
+</Property>
+
+<Method name="GeefFamilie">
+<ReturnType>DOM.PM.enu.Familie</ReturnType>
+<Implementation><![CDATA[	Quit ..Familie
+]]></Implementation>
+</Method>
+
+<Method name="GeefVariant">
+<ReturnType>DOM.PM.enu.Variant</ReturnType>
+<Implementation><![CDATA[	Quit ..Variant
+]]></Implementation>
+</Method>
+
+<Method name="IsVolledig">
+<Abstract>1</Abstract>
+<ReturnType>%Boolean</ReturnType>
+</Method>
+</Class>
+</Export>
Index: DOM/PM/Maatwerk/Calc/Common/impl/TAOOKenmerken.cls.xml
===================================================================
diff -u -r1496 -r1574
--- DOM/PM/Maatwerk/Calc/Common/impl/TAOOKenmerken.cls.xml	(.../TAOOKenmerken.cls.xml)	(revision 1496)
+++ DOM/PM/Maatwerk/Calc/Common/impl/TAOOKenmerken.cls.xml	(.../TAOOKenmerken.cls.xml)	(revision 1574)
@@ -36,6 +36,12 @@
 ]]></Implementation>
 </Method>
 
+<Method name="Accept">
+<FormalSpec>Visitor:DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerkenVisitor</FormalSpec>
+<Implementation><![CDATA[	Do Visitor.VerwerkTAOOKenmerken(##this)
+]]></Implementation>
+</Method>
+
 <Storage name="Default">
 <Type>%Library.CacheStorage</Type>
 <DefaultData>TAOOKenmerkenDefaultData</DefaultData>
@@ -78,6 +84,9 @@
 <Value name="12">
 <Value>LadeHoogte</Value>
 </Value>
+<Value name="13">
+<Value>Draagkracht</Value>
+</Value>
 </Data>
 </Storage>
 </Class>
Index: DOM/PM/Maatwerk/Calc/Common/impl/KADKenmerken.cls.xml
===================================================================
diff -u -r1075 -r1574
--- DOM/PM/Maatwerk/Calc/Common/impl/KADKenmerken.cls.xml	(.../KADKenmerken.cls.xml)	(revision 1075)
+++ DOM/PM/Maatwerk/Calc/Common/impl/KADKenmerken.cls.xml	(.../KADKenmerken.cls.xml)	(revision 1574)
@@ -84,6 +84,12 @@
 ]]></Implementation>
 </Method>
 
+<Method name="Accept">
+<FormalSpec>Visitor:DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerkenVisitor</FormalSpec>
+<Implementation><![CDATA[	Do Visitor.VerwerkKADKenmerken(##this)
+]]></Implementation>
+</Method>
+
 <Method name="ToString">
 <ReturnType>%String</ReturnType>
 <Implementation><![CDATA[
Index: DOM/PM/Maatwerk/Calc/Common/IngegevenKenmerkenVisitor.cls.xml
===================================================================
diff -u
--- DOM/PM/Maatwerk/Calc/Common/IngegevenKenmerkenVisitor.cls.xml	(revision 0)
+++ DOM/PM/Maatwerk/Calc/Common/IngegevenKenmerkenVisitor.cls.xml	(revision 1574)
@@ -0,0 +1,37 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="9">
+<Class name="DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerkenVisitor">
+<Abstract>1</Abstract>
+<ProcedureBlock>1</ProcedureBlock>
+<Super>%RegisteredObject</Super>
+<ClassDefinitionError>0</ClassDefinitionError>
+
+<Method name="VerwerkTBXKenmerken">
+<FormalSpec>TBXKenmerken:DOM.PM.Maatwerk.Calc.Common.impl.TBXKenmerken</FormalSpec>
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[	Quit $$$OK
+]]></Implementation>
+</Method>
+
+<Method name="VerwerkKADKenmerken">
+<FormalSpec>KADKenmerken:DOM.PM.Maatwerk.Calc.Common.impl.KADKenmerken</FormalSpec>
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[	Quit $$$OK
+]]></Implementation>
+</Method>
+
+<Method name="VerwerkOLMKenmerken">
+<FormalSpec>OLMKenmerken:DOM.PM.Maatwerk.Calc.Common.impl.OLMKenmerken</FormalSpec>
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[	Quit $$$OK
+]]></Implementation>
+</Method>
+
+<Method name="VerwerkTAOOKenmerken">
+<FormalSpec>TAOOKenmerken:DOM.PM.Maatwerk.Calc.Common.impl.TAOOKenmerken</FormalSpec>
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[	Quit $$$OK
+]]></Implementation>
+</Method>
+</Class>
+</Export>
Index: TECH/Exceptions/AbstractOmschrijvingException.cls.xml
===================================================================
diff -u
--- TECH/Exceptions/AbstractOmschrijvingException.cls.xml	(revision 0)
+++ TECH/Exceptions/AbstractOmschrijvingException.cls.xml	(revision 1574)
@@ -0,0 +1,40 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="9">
+<Class name="TECH.Exceptions.AbstractOmschrijvingException">
+<ProcedureBlock>1</ProcedureBlock>
+<Super>TECH.IException,%RegisteredObject</Super>
+<ClassDefinitionError>0</ClassDefinitionError>
+
+<Property name="Omschrijving">
+<Type>%String</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="%OnNew">
+<FormalSpec>Omschrijving:%String</FormalSpec>
+<Private>1</Private>
+<ProcedureBlock>1</ProcedureBlock>
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[
+	Set ..Omschrijving = Omschrijving
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
+<Method name="GeefOmschrijving">
+<Description>
+Wordt gebruikt om in de ecode weg te schrijven, de omschrijving blijft dus best beperkt. </Description>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[	Quit ..Omschrijving
+]]></Implementation>
+</Method>
+
+<Method name="ToString">
+<Description>
+Wordt door de error handler in het e-mailbericht bijgeschreven.</Description>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[	Quit ..GeefOmschrijving()
+]]></Implementation>
+</Method>
+</Class>
+</Export>
Index: APPS/EC/Winkelkar/impl/LijnNaarDtoVisitor.cls.xml
===================================================================
diff -u
--- APPS/EC/Winkelkar/impl/LijnNaarDtoVisitor.cls.xml	(revision 0)
+++ APPS/EC/Winkelkar/impl/LijnNaarDtoVisitor.cls.xml	(revision 1574)
@@ -0,0 +1,44 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="9">
+<Class name="APPS.EC.Winkelkar.impl.LijnNaarDtoVisitor">
+<ProcedureBlock>1</ProcedureBlock>
+<Super>DOM.EC.Winkelkar.WinkelkarVisitor</Super>
+<ClassDefinitionError>0</ClassDefinitionError>
+
+<Property name="Winkelkar">
+<Type>APPS.EC.Winkelkar.dto.Winkelkar</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="%OnNew">
+<FormalSpec>Winkelkar:APPS.EC.Winkelkar.dto.Winkelkar</FormalSpec>
+<Private>1</Private>
+<ProcedureBlock>1</ProcedureBlock>
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[
+	Set ..Winkelkar = Winkelkar
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
+<Method name="VerwerkMaatwerkLijn">
+<FormalSpec>MaatwerkLijn:DOM.EC.Winkelkar.MaatwerkLijn</FormalSpec>
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[
+	Set Lijn = ##class(APPS.EC.Winkelkar.dto.MaatwerkLijn).%New()
+	Set Lijn.LijnID = MaatwerkLijn.%Id()
+	
+	Set Lijn.Aantal = MaatwerkLijn.GeefAantal()
+	
+	Set KenmerkNaarDtoVisitor = ##class(APPS.PM.Maatwerk.impl.KenmerkNaarDtoVisitor).%New()
+	Do MaatwerkLijn.GeefIngegevenKenmerken().Accept(KenmerkNaarDtoVisitor)
+	
+	Set Lijn.IngegevenKenmerken = KenmerkNaarDtoVisitor.GeefIngegevenKenmerken()
+	
+	Do ..Winkelkar.Lijnen.Insert(Lijn)
+	
+	Quit $$$OK
+]]></Implementation>
+</Method>
+</Class>
+</Export>
Index: APPS/PM/Maatwerk/dto/TAOOKenmerken.cls.xml
===================================================================
diff -u
--- APPS/PM/Maatwerk/dto/TAOOKenmerken.cls.xml	(revision 0)
+++ APPS/PM/Maatwerk/dto/TAOOKenmerken.cls.xml	(revision 1574)
@@ -0,0 +1,85 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="9">
+<Class name="APPS.PM.Maatwerk.dto.TAOOKenmerken">
+<ProcedureBlock>1</ProcedureBlock>
+<Super>APPS.PM.Maatwerk.dto.IngegevenKenmerken</Super>
+<ClassDefinitionError>0</ClassDefinitionError>
+
+<Method name="%OnNew">
+<Private>1</Private>
+<ProcedureBlock>1</ProcedureBlock>
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[
+	Set ..Familie = ##class(DOM.PM.enu.Familie).Lade()
+	Set ..Variant = ##class(DOM.PM.enu.LadeVariant).TAOO()
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
+<Property name="CorpusBreedte">
+<Type>%Float</Type>
+</Property>
+
+<Property name="CorpusWandDikte">
+<Type>%Float</Type>
+</Property>
+
+<Property name="Draagkracht">
+<Type>DOM.PM.enu.TAOODraagkracht</Type>
+</Property>
+
+<Property name="IsBinnenbreedte">
+<Type>%Boolean</Type>
+</Property>
+
+<Property name="IsBinnenlade">
+<Type>%Boolean</Type>
+</Property>
+
+<Property name="LadeKleur">
+<Type>DOM.PM.enu.TAOOLadeKleur</Type>
+</Property>
+
+<Property name="LadeHoogte">
+<Type>DOM.PM.enu.TAOOLadeHoogte</Type>
+</Property>
+
+<Property name="LadeDiepte">
+<Type>DOM.PM.enu.TAOOLadeDiepte</Type>
+</Property>
+
+<Property name="HeeftOpvullijstLinks">
+<Type>%Boolean</Type>
+</Property>
+
+<Property name="HeeftOpvullijstRechts">
+<Type>%Boolean</Type>
+</Property>
+
+<Property name="HeeftTipon">
+<Type>%Boolean</Type>
+</Property>
+
+<Property name="HeeftZijstabilisering">
+<Type>%Boolean</Type>
+</Property>
+
+<Method name="IsVolledig">
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[
+	Quit (..CorpusBreedte '= "") &&
+		(..IsBinnenbreedte || (..CorpusWandDikte '= "")) && // CorpusWandDikte moet enkel ingevuld zijn indien geen binnenmaat
+		(..Draagkracht '= "") &&
+		(..IsBinnenbreedte '= "") &&
+		(..IsBinnenlade '= "") &&
+		(..LadeKleur '= "") &&
+		(..LadeHoogte '= "") &&
+		(..LadeDiepte '= "") &&
+		(..HeeftOpvullijstLinks '= "") &&
+		(..HeeftOpvullijstRechts '= "") &&
+		(..HeeftTipon '= "") &&
+		(..HeeftZijstabilisering '= "")
+]]></Implementation>
+</Method>
+</Class>
+</Export>
Index: DOM/EC/Winkelkar/Visitors/ProductenTeller.cls.xml
===================================================================
diff -u
--- DOM/EC/Winkelkar/Visitors/ProductenTeller.cls.xml	(revision 0)
+++ DOM/EC/Winkelkar/Visitors/ProductenTeller.cls.xml	(revision 1574)
@@ -0,0 +1,37 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="9">
+<Class name="DOM.EC.Winkelkar.Visitors.ProductenTeller">
+<ProcedureBlock>1</ProcedureBlock>
+<Super>DOM.EC.Winkelkar.WinkelkarVisitor</Super>
+<ClassDefinitionError>0</ClassDefinitionError>
+
+<Property name="Aantal">
+<Type>%Integer</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="GeefAantal">
+<ReturnType>%Integer</ReturnType>
+<Implementation><![CDATA[	Quit ..Aantal
+]]></Implementation>
+</Method>
+
+<Method name="VerwerkProductLijn">
+<FormalSpec>ProductLijn:DOM.EC.Winkelkar.ProductLijn</FormalSpec>
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[
+	Set ..Aantal = ..Aantal + ProductLijn.Aantal
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
+<Method name="VerwerkMaatwerkLijn">
+<FormalSpec>MaatwerkLijn:DOM.EC.Winkelkar.MaatwerkLijn</FormalSpec>
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[
+	Set ..Aantal = ..Aantal + MaatwerkLijn.GeefAantal()
+	Quit $$$OK
+]]></Implementation>
+</Method>
+</Class>
+</Export>
Index: CSC Winkelkar.prj.xml
===================================================================
diff -u -r1566 -r1574
--- CSC Winkelkar.prj.xml	(.../CSC Winkelkar.prj.xml)	(revision 1566)
+++ CSC Winkelkar.prj.xml	(.../CSC Winkelkar.prj.xml)	(revision 1574)
@@ -1,14 +1,41 @@
 <?xml version="1.0" encoding="UTF-8"?>
 <Export generator="Cache" version="9">
-<Project name="CSC Winkelkar" LastModified="2011-06-30 08:54:36">
+<Project name="CSC Winkelkar" LastModified="2011-07-01 07:52:22">
   <Items>
+    <ProjectItem name="APPS.EC.Winkelkar.WinkelkarService" type="CLS"/>
+    <ProjectItem name="APPS.EC.Winkelkar.dto.Lijn" type="CLS"/>
+    <ProjectItem name="APPS.EC.Winkelkar.dto.MaatwerkLijn" type="CLS"/>
+    <ProjectItem name="APPS.EC.Winkelkar.dto.Winkelkar" type="CLS"/>
+    <ProjectItem name="APPS.EC.Winkelkar.impl.LijnNaarDtoVisitor" type="CLS"/>
+    <ProjectItem name="APPS.PM.Maatwerk.dto.IngegevenKenmerken" type="CLS"/>
+    <ProjectItem name="APPS.PM.Maatwerk.dto.TAOOKenmerken" type="CLS"/>
+    <ProjectItem name="APPS.PM.Maatwerk.impl.KenmerkNaarDtoVisitor" type="CLS"/>
     <ProjectItem name="DOM.EC.Winkelkar.GroepLijn" type="CLS"/>
     <ProjectItem name="DOM.EC.Winkelkar.Lijn" type="CLS"/>
+    <ProjectItem name="DOM.EC.Winkelkar.MaatwerkLijn" type="CLS"/>
+    <ProjectItem name="DOM.EC.Winkelkar.MaatwerkWinkelkar" type="CLS"/>
     <ProjectItem name="DOM.EC.Winkelkar.ProductLijn" type="CLS"/>
     <ProjectItem name="DOM.EC.Winkelkar.TekstLijn" type="CLS"/>
+    <ProjectItem name="DOM.EC.Winkelkar.Visitors.ProductenTeller" type="CLS"/>
+    <ProjectItem name="DOM.EC.Winkelkar.Visitors.TotaalPrijsBepaler" type="CLS"/>
     <ProjectItem name="DOM.EC.Winkelkar.Winkelkar" type="CLS"/>
     <ProjectItem name="DOM.EC.Winkelkar.WinkelkarVisitor" type="CLS"/>
+    <ProjectItem name="DOM.PM.Maatwerk.Calc.Common.BerekeningsSpecificatie" type="CLS"/>
+    <ProjectItem name="DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken" type="CLS"/>
+    <ProjectItem name="DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerkenVisitor" type="CLS"/>
+    <ProjectItem name="DOM.PM.Maatwerk.Calc.Common.ProductSpecificatie" type="CLS"/>
+    <ProjectItem name="DOM.PM.Maatwerk.Calc.Common.impl.KADBeslag" type="CLS"/>
+    <ProjectItem name="DOM.PM.Maatwerk.Calc.Common.impl.KADBoring" type="CLS"/>
+    <ProjectItem name="DOM.PM.Maatwerk.Calc.Common.impl.KADKenmerken" type="CLS"/>
+    <ProjectItem name="DOM.PM.Maatwerk.Calc.Common.impl.KADVullingBeschrijving" type="CLS"/>
+    <ProjectItem name="DOM.PM.Maatwerk.Calc.Common.impl.OLMKenmerken" type="CLS"/>
+    <ProjectItem name="DOM.PM.Maatwerk.Calc.Common.impl.TAOOKenmerken" type="CLS"/>
+    <ProjectItem name="DOM.PM.Maatwerk.Calc.Common.impl.TBXKenmerken" type="CLS"/>
+    <ProjectItem name="TECH.Exceptions.AbstractOmschrijvingException" type="CLS"/>
+    <ProjectItem name="TECH.Exceptions.InvalidInputException" type="CLS"/>
+    <ProjectItem name="WS.EC.Winkelkar.WinkelkarService" type="CLS"/>
     <ProjectItem name="vhDeploy.Deploy20110629x1035" type="CLS"/>
+    <ProjectItem name="vhUnitTest.APPS.EC.Winkelkar.TestWinkelkarService" type="CLS"/>
     <ProjectItem name="vhUnitTest.DOM.EC.Winkelkar.TestWinkelkar" type="CLS"/>
     <ProjectItem name="vhUnitTest.DOM.EC.Winkelkar.UnitTestWinkelkar" type="CLS"/>
   </Items>
Index: vhUnitTest/APPS/EC/Winkelkar/TestWinkelkarService.cls.xml
===================================================================
diff -u
--- vhUnitTest/APPS/EC/Winkelkar/TestWinkelkarService.cls.xml	(revision 0)
+++ vhUnitTest/APPS/EC/Winkelkar/TestWinkelkarService.cls.xml	(revision 1574)
@@ -0,0 +1,48 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="9">
+<Class name="vhUnitTest.APPS.EC.Winkelkar.TestWinkelkarService">
+<Description>
+do ##class(vhUnitTest.Manager).RunTest("/debug/Display=all","APPS.EC.Winkelkar.TestWinkelkarService")</Description>
+<ProcedureBlock>1</ProcedureBlock>
+<Super>vhUnitTest.TestCase</Super>
+<ClassDefinitionError>0</ClassDefinitionError>
+
+<Method name="TestGeefWinkelkar">
+<Implementation><![CDATA[
+	Set Winkelkar = ##class(DOM.EC.Winkelkar.MaatwerkWinkelkar).%New("UnitTest")
+	
+	Set Kenmerken = ##class(DOM.PM.Maatwerk.Calc.Common.impl.TAOOKenmerken).%New()
+	Set Aantal = 2
+	Set EenheidPrijs = 13
+	Set TotaalPrijs = 26
+	Set MaatwerkLijn = ##class(DOM.EC.Winkelkar.MaatwerkLijn).%New(Aantal, Kenmerken, EenheidPrijs, TotaalPrijs)
+	
+	Do Winkelkar.VoegToe(MaatwerkLijn)
+	
+	Set Aantal = 3
+	Set EenheidPrijs = 15
+	Set TotaalPrijs = 45
+	Set MaatwerkLijn = ##class(DOM.EC.Winkelkar.MaatwerkLijn).%New(Aantal, Kenmerken, EenheidPrijs, TotaalPrijs)
+	
+	Do Winkelkar.VoegToe(MaatwerkLijn)
+	
+	Set SaveStatus = Winkelkar.%Save()
+	
+	Set WinkelkarService = ##class(APPS.EC.Winkelkar.WinkelkarService).%New()
+	
+	Set WinkelkarDto = WinkelkarService.GeefWinkelkar("UnitTest",Winkelkar.%Id())
+	
+	Do $$$AssertTrue($IsObject(WinkelkarDto))
+	
+	Do $$$AssertEquals(WinkelkarDto.AantalProducten,5,"Er zijn 5 producten")
+	Do $$$AssertEquals(WinkelkarDto.TotaalPrijs,45+26,"De totaalprijs is correct")
+	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.MaatwerkWinkelkar).%DeleteId(Winkelkar.%Id())
+]]></Implementation>
+</Method>
+</Class>
+</Export>
Index: APPS/PM/Maatwerk/impl/KenmerkNaarDtoVisitor.cls.xml
===================================================================
diff -u
--- APPS/PM/Maatwerk/impl/KenmerkNaarDtoVisitor.cls.xml	(revision 0)
+++ APPS/PM/Maatwerk/impl/KenmerkNaarDtoVisitor.cls.xml	(revision 1574)
@@ -0,0 +1,36 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="9">
+<Class name="APPS.PM.Maatwerk.impl.KenmerkNaarDtoVisitor">
+<ProcedureBlock>1</ProcedureBlock>
+<Super>DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerkenVisitor</Super>
+<ClassDefinitionError>0</ClassDefinitionError>
+
+<Property name="IngegevenKenmerken">
+<Type>APPS.PM.Maatwerk.dto.IngegevenKenmerken</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="GeefIngegevenKenmerken">
+<ReturnType>APPS.PM.Maatwerk.dto.IngegevenKenmerken</ReturnType>
+<Implementation><![CDATA[	Quit ..IngegevenKenmerken
+]]></Implementation>
+</Method>
+
+<Method name="VerwerkTAOOKenmerken">
+<FormalSpec>TAOOKenmerken:DOM.PM.Maatwerk.Calc.Common.impl.TAOOKenmerken</FormalSpec>
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[
+	Set ..IngegevenKenmerken = ##class(APPS.PM.Maatwerk.dto.TAOOKenmerken).%New()
+	
+	Set ..IngegevenKenmerken.CorpusBreedte = TAOOKenmerken.InbouwBreedte
+	Set ..IngegevenKenmerken.Draagkracht = TAOOKenmerken.Draagkracht
+	Set ..IngegevenKenmerken.IsBinnenlade = TAOOKenmerken.IsBinnenlade
+	Set ..IngegevenKenmerken.LadeDiepte = TAOOKenmerken.LadeDiepte
+	Set ..IngegevenKenmerken.LadeHoogte = TAOOKenmerken.LadeHoogte
+	Set ..IngegevenKenmerken.LadeKleur = TAOOKenmerken.LadeKleur
+	
+	Quit $$$OK
+]]></Implementation>
+</Method>
+</Class>
+</Export>
Index: APPS/EC/Winkelkar/dto/Winkelkar.cls.xml
===================================================================
diff -u
--- APPS/EC/Winkelkar/dto/Winkelkar.cls.xml	(revision 0)
+++ APPS/EC/Winkelkar/dto/Winkelkar.cls.xml	(revision 1574)
@@ -0,0 +1,29 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="9">
+<Class name="APPS.EC.Winkelkar.dto.Winkelkar">
+<ProcedureBlock>1</ProcedureBlock>
+<Super>%RegisteredObject,%XML.Adaptor</Super>
+<ClassDefinitionError>0</ClassDefinitionError>
+
+<Property name="AantalProducten">
+<Type>%Integer</Type>
+</Property>
+
+<Property name="TotaalPrijs">
+<Type>%Integer</Type>
+</Property>
+
+<Property name="ApplicatieID">
+<Type>%String</Type>
+</Property>
+
+<Property name="WinkelkarID">
+<Type>%String</Type>
+</Property>
+
+<Property name="Lijnen">
+<Type>APPS.EC.Winkelkar.dto.Lijn</Type>
+<Collection>list</Collection>
+</Property>
+</Class>
+</Export>
Index: DOM/EC/Winkelkar/MaatwerkWinkelkar.cls.xml
===================================================================
diff -u
--- DOM/EC/Winkelkar/MaatwerkWinkelkar.cls.xml	(revision 0)
+++ DOM/EC/Winkelkar/MaatwerkWinkelkar.cls.xml	(revision 1574)
@@ -0,0 +1,51 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="9">
+<Class name="DOM.EC.Winkelkar.MaatwerkWinkelkar">
+<ClassType>persistent</ClassType>
+<ProcedureBlock>1</ProcedureBlock>
+<Super>DOM.EC.Winkelkar.Winkelkar</Super>
+<ClassDefinitionError>0</ClassDefinitionError>
+
+<Property name="BewaarExpliciet">
+<Type>%Boolean</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="%OnNew">
+<Description>
+Wanneer BewaarExpliciet is ingesteld wordt de winkelkar niet na 1 dag verwijderd.</Description>
+<FormalSpec>ApplicatieID:%String,BewaarExpliciet:%Boolean=0</FormalSpec>
+<Private>1</Private>
+<ProcedureBlock>1</ProcedureBlock>
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[
+	Set ..BewaarExpliciet = BewaarExpliciet
+	Quit ##super(ApplicatieID)
+]]></Implementation>
+</Method>
+
+<Method name="IsWijzigbaar">
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[	Quit 1
+]]></Implementation>
+</Method>
+
+<Method name="IsVerwijderbaar">
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[	Quit ('..BewaarExpliciet) && (##class(TECH.DateTime).TimeStampVerschil(##class(TECH.enu.DatePart).Dag(),..GeefGewijzigdOp(),##class(TECH.DateTime).CurrentTimeStamp()) > 1)
+]]></Implementation>
+</Method>
+
+<Storage name="Default">
+<Type>%Library.CacheStorage</Type>
+<DefaultData>MaatwerkWinkelkarDefaultData</DefaultData>
+<Data name="MaatwerkWinkelkarDefaultData">
+<Structure>listnode</Structure>
+<Subscript>"MaatwerkWinkelkar"</Subscript>
+<Value name="1">
+<Value>BewaarExpliciet</Value>
+</Value>
+</Data>
+</Storage>
+</Class>
+</Export>
Index: APPS/EC/Winkelkar/WinkelkarService.cls.xml
===================================================================
diff -u
--- APPS/EC/Winkelkar/WinkelkarService.cls.xml	(revision 0)
+++ APPS/EC/Winkelkar/WinkelkarService.cls.xml	(revision 1574)
@@ -0,0 +1,44 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="9">
+<Class name="APPS.EC.Winkelkar.WinkelkarService">
+<ProcedureBlock>1</ProcedureBlock>
+<Super>%RegisteredObject</Super>
+<ClassDefinitionError>0</ClassDefinitionError>
+
+<Method name="GeefWinkelkar">
+<FormalSpec>ApplicatieID:%String,WinkelkarID:%String</FormalSpec>
+<ReturnType>APPS.EC.Winkelkar.dto.Winkelkar</ReturnType>
+<Implementation><![CDATA[
+	Set Winkelkar = ##class(DOM.EC.Winkelkar.Winkelkar).%OpenId(WinkelkarID)
+	
+	If '$IsObject(Winkelkar)
+	{
+		Do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.InvalidInputException).%New("De opgegeven winkelkar id is niet geldig!"))
+	}
+	
+	If (Winkelkar.GeefApplicatieID() '= ApplicatieID)
+	{
+		Do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.InvalidInputException).%New("De opgegeven applicatie id is niet geldig!"))
+	}
+	
+	Set WinkelkarDto = ##class(APPS.EC.Winkelkar.dto.Winkelkar).%New()
+	
+	Set ProductenTellerVisitor = ##class(DOM.EC.Winkelkar.Visitors.ProductenTeller).%New()
+	Do Winkelkar.Accept(ProductenTellerVisitor)
+	
+	Set TotaalPrijsBepaler = ##class(DOM.EC.Winkelkar.Visitors.TotaalPrijsBepaler).%New()
+	Do Winkelkar.Accept(TotaalPrijsBepaler)
+	
+	Set WinkelkarDto.AantalProducten = ProductenTellerVisitor.GeefAantal()
+	Set WinkelkarDto.TotaalPrijs = TotaalPrijsBepaler.GeefPrijs()
+	Set WinkelkarDto.ApplicatieID = ApplicatieID
+	Set WinkelkarDto.WinkelkarID = WinkelkarID
+	
+	Set LijnNaarDtoVisitor = ##class(APPS.EC.Winkelkar.impl.LijnNaarDtoVisitor).%New(WinkelkarDto)
+	Do Winkelkar.Accept(LijnNaarDtoVisitor)
+	
+	Quit WinkelkarDto
+]]></Implementation>
+</Method>
+</Class>
+</Export>
Index: DOM/PM/Maatwerk/Calc/Common/impl/OLMKenmerken.cls.xml
===================================================================
diff -u -r1075 -r1574
--- DOM/PM/Maatwerk/Calc/Common/impl/OLMKenmerken.cls.xml	(.../OLMKenmerken.cls.xml)	(revision 1075)
+++ DOM/PM/Maatwerk/Calc/Common/impl/OLMKenmerken.cls.xml	(.../OLMKenmerken.cls.xml)	(revision 1574)
@@ -20,6 +20,12 @@
 ]]></Implementation>
 </Method>
 
+<Method name="Accept">
+<FormalSpec>Visitor:DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerkenVisitor</FormalSpec>
+<Implementation><![CDATA[	Do Visitor.VerwerkOLMKenmerken(##this)
+]]></Implementation>
+</Method>
+
 <Storage name="Default">
 <Type>%Library.CacheStorage</Type>
 <DefaultData>OLMKenmerkenDefaultData</DefaultData>
Index: TECH/Exceptions/InvalidInputException.cls.xml
===================================================================
diff -u
--- TECH/Exceptions/InvalidInputException.cls.xml	(revision 0)
+++ TECH/Exceptions/InvalidInputException.cls.xml	(revision 1574)
@@ -0,0 +1,14 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="9">
+<Class name="TECH.Exceptions.InvalidInputException">
+<ProcedureBlock>1</ProcedureBlock>
+<Super>TECH.Exceptions.AbstractOmschrijvingException</Super>
+<ClassDefinitionError>0</ClassDefinitionError>
+
+<Method name="GeefExceptionCode">
+<ReturnType>TECH.enu.ExceptionCode</ReturnType>
+<Implementation><![CDATA[	Quit ##class(TECH.enu.ExceptionCode).InvalidInput()
+]]></Implementation>
+</Method>
+</Class>
+</Export>
Index: DOM/PM/Maatwerk/Calc/Common/impl/TBXKenmerken.cls.xml
===================================================================
diff -u -r1075 -r1574
--- DOM/PM/Maatwerk/Calc/Common/impl/TBXKenmerken.cls.xml	(.../TBXKenmerken.cls.xml)	(revision 1075)
+++ DOM/PM/Maatwerk/Calc/Common/impl/TBXKenmerken.cls.xml	(.../TBXKenmerken.cls.xml)	(revision 1574)
@@ -234,6 +234,12 @@
 ]]></Implementation>
 </Method>
 
+<Method name="Accept">
+<FormalSpec>Visitor:DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerkenVisitor</FormalSpec>
+<Implementation><![CDATA[	Do Visitor.VerwerkTBXKenmerken(##this)
+]]></Implementation>
+</Method>
+
 <UDLText name="T">
 <Content><![CDATA[
 /***  * /
Index: APPS/EC/Winkelkar/dto/Lijn.cls.xml
===================================================================
diff -u
--- APPS/EC/Winkelkar/dto/Lijn.cls.xml	(revision 0)
+++ APPS/EC/Winkelkar/dto/Lijn.cls.xml	(revision 1574)
@@ -0,0 +1,12 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="9">
+<Class name="APPS.EC.Winkelkar.dto.Lijn">
+<ProcedureBlock>1</ProcedureBlock>
+<Super>%RegisteredObject,%XML.Adaptor</Super>
+<ClassDefinitionError>0</ClassDefinitionError>
+
+<Property name="LijnID">
+<Type>%String</Type>
+</Property>
+</Class>
+</Export>