Index: APPS/Halux/TBX/enu/ZaagProductieLijn.cls.xml
===================================================================
diff -u
--- APPS/Halux/TBX/enu/ZaagProductieLijn.cls.xml	(revision 0)
+++ APPS/Halux/TBX/enu/ZaagProductieLijn.cls.xml	(revision 2225)
@@ -0,0 +1,34 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="9">
+<Class name="APPS.Halux.TBX.enu.ZaagProductieLijn">
+<ClassType>datatype</ClassType>
+<ProcedureBlock>1</ProcedureBlock>
+<Super>%String</Super>
+<ClassDefinitionError>0</ClassDefinitionError>
+
+<Parameter name="VALUELIST">
+<Default>,L1,L2,DI</Default>
+</Parameter>
+
+<Method name="Lijn1">
+<ClassMethod>1</ClassMethod>
+<CodeMode>expression</CodeMode>
+<Implementation><![CDATA["L1"
+]]></Implementation>
+</Method>
+
+<Method name="Lijn2">
+<ClassMethod>1</ClassMethod>
+<CodeMode>expression</CodeMode>
+<Implementation><![CDATA["L2"
+]]></Implementation>
+</Method>
+
+<Method name="Direct">
+<ClassMethod>1</ClassMethod>
+<CodeMode>expression</CodeMode>
+<Implementation><![CDATA["DI"
+]]></Implementation>
+</Method>
+</Class>
+</Export>
Index: APPS/Halux/TBX/impl/Test.cls.xml
===================================================================
diff -u -r1133 -r2225
--- APPS/Halux/TBX/impl/Test.cls.xml	(.../Test.cls.xml)	(revision 1133)
+++ APPS/Halux/TBX/impl/Test.cls.xml	(.../Test.cls.xml)	(revision 2225)
@@ -10,13 +10,22 @@
 Do ##class(APPS.Halux.TBX.impl.Test).Build()</Description>
 <ClassMethod>1</ClassMethod>
 <Implementation><![CDATA[
-	Set IDs=$lb(8877,8879,8880,8881,8882,8883,8884,8885,8886,8887,8888,8889,8889,8900)
+ 	/* For BatchID=7:1:8 {
+ 		Set bl=##class(APPS.Halux.TBX.impl.ZaagBatchBuild).%New(BatchID)
+		Do bl.RemoveBatches()
+	}*/
+
+	Set BatchService=##class(APPS.Halux.common.BatchService).%New()
+	Set it=BatchService.GeefActieveBatchIterator()
+	Set IDs=$lb(10653,10652,10651,10650,10649,10648)
 	For I=1:1:$LL(IDs) {
 		Set BatchID=$LI(IDs,I)
+		;Do ..Sequence(BatchID)
 		Set bl=##class(APPS.Halux.TBX.impl.ZaagBatchBuild).%New(BatchID)
 		Do bl.RemoveBatches()
 		Do bl.BuildBatchesFromQueue()
 		}	
+		
 	Set rs=##class(%ResultSet).%New("APPS.Halux.TBX.impl.ZaagLijstHelper:qActieveBatchLijst")
 	Set sc=rs.Execute() w $$ParseStatus^vhLib(sc)
 	While (rs.Next()){
@@ -26,6 +35,43 @@
 ]]></Implementation>
 </Method>
 
+<Method name="BuildAll">
+<Description>
+Do ##class(APPS.Halux.TBX.impl.Test).BuildAll()</Description>
+<ClassMethod>1</ClassMethod>
+<Implementation><![CDATA[
+	Set BatchService=##class(APPS.Halux.common.BatchService).%New()
+	Set itB=BatchService.GeefActieveBatchIterator()
+	While itB.HasNext()
+	{
+		Set Batch=itB.Next()
+		Set BatchID=Batch.GeefBatchID()
+		Set Cnt=BatchService.HasQueue(BatchID)
+		Do ..Sequence(BatchID)
+		w "Build batch ",BatchID," ",Cnt,!
+		Set bl=##class(APPS.Halux.TBX.impl.ZaagBatchBuild).%New(BatchID)
+		Do bl.RemoveBatches()
+		;Do bl.BuildBatchesFromQueue()
+		}
+	Set rs=##class(%ResultSet).%New("APPS.Halux.TBX.impl.ZaagLijstHelper:qActieveBatchLijst")
+	Set sc=rs.Execute() w $$ParseStatus^vhLib(sc)
+	While (rs.Next()){
+		Write rs.Data("BatchKey")
+		Write !
+	}
+]]></Implementation>
+</Method>
+
+<Method name="Sequence">
+<ClassMethod>1</ClassMethod>
+<FormalSpec>BatchID</FormalSpec>
+<Implementation><![CDATA[
+	Set blSequencer=##Class(BL.PPS.TBX.Sequencer).Instantiate()
+	Do blSequencer.Init(BatchID,"S")	
+	Do blSequencer.BldLeanV1Sequence(.Aantal)
+]]></Implementation>
+</Method>
+
 <Method name="Stilstand">
 <Description>
 Do ##class(APPS.Halux.TBX.impl.Test).Stilstand()</Description>
@@ -45,7 +91,7 @@
 	w !
 	s t1=$zh
 	Set rs=##class(%ResultSet).%New("APPS.Halux.TBX.impl.WerkpostZaagHelper:qSyncBatch")
-	Set sc=rs.Execute(8886,8887,8888) w $$ParseStatus^vhLib(sc)
+	Set sc=rs.Execute("10651||","10651||TipOn","") w $$ParseStatus^vhLib(sc)
 	While (rs.Next()){
 	 ;Write $G(rs.Data("ID"))
 	 k %d m %d=rs.Data zw %d
@@ -101,7 +147,7 @@
 
 <Method name="Lijst">
 <Description>
-Do ##class(APPS.Halux.TBX.impl.Test).Lijst(8728,"TipOn")</Description>
+Do ##class(APPS.Halux.TBX.impl.Test).Lijst(10651,"TipOn")</Description>
 <ClassMethod>1</ClassMethod>
 <FormalSpec>BatchID,SubBatch</FormalSpec>
 <Implementation><![CDATA[
@@ -123,7 +169,7 @@
 
 <Method name="GetXML">
 <Description>
-Do ##class(APPS.Halux.TBX.impl.Test).GetXML()</Description>
+Do ##class(APPS.Halux.TBX.impl.Test).GetXML(7)</Description>
 <ClassMethod>1</ClassMethod>
 <FormalSpec>BatchID,SubBatch</FormalSpec>
 <Implementation><![CDATA[
@@ -200,7 +246,7 @@
 
 <UDLText name="T">
 <Content><![CDATA[
-// Do ##class(APPS.Halux.TBX.impl.Test).Test4(8728)
+// Do ##class(APPS.Halux.TBX.impl.Test).Test4(10653)
 
 ]]></Content>
 </UDLText>
@@ -219,6 +265,7 @@
 		;w ZaagID
 		Set Cnt=Cnt+1
 		Do bl.PrintLabel(ZaagID,"LA")
+		r "continue...",k
 	}
 	Write "Cnt:",Cnt,!
 ]]></Implementation>
Index: APPS/Halux/TBX/IWerkpostZaag.cls.xml
===================================================================
diff -u -r1073 -r2225
--- APPS/Halux/TBX/IWerkpostZaag.cls.xml	(.../IWerkpostZaag.cls.xml)	(revision 1073)
+++ APPS/Halux/TBX/IWerkpostZaag.cls.xml	(.../IWerkpostZaag.cls.xml)	(revision 2225)
@@ -24,7 +24,7 @@
 </Method>
 
 <Method name="GeefBatchLijst">
-<FormalSpec>ProductieLijn:APPS.Halux.TBX.enu.ProductieLijn</FormalSpec>
+<FormalSpec>ProductieLijn:APPS.Halux.TBX.enu.ZaagProductieLijn</FormalSpec>
 <ReturnType>%XML.DataSet</ReturnType>
 </Method>
 
@@ -34,7 +34,7 @@
 </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>
 </Method>
 
@@ -67,7 +67,7 @@
 </Method>
 
 <Method name="ZetStatus">
-<FormalSpec>WerkPost:APPS.Halux.TBX.enu.Werkpost,ZaagID:%Integer,NewStatus:APPS.Halux.TBX.enu.Status,Lijn:APPS.Halux.TBX.enu.ProductieLijn</FormalSpec>
+<FormalSpec>WerkPost:APPS.Halux.TBX.enu.Werkpost,ZaagID:%Integer,NewStatus:APPS.Halux.TBX.enu.ZaagStatus,Lijn:APPS.Halux.TBX.enu.ZaagProductieLijn</FormalSpec>
 </Method>
 
 <Method name="GetProductURL">
Index: APPS/Halux/TBX/enu/ZaagStatus.cls.xml
===================================================================
diff -u
--- APPS/Halux/TBX/enu/ZaagStatus.cls.xml	(revision 0)
+++ APPS/Halux/TBX/enu/ZaagStatus.cls.xml	(revision 2225)
@@ -0,0 +1,43 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="9">
+<Class name="APPS.Halux.TBX.enu.ZaagStatus">
+<ClassType>datatype</ClassType>
+<ProcedureBlock>1</ProcedureBlock>
+<Super>%String</Super>
+<ClassDefinitionError>0</ClassDefinitionError>
+
+<Parameter name="VALUELIST">
+<Default>,W,X,F,B</Default>
+</Parameter>
+
+<Method name="Wachtend">
+<Description>
+Parameter DISPLAYLIST = ",Wachtend,Ongeldig,Finished,Beschadigd";</Description>
+<ClassMethod>1</ClassMethod>
+<CodeMode>expression</CodeMode>
+<Implementation><![CDATA["W"
+]]></Implementation>
+</Method>
+
+<Method name="Ongeldig">
+<ClassMethod>1</ClassMethod>
+<CodeMode>expression</CodeMode>
+<Implementation><![CDATA["X"
+]]></Implementation>
+</Method>
+
+<Method name="Finished">
+<ClassMethod>1</ClassMethod>
+<CodeMode>expression</CodeMode>
+<Implementation><![CDATA["F"
+]]></Implementation>
+</Method>
+
+<Method name="Beschadigd">
+<ClassMethod>1</ClassMethod>
+<CodeMode>expression</CodeMode>
+<Implementation><![CDATA["B"
+]]></Implementation>
+</Method>
+</Class>
+</Export>
Index: APPS/Halux/TBX/dto/SyncBatch.cls.xml
===================================================================
diff -u -r1133 -r2225
--- APPS/Halux/TBX/dto/SyncBatch.cls.xml	(.../SyncBatch.cls.xml)	(revision 1133)
+++ APPS/Halux/TBX/dto/SyncBatch.cls.xml	(.../SyncBatch.cls.xml)	(revision 2225)
@@ -10,7 +10,7 @@
 </Property>
 
 <Property name="ProductieLijn">
-<Type>APPS.Halux.TBX.enu.ProductieLijn</Type>
+<Type>APPS.Halux.TBX.enu.ZaagProductieLijn</Type>
 </Property>
 
 <Property name="BatchChanged">
@@ -26,7 +26,7 @@
 </Property>
 
 <Method name="%OnNew">
-<FormalSpec>BatchKey:%String,ProductieLijn:APPS.Halux.TBX.enu.ProductieLijn</FormalSpec>
+<FormalSpec>BatchKey:%String,ProductieLijn:APPS.Halux.TBX.enu.ZaagProductieLijn</FormalSpec>
 <ReturnType>%Status</ReturnType>
 <Implementation><![CDATA[
 	Set ..BatchKey=$G(BatchKey)
Index: APPS/Halux/TBX/dto/ZaagOpdracht.cls.xml
===================================================================
diff -u -r1073 -r2225
--- APPS/Halux/TBX/dto/ZaagOpdracht.cls.xml	(.../ZaagOpdracht.cls.xml)	(revision 1073)
+++ APPS/Halux/TBX/dto/ZaagOpdracht.cls.xml	(.../ZaagOpdracht.cls.xml)	(revision 2225)
@@ -122,14 +122,15 @@
 	Set dtoOpdracht.SequenceNr=Queue.Sequence
 	Set dtoOpdracht.DeelAantal=Queue.DeelAantal
 	Set dtoOpdracht.TotaalAantal=Queue.TotaalAantal
-	Set dtoOpdracht.Status=ZaagOpdracht.Status
+	Set dtoOpdracht.Status="W" ;ZaagOpdracht.Status - tijdelijk PV tijdens testen
 	Set dtoOpdracht.BodemRug=ZaagOpdracht.BodemRug
 	Set dtoOpdracht.Titel=$CASE(ZaagOpdracht.BodemRug,##class(APPS.Halux.TBX.enu.BodemRug).BodemRug():"Bodem en rug",##class(APPS.Halux.TBX.enu.BodemRug).Bodem():"Bodem",##class(APPS.Halux.TBX.enu.BodemRug).Rug():"Rug",:"*** Special ***")
 	; plaatmateriaal
 	If dtoOpdracht.BodemRug=##class(APPS.Halux.TBX.enu.BodemRug).BodemRug()
 	{
 		Set dtoOpdracht.Bodem=##class(APPS.Halux.TBX.dto.Plaat).GetBodem(Queue,Lade)
 		Set dtoOpdracht.Rug=##class(APPS.Halux.TBX.dto.Plaat).GetRug(Queue,Lade)
+		Set dtoOpdracht.Rug.Breedte=dtoOpdracht.Bodem.Breedte-12 ; tijdelijk tijdens testen
 	}	
 	elseif dtoOpdracht.BodemRug=##class(APPS.Halux.TBX.enu.BodemRug).Bodem()
 	{ 
Index: APPS/Halux/TBX/ZaagOpdrachten.cls.xml
===================================================================
diff -u -r1073 -r2225
--- APPS/Halux/TBX/ZaagOpdrachten.cls.xml	(.../ZaagOpdrachten.cls.xml)	(revision 1073)
+++ APPS/Halux/TBX/ZaagOpdrachten.cls.xml	(.../ZaagOpdrachten.cls.xml)	(revision 2225)
@@ -31,13 +31,13 @@
 </Property>
 
 <Property name="ProductieLijn">
-<Type>APPS.Halux.TBX.enu.ProductieLijn</Type>
+<Type>APPS.Halux.TBX.enu.ZaagProductieLijn</Type>
 </Property>
 
 <Property name="Status">
 <Description>
 </Description>
-<Type>APPS.Halux.TBX.enu.Status</Type>
+<Type>APPS.Halux.TBX.enu.ZaagStatus</Type>
 </Property>
 
 <Property name="IsHerstelling">
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)
 		
Index: APPS/Halux/TBX/impl/ZaagBatchBuild.cls.xml
===================================================================
diff -u -r1867 -r2225
--- APPS/Halux/TBX/impl/ZaagBatchBuild.cls.xml	(.../ZaagBatchBuild.cls.xml)	(revision 1867)
+++ APPS/Halux/TBX/impl/ZaagBatchBuild.cls.xml	(.../ZaagBatchBuild.cls.xml)	(revision 2225)
@@ -59,14 +59,22 @@
 ]]></Implementation>
 </Method>
 
-<Method name="VerwerkTBXLadeMetUitsparing">
+<Method name="VerwerkTBXSifonlade">
 <Description>
 Triggered by visitor</Description>
-<FormalSpec>LadeMetUitsparing:DOM.PM.TBXProduct.TBXLadeMetUitsparing</FormalSpec>
-<Implementation><![CDATA[	Do ..AddZaagOpdracht(LadeMetUitsparing,##class(APPS.Halux.TBX.enu.SubBatch).SpoelbakSifon())
+<FormalSpec>Sifonlade:DOM.PM.TBXProduct.TBXSifonlade</FormalSpec>
+<Implementation><![CDATA[	Do ..AddZaagOpdracht(Sifonlade,##class(APPS.Halux.TBX.enu.SubBatch).SpoelbakSifon())
 ]]></Implementation>
 </Method>
 
+<Method name="VerwerkTBXSpoelbaklade">
+<Description>
+Triggered by visitor</Description>
+<FormalSpec>Spoelbaklade:DOM.PM.TBXProduct.TBXSpoelbaklade</FormalSpec>
+<Implementation><![CDATA[	Do ..AddZaagOpdracht(Spoelbaklade,##class(APPS.Halux.TBX.enu.SubBatch).SpoelbakSifon())
+]]></Implementation>
+</Method>
+
 <Method name="VerwerkTBXLade">
 <Description>
 Triggered by visitor</Description>
Index: APPS/Halux/TBX/impl/WerkpostZaagHelper.cls.xml
===================================================================
diff -u -r1133 -r2225
--- APPS/Halux/TBX/impl/WerkpostZaagHelper.cls.xml	(.../WerkpostZaagHelper.cls.xml)	(revision 1133)
+++ APPS/Halux/TBX/impl/WerkpostZaagHelper.cls.xml	(.../WerkpostZaagHelper.cls.xml)	(revision 2225)
@@ -28,11 +28,11 @@
 <ReturnType>%Status</ReturnType>
 <Implementation><![CDATA[
 	Set %ProdLijnen=##class(%ArrayOfObjects).%New()
-	Set SyncBatch=##class(APPS.Halux.TBX.dto.SyncBatch).%New($G(L1BatchKey),##class(APPS.Halux.TBX.enu.ProductieLijn).Lijn1())
+	Set SyncBatch=##class(APPS.Halux.TBX.dto.SyncBatch).%New($G(L1BatchKey),##class(APPS.Halux.TBX.enu.ZaagProductieLijn).Lijn1())
 	Do %ProdLijnen.SetAt(SyncBatch,SyncBatch.ProductieLijn)
-	Set SyncBatch=##class(APPS.Halux.TBX.dto.SyncBatch).%New($G(L2BatchKey),##class(APPS.Halux.TBX.enu.ProductieLijn).Lijn2())
+	Set SyncBatch=##class(APPS.Halux.TBX.dto.SyncBatch).%New($G(L2BatchKey),##class(APPS.Halux.TBX.enu.ZaagProductieLijn).Lijn2())
 	Do %ProdLijnen.SetAt(SyncBatch,SyncBatch.ProductieLijn)
-	Set SyncBatch=##class(APPS.Halux.TBX.dto.SyncBatch).%New($G(DirectBatchKey),##class(APPS.Halux.TBX.enu.ProductieLijn).Direct())
+	Set SyncBatch=##class(APPS.Halux.TBX.dto.SyncBatch).%New($G(DirectBatchKey),##class(APPS.Halux.TBX.enu.ZaagProductieLijn).Direct())
 	Do %ProdLijnen.SetAt(SyncBatch,SyncBatch.ProductieLijn)
 	
 	Do ##class(WerkpostZaagHelper).CalcBufferLength(%ProdLijnen)
@@ -81,13 +81,18 @@
 <Implementation><![CDATA[
 	Set blPrint=##class(BL.PPS.TBX.DocsV1).%New()
 	Do blPrint.Init(ZaagOpdracht.Batch.%Id(), "", Device)
-	
+	Set ProductAPI = ##class(DOM.DomeinContext).Instance().GeefProductAPI()
+	Set Product=ProductAPI.GeefProduct(ZaagOpdracht.Product.%Id())
 	Set SequenceNr=ZaagOpdracht.Queue.Sequence
-	If ZaagOpdracht.SubBatch=##class(APPS.Halux.TBX.enu.SubBatch).SpoelbakSifon() 
+	If Product.IsSpoelbakLade() 
 	{	
-		Do blPrint.EtikettenSpoelbakSifon(SequenceNr, SequenceNr)
+		Do blPrint.EtikettenSpoelbak(SequenceNr, SequenceNr)
 	}
-	ElseIf ZaagOpdracht.SubBatch=##class(APPS.Halux.TBX.enu.SubBatch).TipOn() 
+	ElseIf Product.IsSifonLade() 
+	{	
+		Do blPrint.EtikettenSifon(SequenceNr, SequenceNr)
+	}
+	ElseIf Product.BevatTipOn() 
 	{
 		Do blPrint.EtikettenTipon(SequenceNr, SequenceNr)
 	}
@@ -122,7 +127,19 @@
 <Method name="MarkChangedBatches">
 <ClassMethod>1</ClassMethod>
 <FormalSpec>ProdLijnen:%ArrayOfObjects</FormalSpec>
-<Implementation><![CDATA[	/* TODO */
+<Implementation><![CDATA[
+	Set Key=""
+	Set Lijn=ProdLijnen.GetNext(.Key)
+	While Key'=""
+	{
+		If Lijn.BatchKey'=""
+		{
+			Set Lijn.BatchChanged=($R(100)>90)
+			Set Lijn.BufferAantal=$R(10)
+			Set Lijn.BufferLengte=$R(1000)
+		}
+		Set Lijn=ProdLijnen.GetNext(.Key)
+	}
 ]]></Implementation>
 </Method>
 </Class>
Index: APPS/Halux/TBX/impl/PlaatMateriaalHelper.cls.xml
===================================================================
diff -u -r1073 -r2225
--- APPS/Halux/TBX/impl/PlaatMateriaalHelper.cls.xml	(.../PlaatMateriaalHelper.cls.xml)	(revision 1073)
+++ APPS/Halux/TBX/impl/PlaatMateriaalHelper.cls.xml	(.../PlaatMateriaalHelper.cls.xml)	(revision 2225)
@@ -9,15 +9,15 @@
 <Type>%Query</Type>
 <FormalSpec>BodemRug:APPS.Halux.TBX.enu.BodemRug</FormalSpec>
 <SqlProc>1</SqlProc>
-<Parameter name="ROWSPEC" value="Type:%String,HoogteEnKleurOms:%String,HoogteOms:%String, Kleuren:%String, ProductID:%Integer, Korttekst:%String, ImageURL:%String"/>
+<Parameter name="ROWSPEC" value="Type:%String,HoogteEnKleurOms:%String,HoogteOms:%String, Kleuren:%String, ProductID:%Integer, Korttekst:%String, ImageURL:%String,Hoogte:%Float"/>
 </Query>
 
 <Method name="qPlatenLijstExecute">
 <ClassMethod>1</ClassMethod>
 <FormalSpec><![CDATA[&qHandle:%Binary,BodemRug:APPS.Halux.TBX.enu.BodemRug]]></FormalSpec>
 <ReturnType>%Status</ReturnType>
 <Implementation><![CDATA[
-	Set %Platen=..GetPlaten()
+	Set %Platen=..GetPlaten(BodemRug)
 	Set %PlatenKey=""
 	Quit $$$OK
 ]]></Implementation>
@@ -59,18 +59,23 @@
 <Description>
 d ##class(APPS.Halux.TBX.impl.PlaatMateriaalHelper).GetPlaten()</Description>
 <ClassMethod>1</ClassMethod>
+<FormalSpec>BodemRug</FormalSpec>
 <ReturnType>%ArrayOfObjects</ReturnType>
 <Implementation><![CDATA[
 	Set ArrayOfObjects=##class(%ArrayOfObjects).%New()
 	Kill %PlatenArray
-
-	Do ..GetPlatenViaKenmerk("%PlatenArray",##class(APPS.Halux.TBX.enu.BodemRug).Bodem())
-	Do ..Convert2dto(##class(APPS.Halux.TBX.enu.BodemRug).Bodem(),"%PlatenArray",ArrayOfObjects)
-
-	Do ..GetPlatenViaKenmerk("%PlatenArray",##class(APPS.Halux.TBX.enu.BodemRug).Rug())
-	Do ..Convert2dto(##class(APPS.Halux.TBX.enu.BodemRug).Rug(),"%PlatenArray",ArrayOfObjects)
+	If (BodemRug=##class(APPS.Halux.TBX.enu.BodemRug).Bodem())||(BodemRug=##class(APPS.Halux.TBX.enu.BodemRug).BodemRug())||(BodemRug="")
+	{
+		Do ..GetPlatenViaKenmerk("%PlatenArray",##class(APPS.Halux.TBX.enu.BodemRug).Bodem())
+		Do ..Convert2dto(##class(APPS.Halux.TBX.enu.BodemRug).Bodem(),"%PlatenArray",ArrayOfObjects)
+	}
+	
+	If (BodemRug=##class(APPS.Halux.TBX.enu.BodemRug).Rug())||(BodemRug=##class(APPS.Halux.TBX.enu.BodemRug).BodemRug())||(BodemRug="")
+	{
+		Do ..GetPlatenViaKenmerk("%PlatenArray",##class(APPS.Halux.TBX.enu.BodemRug).Rug())
+		Do ..Convert2dto(##class(APPS.Halux.TBX.enu.BodemRug).Rug(),"%PlatenArray",ArrayOfObjects)
+	}
 	Kill %PlatenArray
-	w ArrayOfObjects.Count(),!!
 	Quit ArrayOfObjects
 ]]></Implementation>
 </Method>
Index: APPS/Halux/TBX/dto/Plaat.cls.xml
===================================================================
diff -u -r1073 -r2225
--- APPS/Halux/TBX/dto/Plaat.cls.xml	(.../Plaat.cls.xml)	(revision 1073)
+++ APPS/Halux/TBX/dto/Plaat.cls.xml	(.../Plaat.cls.xml)	(revision 2225)
@@ -97,9 +97,9 @@
 	Set dtoPlaat.Bewerking=Lade.GeefBodemBewerking()
 	Set dtoPlaat.KleurZichtbaar=Lade.GeefBodemKleur()
 	Set dtoPlaat.Kleur2de=Lade.GeefBodem().GeefKleur2de(dtoPlaat.KleurZichtbaar)
-	Set dtoPlaat.Hoogte=Lade.GeefBodemDiepte()
+	Set dtoPlaat.Hoogte=596 ;Lade.GeefBodemDiepte()
 	Set dtoPlaat.HoogteOms=Lade.GeefBodem().GeefDiepte()
-	Set dtoPlaat.Breedte=Lade.GeefBodemBreedte()
+	Set dtoPlaat.Breedte=300+$Random(200) ;Lade.GeefBodemBreedte()
 	Set dtoPlaat.HoogteSensor=1
 	Set dtoPlaat.AanslagSensor=1
 	Set dtoPlaat.ProductNr=Lade.GeefBodem().GeefPRNr()
@@ -124,7 +124,7 @@
 	Set dtoPlaat.KleurZichtbaar=Lade.GeefRugKleur()
 	Set dtoPlaat.Kleur2de=Lade.GeefRug().GeefKleur2de(dtoPlaat.KleurZichtbaar)
 	Set dtoPlaat.Hoogte=Lade.GeefRugHoogteMM()
-	Set dtoPlaat.HoogteOms=Lade.GeefRugHoogte()
+	Set dtoPlaat.HoogteOms=Lade.GeefRugHoogte()_" "_Lade.GeefRugHoogteMM()
 	Set dtoPlaat.Breedte=Lade.GeefRugBreedte()
 	Set dtoPlaat.HoogteSensor=1
 	Set dtoPlaat.AanslagSensor=1
Index: APPS/Halux/TBX/dto/PlaatMateriaal.cls.xml
===================================================================
diff -u -r1073 -r2225
--- APPS/Halux/TBX/dto/PlaatMateriaal.cls.xml	(.../PlaatMateriaal.cls.xml)	(revision 1073)
+++ APPS/Halux/TBX/dto/PlaatMateriaal.cls.xml	(.../PlaatMateriaal.cls.xml)	(revision 2225)
@@ -46,7 +46,7 @@
 	Set dtoPlaat=..%New()
 	Set dtoPlaat.Type=##class(APPS.Halux.TBX.enu.BodemRug).Bodem()
 	Set dtoPlaat.Kleuren=..TranslateKleuren(Plaat.GeefKleuren())
-	Set dtoPlaat.Hoogte=Plaat.GeefDiepte()
+	Set dtoPlaat.Hoogte=Plaat.GeefDiepteMM()
 	Set dtoPlaat.HoogteOms=Plaat.GeefDiepte()
 	Set dtoPlaat.HoogteEnKleurOms=dtoPlaat.HoogteOms_" "_dtoPlaat.Kleuren
 	Set dtoPlaat.ProductNr=Plaat.GeefPRNr()
@@ -70,8 +70,8 @@
 	Set dtoPlaat=..%New()
 	Set dtoPlaat.Type=##class(APPS.Halux.TBX.enu.BodemRug).Rug()
 	Set dtoPlaat.Kleuren=..TranslateKleuren(Plaat.GeefKleuren())
-	Set dtoPlaat.Hoogte=Plaat.GeefHoogte()
-	Set dtoPlaat.HoogteOms=Plaat.GeefHoogte()
+	Set dtoPlaat.Hoogte=Plaat.GeefHoogteMM()
+	Set dtoPlaat.HoogteOms=Plaat.GeefHoogte()_" "_Plaat.GeefHoogteMM()
 	Set dtoPlaat.HoogteEnKleurOms=dtoPlaat.HoogteOms_" "_dtoPlaat.Kleuren
 	Set dtoPlaat.ProductNr=Plaat.GeefPRNr()
 	Set dtoPlaat.KortTekst=Plaat.GeefKorttekst()
@@ -100,7 +100,7 @@
 <Method name="BuildList">
 <ReturnType>%List</ReturnType>
 <Implementation><![CDATA[
- Set List=$LB(..Type,..HoogteEnKleurOms,..HoogteOms, ..Kleuren, ..ProductNr, ..KortTekst,..ImageURL)
+ Set List=$LB(..Type,..HoogteEnKleurOms,..HoogteOms, ..Kleuren, ..ProductNr, ..KortTekst,..ImageURL,..Hoogte)
  Quit List
 ]]></Implementation>
 </Method>