Index: APPS/VisiDot/impl/VHossService.cls.xml
===================================================================
diff -u -r2783 -r2786
--- APPS/VisiDot/impl/VHossService.cls.xml	(.../VHossService.cls.xml)	(revision 2783)
+++ APPS/VisiDot/impl/VHossService.cls.xml	(.../VHossService.cls.xml)	(revision 2786)
@@ -40,6 +40,10 @@
 </Method>
 
 <Method name="RecepteerVHoss">
+<Description>
+- VHoss in HistPak toevoegen
+- VHoss loskoppelen van klant
+- PalletID van de VHoss uit de Inventory halen van EWMS databank</Description>
 <FormalSpec>VHossID:%String</FormalSpec>
 <Implementation><![CDATA[
 		Set ID = ""
@@ -58,6 +62,7 @@
 			
 			Set AantalVHossen = 1
 			Do ..VulAanHistPak(KlantID, VHossID, AantalVHossen)
+			Do ..VerwijderVHossUitInventory(VHossID)
 			
 			Do ##class(APPS.VisiDot.data.VHossUitlening).DeleteId(ID)
 		}
@@ -85,5 +90,14 @@
 	Set ^HISTPAK("D",KlantID,..#VHossProductID,"H",$h_","_HistPakBeweging) = Saldo_"\"_AantalVHossen_"\F\"_HistPakBeweging_"\\VHoss "_FrameID_"\"
 ]]></Implementation>
 </Method>
+
+<Method name="VerwijderVHossUitInventory">
+<FormalSpec>VHossID:%String</FormalSpec>
+<Implementation><![CDATA[
+	Set ProductionHelper = ##class(APPS.VisiDot.impl.VHossProductionHelper).%New()
+	Set PalletID = ProductionHelper.GeefPalletIDVanVHossID(VHossID)	
+	Do ##class(EWMS.Inventory).RemoveInventoryViaPalletID(PalletID)
+]]></Implementation>
+</Method>
 </Class>
 </Export>