Index: WSimpl/Vhisie4/QRcodeNaarKenmerkenService.cls.xml
===================================================================
diff -u -r54071 -r54083
--- WSimpl/Vhisie4/QRcodeNaarKenmerkenService.cls.xml (.../QRcodeNaarKenmerkenService.cls.xml) (revision 54071)
+++ WSimpl/Vhisie4/QRcodeNaarKenmerkenService.cls.xml (.../QRcodeNaarKenmerkenService.cls.xml) (revision 54083)
@@ -55,9 +55,18 @@
#dim RegistratieCode = ..GeefRegistratieCode(QRdata)
If RegistratieCode="" {
Do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.InvalidInputException).%New("Ongeldige data in QRcode '"_QRcodeNaarKenmerkenRequest.QRcodeData_"'"))
-
}
- Set ProductNummer = ..LadeRegistratieService.ZoekProductNummerViaRegistratieCode(RegistratieCode)
+ Try {
+ Set ProductNummer = ..LadeRegistratieService.ZoekProductNummerViaRegistratieCode(RegistratieCode)
+ } Catch {
+ #dim Exception As TECH.Exceptions.Exception = ##class(TECH.ExceptionHandler).Catch()
+ If Exception.%IsA(##class(TECH.Exceptions.DataNotFoundException).%ClassName($$$True)) {
+ Set ProductNummer = ..BarcodeService.GeefProductIDVoorBarcode(RegistratieCode)
+ } Else {
+ Do ##class(TECH.ExceptionHandler).Rethrow(Exception)
+ }
+ }
+
}
#dim IngegevenKenmerken As APPS.PM.Maatwerk.dto.IngegevenKenmerken = ..ConfiguratorService.GeefOnverwerkteKenmerkenVanProduct(ProductNummer)
Index: vhUnitTest/WSimpl/Vhisie4/QRcodeNaarKenmerken/GeefKenmerken/Test.cls.xml
===================================================================
diff -u -r54071 -r54083
--- vhUnitTest/WSimpl/Vhisie4/QRcodeNaarKenmerken/GeefKenmerken/Test.cls.xml (.../Test.cls.xml) (revision 54071)
+++ vhUnitTest/WSimpl/Vhisie4/QRcodeNaarKenmerken/GeefKenmerken/Test.cls.xml (.../Test.cls.xml) (revision 54083)
@@ -15,6 +15,11 @@
%String
+LA1112
+
+
+
+%String
L.A1.11.2
@@ -126,6 +131,23 @@
]]>
+
+
+
+