Index: APPS/Halux/Planning/impl/DisplayInfoGeproduceerd.cls.xml
===================================================================
diff -u -r29059 -r40816
--- APPS/Halux/Planning/impl/DisplayInfoGeproduceerd.cls.xml	(.../DisplayInfoGeproduceerd.cls.xml)	(revision 29059)
+++ APPS/Halux/Planning/impl/DisplayInfoGeproduceerd.cls.xml	(.../DisplayInfoGeproduceerd.cls.xml)	(revision 40816)
@@ -25,29 +25,28 @@
 <Default>35</Default>
 </Parameter>
 
-<Method name="DisplayAlleProductieLijnen">
-<Description>
-Do ##class(APPS.Halux.Planning.impl.DisplayInfoGeproduceerd).DisplayAlleProductieLijnen()</Description>
+<Method name="DisplayAlleLedDisplays">
 <ClassMethod>1</ClassMethod>
 <Implementation><![CDATA[
-	#dim ProductieLijnen as %ListOfDataTypes=..GeefAlleProductieLijnen()
-	Set ProductieLijnenIt = ##class(TECH.ListIterator).%New(ProductieLijnen)
-	While ProductieLijnenIt.HasNext() {
-		#dim ProductieLijn As APPS.Halux.common.enu.ProductieLijn = ProductieLijnenIt.Next()
-		Set DisplayLijn=..%New(ProductieLijn)
-		Do:$isObject(DisplayLijn) DisplayLijn.RefreshDisplay(ProductieLijn)
+	#dim LedDisplays As %ListOfDataTypes = ..GeefAlleLedDisplays()
+	Set DisplayIterator = ##class(TECH.ListIterator).%New(LedDisplays)
+	While DisplayIterator.HasNext() {
+		#dim LedDisplay As APPS.Halux.common.enu.LedDisplay = DisplayIterator.Next()
+		Set DisplayLijn = ..%New(LedDisplay)
+		Do:$isObject(DisplayLijn) DisplayLijn.RefreshDisplay(LedDisplay)
 	}
 ]]></Implementation>
 </Method>
 
-<Method name="GeefAlleProductieLijnen">
+<Method name="GeefAlleLedDisplays">
 <ClassMethod>1</ClassMethod>
 <ReturnType>%ListOfDataTypes</ReturnType>
 <Implementation><![CDATA[
-	Set ProductieLijnen=##class(%ListOfDataTypes).%New()
-	Do ProductieLijnen.Insert(##class(APPS.Halux.common.enu.ProductieLijn).Een())
-	Do ProductieLijnen.Insert(##class(APPS.Halux.common.enu.ProductieLijn).Twee())
-	Quit ProductieLijnen
+	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())
+	Quit LedDisplays
 ]]></Implementation>
 </Method>
 
@@ -80,7 +79,7 @@
 <Method name="%OnNew">
 <Description>
 DisplayWriterType="DEV" of "HTML"</Description>
-<FormalSpec>ProductieLijn:APPS.Halux.common.enu.ProductieLijn,DisplayWriterType:%String="DEV"</FormalSpec>
+<FormalSpec>LedDisplay:APPS.Halux.common.enu.LedDisplay,DisplayWriterType:%String="DEV"</FormalSpec>
 <Private>1</Private>
 <ProcedureBlock>1</ProcedureBlock>
 <ReturnType>%Status</ReturnType>
@@ -89,14 +88,13 @@
 	#dim Status As %Status = $$$OK
 	Set ..DisplayWriterType=DisplayWriterType
 	try {
-		#dim DeviceNaam As TECH.String = ..GeefDeviceNaam(ProductieLijn)
-		Do ..GeefDisplayWriter(DeviceNaam)
+		Do ..GeefDisplayWriter(LedDisplay)
 	} catch {
 		Set ..DisplayDevice=""
  		#dim Exceptie As TECH.Exceptions.Exception = ##class(TECH.ExceptionHandler).Catch()
 		Set InnerExceptie = ##class(TECH.Exceptions.GeneralErrorException).%New("Kan device niet openen")
-		Do InnerExceptie.VoegToeExtraInfo("ProductieLijn = "_ProductieLijn)
-		Do InnerExceptie.VoegToeExtraInfo("Device = "_DeviceNaam)
+		Do InnerExceptie.VoegToeExtraInfo("ProductieLijn = "_..GeefProductieLijnOmschrijvingVoorLedDisplay(LedDisplay))
+		Do InnerExceptie.VoegToeExtraInfo("Device = "_LedDisplay)
  		Do Exceptie.VoegToeInnerExceptie(InnerExceptie)
 		Do ##class(TECH.ExceptionHandler).Throw(Exceptie)
 	}
@@ -106,12 +104,12 @@
 </Method>
 
 <Method name="RefreshDisplay">
-<FormalSpec>ProductieLijn:APPS.Halux.common.enu.ProductieLijn</FormalSpec>
+<FormalSpec>LedDisplay:APPS.Halux.common.enu.LedDisplay</FormalSpec>
 <Implementation><![CDATA[
 	If ..DisplayDevice="" Quit
 
 	If ..IsActief() {
-		Do ..DisplayBatchLijst(ProductieLijn)
+		Do ..DisplayBatchLijst(LedDisplay)
 	} Else {
 		Do ..ToonKlok()
 	}
@@ -153,30 +151,41 @@
 ]]></Implementation>
 </Method>
 
+<Method name="GeefProductieLijnOmschrijvingVoorLedDisplay">
+<FormalSpec>LedDisplay:APPS.Halux.common.enu.LedDisplay</FormalSpec>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[
+	Quit:LedDisplay=##class(APPS.Halux.common.enu.LedDisplay).HALUXHAL21LIJN1() ##class(APPS.Halux.common.enu.ProductieLijn).Een()
+	Quit:LedDisplay=##class(APPS.Halux.common.enu.LedDisplay).HALUXHAL21LIJN2() ##class(APPS.Halux.common.enu.ProductieLijn).Twee()
+	Quit:LedDisplay=##class(APPS.Halux.common.enu.LedDisplay).HALUXHAL22LIJN1() "T1"
+	Quit ##class(APPS.Halux.common.enu.ProductieLijn).Een()
+]]></Implementation>
+</Method>
+
 <Method name="DisplayBatchLijst">
-<FormalSpec>ProductieLijn:APPS.Halux.common.enu.ProductieLijn</FormalSpec>
+<FormalSpec>LedDisplay:APPS.Halux.common.enu.LedDisplay</FormalSpec>
 <Private>1</Private>
 <Implementation><![CDATA[
-	Do ..GeefOrderedBatchLijst(ProductieLijn)
+	Do ..GeefOrderedBatchLijst(..GeefProductieLijnOmschrijvingVoorLedDisplay(LedDisplay))
 	Do ..DisplayWriter.ResetAantalTekensGeschreven()
 	Do ..DisplayWriter.ZetDisplayMode(##class(TECH.LedDisplay.enu.DisplayMode).Roteer())
 	#dim TBXAantal,LBXAantal,TAORAantal as %Integer
 	Do ..GeefAantalGeproduceerd(.TBXAantal,.LBXAantal,.TAORAantal)
-	If TBXAantal
+	If $$$HasLength(TBXAantal) && $$$Not(LedDisplay = ##class(APPS.Halux.common.enu.LedDisplay).HALUXHAL22LIJN1())
 	{
 		Do ..DisplayWriter.ZetKleur(##class(TECH.LedDisplay.enu.Kleur).Rood())
 		Do ..DisplayWriter.WriteTekst("TBX")
 		Do ..DisplayWriter.ZetKleur(##class(TECH.LedDisplay.enu.Kleur).Oranje())
 		Do ..DisplayWriter.WriteTekst(TBXAantal)
 	}
-	If LBXAantal
+	If $$$HasLength(LBXAantal) && $$$Not(LedDisplay = ##class(APPS.Halux.common.enu.LedDisplay).HALUXHAL22LIJN1())
 	{
 		Do ..DisplayWriter.ZetKleur(##class(TECH.LedDisplay.enu.Kleur).Rood())
 		Do ..DisplayWriter.WriteTekst(" LBX")
 		Do ..DisplayWriter.ZetKleur(##class(TECH.LedDisplay.enu.Kleur).Oranje())
 		Do ..DisplayWriter.WriteTekst(LBXAantal)
 	}
-	If TAORAantal
+	If $$$HasLength(TAORAantal)
 	{
 		Do ..DisplayWriter.ZetKleur(##class(TECH.LedDisplay.enu.Kleur).Rood())
 		Do ..DisplayWriter.WriteTekst(" TA'OR")
@@ -257,36 +266,13 @@
 		}
 		Elseif ..DisplayWriterType="HTML"
 		{
-			Set ..DisplayDevice=##class(TECH.LedDisplay.StubDevice).OpenDisplay(Naam)
+			Set ..DisplayDevice=##class(TECH.LedDisplay.StubDevice).OpenDisplay()
 			Set ..DisplayWriter=##class(TECH.LedDisplay.WriterHTML).%New(..DisplayDevice)
 		}
 	}
 ]]></Implementation>
 </Method>
 
-<Method name="GeefDeviceNaam">
-<FormalSpec>ProductieLijn:APPS.Halux.common.enu.ProductieLijn</FormalSpec>
-<Private>1</Private>
-<ReturnType>TECH.String</ReturnType>
-<Implementation><![CDATA[
- 	If $$$Not(##class(APPS.Halux.common.enu.ProductieLijn).IsValid(ProductieLijn)){
-		Set Exceptie = ##class(TECH.Exceptions.InvalidInputException).%New("ProductieLijn bestaat niet.")
-		Do Exceptie.VoegToeExtraInfo("ProductieLijn: "_ProductieLijn)
-		Do ##class(TECH.ExceptionHandler).Throw(Exceptie)
- 	}
-	#dim Naam As TECH.String = ""
-	If ProductieLijn = ##class(APPS.Halux.common.enu.ProductieLijn).Een() {
-		Set Naam = "HALUX-LED-L1" ; zie DNS
-	} ElseIf ProductieLijn = ##class(APPS.Halux.common.enu.ProductieLijn).Twee(){
-		Set Naam = "HALUX-LED-L2" ; zie DNS
-	} Else {
-		Set Exceptie = ##class(TECH.Exceptions.GeneralErrorException).%New("Productielijn heeft geen devicenaam - "_ProductieLijn)
-		Do ##class(TECH.ExceptionHandler).Throw(Exceptie)
-	}
-	Quit Naam
-]]></Implementation>
-</Method>
-
 <Method name="GeefOrderedBatchLijst">
 <FormalSpec>ProductieLijn:APPS.Halux.common.enu.ProductieLijn</FormalSpec>
 <Private>1</Private>