Index: vhTest/Mock/APPS/Halux/PPS/Verpakking/impl/KartonSnijder/WerklijstItemStatusUpdater.cls.xml
===================================================================
diff -u
--- vhTest/Mock/APPS/Halux/PPS/Verpakking/impl/KartonSnijder/WerklijstItemStatusUpdater.cls.xml	(revision 0)
+++ vhTest/Mock/APPS/Halux/PPS/Verpakking/impl/KartonSnijder/WerklijstItemStatusUpdater.cls.xml	(revision 30540)
@@ -0,0 +1,26 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhTest.Mock.APPS.Halux.PPS.Verpakking.impl.KartonSnijder.WerklijstItemStatusUpdater">
+<Description>
+Deze klasse werd automatisch gegenereerd en onderhouden - lokale aanpassingen zijn niet nodig.
+Een hercompilatie van de basis interface - met een correct werkende studiohook ( v2.20 ++ ) - zorgt ervoor dat deze klasse aangepast wordt
+Inheritance van meerdere TECH.Interface interfaces resulteert nog niet in een mockklasse met overeenkomstige inheritance-structuur.</Description>
+<ProcedureBlock>1</ProcedureBlock>
+<Super>APPS.Halux.PPS.Verpakking.impl.KartonSnijder.WerklijstItemStatusUpdater,Tools.Mock.MockClassBase</Super>
+<Inheritance>right</Inheritance>
+
+<Method name="UpdateWerklijstItemStatus">
+<FormalSpec>WerklijstItem:APPS.Halux.PPS.Activiteit.dto.ProductieSequentieWerklijstItem,IsSnijOpdrachtUitgevoerd:%Boolean,TeWijzigenSnijStatus:APPS.Halux.PPS.Verpakking.enu.KartonMachineStatus</FormalSpec>
+<Implementation><![CDATA[	do ..VerwerkMethodCall("UpdateWerklijstItemStatus",WerklijstItem,IsSnijOpdrachtUitgevoerd,TeWijzigenSnijStatus)
+]]></Implementation>
+</Method>
+
+<Method name="UpdateWerklijstItemStatusViaID">
+<FormalSpec>WerklijstItemID:%String,IsSnijOpdrachtUitgevoerd:%Boolean,TeWijzigenSnijStatus:APPS.Halux.PPS.Verpakking.enu.KartonMachineStatus</FormalSpec>
+<Implementation><![CDATA[	do ..VerwerkMethodCall("UpdateWerklijstItemStatusViaID",WerklijstItemID,IsSnijOpdrachtUitgevoerd,TeWijzigenSnijStatus)
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: vhUnitTest/APPS/Halux/PPS/Verpakking/impl/KartonSnijder/WerklijstItemStatusUpdater/UpdateWerklijstItemStatus/Test.cls.xml
===================================================================
diff -u
--- vhUnitTest/APPS/Halux/PPS/Verpakking/impl/KartonSnijder/WerklijstItemStatusUpdater/UpdateWerklijstItemStatus/Test.cls.xml	(revision 0)
+++ vhUnitTest/APPS/Halux/PPS/Verpakking/impl/KartonSnijder/WerklijstItemStatusUpdater/UpdateWerklijstItemStatus/Test.cls.xml	(revision 30540)
@@ -0,0 +1,125 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.APPS.Halux.PPS.Verpakking.impl.KartonSnijder.WerklijstItemStatusUpdater.UpdateWerklijstItemStatus.Test">
+<Super>vhUnitTest.TestCase</Super>
+
+<Property name="FakeWerklijstItemBewaarder">
+<Type>vhTest.Mock.APPS.Halux.PPS.Activiteit.impl.WerklijstItemBewaarder</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="OnBeforeOneTest">
+<FormalSpec>aTestName:%String</FormalSpec>
+<Implementation><![CDATA[
+	Do ##super(aTestName)
+	Do ##class(vhTest.Fake.TECH.DateTime.DateTimeAPI).Activeer()
+]]></Implementation>
+</Method>
+
+<Method name="TestUpdateAlsSnijOpdrachtSuccesvol">
+<Implementation><![CDATA[
+	#dim UitvoeringInfo As APPS.Halux.PPS.Activiteit.impl.common.dto.KartonSnijdenUitvoeringInfo = ..GeefKartonSnijdenUitvoeringInfo()
+	#dim WerklijstItem As APPS.Halux.PPS.Activiteit.dto.ActiviteitWerklijstItem = ..MaakWerklijstItem(UitvoeringInfo)
+	#dim SnijStatus As APPS.Halux.PPS.Verpakking.enu.KartonMachineStatus = ##class(APPS.Halux.PPS.Verpakking.enu.KartonMachineStatus).Klaar()
+
+	Do ..AssertUpdate(WerklijstItem,$$$True,SnijStatus)
+	Do $$$AssertEquals(WerklijstItem.UitvoeringInfo.KartonSnijdenData.SnijStatus,SnijStatus)
+]]></Implementation>
+</Method>
+
+<Method name="TestUpdateAlsSnijOpdrachtFout">
+<Implementation><![CDATA[
+	#dim UitvoeringInfo As APPS.Halux.PPS.Activiteit.impl.common.dto.KartonSnijdenUitvoeringInfo = ..GeefKartonSnijdenUitvoeringInfo()
+	#dim WerklijstItem As APPS.Halux.PPS.Activiteit.dto.ActiviteitWerklijstItem = ..MaakWerklijstItem(UitvoeringInfo)
+
+	#dim SnijStatus As APPS.Halux.PPS.Verpakking.enu.KartonMachineStatus = ##class(APPS.Halux.PPS.Verpakking.enu.KartonMachineStatus).Fout()
+
+	Do ..AssertUpdate(WerklijstItem,$$$False,SnijStatus)
+	Do $$$AssertEquals(WerklijstItem.UitvoeringInfo.KartonSnijdenData.SnijStatus,SnijStatus)
+]]></Implementation>
+</Method>
+
+<Method name="TestUpdateSnijStatusNietGewijzigd">
+<Implementation><![CDATA[
+	#dim UitvoeringInfo As APPS.Halux.PPS.Activiteit.impl.common.dto.KartonSnijdenUitvoeringInfo = ..GeefKartonSnijdenUitvoeringInfo()
+	#dim WerklijstItem As APPS.Halux.PPS.Activiteit.dto.ActiviteitWerklijstItem = ..MaakWerklijstItem(UitvoeringInfo)
+
+	#dim InitieleSnijStatus As APPS.Halux.PPS.Verpakking.enu.KartonMachineStatus = ##class(APPS.Halux.PPS.Verpakking.enu.KartonMachineStatus).Wachtend()
+	Set UitvoeringInfo.KartonSnijdenData.SnijStatus = InitieleSnijStatus
+	#dim LegeSnijStatus As APPS.Halux.PPS.Verpakking.enu.KartonMachineStatus = ""
+
+	Do ..AssertUpdate(WerklijstItem,$$$False,LegeSnijStatus)
+	Do $$$AssertEquals(WerklijstItem.UitvoeringInfo.KartonSnijdenData.SnijStatus,InitieleSnijStatus)
+]]></Implementation>
+</Method>
+
+<Method name="TestMetKartonVoorLadeUitvoeringInfo">
+<Description>
+Test met UitvoeringInfo van de vorige versie, nl. KartonVoorLadeUitvoeringInfo
+Deze zal uitgefaseerd worden (info door WimV op 10/09/2015). </Description>
+<Implementation><![CDATA[
+	Set UitvoeringInfo = ##class(APPS.Halux.PPS.Activiteit.impl.common.dto.KartonVoorLadeUitvoeringInfo).%New()
+	#dim WerklijstItem As APPS.Halux.PPS.Activiteit.dto.ActiviteitWerklijstItem = ..MaakWerklijstItem(UitvoeringInfo)
+	#dim SnijStatus As APPS.Halux.PPS.Verpakking.enu.KartonMachineStatus = ##class(APPS.Halux.PPS.Verpakking.enu.KartonMachineStatus).Klaar()
+
+	Do ..AssertUpdate(WerklijstItem,$$$True,SnijStatus)
+	Do $$$AssertEquals(WerklijstItem.UitvoeringInfo.SnijStatus,SnijStatus)
+]]></Implementation>
+</Method>
+
+<Method name="AssertUpdate">
+<FormalSpec>WerklijstItem:APPS.Halux.PPS.Activiteit.dto.ActiviteitWerklijstItem,IsSnijOpdrachtUitgevoerd:%Boolean,TeWijzigenSnijStatus:APPS.Halux.PPS.Verpakking.enu.KartonMachineStatus</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	#dim WerklijstItemStatusUpdater As APPS.Halux.PPS.Verpakking.impl.KartonSnijder.WerklijstItemStatusUpdater = ..GeefWerklijstItemStatusUpdater(WerklijstItem)
+	Do WerklijstItemStatusUpdater.UpdateWerklijstItemStatus(WerklijstItem, IsSnijOpdrachtUitgevoerd,TeWijzigenSnijStatus)
+	
+	If IsSnijOpdrachtUitgevoerd {
+		Do $$$AssertEquals(WerklijstItem.Status,##class(APPS.Halux.PPS.enu.WerklijstItemStatus).Uitgevoerd())
+		Do $$$AssertEquals(WerklijstItem.UitvoeringInfo.Status,##class(APPS.Halux.PPS.enu.UitvoeringStatus).Succes())
+	}	
+	Else {
+		Do $$$AssertEquals(WerklijstItem.Status,##class(APPS.Halux.PPS.enu.WerklijstItemStatus).Wachtend())
+		Do $$$AssertEquals(WerklijstItem.UitvoeringInfo.Status,##class(APPS.Halux.PPS.enu.UitvoeringStatus).Wachtend())
+	}
+	Do $$$AssertEquals(WerklijstItem.TijdstipLaatsteWijziging,"2011-06-30 09:15:00")
+	Do ..FakeWerklijstItemBewaarder.Verifieer()
+]]></Implementation>
+</Method>
+
+<Method name="MaakWerklijstItem">
+<FormalSpec>UitvoeringInfo:APPS.Halux.PPS.dto.SequentieGebaseerdeUitvoeringInfo</FormalSpec>
+<Private>1</Private>
+<ReturnType>APPS.Halux.PPS.Verpakking.impl.KartonSnijder.WerklijstItemStatusUpdater</ReturnType>
+<Implementation><![CDATA[
+	Set WerklijstItem = ##class(APPS.Halux.PPS.Activiteit.dto.ActiviteitWerklijstItem).%New()
+	Set WerklijstItem.UitvoeringInfo = UitvoeringInfo
+	Quit WerklijstItem
+]]></Implementation>
+</Method>
+
+<Method name="GeefWerklijstItemStatusUpdater">
+<FormalSpec>WerklijstItem:APPS.Halux.PPS.Activiteit.dto.ActiviteitWerklijstItem</FormalSpec>
+<Private>1</Private>
+<ReturnType>APPS.Halux.PPS.Activiteit.dto.ActiviteitWerklijstItem</ReturnType>
+<Implementation><![CDATA[
+	Set ..FakeWerklijstItemBewaarder = ##class(vhTest.Mock.APPS.Halux.PPS.Activiteit.impl.WerklijstItemBewaarder).%New()
+	Do ..FakeWerklijstItemBewaarder.VerwachtMethodCall("Bewaar",WerklijstItem).DanDoeNiks()
+	
+	Quit ##class(APPS.Halux.PPS.Verpakking.impl.KartonSnijder.WerklijstItemStatusUpdater).%New(..FakeWerklijstItemBewaarder)
+]]></Implementation>
+</Method>
+
+<Method name="GeefKartonSnijdenUitvoeringInfo">
+<Private>1</Private>
+<ReturnType>APPS.Halux.PPS.Activiteit.impl.common.dto.KartonSnijdenData</ReturnType>
+<Implementation><![CDATA[
+	Set UitvoeringInfo = ##class(APPS.Halux.PPS.Activiteit.impl.common.dto.KartonSnijdenUitvoeringInfo).%New()
+	Set UitvoeringInfo.KartonSnijdenData = ##class(APPS.Halux.PPS.Activiteit.impl.common.dto.KartonSnijdenData).%New()
+	Quit UitvoeringInfo
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: APPS/Halux/PPS/Verpakking/impl/KartonSnijder/WerklijstItemStatusUpdater.cls.xml
===================================================================
diff -u
--- APPS/Halux/PPS/Verpakking/impl/KartonSnijder/WerklijstItemStatusUpdater.cls.xml	(revision 0)
+++ APPS/Halux/PPS/Verpakking/impl/KartonSnijder/WerklijstItemStatusUpdater.cls.xml	(revision 30540)
@@ -0,0 +1,65 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="APPS.Halux.PPS.Verpakking.impl.KartonSnijder.WerklijstItemStatusUpdater">
+<Super>TECH.Mockable</Super>
+
+<Property name="WerklijstItemBewaarder">
+<Type>APPS.Halux.PPS.Activiteit.impl.WerklijstItemBewaarder</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="WerklijstItemRepository">
+<Type>APPS.Halux.PPS.Activiteit.impl.ActiviteitWerklijstItemRepository</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="%OnNew">
+<FormalSpec>WerklijstItemBewaarder:APPS.Halux.PPS.Activiteit.impl.WerklijstItemBewaarder</FormalSpec>
+<Private>1</Private>
+<ProcedureBlock>1</ProcedureBlock>
+<ReturnType>%Status</ReturnType>
+<ServerOnly>1</ServerOnly>
+<Implementation><![CDATA[
+	Set ..WerklijstItemBewaarder = $$$Implementation(WerklijstItemBewaarder, ##class(APPS.Halux.PPS.Activiteit.impl.WerklijstItemBewaarder).%New())
+	Set ..WerklijstItemRepository = ##class(APPS.Halux.PPS.Activiteit.impl.ActiviteitWerklijstItemRepository).%New()
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
+<Method name="UpdateWerklijstItemStatus">
+<FormalSpec>WerklijstItem:APPS.Halux.PPS.Activiteit.dto.ProductieSequentieWerklijstItem,IsSnijOpdrachtUitgevoerd:%Boolean,TeWijzigenSnijStatus:APPS.Halux.PPS.Verpakking.enu.KartonMachineStatus</FormalSpec>
+<Implementation><![CDATA[
+	If $L(TeWijzigenSnijStatus) {
+		If WerklijstItem.UitvoeringInfo.%Extends(##class(APPS.Halux.PPS.Activiteit.impl.common.dto.KartonVoorLadeUitvoeringInfo).%ClassName($$$True)) {
+			Set WerklijstItem.UitvoeringInfo.SnijStatus = TeWijzigenSnijStatus
+		}
+		Else {
+			Set WerklijstItem.UitvoeringInfo.KartonSnijdenData.SnijStatus = TeWijzigenSnijStatus
+		}
+	}
+	If IsSnijOpdrachtUitgevoerd {
+		Set WerklijstItem.Status = ##class(APPS.Halux.PPS.enu.WerklijstItemStatus).Uitgevoerd()
+		Set WerklijstItem.UitvoeringInfo.Status = ##class(APPS.Halux.PPS.enu.UitvoeringStatus).Succes()
+	}
+	Set WerklijstItem.TijdstipLaatsteWijziging = ##class(TECH.Context).Instance().GeefDateTimeAPI().CurrentTimeStamp()
+	Do ..WerklijstItemBewaarder.Bewaar(WerklijstItem)
+	d WLIP^vhDBG(97,"hiere ook")
+]]></Implementation>
+</Method>
+
+<Method name="UpdateWerklijstItemStatusViaID">
+<Description>
+Deze method dient als tussenstap om de testen efkes te kunnen ontwikkelen :-P </Description>
+<FormalSpec>WerklijstItemID:%String,IsSnijOpdrachtUitgevoerd:%Boolean,TeWijzigenSnijStatus:APPS.Halux.PPS.Verpakking.enu.KartonMachineStatus</FormalSpec>
+<Implementation><![CDATA[
+	d WLIP^vhDBG(97,"hiere ID")
+	If ..WerklijstItemRepository.BestaatWerklijstItem(WerklijstItemID) {
+		#dim WerklijstItem As APPS.Halux.PPS.Activiteit.dto.ProductieSequentieWerklijstItem = ..WerklijstItemRepository.GeefActiviteitWerklijstItem(WerklijstItemID)
+		Do ..UpdateWerklijstItemStatus(WerklijstItem,IsSnijOpdrachtUitgevoerd,TeWijzigenSnijStatus)
+	}
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: vhTest/Fake/APPS/Halux/PPS/Verpakking/impl/KartonSnijder/WerklijstItemStatusUpdater.cls.xml
===================================================================
diff -u
--- vhTest/Fake/APPS/Halux/PPS/Verpakking/impl/KartonSnijder/WerklijstItemStatusUpdater.cls.xml	(revision 0)
+++ vhTest/Fake/APPS/Halux/PPS/Verpakking/impl/KartonSnijder/WerklijstItemStatusUpdater.cls.xml	(revision 30540)
@@ -0,0 +1,24 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhTest.Fake.APPS.Halux.PPS.Verpakking.impl.KartonSnijder.WerklijstItemStatusUpdater">
+<Description>
+Deze klasse werd automatisch gegenereerd en onderhouden, nieuwe methodes worden automatisch bijgevoegd, bestaande blijven zoals ze zijn.
+Een hercompilatie van de basis interface - met een correct werkende studiohook ( v2.20 ++ ) - zorgt ervoor dat deze klasse aangepast wordt</Description>
+<ProcedureBlock>1</ProcedureBlock>
+<Super>APPS.Halux.PPS.Verpakking.impl.KartonSnijder.WerklijstItemStatusUpdater</Super>
+
+<Method name="UpdateWerklijstItemStatus">
+<FormalSpec>WerklijstItem:APPS.Halux.PPS.Activiteit.dto.ProductieSequentieWerklijstItem,IsSnijOpdrachtUitgevoerd:%Boolean,TeWijzigenSnijStatus:APPS.Halux.PPS.Verpakking.enu.KartonMachineStatus</FormalSpec>
+<Implementation><![CDATA[
+]]></Implementation>
+</Method>
+
+<Method name="UpdateWerklijstItemStatusViaID">
+<FormalSpec>WerklijstItemID:%String,IsSnijOpdrachtUitgevoerd:%Boolean,TeWijzigenSnijStatus:APPS.Halux.PPS.Verpakking.enu.KartonMachineStatus</FormalSpec>
+<Implementation><![CDATA[
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>