MDMAbrechnung

SDL/Fakturierung/cFakturierung.vb

@@ -5,8 +5,7 @@ Imports Microsoft.Office.Interop
 Imports VERAG_PROG_ALLGEMEIN
 Imports s2industries.ZUGFeRD
 Imports System.IO
-Imports GrapeCity.ActiveReports.Core.Rendering.Tools
+
-Imports System.Windows.Converters
 
 Public Class cFakturierung
 
@@ -935,8 +934,12 @@ Public Class cFakturierung
         rpt.lblFirmaEmail.Text = If(FIRMA.Firma_E_Mail, "")
         rpt.lblFirmaWeb.Text = If(FIRMA.Firma_Webadresse, "")
         rpt.lblFirma.Text = (If(FIRMA.Firma_Bez, "") & ", " & If(FIRMA.Firma_Ort, "")).ToString.Replace(" (DE)", "")
+
         If FIRMA.Firma_ID = 1 Then rpt.lblFirma.Text &= vbNewLine & "D-94152 Neuhaus/Inn, Hartham 6"
 
+        If FIRMA.Firma_ID = 19 Then rpt.lblFirma.Text &= vbNewLine & "VERAG Spedition GmbH, Hartham 6, D-94152 Neuhaus/Inn"
+
+
         rpt.lblFirmenbuch.Text = If(FIRMA.Firma_Firmenbuch, "").ToString.Replace("Firmenbuch:", "").Trim
         rpt.lblUID.Text = If(FIRMA.Firma_UID, "")
         rpt.lblEORI.Text = If(FIRMA.Firma_EORI, "")
@@ -983,7 +986,7 @@ Public Class cFakturierung
                         End If
                     End If
                 End If
-            Case Else 'VERAG,ATILLA
+            Case Else 'VERAG,ATILLA, VERAG360
                 rpt.txtBank1.Text = If(FIRMA.Firma_Bankverbindung1, "") & vbNewLine & If(FIRMA.Firma_IBAN1, "") & vbNewLine & If(FIRMA.Firma_BIC1, "").ToString.Trim
                 rpt.txtBank2.Text = If(FIRMA.Firma_Bankverbindung2, "") & vbNewLine & If(FIRMA.Firma_IBAN2, "") & vbNewLine & If(FIRMA.Firma_BIC2, "").ToString.Trim
 
@@ -2978,7 +2981,7 @@ Public Class cFakturierung
 
     End Function
 
-    Public Shared Function doSAMMELRechnungsDruck_Abschnitt(ByRef RechnungsNr As Integer, Firma_ID As Integer, Buchungsjahr As Integer, DruckdatumUhrzeit As DateTime, PrinterName As String, Optional AnlageEinzelRg As Boolean = True, Optional Sammelrechnungsbericht As Boolean = True, Optional RechnungsdruckArt As Integer = -1, Optional ByRef pathPDF As String = "", Optional SRDruckWiederholen As Boolean = False, Optional SB As String = "", Optional AnlageExcelEvolog As Boolean = False, Optional ByRef SonstAnlagen As List(Of String) = Nothing, Optional VorschauID As String = "", Optional AnlageExcelTransferry360 As Boolean = False, Optional FakturierungsGruppe As String = "", Optional Abfertigungsart As String = "", Optional mergePDF As Boolean = False, Optional RechnungsmautanhangAsPDF As Boolean = False) As Boolean
+    Public Shared Function doSAMMELRechnungsDruck_Abschnitt(ByRef RechnungsNr As Integer, Firma_ID As Integer, Buchungsjahr As Integer, DruckdatumUhrzeit As DateTime, PrinterName As String, Optional AnlageEinzelRg As Boolean = True, Optional Sammelrechnungsbericht As Boolean = True, Optional RechnungsdruckArt As Integer = -1, Optional ByRef pathPDF As String = "", Optional SRDruckWiederholen As Boolean = False, Optional SB As String = "", Optional AnlageExcelEvolog As Boolean = False, Optional ByRef SonstAnlagen As List(Of String) = Nothing, Optional VorschauID As String = "", Optional AnlageExcelTransferry360 As Boolean = False, Optional FakturierungsGruppe As String = "", Optional Abfertigungsart As String = "", Optional mergePDF As Boolean = False, Optional RechnungsanhangPDF As Boolean = False, Optional RechnugnskopieMDMSammelrechnung As Boolean = False, Optional AnhList As List(Of String) = Nothing, Optional RechnungsanhangCSV As Boolean = False) As Boolean
         'SB Nicht mehr benötigt, da RG-Nr und DruckdatumUhrzeit
 
         Dim dt As DataTable
@@ -3005,32 +3008,12 @@ Public Class cFakturierung
         '-------------- ENDE -------------- 
 
         doSAMMELRechnungsDruck_Abschnitt = doSAMMELRechnungDruck_Rechnungsdruck(dt, RechnungsNr, DruckdatumUhrzeit, 3, RechnungsdruckArt, pathPDF_SammelRg, PrinterName, SRDruckWiederholen, VorschauID) 'Sammelrechnung drucken
-        If Sammelrechnungsbericht Then If Not doSAMMELRechnungDruck_Rechnungsdruck_Sammelrechnungsbericht(RechnungsNr, DruckdatumUhrzeit, RechnungsdruckArt, pathPDF_SammelBericht, PrinterName, VorschauID, dt) Then doSAMMELRechnungsDruck_Abschnitt = False  'Sammelrechnungsbericht drucken
+        If Sammelrechnungsbericht Then If Not doSAMMELRechnungDruck_Rechnungsdruck_Sammelrechnungsbericht(RechnungsNr, DruckdatumUhrzeit, RechnungsdruckArt, pathPDF_SammelBericht, PrinterName, VorschauID, dt, RechnugnskopieMDMSammelrechnung) Then doSAMMELRechnungsDruck_Abschnitt = False  'Sammelrechnungsbericht drucken
         If AnlageEinzelRg Then If Not doSAMMELRechnungDruck_Rechnungsdruck_Anlagen(RechnungsNr, DruckdatumUhrzeit, PrinterName, pathPDF_Anlage, RechnungsdruckArt, VorschauID) Then doSAMMELRechnungsDruck_Abschnitt = False 'Anlagen drucken
-        If RechnungsmautanhangAsPDF Then
+        If RechnungsanhangPDF Then getRechnungsanshang(dt, pathPDF_Anlage, "pdf")
+        If RechnungsanhangCSV Then getRechnungsanshang(dt, AnhList, "csv")
 
-            Dim displayView = New DataView(dt, "", "RK_ID", DataViewRowState.CurrentRows)
-            Dim distinctDT_RK As DataTable = displayView.ToTable(True, "RK_ID")
 
-            For Each r In distinctDT_RK.Rows
-                Dim RG As New VERAG_PROG_ALLGEMEIN.cRechnungsausgang(r("RK_ID"))
-                If RG IsNot Nothing Then
-                    RG.LOAD_ANHAENGE()
-                    For Each RG_AH In RG.ANHAENGE
-                        If RG_AH.Bezeichnung.ToUpper.Contains("MAUT") Or RG_AH.Bezeichnung.ToUpper.Contains("DIESEL") Or RG_AH.Bezeichnung.ToUpper.Contains("INVOICE") Then
-                            Dim Path = VERAG_PROG_ALLGEMEIN.cDATENSERVER.GET_PDFPath_BY_DocID(RG_AH.dsId)
-                            If Not pathPDF_Anlage.Contains(Path) Then
-
-                                If Not (pathPDF_Anlage.Any(Function(f) f.Contains("COPY_INVOICE")) And Path.ToUpper.Contains("COPY_INVOICE")) Then 'damit diesel IDS-Rechnung nicht doppelt hinzugefügt wird.
-                                    pathPDF_Anlage.Add(Path)
-
-                                End If
-                            End If
-                        End If
-                    Next
-                End If
-            Next
-        End If
 
 
         'SONSTIGE ANLAGEN:
@@ -3362,7 +3345,7 @@ Public Class cFakturierung
     End Function
 
 
-    Shared Function doSAMMELRechnungDruck_Rechnungsdruck_Sammelrechnungsbericht(RechnungsNr As Integer, DruckdatumUhrzeit As Date, Optional Rechnugnsdruck As Integer = -1, Optional ByRef Path As String = "", Optional PrinterName As String = "", Optional VorschauID As String = "", Optional SammelrechnungsDT As DataTable = Nothing) As Boolean 'RECHNUNG As VERAG_PROG_ALLGEMEIN.cRechnungsausgang, Optional vorschau As Boolean = False, Optional Rechnugnsdruck As Integer = -1, Optional ByRef Path As String = "") As Boolean
+    Shared Function doSAMMELRechnungDruck_Rechnungsdruck_Sammelrechnungsbericht(RechnungsNr As Integer, DruckdatumUhrzeit As Date, Optional Rechnugnsdruck As Integer = -1, Optional ByRef Path As String = "", Optional PrinterName As String = "", Optional VorschauID As String = "", Optional SammelrechnungsDT As DataTable = Nothing, Optional Sammelrechnungskopie As Boolean = False) As Boolean 'RECHNUNG As VERAG_PROG_ALLGEMEIN.cRechnungsausgang, Optional vorschau As Boolean = False, Optional Rechnugnsdruck As Integer = -1, Optional ByRef Path As String = "") As Boolean
         Try
 
 
@@ -3436,7 +3419,7 @@ Public Class cFakturierung
                 Case Else
                     Select Case BelegartenKz
                         Case "AR"
-                            rpt.lblUeberschriftRG_GS.Text = IIf(Not isMDMRechnungsdruck, "Anlage zur Sammelrechnung", "Sammelrechnung")
+                            rpt.lblUeberschriftRG_GS.Text = IIf(Not isMDMRechnungsdruck, "Anlage zur Sammelrechnung", "Rechnung")
                         Case "AG"
                             rpt.lblUeberschriftRG_GS.Text = "GUTSCHRIFT"
                             rpt.lblSummeUeberschrift.Text = "Gutschriftsbetrag:"
@@ -3544,8 +3527,13 @@ Public Class cFakturierung
 
 
             If KD_RG IsNot Nothing AndAlso If(KD_RG.Steuernummer, "") <> String.Empty Then
+                If isMDMRechnungsdruck Then
+                    rpt.lblRechnung_Steuernummer.Text = If(KD_RG.Steuernummer, "").ToString.Trim
+                Else
                     rpt.lblRechnung_Steuernummer.Text = If(KD_RG.LandKz, "") & " " & If(KD_RG.Steuernummer, "").ToString.Trim
                     ' rpt.lblRechnung_UID.Text = If(KD_RG.UstIdKz, "") & " " & If(KD_RG.UstIdNr, "").ToString.Trim
+
+                End If
             Else
                 rpt.lblRechnung_Steuernummer.Text = ""
                 '   rpt.lblRechnung_UID.Text = ""
@@ -3561,13 +3549,20 @@ Public Class cFakturierung
             rpt.lblSteuerpflichtigUeberschrift.Visible = Not isMDMRechnungsdruck
             rpt.lblDurchlaufposten.Visible = isMDMRechnungsdruck
             rpt.lblSteuerplichtUeberschriftMDM.Visible = isMDMRechnungsdruck
-
+            rpt.lblEORI.Visible = Not isMDMRechnungsdruck
+            rpt.lblEORIUeberschrift.Visible = Not isMDMRechnungsdruck
+            rpt.txtAbfertigungsart.Visible = Not isMDMRechnungsdruck
 
 
             Dim sumSteuerpflichtig As Double = 0
             Dim sumSteuerfrei As Double = 0
 
-
+            If Sammelrechnungskopie Then
+                Select Case ROW("RechnungSprache")
+                    Case "EN" : rpt.lblUeberschriftRG_GS.Text &= " - COPY"
+                    Case Else : rpt.lblUeberschriftRG_GS.Text &= " - KOPIE"
+                End Select
+            End If
 
 
 
@@ -4201,6 +4196,9 @@ Public Class cFakturierung
 
                 Select Case If(Rechnugnsdruck > 0, Rechnugnsdruck, If(AD.Rechnungsdruck, 0))'If(AD.Rechnungsdruck, 0)
                     Case 0, 1 'DRUCKEN
+
+                        If isMDMRechnungsdruck Then Return True 'MDM-Sammelrechnungen nicht mitgeben!
+
                         Path = tmpPath 'wird für Therefore benötigt
                         Return cProgramFunctions.printRpt(rpt, PrinterName, False)
                             'Case 1 'FAX
@@ -4344,11 +4342,60 @@ Public Class cFakturierung
 
         'If (Rechnungsdruck = 7 OrElse Rechnungsdruck = 4 AndAlso (Status = 2 Or Status = 4)) Then Return True
 
-        If (Rechnungsdruck = 7 OrElse Rechnungsdruck = 4 AndAlso (Status = 2 Or Status = 4) OrElse Rechnungsdruck = 3 AndAlso (Status = 2 Or Status = 4) OrElse Rechnungsdruck = 2 AndAlso (Status = 2 Or Status = 4)) Then Return True
+        If (Rechnungsdruck = 7 OrElse Rechnungsdruck = 8 OrElse Rechnungsdruck = 4 AndAlso (Status = 2 Or Status = 4) OrElse Rechnungsdruck = 3 AndAlso (Status = 2 Or Status = 4) OrElse Rechnungsdruck = 2 AndAlso (Status = 2 Or Status = 4)) Then Return True
 
         Return False
 
 
 
+    End Function
+
+    Public Shared Function getRechnungsanshang(dt As DataTable, listAnh As List(Of String), extTyp As String)
+
+
+
+        Dim displayView = New DataView(dt, "", "RK_ID", DataViewRowState.CurrentRows)
+        Dim distinctDT_RK As DataTable = displayView.ToTable(True, "RK_ID")
+
+        For Each r In distinctDT_RK.Rows
+            Dim RG As New VERAG_PROG_ALLGEMEIN.cRechnungsausgang(r("RK_ID"))
+            If RG IsNot Nothing Then
+                RG.LOAD_ANHAENGE()
+                For Each RG_AH In RG.ANHAENGE.Where(Function(x) x.Bezeichnung.ToLower.EndsWith(extTyp))
+
+                    Select Case extTyp
+                        Case "pdf"
+                            If RG_AH.Bezeichnung.ToUpper.Contains("MAUT") Or RG_AH.Bezeichnung.ToUpper.Contains("DIESEL") Or RG_AH.Bezeichnung.ToUpper.Contains("INVOICE") Then
+                                Dim Path = VERAG_PROG_ALLGEMEIN.cDATENSERVER.GET_PDFPath_BY_DocID(RG_AH.dsId)
+                                If Not listAnh.Contains(Path) Then
+
+                                    If Not (listAnh.Any(Function(f) f.Contains("COPY_INVOICE")) And Path.ToUpper.Contains("COPY_INVOICE")) Then 'damit diesel IDS-Rechnung nicht doppelt hinzugefügt wird.
+                                        listAnh.Add(Path)
+
+                                    End If
+                                End If
+                            End If
+
+                        Case "csv"
+
+                            If RG_AH.Bezeichnung.ToUpper.Contains("MAUT") Then
+                                Dim Path = VERAG_PROG_ALLGEMEIN.cDATENSERVER.GET_PDFPath_BY_DocID(RG_AH.dsId)
+                                If Not listAnh.Contains(Path) Then
+
+                                    listAnh.Add(Path)
+
+                                End If
+                            End If
+
+
+                    End Select
+
+
+                Next
+            End If
+        Next
+
+
+
     End Function
 End Class

SDL/Fakturierung/frmAbrechnungsMaske.vb

@@ -1,4 +1,5 @@
-Imports DocumentFormat.OpenXml.Drawing.Diagrams
+Imports System.IO
+Imports DocumentFormat.OpenXml.Drawing.Diagrams
 Imports GrapeCity.DataVisualization.Chart
 Imports Microsoft.Office.Interop
 
@@ -797,7 +798,7 @@ Public Class frmAbrechnungsMaske
         If Not ContextMenuStrip1.Items.ContainsKey("3") Then
             Dim pdf = New ToolStripMenuItem() With {.Text = "PDF", .Name = "3", .Font = New Font(Me.Font.FontFamily, Me.Font.Size)}
             AddHandler pdf.Click, AddressOf mnuItem_Clicked
-            If cboFirma._value <> 19 Then ContextMenuStrip1.Items.Add(pdf)
+            ContextMenuStrip1.Items.Add(pdf)
         End If
 
         ContextMenuStrip1.Show(Cursor.Position)
@@ -816,9 +817,50 @@ Public Class frmAbrechnungsMaske
             Dim RK_ID = SQL.getValueTxtBySql("SELECT TOP 1 RK_ID FROM Rechnungsausgang WHERE RechnungsNr='" & SR_RechnungsNr & "' AND Firma_ID='" & cboFirma._value & "' ORDER BY DruckDatumZeit DESC", "FMZOLL")
             If IsNumeric(RK_ID) Then
                 Dim RG_TMP As New VERAG_PROG_ALLGEMEIN.cRechnungsausgang(RK_ID)
+                Dim sammelrechnungskopieMDM As Boolean = False
+                Dim sammelrechnungMDMmitAnhang As Boolean = False
                 If RG_TMP IsNot Nothing Then
                     'id mitübergeben (1_> drucken, 2 Email, 3 PDF)
-                    cFakturierung.doSAMMELRechnungsDruck_Abschnitt(RG_TMP.RechnungsNr, -1, -1, RG_TMP.DruckDatumZeit, "", False, , id,, True)
+                    If RG_TMP.Sammelrechnung = 6 Then
+                        If RG_TMP.Status = 4 Then sammelrechnungskopieMDM = True
+                        Dim tempPDF As String = ""
+                        Dim listOfCSV As New List(Of String)
+                        sammelrechnungMDMmitAnhang = MsgBox("Soll die MDM Sammelrechnung mit Anhang angezeigt werden?", vbYesNoCancel)
+                        cFakturierung.doSAMMELRechnungsDruck_Abschnitt(RG_TMP.RechnungsNr, -1, -1, RG_TMP.DruckDatumZeit, "", False, True, 8, tempPDF, True,,,,,,,,, sammelrechnungMDMmitAnhang, sammelrechnungskopieMDM, listOfCSV, True)
+
+                        Select Case id
+                            Case 1
+                               'aktuell keine Funktion PDF direkt zu drucken!
+                            Case 2
+                                Try
+                                    Dim outl As New Outlook.Application
+                                    Dim Mail As Microsoft.Office.Interop.Outlook.MailItem
+                                    Mail = outl.CreateItem(0)
+                                    Mail.Attachments.Add(tempPDF, Microsoft.Office.Interop.Outlook.OlAttachmentType.olByValue, , "Rechnung _" & RG_TMP.RechnungsNr & ".pdf")
+                                    If listOfCSV.Count > 0 Then
+                                        For Each r In listOfCSV
+                                            Dim file As New FileInfo(r)
+                                            Mail.Attachments.Add(r, Microsoft.Office.Interop.Outlook.OlAttachmentType.olByValue, , file.Name)
+                                        Next
+                                    End If
+                                    Mail.Display()
+
+                                Catch ex As Exception
+                                    MsgBox("Fehler bim Öffnen des Mail-Programmes. PDF wird geladen!")
+                                    Process.Start(tempPDF)
+                                End Try
+
+                            Case 3 'PDF + öffnen
+                                Process.Start(tempPDF)
+
+                        End Select
+
+
+                    Else
+                        cFakturierung.doSAMMELRechnungsDruck_Abschnitt(RG_TMP.RechnungsNr, -1, -1, RG_TMP.DruckDatumZeit, "", False, True, id,, True,,,,,,,,,)
+                    End If
+
+
                 End If
             End If
         End If

SDL/Fakturierung/frmFaktSammelRgDrucken.Designer.vb

@@ -25,6 +25,7 @@ Partial Class frmFaktSammelRgDrucken
         Me.components = New System.ComponentModel.Container()
         Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmFaktSammelRgDrucken))
         Me.pnl = New System.Windows.Forms.Panel()
+        Me.RadioButton5 = New System.Windows.Forms.RadioButton()
         Me.RadioButton6 = New System.Windows.Forms.RadioButton()
         Me.RadioButton4 = New System.Windows.Forms.RadioButton()
         Me.RadioButton3 = New System.Windows.Forms.RadioButton()
@@ -58,7 +59,7 @@ Partial Class frmFaktSammelRgDrucken
         Me.Label6 = New System.Windows.Forms.Label()
         Me.cboAbfertigungsart = New VERAG_PROG_ALLGEMEIN.MyComboBox()
         Me.Button2 = New System.Windows.Forms.Button()
-        Me.RadioButton5 = New System.Windows.Forms.RadioButton()
+        Me.cbxMWST = New System.Windows.Forms.CheckBox()
         Me.pnl.SuspendLayout()
         CType(Me.MyDatagridview1, System.ComponentModel.ISupportInitialize).BeginInit()
         Me.SuspendLayout()
@@ -79,6 +80,19 @@ Partial Class frmFaktSammelRgDrucken
         Me.pnl.Size = New System.Drawing.Size(113, 167)
         Me.pnl.TabIndex = 0
         '
+        'RadioButton5
+        '
+        Me.RadioButton5.AutoSize = True
+        Me.RadioButton5.Enabled = False
+        Me.RadioButton5.Location = New System.Drawing.Point(8, 118)
+        Me.RadioButton5.Name = "RadioButton5"
+        Me.RadioButton5.Size = New System.Drawing.Size(92, 17)
+        Me.RadioButton5.TabIndex = 6
+        Me.RadioButton5.TabStop = True
+        Me.RadioButton5.Tag = "6"
+        Me.RadioButton5.Text = "6 Maut/Diesel"
+        Me.RadioButton5.UseVisualStyleBackColor = True
+        '
         'RadioButton6
         '
         Me.RadioButton6.AutoSize = True
@@ -500,18 +514,19 @@ Partial Class frmFaktSammelRgDrucken
         Me.Button2.TextAlign = System.Drawing.ContentAlignment.MiddleRight
         Me.Button2.UseVisualStyleBackColor = True
         '
-        'RadioButton5
+        'cbxMWST
         '
-        Me.RadioButton5.AutoSize = True
+        Me.cbxMWST.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
-        Me.RadioButton5.Enabled = False
+        Me.cbxMWST.AutoSize = True
-        Me.RadioButton5.Location = New System.Drawing.Point(8, 118)
+        Me.cbxMWST.Checked = True
-        Me.RadioButton5.Name = "RadioButton5"
+        Me.cbxMWST.CheckState = System.Windows.Forms.CheckState.Indeterminate
-        Me.RadioButton5.Size = New System.Drawing.Size(92, 17)
+        Me.cbxMWST.Location = New System.Drawing.Point(707, 46)
-        Me.RadioButton5.TabIndex = 6
+        Me.cbxMWST.Name = "cbxMWST"
-        Me.RadioButton5.TabStop = True
+        Me.cbxMWST.Size = New System.Drawing.Size(94, 17)
-        Me.RadioButton5.Tag = "6"
+        Me.cbxMWST.TabIndex = 28
-        Me.RadioButton5.Text = "6 Maut/Diesel"
+        Me.cbxMWST.Text = "MWST-Kunde"
-        Me.RadioButton5.UseVisualStyleBackColor = True
+        Me.cbxMWST.ThreeState = True
+        Me.cbxMWST.UseVisualStyleBackColor = True
         '
         'frmFaktSammelRgDrucken
         '
@@ -519,6 +534,7 @@ Partial Class frmFaktSammelRgDrucken
         Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
         Me.BackColor = System.Drawing.Color.White
         Me.ClientSize = New System.Drawing.Size(811, 393)
+        Me.Controls.Add(Me.cbxMWST)
         Me.Controls.Add(Me.Button2)
         Me.Controls.Add(Me.Label6)
         Me.Controls.Add(Me.cboAbfertigungsart)
@@ -594,4 +610,5 @@ Partial Class frmFaktSammelRgDrucken
     Friend WithEvents cboAbfertigungsart As VERAG_PROG_ALLGEMEIN.MyComboBox
     Friend WithEvents Button2 As Button
     Friend WithEvents RadioButton5 As RadioButton
+    Friend WithEvents cbxMWST As CheckBox
 End Class

SDL/Fakturierung/frmFaktSammelRgDrucken.vb

@@ -26,7 +26,7 @@ Public Class frmFaktSammelRgDrucken
     End Sub
 
     Private Sub RadioButton_CheckedChanged(sender As Object, e As EventArgs) Handles RadioButton.CheckedChanged, RadioButton1.CheckedChanged, RadioButton2.CheckedChanged, RadioButton3.CheckedChanged, RadioButton4.CheckedChanged, RadioButton6.CheckedChanged, RadioButton5.CheckedChanged
-        lblSB.Visible = False : cboSB.Visible = False : btn.Enabled = True : Button9.Enabled = True : Button8.Enabled = True
+        lblSB.Visible = False : cboSB.Visible = False : btn.Enabled = True : Button9.Enabled = True : Button8.Enabled = True : cbxMWST.Visible = False
 
         cboSB.changeItem("")
         If DirectCast(sender, RadioButton).Checked Then Sammelrechung = sender.tag
@@ -49,7 +49,7 @@ Public Class frmFaktSammelRgDrucken
                 End If
             Case 5 : txtZeitraumBis.Text = Now.AddDays((Now.DayOfWeek) * -1).ToShortDateString
 
-            Case 6 : txtZeitraumBis.Text = Now.AddDays(-1).ToShortDateString : lblSB.Visible = True : cboSB.Visible = True : cboSB.changeItem(VERAG_PROG_ALLGEMEIN.cAllgemein.USRKURZNAME) : btn.Enabled = False : Button9.Enabled = False : Button2.Enabled = False
+            Case 6 : txtZeitraumBis.Text = Now.AddDays(-1).ToShortDateString : lblSB.Visible = True : cboSB.Visible = True : cboSB.changeItem(VERAG_PROG_ALLGEMEIN.cAllgemein.USRKURZNAME) : btn.Enabled = False : Button9.Enabled = False : Button2.Enabled = False : cbxMWST.Visible = True
 
             Case 7 : txtZeitraumBis.Text = Now.ToShortDateString : lblSB.Visible = True : cboSB.Visible = True : cboSB.changeItem(VERAG_PROG_ALLGEMEIN.cAllgemein.USRKURZNAME)
         End Select
@@ -62,8 +62,9 @@ Public Class frmFaktSammelRgDrucken
     Sub initDGV()
         With MyDatagridview1
             Dim whereAbfArt = ""
+            Dim whereMWST = ""
             If cboAbfertigungsart._value <> "" Then whereAbfArt = " AND (SELECT Abfertigungsart FROM Speditionsbuch WHERE Speditionsbuch.FilialenNr=Rechnungsausgang.FilialenNr and Speditionsbuch.AbfertigungsNr=Rechnungsausgang.AbfertigungsNr and Speditionsbuch.UnterNr=Rechnungsausgang.SpeditionsbuchUnterNr)='" & cboAbfertigungsart._value & "'  "
-
+            If Not cbxMWST.CheckState.Indeterminate Then whereMWST = "AND isnull(tblKundenErweitert.kde_keineMWSt,0) = " & IIf(cbxMWST.Checked, "1", "0")
             Dim sqlStr = ""
 
             Select Case Sammelrechung
@@ -72,11 +73,11 @@ Public Class frmFaktSammelRgDrucken
 
                     sqlStr = " SELECT Rechnungsausgang.RechnungsKundenNr, max(Rechnungsausgang.[RechnungsName 1]) as [RechnungsName 1],0 as AvisoId,max(Rechnungsausgang.[RechnungsLandKz]) as [RechnungsLandKz] , count(*) as Anzahl, SUM(Rechnungsausgang.SteuerfreierGesamtbetrag + Rechnungsausgang.SteuerpflichtigerGesamtbetrag) AS Summe 
                             ,(SELECT CASE WHEN Rechnungsdruck =0 THEN 'POST' WHEN Rechnungsdruck=1 THEN 'FAX' WHEN Rechnungsdruck=2 THEN 'E-MAIL' ELSE '-' END FROM Adressen WHERE AdressenNr=Rechnungsausgang.RechnungsKundenNr ) as Rechnungsdruck 
-                             FROM Rechnungsausgang  
+                             FROM Rechnungsausgang left  join tblKundenErweitert on tblKundenErweitert.kde_KundenNr = Rechnungsausgang.RechnungsKundenNr   
 	                         WHERE Rechnungsausgang.Status IN (2) And Rechnungsausgang.Firma_ID = '" & cboFirma._value & "' And Rechnungsausgang.Sammelrechnung = '6' And CONVERT(DATE,Rechnungsausgang.Abfertigungsdatum,104) = '" & txtZeitraumBis._value & "'
                                 " & If(cboSB._value <> "", " AND Rechnungsausgang.Sachbearbeiter='" & cboSB._value & "' ", "") & "
                                 " & whereAbfArt & "
-                                /*AND Rechnungsausgang.FakturierungsGruppe='" & cboFaktGrp._value & "'*/ 
+                                /*AND Rechnungsausgang.FakturierungsGruppe='" & cboFaktGrp._value & "' */ " & whereMWST & "
                               GROUP BY RechnungsKundenNr
                               ORDER BY Rechnungsausgang.RechnungsKundenNr "
 
@@ -111,7 +112,7 @@ Public Class frmFaktSammelRgDrucken
             .Columns("Rechnungsdruck").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
             .Columns("Anzahl").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
             .Columns(2).Visible = False
-            If .Columns.Count = 8 Then
+            If .Columns.Contains("LKW") And .Columns.Count = 8 Then
                 .Columns("LKW").Width = 80
             End If
 
@@ -454,4 +455,8 @@ Public Class frmFaktSammelRgDrucken
     Private Sub cboAbfertigungsart_SelectedIndexChanged(sender As Object, e As EventArgs) Handles cboAbfertigungsart.SelectedIndexChanged
         initDGV()
     End Sub
+
+    Private Sub cbxMWST_Click(sender As Object, e As EventArgs) Handles cbxMWST.Click
+        initDGV()
+    End Sub
 End Class

SDL/Fakturierung/frmRechnungenSuche.vb

@@ -88,7 +88,7 @@ Public Class frmRechnungenSuche
             .Columns("SteuerfreierGesamtbetrag").DefaultCellStyle.Format = "N2"
 
             lblErgebnis.Text = "Ergebnisse: " & .RowCount
-            lblunterschRe.Text = "Anz. untersch. Belege: " & .Rows.Cast(Of DataGridViewRow)().[Select](Function(r) CInt(r.Cells("RechnungsNr").Value)).Distinct().Count()
+            lblunterschRe.Text = "Anz. untersch. Belege: " & .Rows.Cast(Of DataGridViewRow)().[Select](Function(r) CInt(IIf(Not IsDBNull(r.Cells("RechnungsNr").Value), r.Cells("RechnungsNr").Value, 0))).Distinct().Count()
 
         End With
         brexitXLS = False

SDL/Fakturierung/rptSammelRechnungAnlagenDruck.Designer.vb

@@ -1039,7 +1039,7 @@ Partial Public Class rptSammelRechnungAnlagenDruck
         'GroupHeader4
         '
         Me.GroupHeader4.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.lblLeistungsdatumUeberschrift, Me.lblSteuerpflichtigUeberschrift, Me.lblPosNrUeberschrift, Me.lblSendungUeberschrift, Me.lblSteuerfreiUeberschrift, Me.Line4, Me.Line12, Me.Line16, Me.Line15, Me.Line17, Me.lblDurchlaufposten, Me.lblSteuerplichtUeberschriftMDM})
-        Me.GroupHeader4.Height = 0.2361433!
+        Me.GroupHeader4.Height = 0.2673933!
         Me.GroupHeader4.KeepTogether = True
         Me.GroupHeader4.Name = "GroupHeader4"
         '
@@ -1173,21 +1173,21 @@ Partial Public Class rptSammelRechnungAnlagenDruck
         'lblDurchlaufposten
         '
         Me.lblDurchlaufposten.DataField = ""
-        Me.lblDurchlaufposten.Height = 0.1433071!
+        Me.lblDurchlaufposten.Height = 0.3610236!
         Me.lblDurchlaufposten.HyperLink = Nothing
-        Me.lblDurchlaufposten.Left = 5.86378!
+        Me.lblDurchlaufposten.Left = 6.270079!
         Me.lblDurchlaufposten.Name = "lblDurchlaufposten"
         Me.lblDurchlaufposten.Style = "color: Black; font-size: 6.75pt; font-weight: bold; text-align: right; ddo-char-s" &
     "et: 0"
-        Me.lblDurchlaufposten.Text = "Durchlaufposten /nicht steuerbar"
+        Me.lblDurchlaufposten.Text = "DURCHLAUFPOSTEN/" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "nicht steuerbar"
         Me.lblDurchlaufposten.Top = 0!
         Me.lblDurchlaufposten.Visible = False
-        Me.lblDurchlaufposten.Width = 1.616536!
+        Me.lblDurchlaufposten.Width = 1.210237!
         '
         'lblSteuerplichtUeberschriftMDM
         '
         Me.lblSteuerplichtUeberschriftMDM.DataField = ""
-        Me.lblSteuerplichtUeberschriftMDM.Height = 0.1433071!
+        Me.lblSteuerplichtUeberschriftMDM.Height = 0.2362205!
         Me.lblSteuerplichtUeberschriftMDM.HyperLink = Nothing
         Me.lblSteuerplichtUeberschriftMDM.Left = 4.761418!
         Me.lblSteuerplichtUeberschriftMDM.Name = "lblSteuerplichtUeberschriftMDM"
@@ -1318,7 +1318,7 @@ Partial Public Class rptSammelRechnungAnlagenDruck
     Private WithEvents lblUIDUeberschrift As GrapeCity.ActiveReports.SectionReportModel.Label
     Private WithEvents Line1 As GrapeCity.ActiveReports.SectionReportModel.Line
     Private WithEvents Line5 As GrapeCity.ActiveReports.SectionReportModel.Line
-    Private WithEvents lblEORIUeberschrift As GrapeCity.ActiveReports.SectionReportModel.Label
+    Public WithEvents lblEORIUeberschrift As GrapeCity.ActiveReports.SectionReportModel.Label
     Private WithEvents lblBankUeberschrift As GrapeCity.ActiveReports.SectionReportModel.Label
     Public WithEvents txtDisclaimer As GrapeCity.ActiveReports.SectionReportModel.TextBox
     Public WithEvents lblRgNr As GrapeCity.ActiveReports.SectionReportModel.Label

SDL/My Project/AssemblyInfo.vb

@@ -31,5 +31,5 @@ Imports System.Runtime.InteropServices
 ' übernehmen, indem Sie "*" eingeben:
 ' <Assembly: AssemblyVersion("1.0.*")> 
 
-<Assembly: AssemblyVersion("1.3.5.4")>
+<Assembly: AssemblyVersion("1.3.5.5")>
-<Assembly: AssemblyFileVersion("1.3.5.4")>
+<Assembly: AssemblyFileVersion("1.3.5.5")>