Index: BLPROD.mac.rou
===================================================================
diff -u -r49113 -r50301
--- BLPROD.mac.rou	(.../BLPROD.mac.rou)	(revision 49113)
+++ BLPROD.mac.rou	(.../BLPROD.mac.rou)	(revision 50301)
@@ -258,7 +258,7 @@
 CopyBlumProd(PRNr,Opties,Value)
  New IdentNr, BLID, BLRec,Verpak
  Set Opties=$G(Opties,"BG;PQ;EAN;LT")
- Set Opties="" ; 09/01/18 PV - geen updates meer in Admin
+ Quit ; 09/01/18 PV - geen updates meer in Admin
  Quit:'$$$PRExist
  Set IdentNr=$$$PRGet($$$IdentNummer)
  Set BLID="0"_$TR($E(IdentNr,2,99),".","")
@@ -368,6 +368,7 @@
  If (Opties["BG") Do
  . Quit:'$P(BLRec,D,9)
  . Quit:+$J($P(BLRec,D,9),0,2)=+$J($$$PRGet($$$Gewicht),0,2)
+ . Set ^PVDiffBlum($H,PRNr)=$P(BLRec,D,9)_"/"_$$$PRGet($$$Gewicht)_"/"_Verschil
  . Set Diff=Diff_$LB("BG",$LB(+$J($P(BLRec,D,9),0,2),$$$PRGet($$$Gewicht)))
  
  ; PalletQty