Index: WS/TBX/EM/OrderLijn.cls.xml
===================================================================
diff -u -r749 -r753
--- WS/TBX/EM/OrderLijn.cls.xml	(.../OrderLijn.cls.xml)	(revision 749)
+++ WS/TBX/EM/OrderLijn.cls.xml	(.../OrderLijn.cls.xml)	(revision 753)
@@ -170,6 +170,11 @@
 <Parameter name="XMLNAME" value="ITEM_KLROPVL"/>
 </Property>
 
+<Property name="ItemRSTL">
+<Type>%String</Type>
+<Parameter name="XMLNAME" value="ITEM_RSTL"/>
+</Property>
+
 <Property name="ItemSTDL">
 <Description>
 Standaard Lade.  Waarde: $$$tbxCodeStdLade = "Std" is gedefinieerd in vhLib.Macro.INC</Description>
@@ -416,7 +421,7 @@
  Set arDataRow("GAMETA")=..GAMeta
  Set arDataRow("EXCLUDE")=..Exclude
  Set arDataRow("PRIJS")=..KostPrijs
- For Key="DS","LT","CB","WD","LD","DK","BM","BX","ASM","BGRP","SPZK","SB","OPVL","STDL","VPK","OLP","FB","FS","DWV","KLROPVL" Do
+ For Key="DS","LT","CB","WD","LD","DK","BM","BX","ASM","BGRP","SPZK","SB","OPVL","STDL","VPK","OLP","FB","FS","DWV","KLROPVL","RSTL" Do
  . Set arDataRow(Key)=$zobjproperty(%this,"Item"_Key)
  . ;Set arDataRow(Key)=..Item<Key>
  For Key="KL","KB","RK","KX","KV","DS" Do
@@ -444,7 +449,7 @@
  Set WSLn.GAMeta=$G(arDataRow("GAMETA"))
  Set WSLn.Exclude=$G(arDataRow("EXCLUDE"))
  Set WSLn.KostPrijs=$G(arDataRow("PRIJS"))
- For Key="DS","LT","CB","WD","LD","DK","BM","BX","ASM","BGRP","SPZK","SB","OPVL","STDL","VPK","OLP","FB","FS","DWV","KLROPVL" Do
+ For Key="DS","LT","CB","WD","LD","DK","BM","BX","ASM","BGRP","SPZK","SB","OPVL","STDL","VPK","OLP","FB","FS","DWV","KLROPVL","RSTL" Do
  . Set $zobjproperty(WSLn,"Item"_Key)=$G(arDataRow(Key))
  . ;Set WSLn.Item<Key>=$G(arData("LN",i,Key))
  For Key="KL","KB","RK","KX","KV","DS" Do
@@ -588,6 +593,9 @@
 <Value name="36">
 <Value>ItemKLROPVL</Value>
 </Value>
+<Value name="37">
+<Value>ItemRSTL</Value>
+</Value>
 </Data>
 </Storage>
 </Class>