Index: DS/Prod/VoorraadTelling.cls.xml
===================================================================
diff -u -r734 -r904
--- DS/Prod/VoorraadTelling.cls.xml	(.../VoorraadTelling.cls.xml)	(revision 734)
+++ DS/Prod/VoorraadTelling.cls.xml	(.../VoorraadTelling.cls.xml)	(revision 904)
@@ -1,10 +1,10 @@
 <?xml version="1.0" encoding="UTF-8"?>
-<Export generator="Cache" version="9" zv="Cache for Windows NT (Intel/P4) 5.0.21 (Build 6408)" ts="2011-01-27 17:01:01">
+<Export generator="Cache" version="9" zv="Cache for Windows NT (Intel/P4) 5.0.21 (Build 6408)" ts="2011-02-09 07:54:59">
 <Class name="DS.Prod.VoorraadTelling">
 <ClassType>persistent</ClassType>
 <ProcedureBlock>1</ProcedureBlock>
 <Super>%Persistent</Super>
-<TimeChanged>61629,35886.751221</TimeChanged>
+<TimeChanged>62131,28549.828728</TimeChanged>
 <ClassDefinitionError>0</ClassDefinitionError>
 
 <Property name="Product">
@@ -138,5 +138,6 @@
 </Data>
 </Storage>
 </Class>
-<Checksum value="2995597076"/>
+<Package name="DS.Prod" globalprefix="Prod" sqlname="Prod"/>
+<Checksum value="218220616"/>
 </Export>
Index: DS/PPS/TBX/Batch.cls.xml
===================================================================
diff -u -r734 -r904
--- DS/PPS/TBX/Batch.cls.xml	(.../Batch.cls.xml)	(revision 734)
+++ DS/PPS/TBX/Batch.cls.xml	(.../Batch.cls.xml)	(revision 904)
@@ -1,5 +1,5 @@
 <?xml version="1.0" encoding="UTF-8"?>
-<Export generator="Cache" version="9" zv="Cache for Windows NT (Intel/P4) 5.0.21 (Build 6408)" ts="2011-01-27 17:01:01">
+<Export generator="Cache" version="9" zv="Cache for Windows NT (Intel/P4) 5.0.21 (Build 6408)" ts="2011-02-14 07:40:35">
 <Class name="DS.PPS.TBX.Batch">
 <Description>
 Opdeling van een productieflow in blokken (batches).
@@ -12,7 +12,8 @@
 <IncludeCode>BL.Derde.LevSpecifiek</IncludeCode>
 <ProcedureBlock>1</ProcedureBlock>
 <Super>%Persistent</Super>
-<TimeChanged>62117,34138.430602</TimeChanged>
+<TimeChanged>62136,27689.419352</TimeChanged>
+<TimeCreated>62125,31731.886249</TimeCreated>
 <ClassDefinitionError>0</ClassDefinitionError>
 
 <Property name="Type">
@@ -31,6 +32,16 @@
 <Type>%TimeStamp</Type>
 </Property>
 
+<Property name="ZaagStarted">
+<Description>
+Zaag gestart voor de hoofdbatch</Description>
+<Type>%TimeStamp</Type>
+</Property>
+
+<Property name="ZaagProductieLijn">
+<Type>APPS.Halux.TBX.enu.ProductieLijn</Type>
+</Property>
+
 <Property name="Toeleveringen">
 <Description>
 Production Orders</Description>
@@ -124,6 +135,17 @@
 ]]></Implementation>
 </Method>
 
+<Method name="StartZaag">
+<FormalSpec>ProductieLijn:APPS.Halux.TBX.enu.ProductieLijn</FormalSpec>
+<Implementation><![CDATA[
+	If '..ZaagStarted
+	{
+		Set ..ZaagStarted=$ZDT($H,3)
+		Set ..ZaagProductieLijn=ProductieLijn
+	}
+]]></Implementation>
+</Method>
+
 <Method name="ZetFinishedTotSequencenummer">
 <FormalSpec>Sequencenummer:%Integer</FormalSpec>
 <Implementation><![CDATA[
@@ -136,7 +158,7 @@
 		if (QueueItem.Sequence <= Sequencenummer)
 		{
 			Do QueueItem.ZetFinished()
-			Set LadeFinishedGezetEventData = ##class(TECH.Events.LadeFinishedGezetEventData).%New(QueueItem.TOENr,QueueItem.TLUNr,QueueItem.Product.ProductNr,QueueItem.BatchID)
+			Set LadeFinishedGezetEventData = ##class(TECH.Events.LadeFinishedGezetEventData).%New(QueueItem.TOENr,QueueItem.TLUNr,QueueItem.Product.ProductNr,QueueItem.BatchID,QueueItem.Sequence)
 			Set LadeFinishedGezetEvent = ##class(TECH.Events.LadeFinishedGezetEvent).%New(LadeFinishedGezetEventData)
 			Do ##class(TECH.PubSub.OrchestrationContext).GetEventRaiser().RaiseEventAsync(LadeFinishedGezetEvent)
 		}
@@ -208,6 +230,15 @@
 <Value name="14">
 <Value>OnderdelenSpecial</Value>
 </Value>
+<Value name="15">
+<Value>ZaagStarted</Value>
+</Value>
+<Value name="16">
+<Value>ZaagProductLijn</Value>
+</Value>
+<Value name="17">
+<Value>ZaagProductieLijn</Value>
+</Value>
 </Data>
 <Data name="ProductionOrders">
 <Attribute>ProductionOrders</Attribute>
@@ -216,5 +247,6 @@
 </Data>
 </Storage>
 </Class>
-<Checksum value="1832534827"/>
+<Package name="DS.PPS.TBX" globalprefix="PPS" sqlname="PPS"/>
+<Checksum value="930843651"/>
 </Export>
Index: DS/PPS/TBX/sub/emWPZaag.cls.xml
===================================================================
diff -u -r734 -r904
--- DS/PPS/TBX/sub/emWPZaag.cls.xml	(.../emWPZaag.cls.xml)	(revision 734)
+++ DS/PPS/TBX/sub/emWPZaag.cls.xml	(.../emWPZaag.cls.xml)	(revision 904)
@@ -1,5 +1,5 @@
 <?xml version="1.0" encoding="UTF-8"?>
-<Export generator="Cache" version="9" zv="Cache for Windows NT (Intel/P4) 5.0.21 (Build 6408)" ts="2011-01-27 17:01:01">
+<Export generator="Cache" version="9" zv="Cache for Windows NT (Intel/P4) 5.0.21 (Build 6408)" ts="2011-02-14 13:32:23">
 <Class name="DS.PPS.TBX.sub.emWPZaag">
 <Description>
 embedded object voor DS.PPS.TBX.Queue.  Bevat data voor het aansturen van de werkpost Zaag
@@ -8,87 +8,25 @@
 <ClassType>serial</ClassType>
 <ProcedureBlock>1</ProcedureBlock>
 <Super>DS.PPS.TBX.sub.emWPAbstract</Super>
-<TimeChanged>61053,34179.973289</TimeChanged>
+<TimeChanged>62136,48797.591446</TimeChanged>
 <ClassDefinitionError>0</ClassDefinitionError>
 
-<Property name="KenmerkVerpak">
-<Description>
-Verpakking</Description>
-<Type>%String</Type>
+<Property name="ProductieLijn">
+<Type>APPS.Halux.TBX.enu.ProductieLijn</Type>
 </Property>
 
-<Property name="KenmerkKlas">
-<Description>
-Klasse (lade, spoelbak, ..)</Description>
-<Type>%String</Type>
-</Property>
+<Method name="StartZaag">
+<FormalSpec>ProductieLijn:APPS.Halux.TBX.enu.ProductieLijn</FormalSpec>
+<Implementation><![CDATA[
+	Set ..ProductieLijn=ProductieLijn
+	Set ..FirstChanged=$zdt($H,3)
+	Set ..WPStatus="F"
+]]></Implementation>
+</Method>
 
-<Property name="KenmerkDK">
-<Description>
-Draagkracht</Description>
-<Type>%String</Type>
-</Property>
-
-<Property name="KenmerkIsSR">
-<Description>
-Is Stalen Rug (0/1)</Description>
-<Type>%String</Type>
-</Property>
-
-<Property name="KenmerkDS">
-<Description>
-Design</Description>
-<Type>%String</Type>
-</Property>
-
-<Property name="KenmerkBM">
-<Description>
-BluMotion</Description>
-<Type>%String</Type>
-</Property>
-
-<Property name="KenmerkKB">
-<Description>
-Kleur Bodem</Description>
-<Type>%String</Type>
-</Property>
-
-<Property name="KenmerkLD">
-<Description>
-Lade Diepte</Description>
-<Type>%String</Type>
-</Property>
-
-<Property name="KenmerkKR">
-<Description>
-Kleur Rug</Description>
-<Type>%String</Type>
-</Property>
-
-<Property name="KenmerkRH">
-<Description>
-Rug Hoogte</Description>
-<Type>%String</Type>
-</Property>
-
-<Property name="KenmerkODSP">
-<Description>
-Onderdelen Speciaal</Description>
-<Type>%String</Type>
-</Property>
-
-<Property name="arrActionStatus">
-<Description>
-In arrSequenceStatus wordt per uit te voeren Sequence de status bijgehouden
-(het is een ListBuild van ListBuilds.  De innerLB heeft de vorm : Sequence/Status
-vb : $LB($LB("B","F"),$LB("R","W"), ..) (Bodem=Finished, Rug=Waiting)</Description>
-<Type>%String</Type>
-</Property>
-
 <Storage name="Default">
 <Type>%Library.CacheSerialState</Type>
 <Data name="emWPAbstractState">
-<Structure>listnode</Structure>
 <Subscript>"DS.PPS.TBX.sub.emWPAbstract"</Subscript>
 <Value name="1">
 <Value>FirstChanged</Value>
@@ -106,52 +44,10 @@
 <Value>Message</Value>
 </Value>
 <Value name="6">
-<Value>KenmerkBM</Value>
+<Value>ProductieLijn</Value>
 </Value>
-<Value name="7">
-<Value>KenmerkDK</Value>
-</Value>
-<Value name="8">
-<Value>KenmerkDS</Value>
-</Value>
-<Value name="9">
-<Value>KenmerkIsSr</Value>
-</Value>
-<Value name="10">
-<Value>KenmerkKB</Value>
-</Value>
-<Value name="11">
-<Value>KenmerkKR</Value>
-</Value>
-<Value name="12">
-<Value>KenmerkKlas</Value>
-</Value>
-<Value name="13">
-<Value>KenmerkLD</Value>
-</Value>
-<Value name="14">
-<Value>KenmerkRH</Value>
-</Value>
-<Value name="15">
-<Value>KenmerkVerpak</Value>
-</Value>
-<Value name="16">
-<Value>SequenceStatus</Value>
-</Value>
-<Value name="17">
-<Value>arrSequenceStatus</Value>
-</Value>
-<Value name="18">
-<Value>KenmerkODSP</Value>
-</Value>
-<Value name="19">
-<Value>KenmerkIsSR</Value>
-</Value>
-<Value name="20">
-<Value>arrActionStatus</Value>
-</Value>
 </Data>
 </Storage>
 </Class>
-<Checksum value="3013201466"/>
+<Checksum value="4082087489"/>
 </Export>
Index: DS/PPS/TBX/Queue.cls.xml
===================================================================
diff -u -r734 -r904
--- DS/PPS/TBX/Queue.cls.xml	(.../Queue.cls.xml)	(revision 734)
+++ DS/PPS/TBX/Queue.cls.xml	(.../Queue.cls.xml)	(revision 904)
@@ -1,12 +1,12 @@
 <?xml version="1.0" encoding="UTF-8"?>
-<Export generator="Cache" version="9" zv="Cache for Windows NT (Intel/P4) 5.0.21 (Build 6408)" ts="2011-01-27 17:01:01">
+<Export generator="Cache" version="9" zv="Cache for Windows NT (Intel/P4) 5.0.21 (Build 6408)" ts="2011-02-14 08:17:22">
 <Class name="DS.PPS.TBX.Queue">
 <ClassType>persistent</ClassType>
 <IncludeCode>BL.Prod.OptiBox,BL.PPS.TBX.Common</IncludeCode>
 <ProcedureBlock>1</ProcedureBlock>
 <SqlTableName>TBX_Queue</SqlTableName>
 <Super>%Persistent</Super>
-<TimeChanged>62006,34927.9243</TimeChanged>
+<TimeChanged>62136,29896.837999</TimeChanged>
 <TimeCreated>60975,59669.195427</TimeCreated>
 <ClassDefinitionError>0</ClassDefinitionError>
 
@@ -143,6 +143,12 @@
 ]]></Implementation>
 </Method>
 
+<Method name="StartZaag">
+<FormalSpec>ProductieLijn:APPS.Halux.TBX.enu.ProductieLijn</FormalSpec>
+<Implementation><![CDATA[	Do ..WPZaag.StartZaag(ProductieLijn)
+]]></Implementation>
+</Method>
+
 <Storage name="Default">
 <Type>%Library.CacheStorage</Type>
 <DataLocation>^PPS.QueueD</DataLocation>
@@ -280,5 +286,6 @@
 </Property>
 </Storage>
 </Class>
-<Checksum value="3295749744"/>
+<Package name="DS.PPS.TBX" globalprefix="PPS" sqlname="PPS"/>
+<Checksum value="840164550"/>
 </Export>