Index: EWPAL.mac.rou
===================================================================
diff -u -r56296 -r59200
--- EWPAL.mac.rou	(.../EWPAL.mac.rou)	(revision 56296)
+++ EWPAL.mac.rou	(.../EWPAL.mac.rou)	(revision 59200)
@@ -167,7 +167,8 @@
  ..Set ORDNr=""
  ..;Verwijderen order indien order niet meer bestaat
  ..For  Set ORDNr=$O(^EWPAL("D",PRNr,PalId,ORDNr)) Quit:ORDNr=""  Do
- ...If '$D(^ORD("IP",PRNr,ORDNr)) Kill ^EWPAL("D",PRNr,PalId,ORDNr) Quit  ; Product zit niet meer in order dus order verwijderen uit EWPAL 
+ ...If '$D(^ORD("IP",PRNr,ORDNr)) && '(##class(BL.Legacy.EWPAL).ZitLadeVanSpaceTowerNogInOrder(PRNr,ORDNr))
+ .... Kill ^EWPAL("D",PRNr,PalId,ORDNr) Quit  ; Product zit niet meer in order dus order verwijderen uit EWPAL 
  ...;Nakijken of de basis OLUNr nog in het order zit
  ...Set OLUNr=""
  ...For  Set OLUNr=$O(^ORD("IP",PRNr,ORDNr,OLUNr)) Quit:OLUNr=""  Do
Index: BL/Legacy/EWPAL.cls.xml
===================================================================
diff -u -r29059 -r59200
--- BL/Legacy/EWPAL.cls.xml	(.../EWPAL.cls.xml)	(revision 29059)
+++ BL/Legacy/EWPAL.cls.xml	(.../EWPAL.cls.xml)	(revision 59200)
@@ -125,6 +125,24 @@
 	Quit AantalLijnenVanProduct
 ]]></Implementation>
 </Method>
+
+<Method name="ZitLadeVanSpaceTowerNogInOrder">
+<ClassMethod>1</ClassMethod>
+<FormalSpec>PRNr:%String,ORDNr:%String</FormalSpec>
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[
+	Set ProductTypeAPI = ##class(DOM.PM.impl.ProductTypeAPIimpl).%New()
+	#dim SpaceTowerProductIDs as %ListOfDataTypes = ProductTypeAPI.GeefSpaceTowerProductNrLijstVoorLade(PRNr)
+	Set it = ##class(TECH.ListIterator).%New(SpaceTowerProductIDs)
+	#dim Result as %Boolean = 0
+	While it.HasNext() & (Result = 0) {
+		Set:($D(^ORD("IP",it.Next(),ORDNr))) Result = 1 
+	}
+	
+	Do ##class(Tools.Wlip).%New(207).String("whooooooooohoooooo " _Result)
+	Quit Result
+]]></Implementation>
+</Method>
 </Class>