Index: APPS/Halux/PPS/TBXZaag/dto/Opdracht.cls.xml
===================================================================
diff -u -r2575 -r2741
--- APPS/Halux/PPS/TBXZaag/dto/Opdracht.cls.xml	(.../Opdracht.cls.xml)	(revision 2575)
+++ APPS/Halux/PPS/TBXZaag/dto/Opdracht.cls.xml	(.../Opdracht.cls.xml)	(revision 2741)
@@ -106,7 +106,9 @@
 <FormalSpec>ZaagID</FormalSpec>
 <Implementation><![CDATA[
 	Set ZaagOpdracht=##class(APPS.Halux.PPS.TBXZaag.Opdrachten).%OpenId(ZaagID)
+	;d DumpObject^%apiOBJ(ZaagOpdracht)
 	Set Queue=ZaagOpdracht.Queue
+	;d DumpObject^%apiOBJ(Queue)
 	Set ProductAPI = ##class(DOM.DomeinContext).Instance().GeefProductAPI() ; extends DOM.PM.TBXProduct.TBXLade
 	Set Lade = ProductAPI.GeefProduct(Queue.Product.%Id())
 	
Index: APPS/Halux/PPS/TBXZaag/dto/PlaatMateriaal.cls.xml
===================================================================
diff -u -r2588 -r2741
--- APPS/Halux/PPS/TBXZaag/dto/PlaatMateriaal.cls.xml	(.../PlaatMateriaal.cls.xml)	(revision 2588)
+++ APPS/Halux/PPS/TBXZaag/dto/PlaatMateriaal.cls.xml	(.../PlaatMateriaal.cls.xml)	(revision 2741)
@@ -40,15 +40,15 @@
 
 <Method name="GetBodem">
 <ClassMethod>1</ClassMethod>
-<FormalSpec>Plaat:DOM.PM.TBXProduct.TBXLade</FormalSpec>
+<FormalSpec>Plaat:DOM.PM.Product</FormalSpec>
 <ReturnType>APPS.Halux.PPS.TBXZaag.dto.OpdrachtPlaat</ReturnType>
 <Implementation><![CDATA[
 	Set dtoPlaat=..%New()
 	Set dtoPlaat.Type=##class(APPS.Halux.PPS.TBXZaag.enu.BodemRug).Bodem()
 	Set dtoPlaat.Kleuren=..TranslateKleuren(Plaat.GeefKleuren())
 	Set dtoPlaat.Hoogte=Plaat.GeefDiepte()
 	Set dtoPlaat.HoogteOms=Plaat.GeefDiepteVanLade()
-	Set dtoPlaat.HoogteEnKleurOms=dtoPlaat.HoogteOms_" "_dtoPlaat.Kleuren
+	Set dtoPlaat.HoogteEnKleurOms=dtoPlaat.HoogteOms_" "_dtoPlaat.Kleuren_" "_$S(Plaat.GeefFSC()="GEEN":"",1:"FSC")
 	Set dtoPlaat.ProductNr=Plaat.GeefPRNr()
 	Set dtoPlaat.KortTekst=Plaat.GeefKorttekst()
 	Set dtoPlaat.ImageURL=Plaat.GeefBiKleurenImageURL()
@@ -58,21 +58,21 @@
 
 <Method name="GetPlaatKey">
 <CodeMode>expression</CodeMode>
-<Implementation><![CDATA[..Type_","_..Kleuren_","_..Hoogte
+<Implementation><![CDATA[..Type_","_..Kleuren_","_..Hoogte_","_..ProductNr
 ]]></Implementation>
 </Method>
 
 <Method name="GetRug">
 <ClassMethod>1</ClassMethod>
-<FormalSpec>Plaat:DOM.PM.TBXProduct.TBXLade</FormalSpec>
+<FormalSpec>Plaat:DOM.PM.Product</FormalSpec>
 <ReturnType>APPS.Halux.PPS.TBXZaag.dto.OpdrachtPlaat</ReturnType>
 <Implementation><![CDATA[
 	Set dtoPlaat=..%New()
 	Set dtoPlaat.Type=##class(APPS.Halux.PPS.TBXZaag.enu.BodemRug).Rug()
 	Set dtoPlaat.Kleuren=..TranslateKleuren(Plaat.GeefKleuren())
 	Set dtoPlaat.Hoogte=Plaat.GeefHoogte()
 	Set dtoPlaat.HoogteOms=Plaat.GeefHoogteVanLade()_" "_dtoPlaat.Hoogte
-	Set dtoPlaat.HoogteEnKleurOms=dtoPlaat.HoogteOms_" "_dtoPlaat.Kleuren
+	Set dtoPlaat.HoogteEnKleurOms=dtoPlaat.HoogteOms_" "_dtoPlaat.Kleuren_" "_$S(Plaat.GeefFSC()="GEEN":"",1:"FSC")
 	Set dtoPlaat.ProductNr=Plaat.GeefPRNr()
 	Set dtoPlaat.KortTekst=Plaat.GeefKorttekst()
 	Set dtoPlaat.ImageURL=Plaat.GeefBiKleurenImageURL()
Index: WS/Halux/PPS/TBXZaagServer.cls.xml
===================================================================
diff -u -r2686 -r2741
--- WS/Halux/PPS/TBXZaagServer.cls.xml	(.../TBXZaagServer.cls.xml)	(revision 2686)
+++ WS/Halux/PPS/TBXZaagServer.cls.xml	(.../TBXZaagServer.cls.xml)	(revision 2741)
@@ -22,7 +22,7 @@
 </Parameter>
 
 <Parameter name="SessionKey">
-<Default>HALUXZAAG</Default>
+<Default>HOFFMANN ZAAG</Default>
 </Parameter>
 
 <Property name="iWerkpost">
@@ -35,7 +35,7 @@
      Geeft de resultset met actieve batches, waarbij de batches opgedeeld zijn in subbatches voor TipOn en Spoelbak.
 <br/> De LijnNr geeft de beperking tot die batches die bestemd zijn voor een bepaalde lijn
 <br/> Opm : SessionKey en Werkpost zijn constante waarden]]></Description>
-<FormalSpec>SessionKey:%String,Werkpost:APPS.Halux.common.enu.Werkpost,LijnNr:%String</FormalSpec>
+<FormalSpec>SessionKey:%String,Werkpost:APPS.Halux.common.enu.Werkpost,LijnNr:APPS.Halux.PPS.TBXZaag.enu.Output2Lijn</FormalSpec>
 <ReturnType>%XML.DataSet</ReturnType>
 <WebMethod>1</WebMethod>
 <Implementation><![CDATA[
@@ -133,7 +133,7 @@
 <Implementation><![CDATA[
 	$$$TECHErrorTrapOn
 	Do ..GeefImplementatie(SessionKey, Werkpost)
-	Do ..iWerkpost.PrintLabel(ZaagID, Device)
+	Do ..iWerkpost.PrintLabel(ZaagID, Output2Lijn, Device)
 ]]></Implementation>
 </Method>
 
@@ -289,15 +289,20 @@
 <Method name="ControleSession">
 <FormalSpec>Session:%String,Werkpost:APPS.Halux.common.enu.Werkpost</FormalSpec>
 <Private>1</Private>
-<Implementation><![CDATA[	Quit $$$OK
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[
+	Quit:Session'=..#SessionKey $$$ERROR("Foutieve sessie: "_Session)
+	Quit:Werkpost'=##class(APPS.Halux.common.enu.Werkpost).Zaag1() $$$ERROR("Foutieve werkpost: "_Werkpost)
+	Quit $$$OK
 ]]></Implementation>
 </Method>
 
 <Method name="GeefImplementatie">
 <FormalSpec>SessionKey:%String="",Werkpost:APPS.Halux.common.enu.Werkpost=""</FormalSpec>
 <Private>1</Private>
 <Implementation><![CDATA[
-	If '..ControleSession(SessionKey,Werkpost) $$$ThrowError($$$errGeneralError,"Wrong session")
+	Set sc=..ControleSession(SessionKey,Werkpost)
+	If $$$ISERR(sc) $$$ThrowErrorStatus($$$errGeneralError,"Controle session",sc)
 	
 	Set ..iWerkpost=##class(APPS.Halux.PPS.TBXZaag.impl.Werkpost).%New(Werkpost)
 	If '$isObject(..iWerkpost) $$$ThrowError($$$errGeneralError,"No implementation for "_Werkpost)
Index: DOM/PM/Product.cls.xml
===================================================================
diff -u -r2620 -r2741
--- DOM/PM/Product.cls.xml	(.../Product.cls.xml)	(revision 2620)
+++ DOM/PM/Product.cls.xml	(.../Product.cls.xml)	(revision 2741)
@@ -134,5 +134,10 @@
 <Abstract>1</Abstract>
 <ReturnType>DOM.PM.SubgroepClassificatie</ReturnType>
 </Method>
+
+<Method name="GeefFSC">
+<Abstract>1</Abstract>
+<ReturnType>%String</ReturnType>
+</Method>
 </Class>
 </Export>
Index: APPS/Halux/PPS/TBXZaag/impl/Werkpost.cls.xml
===================================================================
diff -u -r2686 -r2741
--- APPS/Halux/PPS/TBXZaag/impl/Werkpost.cls.xml	(.../Werkpost.cls.xml)	(revision 2686)
+++ APPS/Halux/PPS/TBXZaag/impl/Werkpost.cls.xml	(.../Werkpost.cls.xml)	(revision 2741)
@@ -127,7 +127,7 @@
 <Method name="RegistreerStilstand">
 <FormalSpec>Reden:%String,Duur:%Integer,ZaagID:%String=""</FormalSpec>
 <Implementation><![CDATA[
-	Set Log=..Logger.Debug("RegistreerStilstand", "Werkpost:"_Werkpost_", Reden:"_Reden)
+	Set Log=..Logger.Debug("RegistreerStilstand", "Werkpost:"_..Werkpost_", Reden:"_Reden)
 
 	Set ZaagOpdracht=##class(APPS.Halux.PPS.TBXZaag.Opdrachten).%OpenId(ZaagID)
 	If $isObject(ZaagOpdracht)
Index: DOM/PM/impl/ProductImpl.cls.xml
===================================================================
diff -u -r2620 -r2741
--- DOM/PM/impl/ProductImpl.cls.xml	(.../ProductImpl.cls.xml)	(revision 2620)
+++ DOM/PM/impl/ProductImpl.cls.xml	(.../ProductImpl.cls.xml)	(revision 2741)
@@ -181,5 +181,11 @@
 <Implementation><![CDATA[	Quit ..Product.GeefAantalInKleinVerpakking()
 ]]></Implementation>
 </Method>
+
+<Method name="GeefFSC">
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[	Quit ##class(DOM.PR.FSC).CalcFSCCode(..GeefPRNr())
+]]></Implementation>
+</Method>
 </Class>
 </Export>