Index: APPS/PM/Vertaling/ExcelExportBase.cls.xml
===================================================================
diff -u -r29059 -r31082
--- APPS/PM/Vertaling/ExcelExportBase.cls.xml	(.../ExcelExportBase.cls.xml)	(revision 29059)
+++ APPS/PM/Vertaling/ExcelExportBase.cls.xml	(.../ExcelExportBase.cls.xml)	(revision 31082)
@@ -7,10 +7,20 @@
 - Inheritance (template-method principe) omzetten naar composition (introduceren van een "TabelWriter"-interface).</Description>
 <Abstract>1</Abstract>
 <ClassType/>
-<IncludeCode>vhLib.Macro</IncludeCode>
 <ProcedureBlock>1</ProcedureBlock>
-<Super>%RegisteredObject</Super>
+<Super>TECH.RegisteredObject</Super>
 
+<Method name="Export">
+<ClassMethod>1</ClassMethod>
+<FormalSpec>BronTaal:%String="N",DoelTaal:%String,VertalingsGroep:%String,Datum:%String="",Tijd:%String=""</FormalSpec>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[
+	Set Exporteerder = ..%New()
+	Do Exporteerder.ExportGroep( BronTaal, DoelTaal, VertalingsGroep, Datum, Tijd )
+	Quit Exporteerder.GeefBestandPad()
+]]></Implementation>
+</Method>
+
 <Method name="ExportGroep">
 <FormalSpec>BronTaal:%String="N",DoelTaal:%String,VertalingsGroep:%String,Datum:%String="",Tijd:%String=""</FormalSpec>
 <Implementation><![CDATA[
@@ -28,7 +38,7 @@
 	
 	// Ophalen van de vertalingen en naar het csv bestand schrijven
 	#Dim rset As %ResultSet
-	#Dim sc As %Statu
+	#Dim sc As %Status
 	if (Datum '= "") {
 	    if (Tijd = "") Set Tijd = "00:00"			
 		#Dim Tijdstip As %String = $zdth(Datum_" "_Tijd,4)
@@ -77,6 +87,11 @@
 <Abstract>1</Abstract>
 </Method>
 
+<Method name="GeefBestandPad">
+<Abstract>1</Abstract>
+<ReturnType>%String</ReturnType>
+</Method>
+
 <Method name="SchrijfBronEnDoelTalen">
 <Abstract>1</Abstract>
 <FormalSpec>BronTaal:%String,DoelTaal:%String,ExtraTalen:TECH.Iterator</FormalSpec>
Index: APPS/PM/Vertaling/ExcelXml2003Export.cls.xml
===================================================================
diff -u -r29059 -r31082
--- APPS/PM/Vertaling/ExcelXml2003Export.cls.xml	(.../ExcelXml2003Export.cls.xml)	(revision 29059)
+++ APPS/PM/Vertaling/ExcelXml2003Export.cls.xml	(.../ExcelXml2003Export.cls.xml)	(revision 31082)
@@ -4,7 +4,6 @@
 <Description>
 Do ##class(APPS.PM.Vertaling.ExcelXml2003Export).ExportPKEnOLW(,"F")</Description>
 <ClassType/>
-<IncludeCode>vhLib.Macro</IncludeCode>
 <ProcedureBlock>1</ProcedureBlock>
 <Super>APPS.PM.Vertaling.ExcelExportBase</Super>
 
@@ -38,8 +37,8 @@
 <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)
+	Do ..Export(BronTaal,DoelTaal,"PK", Datum, Tijd)
+	Do ..Export(BronTaal,DoelTaal,"OLW", Datum, Tijd)
 ]]></Implementation>
 </Method>
 
@@ -48,17 +47,21 @@
 Eigenlijk worden alle talen in het exportbestand gezet; niet enkel de DoelTaal!</Description>
 <ClassMethod>1</ClassMethod>
 <FormalSpec>BronTaal:%String="N",DoelTaal:%String,VertalingsGroep:%String,Datum:%String="",Tijd:%String=""</FormalSpec>
-<Implementation><![CDATA[	Do ..%New().ExportGroep( BronTaal, DoelTaal, VertalingsGroep, Datum, Tijd )
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[
+	Set Exporteerder = ..%New()
+	Do Exporteerder.ExportGroep( BronTaal, DoelTaal, VertalingsGroep, Datum, Tijd )
+	Quit Exporteerder.GeefBestandPad()
 ]]></Implementation>
 </Method>
 
 <Method name="InitFile">
 <FormalSpec>VertalingsGroep:%String</FormalSpec>
 <Implementation><![CDATA[
-		Set ..FileName=##class(%File).NormalizeDirectory($$DIRUSER^vhDEV)_"Vertalingen - "_VertalingsGroep_".xml.xls"
-		Set ..Writer = ##class(TECH.File.impl.ExcelXml2003Writer).%New( ..FileName )
-		Do ..Writer.StartWerkboek()
-		Do ..Writer.StartWerkblad( "Vertalingen" )
+	Set ..FileName=##class(%File).NormalizeDirectory($$DIRUSER^vhDEV)_"Vertalingen - "_VertalingsGroep_".xml.xls"
+	Set ..Writer = ##class(TECH.File.impl.ExcelXml2003Writer).%New( ..FileName )
+	Do ..Writer.StartWerkboek()
+	Do ..Writer.StartWerkblad( "Vertalingen" )
 ]]></Implementation>
 </Method>
 
Index: APPS/PM/Vertaling/ExcelCSVExport.cls.xml
===================================================================
diff -u -r29059 -r31082
--- APPS/PM/Vertaling/ExcelCSVExport.cls.xml	(.../ExcelCSVExport.cls.xml)	(revision 29059)
+++ APPS/PM/Vertaling/ExcelCSVExport.cls.xml	(.../ExcelCSVExport.cls.xml)	(revision 31082)
@@ -5,7 +5,6 @@
 Do ##class(APPS.PM.Vertaling.ExcelCSVExport).ExportPKEnOLW(,"F")
 N.B. Output wordt naar de console geschreven!</Description>
 <ClassType/>
-<IncludeCode>vhLib.Macro</IncludeCode>
 <ProcedureBlock>1</ProcedureBlock>
 <Super>APPS.PM.Vertaling.ExcelExportBase</Super>
 
@@ -41,22 +40,15 @@
 <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)
+	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[	Do ..%New().ExportGroep( BronTaal, DoelTaal, VertalingsGroep, Datum, Tijd )
-]]></Implementation>
-</Method>
-
 <Method name="InitFile">
 <FormalSpec>VertalingsGroep:%String</FormalSpec>
 <Implementation><![CDATA[
-		Set FileName=##class(%File).NormalizeDirectory($$DIRUSER^vhDEV)_"Export"_VertalingsGroep_" - "_$p($zdt($h,3)," ")_".xls"
+		#dim FileName As %String = ##class(%File).NormalizeDirectory($$DIRUSER^vhDEV)_"Export"_VertalingsGroep_" - "_$p($zdt($h,3)," ")_".xls"
 		W !,FileName
 		Set ..File = ##class(%File).%New(FileName)
     	Do ..File.Open("WSN")
@@ -68,6 +60,12 @@
 ]]></Implementation>
 </Method>
 
+<Method name="GeefBestandPad">
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[	Quit ..File.Name
+]]></Implementation>
+</Method>
+
 <Method name="SchrijfBronEnDoelTalen">
 <FormalSpec>BronTaal:%String,DoelTaal:%String,ExtraTalen:TECH.Iterator</FormalSpec>
 <Implementation><![CDATA[
Index: APPS/PM/Vertaling/ExcelImport.cls.xml
===================================================================
diff -u -r29059 -r31082
--- APPS/PM/Vertaling/ExcelImport.cls.xml	(.../ExcelImport.cls.xml)	(revision 29059)
+++ APPS/PM/Vertaling/ExcelImport.cls.xml	(.../ExcelImport.cls.xml)	(revision 31082)
@@ -2,9 +2,8 @@
 <Export generator="Cache" version="24">
 <Class name="APPS.PM.Vertaling.ExcelImport">
 <ClassType/>
-<IncludeCode>vhLib.Macro</IncludeCode>
 <ProcedureBlock>1</ProcedureBlock>
-<Super>%RegisteredObject</Super>
+<Super>TECH.RegisteredObject</Super>
 
 <Method name="Import">
 <Description>