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()
]]>
+
+
+
+
+
+
+
+