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 @@ ]]> + + + +