Index: DOM/ProdRes/impl/InvoerReservatieImpl.cls.xml
===================================================================
diff -u -r47369 -r49642
--- DOM/ProdRes/impl/InvoerReservatieImpl.cls.xml	(.../InvoerReservatieImpl.cls.xml)	(revision 47369)
+++ DOM/ProdRes/impl/InvoerReservatieImpl.cls.xml	(.../InvoerReservatieImpl.cls.xml)	(revision 49642)
@@ -14,6 +14,11 @@
 <Type>%TimeStamp</Type>
 </Property>
 
+<Property name="InConstructor">
+<Type>%Boolean</Type>
+<Transient>1</Transient>
+</Property>
+
 <Index name="InvoerProductIndex">
 <Properties>ProductID</Properties>
 </Index>
@@ -35,8 +40,11 @@
 <ReturnType>%Status</ReturnType>
 <ServerOnly>1</ServerOnly>
 <Implementation><![CDATA[
+	Set ..InConstructor = $$$True
 	Set ..VerwachteInvoer = VerwachteInvoer
 	Do ..ZetDueIn(DueIn)
+	
+	Set ..InConstructor = $$$False
 	Quit ##super(ProductID, Aantal, Bedrijf)
 ]]></Implementation>
 </Method>
@@ -47,6 +55,17 @@
 ]]></Implementation>
 </Method>
 
+<Method name="VerwachteInvoerSet">
+<FormalSpec>Value:DOM.ProdRes.VerwachteInvoer</FormalSpec>
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[
+	
+	ZTRAP:$$$Not(..InConstructor) "R-O!" // Read only property, buiten de constructor!
+	Set r%VerwachteInvoer = Value
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
 <Method name="GeefDueIn">
 <ReturnType>%TimeStamp</ReturnType>
 <Implementation><![CDATA[	Quit ..DueIn
@@ -131,6 +150,9 @@
 <Value name="8">
 <Value>VerwachteInvoer</Value>
 </Value>
+<Value name="9">
+<Value>InConstructor</Value>
+</Value>
 </Data>
 <Data name="InvoerUitvoerLinken">
 <Attribute>InvoerUitvoerLinken</Attribute>