Index: APPS/PM/Vertaling/ExcelExport.cls.xml
===================================================================
diff -u
--- APPS/PM/Vertaling/ExcelExport.cls.xml	(revision 0)
+++ APPS/PM/Vertaling/ExcelExport.cls.xml	(revision 106)
@@ -0,0 +1,157 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="9">
+<Class name="APPS.PM.Vertaling.ExcelExport">
+<IncludeCode>vhLib.Macro</IncludeCode>
+<ProcedureBlock>1</ProcedureBlock>
+<Super>%RegisteredObject</Super>
+<ClassDefinitionError>0</ClassDefinitionError>
+
+<UDLText name="T">
+<Content><![CDATA[
+// do ##class(APPS.PM.Vertaling.ExcelExport).ExportPKEnOLW(,"F")
+
+]]></Content>
+</UDLText>
+
+<Method name="ExportPKEnOLW">
+<ClassMethod>1</ClassMethod>
+<FormalSpec>BronTaal:%String="N",DoelTaal:%String,Datum:%String="",Tijd:%String=""</FormalSpec>
+<Implementation><![CDATA[
+		Do ..Export(BronTaal,DoelTaal,"PK", Datum, Tijd)
+		Do ..Export(BronTaal,DoelTaal,"OLW", Datum, Tijd)
+]]></Implementation>
+</Method>
+
+<Method name="Export">
+<ClassMethod>1</ClassMethod>
+<FormalSpec>BronTaal:%String="N",DoelTaal:%String,VertalingsGroep:%String,Datum:%String="",Tijd:%String=""</FormalSpec>
+<Implementation><![CDATA[
+	
+		#define TAB $C(9)
+		Set Seperator = $$$TAB
+		
+		Set FileName=##class(%File).NormalizeDirectory($$DIRUSER^vhDEV)_"Export"_VertalingsGroep_" - "_$p($zdt($h,3)," ")_".xls"
+		W !,FileName
+		Set File = ##class(%File).%New(FileName)
+    	Do File.Open("WSN")
+    	
+    	Set ListTalen = ##class(APPS.PM.Vertaling.ExcelExport).GeefAlleTalen()
+    	// Haal de gekozen talen er uit zodat over de resterende talen kan gelopen worden
+    	Do ListTalen.RemoveAt(ListTalen.Find(BronTaal))
+    	Do ListTalen.RemoveAt(ListTalen.Find(DoelTaal))
+    	
+    	// Schrijf de headers voor de talen
+    	Set It = ##class(TECH.ListIterator).%New(ListTalen)
+    	Do File.Write(""_Seperator_""_Seperator_##class(Res.PI.Taal).ShortToLong(BronTaal)_Seperator_##class(Res.PI.Taal).ShortToLong(DoelTaal))
+    	while (It.HasNext()) {
+	    	Do File.Write(Seperator_##class(Res.PI.Taal).ShortToLong(It.Next()))
+    	}
+    	Do File.WriteLine("")
+    	
+    	
+    	// Ophalen van de vertalingen en naar het csv bestand schrijven
+    	if (Datum '= "") {
+		    if (Tijd = "") Set Tijd = "00:00"			
+			Set Tijdstip = $zdth(Datum_" "_Tijd,4)
+			Set rset = ##class(%ResultSet).%New("APPS.PM.Vertaling.ExcelExport:qAlleVertalingenSinds")
+			Set sc = rset.Execute(VertalingsGroep,Tijdstip,BronTaal)
+    	}
+    	else {
+	    	Set rset = ##class(%ResultSet).%New("APPS.PM.Vertaling.ExcelExport:qAlleVertalingen")
+	    	Set sc = rset.Execute(VertalingsGroep,BronTaal)
+    	}
+		While (rset.Next(.sc)){
+			If ($SYSTEM.Status.IsOK(sc)) {
+				Do File.Write(##class(APPS.PM.Vertaling.ExcelExport).Escape(rset.Data("Intern")))
+				Do File.Write(Seperator_rset.Data("Type"))
+				Do File.Write(Seperator_##class(APPS.PM.Vertaling.ExcelExport).Escape(rset.Data(BronTaal)))
+				Do File.Write(Seperator_##class(APPS.PM.Vertaling.ExcelExport).Escape(rset.Data(DoelTaal)))
+				Set It = ##class(TECH.ListIterator).%New(ListTalen)
+				while (It.HasNext()) {
+					Do File.Write(##class(APPS.PM.Vertaling.ExcelExport).Escape(Seperator_rset.Data(It.Next())))
+				}
+				Do File.WriteLine("")
+			}
+			Else {
+				Quit
+			}
+		}
+		
+		If $SYSTEM.Status.IsError(sc) // if there was an error, process that
+		{
+			w !, "/!\ Error bij het ophalen van de vertalingen /!\"
+			w !, $$ParseStatus^vhLib(sc)
+		}
+		
+		Do File.Close()
+]]></Implementation>
+</Method>
+
+<Method name="GeefAlleTalen">
+<ClassMethod>1</ClassMethod>
+<ReturnType>%ListOfDataTypes</ReturnType>
+<Implementation><![CDATA[
+		Set List = ##class(%ListOfDataTypes).%New()
+		// Ophalen van de vertalingen en naar het csv bestand schrijven
+		Set rset = ##class(%ResultSet).%New("APPS.PM.Vertaling.ExcelExport:qAlleTalen")
+		Set sc = rset.Execute()
+		While (rset.Next(.sc)){
+			If ($SYSTEM.Status.IsOK(sc)) {
+				Do List.Insert(rset.Data("Taal"))
+			}
+			Else {
+				Quit
+			}
+		}
+		
+		If $SYSTEM.Status.IsError(sc) // if there was an error, process that
+		{
+			w !, "/!\ Error bij het ophalen van de talen /!\"
+			w !, $$ParseStatus^vhLib(sc)
+		}
+		Quit List
+]]></Implementation>
+</Method>
+
+<Method name="Escape">
+<ClassMethod>1</ClassMethod>
+<FormalSpec>Tekst:%String</FormalSpec>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[		Quit $$$Replace(Tekst,$$$CRLF,"<br/>")
+]]></Implementation>
+</Method>
+
+<Query name="qAlleVertalingenSinds">
+<Type>%SQLQuery</Type>
+<FormalSpec>VertalingsGroep:%String,LaatstGewijzigdSinds:%Integer,Brontaal:%String</FormalSpec>
+<SqlQuery><![CDATA[		Select Main.Intern, Main.Type, Nederlands.Vertaling As N, Frans.Vertaling As F, Engels.Vertaling As E, Duits.Vertaling As D from Res.VertalingAbstract As Main
+		 LEFT JOIN Res.VertalingAbstract As Nederlands On Nederlands.Intern = Main.Intern AND Nederlands.Taal = 'N' AND Main.Type = Nederlands.Type AND Main.Groep = Nederlands.Groep
+		 LEFT JOIN Res.VertalingAbstract As Frans On Frans.Intern = Main.Intern AND Frans.Taal = 'F' AND Main.Type = Frans.Type AND Main.Groep = Frans.Groep
+		 LEFT JOIN Res.VertalingAbstract As Engels On Engels.Intern = Main.Intern AND Engels.Taal = 'E' AND Main.Type = Engels.Type AND Main.Groep = Engels.Groep
+		 LEFT JOIN Res.VertalingAbstract As Duits On Duits.Intern = Main.Intern AND Duits.Taal = 'D' AND Main.Type = Duits.Type AND Main.Groep = Duits.Groep
+		 WHERE Main.Groep = :VertalingsGroep AND (Main.Type='K' OR Main.Type = 'O' OR Main.Type = 'L') And ( (('N' = :Brontaal) AND (Nederlands.WijzigingsDatumTijd > :LaatstGewijzigdSinds)) OR (('F' = :Brontaal) AND (Frans.WijzigingsDatumTijd > :LaatstGewijzigdSinds)) OR (('E' = :Brontaal) AND (Engels.WijzigingsDatumTijd > :LaatstGewijzigdSinds)) OR (('D' = :Brontaal) AND (Duits.WijzigingsDatumTijd > :LaatstGewijzigdSinds)) )
+		 GROUP BY Main.Intern, Main.Type]]></SqlQuery>
+<Parameter name="CONTAINID" value="1"/>
+</Query>
+
+<Query name="qAlleVertalingen">
+<Type>%SQLQuery</Type>
+<FormalSpec>VertalingsGroep:%String,Brontaal:%String</FormalSpec>
+<SqlQuery>		Select Main.Intern, Main.Type, Nederlands.Vertaling As N, Frans.Vertaling As F, Engels.Vertaling As E, Duits.Vertaling As D from Res.VertalingAbstract As Main
+		 LEFT JOIN Res.VertalingAbstract As Nederlands On Nederlands.Intern = Main.Intern AND Nederlands.Taal = 'N' AND Main.Type = Nederlands.Type AND Main.Groep = Nederlands.Groep
+		 LEFT JOIN Res.VertalingAbstract As Frans On Frans.Intern = Main.Intern AND Frans.Taal = 'F' AND Main.Type = Frans.Type AND Main.Groep = Frans.Groep
+		 LEFT JOIN Res.VertalingAbstract As Engels On Engels.Intern = Main.Intern AND Engels.Taal = 'E' AND Main.Type = Engels.Type AND Main.Groep = Engels.Groep
+		 LEFT JOIN Res.VertalingAbstract As Duits On Duits.Intern = Main.Intern AND Duits.Taal = 'D' AND Main.Type = Duits.Type AND Main.Groep = Duits.Groep
+		 WHERE Main.Groep = :VertalingsGroep AND (Main.Type='K' OR Main.Type = 'O' OR Main.Type = 'L')
+		 GROUP BY Main.Intern, Main.Type</SqlQuery>
+<Parameter name="CONTAINID" value="1"/>
+</Query>
+
+<Query name="qAlleTalen">
+<Type>%SQLQuery</Type>
+<SqlQuery>		Select Taal From Res.VertalingAbstract
+ 		Group By Taal</SqlQuery>
+<Parameter name="CONTAINID" value="1"/>
+</Query>
+</Class>
+</Export>
Index: APPS/PM/Vertaling/ExcelImport.cls.xml
===================================================================
diff -u
--- APPS/PM/Vertaling/ExcelImport.cls.xml	(revision 0)
+++ APPS/PM/Vertaling/ExcelImport.cls.xml	(revision 106)
@@ -0,0 +1,123 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="9">
+<Class name="APPS.PM.Vertaling.ExcelImport">
+<ProcedureBlock>1</ProcedureBlock>
+<Super>%RegisteredObject</Super>
+<ClassDefinitionError>0</ClassDefinitionError>
+
+<Method name="Import">
+<Description>
+Importeert enkel de 4de kolom (wat bij de export de doeltaal is), indien ImportAlleTalen = 1 dan worden alle talen geïmporteerd
+Do ##class(APPS.PM.Vertaling.ExcelImport).Import("\\NOTES01\SHARED\C S C\ExportOLW.txt","OLW",1,"23/12/2010")
+Do ##class(APPS.PM.Vertaling.ExcelImport).Import("\\NOTES01\SHARED\C S C\ImportPK.txt","PK",1,"23/12/2010")</Description>
+<ClassMethod>1</ClassMethod>
+<FormalSpec>FileLocation:%String,VertaalGroep:%String,ImportAlleTalen:%Boolean=0,DatumVanExport:%String=""</FormalSpec>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[
+	#define TAB $C(9)
+	
+	Set Tijdstip = ""
+	If (DatumVanExport '= "") Set Tijdstip = $zdth(DatumVanExport_" 00:00",4)
+	
+	If ('##class(%File).Exists(FileLocation))
+	{
+		w "Bestand bestaat niet!"
+		Quit
+	}
+	Set Stream=##class(%FileCharacterStream).%New()
+	Set Stream.Filename=FileLocation
+	If (Stream.AtEnd)
+	{
+		w "Leeg bestand!"
+		Quit 
+	}
+	
+	// Lees de header
+	Set Hoofding = Stream.ReadLine()
+	Set lbPieced = $$PiecesToList^vhLib(Hoofding,$$$TAB)
+	
+	// Kolom 1 = Key, Kolom 2 = Type, Kolom > 2 = Talen
+	for i = 3:1:$ListLength(lbPieced) {
+		Set Taal(i-2) = ##class(Res.PI.Taal).LongToShort($LG(lbPieced,i))
+	}
+	
+	Set TaalImportIndexen = ""
+	If (ImportAlleTalen)
+	{
+		For i=3:1:$Length(Stream.ReadLine(),$$$TAB) Set TaalImportIndexen = TaalImportIndexen_$ListBuild(i)
+		Do Stream.Rewind()
+	}
+	Else
+	{
+		Set TaalImportIndexen = $ListBuild(4)
+	}
+	
+	While ('Stream.AtEnd) {
+		Set Line=Stream.ReadLine()
+		if (Line '= "")
+		{			
+			For i=1:1:$ListLength(TaalImportIndexen)
+			{
+				Set TaalIndex = $ListGet(TaalImportIndexen,i)
+				Set TaalCode = Taal(TaalIndex-2)
+				Set Vertaling = $Piece(Line,$$$TAB,TaalIndex)
+				Set Intern = $Piece(Line,$$$TAB,1)
+				Set Type = $Piece(Line,$$$TAB,2)
+				
+				If ((VertaalGroep '= "") && (Intern '= "") && (Type '= "") && (TaalCode '= ""))
+				{
+				
+					Set VertalingsObject = ##class(Res.Vertaling).%OpenId(VertaalGroep_"||"_Intern_"||"_Type_"||"_TaalCode)
+					If (VertalingsObject '= "") {
+						// De vertaling bestond en is gewijzigd
+						Set VertalingsObject.Vertaling = Vertaling
+						
+						If ((Tijdstip '= "") && (##class(TECH.DateTime).HorologIsGroterDan(VertalingsObject.WijzigingsDatumTijd,Tijdstip)) && VertalingsObject.%IsModified())
+						{
+							w !,"Combinatie van ("_Intern_", "_Type_", "_TaalCode_") is gewijzigd sinds de exporttijd, gelieve deze handmatig te importeren!"
+						}
+						Else
+						{
+							Set Status = VertalingsObject.%Save()
+							If ($$$ISERR(Status)) {
+								w !,"Fout: "_$$ParseStatus^vhLib(Status)
+							}
+						}
+					}
+					elseif (##class(APPS.PM.Vertaling.ExcelImport).ComboKeyTypeBestaat(Intern,Type,VertaalGroep)) {
+						// De vertaling is nieuw en moet worden toegevoegd
+						Set VertalingsObject = ##class(Res.Vertaling).%New()
+						Do VertalingsObject.GroepSetObjectId(VertaalGroep)
+						Set VertalingsObject.Intern = Intern
+						Do VertalingsObject.TypeSetObjectId(Type)
+						Do VertalingsObject.TaalSetObjectId(TaalCode)
+						Set VertalingsObject.Vertaling = Vertaling
+						Set Status = VertalingsObject.%Save()
+						if ($$$ISERR(Status)) {
+							w !,"Fout: "_$$ParseStatus^vhLib(Status)
+						}
+					}
+					else {
+						w !,"Combinatie van ("_VertaalGroep_", "_Intern_", "_Type_") bestaat nog niet in de databank!"
+					}
+					
+				}
+			}
+		}
+	}
+	w !!,"... Import beëindigd"
+]]></Implementation>
+</Method>
+
+<Method name="ComboKeyTypeBestaat">
+<ClassMethod>1</ClassMethod>
+<FormalSpec>Intern:%String,TekstType:%String,Groep:%String</FormalSpec>
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[
+	&SQL(Select 1 As Bestaat INTO :Result From Res.VertalingAbstract
+ 	Where Type = :TekstType AND Intern = :Intern AND Groep = :Groep)
+ 	Quit $GET(Result) '= ""
+]]></Implementation>
+</Method>
+</Class>
+</Export>