Index: DOM/AKP/impl/DataM/DataMToelevering.cls.xml
===================================================================
diff -u -r53196 -r53220
--- DOM/AKP/impl/DataM/DataMToelevering.cls.xml (.../DataMToelevering.cls.xml) (revision 53196)
+++ DOM/AKP/impl/DataM/DataMToelevering.cls.xml (.../DataMToelevering.cls.xml) (revision 53220)
@@ -238,11 +238,12 @@
#dim KlantID As DOM.VKP.VanHoeckeKlantID = ""
#dim OrderID As %String = ..GeefOrderID()
if $length(OrderID) {
- If $$$Not(##class(DOM.DomeinContext).Instance().GeefOrderAPI().BestaatOrder(OrderID)) {
+ #dim LocalOrderApi As DOM.VKP.OrderAPI = $$$LazyLoad(..OrderApi, ##class(DOM.DomeinContext).Instance().GeefOrderAPI())
+ If $$$Not(LocalOrderApi.BestaatOrder(OrderID)) {
;#dim FixDataMsg As %String = $$$CRLF_"Fix data via "_$$$CRLF_"Do ##class(vhPowerTools.DOM.AKP.ToeleveringTools).VerwijderOrderVerwijzingIndienOrderNietBestaat("_..GeefID()_")"
Do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.InvalidInputException).%New("Foutieve orderverwijzing in Toelevering "_..GeefID()_": order "_OrderID_" bestaat niet!"))
}
- set KlantID = ##class(DOM.DomeinContext).Instance().GeefOrderAPI().GeefOrder(OrderID).GeefKlantID()
+ set KlantID = LocalOrderApi.GeefOrder(OrderID).GeefKlantID()
}
quit KlantID
]]>
@@ -288,15 +289,15 @@
-
+
-
+