Index: APPS/Halux/TBX/impl/WerkpostZaag.cls.xml
===================================================================
diff -u -r1133 -r2225
--- APPS/Halux/TBX/impl/WerkpostZaag.cls.xml	(.../WerkpostZaag.cls.xml)	(revision 1133)
+++ APPS/Halux/TBX/impl/WerkpostZaag.cls.xml	(.../WerkpostZaag.cls.xml)	(revision 2225)
@@ -7,13 +7,30 @@
 <ClassDefinitionError>0</ClassDefinitionError>
 
 <Parameter name="DeviceLabelApplicator">
-<Default>CABApplicator</Default>
+<Default>Halux_Zaag_Appl</Default>
 </Parameter>
 
 <Parameter name="DeviceLabelBackup">
-<Default>CABBackup</Default>
+<Default>Halux_Zaag_Appl</Default>
 </Parameter>
 
+<Property name="Logger">
+<Type>vhLib.Logger</Type>
+</Property>
+
+<Parameter name="LoggerGroup">
+<Default>Halux.TBX.ZAAG</Default>
+</Parameter>
+
+<Method name="%OnNew">
+<Private>1</Private>
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[
+	Set ..Logger=##class(vhLib.Logger).%New(..#LoggerGroup)
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
 <Method name="BeschadigingLade">
 <Description>
 </Description>
@@ -33,9 +50,11 @@
 </Method>
 
 <Method name="GeefBatchLijst">
-<FormalSpec>ProductieLijn:APPS.Halux.TBX.enu.ProductieLijn</FormalSpec>
+<FormalSpec>ProductieLijn:APPS.Halux.TBX.enu.ZaagProductieLijn</FormalSpec>
 <ReturnType>%XML.DataSet</ReturnType>
 <Implementation><![CDATA[
+	
+	Set Log=..Logger.Debug("GeefBatchLijst", "Lijn:"_$G(ProductieLijn))
 	Set DataSet=##class(%XML.DataSet).%New("APPS.Halux.TBX.impl.ZaagLijstHelper:qActieveBatchLijst")
 	
 	Quit DataSet
@@ -46,6 +65,8 @@
 <FormalSpec>L1BatchKey:%String,L2BatchKey:%String,DirectBatchKey:%String</FormalSpec>
 <ReturnType>%XML.DataSet</ReturnType>
 <Implementation><![CDATA[
+	Set Log=..Logger.Debug("SyncBatches", "L1:"_$G(L1BatchKey)_", L2:"_$G(L2BatchKey)_", Di:"_$G(DirectBatchKey))
+
 	Set DataSet=##class(%XML.DataSet).%New("APPS.Halux.TBX.impl.WerkpostZaagHelper:qSyncBatch")
 	Do DataSet.SetArgs(L1BatchKey, L2BatchKey, DirectBatchKey)
 
@@ -54,9 +75,10 @@
 </Method>
 
 <Method name="GeefZaagLijst">
-<FormalSpec>BatchKey:%String,ProductieLijn:APPS.Halux.TBX.enu.ProductieLijn</FormalSpec>
+<FormalSpec>BatchKey:%String,ProductieLijn:APPS.Halux.TBX.enu.ZaagProductieLijn</FormalSpec>
 <ReturnType>%XML.DataSet</ReturnType>
 <Implementation><![CDATA[
+	Set Log=..Logger.Debug("GeefZaagLijst", "Batch:"_BatchKey_", Lijn:"_$G(ProductieLijn))
 	Set DataSet=##class(%XML.DataSet).%New("APPS.Halux.TBX.impl.ZaagLijstHelper:qZaagLijst")
 	Do DataSet.SetArgs($P(BatchKey,"||"),$P(BatchKey,"||",2))
 	Quit DataSet
@@ -67,6 +89,7 @@
 <FormalSpec>BodemRug:APPS.Halux.TBX.enu.BodemRug</FormalSpec>
 <ReturnType>%XML.DataSet</ReturnType>
 <Implementation><![CDATA[
+	Set Log=..Logger.Debug("GeefPlaatMateriaal", "BodemRug:"_BodemRug)
 	Set DataSet=##class(%XML.DataSet).%New("APPS.Halux.TBX.impl.PlaatMateriaalHelper:qPlatenLijst")
 	Do DataSet.SetArgs(BodemRug)
 	
@@ -78,6 +101,7 @@
 <FormalSpec>Werkpost:APPS.Halux.TBX.enu.Werkpost</FormalSpec>
 <ReturnType>%XML.DataSet</ReturnType>
 <Implementation><![CDATA[
+	Set Log=..Logger.Debug("GeefStilstanden", "Werkpost:"_Werkpost)
 	Set DataSet=##class(%XML.DataSet).%New("APPS.Halux.TBX.impl.StilstandenHelper:qStilstandenLijst")
 	Do DataSet.SetArgs(Werkpost)
 	
@@ -90,6 +114,7 @@
 </Description>
 <FormalSpec>ZaagID:%Integer,Device:APPS.Halux.TBX.enu.PrintDevice</FormalSpec>
 <Implementation><![CDATA[
+	Set Log=..Logger.Debug("PrintLabel", "ZaagID:"_ZaagID_", Device:"_Device)
 	Set ZaagOpdracht=##class(APPS.Halux.TBX.ZaagOpdrachten).%OpenId(ZaagID)
 	If '$isObject(ZaagOpdracht) $$$ThrowError($$$errObjectExpected,"Zaagopdracht wrong ID:"_ZaagID)
 	Do ##class(APPS.Halux.TBX.impl.WerkpostZaagHelper).AfdrukkenZaagEtiket(ZaagOpdracht,..GetLabelPrinter(Device))
@@ -107,7 +132,7 @@
 	}
 	ElseIf Device = ##class(APPS.Halux.TBX.enu.PrintDevice).LabelBackup() 
 	{
-		Set Printer=..#DeviceLabelBackup
+		Set Printer = ..#DeviceLabelBackup
 	}
 	
 	Quit $G(Printer)
@@ -118,14 +143,17 @@
 <Description>
 </Description>
 <FormalSpec>Titel:%String,BodemHoogte:%Integer,BodemLengte:%Float,RugHoogte:%Integer,RugLengte:%Float,Device:APPS.Halux.TBX.enu.PrintDevice</FormalSpec>
+<Implementation><![CDATA[	Set Log=..Logger.Debug("PrintLabelManueel", "Device:"_Device)
+]]></Implementation>
 </Method>
 
 <Method name="RegistreerStilstand">
 <Description>
 </Description>
 <FormalSpec>Werkpost:APPS.Halux.TBX.enu.Werkpost,Reden:%String,Duur:%Integer,ZaagID:%Integer=""</FormalSpec>
 <Implementation><![CDATA[
-	
+	Set Log=..Logger.Debug("RegistreerStilstand", "Werkpost:"_Werkpost_", Reden:"_Reden)
+
 	Set ZaagOpdracht=##class(APPS.Halux.TBX.ZaagOpdrachten).%OpenId(ZaagID)
 	If $isObject(ZaagOpdracht)
 	{
@@ -141,19 +169,22 @@
 
 <Method name="ZetStatus">
 <Description>
-d ##class(APPS.Halux.TBX.impl.WerkpostZaag).%New().ZetStatus(8814,"W","L1")</Description>
-<FormalSpec>WerkPost:APPS.Halux.TBX.enu.Werkpost,ZaagID:%Integer,NewStatus:APPS.Halux.TBX.enu.Status,ProductieLijn:APPS.Halux.TBX.enu.ProductieLijn</FormalSpec>
+d ##class(APPS.Halux.TBX.impl.WerkpostZaag).%New().ZetStatus("Z1",518,"F","L1")</Description>
+<FormalSpec>WerkPost:APPS.Halux.TBX.enu.Werkpost,ZaagID:%Integer,NewStatus:APPS.Halux.TBX.enu.ZaagStatus,ProductieLijn:APPS.Halux.TBX.enu.ZaagProductieLijn</FormalSpec>
 <Implementation><![CDATA[
+	Set Log=..Logger.Debug("ZetStatus", "ZaagID:"_ZaagID_", NewStatus:"_NewStatus_", Lijn:"_ProductieLijn)
+
 	Set ZaagOpdracht=##class(APPS.Halux.TBX.ZaagOpdrachten).%OpenId(ZaagID)
 	If '$isObject(ZaagOpdracht) $$$ThrowError($$$errObjectExpected,"Zaagopdracht wrong ID:"_ZaagID)
 	Set ZaagOpdracht.Status=NewStatus
-	Set:NewStatus=##class(APPS.Halux.TBX.enu.Status).Finished() ZaagOpdracht.ProductieLijn=ProductieLijn
+	Set:NewStatus=##class(APPS.Halux.TBX.enu.ZaagStatus).Finished() ZaagOpdracht.ProductieLijn=ProductieLijn
 	Set sc=ZaagOpdracht.%Save()
 	If $$$ISERR(sc) $$$ThrowErrorStatus($$$errSaveFailed,"Zaagopdracht:"_ZaagID,sc)
 	
 	If 'ZaagOpdracht.IsHerstelling
 	{
-		Do ZaagOpdracht.Batch.StartZaag(ProductieLijn)
+		Do:ProductieLijn=##class(APPS.Halux.TBX.enu.ZaagProductieLijn).Lijn1() ZaagOpdracht.Batch.ZetLijn(##class(APPS.Halux.common.enu.ProductieLijn).Een())
+		Do:ProductieLijn=##class(APPS.Halux.TBX.enu.ZaagProductieLijn).Lijn2() ZaagOpdracht.Batch.ZetLijn(##class(APPS.Halux.common.enu.ProductieLijn).Twee())
 		Set sc=ZaagOpdracht.Batch.%Save()
 		If $$$ISERR(sc) $$$ThrowErrorStatus($$$errSaveFailed,"Batch:"_ZaagOpdracht.Batch.%Id(),sc)