Index: EWBON4.mac.rou
===================================================================
diff -u -r921 -r3126
--- EWBON4.mac.rou	(.../EWBON4.mac.rou)	(revision 921)
+++ EWBON4.mac.rou	(.../EWBON4.mac.rou)	(revision 3126)
@@ -99,6 +99,10 @@
  Quit DeurBon
  ;
 LEVPERF(CONSNr) 
+ Quit   
+ ; Niet meer gebruikt. 
+ ; Quit + code in commentaar gezet door WV op 23/11/2011  i.o.v. PV 
+ /* 
  New R,KLNr,ORDNr,OLUNr,OLNr,PRNr,AantWMS,Update,Krediet,LevWk,TOENr,RefDate
  Set R=^ORDW("D",CONSNr),KLNr=$P(R,D),ORDNr=""
  Set Krediet=$$KREDIET^LEVPERF(KLNr)
@@ -119,6 +123,8 @@
  ..If TOENr,LevWk>RefDate Quit
  ..Do STORE^LEVPERF(KLNr,CONSNr,ORDNr,OLNr,0,Krediet)
  Quit
+ */
+ 
  ;
  ; Automatisch beloven de eerste vijf leveringen van een nieuwe klant
 AUTOBEL(KLNr)