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)