Index: BLPROD.mac.rou
===================================================================
diff -u -r50301 -r69088
--- BLPROD.mac.rou	(.../BLPROD.mac.rou)	(revision 50301)
+++ BLPROD.mac.rou	(.../BLPROD.mac.rou)	(revision 69088)
@@ -367,7 +367,7 @@
  ; BrutoGewicht
  If (Opties["BG") Do
  . Quit:'$P(BLRec,D,9)
- . Quit:+$J($P(BLRec,D,9),0,2)=+$J($$$PRGet($$$Gewicht),0,2)
+ . Quit:'($$IsVerschilInBrutoGewichtSignificant(+$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)))
  
@@ -439,6 +439,16 @@
  
  Quit Diff
  
+IsVerschilInBrutoGewichtSignificant(BrutoGewichtVH, BrutoGewichtBlum)
+	#dim IsVerschilSignificant As %Boolean = 0
+	#dim SignificanteFactor As %Float = 0.03
+	
+	If ($ZABS((BrutoGewichtVH / BrutoGewichtBlum) - 1) > SignificanteFactor) {
+		Set IsVerschilSignificant = 1
+	}
+	
+ 	Quit IsVerschilSignificant
+ 
 Leverdagen2Week(PRNr)
 	New BLID
 	Quit:$$$PRGet($$$ScanType)="L" 1  ; overrule indien LogSteuer -> 1 week