Index: WSimpl/Vhisie4/QRcodeNaarKenmerkenService.cls.xml =================================================================== diff -u -r54405 -r54441 --- WSimpl/Vhisie4/QRcodeNaarKenmerkenService.cls.xml (.../QRcodeNaarKenmerkenService.cls.xml) (revision 54405) +++ WSimpl/Vhisie4/QRcodeNaarKenmerkenService.cls.xml (.../QRcodeNaarKenmerkenService.cls.xml) (revision 54441) @@ -23,8 +23,13 @@ 1 + +DOM.VKP.OrderAPI +1 + + -LadeRegistratieService:APPS.VKP.Maatwerk.LadeRegistratieService="",ConfiguratorService:APPS.VKP.Maatwerk.impl.ConfiguratorService="",AppsNaarEconConverter:ECONimpl.PM.Maatwerk.AppsConverter="",BarcodeService:APPS.algemeen.BarcodeService="" +LadeRegistratieService:APPS.VKP.Maatwerk.LadeRegistratieService="",ConfiguratorService:APPS.VKP.Maatwerk.impl.ConfiguratorService="",AppsNaarEconConverter:ECONimpl.PM.Maatwerk.AppsConverter="",BarcodeService:APPS.algemeen.BarcodeService="",OrderAPI:DOM.VKP.OrderAPI="" 1 1 %Status @@ -34,6 +39,7 @@ Set ..ConfiguratorService = $$$Inject(ConfiguratorService, ##class(APPS.VKP.Maatwerk.impl.ConfiguratorService).%New()) Set ..AppsNaarEconConverter = $$$Inject(AppsNaarEconConverter, ##class(ECONimpl.PM.Maatwerk.AppsConverter).%New()) Set ..BarcodeService = $$$Inject(BarcodeService, ##class(APPS.algemeen.BarcodeService).%New()) + Set ..OrderAPI = $$$Inject(OrderAPI,##class(DOM.DomeinContext).Instance().GeefOrderAPI()) Quit $$$OK ]]> @@ -59,7 +65,11 @@ } Else { Try { Set ProductNummer = ..LadeRegistratieService.ZoekProductNummerViaRegistratieCode(RegistratieCode) - Set LadeRegistratieData.VerkoopOrderId = ..LadeRegistratieService.ZoekViaRegistratieCode(..GeefRegistratieCode(QRdata)).OrderID + #dim OrderId = ..LadeRegistratieService.ZoekViaRegistratieCode(..GeefRegistratieCode(QRdata)).OrderID + Set LadeRegistratieData.VerkoopOrderId = OrderId + If ..OrderAPI.BestaatOrder(OrderId) { + Set LadeRegistratieData.AxVerkoopOrderId = ..OrderAPI.GeefOrder(OrderId).GeefAxSalesId() + } } Catch { #dim Exception As TECH.Exceptions.Exception = ##class(TECH.ExceptionHandler).Catch() If Exception.%IsA(##class(TECH.Exceptions.DataNotFoundException).%ClassName($$$True)) { @@ -70,7 +80,6 @@ } } } - #dim IngegevenKenmerken As APPS.PM.Maatwerk.dto.IngegevenKenmerken = ..ConfiguratorService.GeefOnverwerkteKenmerkenVanProduct(ProductNummer) #dim EconKenmerken As ECON.PM.Maatwerk.dto.EconConfiguratieKenmerken = ..AppsNaarEconConverter.ConverteerAppsNaarEcon(IngegevenKenmerken) Index: vhUnitTest/WSimpl/Vhisie4/QRcodeNaarKenmerken/GeefKenmerken/Test.cls.xml =================================================================== diff -u -r54405 -r54441 --- vhUnitTest/WSimpl/Vhisie4/QRcodeNaarKenmerken/GeefKenmerken/Test.cls.xml (.../Test.cls.xml) (revision 54405) +++ vhUnitTest/WSimpl/Vhisie4/QRcodeNaarKenmerken/GeefKenmerken/Test.cls.xml (.../Test.cls.xml) (revision 54441) @@ -308,6 +308,58 @@ Do AppsConverterMock.Verifieer() ]]> + + + + + + + +