Index: Flow/Toelev/Lijn.cls.xml
===================================================================
diff -u -r29059 -r41904
--- Flow/Toelev/Lijn.cls.xml	(.../Lijn.cls.xml)	(revision 29059)
+++ Flow/Toelev/Lijn.cls.xml	(.../Lijn.cls.xml)	(revision 41904)
@@ -10,7 +10,7 @@
 <Extent>0</Extent>
 <IdKey>1</IdKey>
 <PrimaryKey>0</PrimaryKey>
-<Properties>Leverancier,Toelevering,LijnNr</Properties>
+<Properties>Leverancier,ToeleveringNr,LijnNr</Properties>
 <Unique>1</Unique>
 </Index>
 
@@ -379,6 +379,10 @@
 <Parameter name="TRUNCATE" value="1"/>
 </Property>
 
+<Property name="ToeleveringNr">
+<Type>%Integer</Type>
+</Property>
+
 <Property name="Toelevering">
 <Type>Flow.Toelev.Hoofding</Type>
 <Final>0</Final>
@@ -389,7 +393,7 @@
 <Relationship>0</Relationship>
 <Required>0</Required>
 <SqlComputed>0</SqlComputed>
-<Transient>0</Transient>
+<Transient>1</Transient>
 </Property>
 
 <Property name="TotaalBedrag">
@@ -436,6 +440,16 @@
 <Type>%Library.Integer</Type>
 </Property>
 
+<Method name="%OnOpen">
+<Private>1</Private>
+<ReturnType>%Status</ReturnType>
+<ServerOnly>1</ServerOnly>
+<Implementation><![CDATA[
+	do ..ToeleveringSetObjectId(..Leverancier.%Id()_"||"_..ToeleveringNr)	
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
 <Storage name="DataM">
 <Type>%CacheSQLStorage</Type>
 <StreamLocation>^Flow.Toe.LijnS</StreamLocation>
@@ -447,7 +461,7 @@
 <Expression>{Leverancier}</Expression>
 </Subscript>
 <Subscript name="2">
-<Expression>{Toelevering}</Expression>
+<Expression>{ToeleveringNr}</Expression>
 </Subscript>
 <Subscript name="3">
 <Expression>{LijnNr}</Expression>