Index: BLCSBFAKVerschillenMail.mac.rou
===================================================================
diff -u -r29059 -r38003
--- BLCSBFAKVerschillenMail.mac.rou	(.../BLCSBFAKVerschillenMail.mac.rou)	(revision 29059)
+++ BLCSBFAKVerschillenMail.mac.rou	(.../BLCSBFAKVerschillenMail.mac.rou)	(revision 38003)
@@ -31,7 +31,7 @@
 	Quit
 
 VerzamelVerschillen(LC,lbVRF) 
- New FAKNr,Cnt,VRF,FAKNr,LijnNr,PRNr,Rec,FakRec
+ New FAKNr,Cnt,VRF,FAKNr,LijnNr,PRNr,Rec,FakRec,LijnVerschil
  Set Cnt=0
  For I=1:1:$LL(lbVRF) Do
  . Set VRF=$LG(lbVRF,I)
@@ -45,10 +45,12 @@
  . . . Quit:'$L($P(Rec,"\",17))
  . . . Set PRNr=$P(Rec,"\",7)
  . . . If PRNr,$D(^KPR(PRNr)) Do
- . . . . Set Cnt=Cnt+1
- . . . . Set VerschilCode=$P(Rec,"\",17)
  . . . . Set BlumPrijs=+$J($P(Rec,"\",14)/$P(Rec,"\",12),0,2) 
  . . . . Set VHPrijs=$P(Rec,"\",22)
+ . . . . Set LijnVerschil=$S(VHPrijs>BlumPrijs:VHPrijs-BlumPrijs,1:BlumPrijs-VHPrijs)
+ . . . . quit:LijnVerschil<0.05
+ . . . . Set Cnt=Cnt+1
+ . . . . Set VerschilCode=$P(Rec,"\",17)
  . . . . Set ToeLevPrijs=$P(Rec,"\",18)
  . . . . Set ToeLevGO=$P(Rec,"\",19)
  . . . . Set ToeLevKort=$P(Rec,"\",20)
@@ -103,3 +105,4 @@
 	Set To=$LB("PM_Administratie@vanhoecke.be")
 	Set X=$$SendMiniMail^vhLib(From,To,Subject,strmBody,1,1)
 	Quit
+