mdm Sammelrechnung

SDL/mdm/usrCntlMDMAuswertungen.vb

@@ -1124,13 +1124,14 @@ Public Class usrCntlMDMAuswertungen
         Bankspesen(Sachbearbeiter, rechnungsdatum)
 
         'Gesamtmautberichte an Sammelrechnung anhängen
-        'If Not setMautgesamtberichtInRechnung(Sachbearbeiter, rechnungsdatum, dtSammelrechnungen) Then
-        'Exit Sub
-        'End If
+        If Not setMautgesamtberichtInRechnung(Sachbearbeiter, rechnungsdatum, dtSammelrechnungen) Then
+            MsgBox("Fehler beim Setzen der Gesamtmautberichte")
+            Exit Sub
+        End If
 
         'Druckinformationen
         If Not setStatus4(Sachbearbeiter, rechnungsdatum, dtSammelrechnungen) Then
-            MsgBox("Fehler beim Setzen des Status")
+            MsgBox("Fehler beim Setzen der Druckinformationen")
         Else
             MsgBox("Erledigt.")
         End If
@@ -1632,6 +1633,8 @@ Public Class usrCntlMDMAuswertungen
 
     Private Function AddAttachementToRE(pathFile As String, kdNr As Integer, RECHNUNG As cRechnungsausgang, rechnungsdatum As Date) As Boolean
 
+        'TODO: Prüfung, damit anhänge nicht doppelt eingearbeitet werden!
+
         If Not IO.File.Exists(pathFile) Then Return False
 
         Dim fi As New System.IO.FileInfo(pathFile)