Index: APPS/Halux/Planning/impl/DisplayInfoGeproduceerd.cls.xml
===================================================================
diff -u -r40816 -r71905
--- APPS/Halux/Planning/impl/DisplayInfoGeproduceerd.cls.xml	(.../DisplayInfoGeproduceerd.cls.xml)	(revision 40816)
+++ APPS/Halux/Planning/impl/DisplayInfoGeproduceerd.cls.xml	(.../DisplayInfoGeproduceerd.cls.xml)	(revision 71905)
@@ -13,11 +13,11 @@
 </Parameter>
 
 <Parameter name="ActiefVanaf">
-<Default>25200</Default>
+<Default>06:00</Default>
 </Parameter>
 
 <Parameter name="ActiefTot">
-<Default>64800</Default>
+<Default>22:00</Default>
 </Parameter>
 
 <Parameter name="DisplayLengte">
@@ -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 {
@@ -145,8 +140,8 @@
 <Private>1</Private>
 <ReturnType>%Boolean</ReturnType>
 <Implementation><![CDATA[
-	Quit:$P($H,",",2)<..#ActiefVanaf 0
-	Quit:$P($H,",",2)>..#ActiefTot 0
+	Quit:$P($H,",",2)<$$INTTIME^vhLib.DataTypes(..#ActiefVanaf) 0
+	Quit:$P($H,",",2)>$$INTTIME^vhLib.DataTypes(..#ActiefTot) 0
 	Quit 1
 ]]></Implementation>
 </Method>
@@ -168,7 +163,11 @@
 <Implementation><![CDATA[
 	Do ..GeefOrderedBatchLijst(..GeefProductieLijnOmschrijvingVoorLedDisplay(LedDisplay))
 	Do ..DisplayWriter.ResetAantalTekensGeschreven()
-	Do ..DisplayWriter.ZetDisplayMode(##class(TECH.LedDisplay.enu.DisplayMode).Roteer())
+	If $$$Not(LedDisplay = ##class(APPS.Halux.common.enu.LedDisplay).HALUXHAL22LIJN1()) {
+		Do ..DisplayWriter.ZetDisplayMode(##class(TECH.LedDisplay.enu.DisplayMode).Roteer())
+	} Else {
+		Do ..DisplayWriter.ZetDisplayMode(##class(TECH.LedDisplay.enu.DisplayMode).Zonder())
+	}
 	#dim TBXAantal,LBXAantal,TAORAantal as %Integer
 	Do ..GeefAantalGeproduceerd(.TBXAantal,.LBXAantal,.TAORAantal)
 	If $$$HasLength(TBXAantal) && $$$Not(LedDisplay = ##class(APPS.Halux.common.enu.LedDisplay).HALUXHAL22LIJN1())
@@ -196,19 +195,33 @@
 	Do ..DisplayWriter.ZetKleur(##class(TECH.LedDisplay.enu.Kleur).DimGroen())
 	Do ..DisplayWriter.WriteTekst(" - ")
 	Do ..DisplayWriter.WriteTijd()
-	Do ..DisplayWriter.WriteTekst(" - ")
 	
-	Do ..DisplayWriter.ZetKleur(##class(TECH.LedDisplay.enu.Kleur).Rood())
-	Do ..DisplayWriter.WriteTekst(..TAXAttentieService.GeefAantalVerkochteTAORBoxen())
-	
-	
 	Do ..DisplayWriter.Toon()
 ]]></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[