Index: APPS/PM/Maatwerk/TBX/Probox/Calculator.cls.xml
===================================================================
diff -u -r6430 -r6987
--- APPS/PM/Maatwerk/TBX/Probox/Calculator.cls.xml	(.../Calculator.cls.xml)	(revision 6430)
+++ APPS/PM/Maatwerk/TBX/Probox/Calculator.cls.xml	(.../Calculator.cls.xml)	(revision 6987)
@@ -314,7 +314,7 @@
 
 <Method name="GeefWikkelDiepte">
 <ClassMethod>1</ClassMethod>
-<FormalSpec>LadeDiepte:%Float</FormalSpec>
+<FormalSpec>LadeDiepte:%Integer</FormalSpec>
 <ReturnType>%Float</ReturnType>
 <Implementation><![CDATA[
 	Set WikkelDiepte=""
Index: DOM/PM/TBXProduct/Calculator/Opvullijst.cls.xml
===================================================================
diff -u -r6986 -r6987
--- DOM/PM/TBXProduct/Calculator/Opvullijst.cls.xml	(.../Opvullijst.cls.xml)	(revision 6986)
+++ DOM/PM/TBXProduct/Calculator/Opvullijst.cls.xml	(.../Opvullijst.cls.xml)	(revision 6987)
@@ -7,7 +7,7 @@
 
 <Method name="GeefOpvullijstLengte">
 <ClassMethod>1</ClassMethod>
-<FormalSpec>LadeDiepte:%Float</FormalSpec>
+<FormalSpec>LadeDiepte:%Integer</FormalSpec>
 <ReturnType>%Float</ReturnType>
 <Implementation><![CDATA[
 	set OpvullijstLengte = 0
@@ -18,7 +18,7 @@
 	if ( LadeDiepte = 500 )  || ( LadeDiepte = 550 ) || ( LadeDiepte = 600 )  || ( LadeDiepte = 650 ) set OpvullijstLengte = 500
 	
 	if OpvullijstLengte = 0 {
-		do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.InvalidInputException).%New("LadeDiepte invalid"))
+		do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.InvalidInputException).%New("LadeDiepte invalid (LD="_LadeDiepte_")"))
 	}
 	
 	Quit OpvullijstLengte