Index: vhUnitTest/APPS/EC/Winkelkar/TestWinkelkarService.cls.xml
===================================================================
diff -u -r1574 -r1674
--- vhUnitTest/APPS/EC/Winkelkar/TestWinkelkarService.cls.xml	(.../TestWinkelkarService.cls.xml)	(revision 1574)
+++ vhUnitTest/APPS/EC/Winkelkar/TestWinkelkarService.cls.xml	(.../TestWinkelkarService.cls.xml)	(revision 1674)
@@ -9,7 +9,7 @@
 
 <Method name="TestGeefWinkelkar">
 <Implementation><![CDATA[
-	Set Winkelkar = ##class(DOM.EC.Winkelkar.MaatwerkWinkelkar).%New("UnitTest")
+	Set Winkelkar = ##class(DOM.EC.Winkelkar.InterneWinkelkar).%New("UnitTest")
 	
 	Set Kenmerken = ##class(DOM.PM.Maatwerk.Calc.Common.impl.TAOOKenmerken).%New()
 	Set Aantal = 2
@@ -30,8 +30,12 @@
 	
 	Set WinkelkarService = ##class(APPS.EC.Winkelkar.WinkelkarService).%New()
 	
-	Set WinkelkarDto = WinkelkarService.GeefWinkelkar("UnitTest",Winkelkar.%Id())
+	Set Applicatie = ##class(APPS.common.dto.Applicatie).%New()
+	Set Applicatie.Naam = "UnitTest"
+	Set Applicatie.Type = ##class(APPS.common.enu.ApplicatieType).Intern()
 	
+	Set WinkelkarDto = WinkelkarService.GeefWinkelkar(Applicatie,Winkelkar.%Id())
+	
 	Do $$$AssertTrue($IsObject(WinkelkarDto))
 	
 	Do $$$AssertEquals(WinkelkarDto.AantalProducten,5,"Er zijn 5 producten")
@@ -41,8 +45,101 @@
 	
 	
 	Do ##class(DOM.PM.Maatwerk.Calc.Common.impl.TAOOKenmerken).%DeleteId(MaatwerkLijn.GeefIngegevenKenmerken().%Id())
-	Do ##class(DOM.EC.Winkelkar.MaatwerkWinkelkar).%DeleteId(Winkelkar.%Id())
+	Do ##class(DOM.EC.Winkelkar.Winkelkar).%DeleteId(Winkelkar.%Id())
 ]]></Implementation>
 </Method>
+
+<Method name="TestMaakWinkelkar">
+<Implementation><![CDATA[
+	Set WinkelkarService = ##class(APPS.EC.Winkelkar.WinkelkarService).%New()
+	
+	Set Applicatie = ##class(APPS.common.dto.Applicatie).%New()
+	Set Applicatie.Naam = "UnitTest"
+	Set Applicatie.Type = ##class(APPS.common.enu.ApplicatieType).Intern()
+	
+	Set Winkelkar = WinkelkarService.MaakWinkelkar(Applicatie)
+	
+	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 WinkelkarService.WisWinkelkar(Applicatie,Winkelkar.WinkelkarID)
+	
+	Do $$$AssertFalse(##class(DOM.EC.Winkelkar.Winkelkar).%ExistsId(Winkelkar.WinkelkarID),"De winkelkar is verwijderd")
+]]></Implementation>
+</Method>
+
+<Method name="TestVoegToeMaatwerk">
+<Implementation><![CDATA[
+	Set WinkelkarService = ##class(APPS.EC.Winkelkar.WinkelkarService).%New()
+	
+	Set Applicatie = ##class(APPS.common.dto.Applicatie).%New()
+	Set Applicatie.Naam = "UnitTest"
+	Set Applicatie.Type = ##class(APPS.common.enu.ApplicatieType).Intern()
+	
+	Set GroepNaam = "Groep"
+	
+	Set Winkelkar = WinkelkarService.MaakWinkelkar(Applicatie)
+	
+	Set IngegevenKenmerken = ##class(APPS.PM.Maatwerk.dto.TAOOKenmerken).%New()
+	Set IngegevenKenmerken.CorpusBreedte = 600
+	Set IngegevenKenmerken.Draagkracht = 30
+	Set IngegevenKenmerken.IsBinnenbreedte = 1
+	Set IngegevenKenmerken.IsBinnenlade = 1
+	Set IngegevenKenmerken.LadeKleur = ##class(DOM.PM.enu.TAOOLadeKleur).SmokedWalnut()
+	Set IngegevenKenmerken.LadeHoogte = ##class(DOM.PM.enu.TAOOLadeHoogte).N()
+	Set IngegevenKenmerken.LadeDiepte = 250
+	Set IngegevenKenmerken.HeeftOpvullijstLinks = 0
+	Set IngegevenKenmerken.HeeftOpvullijstRechts = 0
+	Set IngegevenKenmerken.HeeftTipon = 0
+	Set IngegevenKenmerken.HeeftZijstabilisering = 0
+	
+	Set Aantal = -1
+	
+	Set $ZTRAP = "FoutVoegToe"	
+	Set VoegToeGelukt = 0
+	Do WinkelkarService.VoegToeMaatwerk(Applicatie, Winkelkar.WinkelkarID, GroepNaam, IngegevenKenmerken, Aantal)
+	Set VoegToeGelukt = 1
+	Set $ZTRAP = ""
+	Goto FoutCorrect
+FoutVoegToe
+	Set $ZTRAP = ""
+	Set VoegToeGelukt = 0
+FoutCorrect
+
+	Do $$$AssertFalse(VoegToeGelukt,"De lijn kon niet worden toegevoegd omdat het aantal negatief is")
+	
+	Set IngegevenKenmerken.HeeftTipon = ""
+	Set Aantal = 3
+	
+	Set $ZTRAP = "FoutVoegToe2"	
+	Set VoegToeGelukt = 0
+	Do WinkelkarService.VoegToeMaatwerk(Applicatie, Winkelkar.WinkelkarID, GroepNaam, IngegevenKenmerken, Aantal)
+	Set VoegToeGelukt = 1
+	Set $ZTRAP = ""
+	Goto FoutCorrect2
+FoutVoegToe2
+	Set $ZTRAP = ""
+	Set VoegToeGelukt = 0
+FoutCorrect2
+
+	Do $$$AssertFalse(VoegToeGelukt,"De lijn kon niet worden toegevoegd omdat de ingegeven kenmerken niet volledig zijn")
+	
+	Set IngegevenKenmerken.HeeftTipon = 0
+	
+	Set Winkelkar = WinkelkarService.VoegToeMaatwerk(Applicatie, Winkelkar.WinkelkarID, GroepNaam, IngegevenKenmerken, Aantal)
+	
+	Do $$$AssertTrue($IsObject(Winkelkar),"Er werd een winkelkar teruggegeven")
+	Do $$$AssertEquals(Winkelkar.Lijnen.Count(),1,"Er is 1 groep toegevoegd")
+	Do $$$AssertTrue(Winkelkar.Lijnen.GetAt(1).%Extends("APPS.EC.Winkelkar.dto.GroepLijn"))
+	
+	Set Winkelkar = WinkelkarService.VerwijderLijn(Applicatie, Winkelkar.WinkelkarID, Winkelkar.Lijnen.GetAt(1).Lijnen.GetAt(1).LijnID)
+	
+	Do $$$AssertTrue($IsObject(Winkelkar),"De gewijzigde winkelkar werd weergegeven")
+	Do $$$AssertEquals(Winkelkar.Lijnen.GetAt(1).Lijnen.Count(),0,"De lijn werd verwijderd")
+	
+	Do ##class(DOM.EC.Winkelkar.Winkelkar).%DeleteId(Winkelkar.WinkelkarID)
+]]></Implementation>
+</Method>
 </Class>
 </Export>