Index: DOM/PM/impl/DataM/DataMProduct.cls.xml
===================================================================
diff -u -r1047 -r1075
--- DOM/PM/impl/DataM/DataMProduct.cls.xml	(.../DataMProduct.cls.xml)	(revision 1047)
+++ DOM/PM/impl/DataM/DataMProduct.cls.xml	(.../DataMProduct.cls.xml)	(revision 1075)
@@ -1,11 +1,9 @@
 <?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-20 11:59:11">
+<Export generator="Cache" version="9">
 <Class name="DOM.PM.impl.DataM.DataMProduct">
 <IncludeCode>BL.Kenm.Common</IncludeCode>
 <ProcedureBlock>1</ProcedureBlock>
 <Super>%RegisteredObject</Super>
-<TimeChanged>62201,43168.196587</TimeChanged>
-<TimeCreated>62159,61822.534455</TimeCreated>
 <ClassDefinitionError>0</ClassDefinitionError>
 
 <Property name="Data">
@@ -170,7 +168,10 @@
 
 <Method name="GeefSchaduwVersie">
 <ReturnType>%String</ReturnType>
-<Implementation><![CDATA[	Quit $Piece($Get(^PRBS("BSS",..ProductNummer)),"\",3)
+<Implementation><![CDATA[
+	Set SchaduwVersie = $Piece($Get(^PRBS("BSS",..ProductNummer)),"\",3)
+	If ($Extract(SchaduwVersie,1,1) = "v") { Set $Extract(SchaduwVersie,1,1) = "" }
+	Quit SchaduwVersie
 ]]></Implementation>
 </Method>
 
@@ -350,5 +351,4 @@
 ]]></Implementation>
 </Method>
 </Class>
-<Checksum value="4272982082"/>
 </Export>