Index: APPS/Halux/Opvolging/ProductieStap/TAOR/impl/ProductieAfkanter.cls.xml
===================================================================
diff -u -r53427 -r53924
--- APPS/Halux/Opvolging/ProductieStap/TAOR/impl/ProductieAfkanter.cls.xml	(.../ProductieAfkanter.cls.xml)	(revision 53427)
+++ APPS/Halux/Opvolging/ProductieStap/TAOR/impl/ProductieAfkanter.cls.xml	(.../ProductieAfkanter.cls.xml)	(revision 53924)
@@ -42,27 +42,29 @@
 Do ##class(APPS.Halux.Opvolging.ProductieStap.TAOR.impl.ProductieAfkanter).%New().VerwerkRecente()</Description>
 <Implementation><![CDATA[
 	;w "Begin afkanter ",..VanafTijdstip,!
-	#dim it as TECH.ResultSet=..HistorieIterator()
+	#dim rs As TECH.ResultSet
+	#dim it As TECH.ResultSetIterator = ..HistorieIterator()
 	While it.HasNext()
 	{
 		Set rs=it.Next()
 		Try {
-			Set EndTime=rs.Data("EndTime")
+			#dim EndTime As %String = rs.Data("EndTime")
+			#dim AfkantID As %String = rs.Data("ID")
 			Set Tijdstip=$ZDTH(EndTime,1) ; formaat M/DD/YYYY HH:MM:SS
 			Continue:$$DIFFTIME^vhLib.DataTypes(..StartTijdstip,Tijdstip)'>0 
 			Set ..MachineTijdstip=$$$Timestamp(Tijdstip)
 			
-			#dim Barcode as %String=$ZSTRIP(rs.Data("ID"),">W")
+			#dim Barcode as %String=$ZSTRIP(AfkantID,">W")
 			;w Barcode," ",..MachineTijdstip,!
 			Do ..VoegToeProductieStap(Barcode)
 			
 			Set:$$DIFFTIME^vhLib.DataTypes($zdth(..VanafTijdstip,3,,6),$zdth(..MachineTijdstip,3,,6))>0 ..VanafTijdstip=..MachineTijdstip
 		} Catch {
-			#dim Exception As TECH.Exceptions.Exception = ##class(TECH.ExceptionHandler).Catch()
+			#dim GecatchteException As TECH.Exceptions.Exception = ##class(TECH.ExceptionHandler).Catch()
 			#dim Message As %String = "Fout productieafkanter, voeg toe productie stap voor APPS_Halux_Machine_Kantenband_data.BiesseHaluxArticles "
-			Set Message = Message _"met ID '" _rs.Data("ID") _"' en tijdstip '" _rs.Data("EndTime")_"'."
+			Set Message = Message _"met ID '" _AfkantID _"' en tijdstip '" _EndTime_"'."
 			Set NewException = ##class(TECH.Exceptions.GeneralErrorException).%New(Message)
-			Do NewException.VoegToeInnerExceptie(Exception)
+			Do NewException.VoegToeInnerExceptie(GecatchteException)
 			Do ##class(TECH.ExceptionHandler).Throw(NewException)
 		}
 	}
@@ -74,6 +76,7 @@
 
 <Method name="HistorieIterator">
 <Private>1</Private>
+<ReturnType>TECH.ResultSetIterator</ReturnType>
 <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,'')<>'' ")