Index: vhUnitTest/DOM/EC/Winkelkar/TestWinkelkar.cls.xml
===================================================================
diff -u
--- vhUnitTest/DOM/EC/Winkelkar/TestWinkelkar.cls.xml	(revision 0)
+++ vhUnitTest/DOM/EC/Winkelkar/TestWinkelkar.cls.xml	(revision 1566)
@@ -0,0 +1,103 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="9">
+<Class name="vhUnitTest.DOM.EC.Winkelkar.TestWinkelkar">
+<Description>
+do ##class(vhUnitTest.Manager).RunTest("/debug/Display=all","DOM.EC.Winkelkar.TestWinkelkar")</Description>
+<ProcedureBlock>1</ProcedureBlock>
+<Super>vhUnitTest.TestCase</Super>
+<ClassDefinitionError>0</ClassDefinitionError>
+
+<Method name="TestWinkelkar">
+<Implementation><![CDATA[
+	Set Winkelkar = ##class(vhUnitTest.DOM.EC.Winkelkar.UnitTestWinkelkar).%New("UnitTestWinkelkar")
+	
+	Set TekstLijn1 = ##class(DOM.EC.Winkelkar.TekstLijn).%New("Dit is een tekstlijn")
+	Set TekstLijn2 = ##class(DOM.EC.Winkelkar.TekstLijn).%New("Dit is een andere tekstlijn")
+	Set TekstLijn3 = ##class(DOM.EC.Winkelkar.TekstLijn).%New("Dit is nog een andere tekstlijn")
+	Set TekstLijn4 = ##class(DOM.EC.Winkelkar.TekstLijn).%New("En nog een andere tekstlijn")
+	
+	Do $$$AssertTrue(Winkelkar.IsWijzigbaar(),"De winkelkar is wijzigbaar (via method)")
+	Do $$$AssertTrue(Winkelkar.IsWijzigbaar,"De winkelkar is wijzigbaar (via property)")
+	
+	Do $$$AssertTrue(Winkelkar.IsVerwijderbaar(),"De winkelkar is verwijderbaar (via method)")
+	Do $$$AssertTrue(Winkelkar.IsVerwijderbaar,"De winkelkar is verwijderbaar (via property)")
+	
+	
+	Set VoegToeStatus = Winkelkar.VoegToe(TekstLijn1)
+	
+	Do $$$AssertTrue($$$ISOK(VoegToeStatus),"Lijn 1 werd correct toegevoegd")
+	
+	Set VerwijderStatus = Winkelkar.Verwijder(TekstLijn1)
+	
+	Do $$$AssertTrue($$$ISOK(VerwijderStatus),"Lijn 2 werd correct verwijderd")
+	
+	Do Winkelkar.VoegToe(TekstLijn1)
+	Do Winkelkar.VoegToe(TekstLijn3)
+	Do Winkelkar.VoegTussen(TekstLijn2,2)
+	
+	Set Iterator = Winkelkar.GeefLijnIterator()
+	
+	Do $$$AssertTrue(Iterator.HasNext(),"De winkelkar heeft een volgende lijn (1)")
+	Do $$$AssertEquals(Iterator.Next(),TekstLijn1,"Lijn1 zit op positie 1")
+	Do $$$AssertTrue(Iterator.HasNext(),"De winkelkar heeft een volgende lijn (2)")
+	Do $$$AssertEquals(Iterator.Next(),TekstLijn2,"Lijn2 zit op positie 2")
+	Do $$$AssertTrue(Iterator.HasNext(),"De winkelkar heeft een volgende lijn (3)")
+	Do $$$AssertEquals(Iterator.Next(),TekstLijn3,"Lijn3 zit op positie 3")
+	
+	Do Winkelkar.VoegTussen(TekstLijn4,1)
+	
+	Set Iterator = Winkelkar.GeefLijnIterator()
+	
+	Do $$$AssertTrue(Iterator.HasNext(),"De winkelkar heeft een volgende lijn (1)")
+	Do $$$AssertEquals(Iterator.Next(),TekstLijn4,"Lijn4 zit op positie 1")
+	Do $$$AssertTrue(Iterator.HasNext(),"De winkelkar heeft een volgende lijn (2)")
+	Do $$$AssertEquals(Iterator.Next(),TekstLijn1,"Lijn1 zit op positie 2")
+	Do $$$AssertTrue(Iterator.HasNext(),"De winkelkar heeft een volgende lijn (3)")
+	Do $$$AssertEquals(Iterator.Next(),TekstLijn2,"Lijn2 zit op positie 3")
+	Do $$$AssertTrue(Iterator.HasNext(),"De winkelkar heeft een volgende lijn (4)")
+	Do $$$AssertEquals(Iterator.Next(),TekstLijn3,"Lijn3 zit op positie 3")
+]]></Implementation>
+</Method>
+
+<Method name="TestOpslaan">
+<Implementation><![CDATA[
+	Set Winkelkar = ##class(vhUnitTest.DOM.EC.Winkelkar.UnitTestWinkelkar).%New("UnitTestWinkelkar")
+	
+	Set TekstLijn1 = ##class(DOM.EC.Winkelkar.TekstLijn).%New("Dit is een tekstlijn")
+	Set TekstLijn2 = ##class(DOM.EC.Winkelkar.TekstLijn).%New("Dit is een andere tekstlijn")
+	Set TekstLijn3 = ##class(DOM.EC.Winkelkar.TekstLijn).%New("Dit is nog een andere tekstlijn")
+	Set TekstLijn4 = ##class(DOM.EC.Winkelkar.TekstLijn).%New("En nog een andere tekstlijn")
+	
+	Do Winkelkar.VoegToe(TekstLijn1)
+	Set SaveStatus = Winkelkar.%Save()
+	
+	Do $$$AssertTrue($$$ISOK(SaveStatus),"De save is geslaagd")
+	
+	Do Winkelkar.VoegToe(TekstLijn2)
+	Set SaveStatus = Winkelkar.%Save()
+	
+	Do $$$AssertTrue($$$ISOK(SaveStatus),"De save is geslaagd")
+	
+	Set GevondenLijn = Winkelkar.GeefLijn(TekstLijn2.%Id())
+	
+	Do $$$AssertEquals(GevondenLijn,TekstLijn2,"De gevonden lijn is de gezochte lijn")
+]]></Implementation>
+</Method>
+
+<Method name="OnBeforeAllTests">
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[
+	Do ##class(vhUnitTest.DOM.EC.Winkelkar.UnitTestWinkelkar).%DeleteExtent()
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
+<Method name="OnAfterAllTests">
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[
+	Do ##class(vhUnitTest.DOM.EC.Winkelkar.UnitTestWinkelkar).%DeleteExtent()
+	Quit $$$OK
+]]></Implementation>
+</Method>
+</Class>
+</Export>
Index: CSC Winkelkar.prj.xml
===================================================================
diff -u -r1555 -r1566
--- CSC Winkelkar.prj.xml	(.../CSC Winkelkar.prj.xml)	(revision 1555)
+++ CSC Winkelkar.prj.xml	(.../CSC Winkelkar.prj.xml)	(revision 1566)
@@ -1,29 +1,16 @@
 <?xml version="1.0" encoding="UTF-8"?>
 <Export generator="Cache" version="9">
-<Project name="CSC Winkelkar" LastModified="2011-06-29 08:33:23">
+<Project name="CSC Winkelkar" LastModified="2011-06-30 08:54:36">
   <Items>
-    <ProjectItem name="DOM.EC.OL.Winkelkar.Adres" type="CLS"/>
-    <ProjectItem name="DOM.EC.OL.Winkelkar.Contactgegevens" type="CLS"/>
-    <ProjectItem name="DOM.EC.OL.Winkelkar.Derde" type="CLS"/>
-    <ProjectItem name="DOM.EC.OL.Winkelkar.FilterKeuze" type="CLS"/>
-    <ProjectItem name="DOM.EC.OL.Winkelkar.GroepLijn" type="CLS"/>
-    <ProjectItem name="DOM.EC.OL.Winkelkar.Hoofding" type="CLS"/>
-    <ProjectItem name="DOM.EC.OL.Winkelkar.LadeSpecificatie" type="CLS"/>
-    <ProjectItem name="DOM.EC.OL.Winkelkar.Levering" type="CLS"/>
-    <ProjectItem name="DOM.EC.OL.Winkelkar.Lijn" type="CLS"/>
-    <ProjectItem name="DOM.EC.OL.Winkelkar.OndernemingGegevens" type="CLS"/>
-    <ProjectItem name="DOM.EC.OL.Winkelkar.ProductCriteria" type="CLS"/>
-    <ProjectItem name="DOM.EC.OL.Winkelkar.ProductLijn" type="CLS"/>
-    <ProjectItem name="DOM.EC.OL.Winkelkar.TekstLijn" type="CLS"/>
-    <ProjectItem name="DOM.EC.OL.Winkelkar.Visitor.LijnBepaler" type="CLS"/>
-    <ProjectItem name="DOM.EC.OL.Winkelkar.Visitor.PrijsVastlegger" type="CLS"/>
-    <ProjectItem name="DOM.EC.OL.Winkelkar.Visitor.ProductLijnTeller" type="CLS"/>
-    <ProjectItem name="DOM.EC.OL.Winkelkar.Visitor.ProductenTeller" type="CLS"/>
-    <ProjectItem name="DOM.EC.OL.Winkelkar.Visitor.TotaalPrijsBepaler" type="CLS"/>
-    <ProjectItem name="DOM.EC.OL.Winkelkar.Visitor.WinkelkarToOfferte" type="CLS"/>
-    <ProjectItem name="DOM.EC.OL.Winkelkar.Visitor.WinkelkarVisitor" type="CLS"/>
-    <ProjectItem name="DOM.EC.OL.Winkelkar.Winkelkar" type="CLS"/>
-    <ProjectItem name="DOM.EC.OL.Winkelkar.dtoUtils" type="CLS"/>
+    <ProjectItem name="DOM.EC.Winkelkar.GroepLijn" type="CLS"/>
+    <ProjectItem name="DOM.EC.Winkelkar.Lijn" type="CLS"/>
+    <ProjectItem name="DOM.EC.Winkelkar.ProductLijn" type="CLS"/>
+    <ProjectItem name="DOM.EC.Winkelkar.TekstLijn" type="CLS"/>
+    <ProjectItem name="DOM.EC.Winkelkar.Winkelkar" type="CLS"/>
+    <ProjectItem name="DOM.EC.Winkelkar.WinkelkarVisitor" type="CLS"/>
+    <ProjectItem name="vhDeploy.Deploy20110629x1035" type="CLS"/>
+    <ProjectItem name="vhUnitTest.DOM.EC.Winkelkar.TestWinkelkar" type="CLS"/>
+    <ProjectItem name="vhUnitTest.DOM.EC.Winkelkar.UnitTestWinkelkar" type="CLS"/>
   </Items>
 </Project>
 </Export>
Index: DOM/EC/Winkelkar/ProductLijn.cls.xml
===================================================================
diff -u -r1560 -r1566
--- DOM/EC/Winkelkar/ProductLijn.cls.xml	(.../ProductLijn.cls.xml)	(revision 1560)
+++ DOM/EC/Winkelkar/ProductLijn.cls.xml	(.../ProductLijn.cls.xml)	(revision 1566)
@@ -6,53 +6,21 @@
 <Super>DOM.EC.Winkelkar.Lijn,DOM.common.ProductLijn</Super>
 <ClassDefinitionError>0</ClassDefinitionError>
 
-<Index name="Prod">
-<Properties>Product</Properties>
-</Index>
-
-<Property name="FilterKeuzes">
-<Type>DOM.EC.Winkelkar.FilterKeuze</Type>
-<Collection>list</Collection>
-</Property>
-
-<Property name="ProductCriteria">
-<Type>DOM.EC.Winkelkar.ProductCriteria</Type>
-</Property>
-
-<Property name="LadeSpecificatie">
-<Type>DOM.EC.Winkelkar.LadeSpecificatie</Type>
-</Property>
-
-<Property name="Zoekterm">
-<Type>%String</Type>
-</Property>
-
-<Property name="KenmerkUnID">
-<Type>%String</Type>
-<Required>1</Required>
-</Property>
-
-<Property name="Prijs">
-<Type>DOM.common.Prijs</Type>
-</Property>
-
 <Method name="%OnNew">
-<FormalSpec>KenmerkUnID:%String,Aantal:Integer</FormalSpec>
+<FormalSpec>Product:Prod.Product,Aantal:Integer</FormalSpec>
 <Private>1</Private>
 <ProcedureBlock>1</ProcedureBlock>
 <ReturnType>%Status</ReturnType>
 <Implementation><![CDATA[
-	
-	Set ..KenmerkUnID = KenmerkUnID
-	Set ..Product = ##class(Prod.Product).%OpenId(##class(BL.Kenm.ProdMulti).GetCommonID(KenmerkUnID)) 
+	Set ..Product = Product
 	Set ..Aantal = Aantal
 	
 	Quit ##super()
 ]]></Implementation>
 </Method>
 
 <Method name="Accept">
-<FormalSpec>Visitor:DOM.EC.Winkelkar.Visitor.WinkelkarVisitor</FormalSpec>
+<FormalSpec>Visitor:DOM.EC.Winkelkar.WinkelkarVisitor</FormalSpec>
 <ReturnType>%Status</ReturnType>
 <Implementation><![CDATA[	Quit Visitor.VerwerkProductLijn(##this)
 ]]></Implementation>
FishEye: Tag 1566 refers to a dead (removed) revision in file `DOM/EC/Winkelkar/ProductCriteria.cls.xml'.
FishEye: No comparison available.  Pass `N' to diff?
FishEye: Tag 1566 refers to a dead (removed) revision in file `DOM/EC/Winkelkar/Hoofding.cls.xml'.
FishEye: No comparison available.  Pass `N' to diff?
Index: zTryout/CSC/Timing/Writer.cls.xml
===================================================================
diff -u -r1222 -r1566
--- zTryout/CSC/Timing/Writer.cls.xml	(.../Writer.cls.xml)	(revision 1222)
+++ zTryout/CSC/Timing/Writer.cls.xml	(.../Writer.cls.xml)	(revision 1566)
@@ -3,7 +3,6 @@
 <Class name="zTryout.CSC.Timing.Writer">
 <ProcedureBlock>1</ProcedureBlock>
 <Super>%RegisteredObject</Super>
-<ClassDefinitionError>0</ClassDefinitionError>
 
 <Property name="Context">
 <Type>%String</Type>
@@ -17,6 +16,8 @@
 <Implementation><![CDATA[
 	Set ..Context = Context
 	Quit $$$OK
+
+
 ]]></Implementation>
 </Method>
 
@@ -74,6 +75,8 @@
 	}
 	
 	Do ..Verwerk(Index.GetAt(StartLabel))
+
+
 ]]></Implementation>
 </Method>
 
@@ -94,6 +97,8 @@
 	{
 		Do ..Verwerk(Iterator.Next(),(Niveau+1))
 	}
+
+
 ]]></Implementation>
 </Method>
 
Index: vhUnitTest/DOM/EC/Winkelkar/UnitTestWinkelkar.cls.xml
===================================================================
diff -u
--- vhUnitTest/DOM/EC/Winkelkar/UnitTestWinkelkar.cls.xml	(revision 0)
+++ vhUnitTest/DOM/EC/Winkelkar/UnitTestWinkelkar.cls.xml	(revision 1566)
@@ -0,0 +1,25 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="9">
+<Class name="vhUnitTest.DOM.EC.Winkelkar.UnitTestWinkelkar">
+<ClassType>persistent</ClassType>
+<ProcedureBlock>1</ProcedureBlock>
+<Super>DOM.EC.Winkelkar.Winkelkar</Super>
+<ClassDefinitionError>0</ClassDefinitionError>
+
+<Method name="IsWijzigbaar">
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[	Quit 1
+]]></Implementation>
+</Method>
+
+<Method name="IsVerwijderbaar">
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[	Quit 1
+]]></Implementation>
+</Method>
+
+<Storage name="Default">
+<Type>%Library.CacheStorage</Type>
+</Storage>
+</Class>
+</Export>
Index: DOM/EC/Winkelkar/Lijn.cls.xml
===================================================================
diff -u -r1560 -r1566
--- DOM/EC/Winkelkar/Lijn.cls.xml	(.../Lijn.cls.xml)	(revision 1560)
+++ DOM/EC/Winkelkar/Lijn.cls.xml	(.../Lijn.cls.xml)	(revision 1566)
@@ -9,6 +9,7 @@
 <Import>DOM.EC.OL.Winkelkar.Visitor</Import>
 <ProcedureBlock>1</ProcedureBlock>
 <Super>%Persistent</Super>
+<ClassDefinitionError>0</ClassDefinitionError>
 
 <Property name="Lijst">
 <Type>DOM.EC.Winkelkar.Winkelkar</Type>
@@ -27,13 +28,12 @@
 <Description>
 Visitor support, moet in elke concrete lijn geïmplementeerd worden</Description>
 <Abstract>1</Abstract>
-<FormalSpec>Visitor:DOM.EC.Winkelkar.Visitor.WinkelkarVisitor</FormalSpec>
+<FormalSpec>Visitor:DOM.EC.Winkelkar.WinkelkarVisitor</FormalSpec>
 <ReturnType>%Status</ReturnType>
 <Implementation><![CDATA[
 	Quit Visitor.VerwerkLijn(##this)
 
 	Quit $$$OK
-
 ]]></Implementation>
 </Method>
 
@@ -43,43 +43,37 @@
 Als deze method niet $$$OK teruggeeft, wordt de lijn niet verwijderd.</Description>
 <FormalSpec>Pos:%Integer</FormalSpec>
 <ReturnType>%Status</ReturnType>
-<Implementation><![CDATA[
-	Quit $$$OK
-
+<Implementation><![CDATA[	Quit $$$OK
 ]]></Implementation>
 </Method>
 
 <Method name="GeefLijnTekst">
 <Abstract>1</Abstract>
 <ReturnType>%String</ReturnType>
-<Implementation><![CDATA[
-]]></Implementation>
+<Implementation><![CDATA[]]></Implementation>
 </Method>
 
 <Method name="GeefPrijsTekst">
 <Abstract>1</Abstract>
 <ReturnType>%String</ReturnType>
-<Implementation><![CDATA[
-]]></Implementation>
+<Implementation><![CDATA[]]></Implementation>
 </Method>
 
 <Method name="%OnNew">
 <Private>1</Private>
 <ProcedureBlock>1</ProcedureBlock>
 <ReturnType>%Status</ReturnType>
-<Implementation><![CDATA[
-	Quit $$$OK
-
+<Implementation><![CDATA[	Quit $$$OK
 ]]></Implementation>
 </Method>
 
 <Storage name="Default">
 <Type>%Library.CacheStorage</Type>
 <DataLocation>{%%PARENT}("Inhoud")</DataLocation>
 <DefaultData>LijnDefaultData</DefaultData>
-<IdLocation>^DOM.EC.OL.WinkelkarC("Inhoud")</IdLocation>
-<IndexLocation>^DOM.EC.OL.Winkelkar.LijnI</IndexLocation>
-<StreamLocation>^DOM.EC.OL.Winkelkar.LijnS</StreamLocation>
+<IdLocation>^DOM.EC.Winkelkar.WinkelkarC("Inhoud")</IdLocation>
+<IndexLocation>^DOM.EC.Winkelkar.LijnI</IndexLocation>
+<StreamLocation>^DOM.EC.Winkelkar.LijnS</StreamLocation>
 <Data name="LijnDefaultData">
 <Value name="1">
 <Value>%%CLASSNAME</Value>
FishEye: Tag 1566 refers to a dead (removed) revision in file `DOM/EC/Winkelkar/LadeSpecificatie.cls.xml'.
FishEye: No comparison available.  Pass `N' to diff?
Index: DOM/EC/Winkelkar/WinkelkarVisitor.cls.xml
===================================================================
diff -u
--- DOM/EC/Winkelkar/WinkelkarVisitor.cls.xml	(revision 0)
+++ DOM/EC/Winkelkar/WinkelkarVisitor.cls.xml	(revision 1566)
@@ -0,0 +1,66 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="9">
+<Class name="DOM.EC.Winkelkar.WinkelkarVisitor">
+<Description>
+Visitor voor verlanglijsten. Verlanglijst zelf accepteert deze visitor, alsook
+de individuele lijnen.  Groepen worden aangekondigd en afgekondigd. </Description>
+<Import>DOM.EC.OL.Winkelkar</Import>
+<ProcedureBlock>1</ProcedureBlock>
+<Super>%RegisteredObject</Super>
+<ClassDefinitionError>0</ClassDefinitionError>
+
+<Method name="VerwerkGroepLijn">
+<Description>
+Verwerking van de subgroepen.</Description>
+<Final>1</Final>
+<FormalSpec>GroepLijn:DOM.EC.Winkelkar.GroepLijn</FormalSpec>
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[
+	Do ..VerwerkGroepBegin(GroepLijn)
+	Set it = GroepLijn.SublijnIterator()
+	while (it.HasNext()) {
+		Set Lijn = it.Next()
+		
+		Do Lijn.Accept(##this)
+		Set Lijn=""
+	}
+	Do ..VerwerkGroepEind(GroepLijn)
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
+<Method name="VerwerkProductLijn">
+<FormalSpec>ProductLijn:DOM.EC.Winkelkar.ProductLijn</FormalSpec>
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[	Quit $$$OK
+]]></Implementation>
+</Method>
+
+<Method name="VerwerkTekstLijn">
+<FormalSpec>TekstLijn:DOM.EC.Winkelkar.TekstLijn</FormalSpec>
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[	Quit $$$OK
+]]></Implementation>
+</Method>
+
+<Method name="VerwerkGroepBegin">
+<FormalSpec>GroepLijn:DOM.EC.Winkelkar.GroepLijn</FormalSpec>
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[	Quit $$$OK
+]]></Implementation>
+</Method>
+
+<Method name="VerwerkGroepEind">
+<FormalSpec>GroepLijn:DOM.EC.Winkelkar.GroepLijn</FormalSpec>
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[	Quit $$$OK
+]]></Implementation>
+</Method>
+
+<Method name="Finalize">
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[	Quit $$$OK
+]]></Implementation>
+</Method>
+</Class>
+</Export>
FishEye: Tag 1566 refers to a dead (removed) revision in file `DOM/EC/Winkelkar/Levering.cls.xml'.
FishEye: No comparison available.  Pass `N' to diff?
Index: DOM/EC/Winkelkar/Winkelkar.cls.xml
===================================================================
diff -u -r1560 -r1566
--- DOM/EC/Winkelkar/Winkelkar.cls.xml	(.../Winkelkar.cls.xml)	(revision 1560)
+++ DOM/EC/Winkelkar/Winkelkar.cls.xml	(.../Winkelkar.cls.xml)	(revision 1566)
@@ -2,9 +2,8 @@
 <Export generator="Cache" version="9">
 <Class name="DOM.EC.Winkelkar.Winkelkar">
 <Description>
-Winkelkar.  Een Winkelkar kan concrete producten bevatten, tekstlijnen en
-filtercriteria.  Alles kan gegroepeerd worden in groepen.  Groepen kunnen genest worden.
-Gebruik steeds de operaties Open, Create en Delete ipv de onderliggende %OpenId etc.
+Winkelkar.  Een Winkelkar kan concrete producten bevatten en tekstlijnen.
+Alles kan gegroepeerd worden in groepen.  Groepen kunnen genest worden.
 
 De volgorde van de lijnen is gegarandeerd maar is niet zondermeer via een SQL query te achterhalen.  
 Bij het gebruik van een Visitor wordt de volgorde wel gerespecteerd.
@@ -13,18 +12,15 @@
 <Import>DOM.EC.OL.Winkelkar.Visitor</Import>
 <IncludeCode>TECH.Error,vhLib.Macro</IncludeCode>
 <ProcedureBlock>1</ProcedureBlock>
-<Super>%Persistent</Super>
+<Super>TECH.VhChangeInfo</Super>
 <ClassDefinitionError>0</ClassDefinitionError>
 
-<Property name="Hoofding">
-<Description>
-Voorlopig niet polymorf (CLASSNAME=1) want dan zijn de SQL-tabellen fout (???)</Description>
-<Type>DOM.EC.Winkelkar.Hoofding</Type>
+<Property name="Klant">
+<Type>Derde.Klant.Klant</Type>
 </Property>
 
-<Property name="ID">
-<Type>%Integer</Type>
-<Required>1</Required>
+<Property name="ApplicatieNaam">
+<Type>%String</Type>
 </Property>
 
 <Property name="Root">
@@ -43,37 +39,27 @@
 <Relationship>1</Relationship>
 </Property>
 
-<Index name="Main">
-<IdKey>1</IdKey>
-<Properties>ID</Properties>
-<Unique>1</Unique>
-</Index>
+<Property name="IsWijzigbaar">
+<Type>%Boolean</Type>
+<Calculated>1</Calculated>
+<SqlComputeCode>Set {*}=##class(DOM.EC.Winkelkar.Winkelkar).%OpenId({ID}).IsWijzigbaar()</SqlComputeCode>
+<SqlComputed>1</SqlComputed>
+</Property>
 
-<Property name="LaatstGebruikt">
-<Description>
-Datum waarop winkelkar voor het laatste gebruikt werd.
-Kan gecreeerd of geopend zijn.</Description>
-<Type>%Integer</Type>
+<Property name="IsVerwijderbaar">
+<Type>%Boolean</Type>
+<Calculated>1</Calculated>
+<SqlComputeCode>Set {*}=##class(DOM.EC.Winkelkar.Winkelkar).%OpenId({ID}).IsVerwijderbaar()</SqlComputeCode>
+<SqlComputed>1</SqlComputed>
 </Property>
 
-<Method name="WijzigingenToegelaten">
-<ReturnType>Boolean</ReturnType>
-<Implementation><![CDATA[
-	set result = $$$Not(..Hoofding.Besteld) 
-	
-	if result set result = $$$Not(..Hoofding.BetalingBevestigd)
-	
-	quit result
-]]></Implementation>
-</Method>
-
 <Method name="%OnNew">
-<FormalSpec>ID:%Integer</FormalSpec>
+<FormalSpec>ApplicatieNaam:%String</FormalSpec>
 <Private>1</Private>
 <ProcedureBlock>1</ProcedureBlock>
 <ReturnType>%Status</ReturnType>
 <Implementation><![CDATA[
-	Set ..ID = ID
+	Set ..ApplicatieNaam = ApplicatieNaam
 	Set ..Root = ##class(DOM.EC.Winkelkar.GroepLijn).%New("ROOT")
 	
 	Do ..Inhoud.Insert(..Root)
@@ -82,7 +68,31 @@
 ]]></Implementation>
 </Method>
 
-<Method name="Iterator">
+<Method name="IsWijzigbaar">
+<Abstract>1</Abstract>
+<ReturnType>%Boolean</ReturnType>
+</Method>
+
+<Method name="IsVerwijderbaar">
+<Abstract>1</Abstract>
+<ReturnType>%Boolean</ReturnType>
+</Method>
+
+<Method name="IsWijzigbaarGet">
+<Final>1</Final>
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[	Quit ..IsWijzigbaar()
+]]></Implementation>
+</Method>
+
+<Method name="IsVerwijderbaarGet">
+<Final>1</Final>
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[	Quit ..IsVerwijderbaar()
+]]></Implementation>
+</Method>
+
+<Method name="GeefLijnIterator">
 <Description>
 Een iterator over de lijnen van de lijst</Description>
 <ReturnType>TECH.ListIterator</ReturnType>
@@ -94,27 +104,17 @@
 <FormalSpec>Lijn:DOM.EC.Winkelkar.Lijn,InsertPos:%String</FormalSpec>
 <Implementation><![CDATA[
 	Do ..Inhoud.Insert(Lijn)
-	Set rc = ..Root.VoegTussen(Lijn, InsertPos)
-	Quit rc
+	Quit ..Root.VoegTussen(Lijn, InsertPos)
 ]]></Implementation>
 </Method>
 
 <Method name="VoegToe">
 <FormalSpec>Lijn:DOM.EC.Winkelkar.Lijn</FormalSpec>
+<ReturnType>%Status</ReturnType>
 <Implementation><![CDATA[
-	#define LockTimeout		1
-	
-	$$$LockObjCon($length(..ID),##this,..ID,$$$LockTimeout)
-	else  $$$ThrowError($$$errLocked,"Winkelkar "_..ID)
-	
 	Do ..Inhoud.Insert(Lijn)
-	Set scVoegtoe = ..Root.VoegToe(Lijn)
 	
-	if $$$ISERR(scVoegtoe) $$$ThrowErrorStatus($$$errSaveFailed,"Winkelkar "_..ID,scVoegtoe)
-	
-	$$$UnLockObjCon($length(..ID),##this,..ID)
-
-	quit
+	Quit ..Root.VoegToe(Lijn)
 ]]></Implementation>
 </Method>
 
@@ -140,9 +140,7 @@
 open staan.  Bv. een iterator of een lijn teruggegeven door een iterator.</Description>
 <FormalSpec>Lijn:DOM.EC.Winkelkar.Lijn</FormalSpec>
 <ReturnType>%Status</ReturnType>
-<Implementation><![CDATA[
-	//w "Winkelkar.Verwijder", !
-	Quit ..Root.Verwijder(Lijn)
+<Implementation><![CDATA[	Quit ..Root.Verwijder(Lijn)
 ]]></Implementation>
 </Method>
 
@@ -154,16 +152,10 @@
 <FormalSpec>Lijn:DOM.EC.Winkelkar.Lijn</FormalSpec>
 <ReturnType>%Status</ReturnType>
 <Implementation><![CDATA[
-	Set Pos = ..Inhoud.FindObjectId(Lijn.%Id())
-	Quit:('Pos) $$$ERROR($$$GeneralError,"Te verwijderen lijn niet gevonden")
-	if (Pos) { 
-		Set rc = ..Inhoud.RemoveAt(Pos)
-		if (rc '= "") {
-			Quit $$$OK
-		} else {
-			Quit $$$ERROR($$$GeneralError,"Fout bij verwijderen van lijn")
-		}
-	}
+	Set Status = $$$OK
+	Set IsVerwijderd = ##class(TECH.ListUtils).RemoveObjectFromList(Lijn,..Inhoud)
+	If ('IsVerwijderd) { Set Status = $$$ERROR($$$GeneralError,"Te verwijderen lijn niet gevonden") }
+	Quit Status
 ]]></Implementation>
 </Method>
 
@@ -172,41 +164,38 @@
 <ReturnType>DOM.EC.Winkelkar.Lijn</ReturnType>
 <Implementation><![CDATA[
 	$$$chkRequiredParameter(UnID)
+
+	if ('##class(DOM.EC.Winkelkar.Lijn).%ExistsId(UnID)) { $$$ThrowError($$$errInvalidID,"WinkelkarLijnID "_UnID_" onbestaand") }
 	
-	if $$$Not(UnID["||") $$$ThrowError($$$errInvalidID,"WinkelkarLijnID "_UnID_" invalid")
+	Set Index = ..Inhoud.FindObjectId(UnID) 
 	
-	if $$$Not(##class(DOM.EC.Winkelkar.Lijn).%ExistsId(UnID)) {
-	 	$$$ThrowError($$$errInvalidID,"WinkelkarLijnID "_UnID_" onbestaand")
+	Set Lijn = ""
+	If $Length(Index)
+	{
+		Set Lijn = ..Inhoud.GetAt(Index)
 	}
-	
-	if $length(..%Id()) && ( $piece(UnID,"||")'=..%Id() ) {
-		$$$ThrowError($$$errInvalidID,"WinkelkarLijnID "_UnID_" niet geldig voor gevraagde winkelkar")	
+	Else
+	{
+		$$$ThrowError($$$errObjectExpected,"WinkelkarLijnID Index "_UnID_" onbestaand")
 	}
 	
-	Set Index = ..Inhoud.FindObjectId(UnID) 
-	
-	if $length(Index) { set Lijn = ..Inhoud.GetAt(Index) }
-	else { $$$ThrowError($$$errObjectExpected,"WinkelkarLijnID Index "_UnID_" onbestaand") }
-	
-	quit Lijn
+	Quit Lijn
 ]]></Implementation>
 </Method>
 
 <Method name="Accept">
 <Description>
 WinkelkarVisitors welkom...</Description>
-<FormalSpec>Visitor:DOM.EC.Winkelkar.Visitor.WinkelkarVisitor</FormalSpec>
+<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.
+	// 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.
+		// Een visitor moet zelf voor het bezoek van de subgroepen zorgen.
 		if ('Item.Groep) { Do Item.Accept(Visitor) }
 		Set Item=""
 	} 
@@ -218,126 +207,6 @@
 ]]></Implementation>
 </Method>
 
-<Method name="ConvertToOfferte">
-<Implementation><![CDATA[
-	
-	
-	;quit  // ConvertToOfferte wordt voorlopig nog tegen gehouden..
-	
-	set visWinkelkarToOfferte = ##class(DOM.EC.Winkelkar.Visitor.WinkelkarToOfferte).%New(##this)
-	
-	// voor verdere verwerking moet "%blFlowOfferte" gebruikt worden zoniet ontstaan er undefs
-	set %blFlowOfferte = ##class(BL.Flow.Offerte.Build).%New()  
-	
-	do ..Accept(visWinkelkarToOfferte) // visitor accepteren zal offerte object opbouwen 
-	
-	set %blFlowOfferte.oOfferte = visWinkelkarToOfferte.Offerte   // opgebouwd offerte object toekennen
-
-	do %blFlowOfferte.GenerateAll()
-
-	set scSaveOfferte = %blFlowOfferte.Save()	// opgebouwde offerte opslaan
-	if $$$ISERR(scSaveOfferte) $$$ThrowErrorStatus($$$errSaveFailed,"Offerte",scSaveOfferte)
-
-	set %blFlowOfferte.oOfferte.Status =  ##class(Flow.Offerte.enu.OfferteStatus).Wachtend() // offerte status wijzigen naar Wachtend
-	do %blFlowOfferte.Send2OrderVerwerking()  // Mail verzenden naar order verwerking
-	
-	set scSaveOfferte = %blFlowOfferte.Save() // offerte nogmaals opslaan
-	if $$$ISERR(scSaveOfferte) $$$ThrowErrorStatus($$$errSaveFailed,"Offerte",scSaveOfferte)
-
-	quit
-]]></Implementation>
-</Method>
-
-<Method name="ControleTotaalPrijs">
-<FormalSpec>Bedrag</FormalSpec>
-<Implementation><![CDATA[
-	set TotaalPrijsBepaler = ##class(DOM.EC.Winkelkar.Visitor.TotaalPrijsBepaler).%New()
-	do ..Accept(TotaalPrijsBepaler)
-	if $$$Not((Bedrag=TotaalPrijsBepaler.TotaalPrijsIncl)) $$$ThrowError($$$errUserError,"TotaalBedragVerschillend")
-	
-	quit
-]]></Implementation>
-</Method>
-
-<Method name="Open">
-<Description>
-Open een Winkelkar adhv een ID</Description>
-<ClassMethod>1</ClassMethod>
-<FormalSpec>ID:%Integer</FormalSpec>
-<ReturnType>DOM.EC.Winkelkar.Winkelkar</ReturnType>
-<Implementation><![CDATA[	Quit ..%OpenId(ID)
-]]></Implementation>
-</Method>
-
-<Method name="OpenOrCreate">
-<Description>
-Open een Winkelkar adhv een ID als ID niet bestaat maak nieuwe aan</Description>
-<ClassMethod>1</ClassMethod>
-<FormalSpec>ID:%Integer</FormalSpec>
-<ReturnType>DOM.EC.Winkelkar.Winkelkar</ReturnType>
-<Implementation><![CDATA[
-	
-	if ..%ExistsId(ID) { set Winkelkar = ..Open(ID) }
-	else  { set Winkelkar = ..Create(ID) }
-	Quit Winkelkar
-]]></Implementation>
-</Method>
-
-<Method name="Delete">
-<Description>
-Delete een Winkelkar.  De hele lijst wordt gedelete, inclusief alle groepen.
-Bemerk da wanneer de lijst geen groeplijnen bevat en er toch nog groepen
-bestaan, de niet-gerefereerde groepen niet gedelete zullen worden.</Description>
-<ClassMethod>1</ClassMethod>
-<FormalSpec>ID:%Integer</FormalSpec>
-<ReturnType>%Boolean</ReturnType>
-<Implementation><![CDATA[	Quit ..%DeleteId(ID)
-]]></Implementation>
-</Method>
-
-<Method name="Save">
-<ReturnType>%Status</ReturnType>
-<Implementation><![CDATA[
-	Set ..LaatstGebruikt = +$h
-	set scSaved = ..%Save()
-	quit scSaved
-]]></Implementation>
-</Method>
-
-<Method name="Create">
-<Description>
-Maak een nieuwe Winkelkar met een opgegeven ID</Description>
-<ClassMethod>1</ClassMethod>
-<FormalSpec>ID:%Integer=""</FormalSpec>
-<ReturnType>DOM.EC.Winkelkar.Winkelkar</ReturnType>
-<Implementation><![CDATA[
-	if '$length(ID) set ID = ..GetNewID()
-	Quit ..%New(ID)
-]]></Implementation>
-</Method>
-
-<Method name="GetNewID">
-<ClassMethod>1</ClassMethod>
-<ReturnType>%Integer</ReturnType>
-<Implementation><![CDATA[	quit $increment(^DOM.EC.OL.WinkelkarD)
-]]></Implementation>
-</Method>
-
-<Method name="VerwijderOudeWinkelkarren">
-<Description>
-Niet gebruikte winkelkarren na x-aantal maanden verwijderen
-Do ##class(DOM.EC.OL.Winkelkar.Winkelkar).VerwijderOudeWinkelkarren()</Description>
-<ClassMethod>1</ClassMethod>
-<Implementation><![CDATA[
-	#define AantalMaanden 2
-	
-	Set Datum = ##class(TECH.DateTime).DatumBereken(##class(TECH.DateTime).CurrentDate(),-$$$AantalMaanden,##class(TECH.enu.DatePart).Maand())
-	&SQL(DELETE FROM DOM_EC_Winkelkar.Winkelkar 
-		where NOT (Hoofding_Besteld = 1 AND Hoofding_BetalingBevestigd = 1 )
-		AND LaatstGebruikt < :Datum)
-]]></Implementation>
-</Method>
-
 <Storage name="Default">
 <Type>%Library.CacheStorage</Type>
 <DataLocation>^DOM.EC.Winkelkar.WinkelkarD</DataLocation>
@@ -350,12 +219,27 @@
 <Value>%%CLASSNAME</Value>
 </Value>
 <Value name="2">
-<Value>Hoofding</Value>
+<Value>AangemaaktDoor</Value>
 </Value>
 <Value name="3">
-<Value>LaatstGebruikt</Value>
+<Value>AangemaaktOp</Value>
 </Value>
 <Value name="4">
+<Value>ApplicatieNaam</Value>
+</Value>
+<Value name="5">
+<Value>GewijzigdDoor</Value>
+</Value>
+<Value name="6">
+<Value>GewijzigdOp</Value>
+</Value>
+<Value name="7">
+<Value>InstanceVersion</Value>
+</Value>
+<Value name="8">
+<Value>Klant</Value>
+</Value>
+<Value name="9">
 <Value>Root</Value>
 </Value>
 </Data>
FishEye: Tag 1566 refers to a dead (removed) revision in file `DOM/EC/Winkelkar/OndernemingGegevens.cls.xml'.
FishEye: No comparison available.  Pass `N' to diff?
FishEye: Tag 1566 refers to a dead (removed) revision in file `DOM/EC/Winkelkar/Derde.cls.xml'.
FishEye: No comparison available.  Pass `N' to diff?
FishEye: Tag 1566 refers to a dead (removed) revision in file `DOM/EC/Winkelkar/dtoUtils.cls.xml'.
FishEye: No comparison available.  Pass `N' to diff?
FishEye: Tag 1566 refers to a dead (removed) revision in file `DOM/EC/Winkelkar/FilterKeuze.cls.xml'.
FishEye: No comparison available.  Pass `N' to diff?
Index: DOM/EC/Winkelkar/GroepLijn.cls.xml
===================================================================
diff -u -r1560 -r1566
--- DOM/EC/Winkelkar/GroepLijn.cls.xml	(.../GroepLijn.cls.xml)	(revision 1560)
+++ DOM/EC/Winkelkar/GroepLijn.cls.xml	(.../GroepLijn.cls.xml)	(revision 1566)
@@ -30,7 +30,7 @@
 </Method>
 
 <Method name="Accept">
-<FormalSpec>Visitor:DOM.EC.Winkelkar.Visitor.WinkelkarVisitor</FormalSpec>
+<FormalSpec>Visitor:DOM.EC.Winkelkar.WinkelkarVisitor</FormalSpec>
 <ReturnType>%Status</ReturnType>
 <Implementation><![CDATA[	Quit Visitor.VerwerkGroepLijn(##this)
 ]]></Implementation>
@@ -42,8 +42,6 @@
 <FormalSpec>Pos:%Integer</FormalSpec>
 <ReturnType>%Status</ReturnType>
 <Implementation><![CDATA[
-	//w "OnBeforeVerwijder op groep ", ..Naam, !
-	
 	// We kunnen hier geen iterator gebruiken vermits het deleten 
 	// interfereert met de iteratie zodat we producten zouden overslaan.
 	// We verwijderen daarom telkens het eerste element van de lijst.
@@ -55,10 +53,8 @@
 	while (Count > 0 && (VerwijderStatus = $$$OK)) {
 		// Eerste element van de lijst
 		Set Lijn = ..Sublijnen.GetNext("")
-		//w "Calling OnVerwijder on ", Lijn,!
 		Set VerwijderStatus = Lijn.OnBeforeVerwijder()
 		if (VerwijderStatus = $$$OK) {
-			//w "OnBeforeVerwijder returned OK, deleting line",!
 			Set VerwijderStatus = ..VerwijderPos(Lijn, 1)
 		}
 		Set Count = Count - 1
@@ -70,7 +66,7 @@
 <Method name="VoegTussen">
 <FormalSpec>Lijn:DOM.EC.Winkelkar.Lijn,InsertPos:%String</FormalSpec>
 <Implementation><![CDATA[
-	Set Lijn.Groep = ##this
+	//Set Lijn.Groep = ##this
 	if (..Lijst) { Do ..Lijst.VoegToeInternal(Lijn) }
 	Set rc = ..Sublijnen.InsertAt(Lijn, InsertPos)
 	Quit rc
@@ -80,7 +76,7 @@
 <Method name="VoegToe">
 <FormalSpec>Lijn:DOM.EC.Winkelkar.Lijn</FormalSpec>
 <Implementation><![CDATA[
-	Set Lijn.Groep = ##this
+	//Set Lijn.Groep = ##this
 	if (..Lijst) { Do ..Lijst.VoegToeInternal(Lijn) }
 	Set rc = ..Sublijnen.Insert(Lijn)
 	Quit rc
@@ -109,19 +105,15 @@
 <FormalSpec>Lijn:DOM.EC.Winkelkar.Lijn</FormalSpec>
 <ReturnType>%Status</ReturnType>
 <Implementation><![CDATA[
-	//w "Verwijderen van Lijn ", Lijn, " uit " , ..Naam, !
 	Set it = ..SublijnIterator()
 	Set Found = 0
 	Set VerwijderStatus = $$$OK
 	while (it.HasNext() && (' Found) && (VerwijderStatus = $$$OK)) {
 		Set Lijn2 = it.Next()
-		//w "Zoeken, momenteel bij Lijn ", Lijn2, !
 		if (Lijn2 = Lijn) {
 			Set Found = 1
-			//w "Calling OnVerwijder on ", Lijn,!
 			Set VerwijderStatus = Lijn.OnBeforeVerwijder()
 			if (VerwijderStatus = $$$OK) {
-				//w "OnVerwijder returned OK, deleting line",!
 				Set VerwijderStatus = ..VerwijderPos(Lijn, it.Key())
 			}
 		}
@@ -138,7 +130,6 @@
 <Private>1</Private>
 <ReturnType>%Status</ReturnType>
 <Implementation><![CDATA[
-	//w "VerwijderPos ", Lijn, " Pos=", Pos, !
 	// TODO Error handling of RemoveAt, but it seems to return something else than
 	// documented -> omitted for now
 	Do ..Sublijnen.RemoveAt(Pos)
FishEye: Tag 1566 refers to a dead (removed) revision in file `DOM/EC/Winkelkar/Contactgegevens.cls.xml'.
FishEye: No comparison available.  Pass `N' to diff?
Index: DOM/EC/Winkelkar/TekstLijn.cls.xml
===================================================================
diff -u -r1560 -r1566
--- DOM/EC/Winkelkar/TekstLijn.cls.xml	(.../TekstLijn.cls.xml)	(revision 1560)
+++ DOM/EC/Winkelkar/TekstLijn.cls.xml	(.../TekstLijn.cls.xml)	(revision 1566)
@@ -18,7 +18,7 @@
 </Method>
 
 <Method name="Accept">
-<FormalSpec>Visitor:DOM.EC.Winkelkar.Visitor.WinkelkarVisitor</FormalSpec>
+<FormalSpec>Visitor:DOM.EC.Winkelkar.WinkelkarVisitor</FormalSpec>
 <ReturnType>%Status</ReturnType>
 <Implementation><![CDATA[	Quit Visitor.VerwerkTekstLijn(##this)
 ]]></Implementation>
@@ -28,6 +28,7 @@
 <Type>%Library.CacheStorage</Type>
 <DefaultData>TekstLijnDefaultData</DefaultData>
 <Data name="TekstLijnDefaultData">
+<Structure>listnode</Structure>
 <Subscript>"TekstLijn"</Subscript>
 <Value name="1">
 <Value>Tekst</Value>
FishEye: Tag 1566 refers to a dead (removed) revision in file `DOM/EC/Winkelkar/Adres.cls.xml'.
FishEye: No comparison available.  Pass `N' to diff?
FishEye: Tag 1566 refers to a dead (removed) revision in file `DOM/EC/Winkelkar/Visitor/LijnBepaler.cls.xml'.
FishEye: No comparison available.  Pass `N' to diff?
FishEye: Tag 1566 refers to a dead (removed) revision in file `DOM/EC/Winkelkar/Visitor/WinkelkarToOfferte.cls.xml'.
FishEye: No comparison available.  Pass `N' to diff?
FishEye: Tag 1566 refers to a dead (removed) revision in file `DOM/EC/Winkelkar/Visitor/TotaalPrijsBepaler.cls.xml'.
FishEye: No comparison available.  Pass `N' to diff?
FishEye: Tag 1566 refers to a dead (removed) revision in file `DOM/EC/Winkelkar/Visitor/ProductLijnTeller.cls.xml'.
FishEye: No comparison available.  Pass `N' to diff?
FishEye: Tag 1566 refers to a dead (removed) revision in file `DOM/EC/Winkelkar/Visitor/ProductenTeller.cls.xml'.
FishEye: No comparison available.  Pass `N' to diff?
FishEye: Tag 1566 refers to a dead (removed) revision in file `DOM/EC/Winkelkar/Visitor/WinkelkarVisitor.cls.xml'.
FishEye: No comparison available.  Pass `N' to diff?
FishEye: Tag 1566 refers to a dead (removed) revision in file `DOM/EC/Winkelkar/Visitor/PrijsVastlegger.cls.xml'.
FishEye: No comparison available.  Pass `N' to diff?