Index: APPS/VisiDot/impl/ZijkantAfhandelaar.cls.xml
===================================================================
diff -u -r2572 -r2783
--- APPS/VisiDot/impl/ZijkantAfhandelaar.cls.xml	(.../ZijkantAfhandelaar.cls.xml)	(revision 2572)
+++ APPS/VisiDot/impl/ZijkantAfhandelaar.cls.xml	(.../ZijkantAfhandelaar.cls.xml)	(revision 2783)
@@ -5,24 +5,30 @@
 <Super>APPS.VisiDot.Afhandelaar</Super>
 <ClassDefinitionError>0</ClassDefinitionError>
 
+<Property name="CaptureHelper">
+<Type>APPS.VisiDot.impl.VHossCaptureHelper</Type>
+</Property>
+
 <Property name="ProcessedData">
 <Type>APPS.VisiDot.dto.CaptureInfo</Type>
 </Property>
 
 <Method name="Verwerk">
-<FormalSpec>ProcessedData:APPS.VisiDot.dto.CaptureInfo</FormalSpec>
+<FormalSpec><![CDATA[&ProcessedData:APPS.VisiDot.dto.CaptureInfo]]></FormalSpec>
 <Implementation><![CDATA[
 	
 	Set ..ProcessedData = ProcessedData
+	Set ..CaptureHelper = ##class(APPS.VisiDot.impl.VHossCaptureHelper).%New(..ProcessedData,##class(APPS.VisiDot.impl.VHossProductionHelper).%New())
 	
-	Do ..RecepteerProducten()
+	Do ..RecepteerVHoss()
 	Do ..KopieerFotos()
-	Do ..KopieerVerpakkingsDocument(ProcessedData)
+	Do ..KopieerVerpakkingsDocument(..ProcessedData)
 	
-	Set CaptureHelper = ##class(APPS.VisiDot.impl.VHossCaptureHelper).%New(ProcessedData)
-	Set VHossSequentie = CaptureHelper.GeefVHossSequentie()
+	
+	Set VHossSequentie = ..CaptureHelper.GeefVHossSequentie()
 	Set BestandNaam = VHossSequentie_"_CaptureInfo_OUT_"_$tr($h,",")_".xml"
 	Do ..BewaarData(ProcessedData,BestandNaam)
+	Set ProcessedData = ..CaptureHelper.GeefData()
 ]]></Implementation>
 </Method>
 
@@ -31,9 +37,9 @@
 <FormalSpec>ProcessedData:APPS.VisiDot.dto.CaptureInfo</FormalSpec>
 <ReturnType>%String</ReturnType>
 <Implementation><![CDATA[
-	Set CaptureHelper = ##class(APPS.VisiDot.impl.VHossCaptureHelper).%New(ProcessedData)
+	Set CaptureHelper = ##class(APPS.VisiDot.impl.VHossCaptureHelper).%New(ProcessedData,##class(APPS.VisiDot.impl.VHossProductionHelper).%New())
 	Set BatchID = CaptureHelper.GeefBatchID()
-	
+
 	Set DoelLocatie = ##class(TECH.Config.ConfigMgr).Instance().GetString("APPS.VisiDot.ZijkantAfhandelaar.FileLocation")
 	Set DoelLocatie = ##class(TECH.Files).AppendFile(DoelLocatie,BatchID)
 	Quit DoelLocatie
@@ -71,47 +77,55 @@
 ]]></Implementation>
 </Method>
 
-<Method name="RecepteerProducten">
+<Method name="RecepteerVHoss">
+<Description>
+
+VHoss toekennen aan klant.
+</Description>
 <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()
-
+	Set ProductAPI = ##class(DOM.DomeinContext).Instance().GeefProductAPI()
+	Set Status = '$$$OK
+	
 	/// Enkel uitvoeren als er een batch te discoveren is.	
-	If (CaptureHelper.GeefBatchID()){
+	If (..CaptureHelper.GeefBatchID()){
 		Set ProductionHelper = ##class(APPS.VisiDot.impl.VHossProductionHelper).%New()
 		
-		Set FrameDetectionHelper = CaptureHelper.GeefFrameDetectionHelper()
-		Set FrameID = FrameDetectionHelper.GeefID()
+		Set FrameDetectionHelper = ..CaptureHelper.GeefFrameDetectionHelper()
+		Set FrameID = FrameDetectionHelper.GeefID()			
+		Set BatchID = ..CaptureHelper.GeefBatchID()
+		Set Batch = BatchService.GeefBatch(BatchID)
 		
-		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()
+		If ($IsObject(Batch)){
+		
+			/// Normaal bij batch voor VHoss, maar één klant.
+			/// Maar voor zekerheid in toekomst, deze toch overlopen mocht dit naar meerdere klanten kunnen.
+			
+			Set ToeleveringIt = Batch.GeefToeleveringIterator()
+			While ToeleveringIt.HasNext()
+			{
+				Set Toelevering = ToeleveringIt.Next()
+				Set Order = Toelevering.GeefOrder()
+				Set KlantID = Order.GeefKlantNr()	
 				
-				Set QueueHelper = ProductionHelper.ZoekQueueElement(BatchID,VHossVolgNr,VHossZijkant,VHossSlotNr,ProductID)
 				
-				Set Batch = BatchService.GeefBatch(BatchID)		
+				Set VHossService = ##class(APPS.VisiDot.impl.VHossService).%New()
+				Set VHossID = FrameID
 				
-				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,!
-			}
+				/// VHoss recepteren, dit kan later (als productie flow verandert) verplaats worden, wanneer de VHOSS binnen komt in onze gebouwen
+				/// Momenteel wordt een VHoss maar op één moment ingescand. En moet dus op dat moment worden vrijgegeven van bij de vorige klant.
+				Do VHossService.RecepteerVHoss(VHossID)
+						
+				Set IsVHossGeregistreerd = VHossService.IsVHossGeregistreerd(KlantID,VHossID)				
+				If ('IsVHossGeregistreerd){
+					Do VHossService.LeenUitVHoss(KlantID, VHossID)
+				}			
+			}	
 		}
+		Set Status = $$$OK			
 	}
+	Quit Status
 ]]></Implementation>
 </Method>
 </Class>