Index: AX/Uitgaand/PM/Product/impl/ArticleIDCHUI.cls.xml
===================================================================
diff -u -r68534 -r68555
--- AX/Uitgaand/PM/Product/impl/ArticleIDCHUI.cls.xml	(.../ArticleIDCHUI.cls.xml)	(revision 68534)
+++ AX/Uitgaand/PM/Product/impl/ArticleIDCHUI.cls.xml	(.../ArticleIDCHUI.cls.xml)	(revision 68555)
@@ -8,6 +8,11 @@
 <Type>AX.Uitgaand.PM.Product.impl.ArticleIDGenerator</Type>
 </Property>
 
+<Property name="FileWriter">
+<Type>TECH.File.FileWriter</Type>
+<Private>1</Private>
+</Property>
+
 <Method name="%OnNew">
 <Description>
 d ##class(AX.Uitgaand.PM.Product.impl.ArticleIDCHUI).Verwerk()</Description>
@@ -17,6 +22,8 @@
 <ServerOnly>1</ServerOnly>
 <Implementation><![CDATA[
 	Set ..Generator=##class(AX.Uitgaand.PM.Product.impl.ArticleIDGenerator).%New()
+	Set ..FileWriter = ##class(TECH.Context).Instance().GeefFileAPI().GeefFileWriter()
+	
 	Quit $$$OK
 ]]></Implementation>
 </Method>
@@ -28,56 +35,69 @@
 	Set bl=..%New()
 	Do bl.WriteHeader()
 	Do bl.GeefInAantal()
-	Do bl.GeefLijstVanArtikelnummers()
-	;Do bl.WriteArticleID()
-	Do bl.WachtBevestiging()
+	Do bl.GeefAantalArtikkelNummers()
+	Do bl.WachtBevestigingOmfTeSluiten()
 ]]></Implementation>
 </Method>
 
 <Method name="WriteHeader">
 <ProcedureBlock>0</ProcedureBlock>
-<Implementation><![CDATA[	Write @F11,@F1,QN," - ","ArticleID generator"
+<Implementation><![CDATA[	Write @F11,@F1,QN," - ","Artikelnummer generator"
 ]]></Implementation>
 </Method>
 
-<Method name="WriteArticleID">
+<Method name="GeefInAantal">
 <ProcedureBlock>0</ProcedureBlock>
-<Implementation><![CDATA[
-	 Set ArticleID=..Generator.GeefNieuwArticleID()
-	 Set FP=501 Write @F,ArticleID
+<Implementation><![CDATA[	 Read !!, "Aantal artikkelnummers te genereren: ",aantal
 ]]></Implementation>
 </Method>
 
-<Method name="GeefInAantal">
+<Method name="GeefAantalArtikkelNummers">
 <ProcedureBlock>0</ProcedureBlock>
-<Implementation><![CDATA[	 Read !!, "Aantal codes te genereren: ",aantal
+<Implementation><![CDATA[
+	If (aantal > 1) {
+		Do ..GenereerLijstVanArtikelNummers()
+	} Else {
+		Set ArticleID=..Generator.GeefNieuwArticleID()
+	 	Set FP=501 Write @F,ArticleID
+	}
 ]]></Implementation>
 </Method>
 
-<Method name="WachtBevestiging">
+<Method name="WachtBevestigingOmfTeSluiten">
 <ProcedureBlock>0</ProcedureBlock>
 <Implementation><![CDATA[
 	 Set FP=2402 Write @F,"Gelieve toets in te drukken om terug te gaan"
 	 Read *k
 ]]></Implementation>
 </Method>
 
-<Method name="GeefLijstVanArtikelnummers">
+<Method name="GenereerLijstVanArtikelNummers">
 <Private>1</Private>
 <ProcedureBlock>0</ProcedureBlock>
-<ReturnType>%ListOfObjects</ReturnType>
 <Implementation><![CDATA[
-	Set LijstVanArtikelnummers = ##class(%ListOfObjects).%New()
+	#dim BestandNaamMetPad As TECH.String = ..GeefBestandNaamMetPad()
+	Do ..FileWriter.Open(BestandNaamMetPad)
 	
 	For i=1:1:aantal {
 		#dim Artikelnummer As %String = ..Generator.GeefNieuwArticleID()
-		Do LijstVanArtikelnummers.Insert(Artikelnummer)
-		Set FP=(301+(i*100)) Write @F,Artikelnummer
+		
+		Do ..FileWriter.WriteLine(Artikelnummer)
 	}
 	
-	Quit LijstVanArtikelnummers
+	Do ..FileWriter.Close()
+	Set FP=(501) Write @F,"Bestand gegenereerd op de volgende locatie:"
+	Set FP=(601) Write @F,BestandNaamMetPad
 ]]></Implementation>
 </Method>
+
+<Method name="GeefBestandNaamMetPad">
+<Private>1</Private>
+<ProcedureBlock>0</ProcedureBlock>
+<ReturnType>TECH.String</ReturnType>
+<Implementation><![CDATA[	Quit $$DIRUSER^vhDEV()_"Lijst_Artikelnummers.txt"
+]]></Implementation>
+</Method>
 </Class>