Index: EXTERN/PM/Maatwerk/MaatwerkService.cls.xml
===================================================================
diff -u -r39809 -r59373
--- EXTERN/PM/Maatwerk/MaatwerkService.cls.xml	(.../MaatwerkService.cls.xml)	(revision 39809)
+++ EXTERN/PM/Maatwerk/MaatwerkService.cls.xml	(.../MaatwerkService.cls.xml)	(revision 59373)
@@ -13,6 +13,8 @@
 <FormalSpec>ProductID:%String</FormalSpec>
 <ReturnType>EXTERN.PM.Maatwerk.dto.MaatwerkInfo</ReturnType>
 <Implementation><![CDATA[
+	Do ..ZetContextParameters()
+	
 	#dim Delim As %String = "\"	
 	#dim Product As DOM.PM.MaatwerkProduct = ##class(DOM.DomeinContext).Instance().GeefProductTypeAPI().GeefMaatwerkProduct(ProductID)
 	#dim ProductSpecificatie As DOM.PM.Maatwerk.Calc.Common.ProductSpecificatie = Product.GeefProductSpecificatie()
@@ -37,6 +39,8 @@
 	#dim Result As EXTERN.PM.Maatwerk.dto.PrijsResultaat = ##class(EXTERN.PM.Maatwerk.dto.PrijsResultaat).%New()
 	set Result.IsFout = 1
 	
+	Do ..ZetContextParameters()
+	
 	try {
 		#dim IngegevenKenmerken As DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken = ..MaakIngegevenKenmerkenUitOorspronkelijkeKenmerken(IngegevenKenmerkenKlasseNaam, OorspronkelijkProductID, OorspronkelijkeKenmerkNamen, OorspronkelijkeKenmerkWaarden, AfwijkendeKenmerkNamen, AfwijkendeKenmerkWaarden, NietMeeleverenLijst)
 		#dim Aantal As TECH.Integer = ..BepaalAantal(IngegevenKenmerken)
@@ -77,6 +81,7 @@
 	#define Delim	"\"
 	#dim Resultaat As EXTERN.PM.Maatwerk.dto.MaakMaatwerkProductResultaat = ##class(EXTERN.PM.Maatwerk.dto.MaakMaatwerkProductResultaat).%New()
 	
+	Do ..ZetContextParameters()
 	Set BerekeningService = ##class(APPS.PM.Maatwerk.impl.BerekeningServiceProduct).%New()
 
 	try {
@@ -305,6 +310,33 @@
 	}
 ]]></Implementation>
 </Method>
+
+<Method name="ZetContextParameters">
+<ClassMethod>1</ClassMethod>
+<Private>1</Private>
+<Implementation><![CDATA[
+	#dim RuntimeContext As TECH.Context.RuntimeContext = ##class(TECH.Context.RuntimeContext).Instance()
+	#dim SessieId As %String = ..GeefClientInfo()
+	#dim IsFactoryViaVBA As %Boolean = $$$True
+	If IsFactoryViaVBA {
+		Set SessieId = "VBA:"_SessieId
+	}
+	
+	Do RuntimeContext.ZetApplicatie("MultiCalcExcel MaatwerkService")
+	Do RuntimeContext.ZetSessieID(SessieId)
+]]></Implementation>
+</Method>
+
+<Method name="GeefClientInfo">
+<ClassMethod>1</ClassMethod>
+<Private>1</Private>
+<ProcedureBlock>0</ProcedureBlock>
+<Implementation><![CDATA[
+	#dim PcNaam As %String = $G(NBN)
+	#dim IpAdres As %String = $G(IP)
+	Quit ##class(TECH.StringUtils).Append(PcNaam, IpAdres, "-")
+]]></Implementation>
+</Method>
 </Class>