Index: APPS/Halux/PPS/TBXZaag/dto/SyncBatch.cls.xml
===================================================================
diff -u
--- APPS/Halux/PPS/TBXZaag/dto/SyncBatch.cls.xml	(revision 0)
+++ APPS/Halux/PPS/TBXZaag/dto/SyncBatch.cls.xml	(revision 2466)
@@ -0,0 +1,49 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="9">
+<Class name="APPS.Halux.PPS.TBXZaag.dto.SyncBatch">
+<ProcedureBlock>1</ProcedureBlock>
+<Super>%RegisteredObject</Super>
+
+<Property name="BatchKey">
+<Type>%String</Type>
+</Property>
+
+<Property name="ProductieLijn">
+<Type>APPS.Halux.PPS.TBXZaag.enu.Output2Lijn</Type>
+</Property>
+
+<Property name="BatchChanged">
+<Type>%Boolean</Type>
+</Property>
+
+<Property name="BufferAantal">
+<Type>%Integer</Type>
+</Property>
+
+<Property name="BufferLengte">
+<Type>%Float</Type>
+</Property>
+
+<Method name="%OnNew">
+<FormalSpec>BatchKey:%String,ProductieLijn:APPS.Halux.PPS.TBXZaag.enu.Output2Lijn</FormalSpec>
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[
+	Set ..BatchKey=$G(BatchKey)
+	Set ..ProductieLijn=$G(ProductieLijn)
+	Quit $$$OK
+
+
+]]></Implementation>
+</Method>
+
+<Method name="BuildList">
+<FormalSpec>ProductieLijn</FormalSpec>
+<ReturnType>List</ReturnType>
+<Implementation><![CDATA[
+	Quit $LB(..ProductieLijn, ..BatchKey, ..BatchChanged, ..BufferAantal, ..BufferLengte)
+
+
+]]></Implementation>
+</Method>
+</Class>
+</Export>
Index: APPS/Halux/PPS/TBXZaag/impl/LijstHelper.cls.xml
===================================================================
diff -u
--- APPS/Halux/PPS/TBXZaag/impl/LijstHelper.cls.xml	(revision 0)
+++ APPS/Halux/PPS/TBXZaag/impl/LijstHelper.cls.xml	(revision 2466)
@@ -0,0 +1,282 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="9">
+<Class name="APPS.Halux.PPS.TBXZaag.impl.LijstHelper">
+<ProcedureBlock>1</ProcedureBlock>
+<Super>%RegisteredObject</Super>
+<ClassDefinitionError>0</ClassDefinitionError>
+
+<Property name="ZaagList">
+<Type>%SerialObject</Type>
+</Property>
+
+<Property name="MaxPosList">
+<Type>%Integer</Type>
+</Property>
+
+<Property name="IndexBodemChanges">
+<Type>%String</Type>
+<MultiDimensional>1</MultiDimensional>
+</Property>
+
+<Property name="IndexRugChanges">
+<Type>%String</Type>
+<MultiDimensional>1</MultiDimensional>
+</Property>
+
+<Query name="qActieveBatchLijst">
+<Type>%SQLQuery</Type>
+<FormalSpec>LijnNr</FormalSpec>
+<SqlQuery><![CDATA[	Select DISTINCT Batch || "||" || isnull(SubBatch,"") as BatchKey, Batch || " " || isnull(SubBatch,"") as BatchOms from APPS_Halux_PPS_TBXZaag.Opdrachten --where isnull(Batch->NotActive,0)=0
+	order by Batch,SubBatch]]></SqlQuery>
+<Parameter name="CONTAINID" value="0"/>
+</Query>
+
+<Query name="qZaagLijst">
+<Type>%Query</Type>
+<FormalSpec>BatchID:%Integer,SubBatch:APPS.Halux.TBX.enu.SubBatch</FormalSpec>
+<SqlProc>1</SqlProc>
+<Parameter name="CONTAINID" value="1"/>
+<Parameter name="ROWSPEC" value="ZaagID:%Integer,PRNr:%Integer,KortTekst:%String,BatchID:%Integer,SubBatch:%String,KlantNaam:%String,TOENr:%Integer,DossierCode:%String,VolgNr:%Integer,SubNr:%Integer,Totaal:%Integer,Status:%String,Transferlijn:%String,Mode:%String,ModeTitel:%String,Opmerking1:%String,Opmerking2:%String,PrintXML:%String,OpmetenBodem:%Boolean,BodemAanslagSensor:%Boolean,BodemBewerking:%String,BodemChangeAfter:%Integer,BodemLengteUntilChange:%Float,BodemChangeHoogte:%Boolean,BodemChangeKleur:%Boolean,BodemBreedte:%Float,BodemHoogte:%Integer,BodemHoogteOms:%String,BodemHoogteSensor:%Boolean,BodemKleur2de:%String,BodemKleurZichtbaar:%String,BodemReturnsAfter:%Integer,BodemProductID:%Integer,BodemImageURL:%String,RugAanslagSensor:%Boolean,RugBewerking:%String,RugChangeAfter:%Integer,RugLengteUntilChange:%Float,RugChangeHoogte:%Boolean,RugChangeKleur:%Boolean,RugBreedte:%Float,RugHoogte:%Integer,RugHoogteOms:%String,RugHoogteSensor:%Boolean,RugKleur2de:%String,RugKleurZichtbaar:%String,RugReturnsAfter:%Integer,RugProductID:%Integer,RugImageURL:%String"/>
+</Query>
+
+<Method name="qZaagLijstExecute">
+<ClassMethod>1</ClassMethod>
+<FormalSpec><![CDATA[&qHandle:%Binary,BatchID:%Integer,SubBatch:APPS.Halux.PPS.TBXZaag.enu.SubBatch]]></FormalSpec>
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[
+	Set bl=..%New()
+	Set %ZaagList=bl.GetZaagLijst(BatchID,SubBatch)
+	Set %ZaagListPos=""
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
+<Method name="qZaagLijstFetch">
+<ClassMethod>1</ClassMethod>
+<FormalSpec><![CDATA[&qHandle:%Binary,&Row:%List,&AtEnd:%Integer=0]]></FormalSpec>
+<PlaceAfter>qZaagLijstExecute</PlaceAfter>
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[
+	
+	Set Opdracht=%ZaagList.GetNext(.%ZaagListPos)
+	If $isObject(Opdracht)
+	{
+		Set Row=Opdracht.BuildList()
+	}
+	Else 
+	{
+		Set Row=""
+		Set AtEnd=1
+	}
+	
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
+<Method name="qZaagLijstClose">
+<ClassMethod>1</ClassMethod>
+<FormalSpec><![CDATA[&qHandle:%Binary]]></FormalSpec>
+<PlaceAfter>qZaagLijstExecute</PlaceAfter>
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[
+	Kill %ZaagList,%ZaagListPos
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
+<Method name="GetZaagLijst">
+<FormalSpec>BatchID:%Integer,SubBatch:APPS.Halux.PPS.TBXZaag.enu.SubBatch</FormalSpec>
+<ReturnType>%ListOfObjects</ReturnType>
+<Implementation><![CDATA[
+	Set rsZaagList=##class(%ResultSet).%New(..%ClassName(1)_":qZaagLijstHelper")
+	Set sc=rsZaagList.Execute(BatchID,SubBatch)
+	Set ..ZaagList=##class(%ListOfObjects).%New()
+	While rsZaagList.Next() 
+	{	
+		;w rsZaagList.Data("ID"),"  "
+		Set Opdracht=##class(APPS.Halux.PPS.TBXZaag.dto.Opdracht).GetOpdracht(rsZaagList.Data("ID"))
+		Do ..Add2List(Opdracht)
+	}
+	
+	Do ..AddPlaatVerschil()
+	Quit ..ZaagList
+]]></Implementation>
+</Method>
+
+<Method name="Add2List">
+<FormalSpec>Opdracht</FormalSpec>
+<Implementation><![CDATA[
+	Quit:'$isObject(Opdracht)
+	Do ..ZaagList.Insert(Opdracht)
+	
+	; index voorbereiden
+	Set ListPos=..ZaagList.Count()
+	Set ..IndexBodemChanges(ListPos)=$S($isObject(Opdracht.Bodem):$LB(Opdracht.Bodem.GetPlaatKey(),Opdracht.Bodem.Breedte),1:"")
+	Set ..IndexRugChanges(ListPos)=$S($isObject(Opdracht.Rug):$LB(Opdracht.Rug.GetPlaatKey(),Opdracht.Rug.Breedte),1:"")
+]]></Implementation>
+</Method>
+
+<Method name="AddPlaatVerschil">
+<Implementation><![CDATA[
+	Set ..MaxPosList=..ZaagList.Count()
+	Set ListPos=""
+	Do 
+	{ 
+		Set Opdracht=..ZaagList.GetNext(.ListPos)
+		Continue:'ListPos
+		
+		If ..ChangesNextRug(ListPos)
+		{
+			Do ..AddRugChange(ListPos,Opdracht)
+		}
+		Do ..AddRugLength(ListPos,Opdracht)
+
+		
+		If ..ChangesNextBodem(ListPos)
+		{
+			Do ..AddBodemChange(ListPos,Opdracht)
+		}
+		Do ..AddBodemLength(ListPos,Opdracht)
+		
+	} While ListPos
+]]></Implementation>
+</Method>
+
+<Method name="AddBodemChange">
+<FormalSpec>ListPos,Opdracht</FormalSpec>
+<Implementation><![CDATA[
+	Set NextOpdracht=..ZaagList.GetAt(ListPos+1)
+	Do ..AddChange(Opdracht.Bodem,NextOpdracht.Bodem)
+	Do ..AddBodemReturnsAfter(ListPos,Opdracht.Bodem)
+]]></Implementation>
+</Method>
+
+<Method name="AddRugChange">
+<FormalSpec>ListPos,Opdracht</FormalSpec>
+<Implementation><![CDATA[
+	Set NextOpdracht=..ZaagList.GetAt(ListPos+1)
+	Do ..AddChange(Opdracht.Rug,NextOpdracht.Rug)
+	Do ..AddRugReturnsAfter(ListPos,Opdracht.Rug)
+]]></Implementation>
+</Method>
+
+<Method name="AddChange">
+<Description>
+Wijziging wordt aangebracht bij de NextPlaat</Description>
+<FormalSpec>Plaat,NextPlaat</FormalSpec>
+<Implementation><![CDATA[
+	Quit:'$isObject(NextPlaat)
+	
+	If '$isObject(Plaat)||(Plaat.KleurZichtbaar'=NextPlaat.KleurZichtbaar)||(Plaat.Kleur2de'=NextPlaat.Kleur2de)
+	{
+	 	Set NextPlaat.ChangeKleur=1
+	}
+	If '$isObject(Plaat)||(Plaat.Hoogte'=NextPlaat.Hoogte)
+	{
+		Set NextPlaat.ChangeHoogte=1
+	}
+]]></Implementation>
+</Method>
+
+<Method name="AddRugReturnsAfter">
+<FormalSpec>ListPos,Plaat</FormalSpec>
+<Implementation><![CDATA[
+	Quit:'$isObject(Plaat)
+	Set (Cnt,Lengte)=0
+	Set NextListPos=ListPos+1
+	While NextListPos'>..MaxPosList
+	{ 
+		If $L(..IndexRugChanges(NextListPos)) Quit:($LG(..IndexRugChanges(ListPos))=$LG(..IndexRugChanges(NextListPos)))
+		Set NextListPos=NextListPos+1
+	} 
+	
+	Set:NextListPos'>..MaxPosList Plaat.ReturnsAfter=NextListPos-ListPos
+]]></Implementation>
+</Method>
+
+<Method name="AddBodemReturnsAfter">
+<FormalSpec>ListPos,Plaat</FormalSpec>
+<Implementation><![CDATA[
+	Quit:'$isObject(Plaat)
+	Set (Cnt,Lengte)=0
+	Set NextListPos=ListPos+1
+	While NextListPos'>..MaxPosList
+	{ 
+		If $L(..IndexBodemChanges(NextListPos)) Quit:($LG(..IndexBodemChanges(ListPos))=$LG(..IndexBodemChanges(NextListPos)))
+		Set NextListPos=NextListPos+1
+	} 
+	
+	Set:NextListPos'>..MaxPosList Plaat.ReturnsAfter=NextListPos-ListPos
+]]></Implementation>
+</Method>
+
+<Method name="AddRugLength">
+<FormalSpec>ListPos,Opdracht</FormalSpec>
+<Implementation><![CDATA[
+	Quit:'$isObject(Opdracht.Rug)
+	Set (Cnt,Lengte)=0
+	Set NextListPos=ListPos
+	Do { 
+		Set Cnt=Cnt+1
+		Set Lengte=Lengte+$LG(..IndexRugChanges(NextListPos),2)
+		Quit:..ChangesNextRug(NextListPos)
+		Set NextListPos=NextListPos+1
+	} While NextListPos<..MaxPosList
+	
+	Set Opdracht.Rug.ChangeAfter=Cnt
+	Set Opdracht.Rug.LengteUntilChange=Lengte*1.05
+]]></Implementation>
+</Method>
+
+<Method name="AddBodemLength">
+<FormalSpec>ListPos,Opdracht</FormalSpec>
+<Implementation><![CDATA[
+	Quit:'$isObject(Opdracht.Bodem)
+	Set (Cnt,Lengte)=0
+	Set NextListPos=ListPos
+	Do { 
+		Set Cnt=Cnt+1
+		Set Lengte=Lengte+$LG(..IndexBodemChanges(NextListPos),2)
+		Quit:..ChangesNextBodem(NextListPos)
+		Set NextListPos=NextListPos+1
+	} While NextListPos<..MaxPosList
+	
+	Set Opdracht.Bodem.ChangeAfter=Cnt
+	Set Opdracht.Bodem.LengteUntilChange=Lengte*1.05
+]]></Implementation>
+</Method>
+
+<Method name="ZoekPlaatVerschil">
+<FormalSpec>ListPos</FormalSpec>
+<Implementation><![CDATA[
+	Set NextListPos=ListPos
+	Do { 
+		Quit:..ChangesNextRug(NextListPos)||..ChangesNextBodem(NextListPos)
+		Set NextListPos=NextListPos+1
+	} While NextListPos<..MaxPosList
+]]></Implementation>
+</Method>
+
+<Method name="ChangesNextRug">
+<CodeMode>expression</CodeMode>
+<FormalSpec>ListPos</FormalSpec>
+<Implementation><![CDATA[(ListPos<..MaxPosList)&&($LG(..IndexRugChanges(ListPos))'=$LG(..IndexRugChanges(ListPos+1)))
+]]></Implementation>
+</Method>
+
+<Method name="ChangesNextBodem">
+<CodeMode>expression</CodeMode>
+<FormalSpec>ListPos</FormalSpec>
+<Implementation><![CDATA[(ListPos<..MaxPosList)&&($LG(..IndexBodemChanges(ListPos))'=$LG(..IndexBodemChanges(ListPos+1)))
+]]></Implementation>
+</Method>
+
+<Query name="qZaagLijstHelper">
+<Type>%SQLQuery</Type>
+<FormalSpec>BatchID:%Integer,SubBatch:APPS.Halux.TBX.enu.SubBatch</FormalSpec>
+<SqlQuery>	
+	Select ID from APPS_Halux_PPS_TBXZaag.Opdrachten where Batch = :BatchID and isnull(SubBatch,"*")=isnull(:SubBatch,"*")</SqlQuery>
+<Parameter name="CONTAINID" value="1"/>
+</Query>
+</Class>
+</Export>
Index: APPS/Halux/PPS/TBXZaag/enu/SubBatch.cls.xml
===================================================================
diff -u
--- APPS/Halux/PPS/TBXZaag/enu/SubBatch.cls.xml	(revision 0)
+++ APPS/Halux/PPS/TBXZaag/enu/SubBatch.cls.xml	(revision 2466)
@@ -0,0 +1,46 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="9">
+<Class name="APPS.Halux.PPS.TBXZaag.enu.SubBatch">
+<Description><![CDATA[
+De finale assembly batch kan vooraf gegaan worden door een of meerder
+subbatches.
+<ul>
+	<li>Spoelbak en Syfon laden</li>
+	<li>Tipon</li>
+</ul>]]></Description>
+<ClassType>datatype</ClassType>
+<ProcedureBlock>1</ProcedureBlock>
+<Super>%String</Super>
+
+<Parameter name="VALUELIST">
+<Default>,Sp+Si,TipOn</Default>
+</Parameter>
+
+<Method name="SpoelbakSifon">
+<ClassMethod>1</ClassMethod>
+<CodeMode>expression</CodeMode>
+<Implementation><![CDATA[
+"Sp+Si"
+
+]]></Implementation>
+</Method>
+
+<Method name="TipOn">
+<ClassMethod>1</ClassMethod>
+<CodeMode>expression</CodeMode>
+<Implementation><![CDATA[
+"TipOn"
+
+]]></Implementation>
+</Method>
+
+<Method name="Main">
+<ClassMethod>1</ClassMethod>
+<CodeMode>expression</CodeMode>
+<Implementation><![CDATA[
+""
+
+]]></Implementation>
+</Method>
+</Class>
+</Export>
Index: APPS/Halux/PPS/TBXZaag/dto/PlaatMateriaal.cls.xml
===================================================================
diff -u
--- APPS/Halux/PPS/TBXZaag/dto/PlaatMateriaal.cls.xml	(revision 0)
+++ APPS/Halux/PPS/TBXZaag/dto/PlaatMateriaal.cls.xml	(revision 2466)
@@ -0,0 +1,106 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="9">
+<Class name="APPS.Halux.PPS.TBXZaag.dto.PlaatMateriaal">
+<IncludeCode>%VHMacro</IncludeCode>
+<ProcedureBlock>1</ProcedureBlock>
+<Super>%RegisteredObject</Super>
+<ClassDefinitionError>0</ClassDefinitionError>
+
+<Property name="HoogteEnKleurOms">
+<Type>%String</Type>
+</Property>
+
+<Property name="Type">
+<Type>%String</Type>
+</Property>
+
+<Property name="HoogteOms">
+<Type>%String</Type>
+</Property>
+
+<Property name="Hoogte">
+<Type>%Integer</Type>
+</Property>
+
+<Property name="Kleuren">
+<Type>%String</Type>
+</Property>
+
+<Property name="ProductNr">
+<Type>%Integer</Type>
+</Property>
+
+<Property name="KortTekst">
+<Type>%String</Type>
+</Property>
+
+<Property name="ImageURL">
+<Type>%String</Type>
+</Property>
+
+<Method name="GetBodem">
+<ClassMethod>1</ClassMethod>
+<FormalSpec>Plaat:DOM.PM.TBXProduct.TBXLade</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.GeefExacteDiepte()
+	Set dtoPlaat.HoogteOms=Plaat.GeefDiepte()
+	Set dtoPlaat.HoogteEnKleurOms=dtoPlaat.HoogteOms_" "_dtoPlaat.Kleuren
+	Set dtoPlaat.ProductNr=Plaat.GeefPRNr()
+	Set dtoPlaat.KortTekst=Plaat.GeefKorttekst()
+	Set dtoPlaat.ImageURL=Plaat.GeefBiKleurenImageURL()
+	Quit dtoPlaat
+]]></Implementation>
+</Method>
+
+<Method name="GetPlaatKey">
+<CodeMode>expression</CodeMode>
+<Implementation><![CDATA[..Type_","_..Kleuren_","_..Hoogte
+]]></Implementation>
+</Method>
+
+<Method name="GetRug">
+<ClassMethod>1</ClassMethod>
+<FormalSpec>Plaat:DOM.PM.TBXProduct.TBXLade</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.GeefExacteHoogte()
+	Set dtoPlaat.HoogteOms=Plaat.GeefHoogte()_" "_dtoPlaat.Hoogte
+	Set dtoPlaat.HoogteEnKleurOms=dtoPlaat.HoogteOms_" "_dtoPlaat.Kleuren
+	Set dtoPlaat.ProductNr=Plaat.GeefPRNr()
+	Set dtoPlaat.KortTekst=Plaat.GeefKorttekst()
+	Set dtoPlaat.ImageURL=Plaat.GeefBiKleurenImageURL()
+	Quit dtoPlaat
+]]></Implementation>
+</Method>
+
+<Method name="TranslateKleuren">
+<ClassMethod>1</ClassMethod>
+<FormalSpec>lbKleuren:%List</FormalSpec>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[
+	If $LL(lbKleuren)>1 
+	{
+		Set Kleuren=$$ListToPieces^vhLib(lbKleuren,"/")
+	}
+	Else 
+	{
+		Set Kleuren=$LG(lbKleuren)
+	}
+	Quit Kleuren
+]]></Implementation>
+</Method>
+
+<Method name="GeefRij">
+<ReturnType>%List</ReturnType>
+<Implementation><![CDATA[ Quit $LB(..Type,..HoogteEnKleurOms,..HoogteOms, ..Kleuren, ..ProductNr, ..KortTekst,..ImageURL,..Hoogte)
+]]></Implementation>
+</Method>
+</Class>
+</Export>
Index: APPS/Halux/PPS/TBXZaag/IWerkpost.cls.xml
===================================================================
diff -u
--- APPS/Halux/PPS/TBXZaag/IWerkpost.cls.xml	(revision 0)
+++ APPS/Halux/PPS/TBXZaag/IWerkpost.cls.xml	(revision 2466)
@@ -0,0 +1,78 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="9">
+<Class name="APPS.Halux.PPS.TBXZaag.IWerkpost">
+<Abstract>1</Abstract>
+<ProcedureBlock>1</ProcedureBlock>
+<ClassDefinitionError>0</ClassDefinitionError>
+
+<Method name="BeschadigingLade">
+<Implementation><![CDATA[]]></Implementation>
+</Method>
+
+<Method name="BeschadigingPlaat">
+<FormalSpec>BodemOfRug:APPS.Halux.PPS.TBXZaag.enu.BodemRug,Kleur:%String,Hoogte:%Integer,Lengte:%Float,Reden:%String</FormalSpec>
+<Implementation><![CDATA[]]></Implementation>
+</Method>
+
+<Method name="ControleMeting">
+<FormalSpec>ZaagID:%Integer,BodemOfRug:APPS.Halux.PPS.TBXZaag.enu.BodemRug,GewensteLengte:%Float,GemetenLengte:%Float</FormalSpec>
+<Implementation><![CDATA[]]></Implementation>
+</Method>
+
+<Method name="GeefBatchLijst">
+<FormalSpec>ProductieLijn:APPS.Halux.PPS.TBXZaag.enu.Output2Lijn</FormalSpec>
+<ReturnType>%XML.DataSet</ReturnType>
+<Implementation><![CDATA[]]></Implementation>
+</Method>
+
+<Method name="SyncBatches">
+<FormalSpec>L1BatchKey:%String,L2BatchKey:%String,DirectBatchKey:%String</FormalSpec>
+<ReturnType>%XML.DataSet</ReturnType>
+<Implementation><![CDATA[]]></Implementation>
+</Method>
+
+<Method name="GeefZaagLijst">
+<FormalSpec>BatchKey:%String,ProductieLijn:APPS.Halux.PPS.TBXZaag.enu.Output2Lijn</FormalSpec>
+<ReturnType>%XML.DataSet</ReturnType>
+<Implementation><![CDATA[]]></Implementation>
+</Method>
+
+<Method name="GeefPlaatMateriaal">
+<FormalSpec>BodemRug:APPS.Halux.PPS.TBXZaag.enu.BodemRug</FormalSpec>
+<ReturnType>%XML.DataSet</ReturnType>
+<Implementation><![CDATA[]]></Implementation>
+</Method>
+
+<Method name="GeefStilstanden">
+<FormalSpec>Werkpost:APPS.Halux.enu.Werkpost</FormalSpec>
+<ReturnType>%XML.DataSet</ReturnType>
+<Implementation><![CDATA[]]></Implementation>
+</Method>
+
+<Method name="PrintLabel">
+<FormalSpec>ZaagID:%Integer,Device:%String</FormalSpec>
+<Implementation><![CDATA[]]></Implementation>
+</Method>
+
+<Method name="PrintLabelManueel">
+<FormalSpec>Titel:%String,BodemHoogte:%Integer,BodemLengte:%Float,RugHoogte:%Integer,RugLengte:%Float,Device:%String</FormalSpec>
+<Implementation><![CDATA[]]></Implementation>
+</Method>
+
+<Method name="RegistreerStilstand">
+<FormalSpec>Reden:%String,Duur:%Integer,ZaagID:%String=""</FormalSpec>
+<Implementation><![CDATA[]]></Implementation>
+</Method>
+
+<Method name="ZetStatus">
+<FormalSpec>WerkPost:APPS.Halux.enu.Werkpost,ZaagID:%Integer,NewStatus:APPS.Halux.PPS.TBXZaag.enu.Status,Lijn:APPS.Halux.PPS.TBXZaag.enu.Output2Lijn</FormalSpec>
+<Implementation><![CDATA[]]></Implementation>
+</Method>
+
+<Method name="GetProductURL">
+<FormalSpec>ZaagID:%Integer</FormalSpec>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[]]></Implementation>
+</Method>
+</Class>
+</Export>
Index: APPS/Halux/PPS/TBXZaag/dto/Opdracht.cls.xml
===================================================================
diff -u
--- APPS/Halux/PPS/TBXZaag/dto/Opdracht.cls.xml	(revision 0)
+++ APPS/Halux/PPS/TBXZaag/dto/Opdracht.cls.xml	(revision 2466)
@@ -0,0 +1,164 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="9">
+<Class name="APPS.Halux.PPS.TBXZaag.dto.Opdracht">
+<ProcedureBlock>1</ProcedureBlock>
+<Super>%RegisteredObject</Super>
+
+<Property name="ZaagID">
+<Type>%Integer</Type>
+</Property>
+
+<Property name="PRNr">
+<Type>%Integer</Type>
+</Property>
+
+<Property name="KortTekst">
+<Type>%String</Type>
+</Property>
+
+<Property name="BatchID">
+<Type>%Integer</Type>
+</Property>
+
+<Property name="SubBatch">
+<Type>%String</Type>
+</Property>
+
+<Property name="KlantNaam">
+<Type>%String</Type>
+</Property>
+
+<Property name="TOENr">
+<Type>%Integer</Type>
+</Property>
+
+<Property name="DOSNr">
+<Type>%String</Type>
+</Property>
+
+<Property name="SequenceNr">
+<Type>%Integer</Type>
+</Property>
+
+<Property name="DeelAantal">
+<Type>%Integer</Type>
+</Property>
+
+<Property name="TotaalAantal">
+<Type>%Integer</Type>
+</Property>
+
+<Property name="Status">
+<Type>%String</Type>
+</Property>
+
+<Property name="Transferlijn">
+<Type>%String</Type>
+</Property>
+
+<Property name="BodemRug">
+<Type>%String</Type>
+</Property>
+
+<Property name="Titel">
+<Type>%String</Type>
+</Property>
+
+<Property name="Opmerking1">
+<Type>%String</Type>
+</Property>
+
+<Property name="Opmerking2">
+<Type>%String</Type>
+</Property>
+
+<Property name="PrintXML">
+<Type>%String</Type>
+</Property>
+
+<Property name="OpmetenBodem">
+<Type>%Boolean</Type>
+</Property>
+
+<Property name="Bodem">
+<Type>APPS.Halux.PPS.TBXZaag.dto.OpdrachtPlaat</Type>
+</Property>
+
+<Property name="Rug">
+<Type>APPS.Halux.PPS.TBXZaag.dto.OpdrachtPlaat</Type>
+</Property>
+
+<Method name="GetChangeKey">
+<Implementation><![CDATA[
+	Set:$isObject(..Bodem) BodemKey=..Bodem.GetPlaatKey()
+	Set:$isObject(..Rug) RugKey=..Rug.GetPlaatKey()
+	Quit BodemKey_"/"_RugKey
+
+
+]]></Implementation>
+</Method>
+
+<Method name="GetOpdracht">
+<Description>
+Opbouw van het dto </Description>
+<ClassMethod>1</ClassMethod>
+<FormalSpec>ZaagID</FormalSpec>
+<Implementation><![CDATA[
+	Set ZaagOpdracht=##class(APPS.Halux.PPS.TBXZaag.Opdrachten).%OpenId(ZaagID)
+	Set Queue=ZaagOpdracht.Queue
+	Set ProductAPI = ##class(DOM.DomeinContext).Instance().GeefProductAPI() ; extends DOM.PM.TBXProduct.TBXLade
+	Set Lade = ProductAPI.GeefProduct(Queue.Product.%Id())
+	
+	Set dtoOpdracht=..%New()
+	Set dtoOpdracht.ZaagID=ZaagID
+	Set dtoOpdracht.BatchID=ZaagOpdracht.Batch.%Id()
+	Set dtoOpdracht.SubBatch=ZaagOpdracht.SubBatch
+	Set dtoOpdracht.KlantNaam=Queue.Klant.Naam
+	Set dtoOpdracht.PRNr=Queue.Product.%Id()
+	Set dtoOpdracht.KortTekst=Queue.Product.KortTekst
+	;w dtoOpdracht.PRNr," ", dtoOpdracht.KortTekst,! r k w !
+	
+	Set dtoOpdracht.TOENr=Queue.TOENr
+	Set dtoOpdracht.DOSNr=Queue.DOSNr
+	Set dtoOpdracht.SequenceNr=Queue.Sequence
+	Set dtoOpdracht.DeelAantal=Queue.DeelAantal
+	Set dtoOpdracht.TotaalAantal=Queue.TotaalAantal
+	Set dtoOpdracht.Status="W" ;ZaagOpdracht.Status - tijdelijk PV tijdens testen
+	Set dtoOpdracht.BodemRug=ZaagOpdracht.BodemRug
+	Set dtoOpdracht.Titel=$CASE(ZaagOpdracht.BodemRug,##class(APPS.Halux.PPS.TBXZaag.enu.BodemRug).BodemRug():"Bodem en rug",##class(APPS.Halux.PPS.TBXZaag.enu.BodemRug).Bodem():"Bodem",##class(APPS.Halux.PPS.TBXZaag.enu.BodemRug).Rug():"Rug",:"*** Special ***")
+	; plaatmateriaal
+	If dtoOpdracht.BodemRug=##class(APPS.Halux.PPS.TBXZaag.enu.BodemRug).BodemRug()
+	{
+		Set dtoOpdracht.Bodem=##class(APPS.Halux.PPS.TBXZaag.dto.OpdrachtPlaat).GetBodem(Queue,Lade)
+		Set dtoOpdracht.Rug=##class(APPS.Halux.PPS.TBXZaag.dto.OpdrachtPlaat).GetRug(Queue,Lade)
+		Set dtoOpdracht.Rug.Breedte=dtoOpdracht.Bodem.Breedte-12 ; tijdelijk tijdens testen
+	}	
+	elseif dtoOpdracht.BodemRug=##class(APPS.Halux.PPS.TBXZaag.enu.BodemRug).Bodem()
+	{ 
+		Set dtoOpdracht.Bodem=##class(APPS.Halux.PPS.TBXZaag.dto.OpdrachtPlaat).GetBodem(Queue,Lade)
+		Set dtoOpdracht.Rug=##class(APPS.Halux.PPS.TBXZaag.dto.OpdrachtPlaat).%New()
+	}
+	elseIf dtoOpdracht.BodemRug=##class(APPS.Halux.PPS.TBXZaag.enu.BodemRug).Rug()
+	{
+		Set dtoOpdracht.Bodem=##class(APPS.Halux.PPS.TBXZaag.dto.OpdrachtPlaat).%New()
+		Set dtoOpdracht.Rug=##class(APPS.Halux.PPS.TBXZaag.dto.OpdrachtPlaat).GetRug(Queue,Lade)
+	}
+	
+	Quit dtoOpdracht
+
+
+]]></Implementation>
+</Method>
+
+<Method name="BuildList">
+<ReturnType>%List</ReturnType>
+<Implementation><![CDATA[
+ Set List=$LB(..ZaagID,..PRNr,..KortTekst,..BatchID,..SubBatch,..KlantNaam,..TOENr,..DOSNr,..SequenceNr,..DeelAantal,..TotaalAantal,..Status,..Transferlijn,..BodemRug,..Titel,..Opmerking1,..Opmerking2,..PrintXML,..OpmetenBodem)
+ Set List=List_..Bodem.BuildList()_..Rug.BuildList()
+ Quit List
+
+
+]]></Implementation>
+</Method>
+</Class>
+</Export>
Index: APPS/Halux/PPS/TBXZaag/dto/OpdrachtPlaat.cls.xml
===================================================================
diff -u
--- APPS/Halux/PPS/TBXZaag/dto/OpdrachtPlaat.cls.xml	(revision 0)
+++ APPS/Halux/PPS/TBXZaag/dto/OpdrachtPlaat.cls.xml	(revision 2466)
@@ -0,0 +1,129 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="9">
+<Class name="APPS.Halux.PPS.TBXZaag.dto.OpdrachtPlaat">
+<ProcedureBlock>1</ProcedureBlock>
+<Super>%RegisteredObject</Super>
+<ClassDefinitionError>0</ClassDefinitionError>
+
+<Property name="Bewerking">
+<Description>
+Zonder, Groef, Frezing
+bij rug is dit steeds Zonder</Description>
+<Type>DOM.PM.enu.TBXBodemBewerking</Type>
+</Property>
+
+<Property name="Breedte">
+<Description>
+uitgedrukt in 10x mm</Description>
+<Type>%Integer</Type>
+</Property>
+
+<Property name="Hoogte">
+<Description>
+uitgedrukt in 10x mm</Description>
+<Type>%Integer</Type>
+</Property>
+
+<Property name="HoogteOms">
+<Type>%String</Type>
+</Property>
+
+<Property name="HoogteSensor">
+<Type>%Boolean</Type>
+</Property>
+
+<Property name="Kleur2de">
+<Type>DOM.PM.enu.TBXHoutKleur</Type>
+</Property>
+
+<Property name="AanslagSensor">
+<Type>%Boolean</Type>
+</Property>
+
+<Property name="KleurZichtbaar">
+<Type>DOM.PM.enu.TBXHoutKleur</Type>
+</Property>
+
+<Property name="ReturnsAfter">
+<Type>%Integer</Type>
+</Property>
+
+<Property name="LengteUntilChange">
+<Type>%Integer</Type>
+</Property>
+
+<Property name="ChangeAfter">
+<Type>%Integer</Type>
+</Property>
+
+<Property name="ChangeHoogte">
+<Type>%Boolean</Type>
+</Property>
+
+<Property name="ChangeKleur">
+<Type>%Boolean</Type>
+</Property>
+
+<Property name="ProductNr">
+<Type>%Integer</Type>
+</Property>
+
+<Property name="ImageURL">
+<Type>%String</Type>
+</Property>
+
+<Method name="GetBodem">
+<ClassMethod>1</ClassMethod>
+<FormalSpec>Queue:DS.PPS.TBX.Queue,Lade:DOM.PM.TBXProduct.TBXLade</FormalSpec>
+<ReturnType>APPS.Halux.PPS.TBXZaag.dto.OpdrachtPlaat</ReturnType>
+<Implementation><![CDATA[
+	Set dtoPlaat=..%New()
+	Set dtoPlaat.Bewerking=Lade.GeefBodemBewerking()
+	Set dtoPlaat.KleurZichtbaar=Lade.GeefBodemKleur()
+	Set dtoPlaat.Kleur2de=Lade.GeefBodem().GeefKleur2de(dtoPlaat.KleurZichtbaar)
+	Set dtoPlaat.Hoogte=Lade.GeefBodem().GeefExacteDiepte()
+	Set dtoPlaat.HoogteOms=Lade.GeefBodem().GeefDiepte()
+	Set dtoPlaat.Breedte=Lade.GeefBodemBreedte()
+	Set dtoPlaat.HoogteSensor=1
+	Set dtoPlaat.AanslagSensor=1
+	Set dtoPlaat.ProductNr=Lade.GeefBodem().GeefPRNr()
+	Set dtoPlaat.ImageURL=Lade.GeefBodem().GeefKleurImageURL(dtoPlaat.KleurZichtbaar)
+	Quit dtoPlaat
+]]></Implementation>
+</Method>
+
+<Method name="GetPlaatKey">
+<CodeMode>expression</CodeMode>
+<Implementation><![CDATA[..Hoogte_","_..KleurZichtbaar_","_..Kleur2de
+]]></Implementation>
+</Method>
+
+<Method name="GetRug">
+<ClassMethod>1</ClassMethod>
+<FormalSpec>Queue:DS.PPS.TBX.Queue,Lade:DOM.PM.TBXProduct.TBXLade</FormalSpec>
+<ReturnType>APPS.Halux.PPS.TBXZaag.dto.OpdrachtPlaat</ReturnType>
+<Implementation><![CDATA[
+	Set dtoPlaat=..%New()
+	Set dtoPlaat.Bewerking=""
+	Set dtoPlaat.KleurZichtbaar=Lade.GeefRugKleur()
+	Set dtoPlaat.Kleur2de=Lade.GeefRug().GeefKleur2de(dtoPlaat.KleurZichtbaar)
+	Set dtoPlaat.Hoogte=Lade.GeefRug().GeefExacteHoogte()
+	Set dtoPlaat.HoogteOms=Lade.GeefRugHoogte()_" "_dtoPlaat.Hoogte
+	Set dtoPlaat.Breedte=Lade.GeefRugBreedte()
+	Set dtoPlaat.HoogteSensor=1
+	Set dtoPlaat.AanslagSensor=1
+	Set dtoPlaat.ProductNr=Lade.GeefRug().GeefPRNr()
+	Set dtoPlaat.ImageURL=Lade.GeefRug().GeefKleurImageURL(dtoPlaat.KleurZichtbaar)
+	Quit dtoPlaat
+]]></Implementation>
+</Method>
+
+<Method name="BuildList">
+<ReturnType>%List</ReturnType>
+<Implementation><![CDATA[
+ Set List=$LB(..AanslagSensor,..Bewerking, ..ChangeAfter, $J(..LengteUntilChange,0,0), ..ChangeHoogte ,..ChangeKleur,..Breedte,..Hoogte,..HoogteOms,..HoogteSensor,..Kleur2de,..KleurZichtbaar,..ReturnsAfter,..ProductNr,..ImageURL)
+ Quit List
+]]></Implementation>
+</Method>
+</Class>
+</Export>
Index: APPS/Halux/PPS/TBXZaag/enu/BodemRug.cls.xml
===================================================================
diff -u
--- APPS/Halux/PPS/TBXZaag/enu/BodemRug.cls.xml	(revision 0)
+++ APPS/Halux/PPS/TBXZaag/enu/BodemRug.cls.xml	(revision 2466)
@@ -0,0 +1,39 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="9">
+<Class name="APPS.Halux.PPS.TBXZaag.enu.BodemRug">
+<ClassType>datatype</ClassType>
+<ProcedureBlock>1</ProcedureBlock>
+<Super>%String</Super>
+
+<Parameter name="VALUELIST">
+<Default>,B+R,B,R</Default>
+</Parameter>
+
+<Method name="BodemRug">
+<ClassMethod>1</ClassMethod>
+<CodeMode>expression</CodeMode>
+<Implementation><![CDATA[
+"B+R"
+
+]]></Implementation>
+</Method>
+
+<Method name="Bodem">
+<ClassMethod>1</ClassMethod>
+<CodeMode>expression</CodeMode>
+<Implementation><![CDATA[
+"B"
+
+]]></Implementation>
+</Method>
+
+<Method name="Rug">
+<ClassMethod>1</ClassMethod>
+<CodeMode>expression</CodeMode>
+<Implementation><![CDATA[
+"R"
+
+]]></Implementation>
+</Method>
+</Class>
+</Export>
Index: APPS/Halux/PPS/TBXZaag/enu/Output2Lijn.cls.xml
===================================================================
diff -u
--- APPS/Halux/PPS/TBXZaag/enu/Output2Lijn.cls.xml	(revision 0)
+++ APPS/Halux/PPS/TBXZaag/enu/Output2Lijn.cls.xml	(revision 2466)
@@ -0,0 +1,42 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="9">
+<Class name="APPS.Halux.PPS.TBXZaag.enu.Output2Lijn">
+<ClassType>datatype</ClassType>
+<ProcedureBlock>1</ProcedureBlock>
+<Super>%String</Super>
+
+<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/PPS/TBXZaag/impl/Builder.cls.xml
===================================================================
diff -u
--- APPS/Halux/PPS/TBXZaag/impl/Builder.cls.xml	(revision 0)
+++ APPS/Halux/PPS/TBXZaag/impl/Builder.cls.xml	(revision 2466)
@@ -0,0 +1,111 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="9">
+<Class name="APPS.Halux.PPS.TBXZaag.impl.Builder">
+<IncludeCode>TECH.Error</IncludeCode>
+<ProcedureBlock>1</ProcedureBlock>
+<Super>%RegisteredObject,DOM.PM.TBXProduct.TBXProductVisitor</Super>
+<ClassDefinitionError>0</ClassDefinitionError>
+
+<Property name="Batch">
+<Type>APPS.Halux.common.Batch</Type>
+</Property>
+
+<Property name="ProductAPI">
+<Type>DOM.PM.ProductAPI</Type>
+</Property>
+
+<Property name="Queue">
+<Type>DS.PPS.TBX.Queue</Type>
+</Property>
+
+<Method name="%OnNew">
+<FormalSpec>BatchID:%Integer</FormalSpec>
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[
+	Set:$G(BatchID) ..Batch=##class(APPS.Halux.common.BatchService).%New().GeefBatch(BatchID)
+	Set ..ProductAPI = ##class(DOM.DomeinContext).Instance().GeefProductAPI() ; extends DOM.PM.TBXProduct.TBXLade
+	
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
+<Query name="qBatchQueue">
+<Type>%SQLQuery</Type>
+<FormalSpec>BatchID:%Integer</FormalSpec>
+<Private>1</Private>
+<SqlQuery>	Select %ID from PPS.TBX_Queue where BatchId = :BatchID
+	order by Sequence</SqlQuery>
+<Parameter name="CONTAINID" value="1"/>
+</Query>
+
+<Method name="BuildBatchesFromQueue">
+<Implementation><![CDATA[
+	Set rsQueue=##class(%ResultSet).%New(..%ClassName(1)_":qBatchQueue")
+	Set sc=rsQueue.Execute(..Batch.GeefBatchID())
+	While (rsQueue.Next()) 
+	{	
+		Set ..Queue=##class(DS.PPS.TBX.Queue).%OpenId(rsQueue.Data("ID"))
+		Continue:'$isObject(..Queue)
+		
+		Set Product = ..ProductAPI.GeefProduct(..Queue.Product.%Id())
+		Continue:'$isObject(Product)
+		;w !,..Queue.Product.%Id()," ",..Queue.Product.KortTekst," ",Product.%ClassName(1)		
+		Do Product.Accept(##this) ; trigger visitor
+    }
+ 
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
+<Method name="VerwerkTBXLadeMetUitsparing">
+<Description>
+Triggered by visitor</Description>
+<FormalSpec>LadeMetUitsparing:DOM.PM.TBXProduct.TBXLadeMetUitsparing</FormalSpec>
+<Implementation><![CDATA[	Do ..AddZaagOpdracht(LadeMetUitsparing,##class(APPS.Halux.PPS.TBXZaag.enu.SubBatch).SpoelbakSifon())
+]]></Implementation>
+</Method>
+
+<Method name="VerwerkTBXLade">
+<Description>
+Triggered by visitor</Description>
+<FormalSpec>Lade:DOM.PM.TBXProduct.TBXLade</FormalSpec>
+<Implementation><![CDATA[
+	If Lade.BevatTipOn()
+	{
+		Do ..AddZaagOpdracht(Lade, ##class(APPS.Halux.PPS.TBXZaag.enu.SubBatch).TipOn())
+	}
+	Else  ; standaard laden
+	{
+		Do ..AddZaagOpdracht(Lade, ##class(APPS.Halux.PPS.TBXZaag.enu.SubBatch).Main())
+	}
+]]></Implementation>
+</Method>
+
+<Method name="AddZaagOpdracht">
+<FormalSpec>Lade:DOM.PM.TBXProduct.TBXLade,SubBatch:APPS.Halux.PPS.TBXZaag.enu.SubBatch</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	Set BodemRug=##class(APPS.Halux.PPS.TBXZaag.Opdrachten).GetBodemRug(SubBatch,Lade)
+	Quit:BodemRug="" ;niets te zagen
+	Do ##class(APPS.Halux.PPS.TBXZaag.Opdrachten).CreateFromQueue(..Batch,SubBatch,BodemRug,..Queue,Lade)
+]]></Implementation>
+</Method>
+
+<Method name="RemoveBatches">
+<Implementation><![CDATA[
+	Set BatchID=..Batch.%Id()
+	&sql(DECLARE DelBatch CURSOR FOR
+	SELECT ID into :ZaagID
+	FROM APPS_Halux_PPS_TBXZaag.Opdrachten
+	WHERE Batch=:BatchID)
+   
+ 	&sql(OPEN DelBatch)
+ 	For  &sql(FETCH DelBatch) Quit:SQLCODE  Do
+  	. Set sc=##class(APPS.Halux.PPS.TBXZaag.Opdrachten).%DeleteId(ZaagID)
+  	. If $$$ISERR(sc)  $$$ThrowErrorStatus($$$errSaveFailed,"RemoveBatches",sc) 
+
+  	&sql(CLOSE DelBatch)
+]]></Implementation>
+</Method>
+</Class>
+</Export>
Index: APPS/Halux/PPS/TBXZaag/impl/OpdrachtHelper.cls.xml
===================================================================
diff -u
--- APPS/Halux/PPS/TBXZaag/impl/OpdrachtHelper.cls.xml	(revision 0)
+++ APPS/Halux/PPS/TBXZaag/impl/OpdrachtHelper.cls.xml	(revision 2466)
@@ -0,0 +1,281 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="9">
+<Class name="APPS.Halux.PPS.TBXZaag.impl.OpdrachtHelper">
+<ProcedureBlock>1</ProcedureBlock>
+<Super>%RegisteredObject</Super>
+<ClassDefinitionError>0</ClassDefinitionError>
+
+<Property name="ZaagList">
+<Type>%SerialObject</Type>
+</Property>
+
+<Property name="MaxPosList">
+<Type>%Integer</Type>
+</Property>
+
+<Property name="IndexBodemChanges">
+<Type>%String</Type>
+<MultiDimensional>1</MultiDimensional>
+</Property>
+
+<Property name="IndexRugChanges">
+<Type>%String</Type>
+<MultiDimensional>1</MultiDimensional>
+</Property>
+
+<Query name="qActieveBatchLijst">
+<Type>%SQLQuery</Type>
+<FormalSpec>LijnNr</FormalSpec>
+<SqlQuery><![CDATA[	Select DISTINCT Batch || "||" || isnull(SubBatch,"") as BatchKey, Batch || " " || isnull(SubBatch,"") as BatchOms from APPS_Halux_TBX.ZaagOpdrachten --where isnull(Batch->NotActive,0)=0
+	order by Batch,SubBatch]]></SqlQuery>
+<Parameter name="CONTAINID" value="0"/>
+</Query>
+
+<Query name="qZaagLijst">
+<Type>%Query</Type>
+<FormalSpec>BatchID:%Integer,SubBatch:APPS.Halux.TBX.enu.SubBatch</FormalSpec>
+<SqlProc>1</SqlProc>
+<Parameter name="CONTAINID" value="1"/>
+<Parameter name="ROWSPEC" value="ZaagID:%Integer,PRNr:%Integer,KortTekst:%String,BatchID:%Integer,SubBatch:%String,KlantNaam:%String,TOENr:%Integer,DossierCode:%String,VolgNr:%Integer,SubNr:%Integer,Totaal:%Integer,Status:%String,Transferlijn:%String,Mode:%String,ModeTitel:%String,Opmerking1:%String,Opmerking2:%String,PrintXML:%String,OpmetenBodem:%Boolean,BodemAanslagSensor:%Boolean,BodemBewerking:%String,BodemChangeAfter:%Integer,BodemLengteUntilChange:%Float,BodemChangeHoogte:%Boolean,BodemChangeKleur:%Boolean,BodemBreedte:%Float,BodemHoogte:%Integer,BodemHoogteOms:%String,BodemHoogteSensor:%Boolean,BodemKleur2de:%String,BodemKleurZichtbaar:%String,BodemReturnsAfter:%Integer,BodemProductID:%Integer,BodemImageURL:%String,RugAanslagSensor:%Boolean,RugBewerking:%String,RugChangeAfter:%Integer,RugLengteUntilChange:%Float,RugChangeHoogte:%Boolean,RugChangeKleur:%Boolean,RugBreedte:%Float,RugHoogte:%Integer,RugHoogteOms:%String,RugHoogteSensor:%Boolean,RugKleur2de:%String,RugKleurZichtbaar:%String,RugReturnsAfter:%Integer,RugProductID:%Integer,RugImageURL:%String"/>
+</Query>
+
+<Method name="qZaagLijstExecute">
+<ClassMethod>1</ClassMethod>
+<FormalSpec><![CDATA[&qHandle:%Binary,BatchID:%Integer,SubBatch:APPS.Halux.PPS.TBXZaag.enu.SubBatch]]></FormalSpec>
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[
+	Set bl=..%New()
+	Set %ZaagList=bl.GetZaagLijst(BatchID,SubBatch)
+	Set %ZaagListPos=""
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
+<Method name="qZaagLijstFetch">
+<ClassMethod>1</ClassMethod>
+<FormalSpec><![CDATA[&qHandle:%Binary,&Row:%List,&AtEnd:%Integer=0]]></FormalSpec>
+<PlaceAfter>qZaagLijstExecute</PlaceAfter>
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[
+	
+	Set Opdracht=%ZaagList.GetNext(.%ZaagListPos)
+	If $isObject(Opdracht)
+	{
+		Set Row=Opdracht.BuildList()
+	}
+	Else 
+	{
+		Set Row=""
+		Set AtEnd=1
+	}
+	
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
+<Method name="qZaagLijstClose">
+<ClassMethod>1</ClassMethod>
+<FormalSpec><![CDATA[&qHandle:%Binary]]></FormalSpec>
+<PlaceAfter>qZaagLijstExecute</PlaceAfter>
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[
+	Kill %ZaagList,%ZaagListPos
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
+<Method name="GetZaagLijst">
+<FormalSpec>BatchID:%Integer,SubBatch:APPS.Halux.PPS.TBXZaag.enu.SubBatch</FormalSpec>
+<ReturnType>%ListOfObjects</ReturnType>
+<Implementation><![CDATA[
+	Set rsZaagList=##class(%ResultSet).%New(..%ClassName(1)_":qZaagLijstHelper")
+	Set sc=rsZaagList.Execute(BatchID,SubBatch)
+	Set ..ZaagList=##class(%ListOfObjects).%New()
+	While rsZaagList.Next() 
+	{	
+		Set Opdracht=##class(APPS.Halux.PPS.TBXZaag.dto.Opdracht).GetOpdracht(rsZaagList.Data("ID"))
+		Do ..Add2List(Opdracht)
+	}
+	
+	Do ..AddPlaatVerschil()
+	Quit ..ZaagList
+]]></Implementation>
+</Method>
+
+<Method name="Add2List">
+<FormalSpec>Opdracht</FormalSpec>
+<Implementation><![CDATA[
+	Quit:'$isObject(Opdracht)
+	Do ..ZaagList.Insert(Opdracht)
+	
+	; index voorbereiden
+	Set ListPos=..ZaagList.Count()
+	Set ..IndexBodemChanges(ListPos)=$S($isObject(Opdracht.Bodem):$LB(Opdracht.Bodem.GetPlaatKey(),Opdracht.Bodem.Breedte),1:"")
+	Set ..IndexRugChanges(ListPos)=$S($isObject(Opdracht.Rug):$LB(Opdracht.Rug.GetPlaatKey(),Opdracht.Rug.Breedte),1:"")
+]]></Implementation>
+</Method>
+
+<Method name="AddPlaatVerschil">
+<Implementation><![CDATA[
+	Set ..MaxPosList=..ZaagList.Count()
+	Set ListPos=""
+	Do 
+	{ 
+		Set Opdracht=..ZaagList.GetNext(.ListPos)
+		Continue:'ListPos
+		
+		If ..ChangesNextRug(ListPos)
+		{
+			Do ..AddRugChange(ListPos,Opdracht)
+		}
+		Do ..AddRugLength(ListPos,Opdracht)
+
+		
+		If ..ChangesNextBodem(ListPos)
+		{
+			Do ..AddBodemChange(ListPos,Opdracht)
+		}
+		Do ..AddBodemLength(ListPos,Opdracht)
+		
+	} While ListPos
+]]></Implementation>
+</Method>
+
+<Method name="AddBodemChange">
+<FormalSpec>ListPos,Opdracht</FormalSpec>
+<Implementation><![CDATA[
+	Set NextOpdracht=..ZaagList.GetAt(ListPos+1)
+	Do ..AddChange(Opdracht.Bodem,NextOpdracht.Bodem)
+	Do ..AddBodemReturnsAfter(ListPos,Opdracht.Bodem)
+]]></Implementation>
+</Method>
+
+<Method name="AddRugChange">
+<FormalSpec>ListPos,Opdracht</FormalSpec>
+<Implementation><![CDATA[
+	Set NextOpdracht=..ZaagList.GetAt(ListPos+1)
+	Do ..AddChange(Opdracht.Rug,NextOpdracht.Rug)
+	Do ..AddRugReturnsAfter(ListPos,Opdracht.Rug)
+]]></Implementation>
+</Method>
+
+<Method name="AddChange">
+<Description>
+Wijziging wordt aangebracht bij de NextPlaat</Description>
+<FormalSpec>Plaat,NextPlaat</FormalSpec>
+<Implementation><![CDATA[
+	Quit:'$isObject(NextPlaat)
+	
+	If '$isObject(Plaat)||(Plaat.KleurZichtbaar'=NextPlaat.KleurZichtbaar)||(Plaat.Kleur2de'=NextPlaat.Kleur2de)
+	{
+	 	Set NextPlaat.ChangeKleur=1
+	}
+	If '$isObject(Plaat)||(Plaat.Hoogte'=NextPlaat.Hoogte)
+	{
+		Set NextPlaat.ChangeHoogte=1
+	}
+]]></Implementation>
+</Method>
+
+<Method name="AddRugReturnsAfter">
+<FormalSpec>ListPos,Plaat</FormalSpec>
+<Implementation><![CDATA[
+	Quit:'$isObject(Plaat)
+	Set (Cnt,Lengte)=0
+	Set NextListPos=ListPos+1
+	While NextListPos'>..MaxPosList
+	{ 
+		If $L(..IndexRugChanges(NextListPos)) Quit:($LG(..IndexRugChanges(ListPos))=$LG(..IndexRugChanges(NextListPos)))
+		Set NextListPos=NextListPos+1
+	} 
+	
+	Set:NextListPos'>..MaxPosList Plaat.ReturnsAfter=NextListPos-ListPos
+]]></Implementation>
+</Method>
+
+<Method name="AddBodemReturnsAfter">
+<FormalSpec>ListPos,Plaat</FormalSpec>
+<Implementation><![CDATA[
+	Quit:'$isObject(Plaat)
+	Set (Cnt,Lengte)=0
+	Set NextListPos=ListPos+1
+	While NextListPos'>..MaxPosList
+	{ 
+		If $L(..IndexBodemChanges(NextListPos)) Quit:($LG(..IndexBodemChanges(ListPos))=$LG(..IndexBodemChanges(NextListPos)))
+		Set NextListPos=NextListPos+1
+	} 
+	
+	Set:NextListPos'>..MaxPosList Plaat.ReturnsAfter=NextListPos-ListPos
+]]></Implementation>
+</Method>
+
+<Method name="AddRugLength">
+<FormalSpec>ListPos,Opdracht</FormalSpec>
+<Implementation><![CDATA[
+	Quit:'$isObject(Opdracht.Rug)
+	Set (Cnt,Lengte)=0
+	Set NextListPos=ListPos
+	Do { 
+		Set Cnt=Cnt+1
+		Set Lengte=Lengte+$LG(..IndexRugChanges(NextListPos),2)
+		Quit:..ChangesNextRug(NextListPos)
+		Set NextListPos=NextListPos+1
+	} While NextListPos<..MaxPosList
+	
+	Set Opdracht.Rug.ChangeAfter=Cnt
+	Set Opdracht.Rug.LengteUntilChange=Lengte*1.05
+]]></Implementation>
+</Method>
+
+<Method name="AddBodemLength">
+<FormalSpec>ListPos,Opdracht</FormalSpec>
+<Implementation><![CDATA[
+	Quit:'$isObject(Opdracht.Bodem)
+	Set (Cnt,Lengte)=0
+	Set NextListPos=ListPos
+	Do { 
+		Set Cnt=Cnt+1
+		Set Lengte=Lengte+$LG(..IndexBodemChanges(NextListPos),2)
+		Quit:..ChangesNextBodem(NextListPos)
+		Set NextListPos=NextListPos+1
+	} While NextListPos<..MaxPosList
+	
+	Set Opdracht.Bodem.ChangeAfter=Cnt
+	Set Opdracht.Bodem.LengteUntilChange=Lengte*1.05
+]]></Implementation>
+</Method>
+
+<Method name="ZoekPlaatVerschil">
+<FormalSpec>ListPos</FormalSpec>
+<Implementation><![CDATA[
+	Set NextListPos=ListPos
+	Do { 
+		Quit:..ChangesNextRug(NextListPos)||..ChangesNextBodem(NextListPos)
+		Set NextListPos=NextListPos+1
+	} While NextListPos<..MaxPosList
+]]></Implementation>
+</Method>
+
+<Method name="ChangesNextRug">
+<CodeMode>expression</CodeMode>
+<FormalSpec>ListPos</FormalSpec>
+<Implementation><![CDATA[(ListPos<..MaxPosList)&&($LG(..IndexRugChanges(ListPos))'=$LG(..IndexRugChanges(ListPos+1)))
+]]></Implementation>
+</Method>
+
+<Method name="ChangesNextBodem">
+<CodeMode>expression</CodeMode>
+<FormalSpec>ListPos</FormalSpec>
+<Implementation><![CDATA[(ListPos<..MaxPosList)&&($LG(..IndexBodemChanges(ListPos))'=$LG(..IndexBodemChanges(ListPos+1)))
+]]></Implementation>
+</Method>
+
+<Query name="qZaagLijstHelper">
+<Type>%SQLQuery</Type>
+<FormalSpec>BatchID:%Integer,SubBatch:APPS.Halux.TBX.enu.SubBatch</FormalSpec>
+<SqlQuery>	
+	Select ID from APPS_Halux_TBX.ZaagOpdrachten where Batch = :BatchID and isnull(SubBatch,"*")=isnull(:SubBatch,"*")</SqlQuery>
+<Parameter name="CONTAINID" value="1"/>
+</Query>
+</Class>
+</Export>
Index: APPS/Halux/PPS/TBXZaag/impl/PlaatMateriaalHelper.cls.xml
===================================================================
diff -u
--- APPS/Halux/PPS/TBXZaag/impl/PlaatMateriaalHelper.cls.xml	(revision 0)
+++ APPS/Halux/PPS/TBXZaag/impl/PlaatMateriaalHelper.cls.xml	(revision 2466)
@@ -0,0 +1,136 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="9">
+<Class name="APPS.Halux.PPS.TBXZaag.impl.PlaatMateriaalHelper">
+<ProcedureBlock>1</ProcedureBlock>
+<Super>%RegisteredObject</Super>
+<ClassDefinitionError>0</ClassDefinitionError>
+
+<Property name="Array">
+<Type>%ArrayOfObjects</Type>
+</Property>
+
+<Property name="ProductAPI">
+<Type>%RegisteredObject</Type>
+</Property>
+
+<Method name="%OnNew">
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[
+	Set ..ProductAPI=##class(DOM.DomeinContext).Instance().GeefProductAPI()
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
+<Query name="qPlatenLijst">
+<Type>%Query</Type>
+<FormalSpec>BodemRug:APPS.Halux.PPS.TBXZaag.enu.BodemRug</FormalSpec>
+<SqlProc>1</SqlProc>
+<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.PPS.TBXZaag.enu.BodemRug]]></FormalSpec>
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[
+	Set bl=..%New()
+	Do bl.GetPlaten(BodemRug)
+	Set %itPlaten=bl.GeefIterator()
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
+<Method name="qPlatenLijstFetch">
+<ClassMethod>1</ClassMethod>
+<FormalSpec><![CDATA[&qHandle:%Binary,&Row:%List,&AtEnd:%Integer=0]]></FormalSpec>
+<PlaceAfter>qPlatenLijstExecute</PlaceAfter>
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[
+	If %itPlaten.HasNext()
+	{
+		Set Row=%itPlaten.Next().GeefRij()
+	}
+	Else 
+	{
+		Set Row=""
+		Set AtEnd=1
+	}
+	
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
+<Method name="qPlatenLijstClose">
+<ClassMethod>1</ClassMethod>
+<FormalSpec><![CDATA[&qHandle:%Binary]]></FormalSpec>
+<PlaceAfter>qPlatenLijstExecute</PlaceAfter>
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[
+	Kill %itPlaten
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
+<Method name="GetPlaten">
+<Description>
+d ##class(APPS.Halux.PPS.TBXZaag.impl.PlaatMateriaalHelper).GetPlaten()</Description>
+<FormalSpec>BodemRug:APPS.Halux.PPS.TBXZaag.enu.BodemRug=""</FormalSpec>
+<Implementation><![CDATA[
+	;Set ArrayOfObjects=##class(%ArrayOfObjects).%New()
+	If (BodemRug=##class(APPS.Halux.PPS.TBXZaag.enu.BodemRug).Bodem())||(BodemRug=##class(APPS.Halux.PPS.TBXZaag.enu.BodemRug).BodemRug())||(BodemRug="")
+	{
+		Kill %PlatenArray
+		Do ..GetPlatenViaKenmerk("%PlatenArray",##class(APPS.Halux.PPS.TBXZaag.enu.BodemRug).Bodem())
+		Do ..Convert2dto(##class(APPS.Halux.PPS.TBXZaag.enu.BodemRug).Bodem(),"%PlatenArray")
+	}
+	
+	If (BodemRug=##class(APPS.Halux.PPS.TBXZaag.enu.BodemRug).Rug())||(BodemRug=##class(APPS.Halux.PPS.TBXZaag.enu.BodemRug).BodemRug())||(BodemRug="")
+	{
+		Kill %PlatenArray
+		Do ..GetPlatenViaKenmerk("%PlatenArray",##class(APPS.Halux.PPS.TBXZaag.enu.BodemRug).Rug())
+		Do ..Convert2dto(##class(APPS.Halux.PPS.TBXZaag.enu.BodemRug).Rug(),"%PlatenArray")
+	}
+	Kill %PlatenArray
+]]></Implementation>
+</Method>
+
+<Method name="GeefIterator">
+<Implementation><![CDATA[	 Quit ##class(TECH.ListIterator).%New(..Array)
+]]></Implementation>
+</Method>
+
+<Method name="Convert2dto">
+<FormalSpec>BodemRug:APPS.Halux.PPS.TBXZaag.enu.BodemRug,ArrayRef:%String</FormalSpec>
+<Implementation><![CDATA[
+	Set PRNr=""
+	Do {
+		Set PRNr=$O(@ArrayRef@(PRNr))
+		Continue:PRNr=""
+		Set dtoPlaat=""
+		If BodemRug=##class(APPS.Halux.PPS.TBXZaag.enu.BodemRug).Bodem() 
+		{
+			Set Plaat=..ProductAPI.GeefProduct(PRNr)
+			Set dtoPlaat=##class(APPS.Halux.PPS.TBXZaag.dto.PlaatMateriaal).GetBodem(Plaat)
+		}
+		ElseIf  BodemRug=##class(APPS.Halux.PPS.TBXZaag.enu.BodemRug).Rug()
+		{
+			Set Plaat=..ProductAPI.GeefProduct(PRNr)
+			Set dtoPlaat=##class(APPS.Halux.PPS.TBXZaag.dto.PlaatMateriaal).GetRug(Plaat)
+		}
+		Continue:'$isObject(dtoPlaat)
+		Do ..Array.SetAt(dtoPlaat,dtoPlaat.GetPlaatKey())
+
+	} While PRNr'=""
+]]></Implementation>
+</Method>
+
+<Method name="GetPlatenViaKenmerk">
+<FormalSpec>ArrayRef:%String,BodemRug:APPS.Halux.PPS.TBXZaag.enu.BodemRug</FormalSpec>
+<Implementation><![CDATA[
+	Set KenmerkWaarde=$S(BodemRug=##class(APPS.Halux.PPS.TBXZaag.enu.BodemRug).Bodem():"BODEMSTRK",1:"RUGSTRK")
+	Do ##class(Prod.Kenmerk.DataIndex).SPAlle("TB",ArrayRef,"BasisType",KenmerkWaarde)
+	Do ##class(Prod.Kenmerk.DataIndex).SPBeperk("TB",ArrayRef,"Actief","A")
+]]></Implementation>
+</Method>
+</Class>
+</Export>
Index: APPS/Halux/PPS/TBXZaag/enu/Werkpost.cls.xml
===================================================================
diff -u
--- APPS/Halux/PPS/TBXZaag/enu/Werkpost.cls.xml	(revision 0)
+++ APPS/Halux/PPS/TBXZaag/enu/Werkpost.cls.xml	(revision 2466)
@@ -0,0 +1,45 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="9">
+<Class name="APPS.Halux.PPS.TBXZaag.enu.Werkpost">
+<Description><![CDATA[
+Enumeratie Werkposten
+<ul>
+	<li>Spoelbak en Syfon laden</li>
+	<li>Tipon</li>
+</ul>]]></Description>
+<ClassType>datatype</ClassType>
+<ProcedureBlock>1</ProcedureBlock>
+<Super>%String</Super>
+
+<Parameter name="VALUELIST">
+<Default>,Z1,P1,P2</Default>
+</Parameter>
+
+<Method name="Zaag1">
+<ClassMethod>1</ClassMethod>
+<CodeMode>expression</CodeMode>
+<Implementation><![CDATA[
+"Z1"
+
+]]></Implementation>
+</Method>
+
+<Method name="Pers1">
+<ClassMethod>1</ClassMethod>
+<CodeMode>expression</CodeMode>
+<Implementation><![CDATA[
+"P1"
+
+]]></Implementation>
+</Method>
+
+<Method name="Pers2">
+<ClassMethod>1</ClassMethod>
+<CodeMode>expression</CodeMode>
+<Implementation><![CDATA[
+"P2"
+
+]]></Implementation>
+</Method>
+</Class>
+</Export>
Index: APPS/Halux/PPS/TBXZaag/impl/Werkpost.cls.xml
===================================================================
diff -u
--- APPS/Halux/PPS/TBXZaag/impl/Werkpost.cls.xml	(revision 0)
+++ APPS/Halux/PPS/TBXZaag/impl/Werkpost.cls.xml	(revision 2466)
@@ -0,0 +1,208 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="9">
+<Class name="APPS.Halux.PPS.TBXZaag.impl.Werkpost">
+<IncludeCode>TECH.Error</IncludeCode>
+<ProcedureBlock>1</ProcedureBlock>
+<Super>%RegisteredObject,APPS.Halux.PPS.TBXZaag.IWerkpost</Super>
+<ClassDefinitionError>0</ClassDefinitionError>
+
+<Property name="Werkpost">
+<Type>APPS.Halux.enu.Werkpost</Type>
+<Private>1</Private>
+</Property>
+
+<Parameter name="DeviceLabelApplicator">
+<Default>Halux_Zaag_Appl</Default>
+</Parameter>
+
+<Parameter name="DeviceLabelBackup">
+<Default>Halux_Zaag_Appl</Default>
+</Parameter>
+
+<Property name="Logger">
+<Type>vhLib.Logger</Type>
+<Private>1</Private>
+</Property>
+
+<Parameter name="LoggerGroup">
+<Default>Halux.TBX.ZAAG</Default>
+</Parameter>
+
+<Method name="%OnNew">
+<FormalSpec>Werkpost:%String</FormalSpec>
+<Private>1</Private>
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[
+	Set ..Werkpost=Werkpost
+	Set ..Logger=##class(vhLib.Logger).%New(..#LoggerGroup)
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
+<Method name="BeschadigingLade">
+<Implementation><![CDATA[]]></Implementation>
+</Method>
+
+<Method name="BeschadigingPlaat">
+<FormalSpec>BodemOfRug:APPS.Halux.PPS.TBXZaag.enu.BodemRug,Kleur:%String,Hoogte:%Integer,Lengte:%Float,Reden:%String</FormalSpec>
+<Implementation><![CDATA[]]></Implementation>
+</Method>
+
+<Method name="ControleMeting">
+<FormalSpec>ZaagID:%Integer,BodemOfRug:APPS.Halux.PPS.TBXZaag.enu.BodemRug,GewensteLengte:%Float,GemetenLengte:%Float</FormalSpec>
+<Implementation><![CDATA[]]></Implementation>
+</Method>
+
+<Method name="GeefBatchLijst">
+<FormalSpec>ProductieLijn:APPS.Halux.PPS.TBXZaag.enu.Output2Lijn</FormalSpec>
+<ReturnType>%XML.DataSet</ReturnType>
+<Implementation><![CDATA[
+	
+	Set Log=..Logger.Debug("GeefBatchLijst", "Lijn:"_$G(ProductieLijn))
+	Set DataSet=##class(%XML.DataSet).%New("APPS.Halux.PPS.TBXZaag.impl.LijstHelper:qActieveBatchLijst")
+	
+	Quit DataSet
+]]></Implementation>
+</Method>
+
+<Method name="SyncBatches">
+<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.PPS.TBXZaag.impl.SyncHelper:qSyncBatch")
+	Do DataSet.SetArgs(L1BatchKey, L2BatchKey, DirectBatchKey)
+
+	Quit DataSet
+]]></Implementation>
+</Method>
+
+<Method name="GeefZaagLijst">
+<FormalSpec>BatchKey:%String,ProductieLijn:APPS.Halux.PPS.TBXZaag.enu.Output2Lijn</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.PPS.TBXZaag.impl.LijstHelper:qZaagLijst")
+	Do DataSet.SetArgs($P(BatchKey,"||"),$P(BatchKey,"||",2))
+	Quit DataSet
+]]></Implementation>
+</Method>
+
+<Method name="GeefPlaatMateriaal">
+<FormalSpec>BodemRug:APPS.Halux.PPS.TBXZaag.enu.BodemRug</FormalSpec>
+<ReturnType>%XML.DataSet</ReturnType>
+<Implementation><![CDATA[
+	Set Log=..Logger.Debug("GeefPlaatMateriaal", "BodemRug:"_BodemRug)
+	Set DataSet=##class(%XML.DataSet).%New("APPS.Halux.PPS.TBXZaag.impl.PlaatMateriaalHelper:qPlatenLijst")
+	Do DataSet.SetArgs(BodemRug)
+	
+	Quit DataSet
+]]></Implementation>
+</Method>
+
+<Method name="GeefStilstanden">
+<FormalSpec>Werkpost:APPS.Halux.enu.Werkpost=""</FormalSpec>
+<ReturnType>%XML.DataSet</ReturnType>
+<Implementation><![CDATA[
+	Set Log=..Logger.Debug("GeefStilstanden", "Werkpost:"_Werkpost)
+	Set BuildHelper=##class(APPS.Halux.PPS.TBXZaag.impl.StilstandenHelper).%New(Werkpost)
+	Set DataSet=##class(%XML.DataSet).%New("APPS.Halux.Opvolging.impl.Stilstanden:qLijst")
+	Do DataSet.SetArgs(BuildHelper)
+	
+	Quit DataSet
+]]></Implementation>
+</Method>
+
+<Method name="PrintLabel">
+<FormalSpec>ZaagID:%Integer,Device:APPS.Halux.PPS.TBXZaag.enu.PrintDevice</FormalSpec>
+<Implementation><![CDATA[
+	Set Log=..Logger.Debug("PrintLabel", "ZaagID:"_ZaagID_", Device:"_Device)
+	Set ZaagOpdracht=##class(APPS.Halux.PPS.TBXZaag.Opdrachten).%OpenId(ZaagID)
+	If '$isObject(ZaagOpdracht) $$$ThrowError($$$errObjectExpected,"Zaagopdracht wrong ID:"_ZaagID)
+	Do ##class(APPS.Halux.PPS.TBXZaag.impl.EtiketHelper).AfdrukkenZaagEtiket(ZaagOpdracht,..GeefLabelPrinter(Device))
+]]></Implementation>
+</Method>
+
+<Method name="GeefLabelPrinter">
+<FormalSpec>Device:APPS.Halux.PPS.TBXZaag.enu.PrintDevice</FormalSpec>
+<Private>1</Private>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[
+	If Device = ##class(APPS.Halux.PPS.TBXZaag.enu.PrintDevice).LabelApplicator() 
+	{
+		Set Printer = ..#DeviceLabelApplicator
+	}
+	ElseIf Device = ##class(APPS.Halux.PPS.TBXZaag.enu.PrintDevice).LabelBackup() 
+	{
+		Set Printer = ..#DeviceLabelBackup
+	}
+	
+	Quit $G(Printer)
+]]></Implementation>
+</Method>
+
+<Method name="PrintLabelManueel">
+<FormalSpec>Titel:%String,BodemHoogte:%Integer,BodemLengte:%Float,RugHoogte:%Integer,RugLengte:%Float,Device:APPS.Halux.PPS.TBXZaag.enu.PrintDevice</FormalSpec>
+<Implementation><![CDATA[	Set Log=..Logger.Debug("PrintLabelManueel", "Device:"_Device)
+]]></Implementation>
+</Method>
+
+<Method name="RegistreerStilstand">
+<FormalSpec>Reden:%String,Duur:%Integer,ZaagID:%String=""</FormalSpec>
+<Implementation><![CDATA[
+	Set Log=..Logger.Debug("RegistreerStilstand", "Werkpost:"_Werkpost_", Reden:"_Reden)
+
+	Set ZaagOpdracht=##class(APPS.Halux.PPS.TBXZaag.Opdrachten).%OpenId(ZaagID)
+	If $isObject(ZaagOpdracht)
+	{
+		 Set Batch=ZaagOpdracht.Batch.%Id()
+	}
+	Else 
+	{ 
+		Set Batch=""
+	}
+	Do ##class(APPS.Halux.Opvolging.impl.Stilstanden).Registreer(..%ClassName(), ..Werkpost, Batch, Reden, Duur)
+]]></Implementation>
+</Method>
+
+<Method name="ZetStatus">
+<Description>
+d ##class(APPS.Halux.PPS.TBXZaag.impl.WerkpostZaag).%New().ZetStatus("Z1",518,"F","L1")</Description>
+<FormalSpec>WerkPost:APPS.Halux.enu.Werkpost,ZaagID:%Integer,NewStatus:APPS.Halux.PPS.TBXZaag.enu.Status,ProductieLijn:APPS.Halux.PPS.TBXZaag.enu.Output2Lijn</FormalSpec>
+<Implementation><![CDATA[
+	Set Log=..Logger.Debug("ZetStatus", "ZaagID:"_ZaagID_", NewStatus:"_NewStatus_", Lijn:"_ProductieLijn)
+
+	Set ZaagOpdracht=##class(APPS.Halux.PPS.TBXZaag.Opdrachten).%OpenId(ZaagID)
+	If '$isObject(ZaagOpdracht) $$$ThrowError($$$errObjectExpected,"Zaagopdracht wrong ID:"_ZaagID)
+	Set ZaagOpdracht.Status=NewStatus
+	Set:NewStatus=##class(APPS.Halux.PPS.TBXZaag.enu.Status).Finished() ZaagOpdracht.ProductieLijn=ProductieLijn
+	Set sc=ZaagOpdracht.%Save()
+	If $$$ISERR(sc) $$$ThrowErrorStatus($$$errSaveFailed,"Zaagopdracht:"_ZaagID,sc)
+	
+	If 'ZaagOpdracht.IsHerstelling
+	{
+		Do:ProductieLijn=##class(APPS.Halux.PPS.TBXZaag.enu.Output2Lijn).Lijn1() ZaagOpdracht.Batch.ZetLijn(##class(APPS.Halux.common.enu.ProductieLijn).Een())
+		Do:ProductieLijn=##class(APPS.Halux.PPS.TBXZaag.enu.Output2Lijn).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)
+		
+		Do ZaagOpdracht.Queue.StartZaag(ProductieLijn)
+		Set sc=ZaagOpdracht.Queue.%Save()
+		If $$$ISERR(sc) $$$ThrowErrorStatus($$$errSaveFailed,"Queue:"_ZaagOpdracht.Queue.%Id(),sc)
+	}
+]]></Implementation>
+</Method>
+
+<Method name="GeefProductURL">
+<FormalSpec>ZaagID:%Integer</FormalSpec>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[
+	Set ZaagOpdracht=##class(APPS.Halux.PPS.TBXZaag.Opdrachten).%OpenId(ZaagID)
+	Quit:'$isObject(ZaagOpdracht) ""
+	Set Product = ##class(DOM.DomeinContext).Instance().GeefProductAPI().GeefProduct(ZaagOpdracht.Product.%Id())
+	Quit Product.GeefFicheURL()
+]]></Implementation>
+</Method>
+</Class>
+</Export>
Index: APPS/Halux/PPS/TBXZaag/enu/Status.cls.xml
===================================================================
diff -u
--- APPS/Halux/PPS/TBXZaag/enu/Status.cls.xml	(revision 0)
+++ APPS/Halux/PPS/TBXZaag/enu/Status.cls.xml	(revision 2466)
@@ -0,0 +1,54 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="9">
+<Class name="APPS.Halux.PPS.TBXZaag.enu.Status">
+<ClassType>datatype</ClassType>
+<ProcedureBlock>1</ProcedureBlock>
+<Super>%String</Super>
+
+<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/PPS/TBXZaag/impl/SyncHelper.cls.xml
===================================================================
diff -u
--- APPS/Halux/PPS/TBXZaag/impl/SyncHelper.cls.xml	(revision 0)
+++ APPS/Halux/PPS/TBXZaag/impl/SyncHelper.cls.xml	(revision 2466)
@@ -0,0 +1,146 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="9">
+<Class name="APPS.Halux.PPS.TBXZaag.impl.SyncHelper">
+<ProcedureBlock>1</ProcedureBlock>
+<Super>%RegisteredObject</Super>
+<ClassDefinitionError>0</ClassDefinitionError>
+
+<Query name="qBodemsInBuffer">
+<Description>
+Bodems die gezaagd zijn maar nog niet geperst</Description>
+<Type>%SQLQuery</Type>
+<SqlQuery><![CDATA[  SELECT ID, BatchID, Product, WPZaag_Productielijn as ProductieLijn, WPZaag_FirstChanged as GezaagdTijdStip
+  FROM PPS.TBX_Queue 
+  WHERE (isnull(WPZaag_Productielijn,"*")<>"*" )  and (isnull(WPPers_WPStatus,"*")<>"F") 
+  ORDER by WPZaag_FirstChanged]]></SqlQuery>
+<Parameter name="CONTAINID" value="1"/>
+</Query>
+
+<Query name="qSyncBatch">
+<Type>%Query</Type>
+<FormalSpec>L1BatchKey:%String,L2BatchKey:%String,DirectBatchKey:%String</FormalSpec>
+<Parameter name="ROWSPEC" value="ProductieLijn:%String, BatchKey:%String, BatchChanged:%Boolean, BufferAantal:%Integer,BufferLengte:%Float"/>
+</Query>
+
+<Method name="qSyncBatchExecute">
+<ClassMethod>1</ClassMethod>
+<FormalSpec><![CDATA[&qHandle:%Binary,L1BatchKey:%String,L2BatchKey:%String,DirectBatchKey:%String]]></FormalSpec>
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[
+	Set %ProdLijnen=##class(%ArrayOfObjects).%New()
+	Set SyncBatch=##class(APPS.Halux.PPS.TBXZaag.dto.SyncBatch).%New($G(L1BatchKey),##class(APPS.Halux.PPS.TBXZaag.enu.Output2Lijn).Lijn1())
+	Do %ProdLijnen.SetAt(SyncBatch,SyncBatch.ProductieLijn)
+	Set SyncBatch=##class(APPS.Halux.PPS.TBXZaag.dto.SyncBatch).%New($G(L2BatchKey),##class(APPS.Halux.PPS.TBXZaag.enu.Output2Lijn).Lijn2())
+	Do %ProdLijnen.SetAt(SyncBatch,SyncBatch.ProductieLijn)
+	Set SyncBatch=##class(APPS.Halux.PPS.TBXZaag.dto.SyncBatch).%New($G(DirectBatchKey),##class(APPS.Halux.PPS.TBXZaag.enu.Output2Lijn).Direct())
+	Do %ProdLijnen.SetAt(SyncBatch,SyncBatch.ProductieLijn)
+	
+	Do ##class(APPS.Halux.PPS.TBXZaag.impl.Helper).CalcBufferLength(%ProdLijnen)
+	Do ##class(APPS.Halux.PPS.TBXZaag.impl.Helper).MarkChangedBatches(%ProdLijnen)
+	Set %ProdLijnenKey=""
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
+<Method name="qSyncBatchFetch">
+<ClassMethod>1</ClassMethod>
+<FormalSpec><![CDATA[&qHandle:%Binary,&Row:%List,&AtEnd:%Integer=0]]></FormalSpec>
+<PlaceAfter>qSyncBatchExecute</PlaceAfter>
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[
+	
+	Set SyncBatch=%ProdLijnen.GetNext(.%ProdLijnenKey)
+	If $isObject(SyncBatch)
+	{
+		Set Row=SyncBatch.BuildList(%ProdLijnenKey)
+	}
+	Else 
+	{
+		Set Row=""
+		Set AtEnd=1
+	}
+	
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
+<Method name="qSyncBatchClose">
+<ClassMethod>1</ClassMethod>
+<FormalSpec><![CDATA[&qHandle:%Binary]]></FormalSpec>
+<PlaceAfter>qSyncBatchExecute</PlaceAfter>
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[
+	Kill %ProdLijnen,%ProdLijnenKey
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
+<Method name="AfdrukkenZaagEtiket">
+<ClassMethod>1</ClassMethod>
+<FormalSpec>ZaagOpdracht:APPS.Halux.PPS.TBXZaag.Opdrachten,Device:%String</FormalSpec>
+<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 Product.IsSpoelbakLade() 
+	{	
+		Do blPrint.EtikettenSpoelbak(SequenceNr, SequenceNr)
+	}
+	ElseIf Product.IsSifonLade() 
+	{	
+		Do blPrint.EtikettenSifon(SequenceNr, SequenceNr)
+	}
+	ElseIf Product.BevatTipOn() 
+	{
+		Do blPrint.EtikettenTipon(SequenceNr, SequenceNr)
+	}
+	Else 
+	{
+		Do blPrint.Etiketten(SequenceNr, SequenceNr)
+	}
+]]></Implementation>
+</Method>
+
+<Method name="CalcBufferLength">
+<ClassMethod>1</ClassMethod>
+<FormalSpec>ProdLijnen:%ArrayOfObjects</FormalSpec>
+<Implementation><![CDATA[
+		Set rsGezaagd=##class(%ResultSet).%New("APPS.Halux.PPS.TBXZaag.impl.WerkpostZaagHelper:qBodemsInBuffer")
+		; QueueID, BatchID, Product, ProductieLijn, GezaagdTijdStip, Product
+		Set sc=rsGezaagd.Execute()
+		Set ProductAPI = ##class(DOM.DomeinContext).Instance().GeefProductAPI() ; extends DOM.PM.TBXProduct.TBXLade
+		While rsGezaagd.Next() 
+		{	
+			Continue:(rsGezaagd.Data("ProductieLijn")'="")
+			Set SyncBatch=ProdLijnen.GetAt(rsGezaagd.Data("ProductieLijn"))
+			Continue:'$isObject(SyncBatch)
+			Set Product = ProductAPI.GeefProduct(rsGezaagd.Data("Product"))
+			Continue:'$isObject(Product)
+			Set SyncBatch.BufferAantal=SyncBatch.BufferAantal+1
+			Set SyncBatch.BufferLengte=SyncBatch.BufferLengte+Product.GeefInterneBreedte()
+		}
+]]></Implementation>
+</Method>
+
+<Method name="MarkChangedBatches">
+<ClassMethod>1</ClassMethod>
+<FormalSpec>ProdLijnen:%ArrayOfObjects</FormalSpec>
+<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>
+</Export>
Index: APPS/Halux/PPS/TBXZaag/impl/EtiketHelper.cls.xml
===================================================================
diff -u
--- APPS/Halux/PPS/TBXZaag/impl/EtiketHelper.cls.xml	(revision 0)
+++ APPS/Halux/PPS/TBXZaag/impl/EtiketHelper.cls.xml	(revision 2466)
@@ -0,0 +1,36 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="9">
+<Class name="APPS.Halux.PPS.TBXZaag.impl.EtiketHelper">
+<ProcedureBlock>1</ProcedureBlock>
+<Super>%RegisteredObject</Super>
+<ClassDefinitionError>0</ClassDefinitionError>
+
+<Method name="AfdrukkenEtiket">
+<ClassMethod>1</ClassMethod>
+<FormalSpec>ZaagOpdracht:APPS.Halux.PPS.TBXZaag.Opdrachten,Device:%String</FormalSpec>
+<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 Product.IsSpoelbakLade() 
+	{	
+		Do blPrint.EtikettenSpoelbak(SequenceNr, SequenceNr)
+	}
+	ElseIf Product.IsSifonLade() 
+	{	
+		Do blPrint.EtikettenSifon(SequenceNr, SequenceNr)
+	}
+	ElseIf Product.BevatTipOn() 
+	{
+		Do blPrint.EtikettenTipon(SequenceNr, SequenceNr)
+	}
+	Else 
+	{
+		Do blPrint.Etiketten(SequenceNr, SequenceNr)
+	}
+]]></Implementation>
+</Method>
+</Class>
+</Export>
Index: APPS/Halux/PPS/TBXZaag/impl/StilstandenHelper.cls.xml
===================================================================
diff -u
--- APPS/Halux/PPS/TBXZaag/impl/StilstandenHelper.cls.xml	(revision 0)
+++ APPS/Halux/PPS/TBXZaag/impl/StilstandenHelper.cls.xml	(revision 2466)
@@ -0,0 +1,64 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="9">
+<Class name="APPS.Halux.PPS.TBXZaag.impl.StilstandenHelper">
+<ProcedureBlock>1</ProcedureBlock>
+<Super>%RegisteredObject,APPS.Halux.Opvolging.AStilstandenLijstHelper</Super>
+<ClassDefinitionError>0</ClassDefinitionError>
+
+<Method name="%OnNew">
+<FormalSpec>Werkpost:APPS.Halux.enu.Werkpost</FormalSpec>
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[
+	Do ..AddPlaten()
+	Do ..AddMachine()
+	Do ..AddPrinter()
+	Do ..AddDiverse()
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
+<Method name="AddBuffer">
+<Implementation><![CDATA[
+	Set Grp="Buffer"
+	Do ..VoegToeStilstand(Grp,"Buffer beide lijnen vol","Buffers vol")
+]]></Implementation>
+</Method>
+
+<Method name="AddPlaten">
+<Implementation><![CDATA[
+	Set Grp="Platen"
+	Do ..VoegToeStilstand(Grp,"Beschadigd","Beschadigd")
+	Do ..VoegToeStilstand(Grp,"Afkanting","Afkanting")
+]]></Implementation>
+</Method>
+
+<Method name="AddMachine">
+<Implementation><![CDATA[
+	Set Grp="Machine"
+	Do ..VoegToeStilstand(Grp,"Machine heeft kuren")
+	Do ..VoegToeStilstand(Grp,"Afleg lijn1 stropt")
+	Do ..VoegToeStilstand(Grp,"Afleg lijn2 stropt")
+]]></Implementation>
+</Method>
+
+<Method name="AddPrinter">
+<Implementation><![CDATA[
+	Set Grp="Printer"
+	Do ..VoegToeStilstand(Grp,"Applicator niet synchroon")
+	Do ..VoegToeStilstand(Grp,"Nieuw papier")
+	Do ..VoegToeStilstand(Grp,"Nieuw carbon")
+]]></Implementation>
+</Method>
+
+<Method name="AddDiverse">
+<Implementation><![CDATA[
+	Set Grp="Diverse"
+	Do ..VoegToeStilstand(Grp,"Opstart")
+	Do ..VoegToeStilstand(Grp,"Overleg")
+	Do ..VoegToeStilstand(Grp,"10 pauze")
+	Do ..VoegToeStilstand(Grp,"Middag pauze")
+	Do ..VoegToeStilstand(Grp,"Technische interventie")
+]]></Implementation>
+</Method>
+</Class>
+</Export>
Index: APPS/Halux/PPS/TBXZaag/enu/PrintDevice.cls.xml
===================================================================
diff -u
--- APPS/Halux/PPS/TBXZaag/enu/PrintDevice.cls.xml	(revision 0)
+++ APPS/Halux/PPS/TBXZaag/enu/PrintDevice.cls.xml	(revision 2466)
@@ -0,0 +1,34 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="9">
+<Class name="APPS.Halux.PPS.TBXZaag.enu.PrintDevice">
+<Description>
+Aan de zaag zijn 2 printers gekoppeld.
+LabelApplicator
+LabelBackup</Description>
+<ClassType>datatype</ClassType>
+<ProcedureBlock>1</ProcedureBlock>
+<Super>%String</Super>
+
+<Parameter name="VALUELIST">
+<Default>,LA,LB</Default>
+</Parameter>
+
+<Method name="LabelApplicator">
+<ClassMethod>1</ClassMethod>
+<CodeMode>expression</CodeMode>
+<Implementation><![CDATA[
+"LA"
+
+]]></Implementation>
+</Method>
+
+<Method name="LabelBackup">
+<ClassMethod>1</ClassMethod>
+<CodeMode>expression</CodeMode>
+<Implementation><![CDATA[
+"LB"
+
+]]></Implementation>
+</Method>
+</Class>
+</Export>
Index: APPS/Halux/PPS/TBXZaag/Opdrachten.cls.xml
===================================================================
diff -u
--- APPS/Halux/PPS/TBXZaag/Opdrachten.cls.xml	(revision 0)
+++ APPS/Halux/PPS/TBXZaag/Opdrachten.cls.xml	(revision 2466)
@@ -0,0 +1,156 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="9">
+<Class name="APPS.Halux.PPS.TBXZaag.Opdrachten">
+<ClassType>persistent</ClassType>
+<IncludeCode>TECH.Error</IncludeCode>
+<ProcedureBlock>1</ProcedureBlock>
+<Super>%Persistent</Super>
+<ClassDefinitionError>0</ClassDefinitionError>
+
+<Property name="Batch">
+<Type>APPS.Halux.common.impl.BatchImpl</Type>
+<Required>1</Required>
+</Property>
+
+<Property name="BodemRug">
+<Type>APPS.Halux.PPS.TBXZaag.enu.BodemRug</Type>
+<Required>1</Required>
+</Property>
+
+<Property name="ControleMeting">
+<Description>
+Resultaat van de meeting</Description>
+<Type>%Float</Type>
+</Property>
+
+<Property name="Queue">
+<Type>DS.PPS.TBX.Queue</Type>
+<Required>1</Required>
+</Property>
+
+<Property name="ProductieLijn">
+<Type>APPS.Halux.PPS.TBXZaag.enu.Output2Lijn</Type>
+</Property>
+
+<Property name="Status">
+<Type>APPS.Halux.PPS.TBXZaag.enu.Status</Type>
+</Property>
+
+<Property name="IsHerstelling">
+<Type>%Boolean</Type>
+</Property>
+
+<Property name="Product">
+<Type>Prod.Product</Type>
+</Property>
+
+<Property name="SubBatch">
+<Type>APPS.Halux.PPS.TBXZaag.enu.SubBatch</Type>
+</Property>
+
+<Property name="WijzigTijdstip">
+<Type>%TimeStamp</Type>
+</Property>
+
+<Index name="IndexBatch">
+<Properties>Batch</Properties>
+</Index>
+
+<Method name="CreateFromQueue">
+<ClassMethod>1</ClassMethod>
+<FormalSpec>Batch:APPS.Halux.common.Batch,SubBatch:APPS.Halux.PPS.TBXZaag.enu.SubBatch,BodemRug:APPS.Halux.PPS.TBXZaag.enu.BodemRug,Queue:DS.PPS.TBX.Queue,Lade:DOM.PM.TBXProduct.TBXLade</FormalSpec>
+<Implementation><![CDATA[
+	Set ZaagOpdracht=..%New()
+	Set ZaagOpdracht.Batch=Batch
+	Set ZaagOpdracht.BodemRug=BodemRug
+	
+	Set ZaagOpdracht.Queue=Queue
+	Set ZaagOpdracht.Product=Queue.Product
+	
+	Set ZaagOpdracht.Status=##class(APPS.Halux.PPS.TBXZaag.enu.Status).Wachtend()
+
+	Set ZaagOpdracht.SubBatch=SubBatch
+
+	Set sc=ZaagOpdracht.%Save()
+	;w !,"s",$$ParseStatus^vhLib(sc),!
+	If $$$ISERR(sc)  $$$ThrowErrorStatus($$$errSaveFailed,"CreateFromQueue save",sc)
+]]></Implementation>
+</Method>
+
+<Method name="GetBodemRug">
+<Description>
+Beslissen welke onderdelen er moeten gezaagd worden</Description>
+<ClassMethod>1</ClassMethod>
+<FormalSpec>SubBatch,Lade</FormalSpec>
+<Implementation><![CDATA[
+	Set Code="" ; niets te zagen
+	If 'Lade.BevatVoorgezaagdeBodem()
+	{
+		If Lade.BevatBodem()
+		{
+			If (Lade.BevatRug())&&(Lade.GeefRugMateriaal()=##class(DOM.PM.enu.TBXRugMateriaal).Hout())&&(SubBatch'=##class(APPS.Halux.PPS.TBXZaag.enu.SubBatch).SpoelbakSifon())
+			{
+				Set Code=##class(APPS.Halux.PPS.TBXZaag.enu.BodemRug).BodemRug()
+			}
+			Else 
+			{
+				Set Code=##class(APPS.Halux.PPS.TBXZaag.enu.BodemRug).Bodem()
+			}
+		}
+		Elseif Lade.BevatRug()&&(Lade.GeefRugMateriaal()=##class(DOM.PM.enu.TBXRugMateriaal).Hout())
+		{
+			If (SubBatch'=##class(APPS.Halux.PPS.TBXZaag.enu.SubBatch).SpoelbakSifon())
+			{
+				Set Code=##class(APPS.Halux.PPS.TBXZaag.enu.BodemRug).Rug()
+			}
+		}
+	}
+	Quit Code
+]]></Implementation>
+</Method>
+
+<Storage name="Default">
+<Type>%Library.CacheStorage</Type>
+<DataLocation>^APPS.Halux.PPS.T724.OpdrachtenD</DataLocation>
+<DefaultData>OpdrachtenDefaultData</DefaultData>
+<IdLocation>^APPS.Halux.PPS.T724.OpdrachtenD</IdLocation>
+<IndexLocation>^APPS.Halux.PPS.T724.OpdrachtenI</IndexLocation>
+<StreamLocation>^APPS.Halux.PPS.T724.OpdrachtenS</StreamLocation>
+<Data name="OpdrachtenDefaultData">
+<Value name="1">
+<Value>%%CLASSNAME</Value>
+</Value>
+<Value name="2">
+<Value>Batch</Value>
+</Value>
+<Value name="3">
+<Value>BodemRug</Value>
+</Value>
+<Value name="4">
+<Value>ControleMeting</Value>
+</Value>
+<Value name="5">
+<Value>IsHerstelling</Value>
+</Value>
+<Value name="6">
+<Value>Product</Value>
+</Value>
+<Value name="7">
+<Value>ProductieLijn</Value>
+</Value>
+<Value name="8">
+<Value>Queue</Value>
+</Value>
+<Value name="9">
+<Value>Status</Value>
+</Value>
+<Value name="10">
+<Value>SubBatch</Value>
+</Value>
+<Value name="11">
+<Value>WijzigTijdstip</Value>
+</Value>
+</Data>
+</Storage>
+</Class>
+</Export>