Index: APPS/VisiDot/impl/EndAfhandelaar.cls.xml
===================================================================
diff -u -r2047 -r2783
--- APPS/VisiDot/impl/EndAfhandelaar.cls.xml	(.../EndAfhandelaar.cls.xml)	(revision 2047)
+++ APPS/VisiDot/impl/EndAfhandelaar.cls.xml	(.../EndAfhandelaar.cls.xml)	(revision 2783)
@@ -5,9 +5,23 @@
 <Super>APPS.VisiDot.Afhandelaar</Super>
 <ClassDefinitionError>0</ClassDefinitionError>
 
+<Property name="CaptureHelper">
+<Type>APPS.VisiDot.impl.VHossCaptureHelper</Type>
+</Property>
+
+<Property name="bfrVolgNr">
+<Type>%String</Type>
+</Property>
+
 <Method name="Verwerk">
 <FormalSpec>ProcessedData:APPS.VisiDot.dto.CaptureInfo</FormalSpec>
 <Implementation><![CDATA[
+	Set ..CaptureHelper = ##class(APPS.VisiDot.impl.VHossCaptureHelper).%New(ProcessedData,##class(APPS.VisiDot.impl.VHossProductionHelper).%New())
+	
+	Do ..RecepteerProducten()
+	Do ..ToeleveringIngescand()
+	
+	
 	Set BestandNaam = "EndInfo_OUT.xml"
 	Do ..BewaarData(ProcessedData,BestandNaam)
 ]]></Implementation>
@@ -26,5 +40,82 @@
 	Quit DoelLocatie
 ]]></Implementation>
 </Method>
+
+<Method name="RecepteerProducten">
+<Description>
+Als alle producten gerecepteerd zijn, status $$$OK.
+
+Indien minstens één product niet gerecepteerd kon worden wordt de status $$$ERROR meegegeven.
+Van de niet gerecepteerde producten wordt een errormail verstuurd met duidelijke omschrijving in.
+</Description>
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[
+	Set ReturnStatus = $$$OK
+	
+	/// Enkel uitvoeren als er een batch te discoveren is.	
+	If (..CaptureHelper.GeefBatchID()){
+		Set ProductionHelper = ##class(APPS.VisiDot.impl.VHossProductionHelper).%New()
+		
+						
+		Set UserID = "VisiDot"
+		Set ReceptieGroepID = "VisiDot"
+		Set FrameID = "Vhoss"
+		Set Locatie = "Locatie"
+		
+		/// Nieuwe bufferVolgNr opbouwen
+		Set ..bfrVolgNr = ##class(BL.MB.UGLYPicking.Receptie).CreateNewBuffer(ReceptieGroepID,UserID)
+		
+		Set QueueIterator = ProductionHelper.GeefBatchIterator(..CaptureHelper.GeefBatchID())		
+		While QueueIterator.HasNext()
+		{
+			/// QueueElement As DS.PPS.TBX.Queue
+			Set QueueElement = QueueIterator.Next()
+			
+			Set $ZTRAP = "CatchReceptieProbleem"
+			
+			If (QueueElement.Status = "W"){
+				
+				Set ProductID = QueueElement.Product.ProductNr
+				Set BatchID = ..CaptureHelper.GeefBatchID()	
+				Set Dossier = QueueElement.DOSNr
+				Set ProdIsInKOM = ""
+				Set DomeinContext = ##class(TECH.Context.RuntimeContext).Instance()
+				Set GebruikerInitialen = DomeinContext.GeefGebruikerInitialen()
+				Set Status = ##class(BL.MB.UGLYPicking.Receptie).AddToBuffer(ReceptieGroepID,..bfrVolgNr,ProductID,Dossier,Locatie,FrameID,GebruikerInitialen,.ProdIsInKOM)
+				
+				If ($LG(Status,1) < 0)
+				{
+					Set FoutString = "##class(BL.MB.UGLYPicking.Receptie).AddToBuffer("_ReceptieGroepID_","_..bfrVolgNr_","_ProductID_","_Dossier_","_Locatie_","_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)))	
+				}				
+			}	
+			GoTo VolgendeReceptie
+CatchReceptieProbleem
+			Set $ZTRAP = ""
+			Set ReturnStatus = '$$$OK
+			Set Exception = ##class(TECH.ExceptionHandler).Catch()
+			do ##class(vhLib.Logger).%New("VisiDot").ErrorMail("Recepteer Producten",Exception.ToString())	
+VolgendeReceptie
+		}
+	}
+	Quit ReturnStatus
+]]></Implementation>
+</Method>
+
+<Method name="ToeleveringIngescand">
+<Implementation><![CDATA[
+	
+	Set ReceptieGroepID = "VisiDot"
+	
+	If (..bfrVolgNr '= ""){	
+		Do WLIP^vhDBG(127,"UglyPickingReceptieVolgNr : "_..bfrVolgNr)
+		Set EventData = ##class(BL.MB.UGLYPicking.Events.ToeFinishedEventData).%New("",ReceptieGroepID,..bfrVolgNr)
+		Set Event = ##class(BL.MB.UGLYPicking.Events.ToeFinishedEvent).%New(EventData)
+		Do ##class(TECH.PubSub.OrchestrationContext).GetEventRaiser().RaiseEventAsync(Event)
+	}Else{
+		Do WLIP^vhDBG(127,"UglyPickingReceptieVolgNr niet ingevuld")
+	}
+]]></Implementation>
+</Method>
 </Class>
 </Export>