Index: APPS/VKP/Maatwerk/ConfiguratorService.cls.xml
===================================================================
diff -u -r2180 -r2253
--- APPS/VKP/Maatwerk/ConfiguratorService.cls.xml	(.../ConfiguratorService.cls.xml)	(revision 2180)
+++ APPS/VKP/Maatwerk/ConfiguratorService.cls.xml	(.../ConfiguratorService.cls.xml)	(revision 2253)
@@ -47,6 +47,14 @@
 <Method name="BestelWinkelkarIntern">
 <FormalSpec>Applicatie:APPS.common.dto.Applicatie,WinkelkarID:%String,DocumentType:APPS.VKP.Maatwerk.enu.DocumentType,DocumentID:%String</FormalSpec>
 <Implementation><![CDATA[
+	Set ResultSet = ##class(%ResultSet).%New()
+	Do ResultSet.Prepare("SELECT ID FROM APPS_VKP_Maatwerk_impl.AdminSessieParameters WHERE DocumentType = ? AND DocumentID = ?")
+	Do ResultSet.Execute(DocumentType, DocumentID)
+	If ('ResultSet.Next())
+	{
+		Do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.InvalidInputException).%New("Er is geen openstaande sessie voor "_DocumentType_" "_DocumentID))
+	}
+	
 	Set Winkelkar = ..OpenWinkelkar(Applicatie, WinkelkarID)
 	Set KlantID = Winkelkar.KlantGetObjectId()
 	
Index: vhUnitTest/APPS/VKP/Maatwerk/TestConfiguratorService.cls.xml
===================================================================
diff -u -r2150 -r2253
--- vhUnitTest/APPS/VKP/Maatwerk/TestConfiguratorService.cls.xml	(.../TestConfiguratorService.cls.xml)	(revision 2150)
+++ vhUnitTest/APPS/VKP/Maatwerk/TestConfiguratorService.cls.xml	(.../TestConfiguratorService.cls.xml)	(revision 2253)
@@ -92,6 +92,9 @@
 	Set OfferteID = 1
 	
 	Do ##class(APPS.VKP.Maatwerk.impl.BesteldeProducten).%DeleteId(##class(APPS.VKP.Maatwerk.enu.DocumentType).Offerte()_"||"_OfferteID)
+	Set Parameters = ##class(APPS.VKP.Maatwerk.impl.AdminSessieParameters).%New(1000,1,1,##class(APPS.VKP.Maatwerk.enu.DocumentType).Offerte(),OfferteID)
+	Set Status = Parameters.%Save()
+	Do $$$AssertEquals($$ParseStatus^vhLib(Status),"","De parameters zijn gesaved")
 	
 	Do ConfiguratorService.BestelWinkelkarIntern(Applicatie,WinkelkarID,##class(APPS.VKP.Maatwerk.enu.DocumentType).Offerte(),OfferteID)
 	
@@ -110,6 +113,7 @@
 	Do DELETE^PRODUKT2(PRNr)
 	
 	Do BesteldeProducten.%DeleteId(##class(APPS.VKP.Maatwerk.enu.DocumentType).Offerte()||OfferteID)
+	Do Parameters.%DeleteId(Parameters.%Id())
 	
 	Do ##class(DOM.EC.Winkelkar.Winkelkar).%DeleteId(WinkelkarID)
 ]]></Implementation>
@@ -127,6 +131,9 @@
 	Set OfferteID = 1
 	
 	Do ##class(APPS.VKP.Maatwerk.impl.BesteldeProducten).%DeleteId(##class(APPS.VKP.Maatwerk.enu.DocumentType).Offerte()_"||"_OfferteID)
+	Set Parameters = ##class(APPS.VKP.Maatwerk.impl.AdminSessieParameters).%New(1000,1,1,##class(APPS.VKP.Maatwerk.enu.DocumentType).Offerte(),OfferteID)
+	Set Status = Parameters.%Save()
+	Do $$$AssertEquals($$ParseStatus^vhLib(Status),"","De parameters zijn gesaved")
 	
 	Do ConfiguratorService.UpdateWinkelkarLijn(Applicatie,WinkelkarID,##class(APPS.VKP.Maatwerk.enu.DocumentType).Offerte(),OfferteID,101)
 	
@@ -138,6 +145,7 @@
 	Do DELETE^PRODUKT2(BesteldeProducten.Lijst.GetAt(1).GeefPRNr())
 	
 	Do BesteldeProducten.%DeleteId(##class(APPS.VKP.Maatwerk.enu.DocumentType).Offerte()||OfferteID)
+	Do Parameters.%DeleteId(Parameters.%Id())
 	
 	Do ##class(DOM.EC.Winkelkar.Winkelkar).%DeleteId(WinkelkarID)
 ]]></Implementation>