Index: CHUI/Flow/ConfiguratorHelper.cls.xml
===================================================================
diff -u -r1733 -r2150
--- CHUI/Flow/ConfiguratorHelper.cls.xml	(.../ConfiguratorHelper.cls.xml)	(revision 1733)
+++ CHUI/Flow/ConfiguratorHelper.cls.xml	(.../ConfiguratorHelper.cls.xml)	(revision 2150)
@@ -9,6 +9,10 @@
 <Super>%RegisteredObject</Super>
 <ClassDefinitionError>0</ClassDefinitionError>
 
+<Parameter name="ApplicatieID">
+<Default>Interne_Configurator</Default>
+</Parameter>
+
 <Method name="MaakWijzigenParameters">
 <ClassMethod>1</ClassMethod>
 <FormalSpec><![CDATA[PRNr:%Integer,DocumentType:APPS.VKP.Maatwerk.enu.DocumentType,DocumentId:%Integer,KlantNr:%Integer,LijnNr:%Integer,&Status:%Status]]></FormalSpec>
@@ -22,7 +26,11 @@
 		Set Familie = Product.GeefFamilie()
 		Set Variant = Product.GeefVariant()
 	}
-	Set Parameters = ##class(APPS.VKP.Maatwerk.impl.ProductWijzigenParameters).%New(DocumentType,DocumentId,KlantNr,##class(TECH.Context.RuntimeContext).Instance().GeefGebruikerInitialen(),Familie,Variant,PRNr,LijnNr)
+	Set Applicatie = ##class(APPS.common.dto.Applicatie).%New()
+	Set Applicatie.Type = ##class(APPS.common.enu.ApplicatieType).Intern()
+	Set Applicatie.Naam = ..#ApplicatieID
+	Set WinkelkarID = ##class(APPS.EC.Winkelkar.WinkelkarService).%New().MaakWinkelkar(Applicatie, KlantNr).WinkelkarID
+	Set Parameters = ##class(APPS.VKP.Maatwerk.impl.ProductWijzigenParameters).%New(KlantNr,##class(TECH.Context.RuntimeContext).Instance().GeefGebruikerInitialen(),WinkelkarID,DocumentType,DocumentId,Familie,Variant,PRNr,LijnNr)
  	Set Status = Parameters.%Save()
  	Quit Parameters
 ]]></Implementation>
@@ -34,7 +42,12 @@
 <ProcedureBlock>1</ProcedureBlock>
 <ReturnType>APPS.VKP.Maatwerk.impl.ConfiguratorParameters</ReturnType>
 <Implementation><![CDATA[
-	Set Parameters = ##class(APPS.VKP.Maatwerk.impl.ProductToevoegenParameters).%New(DocumentType,DocumentId,KlantNr,##class(TECH.Context.RuntimeContext).Instance().GeefGebruikerInitialen())
+	Set Applicatie = ##class(APPS.common.dto.Applicatie).%New()
+	Set Applicatie.Type = ##class(APPS.common.enu.ApplicatieType).Intern()
+	Set Applicatie.Naam = ..#ApplicatieID
+	Set Winkelkar = ##class(APPS.EC.Winkelkar.WinkelkarService).%New().MaakWinkelkar(Applicatie, KlantNr)
+	Set WinkelkarID = ##class(APPS.EC.Winkelkar.WinkelkarService).%New().MaakWinkelkar(Applicatie, KlantNr).WinkelkarID
+	Set Parameters = ##class(APPS.VKP.Maatwerk.impl.ProductToevoegenParameters).%New(KlantNr,##class(TECH.Context.RuntimeContext).Instance().GeefGebruikerInitialen(),WinkelkarID,DocumentType,DocumentId)
  	Set Status = Parameters.%Save()
  	Quit Parameters
 ]]></Implementation>
@@ -63,26 +76,52 @@
 
 <Method name="GeefBesteldeProducten">
 <ClassMethod>1</ClassMethod>
-<FormalSpec>DocumentType:APPS.VKP.Maatwerk.enu.DocumentType,DocumentId:%Integer</FormalSpec>
+<FormalSpec>DocumentType:APPS.VKP.Maatwerk.enu.DocumentType,DocumentID:%Integer</FormalSpec>
 <ReturnType>APPS.VKP.Maatwerk.impl.BesteldeProducten</ReturnType>
 <Implementation><![CDATA[
-	New BesteldeProducten, ConfiguratorService, Puntjes
+	New BesteldeProducten, ConfiguratorService, Puntjes, Key
 	Set Puntjes = ""
 	Do STORE^vhTERMINA()
 	Set ConfiguratorService = ##class(APPS.VKP.Maatwerk.ConfiguratorService).%New() 
 	Do DISPONLY^vhTXTPOP("Invoeren van product met configurator    ","Bezig met ...",1)
 	Set BesteldeProducten = ""
 	While (BesteldeProducten = "")
 	{
-		Hang 1
+		r *Key: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 ...",1)
-		Set BesteldeProducten = ConfiguratorService.GeefBesteldeProducten(DocumentType,DocumentId)
+		If (Key '= 45) // Karakter '-'
+		{
+			Set BesteldeProducten = ConfiguratorService.GeefBesteldeProducten(DocumentType,DocumentID)
+		}
+		Else
+		{
+			Set IsGeannuleerd = 1
+			Set BesteldeProducten = ##class(APPS.VKP.Maatwerk.impl.BesteldeProducten).%New(DocumentType,DocumentID)
+		}
 	}
 	Do REFRESH^vhTERMINA(1,24)
 	Quit BesteldeProducten
 ]]></Implementation>
 </Method>
+
+<Method name="GeefAdminSessieParameters">
+<ClassMethod>1</ClassMethod>
+<FormalSpec>DocumentType:APPS.VKP.Maatwerk.enu.DocumentType,DocumentID:%Integer</FormalSpec>
+<ReturnType>APPS.VKP.Maatwerk.impl.AdminSessieParameters</ReturnType>
+<Implementation><![CDATA[
+	New ResultSet, Parameters
+	Set Parameters = ""
+	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())
+	{
+		Set Parameters = ##class(APPS.VKP.Maatwerk.impl.AdminSessieParameters).%OpenId(ResultSet.Data("ID"))
+	}
+	Quit Parameters
+]]></Implementation>
+</Method>
 </Class>
 </Export>