Index: WSimpl/PM/Maatwerk/MaatwerkService/DotNet/GeefMaatwerkDetails.cls.xml =================================================================== diff -u -r65021 -r65194 --- WSimpl/PM/Maatwerk/MaatwerkService/DotNet/GeefMaatwerkDetails.cls.xml (.../GeefMaatwerkDetails.cls.xml) (revision 65021) +++ WSimpl/PM/Maatwerk/MaatwerkService/DotNet/GeefMaatwerkDetails.cls.xml (.../GeefMaatwerkDetails.cls.xml) (revision 65194) @@ -10,11 +10,12 @@ 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 ZijnMaatwerkDetailsReedsGecached As %Boolean = CacheMaatwerkDetails.ZijnMaatwerkDetailsReedsGecached(CacheKey) #dim MaatwerkDetails As APPS.PM.Maatwerk.dto.MaatwerkDetails = "" #dim bombol As %Stream.GlobalBinary Try { - If $$$Not(CacheMaatwerkDetails.ZijnMaatwerkDetailsReedsGecached(CacheKey)) { + If $$$Not(ZijnMaatwerkDetailsReedsGecached) { #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() @@ -33,7 +34,6 @@ 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_".") @@ -45,6 +45,10 @@ } Set MaatwerkDetails = ..Parse(bombol) + + If ((MaatwerkDetails.ProbleemRapport = "") && $$$Not(ZijnMaatwerkDetailsReedsGecached)) { + Do CacheMaatwerkDetails.SaveStream() + } } Catch { #dim Exceptie As TECH.Exceptions.Exception = ##class(TECH.ExceptionHandler).Catch()