Index: zTryout/KCA/APPS/Blum/impl/OnlineProductConfiguratorService/Test.cls.xml
===================================================================
diff -u
--- zTryout/KCA/APPS/Blum/impl/OnlineProductConfiguratorService/Test.cls.xml	(revision 0)
+++ zTryout/KCA/APPS/Blum/impl/OnlineProductConfiguratorService/Test.cls.xml	(revision 52733)
@@ -0,0 +1,47 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="zTryout.KCA.APPS.Blum.impl.OnlineProductConfiguratorService.Test">
+<Super>TECH.RegisteredObject</Super>
+
+<UDLText name="T">
+<Content><![CDATA[
+// Do ##class(zTryout.KCA.APPS.Blum.impl.OnlineProductConfiguratorService.Test).%New().DoIt()
+
+]]></Content>
+</UDLText>
+
+<Method name="DoIt">
+<Implementation><![CDATA[
+	Set Winkelkar = ##class(APPS.Blum.OnlineProductConfigurator.dto.Winkelkar).%New()
+	Set Winkelkar.userName = "kca@vanhoecke.be"
+	Set Winkelkar.transferMode = "cumulated"
+	
+	Set Directory = ##class(APPS.Blum.OnlineProductConfigurator.dto.Directory).%New()
+	Set Directory.folderOrigin = "system"
+	Set Directory.name = "Total"
+	
+	Set SubDir = ##class(APPS.Blum.OnlineProductConfigurator.dto.Directory).%New()
+	
+	Set Ident = ##class(APPS.Blum.OnlineProductConfigurator.dto.IdentNumber).%New()
+	Set Ident.amount = 1
+	;Set Ident.identnumber = "01023195" : OK
+	;Set Ident.identnumber = "05722072" ; NOK
+	;Set Ident.identnumber = "08962303" ; OK
+	;Set Ident.identnumber = "07054881" ; OK
+	Set Ident.identnumber = "04160461" ; OK
+	Do SubDir.identnumbers.Insert(Ident)	
+	
+	Do Directory.subDirectories.Insert(SubDir)
+	
+	Set Winkelkar.shoppingCart = ##class(APPS.Blum.OnlineProductConfigurator.dto.ShoppingCart).%New()
+	
+	Do Winkelkar.shoppingCart.directories.Insert(Directory)
+	
+	Set OnlineProductConfiguratorService = ##class(APPS.Blum.impl.OnlineProductConfiguratorService).%New()
+	Do OnlineProductConfiguratorService.MaakWinkelkar(Winkelkar)
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>