Index: EWPAL.mac.rou
===================================================================
diff -u -r60869 -r61990
--- EWPAL.mac.rou	(.../EWPAL.mac.rou)	(revision 60869)
+++ EWPAL.mac.rou	(.../EWPAL.mac.rou)	(revision 61990)
@@ -169,9 +169,12 @@
  ..;Verwijderen order indien order niet meer bestaat
  ..For  Set ORDNr=$O(^EWPAL("D",PRNr,PalId,ORDNr)) Quit:ORDNr=""  Do
  ...Set NogDeelVanSpaceTowerOrder=##class(BL.Legacy.EWPAL).ZitLadeVanSpaceTowerNogInOrder(PRNr,ORDNr)
- ...If $$$Not(NogDeelVanSpaceTowerOrder)
+ ...If NogDeelVanSpaceTowerOrder
+ ....;opkuis verhinderd
+ ...Else
  ....If '$D(^ORD("IP",PRNr,ORDNr))
- ..... Kill ^EWPAL("D",PRNr,PalId,ORDNr) Quit  ; Product zit niet meer in order dus order verwijderen uit EWPAL 
+ ..... Kill ^EWPAL("D",PRNr,PalId,ORDNr)  ; Product zit niet meer in order dus order verwijderen uit EWPAL 
+ ..... Quit ; volgende van iteratie for lus van $O(^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 -r59214 -r61990
--- BL/Legacy/EWPAL.cls.xml	(.../EWPAL.cls.xml)	(revision 59214)
+++ BL/Legacy/EWPAL.cls.xml	(.../EWPAL.cls.xml)	(revision 61990)
@@ -131,12 +131,17 @@
 <FormalSpec>PRNr:%String,ORDNr:%String</FormalSpec>
 <ReturnType>%Boolean</ReturnType>
 <Implementation><![CDATA[
+	Do ##class(vhLib.Logger).%New().Info("EWPAL Opkuis Nachtelijke stockcontrole","Check Lade "_PRNr_" en order" _ ORDNr)
 	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 
+		#dim SpaceTowerPRNr as %String = it.Next()
+		If ($D(^ORD("IP",SpaceTowerPRNr,ORDNr))){
+			Set Result = 1 
+			Do ##class(vhLib.Logger).%New().Info("EWPAL Opkuis Nachtelijke stockcontrole","Lade "_PRNr_" zit nog in spacetower " _ SpaceTowerPRNr _" van order " _ ORDNr)
+		}
 	}
 	Quit Result
 ]]></Implementation>