Index: TRANSPC.mac.rou
===================================================================
diff -u -r44247 -r44252
--- TRANSPC.mac.rou	(.../TRANSPC.mac.rou)	(revision 44247)
+++ TRANSPC.mac.rou	(.../TRANSPC.mac.rou)	(revision 44252)
@@ -318,6 +318,7 @@
  .Set Modify=$O(Modify(""),-1)
  .Set Modify=$$WILD^vhPOPUP("C;C","O1-A","",.Modify)
  Do:$L(Modify)
+ .Do ##class(vhLib.Logger).%New("").Info("Sluiten transport","Modifiers : '"_Modify_"'.")
  .Set R=^HULP(%J,SelClose("SELECT")),TranspNr=$P(R,D),VervRef=$P(R,D,21)
  .If TranspNr=$$$LevGLS,CheckAll,'$$CHECKALL^TRANSP("DI1 ") Quit  ; Controle GLS - leveringen niet opgenomen
  .Quit:'$$LOCK^TRANSP(VervRef)
@@ -346,8 +347,12 @@
  ..Set VervRef=$P(sFL(1),D,21),R=^TRANSP("D",VervRef),$P(R,D,11,15)=$P(sFL(1),D,11,15)
  ..Set Closed=$P(R,D,11)&$P(R,D,12)
  ..Set:Closed $P(R,D,2)="T" Set ^TRANSP("D",VervRef)=R
+ ..Do:Modify["T" ##class(vhLib.Logger).%New("").Info("Markeren bulkfacturatie start", "Modifiers : '"_Modify_"'; .")
  ..Do:Modify["T" MarkBulkFact(VervRef)
+ ..Do:Modify["T" ##class(vhLib.Logger).%New("").Info("Markeren bulkfacturatie ge�indigd", "Modifiers : '"_Modify_"'; .")
+ ..Do:Modify["T" ##class(vhLib.Logger).%New("").Info("Sluiten transport start", "Modifiers : '"_Modify_"'; .")
  ..Set:Modify["T" Closed = $$TransportGeslotenAfhandeling
+ ..Do:Modify["T" ##class(vhLib.Logger).%New("").Info("Sluiten transport einde","Closed : '"_Closed_"'; Modifiers : '"_Modify_"'; .")
  ..Do:Closed
  ...Kill ^TRANSP("IO",VervRef)
  ..If TranspNr=$$$LevGLS Do  ; Enkel voor ABX // N.B. Labels afdrukken bij sluiten van een TransportRit is zinloos, cfr Alain.