Index: APPS/VisiDot/impl/VHossEtiketPrinter.cls.xml
===================================================================
diff -u -r2025 -r2037
--- APPS/VisiDot/impl/VHossEtiketPrinter.cls.xml	(.../VHossEtiketPrinter.cls.xml)	(revision 2025)
+++ APPS/VisiDot/impl/VHossEtiketPrinter.cls.xml	(.../VHossEtiketPrinter.cls.xml)	(revision 2037)
@@ -50,12 +50,14 @@
 <ClassMethod>1</ClassMethod>
 <ProcedureBlock>0</ProcedureBlock>
 <Implementation><![CDATA[
+INPUT
 	Set VHossEtiketPrinter = ..%New()
 	Write @F11,@F1,@FMTI,"Printen VHoss ID labels - ",QN,@FMTi
 	Set FP=0303 Write @F,"Geef de range op van VHoss ID's die u wilt printen."
 	Set FP=0403 Write @F,"Voorbeelden:"
 	Set FP=0418 Write @F,"""12"", ""15,25"", ""15-20"""
 	Set FP=0603 Write !,@F Write "Vhoss ID's: ",@FMTI
+	Set $ZTRAP = "CATCH"
 	Read VHossIDs
 	Write @FMTi
 	If (VHossIDs '= "-"){
@@ -68,6 +70,12 @@
 			Read Enter
 		}
 	}
+	Quit $$$OK
+CATCH Set $ZTRAP = ""
+	Set Exception = ##class(TECH.ExceptionHandler).Catch()
+	Set FP=2403 Write !,@F Write Exception.GeefOmschrijving(),"[]=OK"
+	Read Enter	
+	GOTO INPUT
 ]]></Implementation>
 </Method>