Index: AX/Uitgaand/PM/Product/impl/ArticleIDCHUI.cls.xml
===================================================================
diff -u -r47904 -r68534
--- AX/Uitgaand/PM/Product/impl/ArticleIDCHUI.cls.xml	(.../ArticleIDCHUI.cls.xml)	(revision 47904)
+++ AX/Uitgaand/PM/Product/impl/ArticleIDCHUI.cls.xml	(.../ArticleIDCHUI.cls.xml)	(revision 68534)
@@ -27,7 +27,9 @@
 <Implementation><![CDATA[
 	Set bl=..%New()
 	Do bl.WriteHeader()
-	Do bl.WriteArticleID()
+	Do bl.GeefInAantal()
+	Do bl.GeefLijstVanArtikelnummers()
+	;Do bl.WriteArticleID()
 	Do bl.WachtBevestiging()
 ]]></Implementation>
 </Method>
@@ -46,13 +48,36 @@
 ]]></Implementation>
 </Method>
 
+<Method name="GeefInAantal">
+<ProcedureBlock>0</ProcedureBlock>
+<Implementation><![CDATA[	 Read !!, "Aantal codes te genereren: ",aantal
+]]></Implementation>
+</Method>
+
 <Method name="WachtBevestiging">
 <ProcedureBlock>0</ProcedureBlock>
 <Implementation><![CDATA[
-	 Set FP=2402 Write @F,"Gelieve toets in te drukken om verder te gaan"
+	 Set FP=2402 Write @F,"Gelieve toets in te drukken om terug te gaan"
 	 Read *k
 ]]></Implementation>
 </Method>
+
+<Method name="GeefLijstVanArtikelnummers">
+<Private>1</Private>
+<ProcedureBlock>0</ProcedureBlock>
+<ReturnType>%ListOfObjects</ReturnType>
+<Implementation><![CDATA[
+	Set LijstVanArtikelnummers = ##class(%ListOfObjects).%New()
+	
+	For i=1:1:aantal {
+		#dim Artikelnummer As %String = ..Generator.GeefNieuwArticleID()
+		Do LijstVanArtikelnummers.Insert(Artikelnummer)
+		Set FP=(301+(i*100)) Write @F,Artikelnummer
+	}
+	
+	Quit LijstVanArtikelnummers
+]]></Implementation>
+</Method>
 </Class>