Index: APPS/OrderUitvoering/impl/OrderUitvoeringServiceImpl.cls.xml
===================================================================
diff -u -r2281 -r2487
--- APPS/OrderUitvoering/impl/OrderUitvoeringServiceImpl.cls.xml	(.../OrderUitvoeringServiceImpl.cls.xml)	(revision 2281)
+++ APPS/OrderUitvoering/impl/OrderUitvoeringServiceImpl.cls.xml	(.../OrderUitvoeringServiceImpl.cls.xml)	(revision 2487)
@@ -21,8 +21,6 @@
 	Set ReservatieVoorVerwachteUitvoer.TransactieLijnReferentie = ProductOrderLijn.GeefLijnNr()
 	Set ReservatieVoorVerwachteUitvoer.Bedrijf = ##class(DOM.common.enu.Bedrijf).VanHoecke()
 	
-	/// [JBL REVIEW CSC] in DOM.ProdRes.dto.Reservatie is PrioriteitGroep een Required field
-	/// maar wordt hieronder niet ingevuld.
 	Set Reservatie = ##class(DOM.ProdRes.dto.Reservatie).%New()
 	Set ReservatieVoorVerwachteUitvoer.Reservatie = Reservatie
 	Set Reservatie.ProductID = Product.GeefPRNr()
@@ -44,8 +42,7 @@
 		{
 			Set HFBouwsteen = HFBouwstenenIterator.Next()
 			Set HFProductID = HFBouwsteen.KindProductGetObjectId()
-			
-			/// [JBL REVIEW CSC] in DOM.ProdRes.dto.Reservatie is PrioriteitGroep een Required field
+
 			Set KindReservatie = ##class(DOM.ProdRes.dto.Reservatie).%New()
 			Set KindReservatie.ProductID = HFProductID
 			Set KindReservatie.DueOut = ##class(TECH.DateTime).DateToTimeStamp(ProductOrderLijn.GeefLeverdag())
@@ -60,7 +57,6 @@
 			Set KindBouwsteen = KindBouwstenenIterator.Next()
 			Set KindProductID = KindBouwsteen.KindProductGetObjectId()
 			
-			/// [JBL REVIEW CSC] in DOM.ProdRes.dto.Reservatie is PrioriteitGroep een Required field
 			Set KindReservatie = ##class(DOM.ProdRes.dto.Reservatie).%New()
 			Set KindReservatie.ProductID = KindProductID
 			Set KindReservatie.DueOut = ##class(TECH.DateTime).DateToTimeStamp(ProductOrderLijn.GeefLeverdag())
@@ -76,5 +72,129 @@
 	Quit ReservatieVoorVerwachteUitvoer
 ]]></Implementation>
 </Method>
+
+<Method name="OrderLijnProductGewijzigd">
+<FormalSpec>Order:DOM.OV.Order,ProductOrderLijn:DOM.OV.ProductOrderlijn</FormalSpec>
+<Implementation><![CDATA[
+	Set VerwachteUitvoerAPI = ##class(DOM.DomeinContext).Instance().GeefVerwachteUitvoerAPI()
+	Set VerwachteUitvoer = ..GeefVerwachteUitvoer(Order, ProductOrderLijn)
+	// Verwijder oude reservatie
+	Do VerwachteUitvoerAPI.AnnuleerVerwachteUitvoer(VerwachteUitvoer.%Id())
+	// Maak nieuwe reservatie
+	Do VerwachteUitvoerAPI.RegistreerReservaties(..MaakReservatieStructuur(Order, ProductOrderLijn))
+]]></Implementation>
+</Method>
+
+<Method name="OrderLijnLeverdatumGewijzigd">
+<FormalSpec>Order:DOM.OV.Order,ProductOrderLijn:DOM.OV.ProductOrderlijn</FormalSpec>
+<Implementation><![CDATA[
+	Set VerwachteUitvoerAPI = ##class(DOM.DomeinContext).Instance().GeefVerwachteUitvoerAPI()
+	Set VerwachteUitvoer = ..GeefVerwachteUitvoer(Order, ProductOrderLijn)
+	Set ReservatieIterator = VerwachteUitvoer.GeefReservatieIterator()
+	While (ReservatieIterator.HasNext())
+	{
+		Set Reservatie = ReservatieIterator.Next()
+		Do Reservatie.ZetDueOut(##class(TECH.DateTime).DateToTimeStamp(ProductOrderLijn.GeefLeverdag()))
+	}
+	Do VerwachteUitvoer.Save()
+]]></Implementation>
+</Method>
+
+<Method name="OrderLijnAantalGewijzigd">
+<FormalSpec>Order:DOM.OV.Order,ProductOrderLijn:DOM.OV.ProductOrderlijn</FormalSpec>
+<Implementation><![CDATA[
+	Set VerwachteUitvoerAPI = ##class(DOM.DomeinContext).Instance().GeefVerwachteUitvoerAPI()
+	Set VerwachteUitvoer = ..GeefVerwachteUitvoer(Order, ProductOrderLijn)
+	Set OrigineelAantal = VerwachteUitvoer.GeefReservatie().GeefAantal()
+	Set NieuwAantal = ProductOrderLijn.GeefAantal()
+	Set ReservatieIterator = VerwachteUitvoer.GeefReservatieIterator()
+	While (ReservatieIterator.HasNext())
+	{
+		Set Reservatie = ReservatieIterator.Next()
+		Do Reservatie.ZetAantal(Reservatie.GeefAantal() / OrigineelAantal * NieuwAantal)
+	}
+	Do VerwachteUitvoer.Save()
+]]></Implementation>
+</Method>
+
+<Method name="GeefVerwachteUitvoer">
+<FormalSpec>Order:DOM.OV.Order,ProductOrderLijn:DOM.OV.ProductOrderlijn</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	Set VerwachteUitvoerAPI = ##class(DOM.DomeinContext).Instance().GeefVerwachteUitvoerAPI()
+	Set VerwachteUitvoer = VerwachteUitvoerAPI.ZoekUitvoerViaTransactieLijnRef(Order.GeefOrderNr(),ProductOrderLijn.GeefLijnNr(),##class(DOM.common.enu.Bedrijf).VanHoecke())
+	If ('$IsObject(VerwachteUitvoer)) Do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.ObjectExpectedException).%New("Geen verwachtte uitvoer gevonden voor (OrderID, OrderLijnID): "_OrderID_", "_OrderLijnID))
+	Quit VerwachteUitvoer
+]]></Implementation>
+</Method>
+
+<Method name="BijProductOrderLijnGemaakt">
+<ClassMethod>1</ClassMethod>
+<FormalSpec>ProductOrderLijnGemaaktEvent:DOM.VKP.event.ProductOrderLijnGemaakt</FormalSpec>
+<Implementation><![CDATA[
+	Set VerwachteUitvoerAPI = ##class(DOM.DomeinContext).Instance().GeefVerwachteUitvoerAPI()
+	Set OrderAPI = ##class(DOM.DomeinContext).Instance().GeefOrderAPI()
+	
+	Set ProductOrderLijnEventData = ProductOrderLijnGemaaktEvent.Data
+	Set OrderID = ProductOrderLijnEventData.GeefOrderID()
+	Set OrderLijnID = ProductOrderLijnEventData.GeefOrderLijnID()
+	
+	Set Order = OrderAPI.GeefOrder(OrderID)
+	Set OrderLijn = Order.GeefOrderLijn(OrderLijnID)
+	
+	Set OrderUitvoeringService = ..%New()
+	Do VerwachteUitvoerAPI.RegistreerReservaties(OrderUitvoeringService.MaakReservatieStructuur(Order, OrderLijn))
+]]></Implementation>
+</Method>
+
+<Method name="BijProductOrderLijnGewijzigd">
+<ClassMethod>1</ClassMethod>
+<FormalSpec>ProductOrderLijnGewijzigdEvent:DOM.VKP.event.ProductOrderLijnGewijzigd</FormalSpec>
+<Implementation><![CDATA[
+	Set OrderAPI = ##class(DOM.DomeinContext).Instance().GeefOrderAPI()
+	Set OrderUitvoeringService = ..%New()
+	
+	Set ProductOrderLijnWijzigEventData = ProductOrderLijnGewijzigdEvent.Data
+	Set OrderID = ProductOrderLijnWijzigEventData.GeefOrderID()
+	Set OrderLijnID = ProductOrderLijnWijzigEventData.GeefOrderLijnID()
+	
+	Set Order = OrderAPI.GeefOrder(OrderID)
+	Set OrderLijn = Order.GeefOrderLijn(OrderLijnID)
+	
+	Set WijzigingTypesIterator = ProductOrderLijnWijzigEventData.GeefWijzigingTypesIterator()
+	While (WijzigingTypesIterator.HasNext())
+	{
+		Set WijzigingType = WijzigingTypesIterator.Next()
+		If (WijzigingType = ##class(DOM.VKP.enu.ProductOrderLijnWijzigingType).Product())
+		{
+			Do OrderUitvoeringService.OrderLijnProductGewijzigd(Order,OrderLijn)
+		}
+		ElseIf (WijzigingType = ##class(DOM.VKP.enu.ProductOrderLijnWijzigingType).Leverdatum())
+		{
+			Do OrderUitvoeringService.OrderLijnLeverdatumGewijzigd(Order,OrderLijn)
+		}
+		ElseIf (WijzigingType = ##class(DOM.VKP.enu.ProductOrderLijnWijzigingType).Aantal())
+		{
+			Do OrderUitvoeringService.OrderLijnAantalGewijzigd(Order,OrderLijn)
+		}
+	}
+]]></Implementation>
+</Method>
+
+<Method name="BijProductOrderLijnAnnulatie">
+<ClassMethod>1</ClassMethod>
+<FormalSpec>ProductOrderLijnAnnulatieEvent:DOM.VKP.event.ProductOrderLijnAnnulatie</FormalSpec>
+<Implementation><![CDATA[
+	Set VerwachteUitvoerAPI = ##class(DOM.DomeinContext).Instance().GeefVerwachteUitvoerAPI()
+	Set ProductOrderLijnEventData = ProductOrderLijnAnnulatieEvent.Data
+	Set OrderID = ProductOrderLijnEventData.GeefOrderID()
+	Set OrderLijnID = ProductOrderLijnEventData.GeefOrderLijnID()
+	
+	Set VerwachteUitvoer = VerwachteUitvoerAPI.ZoekUitvoerViaTransactieLijnRef(OrderID,OrderLijnID,##class(DOM.common.enu.Bedrijf).VanHoecke())
+	If ('$IsObject(VerwachteUitvoer)) Do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.ObjectExpectedException).%New("Geen verwachtte uitvoer gevonden voor (OrderID, OrderLijnID): "_OrderID_", "_OrderLijnID))
+	
+	Do VerwachteUitvoerAPI.AnnuleerVerwachteUitvoer(VerwachteUitvoer.%Id())
+]]></Implementation>
+</Method>
 </Class>
 </Export>
Index: vhConsistency/Checks/InvoerUitvoerLinken.cls.xml
===================================================================
diff -u -r2279 -r2487
--- vhConsistency/Checks/InvoerUitvoerLinken.cls.xml	(.../InvoerUitvoerLinken.cls.xml)	(revision 2279)
+++ vhConsistency/Checks/InvoerUitvoerLinken.cls.xml	(.../InvoerUitvoerLinken.cls.xml)	(revision 2487)
@@ -39,7 +39,6 @@
 					Set VerwachteInvoerInfo.ProductID = ProductLijn.GeefProduct().GeefPRNr()
 					Set VerwachteInvoerInfo.TransactieReferentie = Toelevering.GeefToeNr()
 					Set VerwachteInvoerInfo.TransactieLijnReferentie = ProductLijn.GeefLijnNr()
-					
 					Do VerwachteInvoerAPI.RegistreerVerwachteInvoer(VerwachteInvoerInfo)
 					Do ..VoegMeldingToe("Verwachte invoer aangemaakt (Toelevering, LijnNr): "_Toelevering.GeefToeNr()_", "_ProductLijn.GeefLijnNr())
 				}
@@ -126,19 +125,17 @@
 					If (VerwachteUitvoer.GeefReservatie().GeefAantal() '= ProductLijn.GeefAantal())
 					{
 						Do ..VoegMeldingToe("Verwachte uitvoer heeft verschillend aantal (Order, LijnNr): "_Order.GeefOrderNr()_", "_ProductLijn.GeefLijnNr())
-						Do VerwachteUitvoer.ZetAantal(ProductLijn.GeefAantal())
-						Do VerwachteUitvoer.Save()
+						Do OrderUitvoeringService.OrderLijnAantalGewijzigd(Order, ProductLijn)
 					}
 					If (VerwachteUitvoer.GeefReservatie().GeefDueOut() '= ##class(TECH.DateTime).DateToTimeStamp(ProductLijn.GeefLeverdag()))
 					{
-						Do ..VoegMeldingToe("Verwachte uitvoer heeft verschillende due in (Order, LijnNr): "_Order.GeefOrderNr()_", "_ProductLijn.GeefLijnNr())
-						Set ResultSet = ##class(%ResultSet).%New()
-						Do ResultSet.Prepare("UPDATE FROM DOM_ProdRes_impl.ReservatieImpl WHERE VerwachteUitvoer = ? SET DueOut = ?")
-						Do ResultSet.Execute(VerwachteUitvoer.%Id(),##class(TECH.DateTime).DateToTimeStamp(ProductLijn.GeefLeverdag()))
+						Do ..VoegMeldingToe("Verwachte uitvoer heeft verschillende due out (Order, LijnNr): "_Order.GeefOrderNr()_", "_ProductLijn.GeefLijnNr())
+						Do OrderUitvoeringService.OrderLijnLeverdatumGewijzigd(Order, ProductLijn)
 					}
 					If (VerwachteUitvoer.GeefReservatie().GeefProductID() '= ProductLijn.GeefProduct().GeefPRNr())
 					{
 						Do ..VoegMeldingToe("Verwachte uitvoer heeft ander product dan in orderlijn (Order, LijnNr): "_Order.GeefOrderNr()_", "_ProductLijn.GeefLijnNr()_" "_VerwachteUitvoer.GeefProductID()_" <-> "_ProductLijn.GeefProduct().GeefPRNr())
+						Do OrderUitvoeringService.OrderLijnProductGewijzigd(Order, ProductLijn)
 					}
 				}
 			}
Index: DOM/VKP/impl/ProductOrderLijnWijzigingTypes.cls.xml
===================================================================
diff -u
--- DOM/VKP/impl/ProductOrderLijnWijzigingTypes.cls.xml	(revision 0)
+++ DOM/VKP/impl/ProductOrderLijnWijzigingTypes.cls.xml	(revision 2487)
@@ -0,0 +1,17 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="9">
+<Class name="DOM.VKP.impl.ProductOrderLijnWijzigingTypes">
+<ClassType>serial</ClassType>
+<ProcedureBlock>1</ProcedureBlock>
+<Super>%ListOfDataTypes</Super>
+<ClassDefinitionError>0</ClassDefinitionError>
+
+<Parameter name="ELEMENTTYPE">
+<Default>DOM.VKP.enu.ProductOrderLijnWijzigingType</Default>
+</Parameter>
+
+<Storage name="Custom">
+<Type>%Library.CompleteCustomStorage</Type>
+</Storage>
+</Class>
+</Export>
Index: DOM/ProdRes/impl/ReservatieImpl.cls.xml
===================================================================
diff -u -r2448 -r2487
--- DOM/ProdRes/impl/ReservatieImpl.cls.xml	(.../ReservatieImpl.cls.xml)	(revision 2448)
+++ DOM/ProdRes/impl/ReservatieImpl.cls.xml	(.../ReservatieImpl.cls.xml)	(revision 2487)
@@ -97,7 +97,7 @@
 	Set ..ProductID = ProductID
 	Set ..Bedrijf = Bedrijf
 	Do ..ZetAantal(Aantal)
-	Set ..DueOut = DueOut
+	Do ..ZetDueOut(DueOut)
 	Set ..PrioriteitGroep = PrioriteitGroep
 	Do ..ZetReservatieFase(##class(DOM.ProdRes.enu.ReservatieFase).InOrder())
 	Set ..AangemaaktOp = ##class(TECH.DateTime).CurrentTimeStamp()
@@ -166,6 +166,12 @@
 ]]></Implementation>
 </Method>
 
+<Method name="ZetDueOut">
+<FormalSpec>DueOut:%TimeStamp</FormalSpec>
+<Implementation><![CDATA[	Set ..DueOut = DueOut
+]]></Implementation>
+</Method>
+
 <Method name="GeefReservatieFase">
 <ReturnType>DOM.ProdRes.enu.ReservatieFase</ReturnType>
 <Implementation><![CDATA[	Quit ..ReservatieFase
Index: DOM/VKP/event/ProductOrderLijnEventData.cls.xml
===================================================================
diff -u
--- DOM/VKP/event/ProductOrderLijnEventData.cls.xml	(revision 0)
+++ DOM/VKP/event/ProductOrderLijnEventData.cls.xml	(revision 2487)
@@ -0,0 +1,88 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="9">
+<Class name="DOM.VKP.event.ProductOrderLijnEventData">
+<ClassType>serial</ClassType>
+<ProcedureBlock>1</ProcedureBlock>
+<Super>TECH.PubSub.EventData</Super>
+<ClassDefinitionError>0</ClassDefinitionError>
+
+<Property name="OrderID">
+<Type>%String</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="OrderLijnID">
+<Type>%String</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="KlantID">
+<Type>%String</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="ProductID">
+<Type>%String</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="%OnNew">
+<FormalSpec>OrderID:%String,OrderLijnID:%String,KlantID:%String,ProductID:%String</FormalSpec>
+<Private>1</Private>
+<ProcedureBlock>1</ProcedureBlock>
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[
+	Set ..OrderID = OrderID
+	Set ..OrderLijnID = OrderLijnID
+	Set ..KlantID = KlantID
+	Set ..ProductID = ProductID
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
+<Method name="GeefOrderID">
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[	Quit ..OrderID
+]]></Implementation>
+</Method>
+
+<Method name="GeefOrderLijnID">
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[	Quit ..OrderLijnID
+]]></Implementation>
+</Method>
+
+<Method name="GeefKlantID">
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[	Quit ..KlantID
+]]></Implementation>
+</Method>
+
+<Method name="GeefProductID">
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[	Quit ..ProductID
+]]></Implementation>
+</Method>
+
+<Storage name="Default">
+<Type>%Library.CacheSerialState</Type>
+<State>ProductOrderLijnEventDataState</State>
+<Data name="ProductOrderLijnEventDataState">
+<Structure>listnode</Structure>
+<Subscript>"DOM.VKP.event.ProductOrderLijnEventData"</Subscript>
+<Value name="1">
+<Value>KlantID</Value>
+</Value>
+<Value name="2">
+<Value>OrderID</Value>
+</Value>
+<Value name="3">
+<Value>OrderLijnID</Value>
+</Value>
+<Value name="4">
+<Value>ProductID</Value>
+</Value>
+</Data>
+</Storage>
+</Class>
+</Export>
Index: DOM/VKP/event/ProductOrderLijnGewijzigd.cls.xml
===================================================================
diff -u
--- DOM/VKP/event/ProductOrderLijnGewijzigd.cls.xml	(revision 0)
+++ DOM/VKP/event/ProductOrderLijnGewijzigd.cls.xml	(revision 2487)
@@ -0,0 +1,24 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="9">
+<Class name="DOM.VKP.event.ProductOrderLijnGewijzigd">
+<ClassType>serial</ClassType>
+<ProcedureBlock>1</ProcedureBlock>
+<Super>TECH.PubSub.Event</Super>
+<ClassDefinitionError>0</ClassDefinitionError>
+
+<Method name="%OnNew">
+<FormalSpec>Data:DOM.VKP.event.ProductOrderLijnWijzigEventData</FormalSpec>
+<Private>1</Private>
+<ProcedureBlock>1</ProcedureBlock>
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[
+ 	Set ..Type = "ProductOrderLijnGewijzigd"
+	Quit ##super(Data)
+]]></Implementation>
+</Method>
+
+<Storage name="Default">
+<Type>%Library.CacheSerialState</Type>
+</Storage>
+</Class>
+</Export>
Index: DOM/VKP/enu/ProductOrderLijnWijzigingType.cls.xml
===================================================================
diff -u
--- DOM/VKP/enu/ProductOrderLijnWijzigingType.cls.xml	(revision 0)
+++ DOM/VKP/enu/ProductOrderLijnWijzigingType.cls.xml	(revision 2487)
@@ -0,0 +1,41 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="9">
+<Class name="DOM.VKP.enu.ProductOrderLijnWijzigingType">
+<ClassType>datatype</ClassType>
+<ProcedureBlock>1</ProcedureBlock>
+<Super>%String</Super>
+<ClassDefinitionError>0</ClassDefinitionError>
+
+<Parameter name="VALUELIST">
+<Default>;Aantal;Leverdatum;Prijs;Product</Default>
+</Parameter>
+
+<Method name="Aantal">
+<ClassMethod>1</ClassMethod>
+<ReturnType>DOM.VKP.enu.ProductOrderLijnWijzigingType</ReturnType>
+<Implementation><![CDATA[	Quit "Aantal"
+]]></Implementation>
+</Method>
+
+<Method name="Leverdatum">
+<ClassMethod>1</ClassMethod>
+<ReturnType>DOM.VKP.enu.ProductOrderLijnWijzigingType</ReturnType>
+<Implementation><![CDATA[	Quit "Leverdatum"
+]]></Implementation>
+</Method>
+
+<Method name="Prijs">
+<ClassMethod>1</ClassMethod>
+<ReturnType>DOM.VKP.enu.ProductOrderLijnWijzigingType</ReturnType>
+<Implementation><![CDATA[	Quit "Prijs"
+]]></Implementation>
+</Method>
+
+<Method name="Product">
+<ClassMethod>1</ClassMethod>
+<ReturnType>DOM.VKP.enu.ProductOrderLijnWijzigingType</ReturnType>
+<Implementation><![CDATA[	Quit "Product"
+]]></Implementation>
+</Method>
+</Class>
+</Export>
Index: vhDeploy/CSC/Deploy20111026x0937.cls.xml
===================================================================
diff -u
--- vhDeploy/CSC/Deploy20111026x0937.cls.xml	(revision 0)
+++ vhDeploy/CSC/Deploy20111026x0937.cls.xml	(revision 2487)
@@ -0,0 +1,20 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="9">
+<Class name="vhDeploy.CSC.Deploy20111026x0937">
+<ProcedureBlock>1</ProcedureBlock>
+<Super>svn.Deploy</Super>
+<ClassDefinitionError>0</ClassDefinitionError>
+
+<Method name="ExecCode">
+<ClassMethod>1</ClassMethod>
+<Implementation><![CDATA[
+	Set Subscription = ##class(TECH.PubSub.EventSubscription).%New("ProductOrderLijnGemaakt","APPS.OrderUitvoering.impl.OrderUitvoeringServiceImpl","BijProductOrderLijnGemaakt")
+	Do Subscription.%Save()
+	Set Subscription = ##class(TECH.PubSub.EventSubscription).%New("ProductOrderLijnGewijzigd","APPS.OrderUitvoering.impl.OrderUitvoeringServiceImpl","BijProductOrderLijnGewijzigd")
+	Do Subscription.%Save()
+	Set Subscription = ##class(TECH.PubSub.EventSubscription).%New("ProductOrderLijnAnnulatie","APPS.OrderUitvoering.impl.OrderUitvoeringServiceImpl","BijProductOrderLijnAnnulatie")
+	Do Subscription.%Save()
+]]></Implementation>
+</Method>
+</Class>
+</Export>
Index: DOM/VKP/event/ProductOrderLijnWijzigEventData.cls.xml
===================================================================
diff -u
--- DOM/VKP/event/ProductOrderLijnWijzigEventData.cls.xml	(revision 0)
+++ DOM/VKP/event/ProductOrderLijnWijzigEventData.cls.xml	(revision 2487)
@@ -0,0 +1,56 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="9">
+<Class name="DOM.VKP.event.ProductOrderLijnWijzigEventData">
+<Description>
+Naam van de klasse is met reden anders genoemd dan ProductOrderLijnGewijzigdEventData wegens name collisions.</Description>
+<ClassType>serial</ClassType>
+<ProcedureBlock>1</ProcedureBlock>
+<Super>DOM.VKP.event.ProductOrderLijnEventData</Super>
+<ClassDefinitionError>0</ClassDefinitionError>
+
+<Property name="WijzigingTypes">
+<Type>DOM.VKP.impl.ProductOrderLijnWijzigingTypes</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="%OnNew">
+<FormalSpec>OrderID:%String,OrderLijnID:%String,KlantID:%String,ProductID:%String,WijzigingTypes:DOM.VKP.impl.ProductOrderLijnWijzigingTypes</FormalSpec>
+<Private>1</Private>
+<ProcedureBlock>1</ProcedureBlock>
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[
+	Set ..WijzigingTypes = WijzigingTypes
+	Quit ##super(OrderID, OrderLijnID, KlantID, ProductID)
+]]></Implementation>
+</Method>
+
+<Method name="GeefWijzigingTypesIterator">
+<ReturnType>TECH.Iterator</ReturnType>
+<Implementation><![CDATA[	Quit ##class(TECH.ListIterator).%New(..WijzigingTypes)
+]]></Implementation>
+</Method>
+
+<Storage name="Default">
+<Type>%Library.CacheSerialState</Type>
+<Data name="ProductOrderLijnEventDataState">
+<Structure>listnode</Structure>
+<Subscript>"DOM.VKP.event.ProductOrderLijnEventData"</Subscript>
+<Value name="1">
+<Value>KlantID</Value>
+</Value>
+<Value name="2">
+<Value>OrderID</Value>
+</Value>
+<Value name="3">
+<Value>OrderLijnID</Value>
+</Value>
+<Value name="4">
+<Value>ProductID</Value>
+</Value>
+<Value name="5">
+<Value>WijzigingTypes</Value>
+</Value>
+</Data>
+</Storage>
+</Class>
+</Export>
Index: DOM/VKP/event/ProductOrderLijnAnnulatie.cls.xml
===================================================================
diff -u
--- DOM/VKP/event/ProductOrderLijnAnnulatie.cls.xml	(revision 0)
+++ DOM/VKP/event/ProductOrderLijnAnnulatie.cls.xml	(revision 2487)
@@ -0,0 +1,24 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="9">
+<Class name="DOM.VKP.event.ProductOrderLijnAnnulatie">
+<ClassType>serial</ClassType>
+<ProcedureBlock>1</ProcedureBlock>
+<Super>TECH.PubSub.Event</Super>
+<ClassDefinitionError>0</ClassDefinitionError>
+
+<Method name="%OnNew">
+<FormalSpec>Data:DOM.VKP.event.ProductOrderLijnEventData</FormalSpec>
+<Private>1</Private>
+<ProcedureBlock>1</ProcedureBlock>
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[
+ 	Set ..Type = "ProductOrderLijnAnnulatie"
+	Quit ##super(Data)
+]]></Implementation>
+</Method>
+
+<Storage name="Default">
+<Type>%Library.CacheSerialState</Type>
+</Storage>
+</Class>
+</Export>
Index: TECH/Exceptions/ObjectExpectedException.cls.xml
===================================================================
diff -u
--- TECH/Exceptions/ObjectExpectedException.cls.xml	(revision 0)
+++ TECH/Exceptions/ObjectExpectedException.cls.xml	(revision 2487)
@@ -0,0 +1,14 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="9">
+<Class name="TECH.Exceptions.ObjectExpectedException">
+<ProcedureBlock>1</ProcedureBlock>
+<Super>TECH.Exceptions.AbstractOmschrijvingException</Super>
+<ClassDefinitionError>0</ClassDefinitionError>
+
+<Method name="GeefExceptionCode">
+<ReturnType>TECH.enu.ExceptionCode</ReturnType>
+<Implementation><![CDATA[	Quit ##class(TECH.enu.ExceptionCode).ObjectExpected()
+]]></Implementation>
+</Method>
+</Class>
+</Export>
Index: vhUnitTest/APPS/OrderUitvoering/TestOrderUitvoeringService.cls.xml
===================================================================
diff -u -r2270 -r2487
--- vhUnitTest/APPS/OrderUitvoering/TestOrderUitvoeringService.cls.xml	(.../TestOrderUitvoeringService.cls.xml)	(revision 2270)
+++ vhUnitTest/APPS/OrderUitvoering/TestOrderUitvoeringService.cls.xml	(.../TestOrderUitvoeringService.cls.xml)	(revision 2487)
@@ -46,9 +46,90 @@
 ]]></Implementation>
 </Method>
 
+<Method name="TestEvents">
+<Implementation><![CDATA[
+	Set VerwachteUitvoerAPI = ##class(DOM.DomeinContext).Instance().GeefVerwachteUitvoerAPI()
+	
+	Set OrderID = 90000
+	Set OrderLijnID = 101
+	Set KlantID = 1000
+	Set ProductID = 700
+	
+	// Nieuwe productlijn aanmaken
+	
+	Set ProductOrderLijnEventData = ##class(DOM.VKP.event.ProductOrderLijnEventData).%New(OrderID, OrderLijnID, KlantID, ProductID)
+	Set ProductOrderLijnGemaaktEvent = ##class(DOM.VKP.event.ProductOrderLijnGemaakt).%New(ProductOrderLijnEventData)
+	Do ##class(APPS.OrderUitvoering.impl.OrderUitvoeringServiceImpl).BijProductOrderLijnGemaakt(ProductOrderLijnGemaaktEvent)
+	
+	Set VerwachteUitvoer = VerwachteUitvoerAPI.ZoekUitvoerViaTransactieLijnRef(OrderID,OrderLijnID,##class(DOM.common.enu.Bedrijf).VanHoecke())
+	Do $$$AssertTrue($IsObject(VerwachteUitvoer),"De verwachte uitvoer werd aangemaakt")
+	Set VerwachteUitvoer = ""
+	
+	Set $Piece(^KOD(1000,"F",90000,101),"\",3) = 1 // Aantal van 2 naar 1 zetten
+	Set $Piece(^KOD(1000,"F",90000,101),"\",25) = 62372 // Leverdag van 62371 naar 62372 verhogen
+	
+	// Aantal en leverdatum wijzigen
+	
+	Set WijzigingTypes = ##class(DOM.VKP.impl.ProductOrderLijnWijzigingTypes).%New()
+	Do WijzigingTypes.Insert(##class(DOM.VKP.enu.ProductOrderLijnWijzigingType).Aantal())
+	Do WijzigingTypes.Insert(##class(DOM.VKP.enu.ProductOrderLijnWijzigingType).Leverdatum())
+	Set ProductOrderLijnWijzigEventData = ##class(DOM.VKP.event.ProductOrderLijnWijzigEventData).%New(OrderID, OrderLijnID, KlantID, ProductID, WijzigingTypes)
+	Set ProductOrderLijnGewijzigdEvent = ##class(DOM.VKP.event.ProductOrderLijnGewijzigd).%New(ProductOrderLijnWijzigEventData)
+	Do ##class(APPS.OrderUitvoering.impl.OrderUitvoeringServiceImpl).BijProductOrderLijnGewijzigd(ProductOrderLijnGewijzigdEvent)
+	
+	Set VerwachteUitvoer = VerwachteUitvoerAPI.ZoekUitvoerViaTransactieLijnRef(OrderID,OrderLijnID,##class(DOM.common.enu.Bedrijf).VanHoecke())
+	Set Reservatie = VerwachteUitvoer.GeefReservatie()
+	Do $$$AssertEquals(Reservatie.GeefAantal(),1,"Het aantal van het moederproduct is op 1 geplaatst")
+	Do $$$AssertEquals(Reservatie.GeefDueOut(),"2011-10-08 00:00:00","De dueout van het moeder is gewijzigd naar 2011-10-08 00:00:00")
+	Set KindReservatieIterator = Reservatie.GeefKindReservatieIterator()
+	Set KindReservatie1 = KindReservatieIterator.Next()
+	Do $$$AssertEquals(KindReservatie1.GeefAantal(),1,"Het aantal van het kindreservatie1 is van 2 naar 1 gegaan")
+	Do $$$AssertEquals(KindReservatie1.GeefDueOut(),"2011-10-08 00:00:00","De dueout van de kindreservatie1 is gewijzigd naar 2011-10-08 00:00:00")
+	Set KindReservatie2 = KindReservatieIterator.Next()
+	Do $$$AssertEquals(KindReservatie2.GeefAantal(),2,"Het aantal van het kindreservatie2 is van 4 naar 2 gegaan")
+	Do $$$AssertEquals(KindReservatie2.GeefDueOut(),"2011-10-08 00:00:00","De dueout van de kindreservatie1 is gewijzigd naar 2011-10-08 00:00:00")
+	Set KindVanKindReservatie2 = KindReservatie2.GeefKindReservatieIterator().Next()
+	Do $$$AssertEquals(KindVanKindReservatie2.GeefAantal(),2,"Het aantal van het kind van kindreservatie2 is van 4 naar 2 gegaan")
+	Do $$$AssertEquals(KindVanKindReservatie2.GeefDueOut(),"2011-10-08 00:00:00","De dueout van het kind van kindreservatie2 is gewijzigd naar 2011-10-08 00:00:00")
+	Set VerwachteUitvoer = ""
+	
+	// Product wijzigen
+	
+	Set $Piece(^KOD(1000,"F",90000,101),"\",2) = 701 // Product wijzigen van 700 naar 701
+	
+	Set WijzigingTypes = ##class(DOM.VKP.impl.ProductOrderLijnWijzigingTypes).%New()
+	Do WijzigingTypes.Insert(##class(DOM.VKP.enu.ProductOrderLijnWijzigingType).Product())
+	Set ProductOrderLijnWijzigEventData = ##class(DOM.VKP.event.ProductOrderLijnWijzigEventData).%New(OrderID, OrderLijnID, KlantID, ProductID, WijzigingTypes)
+	Set ProductOrderLijnGewijzigdEvent = ##class(DOM.VKP.event.ProductOrderLijnGewijzigd).%New(ProductOrderLijnWijzigEventData)
+	Do ##class(APPS.OrderUitvoering.impl.OrderUitvoeringServiceImpl).BijProductOrderLijnGewijzigd(ProductOrderLijnGewijzigdEvent)
+	
+	Set VerwachteUitvoer = VerwachteUitvoerAPI.ZoekUitvoerViaTransactieLijnRef(OrderID,OrderLijnID,##class(DOM.common.enu.Bedrijf).VanHoecke())
+	Set Reservatie = VerwachteUitvoer.GeefReservatie()
+	Do $$$AssertEquals(Reservatie.GeefProductID(),701,"Het moederproduct is gewijzigd")
+	Set VerwachteUitvoer = ""
+	
+	Set $Piece(^KOD(1000,"F",90000,101),"\",2) = 700 // terug het product op 700 plaatsen
+	Set $Piece(^KOD(1000,"F",90000,101),"\",3) = 2 // terug het aantal op 2 plaatsen
+	Set $Piece(^KOD(1000,"F",90000,101),"\",25) = 62371 // terug de leverdag op 62371 plaatsen
+	
+	// Lijn verwijderen
+	
+	Set ProductOrderLijnEventData = ##class(DOM.VKP.event.ProductOrderLijnEventData).%New(OrderID, OrderLijnID, KlantID, ProductID)
+	Set ProductOrderLijnAnnulatieEvent = ##class(DOM.VKP.event.ProductOrderLijnAnnulatie).%New(ProductOrderLijnEventData)
+	Do ##class(APPS.OrderUitvoering.impl.OrderUitvoeringServiceImpl).BijProductOrderLijnAnnulatie(ProductOrderLijnGemaaktEvent)
+	
+	Set VerwachteUitvoer = VerwachteUitvoerAPI.ZoekUitvoerViaTransactieLijnRef(OrderID,OrderLijnID,##class(DOM.common.enu.Bedrijf).VanHoecke())
+	Do $$$AssertFalse($IsObject(VerwachteUitvoer),"De verwachte uitvoer werd verwijderd")
+]]></Implementation>
+</Method>
+
 <Method name="OnBeforeAllTests">
 <ReturnType>%Status</ReturnType>
 <Implementation><![CDATA[
+	Set VerwachteUitvoer = ##class(DOM.DomeinContext).Instance().GeefVerwachteUitvoerAPI().ZoekUitvoerViaTransactieLijnRef(90000,101,##class(DOM.common.enu.Bedrijf).VanHoecke())
+	If ($IsObject(VerwachteUitvoer)) { Do VerwachteUitvoer.Delete() }
+	Set VerwachteUitvoer = ""
+	
 	Set ^KPR(700) = ""
 	Set ^KPR(701) = ""
 	Set ^KPR(702) = ""
Index: DOM/VKP/event/ProductOrderLijnGemaakt.cls.xml
===================================================================
diff -u
--- DOM/VKP/event/ProductOrderLijnGemaakt.cls.xml	(revision 0)
+++ DOM/VKP/event/ProductOrderLijnGemaakt.cls.xml	(revision 2487)
@@ -0,0 +1,24 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="9">
+<Class name="DOM.VKP.event.ProductOrderLijnGemaakt">
+<ClassType>serial</ClassType>
+<ProcedureBlock>1</ProcedureBlock>
+<Super>TECH.PubSub.Event</Super>
+<ClassDefinitionError>0</ClassDefinitionError>
+
+<Method name="%OnNew">
+<FormalSpec>Data:DOM.VKP.event.ProductOrderLijnEventData</FormalSpec>
+<Private>1</Private>
+<ProcedureBlock>1</ProcedureBlock>
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[
+ 	Set ..Type = "ProductOrderLijnGemaakt"
+	Quit ##super(Data)
+]]></Implementation>
+</Method>
+
+<Storage name="Default">
+<Type>%Library.CacheSerialState</Type>
+</Storage>
+</Class>
+</Export>