Index: WS/Halux/Opvolging/ProductieStap/LoggerService.cls.xml
===================================================================
diff -u -r39961 -r39992
--- WS/Halux/Opvolging/ProductieStap/LoggerService.cls.xml	(.../LoggerService.cls.xml)	(revision 39961)
+++ WS/Halux/Opvolging/ProductieStap/LoggerService.cls.xml	(.../LoggerService.cls.xml)	(revision 39992)
@@ -2,8 +2,9 @@
 <Export generator="Cache" version="24">
 <Class name="WS.Halux.Opvolging.ProductieStap.LoggerService">
 <ClassType/>
+<IncludeCode>vhLib.Macro</IncludeCode>
 <ProcedureBlock>1</ProcedureBlock>
-<Super>WS.OngeauthenticeerdeWebService</Super>
+<Super>%SOAP.WebService</Super>
 
 <Parameter name="XMLIGNORENULL">
 <Default>0</Default>
@@ -37,17 +38,6 @@
 ]]></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>
@@ -80,7 +70,6 @@
 	s Data=$c(10)_$c(10)_"RCV09370ZS40713D2"_$c(10)
 	set bl=..%New()
 	
-	Do bl.ProcessRework("RCV09370ZS40713D2")
 	Do bl.ProcessData(Data,##class(APPS.Halux.Opvolging.ProductieStap.TAOR.enu.Machines).ProfileringRugBodemFront())
 	q
 	s Data=$$$CRLF_$$$CRLF_"ZKV75L69906"_$$$CRLF
Index: APPS/Halux/Opvolging/ProductieStap/TAOR/impl/ProductieZijkantFrees.cls.xml
===================================================================
diff -u -r39961 -r39992
--- APPS/Halux/Opvolging/ProductieStap/TAOR/impl/ProductieZijkantFrees.cls.xml	(.../ProductieZijkantFrees.cls.xml)	(revision 39961)
+++ APPS/Halux/Opvolging/ProductieStap/TAOR/impl/ProductieZijkantFrees.cls.xml	(.../ProductieZijkantFrees.cls.xml)	(revision 39992)
@@ -41,7 +41,7 @@
 <Description>
 Do ##class(APPS.Halux.Opvolging.ProductieStap.TAOR.impl.ProductieZijkantFrees).%New().VerwerkRecente()</Description>
 <Implementation><![CDATA[
-	w "Begin zijkant ",..VanafTijdstip,!
+	;w "Begin zijkant ",..VanafTijdstip,!
 	#dim it as TECH.ResultSet=..HistorieIterator()
 	While it.HasNext()
 	{
@@ -51,13 +51,13 @@
 		
 		#dim BarcodeLeft as %String=$ZSTRIP(rs.Data("PrintBarcodeLeft"),">W")
 		#dim BarcodeRight as %String=$ZSTRIP(rs.Data("PrintBarcodeRight"),">W")
-		w BarcodeLeft," ",BarcodeRight," ",..MachineTijdstip," ", ..VanafTijdstip,!
+		;w BarcodeLeft," ",BarcodeRight," ",..MachineTijdstip," ", ..VanafTijdstip,!
 		Do:$L(BarcodeLeft) ..VoegToeProductieStap(BarcodeLeft)
 		Do:$L(BarcodeRight) ..VoegToeProductieStap(BarcodeRight)
 		
 		Set:$$DIFFTIME^vhLib.DataTypes($zdth(..VanafTijdstip,3,,6),$zdth(..MachineTijdstip,3,,6))>0 ..VanafTijdstip=..MachineTijdstip
 	}
-	w "Einde zijkant ",..VanafTijdstip,!
+	;w "Einde zijkant ",..VanafTijdstip,!
 	Do ##class(APPS.Halux.Opvolging.ProductieStap.TAOR.dto.LaatsteUpdate).OpslaanLaatsteUpdateVoorMachine(..#MachineID,..VanafTijdstip)
 ]]></Implementation>
 </Method>
FishEye: Tag 39992 refers to a dead (removed) revision in file `WSimpl/Halux/PPS/ProductieStap/LoggerService.cls.xml'.
FishEye: No comparison available.  Pass `N' to diff?
Index: APPS/Halux/Opvolging/ProductieStap/TAOR/impl/ProductieAfkanter.cls.xml
===================================================================
diff -u -r39961 -r39992
--- APPS/Halux/Opvolging/ProductieStap/TAOR/impl/ProductieAfkanter.cls.xml	(.../ProductieAfkanter.cls.xml)	(revision 39961)
+++ APPS/Halux/Opvolging/ProductieStap/TAOR/impl/ProductieAfkanter.cls.xml	(.../ProductieAfkanter.cls.xml)	(revision 39992)
@@ -41,7 +41,7 @@
 <Description>
 Do ##class(APPS.Halux.Opvolging.ProductieStap.TAOR.impl.ProductieAfkanter).%New().VerwerkRecente()</Description>
 <Implementation><![CDATA[
-	w "Begin afkanter ",..VanafTijdstip,!
+	;w "Begin afkanter ",..VanafTijdstip,!
 	#dim it as TECH.ResultSet=..HistorieIterator()
 	While it.HasNext()
 	{
@@ -52,12 +52,12 @@
 		Set ..MachineTijdstip=$$$Timestamp(Tijdstip)
 		
 		#dim Barcode as %String=$ZSTRIP(rs.Data("ID"),">W")
-		w Barcode," ",..MachineTijdstip,!
+		;w Barcode," ",..MachineTijdstip,!
 		Do ..VoegToeProductieStap(Barcode)
 		
 		Set:$$DIFFTIME^vhLib.DataTypes($zdth(..VanafTijdstip,3,,6),$zdth(..MachineTijdstip,3,,6))>0 ..VanafTijdstip=..MachineTijdstip
 	}
-	w "Einde afkanter ",..VanafTijdstip,!
+	;w "Einde afkanter ",..VanafTijdstip,!
 
 	Do ##class(APPS.Halux.Opvolging.ProductieStap.TAOR.dto.LaatsteUpdate).OpslaanLaatsteUpdateVoorMachine(..#MachineID,..VanafTijdstip)
 ]]></Implementation>
Index: APPS/Halux/Opvolging/ProductieStap/TAOR/impl/ProductieStapLogger.cls.xml
===================================================================
diff -u -r39961 -r39992
--- APPS/Halux/Opvolging/ProductieStap/TAOR/impl/ProductieStapLogger.cls.xml	(.../ProductieStapLogger.cls.xml)	(revision 39961)
+++ APPS/Halux/Opvolging/ProductieStap/TAOR/impl/ProductieStapLogger.cls.xml	(.../ProductieStapLogger.cls.xml)	(revision 39992)
@@ -34,7 +34,7 @@
 <Private>1</Private>
 <Implementation><![CDATA[
 	Set InfoID=""
-	&SQL(SELECT ID INTO :InfoID FROM APPS_Halux_Opvolging_ProductieStap_TAOR_dto.ProductieStapLogItem WHERE VerwerkingID=:ZoekID AND LaatstToegevoegd=1)
+	&SQL(SELECT TOP 1 ID INTO :InfoID FROM APPS_Halux_Opvolging_ProductieStap_TAOR_dto.ProductieStapLogItem WHERE VerwerkingID=:ZoekID  ORDER BY TijdstipProductie DESC)
 	If InfoID'=""
 	{
 		Set ..VorigLogItem=##class(APPS.Halux.Opvolging.ProductieStap.TAOR.dto.ProductieStapLogItem).%OpenId(InfoID)
@@ -69,8 +69,12 @@
 <Private>1</Private>
 <Implementation><![CDATA[
 	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, ID DESC) )
+	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'=""
+	{
+		&SQL(UPDATE APPS_Halux_Opvolging_ProductieStap_TAOR_dto.ProductieStapLogItem SET StapNummer=-StapNummer WHERE VerwerkingID=:VerwerkingID and StapNummer>0 AND TijdstipProductie>:LaatsteTijdstip)
+	}
 ]]></Implementation>
 </Method>
 </Class>
FishEye: Tag 39992 refers to a dead (removed) revision in file `APPS/Halux/Opvolging/ProductieStap/TAOR/impl/HerwerkLogger.cls.xml'.
FishEye: No comparison available.  Pass `N' to diff?
Index: APPS/Halux/Opvolging/ProductieStap/TAOR/impl/ArdisOptimalisatie.cls.xml
===================================================================
diff -u
--- APPS/Halux/Opvolging/ProductieStap/TAOR/impl/ArdisOptimalisatie.cls.xml	(revision 0)
+++ APPS/Halux/Opvolging/ProductieStap/TAOR/impl/ArdisOptimalisatie.cls.xml	(revision 39992)
@@ -0,0 +1,119 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="APPS.Halux.Opvolging.ProductieStap.TAOR.impl.ArdisOptimalisatie">
+<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>
+
+<Property name="Status">
+<Type>%String</Type>
+</Property>
+
+<Property name="Rework">
+<Type>%String</Type>
+</Property>
+
+<Parameter name="MachineID">
+<Default>Ardis</Default>
+</Parameter>
+
+<Method name="%OnNew">
+<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>
+</Method>
+
+<Method name="VerwerkRecente">
+<Description>
+Do ##class(APPS.Halux.Opvolging.ProductieStap.TAOR.impl.ArdisOptimalisatie).%New().VerwerkRecente()</Description>
+<Implementation><![CDATA[
+	;w "Begin ARDIS ",..VanafTijdstip,!
+	#dim it as TECH.ResultSet=..HistorieIterator()
+	While it.HasNext()
+	{
+		Set rs=it.Next()
+		Set ..MachineTijdstip=$P(rs.Data("LastChanged"),".") ; 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)
+		{
+			;w Barcode," ",..MachineTijdstip," ",..Status," ",..Rework,!
+			Do ..VoegToeProductieStap(Barcode)
+		
+			Set:$$DIFFTIME^vhLib.DataTypes($zdth(..VanafTijdstip,3,,6),$zdth(..MachineTijdstip,3,,6))>0 ..VanafTijdstip=..MachineTijdstip
+		}
+	}
+	;w "Einde ARDIS ",..VanafTijdstip,!
+
+	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 PartCalc as VerwerkingID,Status, Inserted, LastChanged,PartRemark3 as Rework FROM APPS_Halux_Machine_Opdeelzaag_data.ArdisParts WHERE LastChanged>?")
+	
+ 	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.MachineID=..#MachineID
+	Set ..LogItem.TijdstipCreatie=$$$Timestamp($H)
+	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>
+</Method>
+
+<Method name="BepaalStapNummer">
+<Private>1</Private>
+<Implementation><![CDATA[	Quit $S(..Status=2:2,1:1)
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: APPS/Halux/Opvolging/ProductieStap/TAOR/enu/StapNummer.cls.xml
===================================================================
diff -u -r39903 -r39992
--- APPS/Halux/Opvolging/ProductieStap/TAOR/enu/StapNummer.cls.xml	(.../StapNummer.cls.xml)	(revision 39903)
+++ APPS/Halux/Opvolging/ProductieStap/TAOR/enu/StapNummer.cls.xml	(.../StapNummer.cls.xml)	(revision 39992)
@@ -8,7 +8,7 @@
 <Super>%Integer</Super>
 
 <Parameter name="VALUELIST">
-<Default>,0,1,2,3,4,5,6,7,8,9</Default>
+<Default>,0,1,2,3,4,5,6,7,8,9,-1,-2,-3,-4,-5,-6,-7,-8,-9</Default>
 </Parameter>
 
 <Method name="Optimalisatie">
@@ -18,6 +18,27 @@
 ]]></Implementation>
 </Method>
 
+<Method name="OptimalisatieNaarSelco">
+<ClassMethod>1</ClassMethod>
+<ReturnType>APPS.Halux.Opvolging.ProductieStap.TAOR.enu.Onderdeel</ReturnType>
+<Implementation><![CDATA[	Quit 2
+]]></Implementation>
+</Method>
+
+<Method name="KamerFrees">
+<ClassMethod>1</ClassMethod>
+<ReturnType>APPS.Halux.Opvolging.ProductieStap.TAOR.enu.Onderdeel</ReturnType>
+<Implementation><![CDATA[	Quit 3
+]]></Implementation>
+</Method>
+
+<Method name="Afkanter">
+<ClassMethod>1</ClassMethod>
+<ReturnType>APPS.Halux.Opvolging.ProductieStap.TAOR.enu.Onderdeel</ReturnType>
+<Implementation><![CDATA[	Quit 5
+]]></Implementation>
+</Method>
+
 <Method name="Aanmaak">
 <ClassMethod>1</ClassMethod>
 <ReturnType>APPS.Halux.Opvolging.ProductieStap.TAOR.enu.Onderdeel</ReturnType>
Index: APPS/Halux/Opvolging/ProductieStap/TAOR/impl/CopieerBatch.cls.xml
===================================================================
diff -u -r39939 -r39992
--- APPS/Halux/Opvolging/ProductieStap/TAOR/impl/CopieerBatch.cls.xml	(.../CopieerBatch.cls.xml)	(revision 39939)
+++ APPS/Halux/Opvolging/ProductieStap/TAOR/impl/CopieerBatch.cls.xml	(.../CopieerBatch.cls.xml)	(revision 39992)
@@ -19,10 +19,15 @@
 <Method name="CopieerViaVerwerkingID">
 <FormalSpec>VerwerkingID:%String</FormalSpec>
 <Implementation><![CDATA[
+	
 	Set BatchID=..GeefBathIDViaVerwerkingID(VerwerkingID)
+	
 	If BatchID'=""
 	{
-		Do ..CopieerViaBatchID(BatchID)
+		If ..ToegelatenVerwerkingID(BatchID,VerwerkingID)
+		{
+			Do ..CopieerViaBatchID(BatchID)
+		}
 	}
 ]]></Implementation>
 </Method>
@@ -91,26 +96,20 @@
 	Set ..LogItem.DueOut=..BepaalDueOut()
 	Set ..LogItem.LaatstToegevoegd=1
 	;Do DumpObject^%apiOBJ(..LogItem)
-	Do:..ToegelatenVerwerkingID() ..LogItem.Save()
+	Do:..ToegelatenVerwerkingID(..LogItem.BatchID,..LogItem.VerwerkingID) ..LogItem.Save()
 ]]></Implementation>
 </Method>
 
 <Method name="ToegelatenVerwerkingID">
+<FormalSpec>BatchID,VerwerkingID</FormalSpec>
+<Private>1</Private>
 <Implementation><![CDATA[
-	Quit:$E(..LogItem.VerwerkingID)'="Z" 1
+	Quit:$E(VerwerkingID)'="Z" 1
 	
-	; Controle dat of dat zijkant VerwerkingID bestaat	
-	Set rs=##class(TECH.ResultSet).%New()
-	Do rs.Prepare("SELECT ID FROM APPS_Halux_PPS_Activiteit_impl_TAOR_dto.ZijkantPlaatPickingUitvoeringInfo WHERE BatchID=? AND (KamerFreesData_PrintBarcodeLeft=? OR KamerFreesData_PrintBarcodeRight=?)")
- 	Set sc=rs.Execute(..LogItem.BatchID,..LogItem.VerwerkingID,..LogItem.VerwerkingID)
-	Set it=##class(TECH.ResultSetIterator).%New(rs)
+	; Controle dat het gaat over een VerwerkingID dat ook door de ZijkantFrees gekend is
+	; er wordt immers voor de binnenste zijkantplaatjes ook een verwerkingID (=barcode) gegenereerd maar die nooit gebruikt wordt in de productie
 	Set ID=""
- 	If it.HasNext() 
- 	{
-	 	Set rs=it.Next()
-		Set ID=rs.Data("ID")
- 	}
- 	;w ..LogItem.VerwerkingID," ",ID,!
+	&SQL(SELECT ID INTO :ID FROM APPS_Halux_PPS_Activiteit_impl_TAOR_dto.ZijkantPlaatPickingUitvoeringInfo WHERE BatchID=:BatchID AND (KamerFreesData_PrintBarcodeLeft=:VerwerkingID OR KamerFreesData_PrintBarcodeRight=:VerwerkingID))
  	Quit ID'=""
 ]]></Implementation>
 </Method>