diff --git a/SDL/mdm/usrCntlMDMAuswertungen.Designer.vb b/SDL/mdm/usrCntlMDMAuswertungen.Designer.vb index 53c1b8c3..d7beb44c 100644 --- a/SDL/mdm/usrCntlMDMAuswertungen.Designer.vb +++ b/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 diff --git a/SDL/mdm/usrCntlMDMAuswertungen.vb b/SDL/mdm/usrCntlMDMAuswertungen.vb index 3661ba63..cf375605 100644 --- a/SDL/mdm/usrCntlMDMAuswertungen.vb +++ b/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)