mdm Sammelrechnung

SDL/mdm/usrCntlMDMAuswertungen.Designer.vb

@@ -141,7 +141,7 @@ Partial Class usrCntlMDMAuswertungen
         Me.Button18 = New System.Windows.Forms.Button()
         Me.Label44 = New System.Windows.Forms.Label()
         Me.GroupBox13 = New System.Windows.Forms.GroupBox()
-        Me.Label71 = New System.Windows.Forms.Label()
+        Me.Button19 = New System.Windows.Forms.Button()
         Me.Label70 = New System.Windows.Forms.Label()
         Me.cboSachbearbeiter = New VERAG_PROG_ALLGEMEIN.MyComboBox()
         Me.Label67 = New System.Windows.Forms.Label()
@@ -199,7 +199,6 @@ Partial Class usrCntlMDMAuswertungen
         Me.btnContractdaten = New System.Windows.Forms.Button()
         Me.Button15 = New System.Windows.Forms.Button()
         Me.pnl = New System.Windows.Forms.Panel()
-        Me.Button19 = New System.Windows.Forms.Button()
         Me.GroupBox1.SuspendLayout()
         Me.GroupBox2.SuspendLayout()
         CType(Me.pic, System.ComponentModel.ISupportInitialize).BeginInit()
@@ -1563,7 +1562,6 @@ Partial Class usrCntlMDMAuswertungen
         'GroupBox13
         '
         Me.GroupBox13.Controls.Add(Me.Button19)
-        Me.GroupBox13.Controls.Add(Me.Label71)
         Me.GroupBox13.Controls.Add(Me.Label70)
         Me.GroupBox13.Controls.Add(Me.cboSachbearbeiter)
         Me.GroupBox13.Controls.Add(Me.Label67)
@@ -1580,13 +1578,16 @@ Partial Class usrCntlMDMAuswertungen
         Me.GroupBox13.TabIndex = 10
         Me.GroupBox13.TabStop = False
         '
-        'Label71
+        'Button19
         '
-        Me.Label71.Location = New System.Drawing.Point(144, 143)
-        Me.Label71.Name = "Label71"
-        Me.Label71.Size = New System.Drawing.Size(541, 17)
-        Me.Label71.TabIndex = 31
-        Me.Label71.Text = "6. Druckt Rechnungen"
+        Me.Button19.FlatStyle = System.Windows.Forms.FlatStyle.Flat
+        Me.Button19.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
+        Me.Button19.Location = New System.Drawing.Point(6, 91)
+        Me.Button19.Name = "Button19"
+        Me.Button19.Size = New System.Drawing.Size(121, 49)
+        Me.Button19.TabIndex = 32
+        Me.Button19.Text = "Vorschau"
+        Me.Button19.UseVisualStyleBackColor = True
         '
         'Label70
         '
@@ -2172,17 +2173,6 @@ Partial Class usrCntlMDMAuswertungen
         Me.pnl.Size = New System.Drawing.Size(1057, 54)
         Me.pnl.TabIndex = 26
         '
-        'Button19
-        '
-        Me.Button19.FlatStyle = System.Windows.Forms.FlatStyle.Flat
-        Me.Button19.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
-        Me.Button19.Location = New System.Drawing.Point(6, 91)
-        Me.Button19.Name = "Button19"
-        Me.Button19.Size = New System.Drawing.Size(121, 49)
-        Me.Button19.TabIndex = 32
-        Me.Button19.Text = "Vorschau"
-        Me.Button19.UseVisualStyleBackColor = True
-        '
         'usrCntlMDMAuswertungen
         '
         Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
@@ -2430,6 +2420,5 @@ Partial Class usrCntlMDMAuswertungen
     Friend WithEvents Label69 As Label
     Friend WithEvents cbxDateMautbericht As VERAG_PROG_ALLGEMEIN.MyComboBox
     Friend WithEvents Label70 As Label
-    Friend WithEvents Label71 As Label
     Friend WithEvents Button19 As Button
 End Class

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)