Index: EWORDS6.mac.rou
===================================================================
diff -u -r44469 -r46943
--- EWORDS6.mac.rou	(.../EWORDS6.mac.rou)	(revision 44469)
+++ EWORDS6.mac.rou	(.../EWORDS6.mac.rou)	(revision 46943)
@@ -300,11 +300,11 @@
  
  ; Controle rembours
 CheckRembours(ORDNr)
- New R,KLNr,CheckIsOK,Rembours,SendWMS
+ New R,KLNr,PickingMagStarten,Rembours,SendWMS
  Set R=^KO1(ORDNr,"F"),KLNr=$P(R,D)
- Set CheckIsOK='$$IsKlantVrijgesteldVanVrijgaveDoorBKH(KLNr)
- Set:'CheckIsOK R=^KKL(^KK1(KLNr),3),Rembours=$P(R,D),CheckIsOK='Rembours
- Quit CheckIsOK
+ Set R=^KKL(^KK1(KLNr),3),Rembours=$P(R,D)
+ Set PickingMagStarten = ('Rembours)
+ Quit PickingMagStarten
  
  ; Controle vooruitbetaling
 CheckVooruitBetaling(ORDNr)
@@ -787,5 +787,3 @@
  Quit
 
 
-
-