Index: APPS/VisiDot/impl/ZijkantAfhandelaar.cls.xml
===================================================================
diff -u -r2128 -r2572
--- APPS/VisiDot/impl/ZijkantAfhandelaar.cls.xml	(.../ZijkantAfhandelaar.cls.xml)	(revision 2128)
+++ APPS/VisiDot/impl/ZijkantAfhandelaar.cls.xml	(.../ZijkantAfhandelaar.cls.xml)	(revision 2572)
@@ -14,7 +14,8 @@
 <Implementation><![CDATA[
 	
 	Set ..ProcessedData = ProcessedData
-		
+	
+	Do ..RecepteerProducten()
 	Do ..KopieerFotos()
 	Do ..KopieerVerpakkingsDocument(ProcessedData)
 	
@@ -69,5 +70,49 @@
 <Implementation><![CDATA[	/// Dit wordt reeds in BL.PPS.TBX.DocsProPlus gedaan
 ]]></Implementation>
 </Method>
+
+<Method name="RecepteerProducten">
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[
+	Set CaptureHelper = ##class(APPS.VisiDot.impl.VHossCaptureHelper).%New(..ProcessedData,##class(APPS.VisiDot.impl.VHossProductionHelper).%New())
+	Set BatchService = ##class(APPS.Halux.common.BatchService).%New()
+
+	/// Enkel uitvoeren als er een batch te discoveren is.	
+	If (CaptureHelper.GeefBatchID()){
+		Set ProductionHelper = ##class(APPS.VisiDot.impl.VHossProductionHelper).%New()
+		
+		Set FrameDetectionHelper = CaptureHelper.GeefFrameDetectionHelper()
+		Set FrameID = FrameDetectionHelper.GeefID()
+		
+		Set LadeIt=CaptureHelper.GeefLadeDetectionIterator()
+		While LadeIt.HasNext()
+		{
+			Set DetectionHelper=LadeIt.Next()
+			If (DetectionHelper.IsCorrect()){
+				Set ProductID = DetectionHelper.GeefProduct()
+				Set VHossSlotNr = DetectionHelper.GeefSlotNr()
+				Set BatchID=DetectionHelper.GeefBatchID()	
+				Set VHossVolgNr=DetectionHelper.GeefVHossVolgNr()
+				Set VHossZijkant=DetectionHelper.GeefVHossZijkant()
+				
+				Set QueueHelper = ProductionHelper.ZoekQueueElement(BatchID,VHossVolgNr,VHossZijkant,VHossSlotNr,ProductID)
+				
+				Set Batch = BatchService.GeefBatch(BatchID)		
+				
+				Set ReceptieGroepID = "TB"
+				Set bfrVolgNr = "VolgNr"
+				Set Dossier = "Dossier"
+				Set Locatie = "Locatie"
+				Set DomeinContext = ##class(TECH.Context.RuntimeContext).Instance()
+				Set ProdIsInKOM = ""
+				Set GebruikerInitialen = DomeinContext.GeefGebruikerInitialen()
+				Set Status = ##class(BL.MB.UGLYPicking.Receptie).AddToBuffer(ReceptieGroepID,bfrVolgNr,ProductID,Dossier,Locatie,FrameID,GebruikerInitialen,.ProdIsInKOM)
+				
+				w Status,!
+			}
+		}
+	}
+]]></Implementation>
+</Method>
 </Class>
 </Export>