Index: Flow/OrderWMS/Sub.cls.xml
===================================================================
diff -u -r29059 -r68334
--- Flow/OrderWMS/Sub.cls.xml	(.../Sub.cls.xml)	(revision 29059)
+++ Flow/OrderWMS/Sub.cls.xml	(.../Sub.cls.xml)	(revision 68334)
@@ -83,7 +83,7 @@
 
 <UDLText name="T">
 <Content><![CDATA[
-//Waarde E(=EWMS) of UglyPick met als mogelijke waarden H(=Halux);L(=Langgoed);U(=Ugly);O(=Orgalux) 1;2;3; wordt gebruikt bij grote EMWS-orders"
+// Waarde E(=EWMS) of UglyPick met als mogelijke waarden H(=Halux);L(=Langgoed);U(=Ugly);O(=Orgalux) 1;2;3; wordt gebruikt bij grote EMWS-orders"
 
 ]]></Content>
 </UDLText>
@@ -95,7 +95,7 @@
 
 <UDLText name="T">
 <Content><![CDATA[
-//Waarde : {A; U; L; T} = {Auto; Ugly; Langgoed; Transit}
+// Waarde : {A; U; L; T} = {Auto; Ugly; Langgoed; Transit}
 
 ]]></Content>
 </UDLText>
@@ -121,12 +121,34 @@
 <Properties>SUBOLNr</Properties>
 </Index>
 
+<Property name="OBJTOutboundorderLijnID">
+<Type>%String</Type>
+<Calculated>1</Calculated>
+<SqlComputeCode>	Set {*}=##class(Flow.OrderWMS.Sub).OBJTOutboundorderLijnCalc({ID})</SqlComputeCode>
+<SqlComputed>1</SqlComputed>
+<Parameter name="TRUNCATE" value="1"/>
+</Property>
+
+<Method name="OBJTOutboundorderLijnCalc">
+<ClassMethod>1</ClassMethod>
+<FormalSpec>ID:%String</FormalSpec>
+<Implementation><![CDATA[
+	;ID bevat CONSNR||ORDNr||OLUNr||SubOLNr
+	Set ID=$P(ID,"||",2)_";"_($P(ID,"||",3)*100+($P(ID,"||",4)\100))
+  	Quit ID
+]]></Implementation>
+</Method>
+
+<Method name="OBJTOutboundorderLijnIDGet">
+<Implementation><![CDATA[   Quit ##class(Flow.OrderWMS.Hoofding).OBJTOutboundorderID(..%Id())
+]]></Implementation>
+</Method>
+
 <Storage name="VHOpslag">
 <Type>%Library.CacheSQLStorage</Type>
 <StreamLocation>^Flow.Ord.SubS</StreamLocation>
 <SQLMap name="Data">
 <Type>data</Type>
-<ConditionalWithHostVars>0</ConditionalWithHostVars>
 <Global>^ORDW</Global>
 <Structure>delimited</Structure>
 <Subscript name="1">