Index: APPS/TRANSP/Offerte/impl/DHL/TariefBepaler.cls.xml =================================================================== diff -u -r36338 -r36342 --- APPS/TRANSP/Offerte/impl/DHL/TariefBepaler.cls.xml (.../TariefBepaler.cls.xml) (revision 36338) +++ APPS/TRANSP/Offerte/impl/DHL/TariefBepaler.cls.xml (.../TariefBepaler.cls.xml) (revision 36342) @@ -35,8 +35,8 @@ GewichtInKg:%Integer 2500) ##class(TECH.ExceptionHandler).Throw(##class(APPS.TRANSP.Offerte.exc.PrijsOpAanvraagExceptie).%New("Voor gewichten groter dan 2500 Kg zijn de tarieven op aanvraag.")) + Do:(GewichtInKg<=0) ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.OngeldigeGegevensOntvangen).%New("Er is een ongeldig gewicht ingevoerd.")) + Do:(GewichtInKg>2500) ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.OngeldigeGegevensOntvangen).%New("Voor gewichten groter dan 2500 Kg zijn de tarieven op aanvraag.")) ]]> Index: vhUnitTest/APPS/TRANSP/Offerte/impl/DHL/TariefBepaler/Test.cls.xml =================================================================== diff -u -r36338 -r36342 --- vhUnitTest/APPS/TRANSP/Offerte/impl/DHL/TariefBepaler/Test.cls.xml (.../Test.cls.xml) (revision 36338) +++ vhUnitTest/APPS/TRANSP/Offerte/impl/DHL/TariefBepaler/Test.cls.xml (.../Test.cls.xml) (revision 36342) @@ -9,7 +9,7 @@ #dim TariefBepaler As APPS.TRANSP.Offerte.impl.DHL.TariefBepaler = ##class(APPS.TRANSP.Offerte.impl.DHL.TariefBepaler).%New(TariefRepository) #dim Substrings = ##class(TECH.ListUtils).CreateListOfDataTypes("Er is een ongeldig gewicht ingevoerd.") - do ..ZetVerwachteExceptie(##class(Tools.Test.VerwachteExceptie).%New("TECH.Exceptions.InvalidInputException",Substrings)) + do ..ZetVerwachteExceptie(##class(Tools.Test.VerwachteExceptie).%New("TECH.Exceptions.OngeldigeGegevensOntvangen",Substrings)) #dim Afmeting As APPS.TRANSP.OfferteService.dto.Afmeting = ##class(APPS.TRANSP.OfferteService.dto.Afmeting).%New(0,0,0) @@ -105,7 +105,7 @@ #dim TariefBepaler As APPS.TRANSP.Offerte.impl.DHL.TariefBepaler = ##class(APPS.TRANSP.Offerte.impl.DHL.TariefBepaler).%New(TariefRepository) #dim Substrings = ##class(TECH.ListUtils).CreateListOfDataTypes("Voor gewichten groter dan 2500 Kg zijn de tarieven op aanvraag.") - do ..ZetVerwachteExceptie(##class(Tools.Test.VerwachteExceptie).%New("APPS.TRANSP.Offerte.exc.PrijsOpAanvraagExceptie",Substrings)) + do ..ZetVerwachteExceptie(##class(Tools.Test.VerwachteExceptie).%New("TECH.Exceptions.OngeldigeGegevensOntvangen",Substrings)) #dim Tarief As %Decimal = TariefBepaler.GeefTarief("DE","54122",3000.000) ]]> @@ -117,7 +117,7 @@ #dim TariefBepaler As APPS.TRANSP.Offerte.impl.DHL.TariefBepaler = ##class(APPS.TRANSP.Offerte.impl.DHL.TariefBepaler).%New(TariefRepository) #dim Substrings = ##class(TECH.ListUtils).CreateListOfDataTypes("Er is een ongeldig gewicht ingevoerd.") - do ..ZetVerwachteExceptie(##class(Tools.Test.VerwachteExceptie).%New("TECH.Exceptions.InvalidInputException",Substrings)) + do ..ZetVerwachteExceptie(##class(Tools.Test.VerwachteExceptie).%New("TECH.Exceptions.OngeldigeGegevensOntvangen",Substrings)) #dim Afmeting As APPS.TRANSP.OfferteService.dto.Afmeting = ##class(APPS.TRANSP.OfferteService.dto.Afmeting).%New(0, 0, 0) @@ -157,7 +157,7 @@ #dim TariefBepaler As APPS.TRANSP.Offerte.impl.DHL.TariefBepaler = ##class(APPS.TRANSP.Offerte.impl.DHL.TariefBepaler).%New(TariefRepository) #dim Substrings = ##class(TECH.ListUtils).CreateListOfDataTypes("Voor gewichten groter dan 2500 Kg zijn de tarieven op aanvraag.") - do ..ZetVerwachteExceptie(##class(Tools.Test.VerwachteExceptie).%New("APPS.TRANSP.Offerte.exc.PrijsOpAanvraagExceptie",Substrings)) + do ..ZetVerwachteExceptie(##class(Tools.Test.VerwachteExceptie).%New("TECH.Exceptions.OngeldigeGegevensOntvangen",Substrings)) #dim Afmeting As APPS.TRANSP.OfferteService.dto.Afmeting = ##class(APPS.TRANSP.OfferteService.dto.Afmeting).%New(10000, 10000, 10000) #dim FactureerbaarGewichtInKg As %Decimal = TariefBepaler.BepaalFactureerbaarGewichtInKg(Afmeting,0)