Index: PRHF.mac.rou
===================================================================
diff -u -r29059 -r67309
--- PRHF.mac.rou	(.../PRHF.mac.rou)	(revision 29059)
+++ PRHF.mac.rou	(.../PRHF.mac.rou)	(revision 67309)
@@ -71,6 +71,8 @@
  Quit
  ;
 LogMoeder(Key,MPRNr,Rec)
+	Quit ; PV 7/3/20
+	
 	New VolgNr,PRNr
 	Set PRNr=919146
 	Quit:MPRNr'?4.9N
@@ -81,6 +83,8 @@
 	Quit
 	
 Log(Key,PRNr,Rec)
+	Quit ; PV 7/3/20
+	
 	New VolgNr
 	Quit:PRNr'=919146
 	Set VolgNr=$O(^KSPWLog(PRNr,""),-1)+1
Index: EWPAL.mac.rou
===================================================================
diff -u -r67289 -r67309
--- EWPAL.mac.rou	(.../EWPAL.mac.rou)	(revision 67289)
+++ EWPAL.mac.rou	(.../EWPAL.mac.rou)	(revision 67309)
@@ -256,8 +256,10 @@
  Quit
  ;
 ADDSTOCK(PRNr,AddQty,ModTyp,Date,Reden,BronPal,Delta,User,Actie,Magazijn)  ; Wijzigen fys. stock en historiek
- New FysStock
+ 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
  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
@@ -594,7 +596,7 @@
  . Set $P(Rec,D,15)=$G(Result.Data("AantalBew"))
  . Set Count=Count+1,^HULP(%J,Count)=Rec
  Set Result=""
- ;De vertalling moet achteraf gebeuren omdat 2 geneste SQL queries niet werken over de SQL gateway
+ ;De vertaling moet achteraf gebeuren omdat 2 geneste SQL queries niet werken over de SQL gateway
  For I=1:1:Count Do
  . Set Rec=^HULP(%J,I)
  . If ($P(Rec,D,4)=4) && ($P(Rec,D,5)=2) Do