Index: WSimpl/Vhisie4/QRcodeNaarKenmerkenService.cls.xml
===================================================================
diff -u -r58038 -r62495
--- WSimpl/Vhisie4/QRcodeNaarKenmerkenService.cls.xml (.../QRcodeNaarKenmerkenService.cls.xml) (revision 58038)
+++ WSimpl/Vhisie4/QRcodeNaarKenmerkenService.cls.xml (.../QRcodeNaarKenmerkenService.cls.xml) (revision 62495)
@@ -78,7 +78,12 @@
} 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)
+ Try {
+ Set ProductNummer = ..BarcodeService.GeefProductIDVoorBarcode(RegistratieCode)
+ } Catch {
+ #dim Exception2 As TECH.Exceptions.Exception = ##class(TECH.ExceptionHandler).Catch()
+ Do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.InvalidUserInputException).%New("Geen product gevonden voor QRcode '"_##class(TECH.StringUtils).Replace($Piece(QRcodeNaarKenmerkenRequest.QRcodeData,"=",2),".","")_"'"))
+ }
} Else {
Do ##class(TECH.ExceptionHandler).Rethrow(Exception)
}
Index: vhUnitTest/WSimpl/Vhisie4/QRcodeNaarKenmerken/GeefKenmerken/Test.cls.xml
===================================================================
diff -u -r58086 -r62495
--- vhUnitTest/WSimpl/Vhisie4/QRcodeNaarKenmerken/GeefKenmerken/Test.cls.xml (.../Test.cls.xml) (revision 58086)
+++ vhUnitTest/WSimpl/Vhisie4/QRcodeNaarKenmerken/GeefKenmerken/Test.cls.xml (.../Test.cls.xml) (revision 62495)
@@ -227,6 +227,24 @@
]]>
+
+
+
+