Index: APPS/VisiDot/impl/EndAfhandelaar.cls.xml
===================================================================
diff -u -r2857 -r2858
--- APPS/VisiDot/impl/EndAfhandelaar.cls.xml	(.../EndAfhandelaar.cls.xml)	(revision 2857)
+++ APPS/VisiDot/impl/EndAfhandelaar.cls.xml	(.../EndAfhandelaar.cls.xml)	(revision 2858)
@@ -19,7 +19,7 @@
 	Set ..CaptureHelper = ##class(APPS.VisiDot.impl.VHossCaptureHelper).%New(ProcessedData,##class(APPS.VisiDot.impl.VHossProductionHelper).%New())
 	
 	Do ..RecepteerProducten()
-	Do ..ToeleveringIngescand()   ; [Review JBL  WV recepteer]  Uncle Bob vindt dit vast geen goede methodname  ;-) 
+	Do ..ScanInToelevering()
 	
 	Set BestandNaam = "EndInfo_OUT.xml"
 	Do ..BewaarData(ProcessedData,BestandNaam)
@@ -54,8 +54,9 @@
 	
 	
 	Set ProductAPI = ##class(DOM.DomeinContext).Instance().GeefProductAPI()
+	Set BatchID = ..CaptureHelper.GeefBatchID()
 	/// Enkel uitvoeren als er een batch te discoveren is.	
-	If (..CaptureHelper.GeefBatchID()){
+	If (BatchID){
 		Set ProductionHelper = ##class(APPS.VisiDot.impl.VHossProductionHelper).%New()
 		
 		Set UserID = "VisiDot"
@@ -65,7 +66,7 @@
 		/// Nieuwe bufferVolgNr opbouwen
 		Set ..bfrVolgNr = ##class(BL.MB.UGLYPicking.Receptie).CreateNewBuffer(ReceptieGroepID,UserID)
 		
-		Set QueueIterator = ProductionHelper.GeefBatchIterator(..CaptureHelper.GeefBatchID())   ; [Review JBL  WV recepteer]  BatchID wordt hierboven reeds opgehaald (de if-test) 
+		Set QueueIterator = ProductionHelper.GeefBatchIterator(BatchID)
 		While QueueIterator.HasNext()
 		{
 			/// QueueElement As DS.PPS.TBX.Queue
@@ -78,7 +79,7 @@
 			If (QueueElement.Status = "W"){
 				
 				Set ProductID = QueueHelper.GeefProductNr()
-				Set BatchID = ..CaptureHelper.GeefBatchID()   ; [Review JBL  WV recepteer]  BatchID wordt hierboven reeds opgehaald, buiten de while-loop  (de if-test) 
+				Set BatchID = BatchID
 				Set ToeleveringID = QueueElement.TOENr
 				Set Dossier = QueueElement.DOSNr
 				Set FrameID = ProductionHelper.GeefPalletIDVanVHossID(QueueHelper.GeefFrameID())
@@ -92,10 +93,9 @@
 					Set FoutString = "##class(BL.MB.UGLYPicking.Receptie).AddToBuffer("_ReceptieGroepID_","_..bfrVolgNr_","_ProductID_","_Dossier_","_LocatieTransit_","_FrameID_","_GebruikerInitialen_","_ProdIsInKOM_")"					
 					Do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.GeneralErrorException).%New("Fout bij uitvoeren van "_FoutString_$C(13,10)_"Fout: "_$LG(Status,2)))	
 				}
-			
-			; [Review JBL  WV recepteer]  persoonlijk zou ik de ZTrap, die binnen de while-loop is opgezet, ook zelf terug afzetten. 
-
 			}	
+			
+			Set $ZTRAP = ""
 			GoTo VolgendeReceptie
 CatchReceptieProbleem
 			Set $ZTRAP = ""
@@ -109,7 +109,7 @@
 ]]></Implementation>
 </Method>
 
-<Method name="ToeleveringIngescand">
+<Method name="ScanInToelevering">
 <Private>1</Private>
 <Implementation><![CDATA[
 	Set ReceptieGroepID = "VisiDot"