Index: Flow/Toelev/Lijn.cls.xml
===================================================================
diff -u -r56299 -r56983
--- Flow/Toelev/Lijn.cls.xml	(.../Lijn.cls.xml)	(revision 56299)
+++ Flow/Toelev/Lijn.cls.xml	(.../Lijn.cls.xml)	(revision 56983)
@@ -175,7 +175,7 @@
 <Property name="LeveringsWeekVoorziene">
 <Description>
 Format: WW/JJ</Description>
-<Type>Sys.cDate</Type>
+<Type>%String</Type>
 <Final>0</Final>
 <Calculated>0</Calculated>
 <Collection/>
@@ -187,8 +187,15 @@
 <Transient>0</Transient>
 </Property>
 
+<Property name="VoorzieneLeveringsDatum">
+<Type>%Date</Type>
+<Calculated>1</Calculated>
+<SqlComputeCode> Set {*}=##class(Flow.Toelev.Lijn).VoorzieneLeveringsDatumCalc({Leverancier},{ToeleveringNr},{LijnNr})</SqlComputeCode>
+<SqlComputed>1</SqlComputed>
+</Property>
+
 <Property name="LeverweekGevraagde">
-<Type>Sys.cDate</Type>
+<Type>%String</Type>
 <Final>0</Final>
 <Calculated>0</Calculated>
 <Collection/>
@@ -459,6 +466,13 @@
 <SqlComputed>1</SqlComputed>
 </Property>
 
+<Property name="FabKey">
+<Type>%String</Type>
+<Calculated>1</Calculated>
+<SqlComputeCode> Set {*}={ToeleveringNr}_";"_({UniekLijnNr}\100*100)</SqlComputeCode>
+<SqlComputed>1</SqlComputed>
+</Property>
+
 <Method name="%OnOpen">
 <Private>1</Private>
 <ReturnType>%Status</ReturnType>
@@ -469,6 +483,16 @@
 ]]></Implementation>
 </Method>
 
+<Method name="VoorzieneLeveringsDatumCalc">
+<ClassMethod>1</ClassMethod>
+<FormalSpec>LEVNr,TOENr,TLNr</FormalSpec>
+<Implementation><![CDATA[
+	Set LeverWeek=$P(^KTO(LEVNr,TOENr,TLNr),"\",25)
+	Set:LeverWeek?2N1E2N LeverDatum=$ZD($$CALCDATE^vhLib.DataTypes($$INTDATE^vhLib.DataTypes(LeverWeek,"DW"),"W","FD"),3)
+	Quit $G(LeverDatum)
+]]></Implementation>
+</Method>
+
 <Storage name="DataM">
 <Type>%CacheSQLStorage</Type>
 <StreamLocation>^Flow.Toe.LijnS</StreamLocation>