Index: APPS/common/KlantKost/impl/data/EnkelvoudigeFactor.cls.xml =================================================================== diff -u -r1384 -r1426 --- APPS/common/KlantKost/impl/data/EnkelvoudigeFactor.cls.xml (.../EnkelvoudigeFactor.cls.xml) (revision 1384) +++ APPS/common/KlantKost/impl/data/EnkelvoudigeFactor.cls.xml (.../EnkelvoudigeFactor.cls.xml) (revision 1426) @@ -18,6 +18,9 @@ Set sc = rset.Execute(..%ClassName(),..%Id(),..Naam,Datum) If (rset.Next(.sc)){ Set Waarde = rset.Data("Waarde") + }Else{ + Set Bericht = "Factor "_..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 ]]>