Index: ULTOER.mac.rou
===================================================================
diff -u -r53321 -r53322
--- ULTOER.mac.rou	(.../ULTOER.mac.rou)	(revision 53321)
+++ ULTOER.mac.rou	(.../ULTOER.mac.rou)	(revision 53322)
@@ -678,18 +678,16 @@
  ;
  ; Mailen van een transportlijst
 MailTransp
- Do ##class(vhLib.Logger).%New("Transport").Info("Mail Transportlijst start", "")
- Break
  New I,R,BONNr,TransportLink,Transport,Transporteur,Transporten,DefaultTransport,Obj
  S R=$G(^HULP(%J,"D",@DL(1)@(6)))
  Set BONNr=$P(R,D),TransportLink=##class(Flow.Cons.TransportBon).GetTransport(BONNr)
  Set Transport=$P(TransportLink,";")
+ Do ##class(vhLib.Logger).%New("Transport").Debug("Mail Transportlijst start", "Transport='" _ Transport _ "'; gekozen vanop bonnr='" _ BONNr _ "'.")
  #dim DomeinContext As DOM.DomeinContext = ##class(DOM.DomeinContext).Instance()
  Set TransporteurAlsLeverancierNr = DomeinContext.GeefTransportAPI().GeefRit(Transport).GeefTransporteur()
  Set lbAdressen = $lb( DomeinContext.GeefPartijAPI().GeefPartij( DomeinContext.GeefLegacyPartijAPI().GeefLeverancierPartijID(TransporteurAlsLeverancierNr) ).GeefEmail() )
- Do ##class(vhLib.Logger).%New("Transport").Info("Mail Transportlijst", "Transport='" _ Transport _ "'.")
  Do ExportEnMail^TRANSPExport2File(Transport,lbAdressen)
- Do ##class(vhLib.Logger).%New("Transport").Info("Mail Transportlijst einde", "")
+ Do ##class(vhLib.Logger).%New("Transport").Debug("Mail Transportlijst einde", "Transport='" _ Transport _ "'; gekozen vanop bonnr='" _ BONNr _ "'.")
  Quit
  ;
  ; Afsluiten van een transport met eventueel een afdruk