Index: APPS/Halux/Planning/impl/DisplayInfoGeproduceerd.cls.xml
===================================================================
diff -u -r56571 -r71905
--- APPS/Halux/Planning/impl/DisplayInfoGeproduceerd.cls.xml	(.../DisplayInfoGeproduceerd.cls.xml)	(revision 56571)
+++ APPS/Halux/Planning/impl/DisplayInfoGeproduceerd.cls.xml	(.../DisplayInfoGeproduceerd.cls.xml)	(revision 71905)
@@ -43,18 +43,14 @@
 <ReturnType>%ListOfDataTypes</ReturnType>
 <Implementation><![CDATA[
 	Set LedDisplays=##class(%ListOfDataTypes).%New()
-	Do LedDisplays.Insert(##class(APPS.Halux.common.enu.LedDisplay).HALUXHAL21LIJN1())
-	Do LedDisplays.Insert(##class(APPS.Halux.common.enu.LedDisplay).HALUXHAL21LIJN2())
-	Do LedDisplays.Insert(##class(APPS.Halux.common.enu.LedDisplay).HALUXHAL22LIJN1())
+	//LedDisplays uit roulatie genomen op 2023/09/21
+	//Do LedDisplays.Insert(##class(APPS.Halux.common.enu.LedDisplay).HALUXHAL21LIJN1())
+	//Do LedDisplays.Insert(##class(APPS.Halux.common.enu.LedDisplay).HALUXHAL21LIJN2())
+	//Do LedDisplays.Insert(##class(APPS.Halux.common.enu.LedDisplay).HALUXHAL22LIJN1())
 	Quit LedDisplays
 ]]></Implementation>
 </Method>
 
-<Property name="TAXAttentieService">
-<Type>APPS.Stat.TAXAttentieService</Type>
-<Private>1</Private>
-</Property>
-
 <Property name="BatchLijst">
 <Type>APPS.Halux.common.Batch</Type>
 <Collection>list</Collection>
@@ -84,7 +80,6 @@
 <ProcedureBlock>1</ProcedureBlock>
 <ReturnType>%Status</ReturnType>
 <Implementation><![CDATA[
-	Set ..TAXAttentieService = ##class(APPS.Stat.TAXAttentie.impl.TAXAttentieService).%New()
 	#dim Status As %Status = $$$OK
 	Set ..DisplayWriterType=DisplayWriterType
 	try {
@@ -205,9 +200,28 @@
 ]]></Implementation>
 </Method>
 
+<UDLText name="T">
+<Content><![CDATA[/* Op te vragen via ODBC als volgt: select APPS_Halux_Planning_impl.DisplayInfoGeproduceerd_GeefAantalGeproduceerdProc()*/
+]]></Content>
+</UDLText>
+
+<Method name="GeefAantalGeproduceerdProc">
+<ClassMethod>1</ClassMethod>
+<ReturnType>%List</ReturnType>
+<SqlProc>1</SqlProc>
+<Implementation><![CDATA[
+	Set TbxAantal = 0
+	Set LbxAantal = 0
+	Set TaorAantal = 0
+	Do ..GeefAantalGeproduceerd(.TbxAantal, .LbxAantal, .TaorAantal)
+	Quit $LB(TbxAantal, LbxAantal, TaorAantal)
+]]></Implementation>
+</Method>
+
 <Method name="GeefAantalGeproduceerd">
 <Description>
 d ##class(APPS.Halux.Planning.impl.DisplayInfoGeproduceerd).%New(1).GeefAantalGeproduceerd(.TB,.LB,.TA)</Description>
+<ClassMethod>1</ClassMethod>
 <FormalSpec>*TBXAantal:%Integer,*LBXAantal:%Integer,*TAORAantal:%Integer</FormalSpec>
 <Private>1</Private>
 <Implementation><![CDATA[