Index: WS/Prod/OptiBox/OptiServer.cls.xml
===================================================================
diff -u -r29059 -r30551
--- WS/Prod/OptiBox/OptiServer.cls.xml	(.../OptiServer.cls.xml)	(revision 29059)
+++ WS/Prod/OptiBox/OptiServer.cls.xml	(.../OptiServer.cls.xml)	(revision 30551)
@@ -720,9 +720,11 @@
 	
 	$$$CheckAccess($$$rsPPSTBXOptiBox,$$$prRead)
 	#dim Categorie as APPS.Halux.common.enu.Categorie=..GeefCategorieFromBatch(BatchID)
-	If ..IsOudeWijzeVanVerwerkingFromCategorie(Categorie)
+	If ..IsOudeWijzeVanVerwerkingFromCategorie(Categorie,Werkpost)
 	{
+
 		Set WPClassName=##class(BL.PPS.TBX.OptiBox).GetWPClassName(Werkpost)
+			d WLIP^vhDBG(97,"GetWPQueueViaBatchID "_WPClassName)
 		Set:(WPClassName="") pxStatus=$$$pxStatusErrorEx("Onbekende werkpost.",Werkpost)
 		If $$$pxStatusIsOK(pxStatus)
 		{
@@ -733,6 +735,7 @@
 	Else  ; Nieuwe verwerking
 	{
 		#dim WerkpostImpl As APPS.Halux.PPS.Verpakking.KartonWerkpost = ..GeefWerkpostImpl(Werkpost)
+			d WLIP^vhDBG(97,"GetWPQueueViaBatchID impl:"_WerkpostImpl)
 		If (WerkpostImpl = "") {
 			Set pxStatus = $$$pxStatusErrorEx("Onbekende werkpost " _ Werkpost, Werkpost)
 		} Else {
@@ -804,7 +807,7 @@
 	
 	$$$CheckAccess($$$rsPPSTBXOptiBox,$$$prUse)
 	
-	If ..IsOudeWijzeVanVerwerkingFromQueueID(QueueID)
+	If ..IsOudeWijzeVanVerwerkingFromQueueID(QueueID,Werkpost)
 	{
 		Set WPClassName=##class(BL.PPS.TBX.OptiBox).GetWPClassName(Werkpost)
 		Set:(WPClassName="") pxStatus=$$$pxStatusErrorEx("Onbekende werkpost.",Werkpost)
@@ -846,7 +849,7 @@
 	
 	$$$CheckAccess($$$rsPPSTBXOptiBox,$$$prRead)
 	
-	If ..IsOudeWijzeVanVerwerkingFromQueueID(QueueID)
+	If ..IsOudeWijzeVanVerwerkingFromQueueID(QueueID,Werkpost)
 	{
 		Set WPClassName=##class(BL.PPS.TBX.OptiBox).GetWPClassName(Werkpost)
 		Set:(WPClassName="") pxStatus=$$$pxStatusErrorEx("Onbekende werkpost.",Werkpost)
@@ -889,7 +892,7 @@
 	
 	$$$CheckAccess($$$rsPPSTBXOptiBox,$$$prUse)
 	
-	If ..IsOudeWijzeVanVerwerkingFromBatch(BatchID)
+	If ..IsOudeWijzeVanVerwerkingFromBatch(BatchID,Werkpost)
 	{
 
 		Set WPClassName=##class(BL.PPS.TBX.OptiBox).GetWPClassName(Werkpost)
@@ -985,7 +988,7 @@
 		#dim QueueID as %String = $P(QueueIDs,";",I)
 		If QueueID'="" && $$$pxStatusIsOK(pxStatus)
 		{
-			If ..IsOudeWijzeVanVerwerkingFromQueueID(QueueID)
+			If ..IsOudeWijzeVanVerwerkingFromQueueID(QueueID,Werkpost)
 			{
 				Set WPClassName=##class(BL.PPS.TBX.OptiBox).GetWPClassName(Werkpost)
 				Set:(WPClassName="") pxStatus=$$$pxStatusErrorEx("Onbekende werkpost.",Werkpost)
@@ -1024,46 +1027,41 @@
 </UDLText>
 
 <Method name="GeefWerkpostImpl">
-<FormalSpec>Werkpost:%String</FormalSpec>
+<FormalSpec>WerkpostID:%String</FormalSpec>
 <Private>1</Private>
 <ReturnType>APPS.Halux.PPS.Verpakking.KartonWerkpost</ReturnType>
-<Implementation><![CDATA[
-	#dim WerkpostImpl As APPS.Halux.PPS.Verpakking.KartonWerkpost = ""
-	If (Werkpost = ##class(APPS.Halux.PPS.Verpakking.enu.KartonWerkpost).LosseOnderdelen()) {
-		Set WerkpostImpl = ##class(APPS.Halux.PPS.Verpakking.impl.LOKartonWerkpost).%New()
-	} ElseIf (Werkpost = ##class(APPS.Halux.PPS.Verpakking.enu.KartonWerkpost).Verpakking()) {
-		Set WerkpostImpl = ##class(APPS.Halux.PPS.Verpakking.impl.LadeKartonWerkpost).%New()
-	}
-	Quit WerkpostImpl
+<Implementation><![CDATA[	Quit ##class(APPS.Halux.PPS.Verpakking.impl.KartonWerkpostFactory).%New().MaakWerkpost(WerkpostID)
 ]]></Implementation>
 </Method>
 
 <Method name="IsOudeWijzeVanVerwerkingFromQueueID">
-<FormalSpec>CatAndID:%String</FormalSpec>
+<FormalSpec>CatAndID:%String,WerkpostID:APPS.Halux.PPS.Verpakking.enu.KartonWerkpost</FormalSpec>
 <Private>1</Private>
 <ReturnType>%Boolean</ReturnType>
 <Implementation><![CDATA[
 	#dim Categorie as APPS.Halux.common.enu.Categorie=..GeefCategorie(CatAndID)
 	
-	Quit ..IsOudeWijzeVanVerwerkingFromCategorie(Categorie)
+	Quit ..IsOudeWijzeVanVerwerkingFromCategorie(Categorie,WerkpostID)
 ]]></Implementation>
 </Method>
 
 <Method name="IsOudeWijzeVanVerwerkingFromBatch">
-<FormalSpec>BatchID:%String</FormalSpec>
+<FormalSpec>BatchID:%String,WerkpostID:APPS.Halux.PPS.Verpakking.enu.KartonWerkpost</FormalSpec>
 <Private>1</Private>
 <ReturnType>%Boolean</ReturnType>
 <Implementation><![CDATA[
 	#dim Categorie as APPS.Halux.common.enu.Categorie=..GeefCategorieFromBatch(BatchID)
-	Quit ..IsOudeWijzeVanVerwerkingFromCategorie(Categorie)
+	Quit ..IsOudeWijzeVanVerwerkingFromCategorie(Categorie,WerkpostID)
 ]]></Implementation>
 </Method>
 
 <Method name="IsOudeWijzeVanVerwerkingFromCategorie">
-<FormalSpec>Categorie:APPS.Halux.common.enu.Categorie</FormalSpec>
+<FormalSpec>Categorie:APPS.Halux.common.enu.Categorie,WerkpostID:APPS.Halux.PPS.Verpakking.enu.KartonWerkpost</FormalSpec>
 <Private>1</Private>
 <ReturnType>%Boolean</ReturnType>
-<Implementation><![CDATA[	Quit (Categorie=##class(APPS.Halux.common.enu.Categorie).Tandembox())||(Categorie=##class(APPS.Halux.common.enu.Categorie).TAORbox())
+<Implementation><![CDATA[
+	Quit:(WerkpostID = ##class(APPS.Halux.PPS.Verpakking.enu.KartonWerkpost).LosseComponenten()) $$$False
+	Quit (Categorie=##class(APPS.Halux.common.enu.Categorie).Tandembox())||(Categorie=##class(APPS.Halux.common.enu.Categorie).TAORbox())
 ]]></Implementation>
 </Method>