Index: CHUI/Prod/VoorraadTelling.cls.xml
===================================================================
diff -u -r1440 -r1802
--- CHUI/Prod/VoorraadTelling.cls.xml	(.../VoorraadTelling.cls.xml)	(revision 1440)
+++ CHUI/Prod/VoorraadTelling.cls.xml	(.../VoorraadTelling.cls.xml)	(revision 1802)
@@ -131,7 +131,6 @@
 <Implementation><![CDATA[
 	New Lijst,chuiVoorraadTelling,%TC
 	; Voorraadtelling tonen
- 	;b "s+"
  	Do ADD^vhLock("VoorraadTelling(1)#""S""") ; shared lock
  	If $isObject($G(chuiVoorraadTelling)) Do  ; reinvoke
  	. Do chuiVoorraadTelling.GetDef()
@@ -140,7 +139,7 @@
 	. Set chuiVoorraadTelling=..Instantiate()
  	. Do chuiVoorraadTelling.Init()
     . Do chuiVoorraadTelling.ToonVoorraadTelling(SelLijnOverzicht)
-  	For  Do chuiVoorraadTelling.CommandLoop() If $L(Input) Quit:Input="-"   ;inlezen van de scherminput
+  	For  Do chuiVoorraadTelling.CommandLoop() Quit:Input="-"   ;inlezen van de scherminput
   	Do REMOVE^vhLock("VoorraadTelling(1)#""S""") ;shared lock wegdoen
 ]]></Implementation>
 </Method>
@@ -150,6 +149,7 @@
 Scrollen in de lijst op het scherm
 Dat kan een productlijst, een detaillijst of een multiproductlijst zijn</Description>
 <Implementation><![CDATA[
+	Set Input=""
 	Set Input=$$SCROLL^vhLIST(.Lijst,"X`S zb=$S(..Modus'=""Productdetail"":"""",zb=""LE"":""("",zb=""RI"":"")"",1:"""")",35)
 	;opmerking: "pijltje links" en "pijltje rechts" worden opgevangen als de modus "productdetail" is
 	If ..Modus="Overzicht" Do 
@@ -185,7 +185,6 @@
 	. Do ..ToonVoorraadTelling(SelLijnOverzicht)
 	. Set Lijst("SELECT")=$g(SelLijnOverzicht)
 	. Do WRITE^vhLIST(.Lijst)
-	Set Input=""
 ]]></Implementation>
 </Method>
 
@@ -474,20 +473,14 @@
 	 . Set $Piece(xTel,"\",3)=$Piece(xTel,"\",3)+1
 	 . Set ^HULP(..%J,"Telling",TellingNr)=xTel
 	 . Set ^HULP(..%J,"Zones",Zone,TellingNr)=Stock_"\"_AantTellingen
-     ;toevoegen van * voor meerdere zones
-     ;toevoegen van + voor meerdere tellingen van één zone
+
      Set ProductMaxTel=$O(^HULP(..%J,"Telling",""),-1)
      If ProductMaxTel=""  Do
      . Set Tel=""
      Else  Do
      . Set xTel=$G(^HULP(..%J,"Telling",ProductMaxTel))
-     . Set Tel=$P(xTel,"\")
-     . Set Tel=$S('+Tel:Tel,1:$$FN^vhRtn2(Tel,5,0,"+N"))                 ;formaat instellen van actieve telnummer
-     . If Tel'="#####" Do
-     . . If $Piece(xTel,"\",3)>1 Do
-     . . . Set Tel=Tel_"+"
-     . . Else  If $Piece(xTel,"\",2)>1 Do
-     . . . Set Tel=Tel_"*"
+     . Set Tel=..FormatTelling(xTel)
+
      If ProductMaxTel=""  Do
      . Set ProductMaxTelMin1=""
      Else  Do
@@ -496,16 +489,32 @@
      . Set TelMin1=""
      Else  Do
      . Set xTelMin1=$G(^HULP(..%J,"Telling",ProductMaxTelMin1))
-     . Set TelMin1=$P(xTelMin1,"\")
-     . Set TelMin1=$S('+TelMin1:TelMin1,1:$$FN^vhRtn2(TelMin1,5,0,"+N"))  ; formaat instellen van vorig telnummer
-     . If TelMin1'="#####" Do
-     . . If $Piece(xTelMin1,"\",3)>1 Do
-     . . . Set TelMin1=TelMin1_"+"
-     . . Else  If $Piece(xTelMin1,"\",2)>1 Do
-     . . . Set TelMin1=TelMin1_"*"
+     . Set TelMin1=..FormatTelling(xTelMin1)
 ]]></Implementation>
 </Method>
 
+<Method name="FormatTelling">
+<Description>
+opm : xTel = Aantal_D_AantalTellingen_D_AantalZones</Description>
+<FormalSpec>xTel</FormalSpec>
+<Implementation><![CDATA[
+    new Tel
+	 Set Tel=$P(xTel,"\")
+     Set Tel=$S('+Tel:Tel,1:$$FN^vhRtn2($P(xTel,"\"),6,0,"+N"))  ; formaat instellen met duizend scheiding
+     Set:Tel["#" Tel=$$FN^vhRtn2($P(xTel,"\"),6,0,"+N.") ; formaat instellen zonder duizend scheiding
+     If Tel'["#" Do
+     . If $Piece(xTel,"\",3)>1 Do ;toevoegen van + voor meerdere tellingen van één zone
+     . . Set Tel=Tel_"+"
+     . Else  If $Piece(xTel,"\",2)>1 Do ;toevoegen van * voor meerdere zones
+     . . Set Tel=Tel_"*"
+     . Else  Do
+     . . Set Tel=Tel_" "
+     Else  Do
+     . Set Tel=$$FN^vhRtn2($P(xTel,"\"),7,0,"+N.") ; formaat instellen zonder duizend scheiding
+	Quit Tel
+]]></Implementation>
+</Method>
+
 <Method name="InfoStock">
 <Description>
 Zoekt de stock van werkvloerstock en de werkvloerreservatie</Description>
@@ -957,6 +966,7 @@
  Set MaxLen=0
  For  Set Zone=$O(LstZones1(Zone)) Quit:Zone=""  Do       ; aflopen van de zones
  . Set Zone1=$Piece(Zone," ") Quit:Zone1=""
+ . Set ^PVE(Zone)=""
  . Set txtZone=$Piece($Get(^RES("PRODUKT","PI","HFWVSUBMAG","D",Zone1)),"`",2)
  . If txtZone="" Set txtZone="<onbekend>"
  . Set txtZone=txtZone_" "_$P(Zone," ",2,99)
@@ -1029,9 +1039,9 @@
 <Implementation><![CDATA[
 	Do ADD^vhLock("VoorraadTelling")              ; voor de import mag er niemand anders in het programma zitten
 	If '%TC Do LDISP^vhLock(PRNr,"Import niet toegelaten") Quit
-	Set ImportOK=$$^vhTXTPOP("SYSTEM","JANEEN","","Bent u zeker, want alle bestande data worden gewist?")
+	Set ImportOK=$$^vhTXTPOP("SYSTEM","JANEEN","","Bent u zeker, want ALLE ingevulde tellingen worden gewist?")
 	Quit:'ImportOK
-	Set ImportOK=$$^vhTXTPOP("SYSTEM","JANEEN","","Bent u HEEL zeker?")
+	Set ImportOK=$$^vhTXTPOP("SYSTEM","JANEEN","","Bent u HEEL zeker dat ALLE ingevulde tellingen mogen gewist worden?")
 	Quit:'ImportOK
     Do ..WriteTitel("Import data is bezig: even geduld!")
     Set FP=701 Write @F,@F1                      ;leegmaken van de overzichtlijst
@@ -1053,7 +1063,7 @@
 	If '%TC Do LDISP^vhLock(PRNr,"Doorvoeren tellingen niet toegelaten") Quit
 	Set UpdateOK=$$^vhTXTPOP("SYSTEM","JANEEN","","Bent u zeker, want de stock wordt aangepast?")
 	Quit:'UpdateOK
-	Set UpdateOK=$$^vhTXTPOP("SYSTEM","JANEEN","","Bent u HEEL zeker?")
+	Set UpdateOK=$$^vhTXTPOP("SYSTEM","JANEEN","","Bent u HEEL zeker dat de stock moet aangepast worden?")
 	Quit:'UpdateOK
 	Set Tekst=..blVoorraadTelling.Save()
 	If Tekst'="" Do WARN^vhTXTPOP(Tekst)
@@ -1357,7 +1367,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 Input=$$ASK^vhINP("Geef het aantal: ",40,"",,,,,,"E",) Quit:Input="-"  Quit:$TR(Input,"+.","")?.N  ;inlezen tot iets numeriek wordt ingevuld
+	For  Set Input=$$ASK^vhINP("Geef het aantal: ",40,"","Meerdere getallen met '+' gescheiden",,,,,"E",) Quit:Input="-"  Quit:$TR(Input,"+.","")?.N  ;inlezen tot iets numeriek wordt ingevuld
 	If Input'="" For i=1:1:$L(Input,"+")  Do            ;opsplitsen van alle getallen tussen de "+"-tekens
 	. Set Aantal=$Piece(Input,"+",i)
 	. Quit:$Tr(Aantal,".","")'?.N
Index: BL/Prod/VoorraadTelling.cls.xml
===================================================================
diff -u -r1074 -r1802
--- BL/Prod/VoorraadTelling.cls.xml	(.../VoorraadTelling.cls.xml)	(revision 1074)
+++ BL/Prod/VoorraadTelling.cls.xml	(.../VoorraadTelling.cls.xml)	(revision 1802)
@@ -150,7 +150,6 @@
 <Description>
 Toevoegen van een product aan de lijst</Description>
 <FormalSpec>PRNr:%Numeric,ManueelToegevoegd:%Boolean</FormalSpec>
-<Private>1</Private>
 <Implementation><![CDATA[
 	;Als er geen hulpglobal is dan wordt het product opgezocht in de lijst
 	;lst: array op voorraad en productnummer
@@ -471,6 +470,7 @@
 <FormalSpec>Printer,HertelNr:%Numeric,ReeksZones:%String,AlleProducten:%Boolean</FormalSpec>
 <ReturnType>%Status</ReturnType>
 <Implementation><![CDATA[
+	use 0
 	;opmerking: het hertelnummer wordt verhoogd voor het begin van de afdruk
 	Kill ^HULP(..%J,"Product")
 	Set AfdrukDatum=$$EXTDATE^vhDTyp(,"DKP")
@@ -518,7 +518,7 @@
 	. . . Set Stat=oVoorraadTelling.%Save()
 	. . Quit:rsProd.Data("Hertelling")'="I"&'AlleProducten    ; Alleen producten die moet herteld worden, worden afgedrukt
 	. . ;aanpassen van de hertelstatus
-	. . If $D(ReeksZones) Quit:'..TelZoneOK(PRNr,Zones,ReeksZones)
+	. . If $L($G(ReeksZones)) Quit:'..TelZoneOK(PRNr,Zones,ReeksZones)
 	. . Set oVoorraadTelling.Hertelling="A"
 	. . ;hertelnummer toevoegen aan de lijst
 	. . Set Nummers= oVoorraadTelling.HertelNummers
@@ -537,12 +537,12 @@
 	. . . Set Zone=rsTel.Data("Tellingen_OpslagZone")
 	. . . Quit:(HertelNr-TelNr)>1
     . . . Set ^HULP(..%J,"Product",Zone,..SortKey(PRNr),PRNr)=""
-    Set sc=$$$OK
+
     ; doorsturen van de afdruk per zone
-	Set Zone="",i=0,Stop=0
+    Set sc=$$$OK
+	Set Zone="",Stop=0
 	For  Set Zone=$O(^HULP(..%J,"Product",Zone)) Quit:Zone=""  Quit:Stop  Do
-    . If i=0 Set ..pxDocList=##class(BL.Prod.VoorraadTelSettingsList).%New()
-    . Set i=i+1
+    . Set ..pxDocList=##class(BL.Prod.VoorraadTelSettingsList).%New()
     . Set pxDoc=##class(BL.Prod.sub.pxVoorraadTelSettings).%New()
     . Set pxDoc.Zone=$S(Zone="-":"",1:Zone)
     . Set pxDoc.ZoneOms=..ZoneTekst(Zone)
@@ -556,16 +556,8 @@
     . . For  Set PRNr=$O(^HULP(..%J,"Product",Zone,SortKey,PRNr)) Quit:PRNr=""  Do
     . . . Set Lijst=Lijst_$LB(PRNr)
     . Set pxDoc.Products=Lijst
-    . ;Do ..pxDocList.Settings.Insert(pxDoc)
-    . ;opsplitsen van de printjob
-    . If i'<..#AantalZonesInPrintjob Do
-    . . ;Set sc=..blVoorraadtellingDoc.RenderAndPrint(..pxDocList,Printer)
-    . . Set sc=..PrintOne(pxDoc,Printer)
-    . . If $$$ISERR(sc) Set Stop=1
-    . . Set i=0
-    . . Do ..pxDocList.Settings.Clear()
-    ;Set:($$$ISOK(sc)) sc=..blVoorraadtellingDoc.RenderAndPrint(..pxDocList,Printer)
-    Set:($$$ISOK(sc)) sc=..PrintOne(pxDoc,Printer)
+    . Set sc=..PrintOne(pxDoc,Printer)
+    . If $$$ISERR(sc) Set Stop=1 
   
     Quit sc
 ]]></Implementation>
@@ -580,7 +572,7 @@
 	Set sc=..blVoorraadtellingDoc.RenderAndPrint(..pxDocList,Printer)
 
 	/// in shared map van de user bij problemen
-	Set FileName="VoorraadTel "_pxDoc.ZoneOms_" "_pxDoc.TellingOms_".pdf"
+	Set FileName="VoorraadTel "_$TR(pxDoc.ZoneOms,"<>")_" "_pxDoc.TellingOms_".pdf"
 	Set FilePath=$$FULLPAD^vhDEV($$DIRUSER^vhDEV(),FileName)
 	Set:$$$ISOK(sc) sc=..blVoorraadtellingDoc.RenderAndFile(..pxDocList,FilePath)