edv/SDL
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

mdm Sammelrechnung

Browse Source
This commit is contained in:
d.breimaier
2025-01-17 17:42:52 +01:00
parent 4451a2325a
commit dbb13dffb0
2 changed files with 17 additions and 25 deletions
Download Patch File Download Diff File Expand all files Collapse all files

31
SDL/mdm/usrCntlMDMAuswertungen.Designer.vb generated
View File

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

11
SDL/mdm/usrCntlMDMAuswertungen.vb
View File

@@ -1124,13 +1124,14 @@ Public Class usrCntlMDMAuswertungen
Bankspesen(Sachbearbeiter, rechnungsdatum) Bankspesen(Sachbearbeiter, rechnungsdatum)
'Gesamtmautberichte an Sammelrechnung anhängen 'Gesamtmautberichte an Sammelrechnung anhängen
'If Not setMautgesamtberichtInRechnung(Sachbearbeiter, rechnungsdatum, dtSammelrechnungen) Then If Not setMautgesamtberichtInRechnung(Sachbearbeiter, rechnungsdatum, dtSammelrechnungen) Then
'Exit Sub MsgBox("Fehler beim Setzen der Gesamtmautberichte")
'End If Exit Sub
End If
'Druckinformationen 'Druckinformationen
If Not setStatus4(Sachbearbeiter, rechnungsdatum, dtSammelrechnungen) Then If Not setStatus4(Sachbearbeiter, rechnungsdatum, dtSammelrechnungen) Then
MsgBox("Fehler beim Setzen des Status") MsgBox("Fehler beim Setzen der Druckinformationen")
Else Else
MsgBox("Erledigt.") MsgBox("Erledigt.")
End If 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 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 If Not IO.File.Exists(pathFile) Then Return False
Dim fi As New System.IO.FileInfo(pathFile) Dim fi As New System.IO.FileInfo(pathFile)