Index: PRBSC.mac.rou
===================================================================
diff -u -r29059 -r44546
--- PRBSC.mac.rou	(.../PRBSC.mac.rou)	(revision 29059)
+++ PRBSC.mac.rou	(.../PRBSC.mac.rou)	(revision 44546)
@@ -89,6 +89,27 @@
  . . Do DISPMSG(MPRNr,$S(Ask="":"NO",1:$G(Result)),1)
  . . Write " gekocht door:",$O(^KSTPR(MPRNr,0))
  .. Do UNLOCK^PRBS(MPRNr)
+ . Set MPRNr=""
+ . For  Set MPRNr=$O(^PRBS("IPS",KPRNr,MPRNr)) Quit:MPRNr=""  Do
+ . . If '$$CheckChange(MPRNr,KPRNr) Quit
+ . . If $L($G(LimKleur)) Quit:$E($P(^KPR(MPRNr,0),D),24,25)'=LimKleur
+ . . If ($G(LimKLNr)) Quit:'$$IsVanKlant(MPRNr,LimKLNr)
+ . . Do LOCK^PRBS(MPRNr,"NX") ; changes NoMod
+ . . If NoMod Quit
+ . . Do FETCH^PRBS(MPRNr,"S")
+ . . Set BSCode=""
+ . . For  Set BSCode=$O(^PRBS("IPS",KPRNr,MPRNr,BSCode)) Quit:BSCode=""  Do
+ . . . Set BSRec=^HULP(%J,"C",BSCode)
+ . . . Set $P(BSRec,D,1)=PRLijst(KPRNr) ; wijzigen product
+ . . . Set ^HULP(%J,"C",BSCode)=BSRec
+ . . Do SAVE^PRBS(MPRNr,"S")
+ . . Set Result=""
+ . . If Ask'="" Do
+ . . . Set:Ask="V" Result=$$CONTROLE(MPRNr,,"S")
+ . . . Set:Ask'="V" Result=$$CONTROLE(MPRNr,Ask,"S")
+ . . Do DISPMSG(MPRNr,$S(Ask="":"NO",1:$G(Result)),1)
+ . . Write " gekocht door:",$O(^KSTPR(MPRNr,0))
+ .. Do UNLOCK^PRBS(MPRNr)
  Read !,"Einde (Druk op ENTER)",K
  Quit