Index: APPS/Halux/Opvolging/ProductieStap/TAOR/impl/ArdisOpenstaandWerk.cls.xml
===================================================================
diff -u
--- APPS/Halux/Opvolging/ProductieStap/TAOR/impl/ArdisOpenstaandWerk.cls.xml	(revision 0)
+++ APPS/Halux/Opvolging/ProductieStap/TAOR/impl/ArdisOpenstaandWerk.cls.xml	(revision 41117)
@@ -0,0 +1,49 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="APPS.Halux.Opvolging.ProductieStap.TAOR.impl.ArdisOpenstaandWerk">
+<IncludeCode>vhLib.Macro</IncludeCode>
+<Super>%RegisteredObject</Super>
+
+<Method name="Show">
+<Description>
+Do ##class(APPS.Halux.Opvolging.ProductieStap.TAOR.impl.ArdisOpenstaandWerk).Show()</Description>
+<ClassMethod>1</ClassMethod>
+<ProcedureBlock>0</ProcedureBlock>
+<Implementation><![CDATA[
+	#dim it as TECH.ResultSet=..OpenstaandWerkIterator()
+	Write @F11,@F1
+	Write "Ardis : nog te optimaliseren stukken"
+	Write !!
+	Set Aantal=""
+	While it.HasNext()
+	{
+		Set rs=it.Next()
+		Write rs.Data("PartRef"),?15,rs.Data("Aantal"),!
+		Set Aantal=Aantal+1
+	}
+	If 'Aantal
+	{
+		Write "Alles is geoptimaliseerd"
+	}
+	
+	Write !!!,"Druk een toets om verder te gaan"
+	r k
+]]></Implementation>
+</Method>
+
+<Method name="OpenstaandWerkIterator">
+<ClassMethod>1</ClassMethod>
+<Private>1</Private>
+<Implementation><![CDATA[
+	Set rs=##class(TECH.ResultSet).%New()
+	Do rs.Prepare("select PartRef, count(*) as Aantal from APPS_Halux_Machine_Opdeelzaag_data.ArdisParts where status<2 and (partref='Bodem' or partref='Front' or partref='Rug' or partref='zijkantplaat') group by PartRef order by partref")
+	
+ 	Set sc=rs.Execute()
+	Set it=##class(TECH.ResultSetIterator).%New(rs)
+	Quit it
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>