From 22ac0b1bcd0342c642d0f8b268f3fdd6c228113c Mon Sep 17 00:00:00 2001 From: "d.breimaier" Date: Fri, 17 Jan 2025 16:57:20 +0100 Subject: [PATCH] comm --- SDL/mdm/usrCntlMDMAuswertungen.Designer.vb | 77 +++++++++++++--------- SDL/mdm/usrCntlMDMAuswertungen.vb | 67 +++++++++++++++---- 2 files changed, 101 insertions(+), 43 deletions(-) diff --git a/SDL/mdm/usrCntlMDMAuswertungen.Designer.vb b/SDL/mdm/usrCntlMDMAuswertungen.Designer.vb index 8d090bb4..53c1b8c3 100644 --- a/SDL/mdm/usrCntlMDMAuswertungen.Designer.vb +++ b/SDL/mdm/usrCntlMDMAuswertungen.Designer.vb @@ -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 diff --git a/SDL/mdm/usrCntlMDMAuswertungen.vb b/SDL/mdm/usrCntlMDMAuswertungen.vb index 37804a36..e6e463c5 100644 --- a/SDL/mdm/usrCntlMDMAuswertungen.vb +++ b/SDL/mdm/usrCntlMDMAuswertungen.vb @@ -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