Index: WS/Prod/OptiBox/OptiServer.cls.xml
===================================================================
diff -u -r68406 -r72500
--- WS/Prod/OptiBox/OptiServer.cls.xml	(.../OptiServer.cls.xml)	(revision 68406)
+++ WS/Prod/OptiBox/OptiServer.cls.xml	(.../OptiServer.cls.xml)	(revision 72500)
@@ -751,27 +751,29 @@
 	
 	$$$CheckAccess($$$rsPPSTBXOptiBox,$$$prRead)
 	
-	#dim Categorie as APPS.Halux.common.enu.Categorie = ..GeefCategorieFromBatch(BatchID)
-	
-	If (..IsOudeWijzeVanVerwerkingFromCategorie(Categorie, Werkpost)) {		
-		Set WPClassName = ##class(BL.PPS.TBX.OptiBox).GetWPClassName(Werkpost)
-		Set:(WPClassName = "") pxStatus = $$$pxStatusErrorEx("Onbekende werkpost.", Werkpost)
+	If (##class(APPS.Halux.common.impl.BatchImpl).%ExistsId(BatchID)) {	
+		#dim Categorie as APPS.Halux.common.enu.Categorie = ..GeefCategorieFromBatch(BatchID)
 		
-		If $$$pxStatusIsOK(pxStatus) {
-			#dim QueryName as %String = WPClassName _ ":QueueList"
-			Set pxStatus = ##class(BL.Sys.Proxy.pxXMLDataSet).CreateQuery(.varDataSet,QueryName,BatchID)
+		If (..IsOudeWijzeVanVerwerkingFromCategorie(Categorie, Werkpost)) {		
+			Set WPClassName = ##class(BL.PPS.TBX.OptiBox).GetWPClassName(Werkpost)
+			Set:(WPClassName = "") pxStatus = $$$pxStatusErrorEx("Onbekende werkpost.", Werkpost)
+			
+			If $$$pxStatusIsOK(pxStatus) {
+				#dim QueryName as %String = WPClassName _ ":QueueList"
+				Set pxStatus = ##class(BL.Sys.Proxy.pxXMLDataSet).CreateQuery(.varDataSet,QueryName,BatchID)
+			}
+		} ElseIf (Werkpost = $$$wpPers)	{		
+			Set pxStatus = $$$pxStatusErrorEx("Geen lijst voor werkpost " _ Werkpost, Werkpost)
+		} Else {		
+			; Nieuwe verwerking
+			#dim WerkpostImpl As APPS.Halux.PPS.Verpakking.KartonWerkpost = ..GeefWerkpostImpl(Werkpost)
+			
+			If (WerkpostImpl = "") {
+				Set pxStatus = $$$pxStatusErrorEx("Onbekende werkpost " _ Werkpost, Werkpost)
+			} Else {
+				Set pxStatus = WerkpostImpl.GeefKartonLijstVoorBatch(BatchID, .varDataSet)
+			}
 		}
-	} ElseIf (Werkpost = $$$wpPers)	{		
-		Set pxStatus = $$$pxStatusErrorEx("Geen lijst voor werkpost " _ Werkpost, Werkpost)
-	} Else {		
-		; Nieuwe verwerking
-		#dim WerkpostImpl As APPS.Halux.PPS.Verpakking.KartonWerkpost = ..GeefWerkpostImpl(Werkpost)
-		
-		If (WerkpostImpl = "") {
-			Set pxStatus = $$$pxStatusErrorEx("Onbekende werkpost " _ Werkpost, Werkpost)
-		} Else {
-			Set pxStatus = WerkpostImpl.GeefKartonLijstVoorBatch(BatchID, .varDataSet)
-		}
 	}
 	
 	Quit pxStatus