Index: APPS/VisiDot/impl/EndAfhandelaar.cls.xml
===================================================================
diff -u -r3523 -r3701
--- APPS/VisiDot/impl/EndAfhandelaar.cls.xml	(.../EndAfhandelaar.cls.xml)	(revision 3523)
+++ APPS/VisiDot/impl/EndAfhandelaar.cls.xml	(.../EndAfhandelaar.cls.xml)	(revision 3701)
@@ -103,14 +103,15 @@
 				Set ToeleveringID = QueueElement.TOENr
 				
 				/// Als toelevering nog niet gerecepteerd is : 
-				Set Toelevering = ##class(DOM.DomeinContext).Instance().GeefToeleveringAPI().GeefToelevering(ToeleveringID)
-				Do ##class(vhLib.Logger).%New("VisiDot").Info("Recepteer Producten",BatchID_ $C(9)_" : Toelevering "_ToeleveringID_" is opgehaald.")	
-				If ('$IsObject(Toelevering)){
+				Do ##class(vhLib.Logger).%New("VisiDot").Info("Recepteer Producten",BatchID_ $C(9)_" : Toelevering "_ToeleveringID_" is opgehaald.")
+				Set ToeleveringAPI = ##class(DOM.DomeinContext).Instance().GeefToeleveringAPI()	
+				If ('ToeleveringAPI.BestaatToelevering(ToeleveringID)){
 					Set IsToeleveringReedsGerecepteerd = 1
 					Set Bericht = "De toelevering '"_ToeleveringID_"' is reeds gerecepteerd."_$C(13,10)
 					Set Bericht = Bericht_"Bij de recepetie via VisiDot met BatchID : '"_BatchID_"'"_$C(13,10)
 					Do ##class(vhLib.Logger).%New("VisiDot").ErrorMail("Toelevering "_ToeleveringID_" reeds gerecepteerd",Bericht)	
 				}Else{	
+					Set Toelevering = ToeleveringAPI.GeefToelevering(ToeleveringID)
 					Set Dossier = QueueElement.DOSNr
 					Do ##class(vhLib.Logger).%New("VisiDot").Info("Recepteer Producten",BatchID_ $C(9)_" :  Product met DossierCode '"_Dossier_"'  voor Toelevering '"_ToeleveringID_"' wordt gerecepteerd.")			
 					Set FrameID = ProductionHelper.GeefPalletIDVanVHossID(QueueHelper.GeefFrameID())