Index: BLPUTZ.mac.rou
===================================================================
diff -u -r734 -r2311
--- BLPUTZ.mac.rou	(.../BLPUTZ.mac.rou)	(revision 734)
+++ BLPUTZ.mac.rou	(.../BLPUTZ.mac.rou)	(revision 2311)
@@ -249,13 +249,22 @@
  Quit
  
 LNIEUW  
- New Index,Data,LijnNr,BLID
+ New Index,Data,LijnNr,BLID,VHPRNr,KundenStamm
  Set Index="",Data=""
  Set BLID=$$SELECT^BLPROD("","","",1)
  Quit:$L(BLID)'=8
  Set LijnNr="" ; Nakijken of Identnr reeds gebruikt
  For  Set LijnNr=$O(^HULP(%J,NoSa,LijnNr)) Quit:LijnNr=""  Quit:BLID=$P(^HULP(%J,NoSa,LijnNr),D,2)
  If LijnNr Do TXTL^vhINP("BLPUTZ","DUBBEL") Quit
+ Set VHPRNr=$$GETVH^BLPROD(BLID)
+ Set KundenStamm=$$GeefKuSta^PRODUKT5(VHPRNr)
+ If $L(KundenStamm),(D_KundenStamm_D)'[(D_BLKLNr_D) Do  Quit
+ . New Warn
+ . Set FP=2201
+ . Write @F,@F1
+ . Set Warn="Het product "_$P(^KPR(VHPRNr,2),D,25)_" - "_$P(^KPR(VHPRNr,0),D)_"~is gepind aan BLUM klant "_$P(KundenStamm,D)_" "_$P(^BLBeri("K",$P(KundenStamm,D)),D),KundenStamm=$P(KundenStamm,D,2,9)
+ . For  Quit:KundenStamm=""  Set Warn=Warn_"~"_$J("",26)_$P(KundenStamm,D)_" "_$P(^BLBeri("K",$P(KundenStamm,D)),D),KundenStamm=$P(KundenStamm,D,2,9)
+ . Do WARN^vhTXTPOP(Warn,"")
  Set $P(Index,D,2)=BLID
  Set $P(Index,D,3)=$$GETVH^BLPROD($P(Index,D,2),BLKLNr)
  Set $P(Index,D,1)=BLKLNr