Index: vhUnitTest/WSimpl/Vhisie4/QRcodeNaarKenmerken/GeefKenmerken/Test.cls.xml =================================================================== diff -u -r54789 -r56426 --- vhUnitTest/WSimpl/Vhisie4/QRcodeNaarKenmerken/GeefKenmerken/Test.cls.xml (.../Test.cls.xml) (revision 54789) +++ vhUnitTest/WSimpl/Vhisie4/QRcodeNaarKenmerken/GeefKenmerken/Test.cls.xml (.../Test.cls.xml) (revision 56426) @@ -50,6 +50,7 @@ Set ..RegistratieDummy = ##class(APPS.VKP.Maatwerk.LadeRegistratie.impl.Registratie).%New("","") Set ..RegistratieDummy.OrderID = ..#OrderID + Set ..RegistratieDummy.AxOrderId = "AXSalesId" ]]> @@ -335,7 +336,7 @@ ]]> - + @@ -375,7 +376,6 @@ #dim OrderStub As DOM.VKP.Order = ##class(vhTest.Utils.DOM.VKP.Order).StandaardOrder() Set OrderApiStub = ##class(vhTest.Mock.DOM.VKP.OrderAPI).%New() - Do OrderApiStub.IndienMethodCall("BestaatOrder",..#OrderID).DanReturn($$$True) Do OrderApiStub.IndienMethodCall("GeefOrder",..#OrderID).DanReturn(OrderStub) Set QRNaarKenmerkenService = ##class(WSimpl.Vhisie4.QRcodeNaarKenmerkenService).%New(LadeRegistratieServiceStub, ConfiguratorServiceStub, AppsConverterStub,,OrderApiStub) Index: WSimpl/Vhisie4/QRcodeNaarKenmerkenService.cls.xml =================================================================== diff -u -r54789 -r56426 --- WSimpl/Vhisie4/QRcodeNaarKenmerkenService.cls.xml (.../QRcodeNaarKenmerkenService.cls.xml) (revision 54789) +++ WSimpl/Vhisie4/QRcodeNaarKenmerkenService.cls.xml (.../QRcodeNaarKenmerkenService.cls.xml) (revision 56426) @@ -65,11 +65,10 @@ } Else { Try { Set ProductNummer = ..LadeRegistratieService.ZoekProductNummerViaRegistratieCode(RegistratieCode) - #dim OrderId As %String = ..LadeRegistratieService.ZoekViaRegistratieCode(..GeefRegistratieCode(QRdata)).OrderID - Set LadeRegistratieData.VerkoopOrderId = OrderId - If ..OrderAPI.BestaatOrder(OrderId) { - Set LadeRegistratieData.AxVerkoopOrderId = ..OrderAPI.GeefOrder(OrderId).GeefAxSalesId() - } + #dim Registratie As APPS.VKP.Maatwerk.LadeRegistratie.impl.Registratie = ..LadeRegistratieService.ZoekViaRegistratieCode(..GeefRegistratieCode(QRdata)) + Set LadeRegistratieData.VerkoopOrderId = Registratie.OrderID + Set LadeRegistratieData.AxVerkoopOrderId = Registratie.AxOrderId + } Catch { #dim Exception As TECH.Exceptions.Exception = ##class(TECH.ExceptionHandler).Catch() If Exception.%IsA(##class(TECH.Exceptions.DataNotFoundException).%ClassName($$$True)) {