Index: EWPAL.mac.rou
===================================================================
diff -u -r59200 -r60869
--- EWPAL.mac.rou	(.../EWPAL.mac.rou)	(revision 59200)
+++ EWPAL.mac.rou	(.../EWPAL.mac.rou)	(revision 60869)
@@ -4,6 +4,7 @@
  #Include %occInclude
  #Include Prod.Product
  #include BL.Derde.LevSpecifiek
+ #Include vhLib.Macro
  ;
 CHANGE(PRLijst) ; Vervangen van oud product met nieuw product
  ; Via .Local doorgeven PRLijst(VanPRNr)=NaarPRNr
@@ -167,15 +168,17 @@
  ..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)) && '(##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
- ....Set TestOLU(OLUNr\10*10)="" ; Basis OLUNr = zonder backorder info
- ...Set OLUNr=""
- ...For  Set OLUNr=$O(^EWPAL("D",PRNr,PalId,ORDNr,OLUNr)) Quit:OLUNr=""  Do
- ...If OLUNr Kill:'$D(TestOLU(OLUNr)) ^EWPAL("D",PRNr,PalId,ORDNr,OLUNr)
+ ...Set NogDeelVanSpaceTowerOrder=##class(BL.Legacy.EWPAL).ZitLadeVanSpaceTowerNogInOrder(PRNr,ORDNr)
+ ...If $$$Not(NogDeelVanSpaceTowerOrder)
+ ....If '$D(^ORD("IP",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
+ .....Set TestOLU(OLUNr\10*10)="" ; Basis OLUNr = zonder backorder info
+ ....Set OLUNr=""
+ ....For  Set OLUNr=$O(^EWPAL("D",PRNr,PalId,ORDNr,OLUNr)) Quit:OLUNr=""  Do
+ ....If OLUNr Kill:'$D(TestOLU(OLUNr)) ^EWPAL("D",PRNr,PalId,ORDNr,OLUNr)
  ..Set R=^EWPAL("D",PRNr,PalId),$P(R,D,10)="",^EWPAL("D",PRNr,PalId)=R
  .If $D(^EWPAL("D",PRNr)),StockSum,StockSum'=($P(^KPR(PRNr,0),D,14)-$$CORR^EWPAL2(PRNr)) Do DIFFQTY(PRNr,StockSum,$P(^KPR(PRNr,0),D,14)-$$CORR^EWPAL2(PRNr))
  ; Voor alle producten die niet in EWPAL zitten is de stock=0