Index: AX/Uitgaand/PM/Product/impl/ArticleIDCHUI.cls.xml
===================================================================
diff -u -r68590 -r68631
--- AX/Uitgaand/PM/Product/impl/ArticleIDCHUI.cls.xml	(.../ArticleIDCHUI.cls.xml)	(revision 68590)
+++ AX/Uitgaand/PM/Product/impl/ArticleIDCHUI.cls.xml	(.../ArticleIDCHUI.cls.xml)	(revision 68631)
@@ -13,6 +13,11 @@
 <Private>1</Private>
 </Property>
 
+<Property name="Aantal">
+<Type>%Integer</Type>
+<Private>1</Private>
+</Property>
+
 <Method name="%OnNew">
 <Description>
 d ##class(AX.Uitgaand.PM.Product.impl.ArticleIDCHUI).Verwerk()</Description>
@@ -47,19 +52,32 @@
 </Method>
 
 <Method name="GeefInAantal">
-<ProcedureBlock>0</ProcedureBlock>
-<Implementation><![CDATA[	 Read !!, "Aantal artikelnummers te genereren: ",aantal
+<ProcedureBlock>1</ProcedureBlock>
+<Implementation><![CDATA[
+	#dim Aantal as TECH.Integer
+	
+	Read !!, "Aantal artikelnummers te genereren: ", Aantal
+	Set ..Aantal = Aantal
 ]]></Implementation>
 </Method>
 
 <Method name="GeefAantalArtikelNummers">
 <ProcedureBlock>0</ProcedureBlock>
 <Implementation><![CDATA[
-	If (aantal = 1) {
-		Set ArticleID=..Generator.GeefNieuwArticleID()
-	 	Set FP=501 Write @F,ArticleID
-	} ElseIf (aantal > 1) {
-		Do ..GenereerLijstVanArtikelNummers()
+	New BestandVolledigeNaam, ArtikelNummer
+	
+	If (..Aantal = 1) {
+		Set ArtikelNummer=..Generator.GeefNieuwArticleID()
+	 	Set FP=501 Write @F,ArtikelNummer
+	} ElseIf (..Aantal > 1) {
+		Set BestandVolledigeNaam = ..GeefBestandVolledigeNaam()
+		
+		If $$$Not(BestandVolledigeNaam = "") {
+			Do ..GenereerLijstVanArtikelNummers(BestandVolledigeNaam)
+			
+			Set FP=(501) Write @F,"Bestand gegenereerd op de volgende locatie:"
+			Set FP=(601) Write @F,BestandVolledigeNaam
+		}
 	} Else {
 		Set FP=501 Write @F,"Geen artikelnummers gegenereerd"
 	}
@@ -69,41 +87,45 @@
 <Method name="WachtBevestigingOmAfTeSluiten">
 <ProcedureBlock>0</ProcedureBlock>
 <Implementation><![CDATA[
-	 Set FP=2402 Write @F,"Gelieve toets in te drukken om terug te gaan"
-	 Read *k
+	New k
+	
+	Set FP=2402 Write @F,"Gelieve een toets in te drukken om terug te gaan"
+	Read *k
 ]]></Implementation>
 </Method>
 
 <Method name="GenereerLijstVanArtikelNummers">
+<FormalSpec>BestandVolledigeNaam:TECH.String</FormalSpec>
 <Private>1</Private>
-<ProcedureBlock>0</ProcedureBlock>
+<ProcedureBlock>1</ProcedureBlock>
 <Implementation><![CDATA[
-	#dim BestandVolledigeNaam As TECH.String = ..GeefBestandVolledigeNaam()
-	
-	If (BestandVolledigeNaam = "") {
-		Set FP=(501) Write @F,"Kon geen bestand genereren"
-		Quit
-	}
-	
 	Do ..FileWriter.Open(BestandVolledigeNaam)
 	
-	For i=1:1:aantal {
-		#dim Artikelnummer As %String = ..Generator.GeefNieuwArticleID()
+	#dim i As %Integer
+	For i=1:1:..Aantal {
+		#dim ArtikelNummer As %String = ..Generator.GeefNieuwArticleID()
 		
-		Do ..FileWriter.WriteLine(Artikelnummer)
+		Do ..FileWriter.WriteLine(ArtikelNummer)
 	}
 	
 	Do ..FileWriter.Close()
-	Set FP=(501) Write @F,"Bestand gegenereerd op de volgende locatie:"
-	Set FP=(601) Write @F,BestandVolledigeNaam
 ]]></Implementation>
 </Method>
 
 <Method name="GeefBestandVolledigeNaam">
 <Private>1</Private>
 <ProcedureBlock>0</ProcedureBlock>
 <ReturnType>TECH.String</ReturnType>
-<Implementation><![CDATA[	Quit $$DIRUSER^vhDEV()_"Lijst_Artikelnummers.txt"
+<Implementation><![CDATA[
+	New BestandPad
+	Set BestandPad = $$DIRUSER^vhDEV()
+	
+	If (BestandPad = "") {
+		Set FP=(501) Write @F,"Kon geen bestand genereren: geen geldig pad gevonden"
+		Quit BestandPad
+	} Else {
+		Quit BestandPad _ "Lijst_Artikelnummers.txt"
+	}
 ]]></Implementation>
 </Method>
 </Class>