Index: DOM/VKP/impl/DataM/OrderLijnIndexOpPRNr.cls.xml
===================================================================
diff -u -r1012 -r1019
--- DOM/VKP/impl/DataM/OrderLijnIndexOpPRNr.cls.xml	(.../OrderLijnIndexOpPRNr.cls.xml)	(revision 1012)
+++ DOM/VKP/impl/DataM/OrderLijnIndexOpPRNr.cls.xml	(.../OrderLijnIndexOpPRNr.cls.xml)	(revision 1019)
@@ -1,123 +1,4 @@
 <?xml version="1.0" encoding="UTF-8"?>
-<Export generator="Cache" version="9" zv="Cache for Windows NT (Intel/P4) 5.0.21 (Build 6408)" ts="2011-04-13 14:01:46">
-<Class name="DOM.VKP.impl.DataM.OrderLijnIndexOpPRNr">
-<ClassType>persistent</ClassType>
-<ProcedureBlock>1</ProcedureBlock>
-<StorageStrategy>VHOpslag</StorageStrategy>
-<Super>%Persistent</Super>
-<TimeChanged>62194,50518.414832</TimeChanged>
-<ClassDefinitionError>0</ClassDefinitionError>
-
-<Property name="ProductNr">
-<Type>%String</Type>
-</Property>
-
-<Property name="Product">
-<Type>DOM.PM.Product</Type>
-<Transient>1</Transient>
-</Property>
-
-<Property name="Order">
-<Type>DOM.OV.Order</Type>
-<Transient>1</Transient>
-</Property>
-
-<Property name="Aantal">
-<Type>%String</Type>
-</Property>
-
-<Property name="Leverdag">
-<Type>%Date</Type>
-</Property>
-
-<Property name="StockInfo">
-<Type>%String</Type>
-</Property>
-
-<Property name="OrderNr">
-<Type>%Integer</Type>
-<Calculated>1</Calculated>
-</Property>
-
-<Property name="OrderLijnNr">
-<Type>%Integer</Type>
-<Calculated>1</Calculated>
-</Property>
-
-<Property name="OrderDatum">
-<Type>%Date</Type>
-<Calculated>1</Calculated>
-</Property>
-
-<Property name="WSubscript">
-<Type>%String</Type>
-</Property>
-
-<Index name="PrimKey">
-<IdKey>1</IdKey>
-<PrimaryKey>1</PrimaryKey>
-<Properties>ProductNr,WSubscript</Properties>
-<Unique>1</Unique>
-</Index>
-
-<Method name="%OnOpen">
-<Private>1</Private>
-<ReturnType>%Status</ReturnType>
-<Implementation><![CDATA[
-	set ..Product = ##class(DOM.DomeinContext).Instance().GeefProductAPI().GeefProduct(..ProductNr)
-	set ..Order = ##class(DOM.DomeinContext).Instance().GeefOrderAPI().GeefOrder(..OrderNr) 
-	quit $$$OK
-]]></Implementation>
-</Method>
-
-<Method name="OrderNrGet">
-<ReturnType>%Integer</ReturnType>
-<Implementation><![CDATA[	quit $extract(..WSubscript,18,23)
-]]></Implementation>
-</Method>
-
-<Method name="OrderDatumGet">
-<ReturnType>%Date</ReturnType>
-<Implementation><![CDATA[
-	set JJJJMMDD = $extract(..WSubscript,10,17)
-	quit $$INTDATE^vhDTyp(JJJJMMDD)
-]]></Implementation>
-</Method>
-
-<Method name="OrderLijnNrGet">
-<ReturnType>%Date</ReturnType>
-<Implementation><![CDATA[	quit $translate($extract(..WSubscript,24,26)," ","")+100
-]]></Implementation>
-</Method>
-
-<Storage name="VHOpslag">
-<Type>%CacheSQLStorage</Type>
-<SQLMap name="Main">
-<Type>data</Type>
-<Global>^KPR</Global>
-<Subscript name="1">
-<Expression>{ProductNr}</Expression>
-<StartValue>0.1</StartValue>
-</Subscript>
-<Subscript name="2">
-<Expression>{WSubscript}</Expression>
-<StartValue>"W    0.0R"</StartValue>
-<StopValue>"W    0.0Rz"</StopValue>
-</Subscript>
-<Data name="Aantal">
-<Delimiter>"\"</Delimiter>
-<Piece>1</Piece>
-</Data>
-<Data name="Leverdag">
-<Delimiter>"\"</Delimiter>
-<Piece>2</Piece>
-</Data>
-<Data name="StockInfo">
-<Delimiter>"\"</Delimiter>
-<Piece>3</Piece>
-</Data>
-</SQLMap>
-</Storage>
-</Class>
-<Checksum value="1991922041"/>
+<Export generator="Cache" version="9" zv="Cache for Windows NT (Intel/P4) 5.0.21 (Build 6408)" ts="2011-04-19 16:14:33">
+<Checksum value="1745629887"/>
 </Export>