Index: APPS/VKP/Maatwerk/impl/ConfiguratorParameters.cls.xml
===================================================================
diff -u -r2057 -r2080
--- APPS/VKP/Maatwerk/impl/ConfiguratorParameters.cls.xml	(.../ConfiguratorParameters.cls.xml)	(revision 2057)
+++ APPS/VKP/Maatwerk/impl/ConfiguratorParameters.cls.xml	(.../ConfiguratorParameters.cls.xml)	(revision 2080)
@@ -83,8 +83,6 @@
 <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>
Index: CSC common dtos.prj.xml
===================================================================
diff -u -r1980 -r2080
--- CSC common dtos.prj.xml	(.../CSC common dtos.prj.xml)	(revision 1980)
+++ CSC common dtos.prj.xml	(.../CSC common dtos.prj.xml)	(revision 2080)
@@ -1,13 +1,14 @@
 <?xml version="1.0" encoding="UTF-8"?>
 <Export generator="Cache" version="9">
-<Project name="CSC common dtos" LastModified="2011-09-05 07:46:04">
+<Project name="CSC common dtos" LastModified="2011-09-14 16:11:25">
   <Items>
     <ProjectItem name="APPS.common.DataService" type="CLS"/>
     <ProjectItem name="DOM.common.Gebruiker" type="CLS"/>
     <ProjectItem name="DOM.common.Personality" type="CLS"/>
     <ProjectItem name="DOM.common.dto.GebruikerData" type="CLS"/>
     <ProjectItem name="DOM.common.dto.KlantData" type="CLS"/>
     <ProjectItem name="DOM.common.dto.PersonalityData" type="CLS"/>
+    <ProjectItem name="DOM.common.dto.ProductData" type="CLS"/>
     <ProjectItem name="WS.common.DataService" type="CLS"/>
     <ProjectItem name="vhUnitTest.common.TestDataService" type="CLS"/>
   </Items>
Index: APPS/VKP/Maatwerk/dto/TemplateInternPad.cls.xml
===================================================================
diff -u -r2004 -r2080
--- APPS/VKP/Maatwerk/dto/TemplateInternPad.cls.xml	(.../TemplateInternPad.cls.xml)	(revision 2004)
+++ APPS/VKP/Maatwerk/dto/TemplateInternPad.cls.xml	(.../TemplateInternPad.cls.xml)	(revision 2080)
@@ -9,6 +9,10 @@
 <Type>DOM.common.dto.KlantData</Type>
 </Property>
 
+<Property name="KlantID">
+<Type>%String</Type>
+</Property>
+
 <Method name="Accept">
 <FormalSpec>Visitor:APPS.VKP.Maatwerk.dto.PadVisitor</FormalSpec>
 <Implementation><![CDATA[	Quit Visitor.VerwerkTemplateInternPad(##this)
Index: APPS/VKP/Maatwerk/dto/ConfiguratorParameters.cls.xml
===================================================================
diff -u -r1731 -r2080
--- APPS/VKP/Maatwerk/dto/ConfiguratorParameters.cls.xml	(.../ConfiguratorParameters.cls.xml)	(revision 1731)
+++ APPS/VKP/Maatwerk/dto/ConfiguratorParameters.cls.xml	(.../ConfiguratorParameters.cls.xml)	(revision 2080)
@@ -16,19 +16,14 @@
 <Required>1</Required>
 </Property>
 
-<Property name="GebruikerID">
-<Type>%Integer</Type>
+<Property name="GebruikerData">
+<Type>DOM.common.dto.GebruikerData</Type>
 <Required>1</Required>
 </Property>
 
-<Property name="KlantID">
-<Type>%Integer</Type>
+<Property name="KlantData">
+<Type>DOM.common.dto.KlantData</Type>
 <Required>1</Required>
 </Property>
-
-<Property name="KlantNaam">
-<Type>%String</Type>
-<Required>1</Required>
-</Property>
 </Class>
 </Export>
Index: APPS/VKP/Maatwerk/impl/DtoToPadVisitor.cls.xml
===================================================================
diff -u -r2046 -r2080
--- APPS/VKP/Maatwerk/impl/DtoToPadVisitor.cls.xml	(.../DtoToPadVisitor.cls.xml)	(revision 2046)
+++ APPS/VKP/Maatwerk/impl/DtoToPadVisitor.cls.xml	(.../DtoToPadVisitor.cls.xml)	(revision 2080)
@@ -20,11 +20,11 @@
 <FormalSpec>TemplateInternPad:APPS.VKP.Maatwerk.dto.TemplateInternPad</FormalSpec>
 <ReturnType>%Status</ReturnType>
 <Implementation><![CDATA[
-	Set GebruikerPaden = ..GeefGebruikerPaden(TemplateInternPad.GebruikerData.ID)
-	Set Klant = ##class(Derde.Klant.Klant).%OpenId(TemplateInternPad.KlantData.ID)
+	Set GebruikerPaden = ..GeefGebruikerPaden(TemplateInternPad.GebruikerID)
+	Set Klant = ##class(Derde.Klant.Klant).%OpenId(TemplateInternPad.KlantID)
 	If ('$IsObject(Klant))
 	{
-		Do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.InvalidInputException).%New("Klant "_TemplateInternPad.KlantData.ID_" opgegeven in het pad bestaat niet"))
+		Do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.InvalidInputException).%New("Klant "_TemplateInternPad.KlantID_" opgegeven in het pad bestaat niet"))
 	}
 	Set ..Pad = GebruikerPaden.GeefTemplateInternPad(Klant)
 	Quit $$$OK
@@ -35,7 +35,7 @@
 <FormalSpec>TemplateExternPad:APPS.VKP.Maatwerk.dto.TemplateExternPad</FormalSpec>
 <ReturnType>%Status</ReturnType>
 <Implementation><![CDATA[
-	Set GebruikerPaden = ..GeefGebruikerPaden(TemplateExternPad.GebruikerData.ID)
+	Set GebruikerPaden = ..GeefGebruikerPaden(TemplateExternPad.GebruikerID)
 	Set ..Pad = GebruikerPaden.GeefTemplateExternPad()
 	Quit $$$OK
 ]]></Implementation>
@@ -45,7 +45,7 @@
 <FormalSpec>StandalonePad:APPS.VKP.Maatwerk.dto.StandalonePad</FormalSpec>
 <ReturnType>%Status</ReturnType>
 <Implementation><![CDATA[
-	Set GebruikerPaden = ..GeefGebruikerPaden(StandalonePad.GebruikerData.ID)
+	Set GebruikerPaden = ..GeefGebruikerPaden(StandalonePad.GebruikerID)
 	Set ..Pad = GebruikerPaden.GeefStandalonePad()
 	Quit $$$OK
 ]]></Implementation>
Index: APPS/VKP/Maatwerk/impl/ParameterToDtoVisitor.cls.xml
===================================================================
diff -u -r1731 -r2080
--- APPS/VKP/Maatwerk/impl/ParameterToDtoVisitor.cls.xml	(.../ParameterToDtoVisitor.cls.xml)	(revision 1731)
+++ APPS/VKP/Maatwerk/impl/ParameterToDtoVisitor.cls.xml	(.../ParameterToDtoVisitor.cls.xml)	(revision 2080)
@@ -36,22 +36,11 @@
 <FormalSpec>ConfiguratorParameters:APPS.VKP.Maatwerk.impl.ConfiguratorParameters</FormalSpec>
 <Private>1</Private>
 <Implementation><![CDATA[
-	
+	Set DataService = ##class(APPS.common.DataService).%New()
 	Set ..ConfiguratorParameters.DocumentID = ConfiguratorParameters.GeefDocumentID()
 	Set ..ConfiguratorParameters.DocumentType = ConfiguratorParameters.GeefDocumentType()
-	Set ..ConfiguratorParameters.GebruikerID = ConfiguratorParameters.GeefGebruikerID()
-	Set ..ConfiguratorParameters.KlantID = ConfiguratorParameters.GeefKlantID()
-	
-	Set Klant = ##class(DOM.DomeinContext).Instance().GeefKlantAPI().GeefKlant(ConfiguratorParameters.GeefKlantID())
-	
-	If ($IsObject(Klant))
-	{
-		Set ..ConfiguratorParameters.KlantNaam = Klant.GeefNaam()
-	}
-	Else
-	{
-		Set ..ConfiguratorParameters.KlantNaam = "Onbekende klant"
-	}
+	Set ..ConfiguratorParameters.GebruikerData = DataService.GeefGebruikerData(ConfiguratorParameters.GeefGebruikerID())
+	Set ..ConfiguratorParameters.KlantData = DataService.GeefKlantData(ConfiguratorParameters.GeefKlantID())
 ]]></Implementation>
 </Method>
 
Index: DOM/common/dto/ProductData.cls.xml
===================================================================
diff -u
--- DOM/common/dto/ProductData.cls.xml	(revision 0)
+++ DOM/common/dto/ProductData.cls.xml	(revision 2080)
@@ -0,0 +1,12 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="9">
+<Class name="DOM.common.dto.ProductData">
+<ProcedureBlock>1</ProcedureBlock>
+<Super>%RegisteredObject,%XML.Adaptor</Super>
+<ClassDefinitionError>0</ClassDefinitionError>
+
+<Property name="ClassificatieID">
+<Type>%String</Type>
+</Property>
+</Class>
+</Export>
Index: vhUnitTest/APPS/VKP/Maatwerk/TestConfiguratorService.cls.xml
===================================================================
diff -u -r2008 -r2080
--- vhUnitTest/APPS/VKP/Maatwerk/TestConfiguratorService.cls.xml	(.../TestConfiguratorService.cls.xml)	(revision 2008)
+++ vhUnitTest/APPS/VKP/Maatwerk/TestConfiguratorService.cls.xml	(.../TestConfiguratorService.cls.xml)	(revision 2080)
@@ -18,7 +18,7 @@
 <Method name="TestGeefParameters">
 <Implementation><![CDATA[
 	// Nieuw data object aanmaken die we daarna gaan opvragen
-	Set Parameters = ##class(APPS.VKP.Maatwerk.impl.ProductToevoegenParameters).%New(##class(APPS.VKP.Maatwerk.enu.DocumentType).Offerte(),1,1000,2,##class(DOM.PM.enu.Familie).Lade(),##class(DOM.PM.enu.LadeVariant).TBXPlus())
+	Set Parameters = ##class(APPS.VKP.Maatwerk.impl.ProductToevoegenParameters).%New(##class(APPS.VKP.Maatwerk.enu.DocumentType).Offerte(),1,1000,..GebruikerICT.%Id(),##class(DOM.PM.enu.Familie).Lade(),##class(DOM.PM.enu.LadeVariant).TBXPlus())
 	
 	Set Status = Parameters.%Save()
 	Do $$$AssertTrue($$$ISOK(Status), "Het parametersobject werd correct opgeslagen")
@@ -34,9 +34,9 @@
 	Do $$$AssertTrue(Parameters.%Extends("APPS.VKP.Maatwerk.dto.ProductToevoegenParameters"),"De dto is van het juiste type")
 	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.GebruikerData.ID,..GebruikerICT.%Id(),"De gebruiker id is correct ingevuld")
+	Do $$$AssertEquals(Parameters.KlantData.ID,1000,"De klant id is correct ingevuld")
+	Do $$$AssertEquals(Parameters.KlantData.Naam,"TESTKLANT VAN HOECKE nv","De klantnaam is correct ingevuld")
 	Do $$$AssertEquals(Parameters.Familie,##class(DOM.PM.enu.Familie).Lade(),"De familie is correct ingevuld")
 	Do $$$AssertEquals(Parameters.Variant,##class(DOM.PM.enu.LadeVariant).TBXPlus(),"De Variant is correct ingevuld")
 
@@ -48,7 +48,7 @@
 	// Nieuw data object aanmaken die we daarna gaan opvragen
 	Set LijnID = 7
 	Set ProductID = 34567
-	Set Parameters = ##class(APPS.VKP.Maatwerk.impl.ProductWijzigenParameters).%New(##class(APPS.VKP.Maatwerk.enu.DocumentType).Offerte(),1,1000,2,##class(DOM.PM.enu.Familie).Lade(),##class(DOM.PM.enu.LadeVariant).TBXPlus(), ProductID, LijnID)
+	Set Parameters = ##class(APPS.VKP.Maatwerk.impl.ProductWijzigenParameters).%New(##class(APPS.VKP.Maatwerk.enu.DocumentType).Offerte(),1,1000,..GebruikerICT.%Id(),##class(DOM.PM.enu.Familie).Lade(),##class(DOM.PM.enu.LadeVariant).TBXPlus(), ProductID, LijnID)
 	
 	Set Status = Parameters.%Save()
 	Do $$$AssertTrue($$$ISOK(Status), "Het parametersobject werd correct opgeslagen")
@@ -64,9 +64,9 @@
 	Do $$$AssertTrue(Parameters.%Extends("APPS.VKP.Maatwerk.dto.ProductWijzigenParameters"),"De dto is van het juiste type")
 	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.GebruikerData.ID,..GebruikerICT.%Id(),"De gebruiker id is correct ingevuld")
+	Do $$$AssertEquals(Parameters.KlantData.ID,1000,"De klant id is correct ingevuld")
+	Do $$$AssertEquals(Parameters.KlantData.Naam,"TESTKLANT VAN HOECKE nv","De klantnaam is correct ingevuld")
 	Do $$$AssertEquals(Parameters.Familie,##class(DOM.PM.enu.Familie).Lade(),"De familie is correct ingevuld")
 	Do $$$AssertEquals(Parameters.Variant,##class(DOM.PM.enu.LadeVariant).TBXPlus(),"De Variant is correct ingevuld")
 	Do $$$AssertEquals(Parameters.LijnID,LijnID,"LijnID is correct ingevuld")
@@ -167,10 +167,8 @@
 	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 Pad.GebruikerID = ..GebruikerICT.%Id()
+	Set Pad.KlantID = 4682
 	
 	Set Naam = "Unittest naam 1"
 	Set MagOverschrijven = 0
@@ -195,9 +193,9 @@
 	Do $$$AssertFalse(TemplateExternPad.IsBewarenToegestaan,"Bewaren is niet toegestaan in het extern pad")
 	Do $$$AssertFalse(StandalonePad.IsBewarenToegestaan,"Bewaren is niet toegestaan in het standalone pad")
 	
-	Do $$$AssertEquals(TemplateInternPad.Pad.GebruikerData.ID,..GebruikerICT.%Id(),"De ict gebruiker is eigenaar van het pad")
-	Do $$$AssertEquals(TemplateExternPad.Pad.GebruikerData.ID,..GebruikerICT.%Id(),"De ict gebruiker is eigenaar van het pad")
-	Do $$$AssertEquals(StandalonePad.Pad.GebruikerData.ID,..GebruikerICT.%Id(),"De ict gebruiker is eigenaar van het pad")
+	Do $$$AssertEquals(TemplateInternPad.Pad.GebruikerID,..GebruikerICT.%Id(),"De ict gebruiker is eigenaar van het pad")
+	Do $$$AssertEquals(TemplateExternPad.Pad.GebruikerID,..GebruikerICT.%Id(),"De ict gebruiker is eigenaar van het pad")
+	Do $$$AssertEquals(StandalonePad.Pad.GebruikerID,..GebruikerICT.%Id(),"De ict gebruiker is eigenaar van het pad")
 	
 	Set BewaardKenmerk = TemplateInternPad.BewaardeKenmerken.GetAt(1)
 	Do $$$AssertEquals(TemplateInternPad.BewaardeKenmerken.Count(),1,"Er is 1 set van kenmerken opgeslagen")
Index: APPS/VKP/Maatwerk/impl/PadToDtoVisitor.cls.xml
===================================================================
diff -u -r2004 -r2080
--- APPS/VKP/Maatwerk/impl/PadToDtoVisitor.cls.xml	(.../PadToDtoVisitor.cls.xml)	(revision 2004)
+++ APPS/VKP/Maatwerk/impl/PadToDtoVisitor.cls.xml	(.../PadToDtoVisitor.cls.xml)	(revision 2080)
@@ -58,14 +58,17 @@
 	Set ..Pad = ##class(APPS.VKP.Maatwerk.dto.TemplateInternPad).%New()
 	Do ..VerwerkPadBasis(TemplateInternPad)
 	Set ..Pad.KlantData = ..DataService.GeefKlantData(TemplateInternPad.GeefKlant().%Id())
+	Set ..Pad.KlantID = ..Pad.KlantData.ID
 	Quit $$$OK
 ]]></Implementation>
 </Method>
 
 <Method name="VerwerkPadBasis">
 <FormalSpec>Pad:APPS.VKP.Maatwerk.impl.Pad</FormalSpec>
 <Private>1</Private>
-<Implementation><![CDATA[	Set ..Pad.GebruikerData = ..DataService.GeefGebruikerData(Pad.GeefGebruiker().%Id())
+<Implementation><![CDATA[
+	Set ..Pad.GebruikerData = ..DataService.GeefGebruikerData(Pad.GeefGebruiker().%Id())
+	Set ..Pad.GebruikerID = ..Pad.GebruikerData.ID
 ]]></Implementation>
 </Method>
 </Class>
Index: APPS/VKP/Maatwerk/dto/Pad.cls.xml
===================================================================
diff -u -r2057 -r2080
--- APPS/VKP/Maatwerk/dto/Pad.cls.xml	(.../Pad.cls.xml)	(revision 2057)
+++ APPS/VKP/Maatwerk/dto/Pad.cls.xml	(.../Pad.cls.xml)	(revision 2080)
@@ -10,6 +10,10 @@
 <Type>DOM.common.dto.GebruikerData</Type>
 </Property>
 
+<Property name="GebruikerID">
+<Type>%String</Type>
+</Property>
+
 <Method name="Accept">
 <Abstract>1</Abstract>
 <FormalSpec>Visitor:APPS.VKP.Maatwerk.dto.PadVisitor</FormalSpec>
Index: APPS/VKP/Maatwerk/impl/KenmerkenBewaarder.cls.xml
===================================================================
diff -u -r2057 -r2080
--- APPS/VKP/Maatwerk/impl/KenmerkenBewaarder.cls.xml	(.../KenmerkenBewaarder.cls.xml)	(revision 2057)
+++ APPS/VKP/Maatwerk/impl/KenmerkenBewaarder.cls.xml	(.../KenmerkenBewaarder.cls.xml)	(revision 2080)
@@ -22,7 +22,7 @@
 <ReturnType>%Status</ReturnType>
 <Implementation><![CDATA[
 	// Controleren of de gebruiker opgegeven in het pad bestaat 
-	Set GebruikerUitPad = ##class(DOM.common.Gebruiker).%OpenId(Pad.GebruikerData.ID)
+	Set GebruikerUitPad = ##class(DOM.common.Gebruiker).%OpenId(Pad.GebruikerID)
 	If ('$IsObject(GebruikerUitPad))
 	{
 		Do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.InvalidInputException).%New("De gebruiker "_Gebruiker.GeefCode()_" opgeven in het pad bestaat niet"))
@@ -83,10 +83,10 @@
 <FormalSpec>TemplateInternPad:APPS.VKP.Maatwerk.dto.TemplateInternPad</FormalSpec>
 <ReturnType>%Status</ReturnType>
 <Implementation><![CDATA[
-	Set Klant = ##class(Derde.Klant.Klant).%OpenId(TemplateInternPad.KlantData.ID)
+	Set Klant = ##class(Derde.Klant.Klant).%OpenId(TemplateInternPad.KlantID)
 	If ('$IsObject(Klant))
 	{
-		Do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.InvalidInputException).%New("Klant "_TemplateInternPad.KlantData.ID_" bestaat niet"))
+		Do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.InvalidInputException).%New("Klant "_TemplateInternPad.KlantID_" bestaat niet"))
 	}
 	Set ..Pad = ..GebruikerPaden.GeefTemplateInternPad(Klant)
 	Quit $$$OK