Index: APPS/PM/Vertaling/ExcelCSVExport.cls.xml
===================================================================
diff -u -r31082 -r31087
--- APPS/PM/Vertaling/ExcelCSVExport.cls.xml	(.../ExcelCSVExport.cls.xml)	(revision 31082)
+++ APPS/PM/Vertaling/ExcelCSVExport.cls.xml	(.../ExcelCSVExport.cls.xml)	(revision 31087)
@@ -48,10 +48,10 @@
 <Method name="InitFile">
 <FormalSpec>VertalingsGroep:%String</FormalSpec>
 <Implementation><![CDATA[
-		#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")
+	#dim FileName As %String = ##class(%File).NormalizeDirectory($$DIRUSER^vhDEV)_"Export"_VertalingsGroep_" - "_$p($zdt($h,3)," ")_".xls"
+	Set ..File = ##class(%File).%New(FileName)
+	#dim sc As %Status = ..File.Open("WSN")
+	Do ##class(TECH.Exceptions.StatusException).ThrowIndienNietOK(sc,"Probleem bij openen van de Export-file "_FileName)
 ]]></Implementation>
 </Method>