Index: Prod/Product.cls.xml
===================================================================
diff -u -r41359 -r41773
--- Prod/Product.cls.xml	(.../Product.cls.xml)	(revision 41359)
+++ Prod/Product.cls.xml	(.../Product.cls.xml)	(revision 41773)
@@ -462,6 +462,27 @@
 <Relationship>0</Relationship>
 </Property>
 
+<Property name="KlasHoofdGroepCode">
+<Type>%String</Type>
+<Calculated>1</Calculated>
+<SqlComputeCode> Set {*}=$Translate( $Piece( $Get(^KPR({Id},"I1")) ,"\",1), " ", "") </SqlComputeCode>
+<SqlComputed>1</SqlComputed>
+</Property>
+
+<Property name="KlasGroepCode">
+<Type>%String</Type>
+<Calculated>1</Calculated>
+<SqlComputeCode> Set {*}=$Translate( $Piece( $Get(^KPR({Id},"I1")) ,"\",2), " ", "") </SqlComputeCode>
+<SqlComputed>1</SqlComputed>
+</Property>
+
+<Property name="KlasSubGroepCode">
+<Type>%String</Type>
+<Calculated>1</Calculated>
+<SqlComputeCode> Set {*}=$Translate( $Piece( $Get(^KPR({Id},"I1")) ,"\",3), " ", "") </SqlComputeCode>
+<SqlComputed>1</SqlComputed>
+</Property>
+
 <Property name="KortTekst">
 <Description>
 Format: String: 25</Description>