Index: BLPROD.mac.rou
===================================================================
diff -u -r69088 -r69273
--- BLPROD.mac.rou	(.../BLPROD.mac.rou)	(revision 69088)
+++ BLPROD.mac.rou	(.../BLPROD.mac.rou)	(revision 69273)
@@ -394,11 +394,7 @@
  . . If 'GrootVP Set GrootVP=Verpak
  . . Else  If 'NormVP Set NormVP=Verpak
  . . Else  If 'KleinVP Set KleinVP=Verpak
- . Set Chk=0
- . Set:+$$$PRGet($$$KleinVerpakking)'=+KleinVP Chk=1
- . Set:+$$$PRGet($$$NormaleVerpakking)'=+NormVP Chk=1
- . Set:+$$$PRGet($$$GrootVerpakking)'=+GrootVP Chk=1
- . Quit:'Chk
+ . Quit:'($$IsErEenVerschilInVerpakkingHoeveelheid(KleinVP, NormVP, GrootVP))
  . Set Diff=Diff_$LB("VQ",$LB(GrootVP,$$$PRGet($$$GrootVerpakking),NormVP,$$$PRGet($$$NormaleVerpakking),KleinVP,$$$PRGet($$$KleinVerpakking)))
  . 
  ; Levertermijn
@@ -449,6 +445,19 @@
 	
  	Quit IsVerschilSignificant
  
+IsErEenVerschilInVerpakkingHoeveelheid(KleinVerpakkingVH, NormaleVerpakkingVH, GrootVerpakkingVH)
+	#dim IsErEenVerschil As %Boolean = 0
+	
+	#dim KleinVerpakkingBlum As %Integer = +$$$PRGet($$$KleinVerpakking)
+	#dim NormaleVerpakkingBlum As %Integer = +$$$PRGet($$$NormaleVerpakking)
+	#dim GrootVerpakkingBlum As %Integer = +$$$PRGet($$$GrootVerpakking)
+	
+	If '((KleinVerpakkingBlum = KleinVerpakkingVH) && (NormaleVerpakkingBlum = NormaleVerpakkingVH) && (GrootVerpakkingBlum = GrootVerpakkingVH)) {
+		Set IsErEenVerschil = 1
+	}
+	
+	Quit IsErEenVerschil
+ 
 Leverdagen2Week(PRNr)
 	New BLID
 	Quit:$$$PRGet($$$ScanType)="L" 1  ; overrule indien LogSteuer -> 1 week