Index: APPS/Halux/Opvolging/ProductieStap/TAOR/impl/ProductieAfkanter.cls.xml
===================================================================
diff -u -r50244 -r53425
--- APPS/Halux/Opvolging/ProductieStap/TAOR/impl/ProductieAfkanter.cls.xml	(.../ProductieAfkanter.cls.xml)	(revision 50244)
+++ APPS/Halux/Opvolging/ProductieStap/TAOR/impl/ProductieAfkanter.cls.xml	(.../ProductieAfkanter.cls.xml)	(revision 53425)
@@ -46,16 +46,25 @@
 	While it.HasNext()
 	{
 		Set rs=it.Next()
-		Set EndTime=rs.Data("EndTime")
-		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")
-		;w Barcode," ",..MachineTijdstip,!
-		Do ..VoegToeProductieStap(Barcode)
-		
-		Set:$$DIFFTIME^vhLib.DataTypes($zdth(..VanafTijdstip,3,,6),$zdth(..MachineTijdstip,3,,6))>0 ..VanafTijdstip=..MachineTijdstip
+		Try {
+			Set EndTime=rs.Data("EndTime")
+			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")
+			;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 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 NewException = ##class(TECH.Exceptions.GeneralErrorException).%New(Message)
+			Do NewException.VoegToeInnerExceptie(Exception)
+			Do ##class(TECH.ExceptionHandler).Throw(NewException)
+		}
 	}
 	;w "Einde afkanter ",..VanafTijdstip,!