Index: APPS/common/KlantKost/impl/data/MeervoudigeFactor.cls.xml =================================================================== diff -u -r1384 -r1426 --- APPS/common/KlantKost/impl/data/MeervoudigeFactor.cls.xml (.../MeervoudigeFactor.cls.xml) (revision 1384) +++ APPS/common/KlantKost/impl/data/MeervoudigeFactor.cls.xml (.../MeervoudigeFactor.cls.xml) (revision 1426) @@ -43,6 +43,9 @@ Set sc = rset.Execute(..%ClassName(),..%Id(),Naam,Datum) If (rset.Next(.sc)){ Set Waarde = rset.Data("Waarde") + }Else{ + Set Bericht = "Factor "_..Naam_" -> "_Naam_" die geldig is op "_$zd(Datum,4)_" niet gevonden." + Do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.BaseException).%New(##class(TECH.enu.ExceptionCode).InvalidInput(),Bericht)) } Quit Waarde ]]>