Index: APPS/VKP/Maatwerk/dto/ConfiguratorParameters.cls.xml
===================================================================
diff -u
--- APPS/VKP/Maatwerk/dto/ConfiguratorParameters.cls.xml	(revision 0)
+++ APPS/VKP/Maatwerk/dto/ConfiguratorParameters.cls.xml	(revision 1679)
@@ -0,0 +1,40 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="9">
+<Class name="APPS.VKP.Maatwerk.dto.ConfiguratorParameters">
+<ProcedureBlock>1</ProcedureBlock>
+<Super>%RegisteredObject,%XML.Adaptor</Super>
+<ClassDefinitionError>0</ClassDefinitionError>
+
+<Property name="DocumentID">
+<Type>%Integer</Type>
+<Required>1</Required>
+</Property>
+
+<Property name="DocumentType">
+<Type>APPS.VKP.Maatwerk.enu.DocumentType</Type>
+<Required>1</Required>
+</Property>
+
+<Property name="GebruikerID">
+<Type>%Integer</Type>
+<Required>1</Required>
+</Property>
+
+<Property name="KlantID">
+<Type>%Integer</Type>
+<Required>1</Required>
+</Property>
+
+<Property name="KlantNaam">
+<Type>%String</Type>
+<Required>1</Required>
+</Property>
+
+<Property name="LijnID">
+<Description>
+Optioneel.  Lijnnummer binnen het doorgegeven document dat aangepast wordt.
+In dat geval mag de client-sessie enkel het maatwerkproduct voor die lijn editeren en geen andere producten toevoegen.</Description>
+<Type>%String</Type>
+</Property>
+</Class>
+</Export>
Index: APPS/VKP/Maatwerk/ConfiguratorService.cls.xml
===================================================================
diff -u
--- APPS/VKP/Maatwerk/ConfiguratorService.cls.xml	(revision 0)
+++ APPS/VKP/Maatwerk/ConfiguratorService.cls.xml	(revision 1679)
@@ -0,0 +1,91 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="9">
+<Class name="APPS.VKP.Maatwerk.ConfiguratorService">
+<ProcedureBlock>1</ProcedureBlock>
+<Super>%RegisteredObject</Super>
+<ClassDefinitionError>0</ClassDefinitionError>
+
+<Method name="BestelWinkelkarIntern">
+<FormalSpec>Applicatie:APPS.common.dto.Applicatie,WinkelkarID:%String,DocumentType:APPS.VKP.Maatwerk.enu.DocumentType,DocumentID:%String</FormalSpec>
+<Implementation><![CDATA[
+	Set Winkelkar = ..OpenWinkelkar(Applicatie, WinkelkarID)
+	
+	Set WinkelkarToProductVisitor = ##class(APPS.VKP.Maatwerk.impl.WinkelkarToProductVisitor).%New(DocumentType, DocumentID)
+	Do Winkelkar.Accept(WinkelkarToProductVisitor)
+	
+	Set BesteldeProducten = WinkelkarToProductVisitor.GeefBesteldeProducten()
+	
+	Set Status = BesteldeProducten.%Save()
+	
+	If ($$$ISERR(Status))
+	{
+		Do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.StatusException).%New(##class(TECH.enu.ExceptionCode).SaveFailed(),"De data die de aangemaakte producten beschrijft kon niet worden opgeslagen",Status))
+	}
+]]></Implementation>
+</Method>
+
+<Method name="GeefBesteldeProducten">
+<Description>
+Geeft leeg terug indien er geen producten werden besteld voor dit document type en de welbepaalde id</Description>
+<FormalSpec>DocumentType:APPS.VKP.Maatwerk.enu.DocumentType,DocumentID:%String</FormalSpec>
+<ReturnType>APPS.VKP.Maatwerk.impl.BesteldeProducten</ReturnType>
+<Implementation><![CDATA[	Quit ##class(APPS.VKP.Maatwerk.impl.BesteldeProducten).%OpenId(DocumentType||DocumentID)
+]]></Implementation>
+</Method>
+
+<Method name="GeefParameters">
+<FormalSpec>ParameterID:%String</FormalSpec>
+<ReturnType>APPS.VKP.Maatwerk.dto.ConfiguratorParameters</ReturnType>
+<Implementation><![CDATA[
+	Set Parameters = ##class(APPS.VKP.Maatwerk.dto.ConfiguratorParameters).%New()
+	
+	Set ParametersImpl = ##class(APPS.VKP.Maatwerk.impl.ConfiguratorParameters).%OpenId(ParameterID)
+	
+	If ('$IsObject(ParametersImpl))
+	{
+		Do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.InvalidInputException).%New("Er zijn geen configuratorparameters voor de parameter id "_ParameterID))
+	}
+	
+	Set Parameters.DocumentID = ParametersImpl.DocumentID
+	Set Parameters.DocumentType = ParametersImpl.DocumentType
+	Set Parameters.GebruikerID = ParametersImpl.GebruikerID
+	Set Parameters.KlantID = ParametersImpl.KlantID
+	
+	Set Klant = ##class(DOM.DomeinContext).Instance().GeefKlantAPI().GeefKlant(ParametersImpl.KlantID)
+	
+	If ($IsObject(Klant))
+	{
+		Set Parameters.KlantNaam = Klant.GeefNaam()
+	}
+	Else
+	{
+		Set Parameters.KlantNaam = "Onbekende klant"
+	}
+	Set Parameters.LijnID = ParametersImpl.LijnID
+	
+	Quit Parameters
+]]></Implementation>
+</Method>
+
+<Method name="OpenWinkelkar">
+<FormalSpec>Applicatie:APPS.common.dto.Applicatie,WinkelkarID:%String</FormalSpec>
+<Private>1</Private>
+<ReturnType>DOM.EC.Winkelkar.Winkelkar</ReturnType>
+<Implementation><![CDATA[
+	Set WinkelkarImpl = ##class(DOM.EC.Winkelkar.Winkelkar).%OpenId(WinkelkarID)
+	
+	If '$IsObject(WinkelkarImpl)
+	{
+		Do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.InvalidInputException).%New("De opgegeven winkelkar id is niet geldig!"))
+	}
+	
+	If (WinkelkarImpl.GeefApplicatieID() '= Applicatie.Naam)
+	{
+		Do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.InvalidInputException).%New("De opgegeven applicatie id is niet geldig!"))
+	}
+	
+	Quit WinkelkarImpl
+]]></Implementation>
+</Method>
+</Class>
+</Export>
Index: vhUnitTest/APPS/VKP/Maatwerk/TestConfiguratorService.cls.xml
===================================================================
diff -u
--- vhUnitTest/APPS/VKP/Maatwerk/TestConfiguratorService.cls.xml	(revision 0)
+++ vhUnitTest/APPS/VKP/Maatwerk/TestConfiguratorService.cls.xml	(revision 1679)
@@ -0,0 +1,44 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="9">
+<Class name="vhUnitTest.APPS.VKP.Maatwerk.TestConfiguratorService">
+<Description>
+do ##class(vhUnitTest.Manager).RunTest("/debug/display=all","APPS.VKP.Maatwerk.TestConfiguratorService")</Description>
+<ProcedureBlock>1</ProcedureBlock>
+<Super>vhUnitTest.TestCase</Super>
+<ClassDefinitionError>0</ClassDefinitionError>
+
+<Method name="TestGeefParameters">
+<Implementation><![CDATA[
+	// Nieuw data object aanmaken die we daarna gaan opvragen
+	Set Parameters = ##class(APPS.VKP.Maatwerk.impl.ConfiguratorParameters).%New()
+	Set Parameters.DocumentID =  1
+	Set Parameters.DocumentType = ##class(APPS.VKP.Maatwerk.enu.DocumentType).Offerte()
+	Set Parameters.GebruikerID = 2
+	Set Parameters.KlantID = 1000
+	Set Parameters.LijnID = 3
+	
+	Set Status = Parameters.%Save()
+	Do $$$AssertTrue($$$ISOK(Status), "Het parametersobject werd correct opgeslagen")
+	
+	Set ParameterID = Parameters.%Id()
+	
+	Set Parameters = "" // unswizzle
+	
+	Set ConfiguratorService = ##class(APPS.VKP.Maatwerk.ConfiguratorService).%New()
+	Set Parameters = ConfiguratorService.GeefParameters(ParameterID)
+	
+	Do $$$AssertTrue($$$ISOK(Parameters),"Het parameter object werd teruggegeven")
+	Do $$$AssertEquals(Parameters.DocumentID,1,"Het document id is correct ingevuld")
+	Do $$$AssertEquals(Parameters.DocumentType,##class(APPS.VKP.Maatwerk.enu.DocumentType).Offerte(),"Het document type is correct ingevuld")
+	Do $$$AssertEquals(Parameters.GebruikerID,2,"De gebruiker id is correct ingevuld")
+	Do $$$AssertEquals(Parameters.KlantID,1000,"De klant id is correct ingevuld")
+	Do $$$AssertEquals(Parameters.KlantNaam,"TESTKLANT VAN HOECKE nv","De klantnaam is correct ingevuld")
+	Do $$$AssertEquals(Parameters.LijnID,3,"De lijn id is correct ingevuld")
+	
+	Do ##class(APPS.VKP.Maatwerk.impl.ConfiguratorParameters).%DeleteId(ParameterID)
+	
+	Do $$$AssertFalse(##class(APPS.VKP.Maatwerk.impl.ConfiguratorParameters).%ExistsId(ParameterID),"Het object werd verwijderd")
+]]></Implementation>
+</Method>
+</Class>
+</Export>
Index: DOM/PM/Maatwerk/Calc/Kost/KostContext.cls.xml
===================================================================
diff -u -r1530 -r1679
--- DOM/PM/Maatwerk/Calc/Kost/KostContext.cls.xml	(.../KostContext.cls.xml)	(revision 1530)
+++ DOM/PM/Maatwerk/Calc/Kost/KostContext.cls.xml	(.../KostContext.cls.xml)	(revision 1679)
@@ -66,6 +66,8 @@
 <ProcedureBlock>1</ProcedureBlock>
 <ReturnType>%Status</ReturnType>
 <Implementation><![CDATA[
+	Do ##class(vhLib.OldSchool).InitVars()
+	
 	Set ..Familie = Familie
 	Set ..Variant = Variant
 	Set ..KostRepository = ##class(DOM.PM.Maatwerk.Calc.Kost.impl.KostRepository).%New()
Index: APPS/VKP/Maatwerk/enu/DocumentType.cls.xml
===================================================================
diff -u
--- APPS/VKP/Maatwerk/enu/DocumentType.cls.xml	(revision 0)
+++ APPS/VKP/Maatwerk/enu/DocumentType.cls.xml	(revision 1679)
@@ -0,0 +1,27 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="9">
+<Class name="APPS.VKP.Maatwerk.enu.DocumentType">
+<ClassType>datatype</ClassType>
+<ProcedureBlock>1</ProcedureBlock>
+<Super>%String</Super>
+<ClassDefinitionError>0</ClassDefinitionError>
+
+<Parameter name="VALUELIST">
+<Default>;Offerte;Order</Default>
+</Parameter>
+
+<Method name="Offerte">
+<ClassMethod>1</ClassMethod>
+<ReturnType>APPS.VKP.Maatwerk.enu.DocumentType</ReturnType>
+<Implementation><![CDATA[	Quit "Offerte"
+]]></Implementation>
+</Method>
+
+<Method name="Order">
+<ClassMethod>1</ClassMethod>
+<ReturnType>APPS.VKP.Maatwerk.enu.DocumentType</ReturnType>
+<Implementation><![CDATA[	Quit "Order"
+]]></Implementation>
+</Method>
+</Class>
+</Export>
Index: APPS/VKP/Maatwerk/impl/ConfiguratorParameters.cls.xml
===================================================================
diff -u
--- APPS/VKP/Maatwerk/impl/ConfiguratorParameters.cls.xml	(revision 0)
+++ APPS/VKP/Maatwerk/impl/ConfiguratorParameters.cls.xml	(revision 1679)
@@ -0,0 +1,70 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="9">
+<Class name="APPS.VKP.Maatwerk.impl.ConfiguratorParameters">
+<ClassType>persistent</ClassType>
+<ProcedureBlock>1</ProcedureBlock>
+<Super>%Persistent</Super>
+<ClassDefinitionError>0</ClassDefinitionError>
+
+<Property name="DocumentID">
+<Type>%Integer</Type>
+<Required>1</Required>
+</Property>
+
+<Property name="DocumentType">
+<Type>APPS.VKP.Maatwerk.enu.DocumentType</Type>
+<Required>1</Required>
+</Property>
+
+<Property name="GebruikerID">
+<Type>%Integer</Type>
+<Required>1</Required>
+</Property>
+
+<Property name="KlantID">
+<Type>%Integer</Type>
+<Required>1</Required>
+</Property>
+
+<Property name="LijnID">
+<Description>
+Optioneel.  Lijnnummer binnen het doorgegeven document dat aangepast wordt.
+In dat geval mag de client-sessie enkel het maatwerkproduct voor die lijn editeren en geen andere producten toevoegen.</Description>
+<Type>%String</Type>
+</Property>
+
+<Storage name="Default">
+<Type>%Library.CacheStorage</Type>
+<DataLocation>^APPS.VKP.Ma79D.Configurator907D</DataLocation>
+<DefaultData>ConfiguratorParametersDefaultData</DefaultData>
+<IdLocation>^APPS.VKP.Ma79D.Configurator907D</IdLocation>
+<IndexLocation>^APPS.VKP.Ma79D.Configurator907I</IndexLocation>
+<StreamLocation>^APPS.VKP.Ma79D.Configurator907S</StreamLocation>
+<Data name="ConfiguratorParametersDefaultData">
+<Structure>listnode</Structure>
+<Subscript/>
+<Value name="1">
+<Value>%%CLASSNAME</Value>
+</Value>
+<Value name="2">
+<Value>DocumentID</Value>
+</Value>
+<Value name="3">
+<Value>DocumentType</Value>
+</Value>
+<Value name="4">
+<Value>GebruikerID</Value>
+</Value>
+<Value name="5">
+<Value>KlantID</Value>
+</Value>
+<Value name="6">
+<Value>KlantNaam</Value>
+</Value>
+<Value name="7">
+<Value>LijnID</Value>
+</Value>
+</Data>
+</Storage>
+</Class>
+</Export>
Index: APPS/VKP/Maatwerk/impl/WinkelkarToProductVisitor.cls.xml
===================================================================
diff -u
--- APPS/VKP/Maatwerk/impl/WinkelkarToProductVisitor.cls.xml	(revision 0)
+++ APPS/VKP/Maatwerk/impl/WinkelkarToProductVisitor.cls.xml	(revision 1679)
@@ -0,0 +1,74 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="9">
+<Class name="APPS.VKP.Maatwerk.impl.WinkelkarToProductVisitor">
+<ProcedureBlock>1</ProcedureBlock>
+<Super>DOM.EC.Winkelkar.WinkelkarVisitor,DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerkenVisitor</Super>
+<ClassDefinitionError>0</ClassDefinitionError>
+
+<Property name="BesteldeProducten">
+<Type>APPS.VKP.Maatwerk.impl.BesteldeProducten</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="HuidigeLijn">
+<Type>DOM.EC.Winkelkar.Lijn</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="%OnNew">
+<FormalSpec>DocumentType:APPS.VKP.Maatwerk.enu.DocumentType,DocumentID:%String</FormalSpec>
+<Private>1</Private>
+<ProcedureBlock>1</ProcedureBlock>
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[
+	Set ..BesteldeProducten = ##class(APPS.VKP.Maatwerk.impl.BesteldeProducten).%New(DocumentType, DocumentID)
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
+<Method name="GeefBesteldeProducten">
+<ReturnType>APPS.VKP.Maatwerk.impl.BesteldeProducten</ReturnType>
+<Implementation><![CDATA[	Quit ..BesteldeProducten
+]]></Implementation>
+</Method>
+
+<Method name="VerwerkMaatwerkLijn">
+<FormalSpec>MaatwerkLijn:DOM.EC.Winkelkar.MaatwerkLijn</FormalSpec>
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[
+	Set ..HuidigeLijn = MaatwerkLijn
+	Do MaatwerkLijn.GeefIngegevenKenmerken().Accept(##this)
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
+<Method name="VerwerkTAOOKenmerken">
+<FormalSpec>TAOOKenmerken:DOM.PM.Maatwerk.Calc.Common.impl.TAOOKenmerken</FormalSpec>
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[
+	Set Familie=##class(DOM.PM.enu.Familie).Lade()
+	Set Variant=##class(DOM.PM.enu.LadeVariant).TAOO()
+	
+	Set KlantID = 7587
+	Set Personality = ##class(DOM.common.VanHoeckePersonality).Instance()
+	Set BerekeningsSpecificatie = ##class(DOM.PM.Maatwerk.Calc.Common.BerekeningsSpecificatie).%New(..HuidigeLijn.GeefAantal(),KlantID,Personality)
+	Set Context=##class(DOM.PM.Maatwerk.Calc.HF.HalffabContext).%New(Familie,Variant,BerekeningsSpecificatie)
+	
+	Do Context.GeefHalffabSpec().BerekenHalffabDetails(Context,TAOOKenmerken)
+	Set HalffabItemsBoom = Context.HalffabItemsBoom
+	
+	Set KostContext = ##class(DOM.PM.Maatwerk.Calc.Kost.KostContext).%New(Familie, Variant, BerekeningsSpecificatie)
+	Set KostItem = KostContext.GeefKostSpec().BerekenKostDetails(KostContext,HalffabItemsBoom,TAOOKenmerken)
+	
+	Set ProductSpecificatie = ##class(DOM.PM.Maatwerk.Calc.Common.ProductSpecificatie).%New(Familie, Variant, TAOOKenmerken)
+	
+	Set ProductAPI = ##class(DOM.DomeinContext).Instance().GeefProductAPI()
+	Set Product = ProductAPI.MaakProduct(ProductSpecificatie, BerekeningsSpecificatie, HalffabItemsBoom, KostItem)
+	
+	Do ..BesteldeProducten.Lijst.Insert(##class(APPS.VKP.Maatwerk.impl.BesteldProduct).%New(Product.GeefPRNr(),..HuidigeLijn.GeefAantal()))
+	
+	Quit $$$OK
+]]></Implementation>
+</Method>
+</Class>
+</Export>
Index: APPS/VKP/Maatwerk/impl/BesteldProduct.cls.xml
===================================================================
diff -u
--- APPS/VKP/Maatwerk/impl/BesteldProduct.cls.xml	(revision 0)
+++ APPS/VKP/Maatwerk/impl/BesteldProduct.cls.xml	(revision 1679)
@@ -0,0 +1,59 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="9">
+<Class name="APPS.VKP.Maatwerk.impl.BesteldProduct">
+<ClassType>serial</ClassType>
+<ProcedureBlock>1</ProcedureBlock>
+<Super>%SerialObject</Super>
+<ClassDefinitionError>0</ClassDefinitionError>
+
+<Property name="PRNr">
+<Type>%Integer</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="Aantal">
+<Type>%Integer</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="%OnNew">
+<FormalSpec>PRNr:%Integer,Aantal:%Integer</FormalSpec>
+<Private>1</Private>
+<ProcedureBlock>1</ProcedureBlock>
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[
+	Set ..PRNr = PRNr
+	Set ..Aantal = Aantal
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
+<Method name="GeefPRNr">
+<ReturnType>%Integer</ReturnType>
+<Implementation><![CDATA[	Quit ..PRNr
+]]></Implementation>
+</Method>
+
+<Method name="GeefAantal">
+<ReturnType>%Integer</ReturnType>
+<Implementation><![CDATA[	Quit ..Aantal
+]]></Implementation>
+</Method>
+
+<Storage name="Default">
+<Type>%Library.CacheSerialState</Type>
+<State>BesteldProductState</State>
+<StreamLocation>^APPS.VKP.Maa79D.BesteldProductS</StreamLocation>
+<Data name="BesteldProductState">
+<Structure>listnode</Structure>
+<Subscript>"APPS.VKP.Maatwerk.impl.BesteldProduct"</Subscript>
+<Value name="1">
+<Value>Aantal</Value>
+</Value>
+<Value name="2">
+<Value>PRNr</Value>
+</Value>
+</Data>
+</Storage>
+</Class>
+</Export>
Index: ConfiguratorService.prj.xml
===================================================================
diff -u
--- ConfiguratorService.prj.xml	(revision 0)
+++ ConfiguratorService.prj.xml	(revision 1679)
@@ -0,0 +1,17 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="9">
+<Project name="ConfiguratorService" LastModified="2011-07-14 10:04:44">
+  <Items>
+    <ProjectItem name="APPS.VKP.Maatwerk.ConfiguratorService" type="CLS"/>
+    <ProjectItem name="APPS.VKP.Maatwerk.dto.ConfiguratorParameters" type="CLS"/>
+    <ProjectItem name="APPS.VKP.Maatwerk.enu.DocumentType" type="CLS"/>
+    <ProjectItem name="APPS.VKP.Maatwerk.impl.BesteldProduct" type="CLS"/>
+    <ProjectItem name="APPS.VKP.Maatwerk.impl.BesteldeProducten" type="CLS"/>
+    <ProjectItem name="APPS.VKP.Maatwerk.impl.ConfiguratorParameters" type="CLS"/>
+    <ProjectItem name="APPS.VKP.Maatwerk.impl.WinkelkarToProductVisitor" type="CLS"/>
+    <ProjectItem name="WS.VKP.Maatwerk.ConfiguratorService" type="CLS"/>
+    <ProjectItem name="vhUnitTest.APPS.VKP.Maatwerk.TestConfiguratorService" type="CLS"/>
+    <ProjectItem name="vhUnitTest.APPS.VKP.Maatwerk.TestWinkelkarToProductVisitor" type="CLS"/>
+  </Items>
+</Project>
+</Export>
Index: APPS/VKP/Maatwerk/impl/BesteldeProducten.cls.xml
===================================================================
diff -u
--- APPS/VKP/Maatwerk/impl/BesteldeProducten.cls.xml	(revision 0)
+++ APPS/VKP/Maatwerk/impl/BesteldeProducten.cls.xml	(revision 1679)
@@ -0,0 +1,82 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="9">
+<Class name="APPS.VKP.Maatwerk.impl.BesteldeProducten">
+<ClassType>persistent</ClassType>
+<ProcedureBlock>1</ProcedureBlock>
+<Super>%Persistent</Super>
+<ClassDefinitionError>0</ClassDefinitionError>
+
+<Index name="Idx">
+<IdKey>1</IdKey>
+<PrimaryKey>1</PrimaryKey>
+<Properties>DocumentType,DocumentID</Properties>
+<Unique>1</Unique>
+</Index>
+
+<Property name="DocumentType">
+<Type>APPS.VKP.Maatwerk.enu.DocumentType</Type>
+<Private>1</Private>
+<Required>1</Required>
+</Property>
+
+<Property name="DocumentID">
+<Type>%String</Type>
+<Private>1</Private>
+<Required>1</Required>
+</Property>
+
+<Property name="Lijst">
+<Type>APPS.VKP.Maatwerk.impl.BesteldProduct</Type>
+<Collection>list</Collection>
+</Property>
+
+<Method name="%OnNew">
+<FormalSpec>DocumentType:APPS.VKP.Maatwerk.enu.DocumentType,DocumentID:%String</FormalSpec>
+<Private>1</Private>
+<ProcedureBlock>1</ProcedureBlock>
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[
+	Set ..DocumentType = DocumentType
+	Set ..DocumentID = DocumentID
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
+<Method name="GeefDocumentType">
+<ReturnType>APPS.VKP.Maatwerk.enu.DocumentType</ReturnType>
+<Implementation><![CDATA[	Quit ..DocumentType
+]]></Implementation>
+</Method>
+
+<Method name="GeefDocumentID">
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[	Quit ..DocumentID
+]]></Implementation>
+</Method>
+
+<Storage name="Default">
+<Type>%Library.CacheStorage</Type>
+<DataLocation>^APPS.VKP.Ma79D.BesteldeProd6DCD</DataLocation>
+<DefaultData>BesteldeProductenDefaultData</DefaultData>
+<IdLocation>^APPS.VKP.Ma79D.BesteldeProd6DCD</IdLocation>
+<IndexLocation>^APPS.VKP.Ma79D.BesteldeProd6DCI</IndexLocation>
+<StreamLocation>^APPS.VKP.Ma79D.BesteldeProd6DCS</StreamLocation>
+<Data name="BesteldeProductenDefaultData">
+<Structure>listnode</Structure>
+<Subscript/>
+<Value name="1">
+<Value>%%CLASSNAME</Value>
+</Value>
+<Value name="2">
+<Value>DocumentID</Value>
+</Value>
+<Value name="3">
+<Value>DocumentType</Value>
+</Value>
+<Value name="4">
+<Value>Lijst</Value>
+</Value>
+</Data>
+</Storage>
+</Class>
+</Export>
Index: WS/VKP/Maatwerk/ConfiguratorService.cls.xml
===================================================================
diff -u
--- WS/VKP/Maatwerk/ConfiguratorService.cls.xml	(revision 0)
+++ WS/VKP/Maatwerk/ConfiguratorService.cls.xml	(revision 1679)
@@ -0,0 +1,31 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="9">
+<Class name="WS.VKP.Maatwerk.ConfiguratorService">
+<ProcedureBlock>1</ProcedureBlock>
+<Super>WS.WebService</Super>
+<ClassDefinitionError>0</ClassDefinitionError>
+
+<Parameter name="SERVICENAME">
+<Default>ConfiguratorService</Default>
+</Parameter>
+
+<Parameter name="NAMESPACE">
+<Default>http://www.vanhoecke.be/VKP/Maatwerk</Default>
+</Parameter>
+
+<Method name="BestelWinkelkarIntern">
+<FormalSpec>Applicatie:APPS.common.dto.Applicatie,WinkelkarID:%String,DocumentType:APPS.VKP.Maatwerk.enu.DocumentType,DocumentID:%String</FormalSpec>
+<WebMethod>1</WebMethod>
+<Implementation><![CDATA[	Do ##class(APPS.VKP.Maatwerk.ConfiguratorService).%New().BestelWinkelkarIntern(Applicatie, WinkelkarID, DocumentType, DocumentID)
+]]></Implementation>
+</Method>
+
+<Method name="GeefParameters">
+<FormalSpec>ParameterID:%String</FormalSpec>
+<ReturnType>APPS.VKP.Maatwerk.dto.ConfiguratorParameters</ReturnType>
+<WebMethod>1</WebMethod>
+<Implementation><![CDATA[	Quit ##class(APPS.VKP.Maatwerk.ConfiguratorService).%New().GeefParameters(ParameterID)
+]]></Implementation>
+</Method>
+</Class>
+</Export>
Index: vhUnitTest/APPS/VKP/Maatwerk/TestWinkelkarToProductVisitor.cls.xml
===================================================================
diff -u
--- vhUnitTest/APPS/VKP/Maatwerk/TestWinkelkarToProductVisitor.cls.xml	(revision 0)
+++ vhUnitTest/APPS/VKP/Maatwerk/TestWinkelkarToProductVisitor.cls.xml	(revision 1679)
@@ -0,0 +1,46 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="9">
+<Class name="vhUnitTest.APPS.VKP.Maatwerk.TestWinkelkarToProductVisitor">
+<Description>
+do ##class(vhUnitTest.Manager).RunTest("/debug/display=all","APPS.VKP.Maatwerk.TestWinkelkarToProductVisitor")</Description>
+<ProcedureBlock>1</ProcedureBlock>
+<Super>vhUnitTest.TestCase</Super>
+<ClassDefinitionError>0</ClassDefinitionError>
+
+<Method name="TestVisitor">
+<Implementation><![CDATA[
+	// We gaan een winkelkarretje aanmaken met een maatwerkproduct
+	
+	Set IngegevenKenmerken = ##class(DOM.PM.Maatwerk.Calc.Common.impl.TAOOKenmerken).%New()
+	Set IngegevenKenmerken.CorpusBinnenbreedte = 600
+	Set IngegevenKenmerken.Draagkracht = 30
+	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 Winkelkar = ##class(DOM.EC.Winkelkar.InterneWinkelkar).%New("UnitTest")
+	
+	Set Aantal = 2
+	Set EenheidPrijs = 13
+	Set TotaalPrijs = 26
+	Set MaatwerkLijn = ##class(DOM.EC.Winkelkar.MaatwerkLijn).%New(Aantal, IngegevenKenmerken, EenheidPrijs, TotaalPrijs)
+	
+	Do Winkelkar.VoegToe(MaatwerkLijn)
+	
+	Set OrderID = 1
+	Set WinkelkarToProductVisitor = ##class(APPS.VKP.Maatwerk.impl.WinkelkarToProductVisitor).%New(##class(APPS.VKP.Maatwerk.enu.DocumentType).Offerte(),OrderID)
+	Do Winkelkar.Accept(WinkelkarToProductVisitor)
+	
+	Set BesteldeProducten = WinkelkarToProductVisitor.GeefBesteldeProducten()
+	
+	Do $$$AssertEquals(BesteldeProducten.Lijst.Count(),1,"Er is een nieuw product aangemaakt")
+	
+	If (BesteldeProducten.Lijst.Count() > 0)
+	{
+		Do DELETE^PRODUKT2(BesteldeProducten.Lijst.GetAt(1).GeefPRNr(),1)
+	}
+]]></Implementation>
+</Method>
+</Class>
+</Export>