Index: vhUnitTest/APPS/VKP/Maatwerk/TestConfiguratorService.cls.xml
===================================================================
diff -u -r1686 -r1731
--- vhUnitTest/APPS/VKP/Maatwerk/TestConfiguratorService.cls.xml	(.../TestConfiguratorService.cls.xml)	(revision 1686)
+++ vhUnitTest/APPS/VKP/Maatwerk/TestConfiguratorService.cls.xml	(.../TestConfiguratorService.cls.xml)	(revision 1731)
@@ -10,7 +10,7 @@
 <Method name="TestGeefParameters">
 <Implementation><![CDATA[
 	// Nieuw data object aanmaken die we daarna gaan opvragen
-	Set Parameters = ##class(APPS.VKP.Maatwerk.impl.ConfiguratorParameters).%New(##class(APPS.VKP.Maatwerk.enu.DocumentType).Offerte(),1,1000,2,3)
+	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 Status = Parameters.%Save()
 	Do $$$AssertTrue($$$ISOK(Status), "Het parametersobject werd correct opgeslagen")
@@ -22,18 +22,153 @@
 	Set ConfiguratorService = ##class(APPS.VKP.Maatwerk.ConfiguratorService).%New()
 	Set Parameters = ConfiguratorService.GeefParameters(ParameterID)
 	
-	Do $$$AssertTrue($$$ISOK(Parameters),"Het parameter object werd teruggegeven")
+	Do $$$AssertTrue($IsObject(Parameters),"Het parameter object werd teruggegeven")
+	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.LijnID,3,"De lijn id 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 ##class(APPS.VKP.Maatwerk.impl.ConfiguratorParameters).%DeleteId(ParameterID)
 	
+	Do $$$AssertFalse(##class(APPS.VKP.Maatwerk.impl.ConfiguratorParameters).%ExistsId(ParameterID),"Het object werd verwijderd")
+	
+	
+	// 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 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($IsObject(Parameters),"Het parameter object werd teruggegeven")
+	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.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")
+	Do $$$AssertEquals(Parameters.ProductID,ProductID,"ProductID 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>
+
+<Method name="TestBestelWinkelkarIntern">
+<Implementation><![CDATA[
+	Set ConfiguratorService = ##class(APPS.VKP.Maatwerk.ConfiguratorService).%New()
+	Set WinkelkarID = ..MaakWinkelkar()
+	
+	Set Applicatie = ##class(APPS.common.dto.Applicatie).%New()
+	Set Applicatie.Naam = "UnitTest"
+	Set Applicatie.Type = ##class(APPS.common.enu.ApplicatieType).Intern()
+	
+	Set OfferteID = 1
+	
+	Do ##class(APPS.VKP.Maatwerk.impl.BesteldeProducten).%DeleteId(##class(APPS.VKP.Maatwerk.enu.DocumentType).Offerte()_"||"_OfferteID)
+	
+	Do ConfiguratorService.BestelWinkelkarIntern(Applicatie,WinkelkarID,##class(APPS.VKP.Maatwerk.enu.DocumentType).Offerte(),OfferteID)
+	
+	Set BesteldeProducten = ConfiguratorService.GeefBesteldeProducten(##class(APPS.VKP.Maatwerk.enu.DocumentType).Offerte(),OfferteID)
+	
+	Do $$$AssertTrue($IsObject(BesteldeProducten),"De producten zijn besteld")
+	Do $$$AssertEquals(BesteldeProducten.Lijst.Count(),1,"Er is 1 product besteld")
+	
+	// voor we het aangemaakte product verwijderen eerst nagaan of we de kenmerken van dit product kunnen opvragen
+	Set PRNr = BesteldeProducten.Lijst.GetAt(1).GeefPRNr()
+	Set GevraagdeVersie = 0
+	Set IngegevenKenmerken = ConfiguratorService.GeefKenmerkenVanProduct(##class(DOM.PM.enu.Familie).Lade(),##class(DOM.PM.enu.LadeVariant).TAOO(),GevraagdeVersie,PRNr)
+	
+	Do $$$AssertTrue(IngegevenKenmerken.%Extends("APPS.PM.Maatwerk.dto.TAOOKenmerken"),"De ingegevenkenmerken zijn correct teruggegeven")
+	
+	Do DELETE^PRODUKT2(PRNr)
+	
+	Do BesteldeProducten.%DeleteId(##class(APPS.VKP.Maatwerk.enu.DocumentType).Offerte()||OfferteID)
+	
+	Do ##class(DOM.EC.Winkelkar.Winkelkar).%DeleteId(WinkelkarID)
+]]></Implementation>
+</Method>
+
+<Method name="TestUpdateWinkelkarLijn">
+<Implementation><![CDATA[
+	Set ConfiguratorService = ##class(APPS.VKP.Maatwerk.ConfiguratorService).%New()
+	Set WinkelkarID = ..MaakWinkelkar()
+	
+	Set Applicatie = ##class(APPS.common.dto.Applicatie).%New()
+	Set Applicatie.Naam = "UnitTest"
+	Set Applicatie.Type = ##class(APPS.common.enu.ApplicatieType).Intern()
+	
+	Set OfferteID = 1
+	
+	Do ##class(APPS.VKP.Maatwerk.impl.BesteldeProducten).%DeleteId(##class(APPS.VKP.Maatwerk.enu.DocumentType).Offerte()_"||"_OfferteID)
+	
+	Do ConfiguratorService.UpdateWinkelkarLijn(Applicatie,WinkelkarID,##class(APPS.VKP.Maatwerk.enu.DocumentType).Offerte(),OfferteID,101)
+	
+	Set BesteldeProducten = ConfiguratorService.GeefBesteldeProducten(##class(APPS.VKP.Maatwerk.enu.DocumentType).Offerte(),OfferteID)
+	
+	Do $$$AssertTrue($IsObject(BesteldeProducten),"De producten zijn besteld")
+	Do $$$AssertEquals(BesteldeProducten.Lijst.Count(),1,"Er is 1 product besteld")
+	
+	Do DELETE^PRODUKT2(BesteldeProducten.Lijst.GetAt(1).GeefPRNr())
+	
+	Do BesteldeProducten.%DeleteId(##class(APPS.VKP.Maatwerk.enu.DocumentType).Offerte()||OfferteID)
+	
+	Do ##class(DOM.EC.Winkelkar.Winkelkar).%DeleteId(WinkelkarID)
+]]></Implementation>
+</Method>
+
+<Method name="MaakWinkelkar">
+<Description>
+Geeft de id van de winkelkar terug</Description>
+<Private>1</Private>
+<ReturnType>%Integer</ReturnType>
+<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 KlantID = 7587
+	Set Winkelkar = WinkelkarService.MaakWinkelkar(Applicatie,KlantID)
+	
+	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 = 3
+	
+	Set Winkelkar = WinkelkarService.VoegToeMaatwerk(Applicatie, Winkelkar.WinkelkarID, GroepNaam, IngegevenKenmerken, Aantal)
+	
+	Quit Winkelkar.WinkelkarID
+]]></Implementation>
+</Method>
 </Class>
 </Export>
Index: DOM/EC/Winkelkar/Visitors/ProductLijnenTeller.cls.xml
===================================================================
diff -u
--- DOM/EC/Winkelkar/Visitors/ProductLijnenTeller.cls.xml	(revision 0)
+++ DOM/EC/Winkelkar/Visitors/ProductLijnenTeller.cls.xml	(revision 1731)
@@ -0,0 +1,38 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="9">
+<Class name="DOM.EC.Winkelkar.Visitors.ProductLijnenTeller">
+<ProcedureBlock>1</ProcedureBlock>
+<Super>DOM.EC.Winkelkar.WinkelkarVisitor</Super>
+<ClassDefinitionError>0</ClassDefinitionError>
+
+<Property name="Aantal">
+<Type>%Integer</Type>
+<InitialExpression>0</InitialExpression>
+<Private>1</Private>
+</Property>
+
+<Method name="GeefAantal">
+<ReturnType>%Integer</ReturnType>
+<Implementation><![CDATA[	Quit ..Aantal
+]]></Implementation>
+</Method>
+
+<Method name="VerwerkProductLijn">
+<FormalSpec>ProductLijn:DOM.EC.Winkelkar.ProductLijn</FormalSpec>
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[
+	Set ..Aantal = ..Aantal + 1
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
+<Method name="VerwerkMaatwerkLijn">
+<FormalSpec>MaatwerkLijn:DOM.EC.Winkelkar.MaatwerkLijn</FormalSpec>
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[
+	Set ..Aantal = ..Aantal + 1
+	Quit $$$OK
+]]></Implementation>
+</Method>
+</Class>
+</Export>
Index: WS/VKP/Maatwerk/ConfiguratorService.cls.xml
===================================================================
diff -u -r1679 -r1731
--- WS/VKP/Maatwerk/ConfiguratorService.cls.xml	(.../ConfiguratorService.cls.xml)	(revision 1679)
+++ WS/VKP/Maatwerk/ConfiguratorService.cls.xml	(.../ConfiguratorService.cls.xml)	(revision 1731)
@@ -20,12 +20,27 @@
 ]]></Implementation>
 </Method>
 
+<Method name="UpdateWinkelkarLijn">
+<FormalSpec>Applicatie:APPS.common.dto.Applicatie,WinkelkarID:%String,DocumentType:APPS.VKP.Maatwerk.enu.DocumentType,DocumentID:%String,LijnID:%String</FormalSpec>
+<WebMethod>1</WebMethod>
+<Implementation><![CDATA[	Do ##class(APPS.VKP.Maatwerk.ConfiguratorService).%New().UpdateWinkelkarLijn(Applicatie, WinkelkarID, DocumentType, DocumentID, LijnID)
+]]></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>
+
+<Method name="GeefKenmerkenVanProduct">
+<FormalSpec>Familie:DOM.PM.enu.Familie,Variant:DOM.PM.enu.LadeVariant,GevraagdeVersie:%Integer,ProductID:%String</FormalSpec>
+<ReturnType>APPS.PM.Maatwerk.dto.IngegevenKenmerken</ReturnType>
+<WebMethod>1</WebMethod>
+<Implementation><![CDATA[	Quit ##class(APPS.VKP.Maatwerk.ConfiguratorService).%New().GeefKenmerkenVanProduct(Familie, Variant, GevraagdeVersie, ProductID)
+]]></Implementation>
+</Method>
 </Class>
 </Export>
Index: APPS/VKP/Maatwerk/impl/ParameterToDtoVisitor.cls.xml
===================================================================
diff -u
--- APPS/VKP/Maatwerk/impl/ParameterToDtoVisitor.cls.xml	(revision 0)
+++ APPS/VKP/Maatwerk/impl/ParameterToDtoVisitor.cls.xml	(revision 1731)
@@ -0,0 +1,64 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="9">
+<Class name="APPS.VKP.Maatwerk.impl.ParameterToDtoVisitor">
+<ProcedureBlock>1</ProcedureBlock>
+<Super>%RegisteredObject,APPS.VKP.Maatwerk.impl.IParametersVisitor</Super>
+<ClassDefinitionError>0</ClassDefinitionError>
+
+<Property name="ConfiguratorParameters">
+<Type>APPS.VKP.Maatwerk.dto.ConfiguratorParameters</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="VerwerkProductToevoegen">
+<FormalSpec>ProductToevoegenParameters:APPS.VKP.Maatwerk.impl.ProductToevoegenParameters</FormalSpec>
+<Implementation><![CDATA[
+	Set ..ConfiguratorParameters = ##class(APPS.VKP.Maatwerk.dto.ProductToevoegenParameters).%New()
+	Set ..ConfiguratorParameters.Familie = ProductToevoegenParameters.GeefFamilie()
+	Set ..ConfiguratorParameters.Variant = ProductToevoegenParameters.GeefVariant()
+	Do ..VerwerkConfiguratorParameters(ProductToevoegenParameters)
+]]></Implementation>
+</Method>
+
+<Method name="VerwerkProductWijzigen">
+<FormalSpec>ProductWijzigenParameters:APPS.VKP.Maatwerk.impl.ProductWijzigenParameters</FormalSpec>
+<Implementation><![CDATA[
+	Set ..ConfiguratorParameters = ##class(APPS.VKP.Maatwerk.dto.ProductWijzigenParameters).%New()
+	Set ..ConfiguratorParameters.Familie = ProductWijzigenParameters.GeefFamilie()
+	Set ..ConfiguratorParameters.Variant = ProductWijzigenParameters.GeefVariant()
+	Set ..ConfiguratorParameters.LijnID = ProductWijzigenParameters.GeefLijnID()
+	Set ..ConfiguratorParameters.ProductID = ProductWijzigenParameters.GeefProductID()
+	Do ..VerwerkConfiguratorParameters(ProductWijzigenParameters)
+]]></Implementation>
+</Method>
+
+<Method name="VerwerkConfiguratorParameters">
+<FormalSpec>ConfiguratorParameters:APPS.VKP.Maatwerk.impl.ConfiguratorParameters</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	
+	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"
+	}
+]]></Implementation>
+</Method>
+
+<Method name="GeefConfiguratorParameters">
+<ReturnType>APPS.VKP.Maatwerk.dto.ConfiguratorParameters</ReturnType>
+<Implementation><![CDATA[	Quit ..ConfiguratorParameters
+]]></Implementation>
+</Method>
+</Class>
+</Export>
Index: APPS/VKP/Maatwerk/dto/ConfiguratorParameters.cls.xml
===================================================================
diff -u -r1679 -r1731
--- APPS/VKP/Maatwerk/dto/ConfiguratorParameters.cls.xml	(.../ConfiguratorParameters.cls.xml)	(revision 1679)
+++ APPS/VKP/Maatwerk/dto/ConfiguratorParameters.cls.xml	(.../ConfiguratorParameters.cls.xml)	(revision 1731)
@@ -1,6 +1,7 @@
 <?xml version="1.0" encoding="UTF-8"?>
 <Export generator="Cache" version="9">
 <Class name="APPS.VKP.Maatwerk.dto.ConfiguratorParameters">
+<Abstract>1</Abstract>
 <ProcedureBlock>1</ProcedureBlock>
 <Super>%RegisteredObject,%XML.Adaptor</Super>
 <ClassDefinitionError>0</ClassDefinitionError>
@@ -29,12 +30,5 @@
 <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: vhTXTPOP.mac.rou
===================================================================
diff -u -r734 -r1731
--- vhTXTPOP.mac.rou	(.../vhTXTPOP.mac.rou)	(revision 734)
+++ vhTXTPOP.mac.rou	(.../vhTXTPOP.mac.rou)	(revision 1731)
@@ -42,7 +42,7 @@
  Quit
   
  ;Toont alleen de tekst, naderhand REFRESH^vhTERMINA() oproepen om de textpop te wissen
-DISPONLY(Tekst,sTitel) 
+DISPONLY(Tekst,sTitel,sNoRefr) 
  ; Tekst : Tekstlijnen met "`" of "~" gescheiden
  ; Optie : sTitel
  New sTxt,sButLoc,I,MailId
@@ -51,7 +51,7 @@
  For I=1:1:$L(Tekst,"~") Do
  .Set sTxt=sTxt+1
  .Set sTxt(sTxt)=$P(Tekst,"~",I)_$S($G(Muet):"~",1:"")
- Set Tekst=$$WILD("C;C",$G(sTitel,"Waarschuwing"),"sTxt","",-1,-1)
+ Set Tekst=$$WILD("C;C",$G(sTitel,"Waarschuwing"),"sTxt","",-1,-1,.sNoRefr)
  Quit
  
 WILD(sPos,sTitel,sTxtLoc,sButLoc,sButAli,sTimeO,sNoRefr,sP1,sP2,sP3,sP4,sP5) 
Index: APPS/VKP/Maatwerk/dto/ProductToevoegenParameters.cls.xml
===================================================================
diff -u
--- APPS/VKP/Maatwerk/dto/ProductToevoegenParameters.cls.xml	(revision 0)
+++ APPS/VKP/Maatwerk/dto/ProductToevoegenParameters.cls.xml	(revision 1731)
@@ -0,0 +1,16 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="9">
+<Class name="APPS.VKP.Maatwerk.dto.ProductToevoegenParameters">
+<ProcedureBlock>1</ProcedureBlock>
+<Super>APPS.VKP.Maatwerk.dto.ConfiguratorParameters</Super>
+<ClassDefinitionError>0</ClassDefinitionError>
+
+<Property name="Familie">
+<Type>DOM.PM.enu.Familie</Type>
+</Property>
+
+<Property name="Variant">
+<Type>DOM.PM.enu.Variant</Type>
+</Property>
+</Class>
+</Export>
Index: APPS/VKP/Maatwerk/impl/ConfiguratorParameters.cls.xml
===================================================================
diff -u -r1686 -r1731
--- APPS/VKP/Maatwerk/impl/ConfiguratorParameters.cls.xml	(.../ConfiguratorParameters.cls.xml)	(revision 1686)
+++ APPS/VKP/Maatwerk/impl/ConfiguratorParameters.cls.xml	(.../ConfiguratorParameters.cls.xml)	(revision 1731)
@@ -8,33 +8,30 @@
 
 <Property name="DocumentID">
 <Type>%Integer</Type>
+<Private>1</Private>
 <Required>1</Required>
 </Property>
 
 <Property name="DocumentType">
 <Type>APPS.VKP.Maatwerk.enu.DocumentType</Type>
+<Private>1</Private>
 <Required>1</Required>
 </Property>
 
 <Property name="GebruikerID">
 <Type>%String</Type>
+<Private>1</Private>
 <Required>1</Required>
 </Property>
 
 <Property name="KlantID">
 <Type>%Integer</Type>
+<Private>1</Private>
 <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>
-
 <Method name="%OnNew">
-<FormalSpec>DocumentType:APPS.VKP.Maatwerk.enu.DocumentType,DocumentID:%String,KlantID:%String,GebruikerID:%String,LijnID:%String=""</FormalSpec>
+<FormalSpec>DocumentType:APPS.VKP.Maatwerk.enu.DocumentType,DocumentID:%String,KlantID:%String,GebruikerID:%String</FormalSpec>
 <Private>1</Private>
 <ProcedureBlock>1</ProcedureBlock>
 <ReturnType>%Status</ReturnType>
@@ -43,11 +40,34 @@
 	Set ..DocumentID = DocumentID
 	Set ..KlantID = KlantID
 	Set ..GebruikerID = GebruikerID
-	Set ..LijnID = LijnID
 	Quit $$$OK
 ]]></Implementation>
 </Method>
 
+<Method name="GeefDocumentID">
+<ReturnType>%Integer</ReturnType>
+<Implementation><![CDATA[	Quit ..DocumentID
+]]></Implementation>
+</Method>
+
+<Method name="GeefDocumentType">
+<ReturnType>APPS.VKP.Maatwerk.enu.DocumentType</ReturnType>
+<Implementation><![CDATA[	Quit ..DocumentType
+]]></Implementation>
+</Method>
+
+<Method name="GeefGebruikerID">
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[	Quit ..GebruikerID
+]]></Implementation>
+</Method>
+
+<Method name="GeefKlantID">
+<ReturnType>%Integer</ReturnType>
+<Implementation><![CDATA[	Quit ..KlantID
+]]></Implementation>
+</Method>
+
 <Storage name="Default">
 <Type>%Library.CacheStorage</Type>
 <DataLocation>^APPS.VKP.Ma79D.Configurator907D</DataLocation>
Index: DOM/EC/Winkelkar/Winkelkar.cls.xml
===================================================================
diff -u -r1674 -r1731
--- DOM/EC/Winkelkar/Winkelkar.cls.xml	(.../Winkelkar.cls.xml)	(revision 1674)
+++ DOM/EC/Winkelkar/Winkelkar.cls.xml	(.../Winkelkar.cls.xml)	(revision 1731)
@@ -104,27 +104,7 @@
 Geeft leeg terug indien de groep niet bestaat</Description>
 <FormalSpec>GroepNaam:%String</FormalSpec>
 <ReturnType>DOM.EC.Winkelkar.GroepLijn</ReturnType>
-<Implementation><![CDATA[
-	Set GroepLijn = ""
-	
-	Set SublijnIterator = ..Root.SublijnIterator()
-	While (SublijnIterator.HasNext())
-	{
-		Set Lijn = SublijnIterator.Next()
-		If (Lijn.%Extends("DOM.EC.Winkelkar.GroepLijn"))
-		{
-			If (Lijn.Naam = GroepNaam)
-			{
-				Set GroepLijn = Lijn
-			}
-			Else
-			{
-				Set GroepLijn = Lijn.GeefGroep(GroepNaam)
-			}
-		}
-	}
-	
-	Quit GroepLijn
+<Implementation><![CDATA[	Quit ..Root.GeefGroep(GroepNaam)
 ]]></Implementation>
 </Method>
 
Index: CSC ConfiguratorService.prj.xml
===================================================================
diff -u -r1687 -r1731
--- CSC ConfiguratorService.prj.xml	(.../CSC ConfiguratorService.prj.xml)	(revision 1687)
+++ CSC ConfiguratorService.prj.xml	(.../CSC ConfiguratorService.prj.xml)	(revision 1731)
@@ -1,5 +1,26 @@
 <?xml version="1.0" encoding="UTF-8"?>
 <Export generator="Cache" version="9">
-<Project name="CSC ConfiguratorService" LastModified="2011-07-14 16:02:27">
+<Project name="CSC ConfiguratorService" LastModified="2011-08-02 15:03:26">
+  <Items>
+    <ProjectItem name="APPS.VKP.Maatwerk.ConfiguratorService" type="CLS"/>
+    <ProjectItem name="APPS.VKP.Maatwerk.dto.ConfiguratorParameters" type="CLS"/>
+    <ProjectItem name="APPS.VKP.Maatwerk.dto.ProductToevoegenParameters" type="CLS"/>
+    <ProjectItem name="APPS.VKP.Maatwerk.dto.ProductWijzigenParameters" 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.IParametersVisitor" type="CLS"/>
+    <ProjectItem name="APPS.VKP.Maatwerk.impl.ParameterToDtoVisitor" type="CLS"/>
+    <ProjectItem name="APPS.VKP.Maatwerk.impl.ProductToevoegenParameters" type="CLS"/>
+    <ProjectItem name="APPS.VKP.Maatwerk.impl.ProductWijzigenParameters" type="CLS"/>
+    <ProjectItem name="APPS.VKP.Maatwerk.impl.WinkelkarToProductVisitor" type="CLS"/>
+    <ProjectItem name="DOM.EC.Winkelkar.Visitors.ProductLijnenTeller" type="CLS"/>
+    <ProjectItem name="FLOWOFF.mac" type="MAC"/>
+    <ProjectItem name="WS.VKP.Maatwerk.ConfiguratorService" type="CLS"/>
+    <ProjectItem name="vhDeploy.CSC.Deploy20110802x1143" type="CLS"/>
+    <ProjectItem name="vhUnitTest.APPS.VKP.Maatwerk.TestConfiguratorService" type="CLS"/>
+    <ProjectItem name="vhUnitTest.APPS.VKP.Maatwerk.TestWinkelkarToProductVisitor" type="CLS"/>
+  </Items>
 </Project>
 </Export>
Index: FLOWOFF.mac.rou
===================================================================
diff -u -r1686 -r1731
--- FLOWOFF.mac.rou	(.../FLOWOFF.mac.rou)	(revision 1686)
+++ FLOWOFF.mac.rou	(.../FLOWOFF.mac.rou)	(revision 1731)
@@ -42,7 +42,8 @@
  .If Input="IC" Do CONTRACT Quit
  .If Input="C" Do PAKKET
  .If Input="Z" Do HADWIZ
- .If Input="F" Do Configurator
+ .If Input="F" Do Configurator(0)
+ .If Input="B" Do Configurator(1)
  .If Input="G" Do LINSERT("G")
  .If Input="H" Do ^KF13 If '$P(^KOFKL(KLNr,"F",OFFNr,1),D,9) Set Input="-" Quit
  .If Input="I" Do LINSERT("","B")
@@ -444,7 +445,6 @@
  Set DelMirror=1
 LDELETE 
  New I,PRNr,OFLNr,MirrorLine
- Quit:'$D(Detail)
  Set OFLNr=Detail(@DL(1)@(6))
  Set K=^KOFKL(KLNr,"F",OFFNr,OFLNr),PRNr=$P(K,D,2)
  If $P(K,D,17)="KOF11" Do DELETE^FLOWTEXT(Q_UGL,OFFNr,OFLNr) Quit
@@ -514,13 +514,31 @@
  . If PRNr,Aantal Do PINSERT("","",PRNr,Aantal)
  Quit
  
-Configurator
- New R,PRNr,Aantal,ConfiguratorService,BesteldeProducten,BesteldeProductenIterator,BesteldProduct,Puntjes
+Configurator(WijzigProduct)
+ New R,PRNr,Aantal,ConfiguratorService,BesteldeProducten,BesteldeProductenIterator,BesteldProduct,Puntjes,Parameters,Status
  Set (PRNr,Aantal,BesteldeProducten,Puntjes)=""
+ New Familie,Variant
+ Set (Familie,Variant) = ""
  
- New Parameters
- Set Parameters = ##class(APPS.VKP.Maatwerk.impl.ConfiguratorParameters).%New(##class(APPS.VKP.Maatwerk.enu.DocumentType).Offerte(),OFFNr,KLNr,##class(TECH.Context.RuntimeContext).Instance().GeefGebruikerInitialen())
- Set Status = Parameters.%Save()
+ If (WijzigProduct)
+ {
+	New ProductAPI, Product
+	Set ProductAPI = ##class(DOM.DomeinContext).Instance().GeefProductAPI()
+	Set OFLNr=Detail(@DL(1)@(6)),R=^KOFKL(KLNr,"F",OFFNr,OFLNr),PRNr=$P(R,D,2) Set:PRNr Aantal=$P(R,D,3)
+	Set Product = ProductAPI.GeefProduct(PRNr)
+	If (Product.%Extends("DOM.PM.MaatwerkProduct"))
+	{
+		Set Familie = Product.GeefFamilie()
+		Set Variant = Product.GeefVariant()
+	}
+	Set Parameters = ##class(APPS.VKP.Maatwerk.impl.ProductWijzigenParameters).%New(##class(APPS.VKP.Maatwerk.enu.DocumentType).Offerte(),OFFNr,KLNr,##class(TECH.Context.RuntimeContext).Instance().GeefGebruikerInitialen(),Familie,Variant,PRNr,OFLNr)
+ 	Set Status = Parameters.%Save()
+ }
+ Else
+ {
+ 	Set Parameters = ##class(APPS.VKP.Maatwerk.impl.ProductToevoegenParameters).%New(##class(APPS.VKP.Maatwerk.enu.DocumentType).Offerte(),OFFNr,KLNr,##class(TECH.Context.RuntimeContext).Instance().GeefGebruikerInitialen(),Familie,Variant)
+ 	Set Status = Parameters.%Save()
+ }
  If ($$$ISERR(Status))
  {
 	 Do DISPONLY^vhTXTPOP("Opslaan parameter object niet gelukt~"_$$ParseStatus^vhLib(Status),"Fout!")
@@ -541,17 +559,26 @@
  Write @F,"VBA:\\"
  Do REFRESH^vhTERMINA()
  
+ Do STORE^vhTERMINA()
  Set ConfiguratorService = ##class(APPS.VKP.Maatwerk.ConfiguratorService).%New() 
- Do DISPONLY^vhTXTPOP("Invoeren van product met configurator    ","Bezig met ...")
+ Do DISPONLY^vhTXTPOP("Invoeren van product met configurator    ","Bezig met ...",1)
  Set BesteldeProducten = ""
  While (BesteldeProducten = "")
  {
-	 h 1
+	 Hang 1
 	 Set Puntjes = Puntjes_"."
 	 If ($Length(Puntjes) > 3) Set Puntjes = ""
-	  Do DISPONLY^vhTXTPOP("Invoeren van product met configurator "_Puntjes_$Justify("",3-$Length(Puntjes)),"Bezig met ...")
+	 Do DISPONLY^vhTXTPOP("Invoeren van product met configurator "_Puntjes_$Justify("",3-$Length(Puntjes)),"Bezig met ...",1)
 	 Set BesteldeProducten = ConfiguratorService.GeefBesteldeProducten(##class(APPS.VKP.Maatwerk.enu.DocumentType).Offerte(),OFFNr)
  }
+ Do REFRESH^vhTERMINA(1,24)
+ 
+ If (WijzigProduct)
+ {
+	 Set DelMirror=1 // zorgt ervoor dat er geen input wordt gevraagd voor de delete
+	 Do LDELETE
+ }
+ 
  Set BesteldeProductenIterator = ##class(TECH.ListIterator).%New(BesteldeProducten.Lijst)
  While (BesteldeProductenIterator.HasNext())
  {
Index: APPS/VKP/Maatwerk/ConfiguratorService.cls.xml
===================================================================
diff -u -r1686 -r1731
--- APPS/VKP/Maatwerk/ConfiguratorService.cls.xml	(.../ConfiguratorService.cls.xml)	(revision 1686)
+++ APPS/VKP/Maatwerk/ConfiguratorService.cls.xml	(.../ConfiguratorService.cls.xml)	(revision 1731)
@@ -24,48 +24,78 @@
 ]]></Implementation>
 </Method>
 
+<Method name="UpdateWinkelkarLijn">
+<FormalSpec>Applicatie:APPS.common.dto.Applicatie,WinkelkarID:%String,DocumentType:APPS.VKP.Maatwerk.enu.DocumentType,DocumentID:%String,LijnID:%String</FormalSpec>
+<Implementation><![CDATA[
+	Set Winkelkar = ..OpenWinkelkar(Applicatie, WinkelkarID)
+	
+	Set ProductLijnenTeller = ##class(DOM.EC.Winkelkar.Visitors.ProductLijnenTeller).%New()
+	Do Winkelkar.Accept(ProductLijnenTeller)
+	
+	If (ProductLijnenTeller.GeefAantal() '= 1)
+	{
+		Do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.InvalidInputException).%New("Bij het updaten van een lijn mag slechts 1 product aanwezig zijn in de winkelkar!"))
+	}
+	
+	Do ..BestelWinkelkarIntern(Applicatie, WinkelkarID, DocumentType, DocumentID)
+]]></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[
-	d WLIP^vhDBG(191,"Tralalala")
-	Quit ##class(APPS.VKP.Maatwerk.impl.BesteldeProducten).%OpenId(DocumentType_"||"_DocumentID)
+<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 ParameterToDtoVisitor = ##class(APPS.VKP.Maatwerk.impl.ParameterToDtoVisitor).%New()
+	Do ParametersImpl.Accept(ParameterToDtoVisitor)
 	
-	Set Klant = ##class(DOM.DomeinContext).Instance().GeefKlantAPI().GeefKlant(ParametersImpl.KlantID)
+	Quit ParameterToDtoVisitor.GeefConfiguratorParameters()
+]]></Implementation>
+</Method>
+
+<Method name="GeefKenmerkenVanProduct">
+<FormalSpec>Familie:DOM.PM.enu.Familie,Variant:DOM.PM.enu.LadeVariant,GevraagdeVersie:%Integer,ProductID:%String</FormalSpec>
+<ReturnType>APPS.PM.Maatwerk.dto.IngegevenKenmerken</ReturnType>
+<Implementation><![CDATA[
+	Set ProductAPI = ##class(DOM.DomeinContext).Instance().GeefProductAPI()
+	Set Product = ProductAPI.GeefProduct(ProductID)
 	
-	If ($IsObject(Klant))
+	If ('$IsObject(Product))
 	{
-		Set Parameters.KlantNaam = Klant.GeefNaam()
+		Do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.InvalidInputException).%New("De opgegeven product id is niet geldig!"))
 	}
-	Else
+	
+	If ('Product.%Extends("DOM.PM.MaatwerkProduct"))
 	{
-		Set Parameters.KlantNaam = "Onbekende klant"
+		Do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.InvalidInputException).%New("Het gevraagde product is geen maatwerkproduct!"))
 	}
-	Set Parameters.LijnID = ParametersImpl.LijnID
 	
-	Quit Parameters
+	If (Product.GeefFamilie()'=Familie) || (Product.GeefVariant()'=Variant)
+	{
+		Do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.InvalidInputException).%New("Het gevraagde product is niet van opgegeven familie of variant!"))
+	}
+	
+	Set Visitor = ##class(APPS.PM.Maatwerk.impl.KenmerkNaarDtoVisitor).%New()
+	Set IngegevenKenmerken = Product.GeefProductSpecificatie().GeefIngegevenKenmerken()
+	Set IngegevenKenmerken = ##class(APPS.PM.Maatwerk.IngegevenKenmUpgrade).GeefIngegevenKenmerkenVersie(IngegevenKenmerken, GevraagdeVersie)
+	Do IngegevenKenmerken.Accept(Visitor)
+	
+	Quit Visitor.GeefIngegevenKenmerken()
 ]]></Implementation>
 </Method>
 
Index: APPS/VKP/Maatwerk/impl/IParametersVisitor.cls.xml
===================================================================
diff -u
--- APPS/VKP/Maatwerk/impl/IParametersVisitor.cls.xml	(revision 0)
+++ APPS/VKP/Maatwerk/impl/IParametersVisitor.cls.xml	(revision 1731)
@@ -0,0 +1,18 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="9">
+<Class name="APPS.VKP.Maatwerk.impl.IParametersVisitor">
+<Abstract>1</Abstract>
+<ProcedureBlock>1</ProcedureBlock>
+<ClassDefinitionError>0</ClassDefinitionError>
+
+<Method name="VerwerkProductToevoegen">
+<Abstract>1</Abstract>
+<FormalSpec>ProductToevoegenParameters:APPS.VKP.Maatwerk.impl.ProductToevoegenParameters</FormalSpec>
+</Method>
+
+<Method name="VerwerkProductWijzigen">
+<Abstract>1</Abstract>
+<FormalSpec>ProductWijzigenParameters:APPS.VKP.Maatwerk.impl.ProductWijzigenParameters</FormalSpec>
+</Method>
+</Class>
+</Export>
Index: APPS/VKP/Maatwerk/impl/ProductWijzigenParameters.cls.xml
===================================================================
diff -u
--- APPS/VKP/Maatwerk/impl/ProductWijzigenParameters.cls.xml	(revision 0)
+++ APPS/VKP/Maatwerk/impl/ProductWijzigenParameters.cls.xml	(revision 1731)
@@ -0,0 +1,92 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="9">
+<Class name="APPS.VKP.Maatwerk.impl.ProductWijzigenParameters">
+<ClassType>persistent</ClassType>
+<ProcedureBlock>1</ProcedureBlock>
+<Super>APPS.VKP.Maatwerk.impl.ConfiguratorParameters</Super>
+<ClassDefinitionError>0</ClassDefinitionError>
+
+<Property name="Familie">
+<Type>DOM.PM.enu.Familie</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="Variant">
+<Type>DOM.PM.enu.Variant</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="ProductID">
+<Type>%Integer</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="LijnID">
+<Type>%Integer</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="%OnNew">
+<FormalSpec>DocumentType:APPS.VKP.Maatwerk.enu.DocumentType,DocumentID:%String,KlantID:%String,GebruikerID:%String,Familie:DOM.PM.enu.Familie,Variant:DOM.PM.enu.Variant,ProductID:%Integer,LijnID:%Integer</FormalSpec>
+<Private>1</Private>
+<ProcedureBlock>1</ProcedureBlock>
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[
+	Set Status = ##super(DocumentType, DocumentID, KlantID, GebruikerID)
+	Set ..Familie = Familie
+	Set ..Variant = Variant
+	Set ..ProductID = ProductID
+	Set ..LijnID = LijnID
+	Quit Status
+]]></Implementation>
+</Method>
+
+<Method name="GeefFamilie">
+<ReturnType>DOM.PM.enu.Familie</ReturnType>
+<Implementation><![CDATA[	Quit ..Familie
+]]></Implementation>
+</Method>
+
+<Method name="GeefVariant">
+<ReturnType>DOM.PM.enu.Variant</ReturnType>
+<Implementation><![CDATA[	Quit ..Variant
+]]></Implementation>
+</Method>
+
+<Method name="GeefProductID">
+<ReturnType>%Integer</ReturnType>
+<Implementation><![CDATA[	Quit ..ProductID
+]]></Implementation>
+</Method>
+
+<Method name="GeefLijnID">
+<ReturnType>%Integer</ReturnType>
+<Implementation><![CDATA[	Quit ..LijnID
+]]></Implementation>
+</Method>
+
+<Method name="Accept">
+<FormalSpec>Visitor:APPS.VKP.Maatwerk.impl.IParametersVisitor</FormalSpec>
+<Implementation><![CDATA[	Do Visitor.VerwerkProductWijzigen(##this)
+]]></Implementation>
+</Method>
+
+<Storage name="Default">
+<Type>%Library.CacheStorage</Type>
+<DefaultData>ProductWijzigenParametersDefaultData</DefaultData>
+<Data name="ProductWijzigenParametersDefaultData">
+<Structure>listnode</Structure>
+<Subscript>"ProductWijzigenParameters"</Subscript>
+<Value name="1">
+<Value>Familie</Value>
+</Value>
+<Value name="2">
+<Value>Variant</Value>
+</Value>
+<Value name="3">
+<Value>ProductID</Value>
+</Value>
+</Data>
+</Storage>
+</Class>
+</Export>
Index: APPS/VKP/Maatwerk/dto/ProductWijzigenParameters.cls.xml
===================================================================
diff -u
--- APPS/VKP/Maatwerk/dto/ProductWijzigenParameters.cls.xml	(revision 0)
+++ APPS/VKP/Maatwerk/dto/ProductWijzigenParameters.cls.xml	(revision 1731)
@@ -0,0 +1,24 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="9">
+<Class name="APPS.VKP.Maatwerk.dto.ProductWijzigenParameters">
+<ProcedureBlock>1</ProcedureBlock>
+<Super>APPS.VKP.Maatwerk.dto.ConfiguratorParameters</Super>
+<ClassDefinitionError>0</ClassDefinitionError>
+
+<Property name="Familie">
+<Type>DOM.PM.enu.Familie</Type>
+</Property>
+
+<Property name="Variant">
+<Type>DOM.PM.enu.Variant</Type>
+</Property>
+
+<Property name="LijnID">
+<Type>%Integer</Type>
+</Property>
+
+<Property name="ProductID">
+<Type>%Integer</Type>
+</Property>
+</Class>
+</Export>
Index: APPS/VKP/Maatwerk/impl/ProductToevoegenParameters.cls.xml
===================================================================
diff -u
--- APPS/VKP/Maatwerk/impl/ProductToevoegenParameters.cls.xml	(revision 0)
+++ APPS/VKP/Maatwerk/impl/ProductToevoegenParameters.cls.xml	(revision 1731)
@@ -0,0 +1,71 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="9">
+<Class name="APPS.VKP.Maatwerk.impl.ProductToevoegenParameters">
+<Description>
+Geeft aan dat we producten willen toevoegen aan een document.
+De Familie + Variant bepalen welk soort product gevraagd wordt om als eerste toe te voegen.
+De client kan op basis hiervan de orderingave met de juiste productspecificatietool initialiseren
+(de juiste maatwerkeditor kiezen dan wel een product zoek voor niet-maatwerkproducten).
+Familie mag ook leeg zijn, in dat geval moet op de client nog worden aangegeven welk type product men wenst toe te voegen.</Description>
+<ClassType>persistent</ClassType>
+<ProcedureBlock>1</ProcedureBlock>
+<Super>APPS.VKP.Maatwerk.impl.ConfiguratorParameters</Super>
+<ClassDefinitionError>0</ClassDefinitionError>
+
+<Property name="Familie">
+<Type>DOM.PM.enu.Familie</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="Variant">
+<Type>DOM.PM.enu.Variant</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="%OnNew">
+<FormalSpec>DocumentType:APPS.VKP.Maatwerk.enu.DocumentType,DocumentID:%String,KlantID:%String,GebruikerID:%String,Familie:DOM.PM.enu.Familie="",Variant:DOM.PM.enu.Variant=""</FormalSpec>
+<Private>1</Private>
+<ProcedureBlock>1</ProcedureBlock>
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[
+	Set Status = ##super(DocumentType, DocumentID, KlantID, GebruikerID)
+	Set ..Familie = Familie
+	Set ..Variant = Variant
+	Quit Status
+]]></Implementation>
+</Method>
+
+<Method name="GeefFamilie">
+<ReturnType>DOM.PM.enu.Familie</ReturnType>
+<Implementation><![CDATA[	Quit ..Familie
+]]></Implementation>
+</Method>
+
+<Method name="GeefVariant">
+<ReturnType>DOM.PM.enu.Variant</ReturnType>
+<Implementation><![CDATA[	Quit ..Variant
+]]></Implementation>
+</Method>
+
+<Method name="Accept">
+<FormalSpec>Visitor:APPS.VKP.Maatwerk.impl.IParametersVisitor</FormalSpec>
+<Implementation><![CDATA[	Do Visitor.VerwerkProductToevoegen(##this)
+]]></Implementation>
+</Method>
+
+<Storage name="Default">
+<Type>%Library.CacheStorage</Type>
+<DefaultData>ProductToevoegenParametersDefaultData</DefaultData>
+<Data name="ProductToevoegenParametersDefaultData">
+<Structure>listnode</Structure>
+<Subscript>"ProductToevoegenParameters"</Subscript>
+<Value name="1">
+<Value>Familie</Value>
+</Value>
+<Value name="2">
+<Value>Variant</Value>
+</Value>
+</Data>
+</Storage>
+</Class>
+</Export>