Index: WS/TBX/EM/OrderLijn.cls.xml
===================================================================
diff -u -r29059 -r38118
--- WS/TBX/EM/OrderLijn.cls.xml	(.../OrderLijn.cls.xml)	(revision 29059)
+++ WS/TBX/EM/OrderLijn.cls.xml	(.../OrderLijn.cls.xml)	(revision 38118)
@@ -200,6 +200,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>
@@ -444,7 +449,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)
  For Key="KL","KB","RK","KX","KV","DS" Do
  . Set arDataRow("KLR",Key)=$zobjproperty(%this,"Item"_Key)
@@ -470,7 +475,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))
  For Key="KL","KB","RK","KX","KV","DS" Do
  . Set $zobjproperty(WSLn,"Item"_Key)=$G(arDataRow("KLR",Key))
@@ -611,6 +616,9 @@
 <Value name="36">
 <Value>ItemKLROPVL</Value>
 </Value>
+<Value name="37">
+<Value>ItemRSTL</Value>
+</Value>
 </Data>
 </Storage>
 </Class>