Index: APPS/PM/Vertaling/ExcelExport.cls.xml
===================================================================
diff -u -r106 -r107
--- APPS/PM/Vertaling/ExcelExport.cls.xml	(.../ExcelExport.cls.xml)	(revision 106)
+++ APPS/PM/Vertaling/ExcelExport.cls.xml	(.../ExcelExport.cls.xml)	(revision 107)
@@ -30,7 +30,7 @@
 		#define TAB $C(9)
 		Set Seperator = $$$TAB
 		
-		Set FileName=##class(%File).NormalizeDirectory($$DIRUSER^vhDEV)_"Export"_VertalingsGroep_" - "_$p($zdt($h,3)," ")_".xls"
+		Set FileName=##class(%File).NormalizeDirectory(##class(TECH.File).GetTempDir())_"Export"_VertalingsGroep_" - "_$p($zdt($h,3)," ")_".xls"
 		W !,FileName
 		Set File = ##class(%File).%New(FileName)
     	Do File.Open("WSN")
Index: Res/PI/Taal.cls.xml
===================================================================
diff -u -r2 -r107
--- Res/PI/Taal.cls.xml	(.../Taal.cls.xml)	(revision 2)
+++ Res/PI/Taal.cls.xml	(.../Taal.cls.xml)	(revision 107)
@@ -5,6 +5,7 @@
 Taal lijst</Description>
 <ClassType>persistent</ClassType>
 <Super>Res.PI.Abstract,%Library.Persistent</Super>
+<ClassDefinitionError>0</ClassDefinitionError>
 
 <Index name="PrimaryKey">
 <IdKey>1</IdKey>
@@ -13,6 +14,53 @@
 <Unique>1</Unique>
 </Index>
 
+<Method name="ShortToLong">
+<Description>
+Vertaal taal</Description>
+<ClassMethod>1</ClassMethod>
+<FormalSpec>ShortLanguage:%String,NotFoundStr:%String=""</FormalSpec>
+<Implementation><![CDATA[
+	Quit:('..%ExistsId(ShortLanguage)) NotFoundStr
+	Set Obj=..%OpenId(ShortLanguage)
+	Quit Obj.Omschrijving
+]]></Implementation>
+</Method>
+
+<Method name="LongToShort">
+<ClassMethod>1</ClassMethod>
+<FormalSpec>LongLanguage:%String,NotFoundStr:%String=""</FormalSpec>
+<Implementation><![CDATA[
+	New RS
+	Set RS=##class(%ResultSet).%New("Res.PI.Taal:GetIDVoorTaal")
+	Do RS.Execute(LongLanguage)
+	
+	If (RS.Next()) {
+		Quit RS.Data("ID")
+	}
+	Else {
+		Quit NotFoundStr
+	}
+	
+	Quit lbResult
+]]></Implementation>
+</Method>
+
+<Method name="GetLBTaalSort">
+<ClassMethod>1</ClassMethod>
+<Implementation><![CDATA[
+	New RS
+	Set RS=##class(%ResultSet).%New("Res.PI.Taal:GetAllTalen")
+	Do RS.Execute()
+	
+	New lbResult
+	Set lbResult=""
+	For  Quit:('RS.Next())  Do
+	. Set lbResult=lbResult_$LB(RS.Data("ItemID"))
+	
+	Quit lbResult
+]]></Implementation>
+</Method>
+
 <Method name="BasisTaalID">
 <Description>
 Geeft het ID van de default Taal.</Description>
@@ -22,7 +70,6 @@
 #define DFL   "N"
  Quit:(##class(Res.PI.Taal).%ExistsId($$$DFL)) $$$DFL
  Quit ""
-
 ]]></Implementation>
 </Method>
 
@@ -36,21 +83,25 @@
  Set ID=##class(Res.PI.Taal).BasisTaalID()
  Quit:('$L(ID)) ""
  Quit ##class(Res.PI.Taal).%OpenId(ID)
-
 ]]></Implementation>
 </Method>
 
 <Query name="GetAllTalen">
 <Type>%Library.SQLQuery</Type>
-<FormalSpec>()</FormalSpec>
-<SqlQuery>SELECT ItemID, Omschrijving, VolgNr
-FROM Res_PI.Taal
-ORDER BY VolgNr
-</SqlQuery>
+<SqlQuery>	SELECT ItemID, Omschrijving, VolgNr
+	FROM Res_PI.Taal
+	ORDER BY VolgNr</SqlQuery>
 <Parameter name="CONTAINID" value="0"/>
 <Parameter name="ROWSPEC" value="ItemID:%Library.String,Omschrijving:%Library.String,VolgNr:%Library.Integer"/>
 </Query>
 
+<Query name="GetIDVoorTaal">
+<Type>%SQLQuery</Type>
+<FormalSpec>LangeNaam:%String</FormalSpec>
+<SqlQuery>	Select ID From Res_PI.Taal
+ 	Where Omschrijving = :LangeNaam</SqlQuery>
+</Query>
+
 <Storage name="Default">
 <Type>%Library.CacheStorage</Type>
 <DataLocation>^Res.PI.Items("TAALD")</DataLocation>
Index: Res/Vertaling.cls.xml
===================================================================
diff -u -r2 -r107
--- Res/Vertaling.cls.xml	(.../Vertaling.cls.xml)	(revision 2)
+++ Res/Vertaling.cls.xml	(.../Vertaling.cls.xml)	(revision 107)
@@ -2,8 +2,8 @@
 <Export generator="Cache" version="9">
 <Class name="Res.Vertaling">
 <ClassType>persistent</ClassType>
+<IncludeCode>vhLib.Macro</IncludeCode>
 <Super>Res.VertalingAbstract</Super>
-<ClassDefinitionError>0</ClassDefinitionError>
 
 <Property name="IsHTML">
 <Type>%Library.Boolean</Type>
@@ -116,21 +116,26 @@
 <Description>
 Geeft de vertaling van de Interne waarde terug.  Als </Description>
 <ClassMethod>1</ClassMethod>
-<FormalSpec>Groep:%Library.String,Intern:%Library.String,TextType:%Library.String="L",Taal:%Library.String="N",VervangWaarde:%Library.String,PlainTxt:%Boolean=0,ReturnsHTML:%Boolean</FormalSpec>
+<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>
@@ -184,7 +189,8 @@
 <Description>
 Result is leeg dan niet bijgevoegd, vertaling bestaat al
 Result is 1 dan bijvoegd
-Anders errormelding</Description>
+Anders errormelding
+Created By ? (on ?)</Description>
 <ClassMethod>1</ClassMethod>
 <FormalSpec>Groep:%String,Intern:%String,TextType:%String="L",Taal:%String="N",Vertaling:%String</FormalSpec>
 <ReturnType>%String</ReturnType>
@@ -208,6 +214,190 @@
 ]]></Implementation>
 </Method>
 
+<Method name="CreateOrUpdate">
+<Description>
+Gaat na of de vertaling reeds bestaat. Indien niet, dan wordt ze aangemaakt; indien wel, dan wordt enkel de waarde (vertaling) aangepast. 
+Result is de Save() Status van het vertalings-object
+Created By WimV (on 21/03/2007)</Description>
+<ClassMethod>1</ClassMethod>
+<FormalSpec>Groep:%String,Intern:%String,TextType:%String="L",Taal:%String="N",Vertaling:%String</FormalSpec>
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[
+ New VtlID,blnNew,oVertaling,Result   ; ,Val,IsHTML
+ Set:($E(Intern,2)="%") Groep="%"   ; "%"-sleutels worden opgezocht in de "%"-vertalingsgroep
+ Set VtlID=Groep_"||"_Intern_"||"_TextType_"||"_Taal
+ Set blnNew='..%ExistsId(VtlID)
+ Set Result=""
+ If blnNew Do
+ . Set oVertaling=..%New()
+ . Do oVertaling.TaalSetObjectId(Taal)
+ . Do oVertaling.GroepSetObjectId(Groep)
+ . Do oVertaling.TypeSetObjectId(TextType)
+ . Set oVertaling.Intern=Intern
+ . Set oVertaling.Vertaling=Vertaling
+ Else  Do
+ . Set oVertaling=..%OpenId(VtlID)
+ . Set oVertaling.Vertaling=Vertaling
+ Set Result=oVertaling.%Save()
+ Set oVertaling=""
+ Quit Result
+]]></Implementation>
+</Method>
+
+<Method name="SetVertalingAll">
+<Description><![CDATA[
+Vertalingen importeren in de vertalingstabel van Caché. </BR>
+Creëert voor iedere taal (N,F,D,E) een vertaling-object via de method CreateOrUpdate() </BR>
+Result is tekst: ofwel error message, ofwel piece-delimited list ("\") : results van de save-methods voor de verschillende talen/vertalingen. </BR>
+Created By WimV (on 21/03/2007)]]></Description>
+<ClassMethod>1</ClassMethod>
+<FormalSpec>Groep:%String,Intern:%String,TextType:%String,VtlNL:%String,VtlFR:%String,VtlDE:%String,VtlEN:%String</FormalSpec>
+<ProcedureBlock>1</ProcedureBlock>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[
+	Quit:($G(Groep)="") "No VtlGroep!"
+	Quit:($G(Intern)="") "No Intern!"
+	Quit:($G(VtlNL)_$G(VtlFR)_$G(VtlDE)_$G(VtlEN)="") "All Vtl empty!"
+	Set Result=""
+	Set Delim="\"
+	Do 
+	. Quit:('$$bfvAddTaalVtlOK(.Result,"N",.VtlNL))
+	. Quit:('$$bfvAddTaalVtlOK(.Result,"F",.VtlFR))
+	. Quit:('$$bfvAddTaalVtlOK(.Result,"D",.VtlDE))
+	. Quit:('$$bfvAddTaalVtlOK(.Result,"E",.VtlEN))
+	Set:($E(Result,1)=Delim) $E(Result,1)=""
+	Quit Result
+bfvAddTaalVtlOK(Result,Taal,Vtl)   ; Result als .local doorgeven
+	If $G(Vtl)="" Set Result=Result_Delim_"-"  Quit 1
+	Set sc=..CreateOrUpdate(.Groep,Intern,.TextType,Taal,Vtl)
+	Set Result=Result_Delim_$S($$$ISERR(sc):$$ParseStatus^vhLib(sc), 1:1)
+	Quit $$$ISOK(sc)
+]]></Implementation>
+</Method>
+
+<Method name="SetVertalingAllVBA">
+<Description><![CDATA[
+Zie method SetVertalingAll </BR>
+Created By WimV (on 21/03/2007)]]></Description>
+<ClassMethod>1</ClassMethod>
+<FormalSpec>pdlParams:%String,VtlNL:%String,VtlFR:%String,VtlDE:%String,VtlEN:%String</FormalSpec>
+<ProcedureBlock>1</ProcedureBlock>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[
+#define DoImport   $P(pdlParams,"\",1)
+#define Groep      $P(pdlParams,"\",2)
+#define Intern     $P(pdlParams,"\",3)
+#define TextType   $P(pdlParams,"\",4)
+
+	Quit:('$$$DoImport) "Don't Import"
+	Set:($L($$$TextType)) TextType=$$$TextType
+	Quit ..SetVertalingAll($$$Groep,$$$Intern,.TextType, .VtlNL, .VtlFR, .VtlDE, .VtlEN)
+]]></Implementation>
+</Method>
+
+<Method name="ImportPo">
+<ClassMethod>1</ClassMethod>
+<FormalSpec>Groep:%String,Taal:%String="N",FileName:%String,flagForceUpdate:%Boolean=0</FormalSpec>
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[
+ 
+ Set Delim = """"
+ 
+ Quit:'$L($G(FileName)) $$$ERROR($$$FileNameRequired,"")
+ Quit:'(##class(%File).Exists(FileName)) $$$ERROR($$$FileDoesNotExist,$G(FileName))
+ 
+ Set oFileStream = ##class(%FileCharacterStream).%New()
+ Do oFileStream.Rewind()  
+ Set oFileStream.Filename = FileName
+ For  Quit:oFileStream.AtEnd  Do
+ . Set Lijn = oFileStream.ReadLine()
+ . Set IsIntern=0, IsVertaling=0
+ . If $$$StartsWith(Lijn,"msgid") Do
+ . . Set IsIntern =1
+ . . Set Intern = $P(Lijn,Delim,2,$L(Lijn,Delim)-1)
+ . If $$$StartsWith(Lijn,"msgstr") Do
+ . . Set IsVertaling = 1
+ . . Set Vertaling = $P(Lijn,Delim,2,$L(Lijn,Delim)-1)
+ . If ( IsVertaling ) && $L(Intern) Do
+ . . Set ID = Groep_"||"_Intern_"||"_"L"_"||"_"N"
+ . . If '..%ExistsId(ID) Do
+ . . . Do ..SetVertalingAll(Groep,Intern,"L"," "," "," "," ") // ugly creatie van 
+ . . Do:flagForceUpdate ..CreateOrUpdate(Groep,Intern,"L","N",Vertaling)
+ do oFileStream.Close()
+ Quit $$$OK
+]]></Implementation>
+</Method>
+
+<Method name="ExportPo">
+<ClassMethod>1</ClassMethod>
+<FormalSpec>Groep:%String,Folder:%String</FormalSpec>
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[
+
+ Set Folder = ##class(%File).NormalizeDirectory(Folder)	
+ Quit:'##class(%File).DirectoryExists(Folder) $$$ERROR($$$DirectoryNotExist,$G(Folder))
+ 
+ Set Languages=$$ListExecDynQuery^vhQUERYLIB("SELECT Taal FROM Res.Vertaling GROUP BY Taal")
+ For cntLanguage = 1 : 1 : $LL(Languages) Do
+ . Set Language=$LI(Languages,cntLanguage)
+ . Set ISOLanguage=$$ConvertTaalToISO(Language)
+ . Set Filename=Folder_ISOLanguage_"\LC_MESSAGES\Default.po"
+ . Set Path = ##class(%File).GetDirectory(Filename)
+ . Do CreatePath(Path)
+ . Set oFile = ##class(%File).%New(Filename)
+ . Do oFile.Open("WNS")
+ . //Do MapCharset^%NLS("UTF-16")
+ . Do FileHeaderInfo
+ . Set qHandler = $$ExecDynQuery^vhQUERYLIB("SELECT Intern,Vertaling FROM Res.Vertaling WHERE Groep = ? AND Taal = ? And Type = ?",$LB(Groep,Language,"L"))
+ . For  Quit:'(qHandler.Next())  Do
+ . . Do oFile.WriteLine()
+ . . Set Code="msgid "_""""_qHandler.Get("Intern")_""""
+ . . Do oFile.WriteLine(Code)
+ . . Set Text="msgstr "_""""_qHandler.Get("Vertaling")_""""
+ . . Do oFile.WriteLine(Text)
+ . do qHandler.Close()
+ . Do oFile.Close()
+ Quit
+ 
+FileHeaderInfo
+ Set Omschrijving = "NO TRANSLATION"
+ Set oGroep = ##class(Res.PI.VertalingsGroep).%OpenId("DP")
+ Set:$IsObject(oGroep) Omschrijving = oGroep.Omschrijving
+ Set oGroep=""
+ 
+ Do oFile.WriteLine("# SOME DESCRIPTIVE TITLE.")
+ Do oFile.WriteLine("# Copyright (C) YEAR THE PACKAGE'S COPYRIGHT HOLDER")
+ Do oFile.WriteLine("# This file is distributed under the same license as the PACKAGE package.")
+ Do oFile.WriteLine("# FIRST AUTHOR <EMAIL@ADDRESS>, YEAR.")
+ Do oFile.WriteLine("# ")
+ Do oFile.WriteLine("#, fuzzy")
+ Do oFile.WriteLine("msgid """"")
+ Do oFile.WriteLine("msgstr """"")
+ Do oFile.WriteLine("""Project-Id-Version: "_Omschrijving_"\n""")
+ Do oFile.WriteLine("""POT-Creation-Date: "_$P($ZDT($H,3),":",1,2)_"\n""")
+ Do oFile.WriteLine("""PO-Revision-Date: "_$P($ZDT($H,3),":",1,2)_"+0100\n""")
+ Do oFile.WriteLine("""Last-Translator: Anonymous <anonymous@vanhoecke.be>\n""")
+ Do oFile.WriteLine("""Language-Team: \n""")
+ Do oFile.WriteLine("""MIME-Version: 1.0\n""")
+ Do oFile.WriteLine("""Content-Type: text/plain; charset=UTF-8\n""")
+ Do oFile.WriteLine("""Content-Transfer-Encoding: 8bit\n""")
+ Do oFile.WriteLine("""X-Generator: dxgettext 1.2.2\n""")
+
+
+ConvertTaalToISO(Taal)
+ Quit $CASE(Taal,"N":"nl","E":"en","F":"fr","D":"de",:"?"_Taal)
+ 
+CreatePath(Path)
+ 
+ Set cpPiece = 2
+ If $$$StartsWith(Path,"\\") Set cpPiece=cpPiece+2
+ 
+ For cpCounter = cpPiece : 1 : $L(Path,"\") Do
+ . Set cpFolder=$P(Path,"\",1,cpCounter) 
+ . If '##class(%File).DirectoryExists(cpFolder) Do ##class(%File).CreateDirectory(cpFolder)
+]]></Implementation>
+</Method>
+
 <Storage name="Default">
 <Type>%Library.CacheStorage</Type>
 <DefaultData>VertalingDefaultData</DefaultData>
Index: Res/VertalingLink.cls.xml
===================================================================
diff -u -r2 -r107
--- Res/VertalingLink.cls.xml	(.../VertalingLink.cls.xml)	(revision 2)
+++ Res/VertalingLink.cls.xml	(.../VertalingLink.cls.xml)	(revision 107)
@@ -210,12 +210,13 @@
 <Description>
 Opbouw van de ganse URL bestaande uit directory en bestandsnaam</Description>
 <FormalSpec>Toepassing:%Library.String</FormalSpec>
-<ReturnType>String</ReturnType>
+<ReturnType>%String</ReturnType>
 <Implementation><![CDATA[
  ;Quit $$URLGet^cspBasis.ProductList.tmpDev
- New Dir
+ New Dir,Delim
  Set Dir=..DirectoryGet($G(Toepassing,"88"))
- Quit Dir_$S($L(Dir):"/", 1:"")_..NaamGet()
+ Set Delim=$S(Dir["\":"\",1:"/")
+ Quit Dir_$S($L(Dir):Delim, 1:"")_$TR(..NaamGet(),"/",Delim)
 ]]></Implementation>
 </Method>
 
Index: Res/VertalingAbstract.cls.xml
===================================================================
diff -u -r2 -r107
--- Res/VertalingAbstract.cls.xml	(.../VertalingAbstract.cls.xml)	(revision 2)
+++ Res/VertalingAbstract.cls.xml	(.../VertalingAbstract.cls.xml)	(revision 107)
@@ -14,11 +14,12 @@
 <Description>
 Interne code van bv. een kenmerk</Description>
 <Type>%Library.String</Type>
+<Parameter name="MAXLEN" value="200"/>
 </Property>
 
 <Property name="RandInfo">
 <Type>%Library.String</Type>
-<Parameter name="MAXLEN" value="100"/>
+<Parameter name="MAXLEN" value="200"/>
 </Property>
 
 <Property name="Taal">
@@ -42,6 +43,10 @@
 <Parameter name="MAXLEN" value="5000"/>
 </Property>
 
+<Property name="WijzigingsDatumTijd">
+<Type>%Date</Type>
+</Property>
+
 <Index name="Index">
 <IdKey>1</IdKey>
 <PrimaryKey>1</PrimaryKey>
@@ -163,6 +168,18 @@
 <Parameter name="ROWSPEC" value="Taal,Vertaling:%Library.String"/>
 </Query>
 
+<Method name="%OnBeforeSave">
+<FormalSpec>insert:%Boolean</FormalSpec>
+<Private>1</Private>
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[
+	if (..%IsModified()) {
+		Set ..WijzigingsDatumTijd = $H
+	}
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
 <Storage name="Default">
 <Type>%Library.CacheStorage</Type>
 <DataLocation>^Res.VertalingAbstractD</DataLocation>
@@ -182,6 +199,9 @@
 <Value name="2">
 <Value>Vertaling</Value>
 </Value>
+<Value name="3">
+<Value>WijzigingsDatumTijd</Value>
+</Value>
 </Data>
 </Storage>
 </Class>