Index: BLPRGEG.mac.rou
===================================================================
diff -u -r734 -r880
--- BLPRGEG.mac.rou	(.../BLPRGEG.mac.rou)	(revision 734)
+++ BLPRGEG.mac.rou	(.../BLPRGEG.mac.rou)	(revision 880)
@@ -1,4 +1,5 @@
 BLPRGEG ; BLUM produktgegevens ;BLPRGEG; [ 09/24/2002  12:36 PM ]
+#Include BL.Derde.KlantSpecifiek
  G BEGIN
  ;
 T1 ;*** I'm thinking ***
@@ -119,6 +120,21 @@
  S SW5=0
  Q
  ;
+ 
+DOKlant(KLNr)
+	Quit:KLNr=$$$KlantBruynzeel "044260"
+	Quit:KLNr=$$$KlantKeller "300260"
+	Quit ""
+ 
+DOPrijs(KLNr,PRNr)
+	Set BLID=$$GetBlumID^BLPROD(PRNr)
+	Quit:BLID="" ""
+	Set BLKLNr=$$DOKlant(KLNr)
+	Quit:BLKLNr="" ""
+	Set Prijs=$$PRIJS(BLID,,BLKLNr) 
+	Quit Prijs
+ 
+ 
 BLPRIJS(PRNr,DefBLKLNr)
  New BLKLNr,BLID,KLNr,IDNr
  Set BLKLNr=$G(DefBLKLNr)
@@ -148,10 +164,14 @@
 ExtraKortingDefault(BLKLNr)
 	Quit:BLKLNr="" ""
 	Quit $P($G(^BLProd("R",BLKLNr)),"\",5)	
+	
+DefaultRabat(BLKLNr)
+	Quit:BLKLNr="" ""
+	Quit $P($G(^BLProd("R",BLKLNr)),"\",1)	
  
 PRIJS(BlumID,BPrijs,BLKLNr,ZonderES) 
  // B-prijs is niet meer gebruikt
- New R,PRIJS,BNP,IC
+ New R,PRIJS,BNP,IC,KLNr
  If '$D(BLDefJr) Set BLDefJr=1
  Set R=$G(^BLProd("D",BlumID))
  Quit:R="" R
@@ -284,9 +304,12 @@
 KLANT Set DL(1)="BLKLANT"
  G KLANT3:VTB=U4&$D(List)
  New PRNr Set PRNr=ID
-KLANT2 Set KLNr="",Cnt=0
+KLANT2 
+ New KLNr
+ Set KLNr="",Cnt=0
  Kill List
  For  Set KLNr=$O(^BLProd("R",KLNr)) Quit:KLNr=""  Do:KLNr'=271250
+ .Quit:'$D(^BLProd("RP",KLNr,BLID))&&('$$DefaultRabat(KLNr))
  .Set Prijs=$$PRIJS(BLID,"",KLNr)
  .Quit:Prijs=""
  .Set Cnt=Cnt+1