Index: vhUnitTest/APPS/VisiDot/TestVHossCases.cls.xml
===================================================================
diff -u -r2572 -r2783
--- vhUnitTest/APPS/VisiDot/TestVHossCases.cls.xml	(.../TestVHossCases.cls.xml)	(revision 2572)
+++ vhUnitTest/APPS/VisiDot/TestVHossCases.cls.xml	(.../TestVHossCases.cls.xml)	(revision 2783)
@@ -2,7 +2,7 @@
 <Export generator="Cache" version="9">
 <Class name="vhUnitTest.APPS.VisiDot.TestVHossCases">
 <Description>
-do ##class(vhUnitTest.Manager).RunTest("/debug/display=all","APPS.VisiDot")</Description>
+do ##class(vhUnitTest.Manager).RunTest("/debug/display=all","APPS.VisiDot.TestVHossCases")</Description>
 <ProcedureBlock>1</ProcedureBlock>
 <Super>vhUnitTest.APPS.VisiDot.VHossTestCase</Super>
 <ClassDefinitionError>0</ClassDefinitionError>
@@ -11,6 +11,20 @@
 <Type>vhUnitTest.APPS.VisiDot.impl.BuildVHossCapture</Type>
 </Property>
 
+<Property name="ToeleveringID">
+<Type>%Integer</Type>
+</Property>
+
+<Parameter name="OrderID">
+<Type>%String</Type>
+<Default>9999999</Default>
+</Parameter>
+
+<Parameter name="KLNr">
+<Type>%String</Type>
+<Default>1239</Default>
+</Parameter>
+
 <Method name="OnBeforeOneTest">
 <Description>
 Opzetten van de VHossBuilder</Description>
@@ -19,23 +33,41 @@
 <Implementation><![CDATA[
 	Set QueueBuilder = ##class(vhUnitTest.APPS.VisiDot.impl.BuildQueue).%New()
 	
-	Set BatchID=99999
 	Set SlotLabel=0
-	Set KLNr=1239
 	Set SequenceNr=0
 	
 	/// QueueList : item1\item2\item3 
 	/// met volgende inhoud : PRNr,Aantal,VHossID	/// 
 	Set QueueList = "418581;3;1.1\418582;2;1.1\418588;4;1.1\418589;4;1.1\418609;5;1.1\418703;2;1.1\418704;1;1.1\418715;4;1.1\"
 	Set QueueList = QueueList _"427384;5;2.1\427390;20;2.1\427394;1;2.1\427470;14;2.2\427478;2;2.2\460765;2;2.2"
 	
+	/// Order opzetten
+	Set ^KOD(..#KLNr,"F",..#OrderID,0)="313"
+	Set ^KOD(..#KLNr,"F",..#OrderID,1)="\03.11.11\EDI 305452/TBX\\\1239\OD5;1`OD5;2`OD5;3`OD5;4`OD5;5\1055#1100#62398,31366\\\\\\1\\\\EUR\\\00\2\\1055#62398,31378#116943\\\\\\\\\vh1  45 /d 4\\305452\\\\\\\\\\62398,31378"
+ 	Set ^KOD(..#KLNr,"F",..#OrderID,2)="\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\"
+	Set ^KOD(..#KLNr,"F",..#OrderID,3)="1\KELLER\KEUKENFABRIEK\B.V.\ETTENSEWEG 74\NL-4706-PB\ROOSENDAAL\1147\N\\\\\\\\\\.\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\"
+	Set ^KOD(..#KLNr,"F",..#OrderID,4)="213"
+	Set ^KOD(..#KLNr,"F",..#OrderID,101)="703100 \418689\2\\\19.51\40#1\0\39.02\39.02\703100 \L\\\100\39.02\KF0\\\\E1\EUR\\\62402\\235601\101\\\\\\\1.0.0\1\SBMKWU120\62398,31454\\62402\\\\\45 48901 4 UKEL 120         L\0\\RCLD;11316"
+	Set ^KOD(..#KLNr,"F",..#OrderID,102)="703100 \418754\1\\\25.04\40#1\0\25.04\25.04\703100 \L\\\110\25.04\KF0\\\\E1\EUR\\\62402\\235601\102\\\\\\\2.0.0\1\SBMLBW120\62398,31454\\62402\\\\\45 48901 4 UKEL 120         L\0\\RCLD;5658"
+	
+	Set ^KO1(..#OrderID,"F") = "1239\Leveringsnummer"
+	Set ^KO1(..#OrderID,"F","Leveringsnummer") = ""
+	
 	/// Toelevering opzetten
 	Set ToeleveringAPI = ##class(DOM.DomeinContext).Instance().GeefToeleveringAPI()
 	Set LeverancierID = ToeleveringAPI.GeefLeverancierHalux().GeefNummer()
-	Set ToeleveringID = ##class(vhUnitTest.APPS.common.Toelevering).MaakToelevering(LeverancierID,QueueList)
+	Set ..ToeleveringID = ##class(vhUnitTest.APPS.common.Toelevering).MaakToelevering(LeverancierID,QueueList, ..#OrderID)
+		
+	/// Batch opzetten
+	Set BatchService = ##class(APPS.Halux.common.BatchService).%New()
+	Set Batch = BatchService.GeefNieuweBatch()
+	Set Toelevering = ToeleveringAPI.GeefToelevering(..ToeleveringID)
+	Do Batch.VoegToeToelevering(Toelevering)
+	Do Batch.%Save()
+	Set BatchID = Batch.GeefBatchID()	
 	
 	/// Queue opzetten
-	Do QueueBuilder.Initialize(BatchID,SlotLabel,ToeleveringID,KLNr,SequenceNr,QueueList)
+	Do QueueBuilder.Initialize(BatchID,SlotLabel,..ToeleveringID,..#KLNr,SequenceNr,QueueList)
 	Set BatchID=QueueBuilder.BuildBatch()
 	Set ..VHossBuilder = ##class(vhUnitTest.APPS.VisiDot.impl.BuildVHossCapture).%New(BatchID)
 	Set ..WebService = ##class(WS.VisiDot.OperatorServer).%New()
@@ -47,19 +79,19 @@
 <FormalSpec>aTestName:%String</FormalSpec>
 <ReturnType>%Status</ReturnType>
 <Implementation><![CDATA[
+	//// Als hier een break gezet wordt kan je volgende globals nakijken
+	//// ^UPRCP("B","TB",
+	//// ^KTO(6332,..ToeleveringID
+	//// ^TO(,,..ToeleveringID
+		
+	Do ##class(vhUnitTest.APPS.common.Toelevering).VerwijderToelevering(..ToeleveringID)
 	k ^UPRCP("B","TB")
+	k ^KOD(1239,"F",..#OrderID)
+	k ^KO1(..#OrderID)
 	Quit ##super()
 ]]></Implementation>
 </Method>
 
-<Method name="OnAfterAllTests">
-<ReturnType>%Status</ReturnType>
-<Implementation><![CDATA[
-	k ^KTO(10)
- 	Quit ##super()
-]]></Implementation>
-</Method>
-
 <Method name="TestZijkantCorrect">
 <Implementation><![CDATA[
 	Set Capture=..VHossBuilder.CorrectVHoss(1,1)
Index: APPS/VisiDot/impl/VHossService.cls.xml
===================================================================
diff -u
--- APPS/VisiDot/impl/VHossService.cls.xml	(revision 0)
+++ APPS/VisiDot/impl/VHossService.cls.xml	(revision 2783)
@@ -0,0 +1,89 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="9">
+<Class name="APPS.VisiDot.impl.VHossService">
+<ProcedureBlock>1</ProcedureBlock>
+<Super>APPS.VisiDot.IVHossService,%RegisteredObject</Super>
+<ClassDefinitionError>0</ClassDefinitionError>
+
+<Parameter name="VHossProductID">
+<Type>%String</Type>
+<Default>709565</Default>
+</Parameter>
+
+<Method name="IsVHossGeregistreerd">
+<FormalSpec>KlantID:%Integer,VHossID:%String</FormalSpec>
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[
+		Set IsVHossGeregistreerd = 0
+		Set ResultSet = ##class(%ResultSet).%New()
+		Do ResultSet.Prepare("select ID from APPS_VisiDot_data.VHossUitlening WHERE KlantID = ? AND VHossID = ?")
+		Set Status = ResultSet.Execute(KlantID, VHossID)
+		While (ResultSet.Next())
+		{
+			Set ID = ResultSet.Data("ID")
+			Set IsVHossGeregistreerd = 1
+		}
+		Quit IsVHossGeregistreerd
+]]></Implementation>
+</Method>
+
+<Method name="LeenUitVHoss">
+<Description>
+Leen Vhoss Uit, indien faalt wordt error gethrowed.</Description>
+<FormalSpec>KlantID:%Integer,VHossID:%String</FormalSpec>
+<Implementation><![CDATA[
+		Set VHossUitlening = ##class(APPS.VisiDot.data.VHossUitlening).%New(KlantID,VHossID)
+		Do VHossUitlening.Save()
+		Set AantalVHossen = -1
+		Do ..VulAanHistPak(KlantID, VHossID, AantalVHossen)
+]]></Implementation>
+</Method>
+
+<Method name="RecepteerVHoss">
+<FormalSpec>VHossID:%String</FormalSpec>
+<Implementation><![CDATA[
+		Set ID = ""
+		Set KlantID = ""
+		
+		/// Wildcard instellen voor VHossID
+		Set QueryVHossID = VHossID
+		Set $EXTRACT(QueryVHossID,3)="_"
+		
+		Set ResultSet = ##class(%ResultSet).%New()
+		Do ResultSet.Prepare("SELECT ID, KlantID FROM APPS_VisiDot_data.VHossUitlening WHERE VHossID LIKE ? ")
+		Do ResultSet.Execute(QueryVHossID)	
+		If (ResultSet.Next()){
+			Set ID = ResultSet.Data("ID")
+			Set KlantID = ResultSet.Data("KlantID")
+			
+			Set AantalVHossen = 1
+			Do ..VulAanHistPak(KlantID, VHossID, AantalVHossen)
+			
+			Do ##class(APPS.VisiDot.data.VHossUitlening).DeleteId(ID)
+		}
+]]></Implementation>
+</Method>
+
+<Method name="VulAanHistPak">
+<Description><![CDATA[
+Te raadplegen via Admin menu Klanten (1.3) (vb keller : 1239)
+Via F11 -> Orders -> Recupereerbare Verpakking
+Afdalen tot VHoss, dan op 'H' duwen voor Historiek]]></Description>
+<FormalSpec>KlantID:%Integer,FrameID:%String,AantalVHossen:%Integer</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	Set Saldo = 0
+	If ($Data(^HISTPAK("D",KlantID,..#VHossProductID))) {
+		Set Saldo = $P(^HISTPAK("D",KlantID,..#VHossProductID),"\",1)
+	}
+	Set Saldo = Saldo + AantalVHossen
+	
+	Set HistPakBeweging = ##class(APPS.VisiDot.enu.HistPakBeweging).Inkomend()
+	If (AantalVHossen < 0) Set HistPakBeweging = ##class(APPS.VisiDot.enu.HistPakBeweging).Uitgaand()
+	
+	Set ^HISTPAK("D",KlantID,..#VHossProductID) = Saldo_"\"_$h	
+	Set ^HISTPAK("D",KlantID,..#VHossProductID,"H",$h_","_HistPakBeweging) = Saldo_"\"_AantalVHossen_"\F\"_HistPakBeweging_"\\VHoss "_FrameID_"\"
+]]></Implementation>
+</Method>
+</Class>
+</Export>
FishEye: Tag 2783 refers to a dead (removed) revision in file `vhUnitTest/APPS/VisiDot/TestVHoss.cls.xml'.
FishEye: No comparison available.  Pass `N' to diff?
Index: APPS/VisiDot/enu/HistPakBeweging.cls.xml
===================================================================
diff -u
--- APPS/VisiDot/enu/HistPakBeweging.cls.xml	(revision 0)
+++ APPS/VisiDot/enu/HistPakBeweging.cls.xml	(revision 2783)
@@ -0,0 +1,31 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="9">
+<Class name="APPS.VisiDot.enu.HistPakBeweging">
+<ClassType>datatype</ClassType>
+<ProcedureBlock>1</ProcedureBlock>
+<Super>%String</Super>
+<ClassDefinitionError>0</ClassDefinitionError>
+
+<Parameter name="VALUELIST">
+<Default>,I,U</Default>
+</Parameter>
+
+<Parameter name="DISPLAYLIST">
+<Default>;Inkomend;Uitgaand</Default>
+</Parameter>
+
+<Method name="Inkomend">
+<ClassMethod>1</ClassMethod>
+<CodeMode>expression</CodeMode>
+<Implementation><![CDATA["I"
+]]></Implementation>
+</Method>
+
+<Method name="Uitgaand">
+<ClassMethod>1</ClassMethod>
+<CodeMode>expression</CodeMode>
+<Implementation><![CDATA["U"
+]]></Implementation>
+</Method>
+</Class>
+</Export>
Index: vhUnitTest/APPS/common/Toelevering.cls.xml
===================================================================
diff -u -r2686 -r2783
--- vhUnitTest/APPS/common/Toelevering.cls.xml	(.../Toelevering.cls.xml)	(revision 2686)
+++ vhUnitTest/APPS/common/Toelevering.cls.xml	(.../Toelevering.cls.xml)	(revision 2783)
@@ -17,7 +17,7 @@
 Return : ToeleveringID
 </Description>
 <ClassMethod>1</ClassMethod>
-<FormalSpec>LeverancierID:%Integer,ProductLijst:%String</FormalSpec>
+<FormalSpec>LeverancierID:%Integer,ProductLijst:%String,OrderID:%String=""</FormalSpec>
 <ReturnType>%Integer</ReturnType>
 <Implementation><![CDATA[
 	/// Waarden opzetten om oude routines te kunnen gebruiken.
@@ -31,7 +31,7 @@
 	Set Datum = ##class(TECH.DateTime).GeefDatumInPuntNotatie(CreatieDatum)
 	
 	/// Hoofding voor Toelevering aanmaken	
-	Set ^KTO(LeverancierID,ToeleveringID,1)="\"_Datum_"\STOCK\\\"_ToeleveringID_"\\\\\\\\\\\\EUR\\\\\\\\"
+	Set ^KTO(LeverancierID,ToeleveringID,1)="\"_Datum_"\STOCK\\\"_ToeleveringID_"\"_OrderID_"\\\\\\\\\\\EUR\\\\\\\\"
 	
 	/// Producten toevoegen aan toelevering 
 	Set LijnNr = 101	
@@ -57,7 +57,7 @@
 	/// Index
 	Set ^KTO1(ToeleveringID)= LeverancierID_"\"
 	
-	;w "Toelevering aangemaakt met ID : "_ToeleveringID,!
+	D WLIP^vhDBG(127,"Toelevering aangemaakt met ID : "_ToeleveringID)
 	Quit ToeleveringID
 ]]></Implementation>
 </Method>
Index: APPS/VisiDot/IVHossService.cls.xml
===================================================================
diff -u
--- APPS/VisiDot/IVHossService.cls.xml	(revision 0)
+++ APPS/VisiDot/IVHossService.cls.xml	(revision 2783)
@@ -0,0 +1,24 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="9">
+<Class name="APPS.VisiDot.IVHossService">
+<Abstract>1</Abstract>
+<ProcedureBlock>1</ProcedureBlock>
+<ClassDefinitionError>0</ClassDefinitionError>
+
+<Method name="IsVHossGeregistreerd">
+<Abstract>1</Abstract>
+<FormalSpec>KlantID:%Integer,VHossID:%String</FormalSpec>
+<ReturnType>%Boolean</ReturnType>
+</Method>
+
+<Method name="LeenUitVHoss">
+<Abstract>1</Abstract>
+<FormalSpec>KlantID:%Integer,VHossID:%String</FormalSpec>
+</Method>
+
+<Method name="RecepteerVHoss">
+<Abstract>1</Abstract>
+<FormalSpec>VHossID:%String</FormalSpec>
+</Method>
+</Class>
+</Export>
Index: APPS/VisiDot/impl/VHossControleurZijkant.cls.xml
===================================================================
diff -u -r2571 -r2783
--- APPS/VisiDot/impl/VHossControleurZijkant.cls.xml	(.../VHossControleurZijkant.cls.xml)	(revision 2571)
+++ APPS/VisiDot/impl/VHossControleurZijkant.cls.xml	(.../VHossControleurZijkant.cls.xml)	(revision 2783)
@@ -117,7 +117,7 @@
 	Set ProcessedData=..CaptureHelper.GeefData()
 	
 	Set Afhandelaar = ##class(APPS.VisiDot.impl.ZijkantAfhandelaar).%New()
-	Do Afhandelaar.Verwerk(ProcessedData)
+	Do Afhandelaar.Verwerk(.ProcessedData)
 ]]></Implementation>
 </Method>
 
Index: vhUnitTest/APPS/VisiDot/TestCaptureHelper.cls.xml
===================================================================
diff -u -r1866 -r2783
--- vhUnitTest/APPS/VisiDot/TestCaptureHelper.cls.xml	(.../TestCaptureHelper.cls.xml)	(revision 1866)
+++ vhUnitTest/APPS/VisiDot/TestCaptureHelper.cls.xml	(.../TestCaptureHelper.cls.xml)	(revision 2783)
@@ -11,6 +11,10 @@
 <Type>APPS.VisiDot.impl.VHossCaptureHelper</Type>
 </Property>
 
+<Property name="ToeleveringID">
+<Type>%Integer</Type>
+</Property>
+
 <Method name="OnBeforeOneTest">
 <Description>
 Opzetten van de VHossBuilder</Description>
@@ -27,7 +31,12 @@
 	Set QueueList = "418581;3;1.1\418582;2;1.1\418588;4;1.1\418589;4;1.1\418609;5;1.1\418703;2;1.1\418704;1;1.1\418715;4;1.1\"
 	Set QueueList = QueueList _"427384;5;2.1\427390;20;2.1\427394;1;2.1\427470;14;2.2\427478;2;2.2\460765;2;2.2"
 	
-	Do QueueBuilder.Initialize(BatchID,SlotLabel,TOENr,KLNr,SequenceNr,QueueList)
+	/// Toelevering opzetten
+	Set ToeleveringAPI = ##class(DOM.DomeinContext).Instance().GeefToeleveringAPI()
+	Set LeverancierID = ToeleveringAPI.GeefLeverancierHalux().GeefNummer()
+	Set ..ToeleveringID = ##class(vhUnitTest.APPS.common.Toelevering).MaakToelevering(LeverancierID,QueueList)
+	
+	Do QueueBuilder.Initialize(BatchID,SlotLabel,..ToeleveringID,KLNr,SequenceNr,QueueList)
 	Set BatchID=QueueBuilder.BuildBatch()
 	Set VHossBuilder = ##class(vhUnitTest.APPS.VisiDot.impl.BuildVHossCapture).%New(BatchID)
 	Set Capture=VHossBuilder.CorrectVHoss(1,1)
@@ -37,6 +46,16 @@
 ]]></Implementation>
 </Method>
 
+<Method name="OnAfterOneTest">
+<FormalSpec>aTestName:%String</FormalSpec>
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[
+	Do ##class(vhUnitTest.APPS.common.Toelevering).VerwijderToelevering(..ToeleveringID)
+	k ^UPRCP("B","TB")
+	Quit ##super()
+]]></Implementation>
+</Method>
+
 <Method name="TestStatusLight">
 <Implementation><![CDATA[
 	
Index: vhUnitTest/APPS/VisiDot/TestVHossXML.cls.xml
===================================================================
diff -u -r2494 -r2783
--- vhUnitTest/APPS/VisiDot/TestVHossXML.cls.xml	(.../TestVHossXML.cls.xml)	(revision 2494)
+++ vhUnitTest/APPS/VisiDot/TestVHossXML.cls.xml	(.../TestVHossXML.cls.xml)	(revision 2783)
@@ -8,6 +8,20 @@
 <Super>vhUnitTest.APPS.VisiDot.VHossTestCase</Super>
 <ClassDefinitionError>0</ClassDefinitionError>
 
+<Property name="ToeleveringID">
+<Type>%Integer</Type>
+</Property>
+
+<Parameter name="OrderID">
+<Type>%String</Type>
+<Default>9999999</Default>
+</Parameter>
+
+<Parameter name="KLNr">
+<Type>%String</Type>
+<Default>1239</Default>
+</Parameter>
+
 <Method name="OnBeforeOneTest">
 <FormalSpec>aTestName:%String</FormalSpec>
 <ReturnType>%Status</ReturnType>
@@ -22,6 +36,23 @@
 	Set QueueList = QueueList_"418703;1;1.1\418589;2;1.1\418703;1;1.1\418582;1;1.1\418581;2;1.1\418582;1;1.1\418715;1;1.1\418588;1;1.1\"
 	Set QueueList = QueueList_"418589;3;1.1\418703;2;1.1\418582;1;1.1\418703;1;1.1\418704;1;1.1\418715;1;1.1\418704;1;1.1"
 	
+		/// Order opzetten
+	Set ^KOD(..#KLNr,"F",..#OrderID,0)="313"
+	Set ^KOD(..#KLNr,"F",..#OrderID,1)="\03.11.11\EDI 305452/TBX\\\1239\OD5;1`OD5;2`OD5;3`OD5;4`OD5;5\1055#1100#62398,31366\\\\\\1\\\\EUR\\\00\2\\1055#62398,31378#116943\\\\\\\\\vh1  45 /d 4\\305452\\\\\\\\\\62398,31378"
+ 	Set ^KOD(..#KLNr,"F",..#OrderID,2)="\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\"
+	Set ^KOD(..#KLNr,"F",..#OrderID,3)="1\KELLER\KEUKENFABRIEK\B.V.\ETTENSEWEG 74\NL-4706-PB\ROOSENDAAL\1147\N\\\\\\\\\\.\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\"
+	Set ^KOD(..#KLNr,"F",..#OrderID,4)="213"
+	Set ^KOD(..#KLNr,"F",..#OrderID,101)="703100 \418689\2\\\19.51\40#1\0\39.02\39.02\703100 \L\\\100\39.02\KF0\\\\E1\EUR\\\62402\\235601\101\\\\\\\1.0.0\1\SBMKWU120\62398,31454\\62402\\\\\45 48901 4 UKEL 120         L\0\\RCLD;11316"
+	Set ^KOD(..#KLNr,"F",..#OrderID,102)="703100 \418754\1\\\25.04\40#1\0\25.04\25.04\703100 \L\\\110\25.04\KF0\\\\E1\EUR\\\62402\\235601\102\\\\\\\2.0.0\1\SBMLBW120\62398,31454\\62402\\\\\45 48901 4 UKEL 120         L\0\\RCLD;5658"
+	
+	Set ^KO1(..#OrderID,"F") = "1239\Leveringsnummer"
+	Set ^KO1(..#OrderID,"F","Leveringsnummer") = ""
+	
+	/// Toelevering opzetten
+	Set ToeleveringAPI = ##class(DOM.DomeinContext).Instance().GeefToeleveringAPI()
+	Set LeverancierID = ToeleveringAPI.GeefLeverancierHalux().GeefNummer()
+	Set ..ToeleveringID = ##class(vhUnitTest.APPS.common.Toelevering).MaakToelevering(LeverancierID,QueueList, ..#OrderID)
+	
 	Do QueueBuilder.Initialize(BatchID,SlotLabel,TOENr,KLNr,SequenceNr,QueueList)
 	Set BatchID=QueueBuilder.BuildBatch()
 	
@@ -141,6 +172,19 @@
 ]]></Implementation>
 </Method>
 
+<Method name="OnAfterOneTest">
+<FormalSpec>aTestName:%String</FormalSpec>
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[
+	Do ##class(vhUnitTest.APPS.common.Toelevering).VerwijderToelevering(..ToeleveringID)
+	k ^UPRCP("B","TB")
+	k ^KOD(1239,"F",..#OrderID)
+	k ^KO1(..#OrderID)
+	
+	Quit ##super(aTestName)
+]]></Implementation>
+</Method>
+
 <Method name="TestNormalReadAllOK">
 <Implementation><![CDATA[
 	Set Dir = "Stage2_NormalRead_AllOk\"
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>
Index: vhUnitTest/APPS/VisiDot/TestVHossCaptureHelper.cls.xml
===================================================================
diff -u -r2079 -r2783
--- vhUnitTest/APPS/VisiDot/TestVHossCaptureHelper.cls.xml	(.../TestVHossCaptureHelper.cls.xml)	(revision 2079)
+++ vhUnitTest/APPS/VisiDot/TestVHossCaptureHelper.cls.xml	(.../TestVHossCaptureHelper.cls.xml)	(revision 2783)
@@ -19,6 +19,10 @@
 <Default>APPS.VisiDot.impl.VHossFrameDetectionHelper</Default>
 </Parameter>
 
+<Property name="ToeleveringID">
+<Type>%Integer</Type>
+</Property>
+
 <Method name="OnBeforeOneTest">
 <Description>
 Opzetten van de VHossBuilder</Description>
@@ -28,13 +32,17 @@
 	Set QueueBuilder = ##class(vhUnitTest.APPS.VisiDot.impl.BuildQueue).%New()	
 	Set BatchID=99999
 	Set SlotLabel=0
-	Set TOENr=234567
 	Set KLNr=1239
 	Set SequenceNr=0
 	Set QueueList = "418581;3;1.1\418582;2;1.1\418588;4;1.1\418589;4;1.1\418609;5;1.1\418703;2;1.1\418704;1;1.1\418715;4;1.1\"
 	Set QueueList = QueueList _"427384;5;2.1\427390;20;2.1\427394;1;2.1\427470;14;2.2\427478;2;2.2\460765;2;2.2"
 	
-	Do QueueBuilder.Initialize(BatchID,SlotLabel,TOENr,KLNr,SequenceNr,QueueList)
+	/// Toelevering opzetten
+	Set ToeleveringAPI = ##class(DOM.DomeinContext).Instance().GeefToeleveringAPI()
+	Set LeverancierID = ToeleveringAPI.GeefLeverancierHalux().GeefNummer()
+	Set ..ToeleveringID = ##class(vhUnitTest.APPS.common.Toelevering).MaakToelevering(LeverancierID,QueueList)
+	
+	Do QueueBuilder.Initialize(BatchID,SlotLabel,..ToeleveringID,KLNr,SequenceNr,QueueList)
 	Set BatchID=QueueBuilder.BuildBatch()
 	Set VHossBuilder = ##class(vhUnitTest.APPS.VisiDot.impl.BuildVHossCapture).%New(BatchID)
 	Set Capture=VHossBuilder.CorrectVHoss(1,1)
@@ -44,6 +52,16 @@
 ]]></Implementation>
 </Method>
 
+<Method name="OnAfterOneTest">
+<FormalSpec>aTestName:%String</FormalSpec>
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[
+	Do ##class(vhUnitTest.APPS.common.Toelevering).VerwijderToelevering(..ToeleveringID)
+	k ^UPRCP("B","TB")
+	Quit ##super()
+]]></Implementation>
+</Method>
+
 <Method name="GeefDetectie">
 <FormalSpec>DetectieNr:%Integer,CameraNr:%Integer=1</FormalSpec>
 <Private>1</Private>
Index: vhUnitTest/APPS/VisiDot/impl/TestVHossService.cls.xml
===================================================================
diff -u
--- vhUnitTest/APPS/VisiDot/impl/TestVHossService.cls.xml	(revision 0)
+++ vhUnitTest/APPS/VisiDot/impl/TestVHossService.cls.xml	(revision 2783)
@@ -0,0 +1,30 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="9">
+<Class name="vhUnitTest.APPS.VisiDot.impl.TestVHossService">
+<Description>
+Do ##class(vhUnitTest.Manager).RunTest("/debug/display=all","APPS.VisiDot.impl.TestVHossService")</Description>
+<ProcedureBlock>1</ProcedureBlock>
+<Super>vhUnitTest.TestCase</Super>
+<ClassDefinitionError>0</ClassDefinitionError>
+
+<Method name="TestFlowVHoss">
+<Implementation><![CDATA[
+		Set KlantID = 1000
+		Set VHossID = 8888
+		Set VHossService = ##class(APPS.VisiDot.impl.VHossService).%New()
+		Do VHossService.LeenUitVHoss(KlantID, VHossID)
+		
+		Set IsVHossGeregistreerd = VHossService.IsVHossGeregistreerd(KlantID,VHossID)
+		Do $$$AssertTrue(IsVHossGeregistreerd,"VHoss is correct uitgeleend aan klant.")
+		
+		Set IsAndereVHossGeregistreerd = VHossService.IsVHossGeregistreerd(KlantID,VHossID_"2")
+		Do $$$AssertFalse(IsAndereVHossGeregistreerd,"Andere VHoss is niet uitgeleend aan klant.")
+		
+		Do VHossService.RecepteerVHoss(VHossID)
+		
+		Set IsVHossGeregistreerd = VHossService.IsVHossGeregistreerd(KlantID,VHossID)
+		Do $$$AssertFalse(IsVHossGeregistreerd,"VHoss is niet meer uitgeleend aan klant.")
+]]></Implementation>
+</Method>
+</Class>
+</Export>
Index: vhUnitTest/APPS/VisiDot/TestDetectionHelper.cls.xml
===================================================================
diff -u -r1861 -r2783
--- vhUnitTest/APPS/VisiDot/TestDetectionHelper.cls.xml	(.../TestDetectionHelper.cls.xml)	(revision 1861)
+++ vhUnitTest/APPS/VisiDot/TestDetectionHelper.cls.xml	(.../TestDetectionHelper.cls.xml)	(revision 2783)
@@ -11,6 +11,10 @@
 <Type>APPS.VisiDot.impl.VHossCaptureHelper</Type>
 </Property>
 
+<Property name="ToeleveringID">
+<Type>%Integer</Type>
+</Property>
+
 <Method name="OnBeforeOneTest">
 <Description>
 Opzetten van de VHossBuilder</Description>
@@ -20,13 +24,18 @@
 	Set QueueBuilder = ##class(vhUnitTest.APPS.VisiDot.impl.BuildQueue).%New()	
 	Set BatchID=99999
 	Set SlotLabel=0
-	Set TOENr=234567
 	Set KLNr=1239
 	Set SequenceNr=0
 	Set QueueList = "418581;3;1.1\418582;2;1.1\418588;4;1.1\418589;4;1.1\418609;5;1.1\418703;2;1.1\418704;1;1.1\418715;4;1.1\"
 	Set QueueList = QueueList _"427384;5;2.1\427390;20;2.1\427394;1;2.1\427470;14;2.2\427478;2;2.2\460765;2;2.2"
 	
-	Do QueueBuilder.Initialize(BatchID,SlotLabel,TOENr,KLNr,SequenceNr,QueueList)
+	
+	/// Toelevering opzetten
+	Set ToeleveringAPI = ##class(DOM.DomeinContext).Instance().GeefToeleveringAPI()
+	Set LeverancierID = ToeleveringAPI.GeefLeverancierHalux().GeefNummer()
+	Set ..ToeleveringID = ##class(vhUnitTest.APPS.common.Toelevering).MaakToelevering(LeverancierID,QueueList)
+	
+	Do QueueBuilder.Initialize(BatchID,SlotLabel,..ToeleveringID,KLNr,SequenceNr,QueueList)
 	Set BatchID=QueueBuilder.BuildBatch()
 	Set VHossBuilder = ##class(vhUnitTest.APPS.VisiDot.impl.BuildVHossCapture).%New(BatchID)
 	Set Capture=VHossBuilder.CorrectVHoss(1,1)
@@ -36,6 +45,16 @@
 ]]></Implementation>
 </Method>
 
+<Method name="OnAfterOneTest">
+<FormalSpec>aTestName:%String</FormalSpec>
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[
+	Do ##class(vhUnitTest.APPS.common.Toelevering).VerwijderToelevering(..ToeleveringID)
+	k ^UPRCP("B","TB")
+	Quit ##super()
+]]></Implementation>
+</Method>
+
 <Method name="GeefDetectie">
 <FormalSpec>DetectieNr:%Integer,CameraNr:%Integer=1</FormalSpec>
 <Private>1</Private>
Index: vhUnitTest/APPS/VisiDot/impl/BuildQueue.cls.xml
===================================================================
diff -u -r1812 -r2783
--- vhUnitTest/APPS/VisiDot/impl/BuildQueue.cls.xml	(.../BuildQueue.cls.xml)	(revision 1812)
+++ vhUnitTest/APPS/VisiDot/impl/BuildQueue.cls.xml	(.../BuildQueue.cls.xml)	(revision 2783)
@@ -46,15 +46,15 @@
 </Property>
 
 <Method name="Initialize">
-<FormalSpec>BatchID:%Integer,SlotLabel:%Integer,TOENr:%Integer,KLNr:%Integer,SequenceNr:%Integer,QueueList:%String</FormalSpec>
+<FormalSpec>BatchID:%Integer=99999,SlotLabel:%Integer=0,TOENr:%Integer=234567,KLNr:%Integer=1239,SequenceNr:%Integer=0,QueueList:%String</FormalSpec>
 <Implementation><![CDATA[
 
-	Set ..BatchID=99999
+	Set ..BatchID=BatchID
 	Set ..VHossID=""
-	Set ..SlotLabel=0
-	Set ..TOENr=234567
-	Set ..KLNr=1239
-	Set ..SequenceNr=0
+	Set ..SlotLabel=SlotLabel
+	Set ..TOENr=TOENr
+	Set ..KLNr=KLNr
+	Set ..SequenceNr=SequenceNr
 	Set ..QueueList = QueueList
 	Do ..DeleteBatch()
 ]]></Implementation>
Index: APPS/VisiDot/data/VHossUitlening.cls.xml
===================================================================
diff -u
--- APPS/VisiDot/data/VHossUitlening.cls.xml	(revision 0)
+++ APPS/VisiDot/data/VHossUitlening.cls.xml	(revision 2783)
@@ -0,0 +1,60 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="9">
+<Class name="APPS.VisiDot.data.VHossUitlening">
+<ClassType>persistent</ClassType>
+<ProcedureBlock>1</ProcedureBlock>
+<Super>TECH.Persistent</Super>
+<ClassDefinitionError>0</ClassDefinitionError>
+
+<Property name="KlantID">
+<Type>%Integer</Type>
+</Property>
+
+<Property name="VHossID">
+<Type>%String</Type>
+</Property>
+
+<Property name="Tijdstip">
+<Type>%TimeStamp</Type>
+</Property>
+
+<Method name="%OnNew">
+<FormalSpec>KlantID:%Integer,VHossID:%String</FormalSpec>
+<Private>1</Private>
+<ProcedureBlock>1</ProcedureBlock>
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[
+	Set ..KlantID = KlantID
+	Set ..VHossID = VHossID
+	Set ..Tijdstip = ##class(TECH.DateTime).CurrentTimeStamp()
+	
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
+<Storage name="Default">
+<Type>%Library.CacheStorage</Type>
+<DataLocation>^APPS.VisiDot5EC.VHossUitleningD</DataLocation>
+<DefaultData>VHossUitleningDefaultData</DefaultData>
+<IdLocation>^APPS.VisiDot5EC.VHossUitleningD</IdLocation>
+<IndexLocation>^APPS.VisiDot5EC.VHossUitleningI</IndexLocation>
+<StreamLocation>^APPS.VisiDot5EC.VHossUitleningS</StreamLocation>
+<Data name="VHossUitleningDefaultData">
+<Structure>listnode</Structure>
+<Subscript/>
+<Value name="1">
+<Value>%%CLASSNAME</Value>
+</Value>
+<Value name="2">
+<Value>KlantID</Value>
+</Value>
+<Value name="3">
+<Value>VHossID</Value>
+</Value>
+<Value name="4">
+<Value>Tijdstip</Value>
+</Value>
+</Data>
+</Storage>
+</Class>
+</Export>
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>