Index: EWBON4.mac.rou
===================================================================
diff -u -r29059 -r38658
--- EWBON4.mac.rou	(.../EWBON4.mac.rou)	(revision 29059)
+++ EWBON4.mac.rou	(.../EWBON4.mac.rou)	(revision 38658)
@@ -123,6 +123,8 @@
  .For  Set BONNr=$O(^KUL(KLNr,"F",BONNr)) Quit:BONNr=""  Do  Quit:AutoBel>5
  ..Set R=^KUL(KLNr,"F",BONNr,1),Date=$P(R,D,2)
  ..Set Date=$$INTDATE^vhLib.DataTypes(Date)
+ ..Do:(""=Date) ##class(vhLib.Logger).%New("EWBON4").ErrorMail("AUTOBEL", "Datum (node 1, piece 2) is leeg in bon '"_BONNr_"'. Vul die in op basis van piece 16. En vervang ook de ^KU3('0'-node door ��n met de negatieve $h-datum als eerste subscript")
+ ..Quit:(""=Date)
  ..Quit:$D(BONNr(Date))
  ..Set BONNr(Date)="",AutoBel=AutoBel+1
  Set:AutoBel>5 AutoBel=0
@@ -137,3 +139,4 @@
  ;
 
 
+