Index: TECH/Print/PrintUtils.cls.xml
===================================================================
diff -u -r2019 -r2037
--- TECH/Print/PrintUtils.cls.xml	(.../PrintUtils.cls.xml)	(revision 2019)
+++ TECH/Print/PrintUtils.cls.xml	(.../PrintUtils.cls.xml)	(revision 2037)
@@ -23,6 +23,7 @@
 <ReturnType>TECH.ListIterator</ReturnType>
 <Implementation><![CDATA[
 		Set List = ##class(%ListOfDataTypes).%New()
+		Set FoutieveInput = 0
 		For i=1:1:$Length(Ranges,..#Seperator) {
 			Set Range = $Piece(Ranges,..#Seperator,i)
 			If ##class(TECH.Integer).IsValidDT(Range) {
@@ -36,9 +37,18 @@
 							Do List.Insert(j)
 						}	
 					}
+				}Else{
+					Set FoutieveInput = 1	
 				}
+			}Else{
+				Set FoutieveInput = 1
 			}
-		}		
+		}	
+		
+		If FoutieveInput {
+			Do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.InvalidInputException).%New("Foutieve input: Gelieve enkel cijfers, ',' en '-' te gebruiken."))
+		}
+			
 		Quit ##class(TECH.ListIterator).%New(List)
 ]]></Implementation>
 </Method>
Index: BL/PPS/TBX/DocsV1.cls.xml
===================================================================
diff -u -r2032 -r2037
--- BL/PPS/TBX/DocsV1.cls.xml	(.../DocsV1.cls.xml)	(revision 2032)
+++ BL/PPS/TBX/DocsV1.cls.xml	(.../DocsV1.cls.xml)	(revision 2037)
@@ -1296,8 +1296,8 @@
 <Implementation><![CDATA[
 	
 	Set pxLabel.ProductID = PRNr
- 	Set pxLabel.Breedte= ..GeefLabel("BREEDTE",Taal,"B")_": "_$LG(##class(Prod.Kenmerk.DataDefinitie).Get("TBX",PRNr,"CB")) ; Corpus breedte
-	Set pxLabel.Diepte=..GeefLabel("DIEPTE",Taal,"D")_": "_$LG(##class(Prod.Kenmerk.DataDefinitie).Get("TBX",PRNr,"LD")) ; Ladediepte
+ 	Set pxLabel.Breedte= ..GeefVertalingLabel("BREEDTE",Taal,"B")_": "_$LG(##class(Prod.Kenmerk.DataDefinitie).Get("TBX",PRNr,"CB")) ; Corpus breedte
+	Set pxLabel.Diepte=..GeefVertalingLabel("DIEPTE",Taal,"D")_": "_$LG(##class(Prod.Kenmerk.DataDefinitie).Get("TBX",PRNr,"LD")) ; Ladediepte
 	Set pxLabel.WandDikte=$LG(##class(Prod.Kenmerk.DataDefinitie).Get("TBX",PRNr,"WD")) ; Wanddikte
 	Set pxLabel.DossierCode=$$BARCODE^HAD(PRNr,"F")
 	Set pxLabel.VHossInfo=$G(VHossID)
@@ -1311,7 +1311,7 @@
 ]]></Implementation>
 </Method>
 
-<Method name="GeefLabel">
+<Method name="GeefVertalingLabel">
 <Description>
 Ophalen vertaling voor label</Description>
 <FormalSpec>Key:%String,Taal:%String,Default:%String=""</FormalSpec>
Index: BL/Etiket/VHoss2D.cls.xml
===================================================================
diff -u -r2025 -r2037
--- BL/Etiket/VHoss2D.cls.xml	(.../VHoss2D.cls.xml)	(revision 2025)
+++ BL/Etiket/VHoss2D.cls.xml	(.../VHoss2D.cls.xml)	(revision 2037)
@@ -5,11 +5,14 @@
 <Super>BL.Sys.pxLabel</Super>
 <ClassDefinitionError>0</ClassDefinitionError>
 
-<Property name="Label">
-<Type>%String</Type>
-<InitialExpression>"VHossID :"</InitialExpression>
-</Property>
+<Parameter name="Formaat">
+<Default>5x10</Default>
+</Parameter>
 
+<Parameter name="Layout">
+<Default>VHoss2D</Default>
+</Parameter>
+
 <Property name="VHossNr">
 <Type>%Integer</Type>
 </Property>
@@ -27,7 +30,6 @@
 		
 		/// VHossID uitschrijven
 		Write VHossID,$C(9)
-		Write ..Label,$C(9)
 		Write $C(13,10)
 		
 		Quit $$$OK
Index: PV VisiDot.prj.xml
===================================================================
diff -u -r2019 -r2037
--- PV VisiDot.prj.xml	(.../PV VisiDot.prj.xml)	(revision 2019)
+++ PV VisiDot.prj.xml	(.../PV VisiDot.prj.xml)	(revision 2037)
@@ -1,9 +1,10 @@
 <?xml version="1.0" encoding="UTF-8"?>
 <Export generator="Cache" version="9">
-<Project name="PV VisiDot" LastModified="2011-09-08 16:25:29">
+<Project name="PV VisiDot" LastModified="2011-09-12 09:50:23">
   <Items>
     <ProjectItem name="APPS.Halux.common.BatchService" type="CLS"/>
     <ProjectItem name="APPS.Halux.common.impl.BatchImpl" type="CLS"/>
+    <ProjectItem name="APPS.VisiDot.Afhandelaar" type="CLS"/>
     <ProjectItem name="APPS.VisiDot.Controleur" type="CLS"/>
     <ProjectItem name="APPS.VisiDot.ControleurFactory" type="CLS"/>
     <ProjectItem name="APPS.VisiDot.EtiketPrinter" type="CLS"/>
@@ -27,7 +28,6 @@
     <ProjectItem name="APPS.VisiDot.dto.Sequence" type="CLS"/>
     <ProjectItem name="APPS.VisiDot.dto.StatusLight" type="CLS"/>
     <ProjectItem name="APPS.VisiDot.dto.UserInfo" type="CLS"/>
-    <ProjectItem name="APPS.VisiDot.dto.VHoss2DLabel" type="CLS"/>
     <ProjectItem name="APPS.VisiDot.dto.VRRead" type="CLS"/>
     <ProjectItem name="APPS.VisiDot.enu.ActionCodes" type="CLS"/>
     <ProjectItem name="APPS.VisiDot.enu.DetectionKleur" type="CLS"/>
@@ -39,6 +39,7 @@
     <ProjectItem name="APPS.VisiDot.impl.CaptureHelper" type="CLS"/>
     <ProjectItem name="APPS.VisiDot.impl.DetectionHelper" type="CLS"/>
     <ProjectItem name="APPS.VisiDot.impl.DetectionIterator" type="CLS"/>
+    <ProjectItem name="APPS.VisiDot.impl.EndAfhandelaar" type="CLS"/>
     <ProjectItem name="APPS.VisiDot.impl.ProductionHelper" type="CLS"/>
     <ProjectItem name="APPS.VisiDot.impl.QueueHelper" type="CLS"/>
     <ProjectItem name="APPS.VisiDot.impl.Tech" type="CLS"/>
@@ -52,8 +53,10 @@
     <ProjectItem name="APPS.VisiDot.impl.VHossProductionHelper" type="CLS"/>
     <ProjectItem name="APPS.VisiDot.impl.VHossSlotDetectionHelper" type="CLS"/>
     <ProjectItem name="APPS.VisiDot.impl.VHossSlotIterator" type="CLS"/>
-    <ProjectItem name="APPS.VisiDot.impl.pxLabelVHoss" type="CLS"/>
+    <ProjectItem name="APPS.VisiDot.impl.ZijkantAfhandelaar" type="CLS"/>
     <ProjectItem name="APPS.VisiDot.zTryout" type="CLS"/>
+    <ProjectItem name="BL.Etiket.TBXLadeInVHoss2D" type="CLS"/>
+    <ProjectItem name="BL.Etiket.VHoss2D" type="CLS"/>
     <ProjectItem name="BL.PPS.TBX.DocsProPlus" type="CLS"/>
     <ProjectItem name="BL.PPS.TBX.DocsV1" type="CLS"/>
     <ProjectItem name="BL.PPS.TBX.sub.pxLabelKlant" type="CLS"/>
@@ -67,6 +70,8 @@
     <ProjectItem name="HADETIK.MAC" type="MAC"/>
     <ProjectItem name="TECH.Print.PrintUtils" type="CLS"/>
     <ProjectItem name="WS.VisiDot.OperatorServer" type="CLS"/>
+    <ProjectItem name="vhDeploy.JBL.Deploy20110909x0827" type="CLS"/>
+    <ProjectItem name="vhDeploy.JBL.Deploy20110909x1339" type="CLS"/>
     <ProjectItem name="vhUnitTest.APPS.VisiDot.TestCaptureHelper" type="CLS"/>
     <ProjectItem name="vhUnitTest.APPS.VisiDot.TestDetectionHelper" type="CLS"/>
     <ProjectItem name="vhUnitTest.APPS.VisiDot.TestVHoss" type="CLS"/>
Index: vhDeploy/JBL/Deploy20110912x1020.cls.xml
===================================================================
diff -u
--- vhDeploy/JBL/Deploy20110912x1020.cls.xml	(revision 0)
+++ vhDeploy/JBL/Deploy20110912x1020.cls.xml	(revision 2037)
@@ -0,0 +1,20 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="9">
+<Class name="vhDeploy.JBL.Deploy20110912x1020">
+<ProcedureBlock>1</ProcedureBlock>
+<Super>svn.Deploy</Super>
+<ClassDefinitionError>0</ClassDefinitionError>
+
+<Parameter name="Omschrijving">
+<Default>Instellen 5x10 ipv 8x11 etiket voor VHossID Label</Default>
+</Parameter>
+
+<Method name="ExecCode">
+<ClassMethod>1</ClassMethod>
+<Implementation><![CDATA[
+	Kill ^RES("LABELPRINTER","PI","LAYOUT","D","VHoss2D 8x11")
+	Set ^RES("LABELPRINTER","PI","LAYOUT","D","VHoss2D 5x10")="1`VHoss2D 5x10`5x10`VHOSS"
+]]></Implementation>
+</Method>
+</Class>
+</Export>
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>
 
Index: BL/Etiket/TBXLadeInVHoss2D.cls.xml
===================================================================
diff -u -r2025 -r2037
--- BL/Etiket/TBXLadeInVHoss2D.cls.xml	(.../TBXLadeInVHoss2D.cls.xml)	(revision 2025)
+++ BL/Etiket/TBXLadeInVHoss2D.cls.xml	(.../TBXLadeInVHoss2D.cls.xml)	(revision 2037)
@@ -4,6 +4,14 @@
 <Super>BL.Sys.pxLabel</Super>
 <ClassDefinitionError>0</ClassDefinitionError>
 
+<Parameter name="Formaat">
+<Default>5x10</Default>
+</Parameter>
+
+<Parameter name="Layout">
+<Default>TBXLadeInVHoss2D</Default>
+</Parameter>
+
 <Property name="Helper">
 <Type>APPS.VisiDot.impl.VHossProductionHelper</Type>
 <Private>1</Private>