Index: BL/Legacy/FLOW.cls.xml
===================================================================
diff -u -r67109 -r67110
--- BL/Legacy/FLOW.cls.xml	(.../FLOW.cls.xml)	(revision 67109)
+++ BL/Legacy/FLOW.cls.xml	(.../FLOW.cls.xml)	(revision 67110)
@@ -97,6 +97,8 @@
 	
 	#dim ToeleveringID As %String = ..GeefIDNieuweToelevering(ResultSet)
 	
+	Set:$$$Not(ToeleveringID=0) ^AfdrukkenVoorraadIdentificatieToelevering(ToeleveringID) = "DummyWaarde"
+	
 	Do SqlQueryConnection.Disconnect()
 	Quit ToeleveringID
 ]]></Implementation>
Index: FLOWTOE.mac.rou
===================================================================
diff -u -r67109 -r67110
--- FLOWTOE.mac.rou	(.../FLOWTOE.mac.rou)	(revision 67109)
+++ FLOWTOE.mac.rou	(.../FLOWTOE.mac.rou)	(revision 67110)
@@ -473,7 +473,9 @@
  . Set PalletAantal=##class(BL.Prod.sub.pxVoorraadIdentificatieDocs).GeefToeleveringEenheid(PRNr)
  . Set AantalPaginas=(Aantal\PalletAantal)+(Aantal#PalletAantal>0)
  . Do ##class(CHUI.Prod.VoorraadIdentificatieDoc).PrintProductVoorraadPagina(PRNr,PalletAantal,AantalPaginas,TLNr)
- Do VerwijderToelevering^FLOWTOE3(LEVNr,TLNr)
+ If $Data(^AfdrukkenVoorraadIdentificatieToelevering(ToeleveringID)) Do
+ . Do VerwijderToelevering^FLOWTOE3(LEVNr,TLNr)
+ . Kill ^AfdrukkenVoorraadIdentificatieToelevering(ToeleveringID)
  Quit
  ;
 INIT 
Index: FLOW.mac.rou
===================================================================
diff -u -r67109 -r67110
--- FLOW.mac.rou	(.../FLOW.mac.rou)	(revision 67109)
+++ FLOW.mac.rou	(.../FLOW.mac.rou)	(revision 67110)
@@ -101,7 +101,7 @@
  .For  Set LEVNr=$O(^KTO4(LEVNr)) Quit:LEVNr=""  If $P($O(^KTO4(LEVNr,R_D)),D)=R Set R=$P($O(^KTO4(LEVNr,R_D)),"\",2) Quit
  If R'<$P(Limit,D),R'>$P(Limit,"\",2),$D(@($$GLOREF("I",R))) Goto SQUIT
  Set IsContextAfdrukkenVoorraad = 0
- If ($E(R,1,3) = "000") Do
+ If (##class(TECH.StringUtils).Equals($E(R,1,2), "00", "HX")) Do
  . Set R = ##class(BL.Legacy.FLOW).MaakToeleveringOpBasisVanAxInformatie(R)
  . Set IsContextAfdrukkenVoorraad = 1
  . If (R = 0) Goto SASK