Index: WSimpl/PM/Maatwerk/MaatwerkService/DotNet/CacheMaatwerkDetails.cls.xml
===================================================================
diff -u
--- WSimpl/PM/Maatwerk/MaatwerkService/DotNet/CacheMaatwerkDetails.cls.xml	(revision 0)
+++ WSimpl/PM/Maatwerk/MaatwerkService/DotNet/CacheMaatwerkDetails.cls.xml	(revision 65021)
@@ -0,0 +1,58 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="WSimpl.PM.Maatwerk.MaatwerkService.DotNet.CacheMaatwerkDetails">
+<Super>%Library.GlobalStreamAdaptor</Super>
+
+<Parameter name="STOREGLOBALNAME">
+<Default>^VH.MaatwerkDetails</Default>
+</Parameter>
+
+<Property name="IngegevenKenmerkenAPI">
+<Type>DOM.PM.IngegevenKenmerkenAPI</Type>
+</Property>
+
+<Method name="%OnNew">
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[
+	Set ..StoreNode = ..#STOREGLOBALNAME
+	Set ..IngegevenKenmerkenAPI = ##class(DOM.DomeinContext).Instance().GeefIngegevenKenmerkenAPI()
+	Quit ##super()
+]]></Implementation>
+</Method>
+
+<Method name="GeefCacheKey">
+<FormalSpec>IngegevenKenmerken:DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken,KlantID:%String,Aantal:%Integer,ProductData:DOM.PM.dto.ProductData=""</FormalSpec>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[
+	#dim CacheKey = ..IngegevenKenmerkenAPI.GeefHash(IngegevenKenmerken)_"#"_Aantal_"#"_KlantID_"#"_##class(TECH.DateTime).HorologToDate($H)
+	
+	/*
+	If $IsObject(ProductData) {
+		Set CacheKey = HuidigeHash _"#"_ProductData.PRNr_"#"_ProductData.DossierNummer
+	}
+	*/
+	
+	Quit
+]]></Implementation>
+</Method>
+
+<Method name="ZijnMaatwerkDetailsReedsGecached">
+<FormalSpec>CacheKey:%String</FormalSpec>
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[
+	Do ..OpenMaatwerkDetailsVoorCacheKey(CacheKey)
+	
+	Quit (##this.SizeGet() > 0)
+]]></Implementation>
+</Method>
+
+<Method name="OpenMaatwerkDetailsVoorCacheKey">
+<FormalSpec>CacheKey:%String</FormalSpec>
+<ReturnType>%Library.Status</ReturnType>
+<Implementation><![CDATA[	Quit ..OpenStream($LB(..#STOREGLOBALNAME,CacheKey))
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: WSimpl/PM/Maatwerk/MaatwerkService/DotNet/GeefMaatwerkDetails.cls.xml
===================================================================
diff -u -r64762 -r65021
--- WSimpl/PM/Maatwerk/MaatwerkService/DotNet/GeefMaatwerkDetails.cls.xml	(.../GeefMaatwerkDetails.cls.xml)	(revision 64762)
+++ WSimpl/PM/Maatwerk/MaatwerkService/DotNet/GeefMaatwerkDetails.cls.xml	(.../GeefMaatwerkDetails.cls.xml)	(revision 65021)
@@ -7,29 +7,43 @@
 <FormalSpec>IngegevenKenmerken:DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken,KlantID:DOM.VKP.VanHoeckeKlantID,Aantal:%Integer,ProductData:DOM.PM.dto.ProductData=""</FormalSpec>
 <ReturnType>APPS.PM.Maatwerk.dto.DotNet.MaatwerkDetailsParsedFromJson</ReturnType>
 <Implementation><![CDATA[
-	#dim MaatwerkDetails As APPS.PM.Maatwerk.dto.MaatwerkDetails = ""
 	Set Logger = ##class(vhLib.Logger).%New("BOMBOL DotNet")
+	Set CacheMaatwerkDetails = ##class(WSimpl.PM.Maatwerk.MaatwerkService.DotNet.CacheMaatwerkDetails).%New()
+	#dim CacheKey As %String = CacheMaatwerkDetails.GeefCacheKey(IngegevenKenmerken, Aantal, ..GeefKlantNummer(KlantID), ProductData)
+	#dim MaatwerkDetails As APPS.PM.Maatwerk.dto.MaatwerkDetails = ""
+	#dim bombol As %Stream.GlobalBinary
 	
 	Try {
-		#dim ProductRestRequest As WSimpl.PM.Maatwerk.MaatwerkService.DotNet.GeefMaatwerkDetails.ProductRestRequest = ..GeefProductRestRequest(IngegevenKenmerken, KlantID, Aantal, ProductData)
-		#dim KenmerkenString As %String = ..ObjectToJson(ProductRestRequest)
-		#dim JSONStream = ##class(%Stream.GlobalBinary).%New()
+		If $$$Not(CacheMaatwerkDetails.ZijnMaatwerkDetailsReedsGecached(CacheKey)) {
+			#dim ProductRestRequest As WSimpl.PM.Maatwerk.MaatwerkService.DotNet.GeefMaatwerkDetails.ProductRestRequest = ..GeefProductRestRequest(IngegevenKenmerken, KlantID, Aantal, ProductData)
+			#dim KenmerkenString As %String = ..ObjectToJson(ProductRestRequest)
+			#dim JSONStream = ##class(%Stream.GlobalBinary).%New()
+			
+			Do JSONStream.Write(KenmerkenString)
+			
+			Do Logger.Info("BOMBOL DotNet request", JSONStream)
+			
+			#dim HttpLocationVoorRestApi As %String = ..GeefHttpLocationVoorRestApi(IngegevenKenmerken)
+			#dim HttpRequest As %Net.HttpRequest = ..GeefHttpsRequest()
+			Do HttpRequest.EntityBody.CopyFrom(JSONStream)
+			
+			#dim StatusCode As %Status = HttpRequest.Get(HttpLocationVoorRestApi,0)
+			Do ..ValidateResponse(StatusCode, HttpRequest)
+			
+			Set bombol = HttpRequest.HttpResponse.Data
+			
+			Do CacheMaatwerkDetails.CopyFrom(bombol)
+			Do CacheMaatwerkDetails.SaveStream()
+			Do Logger.Info("BOMBOL DotNet response", bombol)
+		} Else {
+			Do Logger.Info("Ophalen BOMBOL van DotNet in cachegeheugen", "Ophalen BOMBOL voor cacheKey: "_ CacheKey_".")
+			Do CacheMaatwerkDetails.OpenMaatwerkDetailsVoorCacheKey(CacheKey)
+			
+			Set bombol = ##class(%Stream.GlobalBinary).%New()
+			Do bombol.CopyFrom(CacheMaatwerkDetails)
+			Do Logger.Info("Opgehaalde BOMBOL van DotNet vanuit cachegeheugen", bombol)
+		}
 		
-		Do JSONStream.Write(KenmerkenString)
-		
-		Do Logger.Info("BOMBOL DotNet request", JSONStream)
-		
-		#dim HttpLocationVoorRestApi As %String = ..GeefHttpLocationVoorRestApi(IngegevenKenmerken)
-		#dim HttpRequest As %Net.HttpRequest = ..GeefHttpsRequest()
-		Do HttpRequest.EntityBody.CopyFrom(JSONStream)
-		
-		#dim StatusCode As %Status = HttpRequest.Get(HttpLocationVoorRestApi,0)
-		Do ..ValidateResponse(StatusCode, HttpRequest)
-		
-		#dim bombol As %Stream.GlobalBinary = HttpRequest.HttpResponse.Data
-		
-		Do Logger.Info("BOMBOL DotNet response", bombol)
-		
 		Set MaatwerkDetails = ..Parse(bombol)
 	} 
 	Catch {
@@ -143,11 +157,7 @@
 	Set Request.Aantal = Aantal
 	Set Request.IngegevenKenmerken = Convertor.Converteer(IngegevenKenmerken)
 	
-	If ($Extract(KlantID,1,3) = "K||") {
-		Set Request.KlantID = ##class(DOM.DomeinContext).Instance().GeefLegacyPartijAPI().GeefKlantNummerVoorPartijID(KlantID)
-	} Else {
-		Set Request.KlantID = KlantID
-	}
+	Set Request.KlantID = ..GeefKlantNummer(KlantID)
 	
 	If $IsObject(ProductData) {
 		Set Request.ProductData = ..ConverteerProductDataJsonObject(ProductData)
@@ -157,6 +167,21 @@
 ]]></Implementation>
 </Method>
 
+<Method name="GeefKlantNummer">
+<FormalSpec>KlantID:%String</FormalSpec>
+<Private>1</Private>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[
+	If ($Extract(KlantID,1,3) = "K||") {
+		Set KlantID = ##class(DOM.DomeinContext).Instance().GeefLegacyPartijAPI().GeefKlantNummerVoorPartijID(KlantID)
+	} Else {
+		Set KlantID = KlantID
+	}
+	
+	Quit KlantID
+]]></Implementation>
+</Method>
+
 <Method name="ConverteerProductDataJsonObject">
 <FormalSpec>ProductData:DOM.PM.dto.ProductData</FormalSpec>
 <Private>1</Private>
FishEye: Tag 65021 refers to a dead (removed) revision in file `DOTNET/PM/Maatwerk/Converter/cacheBOMBOL.cls.xml'.
FishEye: No comparison available.  Pass `N' to diff?