Index: APPS/Halux/PPS/Verpakking/impl/LadeKartonWerkpost.cls.xml
===================================================================
diff -u -r68810 -r72815
--- APPS/Halux/PPS/Verpakking/impl/LadeKartonWerkpost.cls.xml	(.../LadeKartonWerkpost.cls.xml)	(revision 68810)
+++ APPS/Halux/PPS/Verpakking/impl/LadeKartonWerkpost.cls.xml	(.../LadeKartonWerkpost.cls.xml)	(revision 72815)
@@ -83,6 +83,56 @@
 	}
 ]]></Implementation>
 </Method>
+
+<UDLText name="T">
+<Content><![CDATA[
+// select * from "APPS_Halux_PPS_Activiteit_impl_common_dto"."KartonVoorLadeUitvoeringInfo" where ProductID = 4872568
+
+]]></Content>
+</UDLText>
+
+<UDLText name="T">
+<Content><![CDATA[
+// Do ##class(APPS.Halux.PPS.Verpakking.impl.LadeKartonWerkpost).TestSofieKartonAansturing(37920255)
+
+]]></Content>
+</UDLText>
+
+<Method name="TestSofieKartonAansturing">
+<ClassMethod>1</ClassMethod>
+<FormalSpec>WerklijstItemID:APPS.Halux.common.event.NieuwLadeGeperstEvent</FormalSpec>
+<Implementation><![CDATA[
+	Set Logger = ##class(vhLib.Logger).%New("HALUX.KARTON")
+	#dim PersWerkpost As %String = "LP1"
+	#dim IsManueel As %Boolean = $$$True
+	
+	Set WerkpostImpl = ..%New()
+	#dim InformatieID As %String = WerkpostImpl.GeefGekoppeldInformatieID()
+	#dim ActiviteitWerklijstItem As APPS.Halux.PPS.Activiteit.dto.ProductieSequentieWerklijstItem = ##class(APPS.Halux.PPS.Activiteit.dto.ActiviteitWerklijstItem).OpenId(WerklijstItemID)
+	#dim BatchID As %String = ActiviteitWerklijstItem.BatchID
+	#dim Batch As APPS.Halux.common.Batch = ##class(APPS.Halux.common.impl.BatchService).%New().GeefBatch(BatchID)
+	
+	#dim SequentieNummerGepersteLade = ActiviteitWerklijstItem.SequentieNummer
+
+	// Volgende kartonwerklijstitems bepalen
+	Set ActiviteitAPI = ##class(APPS.Halux.PPS.Activiteit.ActiviteitAPI).%New()
+	#dim KartonActiviteit As APPS.Halux.PPS.Activiteit.ProductieSequentieAwareActiviteit = ActiviteitAPI.ZoekActiviteitVoorBatch(BatchID, ..#ActiviteitCode)
+	#dim WerklijstItemsLijst As %ListOfDataTypes = KartonActiviteit.GeefWerklijstItemsInSequentie(BatchID, InformatieID, SequentieNummerGepersteLade, SequentieNummerGepersteLade)
+	
+	// Kartonmachine instellen op basis van de werkpost waar de lade geperst is, en snijden
+	#dim KartonMachineID As APPS.Halux.PPS.Verpakking.enu.KartonMachineID = WerkpostImpl.GeefMachineIDVoorPersWerkpost(PersWerkpost)
+	If (KartonMachineID '= "") {
+		Do Logger.Debug("APPS.Halux.PPS.Verpakking.impl.LadeKartonWerkpost", 
+				"Product: " _ ActiviteitWerklijstItem.UitvoeringInfo.DossierCode 
+				_ " SeqNr: " _ SequentieNummerGepersteLade 
+				_ " BatchID: " _ BatchID 
+				_ " Activiteit: " _ KartonActiviteit.GeefID() 
+				_ " Snijopdrachten: " _ WerklijstItemsLijst.Count() _ " op " _ KartonMachineID)
+		Do ##class(APPS.Halux.PPS.Verpakking.impl.KartonUtils).UpdateKartonMachineOpWerklijstItems(WerklijstItemsLijst, KartonMachineID)
+		Do KartonActiviteit.VoerUitWerklijstItems(WerklijstItemsLijst)
+	}
+]]></Implementation>
+</Method>
 </Class>