Index: vhUnitTest/WSimpl/Vhisie4/Winkelkar/WinkelkarService/MaakOrderVanOfferte/Test.cls.xml =================================================================== diff -u -r41620 -r41709 --- vhUnitTest/WSimpl/Vhisie4/Winkelkar/WinkelkarService/MaakOrderVanOfferte/Test.cls.xml (.../Test.cls.xml) (revision 41620) +++ vhUnitTest/WSimpl/Vhisie4/Winkelkar/WinkelkarService/MaakOrderVanOfferte/Test.cls.xml (.../Test.cls.xml) (revision 41709) @@ -49,9 +49,9 @@ Set OrderIngaveServiceStub = ##class(vhTest.Mock.APPS.VKP.OrderIngaveService).%New() Do OrderIngaveServiceStub.IndienMethodCall("MaakOrderVanOfferte","310250","").DanException(##class(APPS.common.Bevestigen.exception.BevestigingNodigException).%New("Bevestiging")) - #dim Substrings = ##class(TECH.ListUtils).CreateListOfDataTypes("Het order kon niet gemaakt worden!") + #dim Substrings = ##class(TECH.ListUtils).CreateListOfDataTypes("Bevestiging") - do ..ZetVerwachteExceptie(##class(Tools.Test.VerwachteExceptie).%New("TECH.Exceptions.InvalidUserInputException",Substrings)) + do ..ZetVerwachteExceptie(##class(Tools.Test.VerwachteExceptie).%New("APPS.common.Bevestigen.exception.BevestigingNodigException",Substrings)) Set MaakOrderVanOfferte = ##class(WSimpl.Vhisie4.Winkelkar.WinkelkarService.MaakOrderVanOfferte).%New(WinkelkarRepositoryStub, VanHoeckeGebruikerBeheerderStub, , OrderIngaveServiceStub, SystemInformationStub) Do MaakOrderVanOfferte.MaakOrderVanOfferte(..GeefMaakOrderVanOfferteRequest()) Index: WSimpl/Vhisie4/Winkelkar/WinkelkarService/MaakOrderVanOfferte.cls.xml =================================================================== diff -u -r41683 -r41709 --- WSimpl/Vhisie4/Winkelkar/WinkelkarService/MaakOrderVanOfferte.cls.xml (.../MaakOrderVanOfferte.cls.xml) (revision 41683) +++ WSimpl/Vhisie4/Winkelkar/WinkelkarService/MaakOrderVanOfferte.cls.xml (.../MaakOrderVanOfferte.cls.xml) (revision 41709) @@ -52,16 +52,7 @@ #dim InterneOfferteId As %String = ..WinkelkarRepository.GeefOfferteIDViaID(MaakOrderVanOfferteRequest.WinkelkarId) #dim ComputerNaam As %String = ..SystemInformation.GeefComputerNaamViaIP(MaakOrderVanOfferteRequest.Header.GebruikerIp) - Try { - #dim OrderId As %String = ..OrderIngaveService.MaakOrderVanOfferte(InterneOfferteId, ..MaakGegevenBevestigingen(MaakOrderVanOfferteRequest.Bevestigingen)).GeefID() - } catch { - #dim Exception As TECH.Exceptions.Exception = ##class(TECH.ExceptionHandler).Catch() - If Exception.%IsA("APPS.common.Bevestigen.exception.BevestigingNodigException") { - Do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.InvalidUserInputException).%New("Het order kon niet gemaakt worden!" _$$$CRLF _$$ObjToXML^vhLib(Exception.GeefSpecifiekeData()))) - }Else{ - Do ##class(TECH.ExceptionHandler).Rethrow(Exception) - } - } + #dim OrderId As %String = ..OrderIngaveService.MaakOrderVanOfferte(InterneOfferteId, ..MaakGegevenBevestigingen(MaakOrderVanOfferteRequest.Bevestigingen)).GeefID() try { Do ..TerminalNavigatieService.RaadpleegOrder(VanHoeckeGebruiker.GeefID(),ComputerNaam, OrderId) @@ -72,8 +63,8 @@ Set Melding = Melding _"Gefaald voor ComputerNaam : " _ComputerNaam _$$$CRLF Set Melding = Melding _"Gefaald voor IP : " _MaakOrderVanOfferteRequest.Header.GebruikerIp _$$$CRLF Set Melding = Melding _"Foutmelding :" _NavigationException.GeefOmschrijving() _$$$CRLF - - Do ##class(vhLib.Logger).%New(..%ClassName(1)).Warning("OrderNavigatie",Melding) + Do ##class(vhLib.Logger).%New().Warning("OrderNavigatie",Melding) + } ]]>