Index: TECH/Exceptions/FileException.cls.xml
===================================================================
diff -u
--- TECH/Exceptions/FileException.cls.xml	(revision 0)
+++ TECH/Exceptions/FileException.cls.xml	(revision 36)
@@ -0,0 +1,37 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="9">
+<Class name="TECH.Exceptions.FileException">
+<ProcedureBlock>1</ProcedureBlock>
+<Super>TECH.Exceptions.AbstractOmschrijvingException</Super>
+<ClassDefinitionError>0</ClassDefinitionError>
+
+<Property name="Status">
+<Type>%Status</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="%OnNew">
+<FormalSpec>Omschrijving:%String,Status:%Status</FormalSpec>
+<Private>1</Private>
+<ProcedureBlock>1</ProcedureBlock>
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[
+	Do ##super(Omschrijving)
+	Set ..Status = Status
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
+<Method name="GeefExceptionCode">
+<ReturnType>TECH.enu.ExceptionCode</ReturnType>
+<Implementation><![CDATA[	Quit ##class(TECH.enu.ExceptionCode).FilesystemFailed()
+]]></Implementation>
+</Method>
+
+<Method name="ToString">
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[	Quit " ("_$$ParseStatus^vhLib(..Status)_")"_$C(13,10)_##super()
+]]></Implementation>
+</Method>
+</Class>
+</Export>
Index: TECH/Icoon.cls.xml
===================================================================
diff -u
--- TECH/Icoon.cls.xml	(revision 0)
+++ TECH/Icoon.cls.xml	(revision 36)
@@ -0,0 +1,37 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="9">
+<Class name="TECH.Icoon">
+<ClassType>persistent</ClassType>
+<ProcedureBlock>1</ProcedureBlock>
+<Super>%Persistent</Super>
+<ClassDefinitionError>0</ClassDefinitionError>
+
+<Property name="RelatiefPad">
+<Type>%String</Type>
+</Property>
+
+<Index name="RelatiefPadIndex">
+<Properties>RelatiefPad</Properties>
+<Unique>1</Unique>
+</Index>
+
+<Storage name="Default">
+<Type>%Library.CacheStorage</Type>
+<DataLocation>^TECH.IcoonD</DataLocation>
+<DefaultData>IcoonDefaultData</DefaultData>
+<IdLocation>^TECH.IcoonD</IdLocation>
+<IndexLocation>^TECH.IcoonI</IndexLocation>
+<StreamLocation>^TECH.IcoonS</StreamLocation>
+<Data name="IcoonDefaultData">
+<Structure>listnode</Structure>
+<Subscript/>
+<Value name="1">
+<Value>%%CLASSNAME</Value>
+</Value>
+<Value name="2">
+<Value>RelatiefPad</Value>
+</Value>
+</Data>
+</Storage>
+</Class>
+</Export>
Index: TECH/Print/PrintUtils.cls.xml
===================================================================
diff -u
--- TECH/Print/PrintUtils.cls.xml	(revision 0)
+++ TECH/Print/PrintUtils.cls.xml	(revision 36)
@@ -0,0 +1,56 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="9">
+<Class name="TECH.Print.PrintUtils">
+<Super>%RegisteredObject</Super>
+<ClassDefinitionError>0</ClassDefinitionError>
+
+<Parameter name="Seperator">
+<Type>%String</Type>
+<Default>,</Default>
+</Parameter>
+
+<Parameter name="RangeChar">
+<Type>%String</Type>
+<Default>-</Default>
+</Parameter>
+
+<Method name="RangesToIterator">
+<Description>
+Zet een range lijst om in een ListIterator.
+Vb: "12" , "12,15,136", "12,56-60,12"</Description>
+<ClassMethod>1</ClassMethod>
+<FormalSpec>Ranges:%String</FormalSpec>
+<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) {
+				Do List.Insert(Range)	
+			}ElseIf((Range[..#RangeChar) & ($Length(Range,..#RangeChar) = 2)) {
+				Set Start = $Piece(Range,..#RangeChar)
+				Set Eind = $Piece(Range,..#RangeChar,2)
+				If (##class(TECH.Integer).IsValidDT(Start) & ##class(TECH.Integer).IsValidDT(Eind)){
+					If (Start < Eind) {
+						For j=Start:1:Eind {
+							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>
+</Class>
+</Export>