Index: Res/Vertaling.cls.xml
===================================================================
diff -u -r734 -r912
--- Res/Vertaling.cls.xml	(.../Vertaling.cls.xml)	(revision 734)
+++ Res/Vertaling.cls.xml	(.../Vertaling.cls.xml)	(revision 912)
@@ -1,10 +1,10 @@
 <?xml version="1.0" encoding="UTF-8"?>
-<Export generator="Cache" version="9" zv="Cache for Windows NT (Intel/P4) 5.0.21 (Build 6408)" ts="2011-01-27 17:01:06">
+<Export generator="Cache" version="9" zv="Cache for Windows NT (Intel/P4) 5.0.21 (Build 6408)" ts="2011-02-15 15:27:30">
 <Class name="Res.Vertaling">
 <ClassType>persistent</ClassType>
 <IncludeCode>%VHMacro</IncludeCode>
 <Super>Res.VertalingAbstract</Super>
-<TimeChanged>61863,42692.720298</TimeChanged>
+<TimeChanged>62137,55705.580177</TimeChanged>
 <TimeCreated>59284,55671.687</TimeCreated>
 <ClassDefinitionError>0</ClassDefinitionError>
 
@@ -122,18 +122,23 @@
 <FormalSpec><![CDATA[Groep:%Library.String,Intern:%Library.String,TextType:%Library.String="L",Taal:%Library.String="N",VervangWaarde:%Library.String,PlainTxt:%Boolean=0,&ReturnsHTML:%Boolean]]></FormalSpec>
 <ReturnType>%Library.String</ReturnType>
 <Implementation><![CDATA[
- New VtlID,Val,IsHTML
- Set:($E(Intern,2)="%") Groep="%"   ; "%"-sleutels worden opgezocht in de "%"-vertalingsgroep
- Set VtlID=Groep_"||"_Intern_"||"_TextType_"||"_Taal
- &sql(SELECT Vertaling,IsHTML INTO :Val,:IsHTML FROM Res.Vertaling WHERE (ID=:VtlID))
- Set ReturnsHTML=+$G(IsHTML)
- Quit:($G(Val)="") "" 
- ; VervangWaarde invullen op de plaats van "@"
- Set:(Val["@")&($D(VervangWaarde)) Val=$$REPLACE^vhRtn1(Val,"@",VervangWaarde)
- ;Set:('$G(PlainTxt))&&('IsHTML) Val=$$ConvertToHTML^vhRtn1(Val)
- If ('$G(PlainTxt)) Do
- . Set:('IsHTML) Val=$$ConvertToHTML^vhRtn1(Val)   ; $ZCVT(Val,"O","HTML")
- . Set ReturnsHTML=1
+ if Taal = "ToonVertaalSleutel" {
+	 New Val Set Val = Groep_":"_Intern_":"_TextType
+ }
+ else {
+	 New VtlID,Val,IsHTML
+	 Set:($E(Intern,2)="%") Groep="%"   ; "%"-sleutels worden opgezocht in de "%"-vertalingsgroep
+	 Set VtlID=Groep_"||"_Intern_"||"_TextType_"||"_Taal
+	 &sql(SELECT Vertaling,IsHTML INTO :Val,:IsHTML FROM Res.Vertaling WHERE (ID=:VtlID))
+	 Set ReturnsHTML=+$G(IsHTML)
+	 Quit:($G(Val)="") "" 
+	 ; VervangWaarde invullen op de plaats van "@"
+	 Set:(Val["@")&($D(VervangWaarde)) Val=$$REPLACE^vhRtn1(Val,"@",VervangWaarde)
+	 ;Set:('$G(PlainTxt))&&('IsHTML) Val=$$ConvertToHTML^vhRtn1(Val)
+	 If ('$G(PlainTxt)) Do
+	 . Set:('IsHTML) Val=$$ConvertToHTML^vhRtn1(Val)   ; $ZCVT(Val,"O","HTML")
+	 . Set ReturnsHTML=1
+ }
  Quit Val
 ]]></Implementation>
 </Method>
@@ -407,5 +412,5 @@
 </Data>
 </Storage>
 </Class>
-<Checksum value="3709669702"/>
+<Checksum value="3409113081"/>
 </Export>
Index: Res/InternePersoon.cls.xml
===================================================================
diff -u -r734 -r912
--- Res/InternePersoon.cls.xml	(.../InternePersoon.cls.xml)	(revision 734)
+++ Res/InternePersoon.cls.xml	(.../InternePersoon.cls.xml)	(revision 912)
@@ -1,19 +1,14 @@
 <?xml version="1.0" encoding="UTF-8"?>
-<Export generator="Cache" version="9" zv="Cache for Windows NT (Intel/P4) 5.0.21 (Build 6408)" ts="2011-01-27 17:01:05">
+<Export generator="Cache" version="9" zv="Cache for Windows NT (Intel/P4) 5.0.21 (Build 6408)" ts="2011-02-23 08:47:19">
 <Class name="Res.InternePersoon">
 <ClassType>persistent</ClassType>
 <ProcedureBlock>1</ProcedureBlock>
 <StorageStrategy>VHOpslag</StorageStrategy>
 <Super>%Persistent</Super>
-<TimeChanged>62099,38659.577502</TimeChanged>
+<TimeChanged>62145,31702.10369</TimeChanged>
 <TimeCreated>59351,76885.453</TimeCreated>
 <ClassDefinitionError>0</ClassDefinitionError>
 
-<Projection name="Java">
-<Type>%Projection.Java</Type>
-<Parameter name="ROOTDIR" value="\\notes01\shared\F M A\CacheJava"/>
-</Projection>
-
 <Parameter name="EmailDomain">
 <Default>vanhoecke.be</Default>
 </Parameter>
@@ -411,5 +406,5 @@
 </SQLMap>
 </Storage>
 </Class>
-<Checksum value="1602371171"/>
+<Checksum value="4292877803"/>
 </Export>