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

comm

Browse Source
This commit is contained in:
d.breimaier
2025-01-17 16:57:20 +01:00
parent d02b7f1dea
commit 22ac0b1bcd
2 changed files with 101 additions and 43 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@@ -141,6 +141,8 @@ 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.Label70 = New System.Windows.Forms.Label()
Me.cboSachbearbeiter = New VERAG_PROG_ALLGEMEIN.MyComboBox()
Me.Label67 = New System.Windows.Forms.Label()
Me.dtRechnungsdatum = New System.Windows.Forms.DateTimePicker()
@@ -197,8 +199,7 @@ 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.Label70 = New System.Windows.Forms.Label()
Me.Label71 = New System.Windows.Forms.Label()
Me.Button19 = New System.Windows.Forms.Button()
Me.GroupBox1.SuspendLayout()
Me.GroupBox2.SuspendLayout()
CType(Me.pic, System.ComponentModel.ISupportInitialize).BeginInit()
@@ -1484,7 +1485,7 @@ Partial Class usrCntlMDMAuswertungen
Me.GroupBox19.Controls.Add(Me.Button18)
Me.GroupBox19.Location = New System.Drawing.Point(18, 146)
Me.GroupBox19.Name = "GroupBox19"
Me.GroupBox19.Size = New System.Drawing.Size(697, 107)
Me.GroupBox19.Size = New System.Drawing.Size(697, 84)
Me.GroupBox19.TabIndex = 12
Me.GroupBox19.TabStop = False
'
@@ -1494,7 +1495,7 @@ Partial Class usrCntlMDMAuswertungen
Me.cbxDateMautbericht._allowFreiText = False
Me.cbxDateMautbericht._value = ""
Me.cbxDateMautbericht.FormattingEnabled = True
Me.cbxDateMautbericht.Location = New System.Drawing.Point(312, 12)
Me.cbxDateMautbericht.Location = New System.Drawing.Point(265, 12)
Me.cbxDateMautbericht.Name = "cbxDateMautbericht"
Me.cbxDateMautbericht.Size = New System.Drawing.Size(87, 21)
Me.cbxDateMautbericht.TabIndex = 32
@@ -1514,15 +1515,16 @@ Partial Class usrCntlMDMAuswertungen
Me.Label68.Name = "Label68"
Me.Label68.Size = New System.Drawing.Size(541, 20)
Me.Label68.TabIndex = 30
Me.Label68.Text = "Generiert Mautbericht und hängt sie an den Sammelrechnung an."
Me.Label68.Text = "Generiert Mautbericht und hängt sie an den Sammelrechnungen an."
'
'cbxMautbericht
'
Me.cbxMautbericht._allowedValuesFreiText = Nothing
Me.cbxMautbericht._allowFreiText = False
Me.cbxMautbericht._value = ""
Me.cbxMautbericht.DropDownWidth = 200
Me.cbxMautbericht.FormattingEnabled = True
Me.cbxMautbericht.Location = New System.Drawing.Point(312, 33)
Me.cbxMautbericht.Location = New System.Drawing.Point(265, 33)
Me.cbxMautbericht.Name = "cbxMautbericht"
Me.cbxMautbericht.Size = New System.Drawing.Size(152, 21)
Me.cbxMautbericht.TabIndex = 30
@@ -1532,9 +1534,9 @@ Partial Class usrCntlMDMAuswertungen
Me.Label62.AutoSize = True
Me.Label62.Location = New System.Drawing.Point(142, 36)
Me.Label62.Name = "Label62"
Me.Label62.Size = New System.Drawing.Size(144, 13)
Me.Label62.Size = New System.Drawing.Size(102, 13)
Me.Label62.TabIndex = 5
Me.Label62.Text = "Mautsummenbericht erstellen"
Me.Label62.Text = "Mautsummenbericht"
'
'Button18
'
@@ -1560,6 +1562,7 @@ 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)
@@ -1577,13 +1580,29 @@ Partial Class usrCntlMDMAuswertungen
Me.GroupBox13.TabIndex = 10
Me.GroupBox13.TabStop = False
'
'Label71
'
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"
'
'Label70
'
Me.Label70.Location = New System.Drawing.Point(144, 126)
Me.Label70.Name = "Label70"
Me.Label70.Size = New System.Drawing.Size(541, 17)
Me.Label70.TabIndex = 30
Me.Label70.Text = "5. Hängt Mautgesamtbericht an Sammenrechnungen an."
'
'cboSachbearbeiter
'
Me.cboSachbearbeiter._allowedValuesFreiText = Nothing
Me.cboSachbearbeiter._allowFreiText = False
Me.cboSachbearbeiter._value = ""
Me.cboSachbearbeiter.FormattingEnabled = True
Me.cboSachbearbeiter.Location = New System.Drawing.Point(385, 18)
Me.cboSachbearbeiter.Location = New System.Drawing.Point(243, 36)
Me.cboSachbearbeiter.Name = "cboSachbearbeiter"
Me.cboSachbearbeiter.Size = New System.Drawing.Size(152, 21)
Me.cboSachbearbeiter.TabIndex = 29
@@ -1591,7 +1610,7 @@ Partial Class usrCntlMDMAuswertungen
'Label67
'
Me.Label67.AutoSize = True
Me.Label67.Location = New System.Drawing.Point(297, 26)
Me.Label67.Location = New System.Drawing.Point(148, 36)
Me.Label67.Name = "Label67"
Me.Label67.Size = New System.Drawing.Size(82, 13)
Me.Label67.TabIndex = 28
@@ -1600,7 +1619,7 @@ Partial Class usrCntlMDMAuswertungen
'dtRechnungsdatum
'
Me.dtRechnungsdatum.Format = System.Windows.Forms.DateTimePickerFormat.[Short]
Me.dtRechnungsdatum.Location = New System.Drawing.Point(147, 19)
Me.dtRechnungsdatum.Location = New System.Drawing.Point(292, 10)
Me.dtRechnungsdatum.Name = "dtRechnungsdatum"
Me.dtRechnungsdatum.Size = New System.Drawing.Size(103, 20)
Me.dtRechnungsdatum.TabIndex = 26
@@ -1608,7 +1627,7 @@ Partial Class usrCntlMDMAuswertungen
'Label66
'
Me.Label66.AutoSize = True
Me.Label66.Location = New System.Drawing.Point(6, 25)
Me.Label66.Location = New System.Drawing.Point(148, 16)
Me.Label66.Name = "Label66"
Me.Label66.Size = New System.Drawing.Size(94, 13)
Me.Label66.TabIndex = 27
@@ -1616,7 +1635,7 @@ Partial Class usrCntlMDMAuswertungen
'
'Label65
'
Me.Label65.Location = New System.Drawing.Point(144, 94)
Me.Label65.Location = New System.Drawing.Point(144, 109)
Me.Label65.Name = "Label65"
Me.Label65.Size = New System.Drawing.Size(541, 17)
Me.Label65.TabIndex = 8
@@ -1624,7 +1643,7 @@ Partial Class usrCntlMDMAuswertungen
'
'Label64
'
Me.Label64.Location = New System.Drawing.Point(144, 77)
Me.Label64.Location = New System.Drawing.Point(144, 92)
Me.Label64.Name = "Label64"
Me.Label64.Size = New System.Drawing.Size(541, 17)
Me.Label64.TabIndex = 7
@@ -1632,7 +1651,7 @@ Partial Class usrCntlMDMAuswertungen
'
'Label63
'
Me.Label63.Location = New System.Drawing.Point(144, 62)
Me.Label63.Location = New System.Drawing.Point(144, 77)
Me.Label63.Name = "Label63"
Me.Label63.Size = New System.Drawing.Size(541, 17)
Me.Label63.TabIndex = 6
@@ -1641,7 +1660,7 @@ Partial Class usrCntlMDMAuswertungen
'
'Label45
'
Me.Label45.Location = New System.Drawing.Point(144, 45)
Me.Label45.Location = New System.Drawing.Point(144, 60)
Me.Label45.Name = "Label45"
Me.Label45.Size = New System.Drawing.Size(541, 17)
Me.Label45.TabIndex = 5
@@ -1652,7 +1671,7 @@ Partial Class usrCntlMDMAuswertungen
'
Me.Button14.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.Button14.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
Me.Button14.Location = New System.Drawing.Point(9, 60)
Me.Button14.Location = New System.Drawing.Point(10, 21)
Me.Button14.Name = "Button14"
Me.Button14.Size = New System.Drawing.Size(121, 49)
Me.Button14.TabIndex = 4
@@ -2153,21 +2172,16 @@ Partial Class usrCntlMDMAuswertungen
Me.pnl.Size = New System.Drawing.Size(1057, 54)
Me.pnl.TabIndex = 26
'
'Label70
'Button19
'
Me.Label70.Location = New System.Drawing.Point(144, 111)
Me.Label70.Name = "Label70"
Me.Label70.Size = New System.Drawing.Size(541, 17)
Me.Label70.TabIndex = 30
Me.Label70.Text = "5. Hängt Mautgesamtbericht an Sammenrechnungen an."
'
'Label71
'
Me.Label71.Location = New System.Drawing.Point(144, 128)
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
'
'usrCntlMDMAuswertungen
'
@@ -2417,4 +2431,5 @@ Partial Class usrCntlMDMAuswertungen
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

67
SDL/mdm/usrCntlMDMAuswertungen.vb
View File

@@ -1,5 +1,6 @@
Imports System.Data.SqlClient
Imports System.IO
Imports java.awt.geom
Imports Microsoft.Office.Interop.Outlook
Imports Microsoft.VisualBasic.FileIO
Imports VERAG_PROG_ALLGEMEIN
@@ -1096,7 +1097,7 @@ Public Class usrCntlMDMAuswertungen
End If
Dim steuersatz As Double = Math.floor(r("Steuersatz %"))
Dim steuersatz As Double = Math.Floor(r("Steuersatz %"))
ok = SQL.doSQL("UPDATE [Rechnungsausgang] SET [BelegartenNr] = " & BelegartenNr & ", [BelegartenKz] = '" & BelegartenKz & "' , [BelegartenBez] = '" & BelegartenBez & "' , [Vorzeichen] = '" & Vorzeichen & "'
WHERE [Firma_ID] = 19 AND [Status] = 0 AND [Sammelrechnung] = 6 AND UPPER([Sachbearbeiter])= '" & Sachbearbeiter & "' AND [RechnungsKundenNr] = " & r("RechnungsKundenNr") & " AND [Währungscode] = '" & r("Währungscode") & "' AND [Steuersatz %] = " & steuersatz & " AND [Lastschrift] = " & IIf(r("Lastschrift"), 1, 0) & "AND cast(Abfertigungsdatum as Date) = '" & rechnungsdatum & "'", "FMZOLL")
@@ -1211,13 +1212,10 @@ Public Class usrCntlMDMAuswertungen
Else
intZlr = r("AnzahlPP") - 1
End If
End If
If intZlr > 0 Then
Dim steuersatz As Double = Math.round(r("Steuersatz %"), 2)
Dim steuersatz As Double = Math.Round(r("Steuersatz %"), 2)
Dim SteuersatzString As String = steuersatz.ToString.Replace(",", ".")
' Die Abfrage liest in der Tabelle Rechnungsausgang,
@@ -1424,7 +1422,7 @@ Public Class usrCntlMDMAuswertungen
For Each r In dtBB.Rows
'spSelectReDruSchnSumBS415
Dim steuersatz As Double = Math.round(r("Steuersatz %"), 2)
Dim steuersatz As Double = Math.Round(r("Steuersatz %"), 2)
Dim SteuersatzString As String = steuersatz.ToString.Replace(",", ".")
Dim sum As DataTable = (New SQL).loadDgvBySql("SELECT ISNULL(SUM(dbo.RechnungsausgangPositionen.Preis * dbo.RechnungsausgangPositionen.Anzahl),0) AS [Summe von Preis]
@@ -1528,9 +1526,9 @@ Public Class usrCntlMDMAuswertungen
If sumCurrenRow > 0 Then
preis = Math.floor(sumCurrenRow * rowBS("Bankspesen %") + 0.5)
preis = Math.Floor(sumCurrenRow * rowBS("Bankspesen %") + 0.5)
Else
preis = Math.floor(0 - sumCurrenRow * rowBS("Bankspesen %") + 0.5)
preis = Math.Floor(0 - sumCurrenRow * rowBS("Bankspesen %") + 0.5)
End If
Else
@@ -1608,7 +1606,7 @@ Public Class usrCntlMDMAuswertungen
End If
ElseIf f.Contains("Maut.pdf") Then
ElseIf f.Contains("Maut.pdf") Then
Dim FilePDF = New FileInfo(f)
If FilePDF.Name.Length > 10 Then
Dim KundenNr = FilePDF.Name.ToString.Substring(0, 6)
@@ -1618,8 +1616,7 @@ Public Class usrCntlMDMAuswertungen
AddAttachementToRE(FilePDF.FullName, KundenNr, RECHNUNG, rechnungsdatum)
End If
End If
End If
End If
Next
End If
@@ -2153,7 +2150,7 @@ Public Class usrCntlMDMAuswertungen
'wenn bereits CSV-Datei im Ordner dann löschen!
If Directory.GetFiles(PathMautberichte) IsNot Nothing Then
For Each f In Directory.GetFiles(PathMautberichte)
If f.ToString.ToLower.EndsWith(".csv") Then File.Delete(f)
If f.ToString.ToLower.EndsWith(".csv") Then File.Delete(f)
Next
End If
@@ -2392,6 +2389,52 @@ Public Class usrCntlMDMAuswertungen
Return tmpPath
End Function
Private Sub Button19_Click_1(sender As Object, e As EventArgs) Handles Button19.Click
Dim Sachbearbeiter = cboSachbearbeiter._value
Dim rechnungsdatum As Date = CDate(dtRechnungsdatum.Text)
If rechnungsdatum > Today() Then
MsgBox("Rechnungsdatum liegt in der Zukunft, nicht möglich")
Exit Sub
End If
If Sachbearbeiter = "" Then
MsgBox("Sachbearbeiter auswählen!")
Exit Sub
End If
Dim listPDFs As List(Of String)
Dim dtSelectedSammelrechnungen As DataTable = (New SQL).loadDgvBySql("SELECT [Firma_ID], RechnungsNr,Buchungsjahr,DruckDatumZeit,[Status], [Sammelrechnung], [Sachbearbeiter], [RechnungsKundenNr], [Währungscode], isnull([Steuersatz %],0) as [Steuersatz %], cast([Lastschrift] as bit) as Lastschrift, [RK_ID], [BelegartenNr],cast([Vorkasse] as bit) as Vorkasse, [Nettozahlungsziel], [OffertenNr], [RechnungsLandKz], [Text]
FROM Rechnungsausgang
WHERE [Status] = 0 AND [Sammelrechnung] = 6 AND UPPER([Sachbearbeiter]) = '" & Sachbearbeiter & "' AND ([SteuerpflichtigerGesamtbetrag] <> 0 OR [SteuerfreierGesamtbetrag] <> 0) AND cast(Abfertigungsdatum as Date) = '" & rechnungsdatum & "' and RechnungsNr is not null
ORDER BY [Firma_ID], [Status], [Sammelrechnung], [Sachbearbeiter], [RechnungsKundenNr], [Währungscode], [Steuersatz %], [Lastschrift], [RK_ID]", "FMZOLL")
If dtSelectedSammelrechnungen.Rows.Count > 0 Then
For Each rowRE In dtSelectedSammelrechnungen.Rows
Dim path = ""
cFakturierung.doSAMMELRechnungsDruck_Abschnitt(rowRE("RechnungsNr"), rowRE("Firma_ID"), rowRE("Buchungsjahr"), rowRE("Buchungsjahr"), "", , , 7, path,, , , , , , , )
If path <> "" Then listPDFs.Add(path)
Next
If listPDFs.Count > 1 Then
Dim pathPDF = VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.getTMPPath("MDM_Sammelrechnung.pdf", ".pdf", False, False)
If FormularManagerNEU.MergePdfFiles(listPDFs, pathPDF) Then
Process.Start(pathPDF)
Else
MsgBox("Fehler beim zusammenführen der PDFs.")
End If
End If
Else
MsgBox("Keine Sammelrechnung zum " & rechnungsdatum.ToShortDateString & " von " & Sachbearbeiter & " vorhanden!")
End If
End Sub
End Class