Index: vhUnitTest/APPS/VKP/Maatwerk/TestConfiguratorService.cls.xml
===================================================================
diff -u -r1731 -r2004
--- vhUnitTest/APPS/VKP/Maatwerk/TestConfiguratorService.cls.xml	(.../TestConfiguratorService.cls.xml)	(revision 1731)
+++ vhUnitTest/APPS/VKP/Maatwerk/TestConfiguratorService.cls.xml	(.../TestConfiguratorService.cls.xml)	(revision 2004)
@@ -7,6 +7,14 @@
 <Super>vhUnitTest.TestCase</Super>
 <ClassDefinitionError>0</ClassDefinitionError>
 
+<Property name="GebruikerICT">
+<Type>DOM.common.Gebruiker</Type>
+</Property>
+
+<Property name="GebruikerOV">
+<Type>DOM.common.Gebruiker</Type>
+</Property>
+
 <Method name="TestGeefParameters">
 <Implementation><![CDATA[
 	// Nieuw data object aanmaken die we daarna gaan opvragen
@@ -133,6 +141,78 @@
 ]]></Implementation>
 </Method>
 
+<Method name="TestBewaarIngegevenKenmerken">
+<Implementation><![CDATA[
+	Set ^vhUSER("D",9999) = "99\Unittest\15\UT_ICT"
+	Set ^vhUSER("D",9999,"M") = "ICT"
+	Set ^vhUSER("D",9998) = "99\Unittest\15\UT_OV"
+	Set ^vhUSER("D",9998,"M") = "OV"
+	
+	Set Service = ##class(APPS.VKP.Maatwerk.ConfiguratorService).%New()
+	
+	Set GebruikerID = ..GebruikerOV.%Id()
+	
+	Set IngegevenKenmerken = ##class(APPS.PM.Maatwerk.dto.TAOOKenmerken).%New()
+	Set IngegevenKenmerken.CorpusBreedte = 456
+	Set IngegevenKenmerken.CorpusWandDikte = 18
+	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 = 1
+	Set IngegevenKenmerken.HeeftOpvullijstRechts = 0
+	Set IngegevenKenmerken.HeeftTipon = 1
+	Set IngegevenKenmerken.HeeftZijstabilisering = 0
+	
+	Set Pad = ##class(APPS.VKP.Maatwerk.dto.TemplateInternPad).%New()
+	Set Pad.GebruikerData = ##class(DOM.common.dto.GebruikerData).%New()
+	Set Pad.GebruikerData.ID = ..GebruikerICT.%Id()
+	Set Pad.KlantData = ##class(DOM.common.dto.KlantData).%New()
+	Set Pad.KlantData.ID = 4682
+	
+	Set Naam = "Unittest naam 1"
+	Set MagOverschrijven = 0
+	
+	Do Service.BewaarIngegevenKenmerken(GebruikerID, IngegevenKenmerken, Pad, Naam, MagOverschrijven)
+	
+	Set BewaardeIngegevenKenmerken = Service.GeefBewaardeIngegevenKenmerken(GebruikerID)
+	
+	Set BewaardePadenIterator = ##class(TECH.ListIterator).%New(BewaardeIngegevenKenmerken.BewaardePaden)
+	Set TemplateInternPad = ""
+	Set TemplateExternPad = ""
+	Set StandalonePad = ""
+	While (BewaardePadenIterator.HasNext())
+	{
+		Set BewaardPad = BewaardePadenIterator.Next()
+		If (BewaardPad.Pad.GebruikerData.ID = GebruikerID)
+		{
+			If (BewaardPad.Pad.%ClassName(0) = "TemplateExternPad")
+			{
+				Set TemplateExternPad = BewaardPad
+			}
+			If (BewaardPad.Pad.%ClassName(0) = "TemplateInternPad")
+			{
+				Set TemplateInternPad = BewaardPad
+			}
+			If (BewaardPad.Pad.%ClassName(0) = "StandalonePad")
+			{
+				Set StandalonePad = BewaardPad
+			}
+		}
+	}
+	
+	Do $$$AssertTrue($IsObject(TemplateInternPad),"Het template intern pad werd aangemaakt")
+	Do $$$AssertTrue($IsObject(TemplateExternPad),"Het template extern pad werd aangemaakt")
+	Do $$$AssertTrue($IsObject(StandalonePad),"Het standalone pad werd aangemaakt")
+	
+	Do $$$AssertTrue(TemplateInternPad.IsBewarenToegestaan,"Bewaren is toegestaan in het intern pad")
+	Do $$$AssertFalse(TemplateExternPad.IsBewarenToegestaan,"Bewaren is niet toegestaan in het extern pad")
+	Do $$$AssertFalse(StandalonePad.IsBewarenToegestaan,"Bewaren is niet toegestaan in het standalone pad")
+]]></Implementation>
+</Method>
+
 <Method name="MaakWinkelkar">
 <Description>
 Geeft de id van de winkelkar terug</Description>
@@ -170,5 +250,33 @@
 	Quit Winkelkar.WinkelkarID
 ]]></Implementation>
 </Method>
+
+<Method name="OnBeforeAllTests">
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[
+	Do ..OnAfterAllTests()
+	Set Status = $$$OK
+	Set ..GebruikerICT = ##class(DOM.common.Gebruiker).%New("Unittest_ICT","UT_ICT",##class(Derde.Klant.Klant).%OpenId(4682))
+	Set:$$$ISOK(Status) Status = ..GebruikerICT.%Save()
+	Set ..GebruikerOV = ##class(DOM.common.Gebruiker).%New("Unittest_OV","UT_OV",##class(Derde.Klant.Klant).%OpenId(4682))
+	Set:$$$ISOK(Status) Status = ..GebruikerOV.%Save()
+ 	Quit Status
+]]></Implementation>
+</Method>
+
+<Method name="OnAfterAllTests">
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[
+	Set Status = $$$OK
+	Kill ^vhUSER("D",9999)
+	If ($IsObject(..GebruikerICT))
+	{
+		Set Status = ##class(APPS.VKP.Maatwerk.impl.GebruikerPaden).%DeleteId(..GebruikerOV.%Id())
+		Set:$$$ISOK(Status) Status = ..GebruikerICT.%DeleteId(..GebruikerICT.%Id())
+		Set:$$$ISOK(Status) Status = ..GebruikerOV.%DeleteId(..GebruikerOV.%Id())
+	}
+	Quit Status
+]]></Implementation>
+</Method>
 </Class>
 </Export>