Index: AX/Uitgaand/PM/Product/impl/ArticleIDGenerator.cls.xml
===================================================================
diff -u -r47904 -r47971
--- AX/Uitgaand/PM/Product/impl/ArticleIDGenerator.cls.xml	(.../ArticleIDGenerator.cls.xml)	(revision 47904)
+++ AX/Uitgaand/PM/Product/impl/ArticleIDGenerator.cls.xml	(.../ArticleIDGenerator.cls.xml)	(revision 47971)
@@ -40,6 +40,7 @@
 <Method name="GeefNieuwArticleID">
 <ReturnType>%String</ReturnType>
 <Implementation><![CDATA[
+	#dim ArticleID,CheckSum,ID As %String
 	Set ID=..Prefix_$E(1000000+..GeefNieuweTeller(),2,7)
 	Set CheckSum=ID#7
 	Set ArticleID=ID_CheckSum
@@ -58,7 +59,6 @@
 <Private>1</Private>
 <ReturnType>%String</ReturnType>
 <Implementation><![CDATA[
-	
 	Set Teller=##class(AX.Uitgaand.PM.Product.impl.Tellers).%OpenId(..Label,4)
 	If Teller.Teller>Teller.MaxTeller
 	{