Index: WS/Prod/OptiBox/OptiServer.cls.xml
===================================================================
diff -u -r30809 -r31228
--- WS/Prod/OptiBox/OptiServer.cls.xml	(.../OptiServer.cls.xml)	(revision 30809)
+++ WS/Prod/OptiBox/OptiServer.cls.xml	(.../OptiServer.cls.xml)	(revision 31228)
@@ -770,6 +770,10 @@
 			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)