Index: CHUI/Stat/ProductKenmerkenExport.cls.xml
===================================================================
diff -u -r35728 -r35729
--- CHUI/Stat/ProductKenmerkenExport.cls.xml	(.../ProductKenmerkenExport.cls.xml)	(revision 35728)
+++ CHUI/Stat/ProductKenmerkenExport.cls.xml	(.../ProductKenmerkenExport.cls.xml)	(revision 35729)
@@ -145,23 +145,28 @@
 
 	Do ##class(vhLib.Logger).%New("ProductKenmerkenExport").Info("Export met productkenmerken","ProductKenmerkenExporteerder : Exporteer met Parameters "_$$$CRLF_$$ObjToText^vhLib(InputParameters)_$$$CRLF_"UI input: datum van "_..txtBeginPeriode.Value_" tot "_..txtEindPeriode.Value_".")
 
+	Set GemaakteBestanden = ##class(%ListOfDataTypes).%New()
+
 	if InputParameters.Categorieen.Size {
 		
 		set Exporteerder = ##class(APPS.Stat.ProductKenmerkenExporteerder.impl.ProductKenmerkenExporteerder).%New()
 		
 		Do $$$CreateFM(..Caption,"Bezig met exporteren...")
-		#dim GemaakteBestanden As %ListOfDataTypes = Exporteerder.Exporteer(InputParameters)
+		Set GemaakteBestanden = Exporteerder.Exporteer(InputParameters)
 		Do $$$DestroyFM
+	}
+	Else {
+		Do ##class(vhLib.Logger).%New().Info("Export met productkenmerken","ProductKenmerkenExporteerder : Er zijn geen Categorieen geselecteerd.")
+	}
 
-		If (GemaakteBestanden.Count() > 0) {
-			Do ##class(vhLib.Logger).%New().Info("Export met productkenmerken","ProductKenmerkenExporteerder : Volgende bestanden zijn gecreeerd: "_$$$CRLF_##class(TECH.ListUtils).ListToPieces(GemaakteBestanden,$$$CRLF))
-			Do:GemaakteBestanden.Size $$$ShowMsgBoxSimple("Volgende bestanden zijn gecreeerd",##class(TECH.ListUtils).ListToPieces(GemaakteBestanden,$$$CRLF))
-		}
-		Else {
-			Do ##class(vhLib.Logger).%New().Info("Export met productkenmerken","ProductKenmerkenExporteerder : Er zijn geen bestanden zijn gecreeerd.")
-			Do $$$ShowMsgBoxSimple("Er zijn geen bestanden zijn gecreeerd.","Er zijn geen bestanden zijn gecreeerd.")
-		}
+	If (GemaakteBestanden.Count() > 0) {
+		Do ##class(vhLib.Logger).%New().Info("Export met productkenmerken","ProductKenmerkenExporteerder : Volgende bestanden zijn gecreeerd: "_$$$CRLF_##class(TECH.ListUtils).ListToPieces(GemaakteBestanden,$$$CRLF))
+		Do $$$ShowMsgBoxSimple("Volgende bestanden zijn gecreeerd",##class(TECH.ListUtils).ListToPieces(GemaakteBestanden,$$$CRLF))
 	}
+	Else {
+		Do ##class(vhLib.Logger).%New().Info("Export met productkenmerken","ProductKenmerkenExporteerder : Er zijn geen bestanden gecreeerd.")
+		Do $$$ShowMsgBoxSimple("Er zijn geen bestanden zijn gecreeerd.","Er zijn geen bestanden zijn gecreeerd.")
+	}
 	
 	Set ..ModalResult = $$$mrOk
 	Do ..Close()