Index: DOTNET/PM/Maatwerk/Converter/DomNaarDotnet.cls.xml =================================================================== diff -u -r68728 -r68735 --- DOTNET/PM/Maatwerk/Converter/DomNaarDotnet.cls.xml (.../DomNaarDotnet.cls.xml) (revision 68728) +++ DOTNET/PM/Maatwerk/Converter/DomNaarDotnet.cls.xml (.../DomNaarDotnet.cls.xml) (revision 68735) @@ -251,9 +251,16 @@ #dim LijstMetIdentNummers As %ListOfDataTypes = ##class(TECH.ListUtils).PiecesToList(StukLijst, ";") #dim Index As %Integer - for Index=1:2:(LijstMetIdentNummers.Count()-1){ - #dim ProductId As %String = ..ProductAPI.GeefProductIdVoorIdentNummer(LijstMetIdentNummers.GetAt(Index + 1)) - Set LijstMetProductIds = LijstMetProductIds _ LijstMetIdentNummers.GetAt(Index) _ ";" _ ProductId _ ";" + Try { + For Index=1:2:(LijstMetIdentNummers.Count()-1) { + #dim ProductId As %String = ..ProductAPI.GeefProductIdVoorIdentNummer(LijstMetIdentNummers.GetAt(Index + 1)) + Set LijstMetProductIds = LijstMetProductIds _ LijstMetIdentNummers.GetAt(Index) _ ";" _ ProductId _ ";" + } + } Catch { + #dim GecatchteException As TECH.Exceptions.Exception = ##class(TECH.ExceptionHandler).Catch() + Set InvalidInputException = ##class(TECH.Exceptions.InvalidInputException).%New("Stuklijst is niet correct ingevuld bij het converteren van DomIngegevenKenmerken naar DotNetIngegevenKenmerken. 'ProductId' of 'Aantal' is leeg: '" _ StukLijst _ "'.") + Do InvalidInputException.VoegToeInnerExceptie(GecatchteException) + Do ##class(TECH.ExceptionHandler).Throw(InvalidInputException) } Quit LijstMetProductIds Index: vhUnitTest/DOTNET/PM/Maatwerk/Converter/DomNaarDotnet/Rvg/Test.cls.xml =================================================================== diff -u -r68728 -r68735 --- vhUnitTest/DOTNET/PM/Maatwerk/Converter/DomNaarDotnet/Rvg/Test.cls.xml (.../Test.cls.xml) (revision 68728) +++ vhUnitTest/DOTNET/PM/Maatwerk/Converter/DomNaarDotnet/Rvg/Test.cls.xml (.../Test.cls.xml) (revision 68735) @@ -78,6 +78,22 @@ Do ProductAPIMock.Verifieer() ]]> + + + +