Index: APPS/Halux/PPS/Verpakking/impl/LosseComponentenKartonWerkpost.cls.xml
===================================================================
diff -u
--- APPS/Halux/PPS/Verpakking/impl/LosseComponentenKartonWerkpost.cls.xml	(revision 0)
+++ APPS/Halux/PPS/Verpakking/impl/LosseComponentenKartonWerkpost.cls.xml	(revision 30549)
@@ -0,0 +1,53 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="APPS.Halux.PPS.Verpakking.impl.LosseComponentenKartonWerkpost">
+<Super>APPS.Halux.PPS.Verpakking.impl.KartonWerkpostBasis</Super>
+
+<Parameter name="ActiviteitCode">
+<Description>
+Aan deze activiteit proberen we te koppelen, er wordt zo 1 activiteit verwacht per categorie</Description>
+<Type>%String</Type>
+<Default>TAOR.Verpakking</Default>
+</Parameter>
+
+<Method name="GeefKartonLijstVoorBatch">
+<FormalSpec><![CDATA[BatchID:%String,&varDataSet:BL.Sys.Proxy.pxXMLDataSet]]></FormalSpec>
+<ReturnType>BL.Sys.Proxy.pxStatus</ReturnType>
+<Implementation><![CDATA[	Quit ##class(BL.Sys.Proxy.pxXMLDataSet).CreateQuery(.varDataSet,..%ClassName(1)_":QueueList",BatchID)
+]]></Implementation>
+</Method>
+
+<Query name="QueueList">
+<Type>%SQLQuery</Type>
+<FormalSpec>BatchID:%String</FormalSpec>
+<SqlQuery><![CDATA[	SELECT Batch.Categorie || '||' || UI.WerklijstItemID As ID, ToeleveringID As TOENr, UI.ProductID As PRNr, Product.Korttekst As KortTekst, DossierCode As DOSNr, 
+	APPS_Halux_PPS_Verpakking_impl.LosseComponentenKartonWerkpost_StatusDisplay(WerklijstItem.Status) As WPStatus
+	, UI.KartonSnijdenData_SnijStatus As SnijStatus, '' As Message
+	FROM APPS_Halux_PPS_Activiteit_impl_common_dto.KartonSnijdenUitvoeringInfo As UI
+	JOIN APPS_Halux_common_impl.BatchImpl as Batch on Batch.ID = BatchID
+	JOIN DOM_PM_impl.AdministratiefProduct as Product on Product.ID = UI.ProductID
+	JOIN APPS_Halux_PPS_Activiteit_dto.ProductieSequentieWerklijstItem as WerklijstItem on WerklijstItem.ID = UI.WerklijstItemID
+	WHERE (UI.BatchID=:BatchID) and (UI.KartonSnijdenData_SnijStatus <> 'X')  
+	ORDER BY UI.SequentieNummer]]></SqlQuery>
+<Parameter name="CONTAINID" value="0"/>
+</Query>
+
+<Method name="GeefGekoppeldInformatieID">
+<Description>
+Geeft de InformatieID van de relevante ActiviteitWerklijstItems</Description>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[	Quit "TAOR.Verpakking.KartonSnijden"   ; ##class(APPS.Halux.PPS.Verpakking.enu.InformatieID).LosseComponenten()
+]]></Implementation>
+</Method>
+
+<Method name="ZetKartonMachineIDInWerklijstItems">
+<FormalSpec>WerklijstItemsLijst:%ListOfDataTypes</FormalSpec>
+<Private>1</Private>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[	Do ..Logger.Debug("APPS.Halux.PPS.Verpakking.impl.LosseComponentenKartonWerkpost", "Gebruikte machine reeds correct ingevuld, dus wordt niet aangepast.")
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: vhTestFiles/IntegratieTests/Productie.Kartonwerkpost.TAOR/TestLosseComponenten/OptiboxRequests_.txt
===================================================================
diff -u
--- vhTestFiles/IntegratieTests/Productie.Kartonwerkpost.TAOR/TestLosseComponenten/OptiboxRequests_.txt	(revision 0)
+++ vhTestFiles/IntegratieTests/Productie.Kartonwerkpost.TAOR/TestLosseComponenten/OptiboxRequests_.txt	(revision 30549)
@@ -0,0 +1,109 @@
+Method : SetLocation
+Param1 : http://optiboxDEV/PanOptimizerWS
+
+Method : QueueOptimization
+Param1 : <OPTIREQ>
+  <BOX>
+    <BOXDEF>
+      <BOXSELECT>TAORBOX V1 SELFSTANDING</BOXSELECT>
+      <DEPTH>569</DEPTH>
+      <HEIGHT>83</HEIGHT>
+      <LEVEL>BIT</LEVEL>
+      <OPTITYPE>BOX</OPTITYPE>
+      <PLACE>PALLET</PLACE>
+      <REF>T..1</REF>
+      <WEIGHT>0</WEIGHT>
+      <WIDTH>480</WIDTH>
+    </BOXDEF>
+  </BOX>
+  <PRIORITY>9</PRIORITY>
+  <SERVER>ServerName</SERVER>
+</OPTIREQ>
+
+Method : SetLocation
+Param1 : http://optiboxDEV/PanOptimizerWS
+
+Method : QueueOptimization
+Param1 : <OPTIREQ>
+  <BOX>
+    <BOXDEF>
+      <BOXSELECT>TAORBOX V1 SELFSTANDING</BOXSELECT>
+      <DEPTH>490</DEPTH>
+      <HEIGHT>195.5</HEIGHT>
+      <LEVEL>BIT</LEVEL>
+      <OPTITYPE>BOX</OPTITYPE>
+      <PLACE>PALLET</PLACE>
+      <REF>T..2</REF>
+      <WEIGHT>0</WEIGHT>
+      <WIDTH>590</WIDTH>
+    </BOXDEF>
+  </BOX>
+  <PRIORITY>9</PRIORITY>
+  <SERVER>ServerName</SERVER>
+</OPTIREQ>
+
+Method : SetLocation
+Param1 : http://optiboxDEV/PanOptimizerWS
+
+Method : QueueOptimization
+Param1 : <OPTIREQ>
+  <BOX>
+    <BOXDEF>
+      <BOXSELECT>TAORBOX V1 SELFSTANDING</BOXSELECT>
+      <DEPTH>334</DEPTH>
+      <HEIGHT>81</HEIGHT>
+      <LEVEL>BIT</LEVEL>
+      <OPTITYPE>BOX</OPTITYPE>
+      <PLACE>PALLET</PLACE>
+      <REF>T..3</REF>
+      <WEIGHT>0</WEIGHT>
+      <WIDTH>569</WIDTH>
+    </BOXDEF>
+  </BOX>
+  <PRIORITY>9</PRIORITY>
+  <SERVER>ServerName</SERVER>
+</OPTIREQ>
+
+Method : SetLocation
+Param1 : http://optiboxDEV/PanOptimizerWS
+
+Method : QueueOptimization
+Param1 : <OPTIREQ>
+  <BOX>
+    <BOXDEF>
+      <BOXSELECT>TAORBOX V1 SELFSTANDING</BOXSELECT>
+      <DEPTH>174.5</DEPTH>
+      <HEIGHT>148</HEIGHT>
+      <LEVEL>BIT</LEVEL>
+      <OPTITYPE>BOX</OPTITYPE>
+      <PLACE>PALLET</PLACE>
+      <REF>T..4</REF>
+      <WEIGHT>0</WEIGHT>
+      <WIDTH>495</WIDTH>
+    </BOXDEF>
+  </BOX>
+  <PRIORITY>9</PRIORITY>
+  <SERVER>ServerName</SERVER>
+</OPTIREQ>
+
+Method : SetLocation
+Param1 : http://optiboxDEV/PanOptimizerWS
+
+Method : QueueOptimization
+Param1 : <OPTIREQ>
+  <BOX>
+    <BOXDEF>
+      <BOXSELECT>TAORBOX V1 SELFSTANDING</BOXSELECT>
+      <DEPTH>174.5</DEPTH>
+      <HEIGHT>148</HEIGHT>
+      <LEVEL>BIT</LEVEL>
+      <OPTITYPE>BOX</OPTITYPE>
+      <PLACE>PALLET</PLACE>
+      <REF>T..5</REF>
+      <WEIGHT>0</WEIGHT>
+      <WIDTH>495</WIDTH>
+    </BOXDEF>
+  </BOX>
+  <PRIORITY>9</PRIORITY>
+  <SERVER>ServerName</SERVER>
+</OPTIREQ>
Index: vhUnitTest/APPS/Halux/PPS/Verpakking/impl/KartonWerkpostFactory/MaakWerkpost/SmokeTest.cls.xml
===================================================================
diff -u
--- vhUnitTest/APPS/Halux/PPS/Verpakking/impl/KartonWerkpostFactory/MaakWerkpost/SmokeTest.cls.xml	(revision 0)
+++ vhUnitTest/APPS/Halux/PPS/Verpakking/impl/KartonWerkpostFactory/MaakWerkpost/SmokeTest.cls.xml	(revision 30549)
@@ -0,0 +1,44 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.APPS.Halux.PPS.Verpakking.impl.KartonWerkpostFactory.MaakWerkpost.SmokeTest">
+<Super>vhUnitTest.TestCase</Super>
+
+<Property name="WerkpostFactory">
+<Type>APPS.Halux.PPS.Verpakking.impl.KartonWerkpostFactory</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="OnBeforeOneTest">
+<FormalSpec>aTestName:%String</FormalSpec>
+<Implementation><![CDATA[
+	Do ##super(aTestName)
+	Set ..WerkpostFactory = ##class(APPS.Halux.PPS.Verpakking.impl.KartonWerkpostFactory).%New()
+]]></Implementation>
+</Method>
+
+<Method name="Test">
+<Implementation><![CDATA[
+	#dim WerkpostIDIterator As TECH.Iterator = ##class(APPS.Halux.PPS.Verpakking.enu.KartonWerkpost).ValueListIterator()
+	Do $$$AssertTrue(WerkpostIDIterator.HasNext(),"Er werden items verwacht in de enumeratie Verpakking.enu.KartonWerkpost")
+	While WerkpostIDIterator.HasNext() {
+		Do ..AssertWerkpost(WerkpostIDIterator.Next())
+	}
+]]></Implementation>
+</Method>
+
+<Method name="AssertWerkpost">
+<FormalSpec>WerkpostID:APPS.Halux.PPS.Verpakking.enu.KartonWerkpost</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	Try {
+	  #dim Werkpost As APPS.Halux.PPS.Verpakking.KartonWerkpost = ..WerkpostFactory.MaakWerkpost(WerkpostID)
+	} Catch {
+		#dim Exception = ##class(TECH.ExceptionHandler).Catch()
+		Do ..Fail("Geen implementatie klasse voor WerkpostID : "_WerkpostID_" --> "_$$$CRLF_Exception.ToString())
+	}
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: APPS/Halux/PPS/Verpakking/impl/KartonWerkpostFactory.cls.xml
===================================================================
diff -u
--- APPS/Halux/PPS/Verpakking/impl/KartonWerkpostFactory.cls.xml	(revision 0)
+++ APPS/Halux/PPS/Verpakking/impl/KartonWerkpostFactory.cls.xml	(revision 30549)
@@ -0,0 +1,36 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="APPS.Halux.PPS.Verpakking.impl.KartonWerkpostFactory">
+<Description>
+Deze KartonWerkpostFactory werkt enkel voor nieuwe werkpost-implementaties.
+Voor de oude impl nog steeds oproepen via  ##class(BL.PPS.TBX.OptiBox).GetWPClassName(Werkpost) </Description>
+<Super>TECH.RegisteredObject</Super>
+
+<Property name="WerkpostEnum">
+<Type>APPS.Halux.PPS.Verpakking.enu.KartonWerkpost.AutoComplete</Type>
+</Property>
+
+<Method name="MaakWerkpost">
+<FormalSpec>WerkpostID:APPS.Halux.PPS.Verpakking.enu.KartonWerkpost</FormalSpec>
+<ReturnType>APPS.Halux.PPS.Verpakking.KartonWerkpost</ReturnType>
+<Implementation><![CDATA[
+	#dim Werkpost As APPS.Halux.PPS.Verpakking.KartonWerkpost = ""
+	If (WerkpostID = ..WerkpostEnum.Verpakking) {
+		Set Werkpost = ##class(APPS.Halux.PPS.Verpakking.impl.LadeKartonWerkpost).%New()
+	} 
+	ElseIf (WerkpostID = ..WerkpostEnum.LosseOnderdelen) {
+		Set Werkpost = ##class(APPS.Halux.PPS.Verpakking.impl.LOKartonWerkpost).%New()
+	} 
+	ElseIf (WerkpostID = ..WerkpostEnum.LosseComponenten) {
+		Set Werkpost = ##class(APPS.Halux.PPS.Verpakking.impl.LosseComponentenKartonWerkpost).%New()
+	}
+	Else {
+		Do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.InvalidInputException).%New("De factory kent geen werkpost-implementatie voor ID "_WerkpostID_"."))
+	}
+	Quit Werkpost
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>