Index: EWPAL.mac.rou
===================================================================
diff -u -r65248 -r66860
--- EWPAL.mac.rou	(.../EWPAL.mac.rou)	(revision 65248)
+++ EWPAL.mac.rou	(.../EWPAL.mac.rou)	(revision 66860)
@@ -145,7 +145,10 @@
  Quit
  ;
 ENDCTRL ; Einde nachtelijke stockscan, opgeroepen door S03^EWRECR
- New R,PRNr,PalId,Passed,ORDNr,OLUNr,FysStock,ModTyp,Reden,TestOLU,StockSum,Qty,TempQty
+ New R,PRNr,PalId,Passed,ORDNr,OLUNr,FysStock,ModTyp,Reden,TestOLU,StockSum,Qty,TempQty,blOBJT
+ 
+ Set blOBJT=##class(OBJTimpl.CheckObjectiveFase).%New() ; OBJT
+
  Set PRNr=""
  For  Set PRNr=$O(^EWPAL("D",PRNr)) Quit:PRNr=""  Do
  .If $L(PRNr),$D(^KPR(PRNr))
@@ -184,9 +187,11 @@
  ....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
  Set PRNr=0,Reden="Corr WMS"
  For  Set PRNr=$O(^KPR(PRNr)) Quit:PRNr=""  Do
+ .If ..blOBJT.VoorraadSync(PRNr, "VHBE") Quit ; OBJT : Voorraad wordt beheerd door OBJT
  .Quit:$D(^EWPAL("D",PRNr))>1  Quit:$D(^PRLINK("D",PRNr))
  .Quit:$$OPSLMAN^PRODUKT2(PRNr)
  .Set R=^KPR(PRNr,0),FysStock=$P(R,D,14)
@@ -200,6 +205,7 @@
  ; Gewijzigde produkten met moeders verwerken
  Set PRNr=""
  For  Set PRNr=$O(^EWPAL("M",PRNr)) Quit:PRNr=""  Do
+ .If ..blOBJT.VoorraadSync(PRNr, "VHBE") Quit ; OBJT : Voorraad wordt beheerd door OBJT
  .Set Qty=^EWPAL("M",PRNr)
  .Do MOEDER(PRNr,Qty,Reden,.Mail,"N")
  Kill ^EWPAL("M")