Index: vhPowerTools/APPS/PM/EANCodeGenerator.cls.xml
===================================================================
diff -u
--- vhPowerTools/APPS/PM/EANCodeGenerator.cls.xml	(revision 0)
+++ vhPowerTools/APPS/PM/EANCodeGenerator.cls.xml	(revision 71997)
@@ -0,0 +1,57 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhPowerTools.APPS.PM.EANCodeGenerator">
+<Super>TECH.RegisteredObject</Super>
+
+<Property name="EANCodeService">
+<Type>APPS.PM.EANCodeService</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="FileWriter">
+<Type>TECH.File.FileWriter</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="%OnNew">
+<Private>1</Private>
+<ProcedureBlock>1</ProcedureBlock>
+<ReturnType>%Status</ReturnType>
+<ServerOnly>1</ServerOnly>
+<Implementation><![CDATA[
+	Set ..EANCodeService = ##class(APPS.PM.EANCodeService).%New()
+	Set ..FileWriter = ##class(TECH.Context).Instance().GeefFileAPI().GeefFileWriter()
+
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
+<Method name="GenereerEnExporteer">
+<FormalSpec>Aantal:%Integer,BestandsLocatie:%String="C:\temp"</FormalSpec>
+<Implementation><![CDATA[
+	Try {
+		#dim UserInput As %String
+		#dim Bestandsnaam As %String = "EANCodes.csv"
+		Do ..FileWriter.Open(BestandsLocatie _ "\" _ Bestandsnaam)
+		
+		Write "Druk Enter om " _ Aantal _ " nieuwe EAN codes te genereren en naar '" _ BestandsLocatie _ "' te schrijven, of Ctrl-C om niets te doen en dit programma te verlaten.",!
+		Read UserInput
+		
+		#dim Index As %Integer
+		For Index = 1:1:Aantal {
+			#dim EANCode As %String = ..EANCodeService.GeefVolgendeNieuweEANCode()
+			Do ..FileWriter.WriteLine(EANCode)
+			Write EANCode,!
+		}
+		Do ..FileWriter.Close()
+		Write !,"Csv-bestand gegenereerd."
+	} Catch {
+		#dim Exception As TECH.Exceptions.Exception = ##class(TECH.ExceptionHandler).Catch()
+		Write "Fout: " _ Exception.GeefOmschrijving()
+	}
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>