Index: AX/Uitgaand/VKP/ArtikelLijst/impl/ArtikelLijstGenerator.cls.xml
===================================================================
diff -u -r44073 -r44074
--- AX/Uitgaand/VKP/ArtikelLijst/impl/ArtikelLijstGenerator.cls.xml	(.../ArtikelLijstGenerator.cls.xml)	(revision 44073)
+++ AX/Uitgaand/VKP/ArtikelLijst/impl/ArtikelLijstGenerator.cls.xml	(.../ArtikelLijstGenerator.cls.xml)	(revision 44074)
@@ -88,6 +88,8 @@
 
 <Method name="ExportAll">
 <Implementation><![CDATA[
+	Do StartTimer^vhLib
+	
 	#dim KlantCount As %Integer
 	Set ..HoofdingStream = ##class(%Library.GlobalCharacterStream).%New()
 	Set ..RegelStream = ##class(%Library.GlobalCharacterStream).%New()
@@ -107,6 +109,9 @@
 	Do ..RegelFileWriter.Open(##class(TECH.Files).AppendFile(##class(TECH.Config.ConfigMgr).Instance().GeefString("AX_DIXF"),"1702ArtikelLijstRegelVHBE.csv"),$$$False)
 	Do ..RegelFileWriter.WriteStream(..RegelStream)
 	Do ..RegelFileWriter.Close()
+	
+	Write !,"Csv's voor migratie 1701 en 1702, zijnde ArtikelLijstHoofding en -Regel, voor VHBE zijn klaar. Aantal minuten: " 
+	Write $$TimeFromStart^vhLib()/60
 ]]></Implementation>
 </Method>
 
@@ -153,7 +158,7 @@
 <Implementation><![CDATA[
 	#dim IdentNr As %String
 	Set IdentNr=$$$PRGet($$$IdentNummer)
-	Do ..RegelStream.WriteLine("AllBlank"_";"_IdentNr_";"_..GeefTableID()_";"_1_";"_"STK"_";")
+	Do ..RegelStream.WriteLine("AllBlank"_";"_IdentNr_";"_..GeefTableID()_";"_1_";"_"STK")
 ]]></Implementation>
 </Method>