Index: DOM/common/Transl/impl/DataM/DataMKleurVertaling.cls.xml
===================================================================
diff -u
--- DOM/common/Transl/impl/DataM/DataMKleurVertaling.cls.xml	(revision 0)
+++ DOM/common/Transl/impl/DataM/DataMKleurVertaling.cls.xml	(revision 34008)
@@ -0,0 +1,70 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="DOM.common.Transl.impl.DataM.DataMKleurVertaling">
+<ClassType>persistent</ClassType>
+<ProcedureBlock>1</ProcedureBlock>
+<StorageStrategy>VHOpslag</StorageStrategy>
+<Super>DOM.common.Munt,TECH.Persistent</Super>
+
+<Property name="KleurCodeMetLeadingSpaties">
+<Type>%String</Type>
+</Property>
+
+<Property name="KleurCode">
+<Type>%String</Type>
+<Calculated>1</Calculated>
+<SqlComputeCode> Set {*}=$Translate({KleurCodeMetLeadingSpaties}, " ", "") </SqlComputeCode>
+<SqlComputed>1</SqlComputed>
+</Property>
+
+<Property name="TaalCode">
+<Type>%String</Type>
+</Property>
+
+<Property name="Vertaling">
+<Type>%String</Type>
+</Property>
+
+<Index name="IDIndex">
+<IdKey>1</IdKey>
+<PrimaryKey>1</PrimaryKey>
+<Properties>KleurCodeMetLeadingSpaties,TaalCode</Properties>
+<Unique>1</Unique>
+</Index>
+
+<Query name="VertalingenPerKleur">
+<Description>
+CALL "DOM_common_Transl_impl_DataM"."DataMKleurVertaling_VertalingenPerKleur"</Description>
+<Type>%SQLQuery</Type>
+<SqlProc>1</SqlProc>
+<SqlQuery>select top 100 NL.Vertaling As NL, FR.Vertaling As FR, DE.Vertaling As DE, EN.Vertaling As EN
+from DOM_common_Transl_impl_DataM.DataMKleurVertaling NL
+left join DOM_common_Transl_impl_DataM.DataMKleurVertaling FR ON ( (NL.KleurCodeMetLeadingSpaties=FR.KleurCodeMetLeadingSpaties) and (FR.TaalCode='F') )
+left join DOM_common_Transl_impl_DataM.DataMKleurVertaling DE ON ( (NL.KleurCodeMetLeadingSpaties=DE.KleurCodeMetLeadingSpaties) and (DE.TaalCode='D') )
+left join DOM_common_Transl_impl_DataM.DataMKleurVertaling EN ON ( (NL.KleurCodeMetLeadingSpaties=EN.KleurCodeMetLeadingSpaties) and (EN.TaalCode='E') )
+where NL.TaalCode='N'</SqlQuery>
+</Query>
+
+<Storage name="VHOpslag">
+<Type>%CacheSQLStorage</Type>
+<StreamLocation>^DOM.common.Transl.impl.DataM.DataMKleurVertaling</StreamLocation>
+<SQLMap name="Data">
+<Type>data</Type>
+<Global>^KCOL</Global>
+<Structure>delimited</Structure>
+<Subscript name="1">
+<Expression>{KleurCodeMetLeadingSpaties}</Expression>
+</Subscript>
+<Subscript name="2">
+<Expression>{TaalCode}</Expression>
+</Subscript>
+<Data name="Vertaling">
+<Delimiter>"\"</Delimiter>
+<Piece>1</Piece>
+</Data>
+</SQLMap>
+</Storage>
+</Class>
+
+
+</Export>
Index: DOM/common/Transl/enu/VertaalGroep.cls.xml
===================================================================
diff -u
--- DOM/common/Transl/enu/VertaalGroep.cls.xml	(revision 0)
+++ DOM/common/Transl/enu/VertaalGroep.cls.xml	(revision 34008)
@@ -0,0 +1,60 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="DOM.common.Transl.enu.VertaalGroep">
+<ClassType>datatype</ClassType>
+<ProcedureBlock>1</ProcedureBlock>
+<Super>TECH.Enumeration</Super>
+
+<Parameter name="VALUELIST">
+<Default>,TT,ALG,KC,TBW,CubicsShop,Unishop</Default>
+</Parameter>
+
+<Parameter name="DISPLAYLIST">
+<Default>,TechnischeTermen,Algemeen,KleurCodes,TandemBoxWeb,CubicsShop,Unishop</Default>
+</Parameter>
+
+<Method name="TechnischeTermen">
+<ClassMethod>1</ClassMethod>
+<ReturnType>DOM.common.Transl.enu.VertaalGroep</ReturnType>
+<Implementation><![CDATA[ 	Quit "TT"
+]]></Implementation>
+</Method>
+
+<Method name="Algemeen">
+<ClassMethod>1</ClassMethod>
+<ReturnType>DOM.common.Transl.enu.VertaalGroep</ReturnType>
+<Implementation><![CDATA[ 	Quit "ALG"
+]]></Implementation>
+</Method>
+
+<Method name="KleurCodes">
+<ClassMethod>1</ClassMethod>
+<ReturnType>DOM.common.Transl.enu.VertaalGroep</ReturnType>
+<Implementation><![CDATA[	Quit "KC"
+]]></Implementation>
+</Method>
+
+<Method name="TandemBoxWeb">
+<ClassMethod>1</ClassMethod>
+<ReturnType>DOM.common.Transl.enu.VertaalGroep</ReturnType>
+<Implementation><![CDATA[	Quit "TBW"
+]]></Implementation>
+</Method>
+
+<Method name="Unishop">
+<ClassMethod>1</ClassMethod>
+<ReturnType>DOM.common.Transl.enu.VertaalGroep</ReturnType>
+<Implementation><![CDATA[	Quit "Unishop"
+]]></Implementation>
+</Method>
+
+<Method name="CubicsShop">
+<ClassMethod>1</ClassMethod>
+<ReturnType>DOM.common.Transl.enu.VertaalGroep</ReturnType>
+<Implementation><![CDATA[	Quit "CubicsShop"
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: DOM/common/Transl/Vertaler.cls.xml
===================================================================
diff -u
--- DOM/common/Transl/Vertaler.cls.xml	(revision 0)
+++ DOM/common/Transl/Vertaler.cls.xml	(revision 34008)
@@ -0,0 +1,21 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="DOM.common.Transl.Vertaler">
+<Abstract>1</Abstract>
+<Super>TECH.Interface</Super>
+
+<Method name="GeefVertaling">
+<Abstract>1</Abstract>
+<FormalSpec>Sleutel:%String,Taal:DOM.enu.Taal="",HoofdletterGevoelig:%Boolean=$$$False</FormalSpec>
+<ReturnType>%String</ReturnType>
+</Method>
+
+<Method name="GeefVertalingen">
+<Abstract>1</Abstract>
+<FormalSpec>Sleutels:%ListOfDataTypes,Taal:DOM.enu.Taal=""</FormalSpec>
+<ReturnType>%ListOfDataTypes</ReturnType>
+</Method>
+</Class>
+
+
+</Export>
Index: DOM/common/Transl/VertaalAPI.cls.xml
===================================================================
diff -u
--- DOM/common/Transl/VertaalAPI.cls.xml	(revision 0)
+++ DOM/common/Transl/VertaalAPI.cls.xml	(revision 34008)
@@ -0,0 +1,27 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="DOM.common.Transl.VertaalAPI">
+<Abstract>1</Abstract>
+<Super>TECH.Interface</Super>
+
+<Method name="GeefVertaler">
+<Abstract>1</Abstract>
+<FormalSpec>Taal:DOM.enu.Taal,VertaalGroepen...:DOM.common.Transl.enu.VertaalGroep</FormalSpec>
+<ReturnType>DOM.common.Transl.Vertaler</ReturnType>
+</Method>
+
+<Method name="GeefStandaardVertaler">
+<Abstract>1</Abstract>
+<FormalSpec>Taal:DOM.enu.Taal=##class(DOM.enu.Taal).Nederlands()</FormalSpec>
+<ReturnType>DOM.common.Transl.Vertaler</ReturnType>
+</Method>
+
+<Method name="GeefKleurCodeVertaler">
+<Abstract>1</Abstract>
+<FormalSpec>Taal:DOM.enu.Taal=##class(DOM.enu.Taal).Nederlands()</FormalSpec>
+<ReturnType>DOM.common.Transl.Vertaler</ReturnType>
+</Method>
+</Class>
+
+
+</Export>
Index: DOM/common/Transl/impl/Vertaler.cls.xml
===================================================================
diff -u
--- DOM/common/Transl/impl/Vertaler.cls.xml	(revision 0)
+++ DOM/common/Transl/impl/Vertaler.cls.xml	(revision 34008)
@@ -0,0 +1,117 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="DOM.common.Transl.impl.Vertaler">
+<Super>DOM.common.Transl.Vertaler,TECH.RegisteredObject</Super>
+
+<Property name="VertaalGroepen">
+<Type>DOM.common.Transl.enu.VertaalGroep</Type>
+<Collection>list</Collection>
+</Property>
+
+<Property name="Taal">
+<Type>DOM.enu.Taal</Type>
+</Property>
+
+<Method name="%OnNew">
+<FormalSpec>VertaalGroepen:%ListOfDataTypes(ELEMENTTYPE="DOM.common.Transl.enu.VertaalGroep"),Taal:DOM.enu.Taal=##class(DOM.enu.Taal).Nederlands()</FormalSpec>
+<Private>1</Private>
+<ProcedureBlock>1</ProcedureBlock>
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[
+	// Als eerste parameter te plaatsen in de %OnNew :  
+	//   Taal As DOM.enu.Taal = "" 
+
+ /*
+	If Taal = "" { 
+		Set Taal = ##class(DOM.enu.Taal).Nederlands()
+	}
+	Set ..Taal = Taal
+ */
+	Set ..VertaalGroepen = VertaalGroepen
+	Set ..Taal = Taal
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
+<Method name="GeefVertaling">
+<FormalSpec>Sleutel:%String,Taal:DOM.enu.Taal="",HoofdletterGevoelig:%Boolean=$$$False</FormalSpec>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[
+	#dim OrigineleTaal As DOM.enu.Taal = ..Taal
+	if Taal '= "" {
+		Set ..Taal = Taal
+	}
+
+	#dim Vertaling As %String = ""
+	#dim Gevonden As %Boolean = 0
+	
+	set VertaalGroepIterator = ##class(TECH.ListIterator).%New(..VertaalGroepen)
+	while VertaalGroepIterator.HasNext() && ('Gevonden) {
+		#dim VertaalGroep As DOM.common.Transl.enu.VertaalGroep = VertaalGroepIterator.Next() 
+		if VertaalGroep = ##class(DOM.common.Transl.enu.VertaalGroep).KleurCodes() {
+			set Vertaling = ..GeefKleurVertaling(Sleutel)	
+		} else {
+		 	Set Vertaling = ..GeefResVertaling(VertaalGroep, Sleutel, HoofdletterGevoelig)
+		}
+	 	If $Length(Vertaling) {
+			Set Gevonden = 1 		
+		}
+	}
+	Set ..Taal = OrigineleTaal
+	Quit Vertaling
+]]></Implementation>
+</Method>
+
+<Method name="GeefVertalingen">
+<FormalSpec>Sleutels:%ListOfDataTypes,Taal:DOM.enu.Taal=""</FormalSpec>
+<ReturnType>%ListOfDataTypes</ReturnType>
+<Implementation><![CDATA[
+	set Vertalingen = ##class(%ListOfDataTypes).%New()
+	#dim SleutelsIterator As TECH.ListIterator = ##class(TECH.ListIterator).%New(Sleutels)
+	while SleutelsIterator.HasNext() {
+		do Vertalingen.Insert(..GeefVertaling(SleutelsIterator.Next(),..Taal))
+	}
+	quit Vertalingen
+]]></Implementation>
+</Method>
+
+<Method name="GeefKleurVertaling">
+<FormalSpec>Sleutel:%String</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	#dim Vertaling As %String = Sleutel
+	#dim KleurCode As %String = $J(Sleutel,4)_" "
+	If $data(^KCOL(KleurCode,..Taal)){
+		Set Vertaling = ^KCOL(KleurCode,..Taal)
+	}
+	Quit Vertaling
+]]></Implementation>
+</Method>
+
+<Method name="GeefResVertaling">
+<FormalSpec>VertaalGroep:%String,Sleutel:%String,HoofdletterGevoelig:%Boolean=$$$False</FormalSpec>
+<Private>1</Private>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[
+	#dim Vertaling As %String = ""
+	#dim Query As %String = ""
+	
+	if (HoofdletterGevoelig) {
+		set Query = "select Vertaling from Res.VertalingAbstract where groep = ? and Intern=? and Taal= ?"	
+	} else {
+		set Query = "select Vertaling from Res.VertalingAbstract where groep = ? and %upper(Intern)=%upper(?) and Taal= ?"	
+	}
+	
+	#dim ResultSet As TECH.ResultSet = ##class(TECH.ResultSet).Create(Query, $listbuild(VertaalGroep, Sleutel, ..Taal))
+	
+	if ResultSet.Next() {
+		set Vertaling = ResultSet.GetData(1)	
+	}
+	
+	quit Vertaling
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: DOM/common/Transl/impl/VertaalAPI.cls.xml
===================================================================
diff -u
--- DOM/common/Transl/impl/VertaalAPI.cls.xml	(revision 0)
+++ DOM/common/Transl/impl/VertaalAPI.cls.xml	(revision 34008)
@@ -0,0 +1,37 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="DOM.common.Transl.impl.VertaalAPI">
+<Super>TECH.RegisteredObject,DOM.common.Transl.VertaalAPI</Super>
+
+<Method name="GeefVertaler">
+<FormalSpec>Taal:DOM.enu.Taal,VertaalGroepen...:DOM.common.Transl.enu.VertaalGroep</FormalSpec>
+<ReturnType>DOM.common.Transl.Vertaler</ReturnType>
+<Implementation><![CDATA[
+	if $Length(Taal) && $$$Not(##class(DOM.enu.Taal).IsValid(Taal)) { 
+		do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.InvalidInputException).%New("Taal is ongeldig : "_Taal))
+	}
+	Quit ##class(DOM.common.Transl.impl.Vertaler).%New(##class(TECH.ListUtils).MultiDimensionalToListOfDataTypes(.VertaalGroepen), Taal)
+]]></Implementation>
+</Method>
+
+<Method name="GeefStandaardVertaler">
+<FormalSpec>Taal:DOM.enu.Taal=##class(DOM.enu.Taal).Nederlands()</FormalSpec>
+<ReturnType>DOM.common.Transl.Vertaler</ReturnType>
+<Implementation><![CDATA[
+	#dim VertaalGroepen As %ListOfDataTypes = ##class(TECH.ListUtils).CreateListOfDataTypes(##class(DOM.common.Transl.enu.VertaalGroep).TechnischeTermen(),##class(DOM.common.Transl.enu.VertaalGroep).Algemeen())
+	Quit ##class(DOM.common.Transl.impl.Vertaler).%New(VertaalGroepen, Taal)
+]]></Implementation>
+</Method>
+
+<Method name="GeefKleurCodeVertaler">
+<FormalSpec>Taal:DOM.enu.Taal=##class(DOM.enu.Taal).Nederlands()</FormalSpec>
+<ReturnType>DOM.common.Transl.Vertaler</ReturnType>
+<Implementation><![CDATA[
+	#dim VertaalGroepen As %ListOfDataTypes = ##class(TECH.ListUtils).CreateListOfDataTypes(##class(DOM.common.Transl.enu.VertaalGroep).KleurCodes())
+	Quit ##class(DOM.common.Transl.impl.Vertaler).%New(VertaalGroepen, Taal)
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>