Index: FLOWOFF4.mac.rou
===================================================================
diff -u -r29059 -r48727
--- FLOWOFF4.mac.rou	(.../FLOWOFF4.mac.rou)	(revision 29059)
+++ FLOWOFF4.mac.rou	(.../FLOWOFF4.mac.rou)	(revision 48727)
@@ -12,7 +12,7 @@
  #dim IsKSKlant As %Boolean = '(##class(DOM.DomeinContext).Instance().GeefKlantTypeAPI().IsIndustriePoolKlant(KlantID))
  #dim Klant As DOM.VKP.Klant = ##class(DOM.DomeinContext).Instance().GeefVerkoopAPI().GeefKlant(KlantID)
  Do:(IsKSKlant)
- .D ##class(vhLib.Logger).%New("KSTBXKWK").Info("FLOWORD4","Kwantumkorting wordt berekend"_$C(13,10)_"Klant : "_KlantID_$C(13,10)_"Offerte : "_OFFNr_$C(13,10)_$$GetStackToString^vhLib.System())
+ .D ##class(vhLib.Logger).%New().Info("FLOWORD4","Kwantumkorting wordt berekend"_$C(13,10)_"Klant : "_KlantID_$C(13,10)_"Offerte : "_OFFNr_$C(13,10)_$$GetStackToString^vhLib.System())
  .If OFLNr Set R=^KOFKL(KLNr,"F",OFFNr,OFLNr),PRNr=$P(R,D,2) If PRNr Quit:'$$ISTBX^PRODUKT2(PRNr)  ; Is de toegevoegde of gewijzigde lijn een TB
  .Set TbxAant=0,OFLNr=100 ; Totaliseren van de aantallen
  .For  Set OFLNr=$O(^KOFKL(KLNr,"F",OFFNr,OFLNr)) Quit:'OFLNr  Do
Index: FLOWORD4.mac.rou
===================================================================
diff -u -r29059 -r48727
--- FLOWORD4.mac.rou	(.../FLOWORD4.mac.rou)	(revision 29059)
+++ FLOWORD4.mac.rou	(.../FLOWORD4.mac.rou)	(revision 48727)
@@ -64,7 +64,7 @@
  #dim IsKSKlant As %Boolean = '(##class(DOM.DomeinContext).Instance().GeefKlantTypeAPI().IsIndustriePoolKlant(KlantID))
  #dim Klant As DOM.VKP.Klant = ##class(DOM.DomeinContext).Instance().GeefVerkoopAPI().GeefKlant(KlantID)
  Do:(IsKSKlant)
- .D ##class(vhLib.Logger).%New("KSTBXKWK").Info("FLOWORD4","Kwantumkorting wordt berekend"_$C(13,10)_"Klant : "_KlantID_$C(13,10)_"Order : "_ORDNr_$C(13,10)_$$GetStackToString^vhLib.System())
+ .D ##class(vhLib.Logger).%New().Info("FLOWORD4","Kwantumkorting wordt berekend"_$C(13,10)_"Klant : "_KlantID_$C(13,10)_"Order : "_ORDNr_$C(13,10)_$$GetStackToString^vhLib.System())
  .If OLNr Set R=^KOD(KLNr,"F",ORDNr,OLNr),PRNr=$P(R,D,2) If PRNr Quit:'$$ISTBX^PRODUKT2(PRNr)  ; Is de toegevoegde of gewijzigde lijn een TB
  .Set TbxAant=0,OLNr=100 ; Totaliseren van de aantallen
  .For  Set OLNr=$O(^KOD(KLNr,"F",ORDNr,OLNr)) Quit:'OLNr  Do