Index: TRANSPC.mac.rou
===================================================================
diff -u -r44358 -r44509
--- TRANSPC.mac.rou	(.../TRANSPC.mac.rou)	(revision 44358)
+++ TRANSPC.mac.rou	(.../TRANSPC.mac.rou)	(revision 44509)
@@ -318,8 +318,8 @@
  .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)
+ .Do ##class(vhLib.Logger).%New("").Info("Sluiten transport","VervRef='"_VervRef_"'; Modifiers : '"_Modify_"'.")
  .If TranspNr=$$$LevGLS,CheckAll,'$$CHECKALL^TRANSP("DI1 ") Quit  ; Controle GLS - leveringen niet opgenomen
  .Quit:'$$LOCK^TRANSP(VervRef)
  .If Modify="E" Do UNLOCK^TRANSP(VervRef) Quit // E = Etiketten. N.B. Labels afdrukken bij sluiten van een TransportRit is zinloos, cfr Alain.
@@ -347,12 +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" ##class(vhLib.Logger).%New("").Info("Markeren bulkfacturatie start", "VervRef='"_VervRef_"'; 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_"'; .")
+ ..Do:Modify["T" ##class(vhLib.Logger).%New("").Info("Markeren bulkfacturatie ge�indigd", "VervRef='"_VervRef_"'; Modifiers : '"_Modify_"'; .")
+ ..Do:Modify["T" ##class(vhLib.Logger).%New("").Info("Sluiten transport start", "VervRef='"_VervRef_"'; Modifiers : '"_Modify_"'; .")
  ..Set:Modify["T" Closed = $$TransportGeslotenAfhandeling
- ..Do:Modify["T" ##class(vhLib.Logger).%New("").Info("Sluiten transport einde","Closed : '"_Closed_"'; Modifiers : '"_Modify_"'; .")
+ ..Do:Modify["T" ##class(vhLib.Logger).%New("").Info("Sluiten transport einde","VervRef='"_VervRef_"'; 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.
@@ -378,6 +378,7 @@
  Set $ZT = ""
  New Exception
  #dim Exception As TECH.Exceptions.Exception = ##class(TECH.ExceptionHandler).Catch("APPS.TRANSP.GLS.Exceptions.CommunicatieException","TECH.Exceptions.InvalidInputException")
+ Do ##class(vhLib.Logger).%New("").Warning("TransportGeslotenAfhandeling", "VervRef='"_VervRef_"'; Exception : '"_Exception.GeefOmschrijving()_"'; .")
  Do Boodschap^vhTXTPOP(Exception.GeefOmschrijving()) 
  Set $Piece(^TRANSP("D",VervRef),"\",2) = ""
  Set $Piece(^TRANSP("D",VervRef),"\",11,15) = ""
@@ -470,4 +471,4 @@
  
 BEGIN
 	Do CLOSE($G(TranspNr),$G(VervRef))
-	Quit
\ No newline at end of file
+	Quit