Index: WSimpl/Halux/PPS/ProductieStap/LoggerService.cls.xml
===================================================================
diff -u -r39903 -r39939
--- WSimpl/Halux/PPS/ProductieStap/LoggerService.cls.xml	(.../LoggerService.cls.xml)	(revision 39903)
+++ WSimpl/Halux/PPS/ProductieStap/LoggerService.cls.xml	(.../LoggerService.cls.xml)	(revision 39939)
@@ -27,6 +27,7 @@
 <ReturnType>%String</ReturnType>
 <WebMethod>1</WebMethod>
 <Implementation><![CDATA[
+	 q ""
 	 Quit:(Data="") "No data provided :"_$E(Data,1,200)_":"_$E(ExtraData,1,20)
 	 Set Machine=..GeefMachine(ExtraData)
 	 Quit:(Machine="") "No MachineID found :"_$E(Data,1,200)_":"_$E(ExtraData,1,20) 
Index: APPS/Halux/Opvolging/ProductieStap/dto/ProductieStapLogItem.cls.xml
===================================================================
diff -u -r39872 -r39939
--- APPS/Halux/Opvolging/ProductieStap/dto/ProductieStapLogItem.cls.xml	(.../ProductieStapLogItem.cls.xml)	(revision 39872)
+++ APPS/Halux/Opvolging/ProductieStap/dto/ProductieStapLogItem.cls.xml	(.../ProductieStapLogItem.cls.xml)	(revision 39939)
@@ -53,14 +53,13 @@
 <Required>1</Required>
 </Property>
 
-<Property name="TijdstipCreatie">
+<Property name="TijdstipProductie">
 <Type>%TimeStamp</Type>
 <Required>1</Required>
 </Property>
 
-<Property name="HerwerkAantal">
-<Type>%Integer</Type>
-<InitialExpression>0</InitialExpression>
+<Property name="TijdstipCreatie">
+<Type>%TimeStamp</Type>
 <Required>1</Required>
 </Property>
 
@@ -107,6 +106,9 @@
 <Value name="9">
 <Value>HerwerkAantal</Value>
 </Value>
+<Value name="10">
+<Value>TijdstipProductie</Value>
+</Value>
 </Data>
 </Storage>
 </Class>
Index: APPS/Halux/Opvolging/ProductieStap/TAOR/impl/ProductieZijkantFrees.cls.xml
===================================================================
diff -u -r39903 -r39939
--- APPS/Halux/Opvolging/ProductieStap/TAOR/impl/ProductieZijkantFrees.cls.xml	(.../ProductieZijkantFrees.cls.xml)	(revision 39903)
+++ APPS/Halux/Opvolging/ProductieStap/TAOR/impl/ProductieZijkantFrees.cls.xml	(.../ProductieZijkantFrees.cls.xml)	(revision 39939)
@@ -12,22 +12,22 @@
 <Type>APPS.Halux.Opvolging.ProductieStap.TAOR.dto.ProductieStapLogItem</Type>
 </Property>
 
-<Property name="Machine">
-<Type>APPS.Halux.Opvolging.ProductieStap.TAOR.enu.Machines</Type>
-</Property>
-
 <Property name="VanafTijdstip">
 <Type>%TimeStamp</Type>
 </Property>
 
-<Property name="ZijkantFreesTijdstip">
+<Property name="MachineTijdstip">
 <Type>%TimeStamp</Type>
 </Property>
 
+<Parameter name="MachineID">
+<Default>ZijkantFrees</Default>
+</Parameter>
+
 <Method name="%OnNew">
 <ReturnType>%Status</ReturnType>
 <Implementation><![CDATA[
-	Set ..VanafTijdstip="2017-02-20"
+	Set ..VanafTijdstip=##class(APPS.Halux.Opvolging.ProductieStap.TAOR.dto.LaatsteUpdate).GeefLaatsteUpdateVoorMachine(..#MachineID)
 	Quit $$$OK
 ]]></Implementation>
 </Method>
@@ -40,22 +40,23 @@
 	While it.HasNext()
 	{
 		Set rs=it.Next()
-		Set ..ZijkantFreesTijdstip=rs.Data("PickTimeStamp") 
+		Set ..MachineTijdstip=$P(rs.Data("PickTimeStamp") ,".") ; top op de seconde, geen milliseconde
 		#dim BarcodeLeft as %String=rs.Data("PrintBarcodeLeft") 
 		#dim BarcodeRight as %String=rs.Data("PrintBarcodeRight") 
 		Do ..VoegToeProductieStap(BarcodeLeft)
 		Do ..VoegToeProductieStap(BarcodeRight)
 		
-		Set:..ZijkantFreesTijdstip>..VanafTijdstip ..VanafTijdstip=..ZijkantFreesTijdstip
+		Set:$$DIFFTIME^vhLib.DataTypes($zdth(..VanafTijdstip,3,,6),$zdth(..MachineTijdstip,3,,6)) ..VanafTijdstip=..MachineTijdstip
 	}
+	Do ##class(APPS.Halux.Opvolging.ProductieStap.TAOR.dto.LaatsteUpdate).OpslaanLaatsteUpdateVoorMachine(..#MachineID,..VanafTijdstip)
 ]]></Implementation>
 </Method>
 
 <Method name="HistorieIterator">
 <Private>1</Private>
 <Implementation><![CDATA[
 	Set rs=##class(TECH.ResultSet).%New()
-	Do rs.Prepare("Select PickTimeStamp, PrintBarcodeLeft,PrintBarcodeRight from APPS_Halux_Machine_ZijkantFrees_data.ZijkantFreesHistoriekRemote where PickTimeStamp>? ")
+	Do rs.Prepare("Select PickTimeStamp, PrintBarcodeLeft,PrintBarcodeRight from APPS_Halux_Machine_ZijkantFrees_data.ZijkantFreesHistoriekRemote where PickTimeStamp>?  ")
  	Set sc=rs.Execute(..VanafTijdstip)
 	Set it=##class(TECH.ResultSetIterator).%New(rs)
 	Quit it
@@ -66,30 +67,15 @@
 <Private>1</Private>
 <Implementation><![CDATA[
 	Set ..LogItem=..VorigLogItem.%ConstructClone()
-	Set ..LogItem.MachineID=##class(APPS.Halux.Opvolging.ProductieStap.TAOR.enu.Machines).ZijkantFrees()
-	Set ..LogItem.TijdstipCreatie=..ZijkantFreesTijdstip
+	Set ..LogItem.IsRework=0
+	Set ..LogItem.MachineID=..#MachineID
+	Set ..LogItem.TijdstipCreatie=$$$Timestamp($H)
+	Set ..LogItem.TijdstipProductie=..MachineTijdstip
 	Set ..LogItem.StapNummer=..BepaalStapNummer()
-	Set ..LogItem.LaatstToegevoegd=..IsLaatste()
+	Set ..LogItem.LaatstToegevoegd=0
 ]]></Implementation>
 </Method>
 
-<Method name="IsLaatste">
-<Description>
-vermits de SQL verwerking maar om de X minuten wordt uitgevoerd met er getest worden of er reeds andere triggers zijn uitgevoerd (rework of </Description>
-<Private>1</Private>
-<Implementation><![CDATA[
-	Set TijdstipCreatie=""
-	Set VerwerkingID=..LogItem.VerwerkingID
-	&SQL(SELECT TijdstipCreatie INTO :TijdstipCreatie FROM APPS_Halux_Opvolging_ProductieStap_TAOR_dto.ProductieStapLogItem WHERE VerwerkingID=:VerwerkingID and LaatstToegevoegd=1)
-	W TijdstipCreatie," : ",..LogItem.TijdstipCreatie," = " 
-	W $zdth(TijdstipCreatie,3,,6)," : ",$zdth(..LogItem.TijdstipCreatie,3,,6),!
-	q 0
-]]></Implementation>
-</Method>
-
-<Method name="SaveLogItem">
-</Method>
-
 <Method name="BepaalStapNummer">
 <Private>1</Private>
 <Implementation><![CDATA[	Quit 3
Index: APPS/Halux/Opvolging/ProductieStap/impl/ProductieStapLogger.cls.xml
===================================================================
diff -u -r39872 -r39939
--- APPS/Halux/Opvolging/ProductieStap/impl/ProductieStapLogger.cls.xml	(.../ProductieStapLogger.cls.xml)	(revision 39872)
+++ APPS/Halux/Opvolging/ProductieStap/impl/ProductieStapLogger.cls.xml	(.../ProductieStapLogger.cls.xml)	(revision 39939)
@@ -41,8 +41,8 @@
 	If ..Gevonden
 	{
 		Do ..MaakLogItem()
-		Do ..OpkuisOudeLogItems()
 		Do ..SaveLogItem()
+		Do ..BepaalLaatstToegevoegd()
 	}
 ]]></Implementation>
 </Method>
@@ -73,7 +73,7 @@
 ]]></Implementation>
 </Method>
 
-<Method name="OpkuisOudeLogItems">
+<Method name="BepaalLaatstToegevoegd">
 <Private>1</Private>
 <Implementation><![CDATA[
 	;Set VerwerkingID=..VorigLogItem.VerwerkingID
Index: APPS/Halux/Opvolging/ProductieStap/TAOR/enu/Machines.cls.xml
===================================================================
diff -u -r39903 -r39939
--- APPS/Halux/Opvolging/ProductieStap/TAOR/enu/Machines.cls.xml	(.../Machines.cls.xml)	(revision 39903)
+++ APPS/Halux/Opvolging/ProductieStap/TAOR/enu/Machines.cls.xml	(.../Machines.cls.xml)	(revision 39939)
@@ -6,7 +6,7 @@
 <Super>APPS.Halux.Opvolging.ProductieStap.enu.Machines</Super>
 
 <Parameter name="VALUELIST">
-<Default>,Prof R+B+F,Prof Z,Prof B slice,Ardis</Default>
+<Default>,Prof R+B+F,Prof Z,Prof B slice,Ardis,ZijkantFrees,Afkanter</Default>
 </Parameter>
 
 <Method name="ProfileringRugBodemFront">
Index: WS/Halux/Opvolging/ProductieStap/LoggerService.cls.xml
===================================================================
diff -u
--- WS/Halux/Opvolging/ProductieStap/LoggerService.cls.xml	(revision 0)
+++ WS/Halux/Opvolging/ProductieStap/LoggerService.cls.xml	(revision 39939)
@@ -0,0 +1,99 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="WS.Halux.Opvolging.ProductieStap.LoggerService">
+<ClassType/>
+<ProcedureBlock>1</ProcedureBlock>
+<Super>WS.OngeauthenticeerdeWebService</Super>
+
+<Parameter name="XMLIGNORENULL">
+<Default>0</Default>
+</Parameter>
+
+<Parameter name="SERVICENAME">
+<Description>
+Name of the WebService.</Description>
+<Default>ProcessData</Default>
+</Parameter>
+
+<Parameter name="NAMESPACE">
+<Description>
+TODO: change this to actual SOAP namespace.
+SOAP Namespace for the WebService</Description>
+<Default>http://cache01.vanhoecke.be/taor</Default>
+</Parameter>
+
+<Method name="ProcessData">
+<FormalSpec>Data:%String="",ExtraData:%String=""</FormalSpec>
+<ReturnType>%String</ReturnType>
+<WebMethod>1</WebMethod>
+<Implementation><![CDATA[
+	 Quit:(Data="") "No data provided :"_$E(Data,1,200)_":"_$E(ExtraData,1,20)
+	 Set Machine=..GeefMachine(ExtraData)
+	 Quit:(Machine="") "No MachineID found :"_$E(Data,1,200)_":"_$E(ExtraData,1,20) 
+	 Set Parser =..GeefParser(Machine, ExtraData)
+	 Quit:'$isObject(Parser) "No parser found : "_$E(Data,1,200)_":"_$E(ExtraData,1,20)
+	 Do Parser.VerwerkBericht(Data, Machine, ExtraData)
+	 Quit ""
+]]></Implementation>
+</Method>
+
+<Method name="ProcessRework">
+<FormalSpec>VerwerkingID:%String="",NewVerwerkingID:%String=""</FormalSpec>
+<ReturnType>%String</ReturnType>
+<WebMethod>1</WebMethod>
+<Implementation><![CDATA[
+	Set bl=##class(APPS.Halux.Opvolging.ProductieStap.TAOR.impl.HerwerkLogger).%New()
+	Do bl.VoegToeProductieStap(VerwerkingID)
+	Quit ""
+]]></Implementation>
+</Method>
+
+<Method name="GeefMachine">
+<FormalSpec>Label:%String</FormalSpec>
+<Private>1</Private>
+<ReturnType>APPS.Halux.Opvolging.ProductieStap.enu.Machines</ReturnType>
+<Implementation><![CDATA[
+	
+	;Set Address=%request.GetCgiEnv("REMOTE_ADDR")
+	Set MachineID=Label
+	Quit MachineID
+]]></Implementation>
+</Method>
+
+<Method name="GeefParser">
+<FormalSpec>Machine:%String,Label:%String</FormalSpec>
+<Private>1</Private>
+<ReturnType>APPS.Halux.Opvolging.ProductieStap.TAOR.impl.StemasLastCodeReadParser</ReturnType>
+<Implementation><![CDATA[
+	Quit:Machine=##class(APPS.Halux.Opvolging.ProductieStap.TAOR.enu.Machines).ProfileringZijkant() ##class(APPS.Halux.Opvolging.ProductieStap.TAOR.impl.StemasLastCodeReadParser).%New()
+	Quit:Machine=##class(APPS.Halux.Opvolging.ProductieStap.TAOR.enu.Machines).ProfileringRugBodemFront() ##class(APPS.Halux.Opvolging.ProductieStap.TAOR.impl.StemasLastCodeReadParser).%New()
+	Quit:Machine=##class(APPS.Halux.Opvolging.ProductieStap.TAOR.enu.Machines).ProfileringBodem() ##class(APPS.Halux.Opvolging.ProductieStap.TAOR.impl.StemasLastCodeReadParser).%New()
+	Quit ""
+]]></Implementation>
+</Method>
+
+<Method name="test">
+<Description>
+d ##class(WSimpl.Halux.PPS.ProductieStap.LoggerService).test()</Description>
+<ClassMethod>1</ClassMethod>
+<Implementation><![CDATA[
+	s Data=$c(10)_$c(10)_"RKV11870VS69914D3"_$c(10)
+	set bl=..%New()
+	
+	Do bl.ProcessData(Data,##class(APPS.Halux.Opvolging.ProductieStap.TAOR.enu.Machines).ProfileringRugBodemFront())
+	;Do bl.ProcessRework("RKV11870VS69914D3")
+	q
+	s Data=$$$CRLF_$$$CRLF_"ZKV75L69906"_$$$CRLF
+	set bl=..%New()
+	Do bl.ProcessData(Data,##class(APPS.Halux.Opvolging.ProductieStap.TAOR.enu.Machines).ProfileringZijkant())
+
+	s Data=$$$CRLF_$$$CRLF_"B75V11870VS71967P1"_$$$CRLF
+	Do bl.ProcessData(Data,##class(APPS.Halux.Opvolging.ProductieStap.TAOR.enu.Machines).ProfileringRugBodemFront())
+	set bl=..%New()
+	Do bl.ProcessData(Data,##class(APPS.Halux.Opvolging.ProductieStap.TAOR.enu.Machines).ProfileringBodem())
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: APPS/Halux/Opvolging/ProductieStap/TAOR/impl/ProductieAfkanter.cls.xml
===================================================================
diff -u
--- APPS/Halux/Opvolging/ProductieStap/TAOR/impl/ProductieAfkanter.cls.xml	(revision 0)
+++ APPS/Halux/Opvolging/ProductieStap/TAOR/impl/ProductieAfkanter.cls.xml	(revision 39939)
@@ -0,0 +1,98 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="APPS.Halux.Opvolging.ProductieStap.TAOR.impl.ProductieAfkanter">
+<IncludeCode>vhLib.Macro</IncludeCode>
+<Super>APPS.Halux.Opvolging.ProductieStap.TAOR.impl.ProductieStapLogger</Super>
+
+<Property name="LogItem">
+<Type>APPS.Halux.Opvolging.ProductieStap.TAOR.dto.ProductieStapLogItem</Type>
+</Property>
+
+<Property name="VorigLogItem">
+<Type>APPS.Halux.Opvolging.ProductieStap.TAOR.dto.ProductieStapLogItem</Type>
+</Property>
+
+<Property name="VanafTijdstip">
+<Type>%TimeStamp</Type>
+</Property>
+
+<Property name="StartTijdstip">
+<Type>%Date</Type>
+</Property>
+
+<Property name="MachineTijdstip">
+<Type>%TimeStamp</Type>
+</Property>
+
+<Parameter name="MachineID">
+<Default>Afkanter</Default>
+</Parameter>
+
+<Method name="%OnNew">
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[
+	Set ..VanafTijdstip=##class(APPS.Halux.Opvolging.ProductieStap.TAOR.dto.LaatsteUpdate).GeefLaatsteUpdateVoorMachine(..#MachineID)
+	Set ..StartTijdstip=$zdth(..VanafTijdstip,3,,6)
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
+<Method name="VerwerkRecente">
+<Description>
+Do ##class(APPS.Halux.Opvolging.ProductieStap.TAOR.impl.ProductieAfkanter).%New().VerwerkRecente()</Description>
+<Implementation><![CDATA[
+	#dim it as TECH.ResultSet=..HistorieIterator()
+	While it.HasNext()
+	{
+		Set rs=it.Next()
+		Set EndTime=rs.Data("EndTime")
+		w EndTime,"+ "
+		Set Tijdstip=$ZDTH(EndTime,1) ; formaat D/MM/YYYY HH:MM:SS
+		Continue:$$DIFFTIME^vhLib.DataTypes(..StartTijdstip,Tijdstip)>0
+
+		Set ..MachineTijdstip=$$$Timestamp(Tijdstip)
+		#dim Barcode as %String=rs.Data("ID") 
+		w Barcode," ",..MachineTijdstip," ",..VanafTijdstip,!
+		Do ..VoegToeProductieStap(Barcode)
+		
+		Set:$$DIFFTIME^vhLib.DataTypes($zdth(..VanafTijdstip,3,,6),$zdth(..MachineTijdstip,3,,6)) ..VanafTijdstip=..MachineTijdstip
+	}
+	Do ##class(APPS.Halux.Opvolging.ProductieStap.TAOR.dto.LaatsteUpdate).OpslaanLaatsteUpdateVoorMachine(..#MachineID,..VanafTijdstip)
+]]></Implementation>
+</Method>
+
+<Method name="HistorieIterator">
+<Private>1</Private>
+<Implementation><![CDATA[
+	
+
+	Set rs=##class(TECH.ResultSet).%New()
+	Do rs.Prepare("SELECT ID,EndTime FROM APPS_Halux_Machine_Kantenband_data.BiesseHaluxArticles WHERE PassNumber>0 and isnull(EndTime,'')<>'' ")
+ 	Set sc=rs.Execute(..VanafTijdstip)
+	Set it=##class(TECH.ResultSetIterator).%New(rs)
+	Quit it
+]]></Implementation>
+</Method>
+
+<Method name="MaakLogItem">
+<Private>1</Private>
+<Implementation><![CDATA[
+	Set ..LogItem=..VorigLogItem.%ConstructClone()
+	Set ..LogItem.IsRework=0
+	Set ..LogItem.MachineID=..#MachineID
+	Set ..LogItem.TijdstipCreatie=$$$Timestamp($H)
+	Set ..LogItem.TijdstipProductie=..MachineTijdstip
+	Set ..LogItem.StapNummer=..BepaalStapNummer()
+	Set ..LogItem.LaatstToegevoegd=0
+]]></Implementation>
+</Method>
+
+<Method name="BepaalStapNummer">
+<Private>1</Private>
+<Implementation><![CDATA[	Quit 5
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: APPS/Halux/Opvolging/ProductieStap/TAOR/dto/LaatsteUpdate.cls.xml
===================================================================
diff -u
--- APPS/Halux/Opvolging/ProductieStap/TAOR/dto/LaatsteUpdate.cls.xml	(revision 0)
+++ APPS/Halux/Opvolging/ProductieStap/TAOR/dto/LaatsteUpdate.cls.xml	(revision 39939)
@@ -0,0 +1,77 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="APPS.Halux.Opvolging.ProductieStap.TAOR.dto.LaatsteUpdate">
+<ClassType>persistent</ClassType>
+<IncludeCode>vhLib.Macro</IncludeCode>
+<ProcedureBlock>1</ProcedureBlock>
+<Super>TECH.Persistent</Super>
+
+<Property name="MachineID">
+<Type>APPS.Halux.Opvolging.ProductieStap.TAOR.enu.Machines</Type>
+</Property>
+
+<Property name="LaatsteTijdstip">
+<Type>%TimeStamp</Type>
+</Property>
+
+<Index name="PrimaryKey">
+<IdKey>1</IdKey>
+<PrimaryKey>1</PrimaryKey>
+<Properties>MachineID</Properties>
+<Unique>1</Unique>
+</Index>
+
+<Method name="GeefLaatsteUpdateVoorMachine">
+<ClassMethod>1</ClassMethod>
+<FormalSpec>MachineID:APPS.Halux.Opvolging.ProductieStap.TAOR.enu.Machines</FormalSpec>
+<Implementation><![CDATA[
+	Set LaatsteMachineUpdate=##class(APPS.Halux.Opvolging.ProductieStap.TAOR.dto.LaatsteUpdate).%OpenId(MachineID)
+
+	If $isObject(LaatsteMachineUpdate) {
+		Set LaatsteUpdate=LaatsteMachineUpdate.LaatsteTijdstip
+	} Else {
+		Set LaatsteUpdate=$P($$$Timestamp($H),".") ; zonder de milliseconde
+	}
+	Quit LaatsteUpdate
+]]></Implementation>
+</Method>
+
+<Method name="OpslaanLaatsteUpdateVoorMachine">
+<ClassMethod>1</ClassMethod>
+<FormalSpec>MachineID:APPS.Halux.Opvolging.ProductieStap.TAOR.enu.Machines,LaatsteUpdate:%TimeStamp</FormalSpec>
+<Implementation><![CDATA[
+	Set LaatsteMachineUpdate=##class(APPS.Halux.Opvolging.ProductieStap.TAOR.dto.LaatsteUpdate).%OpenId(MachineID)
+	If '$isObject(LaatsteMachineUpdate) {
+		Set LaatsteMachineUpdate=##class(APPS.Halux.Opvolging.ProductieStap.TAOR.dto.LaatsteUpdate).%New()
+		Set LaatsteMachineUpdate.MachineID=MachineID
+	}
+	Set LaatsteMachineUpdate.LaatsteTijdstip=LaatsteUpdate
+	Do LaatsteMachineUpdate.Save()
+]]></Implementation>
+</Method>
+
+<Storage name="Default">
+<Type>%Library.CacheStorage</Type>
+<DataLocation>^APPS.Halux.OB092.LaatsteUpdateD</DataLocation>
+<DefaultData>LaatsteUpdateDefaultData</DefaultData>
+<IdLocation>^APPS.Halux.OB092.LaatsteUpdateD</IdLocation>
+<IndexLocation>^APPS.Halux.OB092.LaatsteUpdateI</IndexLocation>
+<StreamLocation>^APPS.Halux.OB092.LaatsteUpdateS</StreamLocation>
+<Data name="LaatsteUpdateDefaultData">
+<Structure>listnode</Structure>
+<Subscript/>
+<Value name="1">
+<Value>%%CLASSNAME</Value>
+</Value>
+<Value name="2">
+<Value>LaatsteUpdate</Value>
+</Value>
+<Value name="3">
+<Value>LaatsteTijdstip</Value>
+</Value>
+</Data>
+</Storage>
+</Class>
+
+
+</Export>
Index: APPS/Halux/Opvolging/ProductieStap/TAOR/impl/ProductieStapLogger.cls.xml
===================================================================
diff -u -r39903 -r39939
--- APPS/Halux/Opvolging/ProductieStap/TAOR/impl/ProductieStapLogger.cls.xml	(.../ProductieStapLogger.cls.xml)	(revision 39903)
+++ APPS/Halux/Opvolging/ProductieStap/TAOR/impl/ProductieStapLogger.cls.xml	(.../ProductieStapLogger.cls.xml)	(revision 39939)
@@ -47,10 +47,12 @@
 <Private>1</Private>
 <Implementation><![CDATA[
 	Set ..LogItem=..VorigLogItem.%ConstructClone()
+	Set ..LogItem.IsRework=0
 	Set ..LogItem.MachineID=..Machine
 	Set ..LogItem.TijdstipCreatie=$$$Timestamp($H)
+	Set ..LogItem.TijdstipProductie=..LogItem.TijdstipCreatie
 	Set ..LogItem.StapNummer=..BepaalStapNummer()
-	Set ..LogItem.LaatstToegevoegd=1
+	Set ..LogItem.LaatstToegevoegd=0
 ]]></Implementation>
 </Method>
 
@@ -63,14 +65,12 @@
 ]]></Implementation>
 </Method>
 
-<Method name="OpkuisOudeLogItems">
+<Method name="BepaalLaatstToegevoegd">
 <Private>1</Private>
 <Implementation><![CDATA[
-	If ..LogItem.LaatstToegevoegd
-	{
-		Set VerwerkingID=..LogItem.VerwerkingID
-		&SQL(UPDATE APPS_Halux_Opvolging_ProductieStap_TAOR_dto.ProductieStapLogItem SET LaatstToegevoegd=0 WHERE VerwerkingID=:VerwerkingID)
-	}
+	Set VerwerkingID=..LogItem.VerwerkingID
+	&SQL(UPDATE APPS_Halux_Opvolging_ProductieStap_TAOR_dto.ProductieStapLogItem SET LaatstToegevoegd=0 WHERE VerwerkingID=:VerwerkingID and LaatstToegevoegd<>0)
+	&SQL(UPDATE APPS_Halux_Opvolging_ProductieStap_TAOR_dto.ProductieStapLogItem SET LaatstToegevoegd=1 WHERE VerwerkingID=:VerwerkingID and LaatstToegevoegd=0 and ID = (SELECT TOP 1 ID from APPS_Halux_Opvolging_ProductieStap_TAOR_dto.ProductieStapLogItem WHERE VerwerkingID=:VerwerkingID ORDER BY TijdstipProductie DESC) )
 ]]></Implementation>
 </Method>
 </Class>
Index: APPS/Halux/Opvolging/ProductieStap/impl/StatusOpvragen.cls.xml
===================================================================
diff -u -r39904 -r39939
--- APPS/Halux/Opvolging/ProductieStap/impl/StatusOpvragen.cls.xml	(.../StatusOpvragen.cls.xml)	(revision 39904)
+++ APPS/Halux/Opvolging/ProductieStap/impl/StatusOpvragen.cls.xml	(.../StatusOpvragen.cls.xml)	(revision 39939)
@@ -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,HerwerkAantal , LaatstToegevoegd,Kar,DueOut from APPS_Halux_Opvolging_ProductieStap_TAOR_dto.ProductieStapLogItem log 
+<SqlQuery>select BatchID, ToeleveringID, Klant.naam,VerwerkingID, Onderdeel,TijdstipCreatie, MachineID,StapNummer, IsRework,LaatstToegevoegd,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,HerwerkAantal , LaatstToegevoegd,Kar,DueOut from APPS_Halux_Opvolging_ProductieStap_TAOR_dto.ProductieStapLogItem log 
+<SqlQuery>select BatchID, ToeleveringID, Klant.naam,VerwerkingID, Onderdeel,TijdstipCreatie, MachineID,StapNummer, IsRework, LaatstToegevoegd,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/HerwerkLogger.cls.xml
===================================================================
diff -u -r39903 -r39939
--- APPS/Halux/Opvolging/ProductieStap/TAOR/impl/HerwerkLogger.cls.xml	(.../HerwerkLogger.cls.xml)	(revision 39903)
+++ APPS/Halux/Opvolging/ProductieStap/TAOR/impl/HerwerkLogger.cls.xml	(.../HerwerkLogger.cls.xml)	(revision 39939)
@@ -21,9 +21,11 @@
 	Set ..LogItem=..VorigLogItem.%ConstructClone()
 	Set ..LogItem.MachineID=..Machine
 	Set ..LogItem.TijdstipCreatie=$$$Timestamp($H)
+	Set ..LogItem.TijdstipProductie=..LogItem.TijdstipCreatie
 	Set ..LogItem.StapNummer=..BepaalStapNummer()
-	Set ..LogItem.LaatstToegevoegd=1
-	Set ..LogItem.HerwerkAantal=..LogItem.HerwerkAantal+1
+	Set ..LogItem.LaatstToegevoegd=0
+	Set ..LogItem.IsRework=1
+
 	;d DumpObject^%apiOBJ(..LogItem)
 ]]></Implementation>
 </Method>
Index: APPS/Halux/Opvolging/ProductieStap/TAOR/impl/CopieerBatch.cls.xml
===================================================================
diff -u -r39903 -r39939
--- APPS/Halux/Opvolging/ProductieStap/TAOR/impl/CopieerBatch.cls.xml	(.../CopieerBatch.cls.xml)	(revision 39903)
+++ APPS/Halux/Opvolging/ProductieStap/TAOR/impl/CopieerBatch.cls.xml	(.../CopieerBatch.cls.xml)	(revision 39939)
@@ -84,6 +84,7 @@
 	Set ..LogItem.SequentieNummer=..InfoItem.SequentieNummer
 	Set ..LogItem.MachineID=..Machine
 	Set ..LogItem.TijdstipCreatie=$$$Timestamp($H)
+	Set ..LogItem.TijdstipProductie=$$$Timestamp($H-10) ;..LogItem.TijdstipCreatie
 	Set ..LogItem.Onderdeel=..BepaalOnderdeel()
 	Set ..LogItem.StapNummer=..BepaalStapNummer()
 	Set ..LogItem.Kar=..BepaalKar()