Index: CHUI/Prod/VoorraadTelling.cls.xml
===================================================================
diff -u -r1074 -r1440
--- CHUI/Prod/VoorraadTelling.cls.xml	(.../VoorraadTelling.cls.xml)	(revision 1074)
+++ CHUI/Prod/VoorraadTelling.cls.xml	(.../VoorraadTelling.cls.xml)	(revision 1440)
@@ -185,6 +185,7 @@
 	. Do ..ToonVoorraadTelling(SelLijnOverzicht)
 	. Set Lijst("SELECT")=$g(SelLijnOverzicht)
 	. Do WRITE^vhLIST(.Lijst)
+	Set Input=""
 ]]></Implementation>
 </Method>
 
@@ -1384,7 +1385,7 @@
 	Quit:TelNr=""
 	&sql(Select Max(Tellingen_TellingNr) into :MaxHertel from Prod.VoorraadTelling_Tellingen where VoorraadTelling->Product=:PRNr and Tellingen_OpslagZone=:Zone)
 	Quit:MaxHertel>TelNr  ;geen ingave als het hertelnummer kleiner is dan de hoogste waarde voor het artikel en de zone
-    For  Set Aantal=$$ASK^vhINP("Geef het aantal: ",10,TellingAantal,,,,,,"E","") Quit:Input="-"  Quit:$TR(Input,"+.","")?.N  ;inlezen tot iets numeriek wordt ingevuld
+    For  Set Aantal=$$ASK^vhINP("Geef het aantal: ",10,TellingAantal,"Slechts één getal","meerdere getallen met + gescheiden zijn niet toegelaten",,,,"E","") Quit:Aantal="-"  Quit:$TR(Aantal,"+.","")?.N  ;inlezen tot iets numeriek wordt ingevuld
     If $Tr(Aantal,"-","")=""!(Aantal=TellingAantal) Do WRITE^vhLIST(.Lijst) Quit ;  als het aantal leeg is of niets veranderd is, dan wordt het detailscherm opnieuw getoond
     Set ZoneCode=..blVoorraadTelling.Zone 
     Set LijnWegDoen=0