Index: PRBSC.mac.rou
===================================================================
diff -u -r44546 -r44645
--- PRBSC.mac.rou	(.../PRBSC.mac.rou)	(revision 44546)
+++ PRBSC.mac.rou	(.../PRBSC.mac.rou)	(revision 44645)
@@ -88,7 +88,8 @@
  . . . Set:Ask'="V" Result=$$CONTROLE(MPRNr,Ask)
  . . Do DISPMSG(MPRNr,$S(Ask="":"NO",1:$G(Result)),1)
  . . Write " gekocht door:",$O(^KSTPR(MPRNr,0))
- .. Do UNLOCK^PRBS(MPRNr)
+ . . Do UNLOCK^PRBS(MPRNr)
+ .
  . Set MPRNr=""
  . For  Set MPRNr=$O(^PRBS("IPS",KPRNr,MPRNr)) Quit:MPRNr=""  Do
  . . If '$$CheckChange(MPRNr,KPRNr) Quit
@@ -103,13 +104,7 @@
  . . . 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)
+ . . Do UNLOCK^PRBS(MPRNr)
  Read !,"Einde (Druk op ENTER)",K
  Quit