Index: APPS/VisiDot/impl/VHossService.cls.xml
===================================================================
diff -u -r59232 -r59961
--- APPS/VisiDot/impl/VHossService.cls.xml	(.../VHossService.cls.xml)	(revision 59232)
+++ APPS/VisiDot/impl/VHossService.cls.xml	(.../VHossService.cls.xml)	(revision 59961)
@@ -112,8 +112,22 @@
 <Method name="VerwijderVHossUitInventory">
 <FormalSpec>VHossID:%String</FormalSpec>
 <Implementation><![CDATA[
-	#dim PalletID As %String = ##class(APPS.VisiDot.impl.Tech).GeefPalletIDVanVHossID(VHossID)	
-	Do ##class(EWMS.Inventory).RemoveInventoryViaPalletID(PalletID)
+	#dim PalletID As %String = ##class(APPS.VisiDot.impl.Tech).GeefPalletIDVanVHossID(VHossID)
+	If $$$HasLength(PalletID) {
+		Do ##class(EWMS.Inventory).RemoveInventoryViaPalletID(PalletID)
+		
+		//bijhorende locations opkuisen
+		Set ResultSet = ##class(%ResultSet).%New()
+		Do ResultSet.Prepare("delete from locations where loc_id = ? ")
+		Do ResultSet.Execute(PalletID)
+		Do ResultSet.Close()
+		
+		//bijhorende carriers opkuisen
+		Set ResultSet = ##class(%ResultSet).%New()
+		Do ResultSet.Prepare("delete from carriers where loc_id = ? ")
+		Do ResultSet.Execute(PalletID)
+		Do ResultSet.Close()
+	}
 ]]></Implementation>
 </Method>