Index: FLOWBON5.mac.rou
===================================================================
diff -u -r29059 -r51160
--- FLOWBON5.mac.rou	(.../FLOWBON5.mac.rou)	(revision 29059)
+++ FLOWBON5.mac.rou	(.../FLOWBON5.mac.rou)	(revision 51160)
@@ -23,6 +23,7 @@
  For  Set ULNr=$O(^KUL(KLNr,Node,BONNr,ULNr)) Quit:'ULNr  Do
  .Set R=^KUL(KLNr,Node,BONNr,ULNr) Quit:'$P(R,D,9)
  .Set BtwKode=$P(R,D,8) If 'BtwTeBet Set BtwKode=0
+ .Do:(""=$Get(BtwKode)) ##class(vhLib.Logger).%New().ErrorMail("CALCBON", "BtwKode leeg. BonNr='"_BONNr_"'; ULNr='" _ ULNr _ "'.")
  .If '$D(Goederen(BtwKode)) Set Goederen(BtwKode)=0,Basis(BtwKode)=0,Btw(BtwKode)=0
  .Set Goederen(BtwKode)=Goederen(BtwKode)+$$RondafIndienNodig($P(R,D,9))
  For BtwKode=0:1:9 If $D(Goederen(BtwKode)) Do