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()