Index: EWPAL.mac.rou
===================================================================
diff -u -r67309 -r67493
--- EWPAL.mac.rou	(.../EWPAL.mac.rou)	(revision 67309)
+++ EWPAL.mac.rou	(.../EWPAL.mac.rou)	(revision 67493)
@@ -191,7 +191,7 @@
  ; 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
+ .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)
@@ -205,7 +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
+ .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")
@@ -259,7 +259,7 @@
  New FysStock,blOBJT
  Quit:$$OPSLMAN^PRODUKT2(PRNr)
  Set blOBJT=##class(OBJTimpl.CheckObjectiveFase).%New() ; OBJT
- If ..blOBJT.VoorraadSync(PRNr, "VHBE") Quit ; OBJT : Voorraad wordt beheerd door OBJT
+ If blOBJT.VoorraadSync(PRNr, "VHBE") Quit ; OBJT : Voorraad wordt beheerd door OBJT
  Set Date=$G(Date,+$H),BronPal=$G(BronPal),User=$G(User),FysStock=$P(^KPR(PRNr,0),D,14)
  Do
  .If ModTyp#2,FysStock+AddQty'<0 Quit
@@ -269,7 +269,11 @@
  Quit
  ;
 MAILSTCK(PRNr,AddQty,Perc,From,PalId,Reden,User,MMail) ; Mail versturen als de stock aanpassing meer dan x% is
- New Tekst,MailId,Lnk
+ New Tekst,MailId,Lnk,blOBJT
+
+ Set blOBJT=##class(OBJTimpl.CheckObjectiveFase).%New() ; OBJT
+ If blOBJT.VoorraadSync(PRNr, "VHBE") Quit ; OBJT : Voorraad wordt beheerd door OBJT
+
  Set Perc=$G(Perc,-9999999) ; Default 5%
  If $S($P(^KPR(PRNr,0),D,14):$S(AddQty<0:-AddQty,1:AddQty)/$P(^KPR(PRNr,0),D,14)*100,1:100)'<Perc Do 
  .Set Tekst(1)="Stockupdate voor product "_$P(^KPR(PRNr,0),D)_" ("_PRNr_")"
@@ -473,7 +477,10 @@
  Quit
  ;
 RPLDAT(PRNr)
- New Y,Z,X,Key
+ New Y,Z,X,Key,blOBJT
+ Set blOBJT=##class(OBJTimpl.CheckObjectiveFase).%New() ; OBJT
+ If blOBJT.VoorraadSync(PRNr, "VHBE") Quit ; OBJT : Voorraad wordt beheerd door OBJT
+
  Set:'$G(PRNr) PRNr="*"
  Set Y=2,Y(1)="1`Actueel  : ",Z(1)="Actueel",X=1
  Set Y(2)="2`Huidig   : "_+$P($G(^EWPAL("D",PRNr)),";"),Z(2)=$NA(^EWPAL("D")) Set:Z(2)=GlobRef X=2
@@ -516,7 +523,8 @@
 	Quit
 
 RPLPROD(PalId,Actueel) 
- New PRNr,Y,Result,Query,Status
+ New PRNr,Y,Result,Query,Status,blOBJT
+ Set blOBJT=##class(OBJTimpl.CheckObjectiveFase).%New() ; OBJT
  Quit:'$L(PalId)
  Set Y=0
  If Actueel Do  ; Actueel
@@ -526,14 +534,16 @@
  .If $$$ISERR(Status) Do WARN^vhTXTPOP("Query werkt niet, verwittig ICT ~"_$$ParseStatus^vhLIB(Status)) Quit
  .For  Quit:'Result.Next()  Do
  .. Set PRNr=$$TRIMN^vhRtn1($G(Result.Data("ProductNr")))
+ .. Quit:blOBJT.VoorraadSync(PRNr,"VHBE") ; OBJT : Voorraad wordt beheerd door OBJT
  .. Set Y=Y+1,Y(Y)=$J($S(PRNr:$P($G(^KPR(PRNr,0)),D),1:""),25)_" | "_$$EXTNUM^vhLib.DataTypes(+Result.Data("QtyPcs"),7,".",0)
  Else  Do  ; Huidig en volgende
  .Set PRNr=""
  .For  Set PRNr=$O(@GlobRef@(PRNr)) Quit:PRNr=""  Do:$D(@GlobRef@(PRNr,PalId))
- ..Set Y=Y+1,Y(Y)=$P($G(^KPR(PRNr,0)),D)_" | "_$$EXTNUM^vhLib.DataTypes($P(@GlobRef@(PRNr,PalId),D),7,".",0)
+ .. Quit:blOBJT.VoorraadSync(PRNr,"VHBE") ; OBJT : Voorraad wordt beheerd door OBJT
+ .. Set Y=Y+1,Y(Y)=$P($G(^KPR(PRNr,0)),D)_" | "_$$EXTNUM^vhLib.DataTypes($P(@GlobRef@(PRNr,PalId),D),7,".",0)
  Set:Y Y=$$WILD^vhTXTPOP("C;C","Palet : "_PalId,"Y")
  Quit
- 
+  
 FETCH(PRNr,%J)
  New R,Rec,PalId,PalQty,OpslagPl,KreaDat,KLNr,ORDNr,OLUNr,OLNr,OLNr,OrdQty,Count
  Set PalId="",Count=0
@@ -565,14 +575,16 @@
  Quit
  ;
 FETCHACT(PRNr,%J)
- New R,Rec,Result,Query,Status,Count
+ New R,Rec,Result,Query,Status,Count, blOBJT
  Kill ^HULP(%J)
  Set Query="EWMS.Inventory:GetInvAndLocViaProd"
  Set Result=##class(%ResultSet).%New(Query)
  Set Status=Result.Execute(PRNr)
  If $$$ISERR(Status) Do WARN^vhTXTPOP("Query werkt niet, verwittig ICT ~"_$$ParseStatus^vhLib(Status)) Quit
  Set Count=0
- For  Quit:'Result.Next()  Do
+ Set blOBJT=##class(OBJTimpl.CheckObjectiveFase).%New() ; OBJT
+ 
+ For  Quit:'Result.Next()  Do:'blOBJT.VoorraadSync(PRNr,"VHBE")
  . Set Rec=Result.Data("LocID")
  . Set $P(Rec,D,2)=+Result.Data("QtyPcs")
  . Set $P(Rec,D,3)=+Result.Data("QtyRes")
@@ -646,6 +658,9 @@
  Quit
  
 DIFFQTY(PRNr,PalSum,FysSt) 
+ New blOBJT
+ Set blOBJT=##class(OBJTimpl.CheckObjectiveFase).%New() ; OBJT
+ If blOBJT.VoorraadSync(PRNr, "VHBE") Quit ; OBJT : Voorraad wordt beheerd door OBJT
  Do ERROR^EWLOG($T(DIFFQTY2))
  New Tekst,MailId,Lnk
  Set Tekst(1)="Stockcontrole voor product "_$P(^KPR(PRNr,0),D)_" ("_PRNr_")"
@@ -659,6 +674,9 @@
  Quit
  
 OPSLAGPL(PRNr,PalId,OpslagPl) 
+ New blOBJT
+ Set blOBJT=##class(OBJTimpl.CheckObjectiveFase).%New() ; OBJT
+ If blOBJT.VoorraadSync(PRNr, "VHBE") Quit ; OBJT : Voorraad wordt beheerd door OBJT
  Do ERROR^EWLOG($T(OPSLAGP2))
  If PalId["9999999" Quit  ;tijdelijk PV
  New Tekst,MailId,Lnk