Index: APPS/Halux/Opvolging/ProductieStap/dto/ProductieStapLogItem.cls.xml
===================================================================
diff -u -r39939 -r50244
--- APPS/Halux/Opvolging/ProductieStap/dto/ProductieStapLogItem.cls.xml	(.../ProductieStapLogItem.cls.xml)	(revision 39939)
+++ APPS/Halux/Opvolging/ProductieStap/dto/ProductieStapLogItem.cls.xml	(.../ProductieStapLogItem.cls.xml)	(revision 50244)
@@ -6,7 +6,7 @@
 Tevens worden er bij reworks de rework gelogged en worden de reeds geregistreerde stappen van het werkstuk op non actief gezet</Description>
 <ClassType>persistent</ClassType>
 <ProcedureBlock>1</ProcedureBlock>
-<Super>APPS.Halux.PPS.dto.ProductGebaseerdeUitvoeringInfo</Super>
+<Super>TECH.Persistent</Super>
 
 <Index name="IndexOnMachineID">
 <Properties>MachineID</Properties>
@@ -28,6 +28,34 @@
 <Properties>SequentieNummer</Properties>
 </Index>
 
+<Index name="IndexOnVerwerkingID">
+<Properties>VerwerkingID</Properties>
+</Index>
+
+<Index name="OnProductID">
+<Properties>ProductID</Properties>
+</Index>
+
+<Index name="OnDossierCode">
+<Properties>DossierCode</Properties>
+</Index>
+
+<Property name="DossierCode">
+<Description>
+De dossiercode van het product (uit MaatwerkProduct).</Description>
+<Type>%String</Type>
+<Required>1</Required>
+</Property>
+
+<Property name="ProductID">
+<Type>DOM.common.ProductID</Type>
+<Required>1</Required>
+</Property>
+
+<Property name="VerwerkingID">
+<Type>%String</Type>
+</Property>
+
 <Property name="BatchID">
 <Description>
 De BatchID waar het item toe hoort.</Description>
@@ -63,19 +91,25 @@
 <Required>1</Required>
 </Property>
 
-<Property name="LaatstToegevoegd">
+<Property name="ToeleveringID">
+<Type>%String</Type>
+</Property>
+
+<Property name="IsRework">
+<Description>
+Geeft aan of dit rework vertegenwoordigt of niet.</Description>
 <Type>%Boolean</Type>
 <InitialExpression>0</InitialExpression>
 <Required>1</Required>
 </Property>
 
-<Property name="ToeleveringID">
-<Type>%String</Type>
-</Property>
-
 <Storage name="Default">
 <Type>%Library.CacheStorage</Type>
+<DataLocation>^APPS.HaluxBF30.ProductieSt53EBD</DataLocation>
 <DefaultData>ProductieStapLogItemDefaultData</DefaultData>
+<IdLocation>^APPS.HaluxBF30.ProductieSt53EBD</IdLocation>
+<IndexLocation>^APPS.HaluxBF30.ProductieSt53EBI</IndexLocation>
+<StreamLocation>^APPS.HaluxBF30.ProductieSt53EBS</StreamLocation>
 <Data name="ProductieStapLogItemDefaultData">
 <Structure>listnode</Structure>
 <Subscript>"ProductieStapLogItem"</Subscript>
@@ -109,6 +143,21 @@
 <Value name="10">
 <Value>TijdstipProductie</Value>
 </Value>
+<Value name="11">
+<Value>%%CLASSNAME</Value>
+</Value>
+<Value name="12">
+<Value>DossierCode</Value>
+</Value>
+<Value name="13">
+<Value>ProductID</Value>
+</Value>
+<Value name="14">
+<Value>VerwerkingID</Value>
+</Value>
+<Value name="15">
+<Value>IsRework</Value>
+</Value>
 </Data>
 </Storage>
 </Class>
Index: APPS/Halux/Opvolging/ProductieStap/TAOR/impl/ProductieStapLogger.cls.xml
===================================================================
diff -u -r39992 -r50244
--- APPS/Halux/Opvolging/ProductieStap/TAOR/impl/ProductieStapLogger.cls.xml	(.../ProductieStapLogger.cls.xml)	(revision 39992)
+++ APPS/Halux/Opvolging/ProductieStap/TAOR/impl/ProductieStapLogger.cls.xml	(.../ProductieStapLogger.cls.xml)	(revision 50244)
@@ -52,7 +52,6 @@
 	Set ..LogItem.TijdstipCreatie=$$$Timestamp($H)
 	Set ..LogItem.TijdstipProductie=..LogItem.TijdstipCreatie
 	Set ..LogItem.StapNummer=..BepaalStapNummer()
-	Set ..LogItem.LaatstToegevoegd=0
 ]]></Implementation>
 </Method>
 
@@ -70,10 +69,13 @@
 <Implementation><![CDATA[
 	Set VerwerkingID=..LogItem.VerwerkingID
 	Set LaatsteReworkTijdstip=""
-	&SQL(SELECT TOP 1 TijdstipProductie INTO :LaatsteReworkTijdstip FROM APPS_Halux_Opvolging_ProductieStap_TAOR_dto.ProductieStapLogItem WHERE VerwerkingID=:VerwerkingID AND IsRework=1 ORDER BY TijdstipProductie DESC, ID DESC)
-	If LaatsteReworkTijdstip'=""
+	
+	; BUG in CACHE : gelieve geen TOP 1 toe te voegen aan onderstaande SELECT want dan werkt de WHERE-clause niet goed
+	&SQL(SELECT TijdstipProductie INTO :LaatsteReworkTijdstip FROM APPS_Halux_Opvolging_ProductieStap_TAOR_dto.ProductieStapLogItem WHERE VerwerkingID=:VerwerkingID AND IsRework=1 ORDER BY TijdstipProductie DESC, ID DESC)
+
+	If LaatsteReworkTijdstip?4N1"-"2N1"-"2N.E
 	{
-		&SQL(UPDATE APPS_Halux_Opvolging_ProductieStap_TAOR_dto.ProductieStapLogItem SET StapNummer=-StapNummer WHERE VerwerkingID=:VerwerkingID and StapNummer>0 AND TijdstipProductie>:LaatsteTijdstip)
+		&SQL(UPDATE APPS_Halux_Opvolging_ProductieStap_TAOR_dto.ProductieStapLogItem SET StapNummer=-StapNummer WHERE VerwerkingID=:VerwerkingID and StapNummer>0 AND TijdstipProductie<:LaatsteReworkTijdstip)
 	}
 ]]></Implementation>
 </Method>
Index: APPS/Halux/Opvolging/ProductieStap/TAOR/impl/ArdisOptimalisatie.cls.xml
===================================================================
diff -u -r39992 -r50244
--- APPS/Halux/Opvolging/ProductieStap/TAOR/impl/ArdisOptimalisatie.cls.xml	(.../ArdisOptimalisatie.cls.xml)	(revision 39992)
+++ APPS/Halux/Opvolging/ProductieStap/TAOR/impl/ArdisOptimalisatie.cls.xml	(.../ArdisOptimalisatie.cls.xml)	(revision 50244)
@@ -40,7 +40,6 @@
 <ReturnType>%Status</ReturnType>
 <Implementation><![CDATA[
 	Set ..VanafTijdstip=##class(APPS.Halux.Opvolging.ProductieStap.TAOR.dto.LaatsteUpdate).GeefLaatsteUpdateVoorMachine(..#MachineID)
-	set ..VanafTijdstip="2017-02-01 00:00:00"
 	Set ..StartTijdstip=$zdth(..VanafTijdstip,3,,6)
 	Quit $$$OK
 ]]></Implementation>
@@ -55,14 +54,14 @@
 	While it.HasNext()
 	{
 		Set rs=it.Next()
-		Set ..MachineTijdstip=$P(rs.Data("LastChanged"),".") ; geen milliseconde
+		Set ..MachineTijdstip=$P(rs.Data("Inserted"),".") ; geen milliseconde
 		
 		Continue:$$DIFFTIME^vhLib.DataTypes(..StartTijdstip,$ZDTH(..MachineTijdstip,3,,6))'>0 
 		
 		#dim Barcode as %String=$ZSTRIP(rs.Data("VerwerkingID"),">W")
 		Set ..Rework=$ZSTRIP(rs.Data("Rework"),">W")
 		Set ..Status=rs.Data("Status")
-		If (..Status=0) || (..Status=2)
+		If (..Status=0) || (..Status=2) || (..Status=4)
 		{
 			;w Barcode," ",..MachineTijdstip," ",..Status," ",..Rework,!
 			Do ..VoegToeProductieStap(Barcode)
@@ -98,19 +97,18 @@
 	Set ..LogItem.TijdstipProductie=..MachineTijdstip
 	Set ..LogItem.StapNummer=..BepaalStapNummer()
 	Set ..LogItem.IsRework=..BepaalRework()
-	Set ..LogItem.LaatstToegevoegd=0
 ]]></Implementation>
 </Method>
 
 <Method name="BepaalRework">
 <Private>1</Private>
-<Implementation><![CDATA[	Quit $S(..Status=2: ..Rework="Rework",1:0)
+<Implementation><![CDATA[	Quit $S((..Status=2)||(..Status=4): ..Rework="Rework",1:0)
 ]]></Implementation>
 </Method>
 
 <Method name="BepaalStapNummer">
 <Private>1</Private>
-<Implementation><![CDATA[	Quit $S(..Status=2:2,1:1)
+<Implementation><![CDATA[	Quit $S((..Status=2)||(..Status=4):2,1:1)
 ]]></Implementation>
 </Method>
 </Class>
Index: APPS/Halux/Opvolging/ProductieStap/TAOR/impl/CopieerBatch.cls.xml
===================================================================
diff -u -r40519 -r50244
--- APPS/Halux/Opvolging/ProductieStap/TAOR/impl/CopieerBatch.cls.xml	(.../CopieerBatch.cls.xml)	(revision 40519)
+++ APPS/Halux/Opvolging/ProductieStap/TAOR/impl/CopieerBatch.cls.xml	(.../CopieerBatch.cls.xml)	(revision 50244)
@@ -89,12 +89,11 @@
 	Set ..LogItem.SequentieNummer=..InfoItem.SequentieNummer
 	Set ..LogItem.MachineID=..Machine
 	Set ..LogItem.TijdstipCreatie=$$$Timestamp($H)
-	Set ..LogItem.TijdstipProductie=$$$Timestamp($H-10) ;..LogItem.TijdstipCreatie
+	Set ..LogItem.TijdstipProductie=..LogItem.TijdstipCreatie
 	Set ..LogItem.Onderdeel=..BepaalOnderdeel()
 	Set ..LogItem.StapNummer=..BepaalStapNummer()
 	Set ..LogItem.Kar=..BepaalKar()
 	Set ..LogItem.DueOut=..BepaalDueOut()
-	Set ..LogItem.LaatstToegevoegd=1
 	;Do DumpObject^%apiOBJ(..LogItem)
 	Do:..ToegelatenVerwerkingID(..LogItem.BatchID,..LogItem.VerwerkingID) ..LogItem.Save()
 ]]></Implementation>
Index: APPS/Halux/Opvolging/ProductieStap/impl/StatusOpvragen.cls.xml
===================================================================
diff -u -r39939 -r50244
--- APPS/Halux/Opvolging/ProductieStap/impl/StatusOpvragen.cls.xml	(.../StatusOpvragen.cls.xml)	(revision 39939)
+++ APPS/Halux/Opvolging/ProductieStap/impl/StatusOpvragen.cls.xml	(.../StatusOpvragen.cls.xml)	(revision 50244)
@@ -11,15 +11,15 @@
 <Query name="StatusViaBatch">
 <Type>%SQLQuery</Type>
 <FormalSpec>BatchId:%String</FormalSpec>
-<SqlQuery>select BatchID, ToeleveringID, Klant.naam,VerwerkingID, Onderdeel,TijdstipCreatie, MachineID,StapNummer, IsRework,LaatstToegevoegd,Kar,DueOut from APPS_Halux_Opvolging_ProductieStap_TAOR_dto.ProductieStapLogItem log 
+<SqlQuery>select BatchID, ToeleveringID, Klant.naam,VerwerkingID, Onderdeel,TijdstipCreatie, MachineID,StapNummer, IsRework,Kar,DueOut from APPS_Halux_Opvolging_ProductieStap_TAOR_dto.ProductieStapLogItem log 
 join Derde_Klant.Klant klant on $Piece(log.PartijID,'||',2)=klant.ID
 where log.batchid=?</SqlQuery>
 </Query>
 
 <Query name="StatusViaToelevering">
 <Type>%SQLQuery</Type>
 <FormalSpec>ToeLeveringID:%String</FormalSpec>
-<SqlQuery>select BatchID, ToeleveringID, Klant.naam,VerwerkingID, Onderdeel,TijdstipCreatie, MachineID,StapNummer, IsRework, LaatstToegevoegd,Kar,DueOut from APPS_Halux_Opvolging_ProductieStap_TAOR_dto.ProductieStapLogItem log 
+<SqlQuery>select BatchID, ToeleveringID, Klant.naam,VerwerkingID, Onderdeel,TijdstipCreatie, MachineID,StapNummer, IsRework,Kar,DueOut from APPS_Halux_Opvolging_ProductieStap_TAOR_dto.ProductieStapLogItem log 
 join Derde_Klant.Klant klant on $Piece(log.PartijID,'||',2)=klant.ID
 where log.toeleveringid=?</SqlQuery>
 </Query>
Index: APPS/Halux/Opvolging/ProductieStap/TAOR/impl/ProductieZijkantFrees.cls.xml
===================================================================
diff -u -r39992 -r50244
--- APPS/Halux/Opvolging/ProductieStap/TAOR/impl/ProductieZijkantFrees.cls.xml	(.../ProductieZijkantFrees.cls.xml)	(revision 39992)
+++ APPS/Halux/Opvolging/ProductieStap/TAOR/impl/ProductieZijkantFrees.cls.xml	(.../ProductieZijkantFrees.cls.xml)	(revision 50244)
@@ -82,7 +82,6 @@
 	Set ..LogItem.TijdstipCreatie=$$$Timestamp($H)
 	Set ..LogItem.TijdstipProductie=..MachineTijdstip
 	Set ..LogItem.StapNummer=..BepaalStapNummer()
-	Set ..LogItem.LaatstToegevoegd=0
 ]]></Implementation>
 </Method>
 
Index: APPS/Halux/Opvolging/ProductieStap/TAOR/dto/ProductieStapLogItem.cls.xml
===================================================================
diff -u -r39872 -r50244
--- APPS/Halux/Opvolging/ProductieStap/TAOR/dto/ProductieStapLogItem.cls.xml	(.../ProductieStapLogItem.cls.xml)	(revision 39872)
+++ APPS/Halux/Opvolging/ProductieStap/TAOR/dto/ProductieStapLogItem.cls.xml	(.../ProductieStapLogItem.cls.xml)	(revision 50244)
@@ -7,10 +7,6 @@
 <Type>APPS.Halux.Opvolging.ProductieStap.TAOR.enu.Onderdeel</Type>
 </Property>
 
-<Property name="VerwerkingID">
-<Type>%String</Type>
-</Property>
-
 <Property name="StapNummer">
 <Type>APPS.Halux.Opvolging.ProductieStap.TAOR.enu.StapNummer</Type>
 </Property>
@@ -23,9 +19,9 @@
 <Type>%String</Type>
 </Property>
 
-<Index name="IndexOnVerwerkingID">
-<Properties>VerwerkingID</Properties>
-</Index>
+<Property name="ReworkReden">
+<Type>%String</Type>
+</Property>
 
 <Storage name="Default">
 <Type>%Library.CacheStorage</Type>
@@ -51,6 +47,9 @@
 <Value name="6">
 <Value>Kar</Value>
 </Value>
+<Value name="7">
+<Value>ReworkReden</Value>
+</Value>
 </Data>
 </Storage>
 </Class>
Index: APPS/Halux/Opvolging/ProductieStap/TAOR/impl/StemasLastCodeReadParser.cls.xml
===================================================================
diff -u -r39872 -r50244
--- APPS/Halux/Opvolging/ProductieStap/TAOR/impl/StemasLastCodeReadParser.cls.xml	(.../StemasLastCodeReadParser.cls.xml)	(revision 39872)
+++ APPS/Halux/Opvolging/ProductieStap/TAOR/impl/StemasLastCodeReadParser.cls.xml	(.../StemasLastCodeReadParser.cls.xml)	(revision 50244)
@@ -11,6 +11,7 @@
 <Method name="VerwerkBericht">
 <FormalSpec>Bericht:%String,MachineID:%String,Label:%String</FormalSpec>
 <Implementation><![CDATA[
+	
 	Set Barcode=$P(Bericht,$C(10),3) ; de derde lijn bevat de barcode
 	If ($L(Barcode)>8) && ($L(Barcode)<20)
 	{
@@ -19,6 +20,17 @@
 	}
 ]]></Implementation>
 </Method>
+
+<Method name="Test">
+<Description>
+d ##class(APPS.Halux.Opvolging.ProductieStap.TAOR.impl.StemasLastCodeReadParser).Test("ZCW35L48876","Prof Z")</Description>
+<ClassMethod>1</ClassMethod>
+<FormalSpec>VerwerkingID:%String,MachineID:%String,Label:%String</FormalSpec>
+<Implementation><![CDATA[
+		Set bl=##class(APPS.Halux.Opvolging.ProductieStap.TAOR.impl.ProductieStapLogger).%New(MachineID)
+		Do bl.VoegToeProductieStap(VerwerkingID)
+]]></Implementation>
+</Method>
 </Class>
 
 
Index: APPS/Halux/Opvolging/ProductieStap/TAOR/impl/ProductieAfkanter.cls.xml
===================================================================
diff -u -r39992 -r50244
--- APPS/Halux/Opvolging/ProductieStap/TAOR/impl/ProductieAfkanter.cls.xml	(.../ProductieAfkanter.cls.xml)	(revision 39992)
+++ APPS/Halux/Opvolging/ProductieStap/TAOR/impl/ProductieAfkanter.cls.xml	(.../ProductieAfkanter.cls.xml)	(revision 50244)
@@ -83,7 +83,6 @@
 	Set ..LogItem.TijdstipCreatie=$$$Timestamp($H)
 	Set ..LogItem.TijdstipProductie=..MachineTijdstip
 	Set ..LogItem.StapNummer=..BepaalStapNummer()
-	Set ..LogItem.LaatstToegevoegd=0
 ]]></Implementation>
 </Method>