Index: APPS/VisiDot/impl/EndAfhandelaar.cls.xml
===================================================================
diff -u -r2839 -r2857
--- APPS/VisiDot/impl/EndAfhandelaar.cls.xml	(.../EndAfhandelaar.cls.xml)	(revision 2839)
+++ APPS/VisiDot/impl/EndAfhandelaar.cls.xml	(.../EndAfhandelaar.cls.xml)	(revision 2857)
@@ -19,7 +19,7 @@
 	Set ..CaptureHelper = ##class(APPS.VisiDot.impl.VHossCaptureHelper).%New(ProcessedData,##class(APPS.VisiDot.impl.VHossProductionHelper).%New())
 	
 	Do ..RecepteerProducten()
-	Do ..ToeleveringIngescand()
+	Do ..ToeleveringIngescand()   ; [Review JBL  WV recepteer]  Uncle Bob vindt dit vast geen goede methodname  ;-) 
 	
 	Set BestandNaam = "EndInfo_OUT.xml"
 	Do ..BewaarData(ProcessedData,BestandNaam)
@@ -65,7 +65,7 @@
 		/// Nieuwe bufferVolgNr opbouwen
 		Set ..bfrVolgNr = ##class(BL.MB.UGLYPicking.Receptie).CreateNewBuffer(ReceptieGroepID,UserID)
 		
-		Set QueueIterator = ProductionHelper.GeefBatchIterator(..CaptureHelper.GeefBatchID())		
+		Set QueueIterator = ProductionHelper.GeefBatchIterator(..CaptureHelper.GeefBatchID())   ; [Review JBL  WV recepteer]  BatchID wordt hierboven reeds opgehaald (de if-test) 
 		While QueueIterator.HasNext()
 		{
 			/// QueueElement As DS.PPS.TBX.Queue
@@ -78,7 +78,7 @@
 			If (QueueElement.Status = "W"){
 				
 				Set ProductID = QueueHelper.GeefProductNr()
-				Set BatchID = ..CaptureHelper.GeefBatchID()	
+				Set BatchID = ..CaptureHelper.GeefBatchID()   ; [Review JBL  WV recepteer]  BatchID wordt hierboven reeds opgehaald, buiten de while-loop  (de if-test) 
 				Set ToeleveringID = QueueElement.TOENr
 				Set Dossier = QueueElement.DOSNr
 				Set FrameID = ProductionHelper.GeefPalletIDVanVHossID(QueueHelper.GeefFrameID())
@@ -91,7 +91,10 @@
 				{
 					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. 
+
 			}	
 			GoTo VolgendeReceptie
 CatchReceptieProbleem