Index: AX/Uitgaand/PM/Product/impl/ArticleIDCHUI.cls.xml
===================================================================
diff -u -r68559 -r68590
--- AX/Uitgaand/PM/Product/impl/ArticleIDCHUI.cls.xml	(.../ArticleIDCHUI.cls.xml)	(revision 68559)
+++ AX/Uitgaand/PM/Product/impl/ArticleIDCHUI.cls.xml	(.../ArticleIDCHUI.cls.xml)	(revision 68590)
@@ -35,8 +35,8 @@
 	Set bl=..%New()
 	Do bl.WriteHeader()
 	Do bl.GeefInAantal()
-	Do bl.GeefAantalArtikkelNummers()
-	Do bl.WachtBevestigingOmfTeSluiten()
+	Do bl.GeefAantalArtikelNummers()
+	Do bl.WachtBevestigingOmAfTeSluiten()
 ]]></Implementation>
 </Method>
 
@@ -48,11 +48,11 @@
 
 <Method name="GeefInAantal">
 <ProcedureBlock>0</ProcedureBlock>
-<Implementation><![CDATA[	 Read !!, "Aantal artikkelnummers te genereren: ",aantal
+<Implementation><![CDATA[	 Read !!, "Aantal artikelnummers te genereren: ",aantal
 ]]></Implementation>
 </Method>
 
-<Method name="GeefAantalArtikkelNummers">
+<Method name="GeefAantalArtikelNummers">
 <ProcedureBlock>0</ProcedureBlock>
 <Implementation><![CDATA[
 	If (aantal = 1) {
@@ -66,7 +66,7 @@
 ]]></Implementation>
 </Method>
 
-<Method name="WachtBevestigingOmfTeSluiten">
+<Method name="WachtBevestigingOmAfTeSluiten">
 <ProcedureBlock>0</ProcedureBlock>
 <Implementation><![CDATA[
 	 Set FP=2402 Write @F,"Gelieve toets in te drukken om terug te gaan"
@@ -78,9 +78,15 @@
 <Private>1</Private>
 <ProcedureBlock>0</ProcedureBlock>
 <Implementation><![CDATA[
-	#dim BestandNaamMetPad As TECH.String = ..GeefBestandNaamMetPad()
-	Do ..FileWriter.Open(BestandNaamMetPad)
+	#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()
 		
@@ -89,11 +95,11 @@
 	
 	Do ..FileWriter.Close()
 	Set FP=(501) Write @F,"Bestand gegenereerd op de volgende locatie:"
-	Set FP=(601) Write @F,BestandNaamMetPad
+	Set FP=(601) Write @F,BestandVolledigeNaam
 ]]></Implementation>
 </Method>
 
-<Method name="GeefBestandNaamMetPad">
+<Method name="GeefBestandVolledigeNaam">
 <Private>1</Private>
 <ProcedureBlock>0</ProcedureBlock>
 <ReturnType>TECH.String</ReturnType>