Index: zTryout/THB/GlobalUtils.cls.xml
===================================================================
diff -u -r53113 -r57108
--- zTryout/THB/GlobalUtils.cls.xml	(.../GlobalUtils.cls.xml)	(revision 53113)
+++ zTryout/THB/GlobalUtils.cls.xml	(.../GlobalUtils.cls.xml)	(revision 57108)
@@ -165,6 +165,40 @@
 	}
 ]]></Implementation>
 </Method>
+
+<Method name="CheckProductSpecificaties">
+<Implementation><![CDATA[
+	#dim ProductID As %Integer = 1
+	#dim SpecificatieID As %Integer
+	
+	While $$$HasLength($Order(^KPR(ProductID))) {
+		Set ProductID = $Order(^KPR(ProductID))
+		If ($Data(^KPR(ProductID,15))) {
+			Set SpecificatieID = $Piece(^KPR(ProductID,15),"\",13)
+			If $$$HasLength(SpecificatieID) {
+				Set ^THB.Stats(SpecificatieID, $Increment(^THB.Stats(SpecificatieID))) = ProductID
+			}
+		}
+	}
+]]></Implementation>
+</Method>
+
+<Method name="CheckBerekeningsSpecificaties">
+<Implementation><![CDATA[
+	#dim ProductID As %Integer = 1
+	#dim SpecificatieID As %Integer
+	
+	While $$$HasLength($Order(^KPR(ProductID))) {
+		Set ProductID = $Order(^KPR(ProductID))
+		If ($Data(^KPR(ProductID,15))) {
+			Set SpecificatieID = $Piece(^KPR(ProductID,15),"\",14)
+			If $$$HasLength(SpecificatieID) {
+				Set ^THB.StatsB(SpecificatieID, $Increment(^THB.StatsB(SpecificatieID))) = ProductID
+			}
+		}
+	}
+]]></Implementation>
+</Method>
 </Class>