Index: AX/Uitgaand/VKP/ArtikelLijst/impl/ArtikelLijstGenerator.cls.xml
===================================================================
diff -u -r47305 -r48119
--- AX/Uitgaand/VKP/ArtikelLijst/impl/ArtikelLijstGenerator.cls.xml	(.../ArtikelLijstGenerator.cls.xml)	(revision 47305)
+++ AX/Uitgaand/VKP/ArtikelLijst/impl/ArtikelLijstGenerator.cls.xml	(.../ArtikelLijstGenerator.cls.xml)	(revision 48119)
@@ -156,9 +156,11 @@
 <FormalSpec>PRNr:%String,HistRec:%String</FormalSpec>
 <Private>1</Private>
 <Implementation><![CDATA[
-	#dim IdentNr As %String
+	#dim IdentNr,Aantal As %String
 	Set IdentNr=$$$PRGet($$$IdentNummer)
-	Do ..RegelStream.WriteLine("AllBlank"_";"_IdentNr_";"_..GeefTableID()_";"_1_";"_"STK")
+	Set Aantal=$P(HistRec,"\",3)\1
+	Quit:Aantal<1
+	Do ..RegelStream.WriteLine("AllBlank"_";"_IdentNr_";"_..GeefTableID()_";"_Aantal_";"_"STK")
 ]]></Implementation>
 </Method>