Index: zTryout/JCL/OrdW.cls.xml
===================================================================
diff -u
--- zTryout/JCL/OrdW.cls.xml	(revision 0)
+++ zTryout/JCL/OrdW.cls.xml	(revision 2318)
@@ -0,0 +1,28 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="9">
+<Class name="zTryout.JCL.OrdW">
+<ProcedureBlock>1</ProcedureBlock>
+<Super>%RegisteredObject</Super>
+<ClassDefinitionError>0</ClassDefinitionError>
+
+<Method name="GeefAantalTePicken">
+<ClassMethod>1</ClassMethod>
+<FormalSpec>TimeStamp:%TimeStamp</FormalSpec>
+<ReturnType>%ArrayOfDataTypes</ReturnType>
+<Implementation><![CDATA[
+	
+	set arTePicken = ##class(%ArrayOfDataTypes).%New()
+	set DateTime = ##class(TECH.DateTime).TimeStampToHorolog(TimeStamp)
+	set rsSubLijnen = $$ExecDynQuery^vhQUERYLIB("SELECT ID FROM Flow_OrderWMS.Sub")
+	while rsSubLijnen.Next() {
+		set SubLijn = ##class(Flow.OrderWMS.Sub).%OpenId(rsSubLijnen.Get("ID"))
+		if ##class(TECH.DateTime).HorologIsGroterDan(DateTime,SubLijn.Lijn.Hoofding.DueOutTime) {
+			set ProductID = SubLijn.Product.ProductNr
+			do arTePicken.SetAt(arProducten.GetAt(ProductID)+SubLijn.Aantal,ProductID)
+		}
+	}
+	quit arTePicken
+]]></Implementation>
+</Method>
+</Class>
+</Export>