Mahnlauf, FaktAbrechnung, Fremdrechnungen, MDM-Functions

SDL/Fakturierung/usrCntlFaktAbrechnung.vb

@@ -565,14 +565,18 @@ Public Class usrCntlFaktAbrechnung
         cboRechnungSprache.changeItem(0)
 
         cboRgArt.Items.Clear()
-        If SPEDBUCH IsNot Nothing AndAlso SPEDBUCH.Abfertigungsart = 100 Then
-            cboRgArt.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("RG-Kopf", "RK"))
-        Else
-            cboRgArt.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Standard", "RG"))
-            cboRgArt.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Unvollständig", "RU"))
-        End If
-        cboRgArt.changeItem(0)
 
+        If FirmaTmp = "VERAG360" Then
+            cboRgArt.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Standard", "RG"))
+        Else
+            If SPEDBUCH IsNot Nothing AndAlso SPEDBUCH.Abfertigungsart = 100 Then
+                cboRgArt.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("RG-Kopf", "RK"))
+            Else
+                cboRgArt.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Standard", "RG"))
+                cboRgArt.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Unvollständig", "RU"))
+            End If
+            cboRgArt.changeItem(0)
+        End If
 
         'cboSteuerschlüssel.fillWithSQL("SELECT tblSteuersätze.Nr, tblSteuersätze.Beschreibung FROM tblSteuersätze ORDER BY tblSteuersätze.Nr; ", False, "FMZOLL", True)
         cboSteuerschlüssel.fillWithSQL("SELECT [Steuerschlüssel],isnull([AuswahlSteuerbezeichnung],'') as Steuerbezeichnung FROM [Steuertabelle] ORDER BY [Steuerschlüssel]", False, "FMZOLL", True)

SDL/My Project/AssemblyInfo.vb

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

SDL/USTV/frmMDM_USTVAntrag.vb

@@ -2287,7 +2287,7 @@ Public Class frmMDM_USTVAntrag
 
         Dim dt = SQL.loadDgvBySql(sqlStr, "FMZOLL")
         If dt IsNot Nothing AndAlso dt.Rows.Count > 0 Then
-            filepath = VERAG_PROG_ALLGEMEIN.cProgramFunctions.genExcelFromDT_NEW(dt, {"N1:N" & (dt.Rows.Count + 1), "O1:O" & (dt.Rows.Count + 1), "P1:P" & (dt.Rows.Count + 1)},,,, openExcel,,, True)
+            filepath = VERAG_PROG_ALLGEMEIN.cProgramFunctions.genExcelFromDT_NEW_(dt, {"N1:N" & (dt.Rows.Count + 1), "O1:O" & (dt.Rows.Count + 1), "P1:P" & (dt.Rows.Count + 1)},,,, IIf(USTV_ANTRAG.UStVAn_Währungscode = "EUR", "€", ""), True,,,, openExcel)
             Return True
         Else
             If feedback Then MsgBox("keine Daten vorhanden!")

SDL/buchhaltung/frmBU_Mahnlauf.Designer.vb

@@ -25,6 +25,8 @@ Partial Class frmBU_Mahnlauf
         Me.components = New System.ComponentModel.Container()
         Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmBU_Mahnlauf))
         Me.Panel1 = New System.Windows.Forms.Panel()
+        Me.lblBetreuer = New System.Windows.Forms.Label()
+        Me.cboBetreuer = New VERAG_PROG_ALLGEMEIN.MyComboBox()
         Me.cbxKontotyp = New VERAG_PROG_ALLGEMEIN.MyComboBox()
         Me.txtZahlEingaenge = New VERAG_PROG_ALLGEMEIN.MyTextBox()
         Me.cbxZahlungseingaenge = New System.Windows.Forms.CheckBox()
@@ -62,8 +64,7 @@ Partial Class frmBU_Mahnlauf
         Me.Button2 = New System.Windows.Forms.Button()
         Me.Button1 = New System.Windows.Forms.Button()
         Me.MyTextBox2 = New VERAG_PROG_ALLGEMEIN.MyTextBox()
-        Me.cboBetreuer = New VERAG_PROG_ALLGEMEIN.MyComboBox()
+        Me.cbxNewDGV = New System.Windows.Forms.CheckBox()
-        Me.lblBetreuer = New System.Windows.Forms.Label()
         Me.Panel1.SuspendLayout()
         Me.pnlTop.SuspendLayout()
         Me.Panel2.SuspendLayout()
@@ -73,6 +74,7 @@ Partial Class frmBU_Mahnlauf
         '
         'Panel1
         '
+        Me.Panel1.Controls.Add(Me.cbxNewDGV)
         Me.Panel1.Controls.Add(Me.lblBetreuer)
         Me.Panel1.Controls.Add(Me.cboBetreuer)
         Me.Panel1.Controls.Add(Me.cbxKontotyp)
@@ -95,6 +97,28 @@ Partial Class frmBU_Mahnlauf
         Me.Panel1.Size = New System.Drawing.Size(1514, 132)
         Me.Panel1.TabIndex = 0
         '
+        'lblBetreuer
+        '
+        Me.lblBetreuer.AutoSize = True
+        Me.lblBetreuer.Location = New System.Drawing.Point(329, 114)
+        Me.lblBetreuer.Name = "lblBetreuer"
+        Me.lblBetreuer.Size = New System.Drawing.Size(50, 13)
+        Me.lblBetreuer.TabIndex = 50
+        Me.lblBetreuer.Text = "Betreuer:"
+        Me.lblBetreuer.Visible = False
+        '
+        'cboBetreuer
+        '
+        Me.cboBetreuer._allowedValuesFreiText = Nothing
+        Me.cboBetreuer._allowFreiText = False
+        Me.cboBetreuer._value = ""
+        Me.cboBetreuer.FormattingEnabled = True
+        Me.cboBetreuer.Location = New System.Drawing.Point(410, 111)
+        Me.cboBetreuer.Name = "cboBetreuer"
+        Me.cboBetreuer.Size = New System.Drawing.Size(97, 21)
+        Me.cboBetreuer.TabIndex = 49
+        Me.cboBetreuer.Visible = False
+        '
         'cbxKontotyp
         '
         Me.cbxKontotyp._allowedValuesFreiText = Nothing
@@ -602,27 +626,18 @@ Partial Class frmBU_Mahnlauf
         Me.MyTextBox2.TabIndex = 39
         Me.MyTextBox2.TextAlign = System.Windows.Forms.HorizontalAlignment.Right
         '
-        'cboBetreuer
+        'cbxNewDGV
         '
-        Me.cboBetreuer._allowedValuesFreiText = Nothing
+        Me.cbxNewDGV.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
-        Me.cboBetreuer._allowFreiText = False
+        Me.cbxNewDGV.AutoSize = True
-        Me.cboBetreuer._value = ""
+        Me.cbxNewDGV.Checked = True
-        Me.cboBetreuer.FormattingEnabled = True
+        Me.cbxNewDGV.CheckState = System.Windows.Forms.CheckState.Checked
-        Me.cboBetreuer.Location = New System.Drawing.Point(410, 111)
+        Me.cbxNewDGV.Location = New System.Drawing.Point(1118, 54)
-        Me.cboBetreuer.Name = "cboBetreuer"
+        Me.cbxNewDGV.Name = "cbxNewDGV"
-        Me.cboBetreuer.Size = New System.Drawing.Size(97, 21)
+        Me.cbxNewDGV.Size = New System.Drawing.Size(88, 17)
-        Me.cboBetreuer.TabIndex = 49
+        Me.cbxNewDGV.TabIndex = 51
-        Me.cboBetreuer.Visible = False
+        Me.cbxNewDGV.Text = "neue Ansicht"
-        '
+        Me.cbxNewDGV.UseVisualStyleBackColor = True
-        'lblBetreuer
-        '
-        Me.lblBetreuer.AutoSize = True
-        Me.lblBetreuer.Location = New System.Drawing.Point(329, 114)
-        Me.lblBetreuer.Name = "lblBetreuer"
-        Me.lblBetreuer.Size = New System.Drawing.Size(50, 13)
-        Me.lblBetreuer.TabIndex = 50
-        Me.lblBetreuer.Text = "Betreuer:"
-        Me.lblBetreuer.Visible = False
         '
         'frmBU_Mahnlauf
         '
@@ -689,4 +704,5 @@ Partial Class frmBU_Mahnlauf
     Friend WithEvents Label9 As Label
     Friend WithEvents lblBetreuer As Label
     Friend WithEvents cboBetreuer As VERAG_PROG_ALLGEMEIN.MyComboBox
+    Friend WithEvents cbxNewDGV As CheckBox
 End Class

SDL/buchhaltung/frmBU_Mahnlauf.vb

@@ -8,10 +8,10 @@ Public Class frmBU_Mahnlauf
     Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL
     Dim listOfTextconserven As cTextkonserve_LIST
     Private Sub btnSuche_Click(sender As Object, e As EventArgs) Handles btnSuche.Click
-        initDGV(cbxZahlungseingaenge.Checked)
+        initDGV(cbxZahlungseingaenge.Checked, cbxNewDGV.Checked)
     End Sub
 
-    Sub initDGV(Optional zahlungseingaenge As Boolean = False)
+    Sub initDGV(Optional zahlungseingaenge As Boolean = False, Optional newDGV As Boolean = False)
         With MyDatagridview1
             .Columns.Clear()
 
@@ -45,6 +45,57 @@ Public Class frmBU_Mahnlauf
                          " & If(MyComboBox1._value > 0, " and max(si_mahnstufe)>='" & MyComboBox1._value & "'", "") & "
                       ORDER BY KTO.c_name"
 
+            Dim sqlStr_New = "WITH EmailCTE AS (
+                               SELECT
+                                   kkd_KundenNr," & IIf(Firma_ID = 7, "MAX(CASE WHEN kkd_kkaId = 18 THEN kkd_Email END) AS EmailMAhnungAtilla", "") & ",MAX(CASE WHEN kkd_kkaId = 10 THEN kkd_Email END) AS EmailMahnung
+                               FROM [FMZOLL\SQLFMZOLL].[VERAG].[dbo].[tblKundenKontakt]
+                               WHERE kkd_kkaId IN (" & IIf(Firma_ID = 7, "10, 18", "10") & ")
+                               GROUP BY kkd_KundenNr
+                           )
+                           SELECT
+                               OP.i_personenkonto                     AS Konto,
+                               KTO.c_name,
+                               KTO.c_landid                           AS Land,
+                               KTO.c_plz + ' ' + KTO.c_ort            AS Ort,
+                               COALESCE(" & IIf(Firma_ID = 7, "E.EmailMAhnungAtilla,", "") & "E.EmailMahnung, '')  AS Email,
+                               ISNULL(K.VK, '')                       AS VK,
+                               KTO.c_zahlziel                         AS Zahlungsziel,
+                               COUNT(*)                               AS Anzahl,
+                               SUM(OP.eur_bruttobetrag + OP.eur_zahlung) AS Ausstand,
+                               MIN(OP.d_netto)                        AS Faelligkeit,
+                               MAX(OP.si_mahnstufe)                   AS Mahnstufe,
+                               CAST(MAX(OP.d_mahnung) AS date)        AS Mahndatum," &
+                               If(cbxNurFaellig.Checked, "", "SUM(CASE WHEN OP.d_netto<getDATE() THEN (eur_bruttobetrag+eur_zahlung) ELSE 0 END) Summe_Faellig,") & "
+                               CAST(ISNULL(si_mahnung,0) AS bit)   AS mahnbar
+                           FROM op_debitor OP
+                           JOIN fibu_konto KTO
+                               ON OP.i_personenkonto = KTO.i_konto
+                              AND OP.i_firm_refid    = KTO.i_firm_refid
+                           LEFT JOIN EmailCTE E ON E.kkd_KundenNr = OP.i_personenkonto
+                           LEFT JOIN (
+                               SELECT KundenNr, Vorkasse AS VK
+                               FROM [FMZOLL\SQLFMZOLL].[VERAG].[dbo].Kunden
+                           ) K
+                               ON K.KundenNr = OP.i_personenkonto
+                           WHERE OP.i_firm_refid = '" & Firma_ID & "'
+                             AND OP.dt_geloescht IS NULL" & If(cbxNurFaellig.Checked, " AND OP.d_netto <= GETDATE() AND ISNULL(si_mahnflags,0) <> 1  ", "") & "
+                             " & If(KdNr > 0, " AND i_personenkonto ='" & KdNr & "'", "") & "
+                            " & If(KdTxt <> "", " AND KTO.c_name LIKE '" & KdTxt.Replace("*", "%") & "'", "") & "
+                           GROUP BY
+                               OP.i_personenkonto,
+                               KTO.c_name,
+                               KTO.c_landid,
+                               KTO.c_plz,
+                               KTO.c_ort,
+                               KTO.c_zahlziel,
+                               ISNULL(si_mahnung,0),
+                               COALESCE(" & IIf(Firma_ID = 7, "E.EmailMAhnungAtilla,", "") & "E.EmailMahnung, ''),
+                               ISNULL(K.VK,'')
+                           HAVING SUM(OP.eur_bruttobetrag + OP.eur_zahlung) > '" & MyTextBox1._value & "'
+                           ORDER BY KTO.c_name;"
+
+
+
             Dim sqlStringVerag360 = "SELECT i_personenkonto Konto,KTO.c_name, KTO.c_landid Land,Kunden.Abfertigungsverbot as AV,max(KTO.dec_aktuellersaldo) as Saldo,/*KTO.c_plz + ' ' + KTO.c_ort Ort,isnull(KTO.c_email,'') Email, */  " &
                              "sum(eur_bruttobetrag+eur_zahlung) as Ausstand,cast(min(d_rechnung)as date) as 'ältesteRg',/*min(op.d_netto) Faelligkeit,*/max(si_mahnstufe) as MS,max(Kunden.UStV_Summe3470BetragEUR) as '3470',max(Kunden.Versicherungssumme) as V, 
                              
@@ -94,7 +145,7 @@ Public Class frmBU_Mahnlauf
 
 
             'MsgBox(sqlStr)
-            Dim dt_OP As DataTable = SQL.loadDgvBySql(If(Firma_ID = 19, IIf(zahlungseingaenge, sqlStringVerag360Zahlungseingaenge, sqlStringVerag360), sqlStr), "FIBU")
+            Dim dt_OP As DataTable = SQL.loadDgvBySql(If(Firma_ID = 19, IIf(zahlungseingaenge, sqlStringVerag360Zahlungseingaenge, sqlStringVerag360), IIf(newDGV, sqlStr_New, sqlStr)), "FIBU")
 
             .DataSource = dt_OP
             If .Columns.Count = 0 Then Exit Sub
@@ -1524,12 +1575,14 @@ Public Class frmBU_Mahnlauf
             cbxZahlungseingaenge.Visible = True
             cboBetreuer.Visible = True
             lblBetreuer.Visible = True
+            cbxNewDGV.Visible = False
 
         Else
             cbxZahlungseingaenge.Visible = False
             cbxZahlungseingaenge.Checked = False
             cboBetreuer.Visible = False
             lblBetreuer.Visible = False
+            cbxNewDGV.Visible = True
 
         End If
     End Sub
@@ -1541,7 +1594,7 @@ Public Class frmBU_Mahnlauf
                 If Not VERAG_PROG_ALLGEMEIN.cSyska_Interface.OP_Einlesen(cboFirma._value) Then
                     MsgBox("Fehler beim aktualisieren der OPs aus Syska!")
                 Else
-                    initDGV(cbxZahlungseingaenge.Checked)
+                    initDGV(cbxZahlungseingaenge.Checked, cbxNewDGV.Checked)
                 End If
 
 

SDL/mdm/frmMDMDatenverarbetiung.vb

@@ -34,7 +34,7 @@ Public Class frmMDMDatenverarbetiung
 
     Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
         Select Case LIEFERANT
-            Case "PLOSE" : genSummenbericht_PLOSE()
+            Case "PLOSE" : genSummenbericht_PLOSE() : genSummenbericht_nachLand_PLOSE()
             Case "ASFINAG" : genSummenbericht_ASFINAG()
             Case "UTA" : genSummenbericht_UTA()
             Case "IDS" : genSummenbericht_IDS(17, cbxIDSmitVerag.Checked) : genSummenbericht_IDS(21, cbxIDSmitVerag.Checked)
@@ -303,6 +303,100 @@ Public Class frmMDMDatenverarbetiung
         print.Show()
     End Sub
 
+    Sub genSummenbericht_nachLand_PLOSE()
+        Dim displayFilter = False
+        Dim sqlstr As String = ""
+        sqlstr = "SELECT
+                    COUNT(*) AS Anzahl,
+                    [plInv_SupplierCountry],
+                    SUM([plInv_Nettobetrag])   AS plose_Nettobetrag,
+                    SUM([plInv_MWSTBetrag])    AS plose_MWSTBetrag,
+                    SUM([plInv_Bruttobetrag])  AS plose_Bruttobetrag,
+                    isnull([plInv_Currency],'EUR')            AS Währung
+                FROM [tblPLOSE_Inv_Data]
+                WHERE [plInv_SupplierRechnungsDatum] >= (
+                    SELECT MIN(plose_RechnungsDatum)
+                    FROM tblPLOSE_Details
+                    WHERE plose_DatumTransaktion BETWEEN '" & dat_Sum_Von.Value & "' and '" & dat_Sum_Bis.Value & "'
+                      AND plose_Fakturiert = 0
+                      AND plose_ProduktCode NOT IN (" & ProduktCode_NOT_IN & ")
+                )
+                GROUP BY
+                    [plInv_SupplierCountry],
+                    [plInv_Currency]
+                ORDER BY
+                    [plInv_SupplierCountry]"
+
+
+        Dim dt As DataTable = SQL.loadDgvBySql_Param(sqlstr, "FMZOLL")
+        'DataGridView.DataSource = dt
+
+
+        Dim print As New frmPrintLayout
+        print.Text = "PLOSE"
+
+        Dim rpt As New rptPLOSE_TransaktionenSumary
+
+        rpt.DataSource = dt
+
+
+        'If cbxProdukt.Checked Then
+        '    rpt.GroupHeader2.DataField = "prod_descr"
+        'Else
+        '    rpt.GroupHeader2.Visible = False
+        '    rpt.GroupFooter2.Visible = False
+        'End If
+
+
+
+        Dim sum = 0
+        rpt.lblUeberschrift.Text = "PLOSE Summenbericht nach Land " & dat_Sum_Von.Text & " bis " & dat_Sum_Bis.Text
+        rpt.lblSachbearbeiter.Text = VERAG_PROG_ALLGEMEIN.cAllgemein.USRNAME
+        'rpt.lblMandantNiederlassung.Text = PERSONAL.Mandant & "  /  " & PERSONAL.Niederlassung
+
+        'Dim cnt As Integer = 0
+        rpt.lblDat.Text = Now.ToLongDateString
+
+
+        Dim sumPreis As Double = 0
+        Dim sumNetto As Double = 0
+        Dim sumMWST As Double = 0
+        Dim sumBrutto As Double = 0
+        Dim sumMenge As Double = 0
+
+        AddHandler rpt.Detail.Format, Sub()
+                                          '   rpt.lblProduktBeschreibung.Text = isDbnullEmpty(rpt.Fields.Item("BC_DESCR").Value, "")
+                                          rpt.lblAnzahl.Text = SQL.isDbnullEmpty(rpt.Fields.Item("Anzahl").Value, "")
+                                          rpt.lblProdukt.Text = SQL.isDbnullEmpty(rpt.Fields.Item("plInv_SupplierCountry").Value, "")
+                                          rpt.lblMenge.Text = SQL.isDbnullEmpty(rpt.Fields.Item("Währung").Value, "")
+                                          ' rpt.lblPreis.Text = SQL.isDbnullEmptyDbl(rpt.Fields.Item("plose_Preis").Value, 2, "")
+                                          rpt.lblNetto.Text = SQL.isDbnullEmptyDbl(rpt.Fields.Item("plose_Nettobetrag").Value, 2, "")
+                                          rpt.lblMWST.Text = SQL.isDbnullEmptyDbl(rpt.Fields.Item("plose_MWSTBetrag").Value, 2, "")
+                                          rpt.lblBrutto.Text = SQL.isDbnullEmptyDbl(rpt.Fields.Item("plose_Bruttobetrag").Value, 2, "")
+
+
+
+                                          sumNetto += SQL.isDbnullEmptyDbl(rpt.Fields.Item("plose_Nettobetrag").Value, 4, 0)
+                                          sumMWST += SQL.isDbnullEmptyDbl(rpt.Fields.Item("plose_MWSTBetrag").Value, 4, 0)
+                                          sumBrutto += SQL.isDbnullEmptyDbl(rpt.Fields.Item("plose_Bruttobetrag").Value, 4, 0)
+
+                                      End Sub
+
+
+        AddHandler rpt.ReportFooter1.Format, Sub()
+                                                 rpt.lblSumMenge.Text = sumMenge.ToString("N0")
+                                                 'rpt.lblSumPreis.Text = sumPreis.ToString("N2")
+                                                 rpt.lblSumNetto.Text = sumNetto.ToString("N2")
+                                                 rpt.lblSumMwst.Text = sumMWST.ToString("N2")
+                                                 rpt.lblSumBrutto.Text = sumBrutto.ToString("N2")
+
+                                             End Sub
+
+        print.Viewer.LoadDocument(rpt)
+        print.Viewer.ViewType = GrapeCity.Viewer.Common.Model.ViewType.Continuous
+        print.Show()
+    End Sub
+
     Sub genSummenbericht_ASFINAG()
         Dim displayFilter = False
         Dim sqlstr As String = ""

SDL/mdm/usrcntlFremdrechnungen.Designer.vb

@@ -23,8 +23,8 @@ Partial Class usrcntlFremdrechnungen
     <System.Diagnostics.DebuggerStepThrough()>
     Private Sub InitializeComponent()
         Me.components = New System.ComponentModel.Container()
-        Dim DataGridViewCellStyle1 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle3 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
-        Dim DataGridViewCellStyle2 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle4 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
         Me.DetailsAnzeigenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
         Me.FlowLayoutPanel = New System.Windows.Forms.FlowLayoutPanel()
         Me.btnSDL_Alle = New System.Windows.Forms.Button()
@@ -37,7 +37,6 @@ Partial Class usrcntlFremdrechnungen
         Me.btnSDL_PLOSE = New System.Windows.Forms.Button()
         Me.btnSDL_RMC = New System.Windows.Forms.Button()
         Me.ContextMenuStrip1 = New System.Windows.Forms.ContextMenuStrip(Me.components)
-        Me.KundenblattAnzeigenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
         Me.Panel1 = New System.Windows.Forms.Panel()
         Me.cbxTest = New System.Windows.Forms.CheckBox()
         Me.Label7 = New System.Windows.Forms.Label()
@@ -66,10 +65,7 @@ Partial Class usrcntlFremdrechnungen
         Me.dgvLFRechnung = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components)
         Me.dgvDetails = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components)
         Me.Panel4 = New System.Windows.Forms.Panel()
-        Me.cntxtExcel = New System.Windows.Forms.ContextMenuStrip(Me.components)
+        Me.PDFLöschenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
-        Me.ToolStripMenuItem3 = New System.Windows.Forms.ToolStripMenuItem()
-        Me.ToolStripMenuItem6 = New System.Windows.Forms.ToolStripMenuItem()
-        Me.ContextMenuStrip2 = New System.Windows.Forms.ContextMenuStrip(Me.components)
         Me.FlowLayoutPanel.SuspendLayout()
         Me.ContextMenuStrip1.SuspendLayout()
         Me.Panel1.SuspendLayout()
@@ -81,14 +77,14 @@ Partial Class usrcntlFremdrechnungen
         CType(Me.dgvLFRechnung, System.ComponentModel.ISupportInitialize).BeginInit()
         CType(Me.dgvDetails, System.ComponentModel.ISupportInitialize).BeginInit()
         Me.Panel4.SuspendLayout()
-        Me.cntxtExcel.SuspendLayout()
         Me.SuspendLayout()
         '
         'DetailsAnzeigenToolStripMenuItem
         '
+        Me.DetailsAnzeigenToolStripMenuItem.Image = Global.SDL.My.Resources.Resources.pdf
         Me.DetailsAnzeigenToolStripMenuItem.Name = "DetailsAnzeigenToolStripMenuItem"
-        Me.DetailsAnzeigenToolStripMenuItem.Size = New System.Drawing.Size(189, 22)
+        Me.DetailsAnzeigenToolStripMenuItem.Size = New System.Drawing.Size(154, 22)
-        Me.DetailsAnzeigenToolStripMenuItem.Text = "Details anzeigen"
+        Me.DetailsAnzeigenToolStripMenuItem.Text = "PDF hochladen"
         '
         'FlowLayoutPanel
         '
@@ -268,15 +264,9 @@ Partial Class usrcntlFremdrechnungen
         '
         'ContextMenuStrip1
         '
-        Me.ContextMenuStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.DetailsAnzeigenToolStripMenuItem, Me.KundenblattAnzeigenToolStripMenuItem})
+        Me.ContextMenuStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.DetailsAnzeigenToolStripMenuItem, Me.PDFLöschenToolStripMenuItem})
         Me.ContextMenuStrip1.Name = "ContextMenuStrip1"
-        Me.ContextMenuStrip1.Size = New System.Drawing.Size(190, 48)
+        Me.ContextMenuStrip1.Size = New System.Drawing.Size(155, 48)
-        '
-        'KundenblattAnzeigenToolStripMenuItem
-        '
-        Me.KundenblattAnzeigenToolStripMenuItem.Name = "KundenblattAnzeigenToolStripMenuItem"
-        Me.KundenblattAnzeigenToolStripMenuItem.Size = New System.Drawing.Size(189, 22)
-        Me.KundenblattAnzeigenToolStripMenuItem.Text = "Kundenblatt anzeigen"
         '
         'Panel1
         '
@@ -489,7 +479,7 @@ Partial Class usrcntlFremdrechnungen
         Me.Button1.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Stretch
         Me.Button1.FlatStyle = System.Windows.Forms.FlatStyle.Flat
         Me.Button1.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
-        Me.Button1.Location = New System.Drawing.Point(5, 322)
+        Me.Button1.Location = New System.Drawing.Point(11, 322)
         Me.Button1.Name = "Button1"
         Me.Button1.Size = New System.Drawing.Size(50, 44)
         Me.Button1.TabIndex = 45
@@ -606,8 +596,8 @@ Partial Class usrcntlFremdrechnungen
         Me.dgvLFRechnung.AllowUserToDeleteRows = False
         Me.dgvLFRechnung.AllowUserToResizeColumns = False
         Me.dgvLFRechnung.AllowUserToResizeRows = False
-        DataGridViewCellStyle1.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer))
+        DataGridViewCellStyle3.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer))
-        Me.dgvLFRechnung.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle1
+        Me.dgvLFRechnung.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle3
         Me.dgvLFRechnung.BackgroundColor = System.Drawing.Color.White
         Me.dgvLFRechnung.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
         Me.dgvLFRechnung.Location = New System.Drawing.Point(4, 3)
@@ -624,8 +614,8 @@ Partial Class usrcntlFremdrechnungen
         Me.dgvDetails.AllowUserToDeleteRows = False
         Me.dgvDetails.AllowUserToResizeColumns = False
         Me.dgvDetails.AllowUserToResizeRows = False
-        DataGridViewCellStyle2.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer))
+        DataGridViewCellStyle4.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer))
-        Me.dgvDetails.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle2
+        Me.dgvDetails.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle4
         Me.dgvDetails.BackgroundColor = System.Drawing.Color.White
         Me.dgvDetails.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
         Me.dgvDetails.Location = New System.Drawing.Point(-1, 3)
@@ -644,29 +634,12 @@ Partial Class usrcntlFremdrechnungen
         Me.Panel4.Size = New System.Drawing.Size(1356, 108)
         Me.Panel4.TabIndex = 11
         '
-        'cntxtExcel
+        'PDFLöschenToolStripMenuItem
         '
-        Me.cntxtExcel.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.ToolStripMenuItem3, Me.ToolStripMenuItem6})
+        Me.PDFLöschenToolStripMenuItem.Image = Global.SDL.My.Resources.Resources.del
-        Me.cntxtExcel.Name = "cntxtExcel"
+        Me.PDFLöschenToolStripMenuItem.Name = "PDFLöschenToolStripMenuItem"
-        Me.cntxtExcel.Size = New System.Drawing.Size(211, 48)
+        Me.PDFLöschenToolStripMenuItem.Size = New System.Drawing.Size(154, 22)
-        Me.cntxtExcel.Text = "Excel"
+        Me.PDFLöschenToolStripMenuItem.Text = "PDF löschen"
-        '
-        'ToolStripMenuItem3
-        '
-        Me.ToolStripMenuItem3.Name = "ToolStripMenuItem3"
-        Me.ToolStripMenuItem3.Size = New System.Drawing.Size(210, 22)
-        Me.ToolStripMenuItem3.Text = "Einfach"
-        '
-        'ToolStripMenuItem6
-        '
-        Me.ToolStripMenuItem6.Name = "ToolStripMenuItem6"
-        Me.ToolStripMenuItem6.Size = New System.Drawing.Size(210, 22)
-        Me.ToolStripMenuItem6.Text = "Formatiert (dauert länger)"
-        '
-        'ContextMenuStrip2
-        '
-        Me.ContextMenuStrip2.Name = "ContextMenuStrip2"
-        Me.ContextMenuStrip2.Size = New System.Drawing.Size(61, 4)
         '
         'usrcntlFremdrechnungen
         '
@@ -689,7 +662,6 @@ Partial Class usrcntlFremdrechnungen
         CType(Me.dgvLFRechnung, System.ComponentModel.ISupportInitialize).EndInit()
         CType(Me.dgvDetails, System.ComponentModel.ISupportInitialize).EndInit()
         Me.Panel4.ResumeLayout(False)
-        Me.cntxtExcel.ResumeLayout(False)
         Me.ResumeLayout(False)
 
     End Sub
@@ -702,7 +674,6 @@ Partial Class usrcntlFremdrechnungen
     Friend WithEvents btnSDL_FREJUS As System.Windows.Forms.Button
     Friend WithEvents btnSDL_Hugo As System.Windows.Forms.Button
     Friend WithEvents ContextMenuStrip1 As System.Windows.Forms.ContextMenuStrip
-    Friend WithEvents KundenblattAnzeigenToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem
     Friend WithEvents Panel1 As System.Windows.Forms.Panel
     Friend WithEvents Button8 As System.Windows.Forms.Button
     Friend WithEvents Label3 As System.Windows.Forms.Label
@@ -710,9 +681,6 @@ Partial Class usrcntlFremdrechnungen
     Friend WithEvents Panel3 As System.Windows.Forms.Panel
     Friend WithEvents SplitContainer1 As System.Windows.Forms.SplitContainer
     Friend WithEvents Button4 As System.Windows.Forms.Button
-    Friend WithEvents cntxtExcel As System.Windows.Forms.ContextMenuStrip
-    Friend WithEvents ToolStripMenuItem3 As System.Windows.Forms.ToolStripMenuItem
-    Friend WithEvents ToolStripMenuItem6 As System.Windows.Forms.ToolStripMenuItem
     Friend WithEvents lblEinträge As System.Windows.Forms.Label
     Friend WithEvents cbxMax1000Eintrage As System.Windows.Forms.CheckBox
     Friend WithEvents Button1 As System.Windows.Forms.Button
@@ -736,6 +704,6 @@ Partial Class usrcntlFremdrechnungen
     Friend WithEvents txtKundenNrbis As VERAG_PROG_ALLGEMEIN.MyTextBox
     Friend WithEvents txtKundenNrvon As VERAG_PROG_ALLGEMEIN.MyTextBox
     Friend WithEvents Label6 As Label
-    Friend WithEvents ContextMenuStrip2 As ContextMenuStrip
     Friend WithEvents cbxTest As CheckBox
+    Friend WithEvents PDFLöschenToolStripMenuItem As ToolStripMenuItem
 End Class

SDL/mdm/usrcntlFremdrechnungen.resx

@@ -120,10 +120,4 @@
   <metadata name="ContextMenuStrip1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
     <value>17, 17</value>
   </metadata>
-  <metadata name="cntxtExcel.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
-    <value>807, 17</value>
-  </metadata>
-  <metadata name="ContextMenuStrip2.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
-    <value>913, 17</value>
-  </metadata>
 </root>

SDL/mdm/usrcntlFremdrechnungen.vb

@@ -1,4 +1,6 @@
 Imports System.Reflection
+Imports com.sun.tools.corba.se.idl
+Imports DocumentFormat.OpenXml.VariantTypes
 Imports Microsoft.Office.Interop
 Imports VERAG_PROG_ALLGEMEIN
 
@@ -378,18 +380,18 @@ Public Class usrcntlFremdrechnungen
 
         Dim invToCustomer As String = ""
 
-            Select Case cbx.CheckState
+        Select Case cbx.CheckState
                ' Case CheckState.Unchecked : invToCustomer = "0" Hier alle anzeigen!!!
             Case CheckState.Checked : invToCustomer = "1"
-            End Select
+        End Select
 
-            If invToCustomer <> "" Then
+        If invToCustomer <> "" Then
 
-                Select Case aktLieferant
+            Select Case aktLieferant
                 'Case "IDS" : SQLWhere &= " AND isnull(InvToCustomer,0) =" & invToCustomer
                 Case "PLOSE" : SQLWhere &= " AND isnull(plInv_InvToCustomer,0) =" & invToCustomer
-                    Case "MSE" : SQLWhere &= " AND isnull(InvToCustomer,0) =" & invToCustomer
+                Case "MSE" : SQLWhere &= " AND isnull(InvToCustomer,0) =" & invToCustomer
-                    Case "RMC" : SQLWhere &= " AND isnull(InvToCustomer,0) =" & invToCustomer
+                Case "RMC" : SQLWhere &= " AND isnull(InvToCustomer,0) =" & invToCustomer
                 Case "UTA" : SQLWhere &= " AND isnull(InvToCustomer,0) =" & invToCustomer
                 Case "VERAG" : SQLWhere &= " AND 1 <> " & invToCustomer
                 Case "_" : SQLWhere &= " AND 1 <> " & invToCustomer
@@ -397,7 +399,7 @@ Public Class usrcntlFremdrechnungen
 
             End Select
 
-            End If
+        End If
 
 
         'If cbx.Checked AndAlso aktLieferant <> "IDS" AndAlso KUNDE IsNot Nothing Then
@@ -1195,13 +1197,13 @@ Public Class usrcntlFremdrechnungen
 
     End Sub
 
-    Private Sub ToolStripMenuItem3_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem3.Click
+    Private Sub ToolStripMenuItem3_Click(sender As Object, e As EventArgs)
         Me.Cursor = Cursors.WaitCursor
         cProgramFunctions.genExcelFromDGV(dgvLFRechnung, True)
         Me.Cursor = Cursors.Default
     End Sub
 
-    Private Sub ToolStripMenuItem6_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem6.Click
+    Private Sub ToolStripMenuItem6_Click(sender As Object, e As EventArgs)
         Me.Cursor = Cursors.WaitCursor
         cProgramFunctions.genExcelFromDGV_NEW(dgvLFRechnung, True)
         Me.Cursor = Cursors.Default
@@ -1554,4 +1556,76 @@ Public Class usrcntlFremdrechnungen
         End If
     End Sub
 
+    Private Sub ContextMenuStrip2_Opening(sender As Object, e As System.ComponentModel.CancelEventArgs)
+
+    End Sub
+
+    Private Sub DetailsAnzeigenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles DetailsAnzeigenToolStripMenuItem.Click
+
+        If dgvLFRechnung.CurrentRow.Cells("daId").Value Is Nothing Or IsDBNull(dgvLFRechnung.CurrentRow.Cells("daId").Value) Then
+
+
+
+
+            Dim ReNr As String = dgvLFRechnung.SelectedRows(0).Cells("Rechnungsnummer").Value
+            Dim ReDat As String = dgvLFRechnung.SelectedRows(0).Cells("Rechnungsdatum").Value
+            Dim interneKundenNr As String = dgvLFRechnung.SelectedRows(0).Cells("AdressenNr").Value
+            Dim KundenNr As String = dgvLFRechnung.SelectedRows(0).Cells("Kundennummer").Value
+            Dim LieferlandISO2 As String = dgvLFRechnung.SelectedRows(0).Cells("Land").Value
+
+            If LieferlandISO2 = "" Then MsgBox("Land kann nicht ermittelt werden") : Exit Sub
+            If KundenNr = "" OrElse Not IsNumeric(KundenNr) Then MsgBox("KundenNr kann nicht ermittelt werden") : Exit Sub
+            If ReDat = "" OrElse Not IsDate(ReDat) Then MsgBox("Rechnungsdatum kann nicht ermittelt werden") : Exit Sub
+            If interneKundenNr = "" OrElse Not IsNumeric(interneKundenNr) Then MsgBox("KundenNr kann nicht ermittelt werden") : Exit Sub
+
+            Select Case aktLieferant
+
+                Case "UTA"
+                    Dim DS_Import As New VERAG_PROG_ALLGEMEIN.cDATENSERVER("MDM", "MDM_DATEN", aktLieferant & "_MANUELL", Now.Year, interneKundenNr, interneKundenNr & "_" & ReNr & "_" & LieferlandISO2)
+
+                    If DS_Import.uploadDataToDATENSERVERFileDialog(, ".pdf", , "PDF") <> "" Then
+                        SQL.doSQL("Update [tblUTAImportNew] SET [daId]=" & DS_Import.da_id & ", daIdgesetztDatum = getdate(), PDFsetmanually = getdate() where Rechnungsnummer_pro_Lieferland = '" & ReNr & "' AND cast(Rechnungsdatum as Date) = '" & CDate(ReDat).ToShortDateString & "' AND Kundennummer =" & KundenNr & " and Lieferland_ISO2 ='" & LieferlandISO2 & "'  and daId is null", "FMZOLL")
+                        MsgBox("Dokument gesetzt! -> " & ReNr & " " & CDate(ReDat).ToShortDateString)
+                        SET_SDL(aktLieferant)
+                    End If
+
+                Case Else
+
+                    MsgBox("Funktion nicht implementiert!")
+
+            End Select
+
+        End If
+
+    End Sub
+
+    Private Sub dgvLFRechnung_CellMouseClick(sender As Object, e As DataGridViewCellMouseEventArgs) Handles dgvLFRechnung.CellMouseClick
+
+
+        If e.RowIndex < 0 Then Exit Sub 'Es wurde außerhalb einer gültigen Datenzeile geklickt
+        If e.ColumnIndex < 0 Then Exit Sub
+
+        DirectCast(sender, DataGridView).Rows(e.RowIndex).Selected = True
+        If e.Button = MouseButtons.Right Then
+
+            If dgvLFRechnung.SelectedCells.Count = 0 Then Exit Sub 'Es wurde außerhalb einer gültigen Datenzeile geklickt
+            dgvLFRechnung.CurrentCell = dgvLFRechnung.Rows(e.RowIndex).Cells(e.ColumnIndex)
+
+
+            If dgvLFRechnung.CurrentRow.Cells("daId").Value Is Nothing Or IsDBNull(dgvLFRechnung.CurrentRow.Cells("daId").Value) Then
+
+                DetailsAnzeigenToolStripMenuItem.Visible = True
+            Else
+
+                DetailsAnzeigenToolStripMenuItem.Visible = False
+            End If
+
+
+            ContextMenuStrip1.Show(Cursor.Position)
+
+        End If
+
+
+
+    End Sub
 End Class

SDL/seriendruck/usrCntlFakturierung.vb

@@ -199,13 +199,32 @@ Public Class usrcntlFakturierung
             Select Case res
                 Case MsgBoxResult.Yes : SQL.doSQL("update [Rechnungsausgang] set Abfertigungsdatum = '" & rechnungsdatum & "' WHERE [Status] = 0 AND [Sammelrechnung] = 6 AND UPPER([Sachbearbeiter]) = '" & Sachbearbeiter & "' AND ([SteuerpflichtigerGesamtbetrag] <> 0 OR [SteuerfreierGesamtbetrag] <> 0) AND cast(Abfertigungsdatum as Date) <> '" & rechnungsdatum & "'", "FMZOLL")
                 Case MsgBoxResult.No
-                Case MsgBoxResult.Cancel : Exit Sub
+                Case MsgBoxResult.Cancel : MsgBox("Rechnungslauf wird abgebrochen!") : Exit Sub
             End Select
 
 
         End If
 
 
+        'START--------------------------- Zur Sicherheit!! - Kann ab nächsten Sammelrechnunsglauf deaktiviert werden! - 21.01.2026
+        Dim rechnungenMitRE_KZ As Integer = CInt((New SQL).getValueTxtBySqlVarList("SELECT COUNT(*) 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 Rechnungsart <> 'RG' ", "FMZOLL",, 0))
+
+        If rechnungenMitAbwAbfDat > 0 Then
+            Dim res As MsgBoxResult
+            res = MsgBox("Es gibt noch " & rechnungenMitRE_KZ & " Rechnungen deren Rechnungsart nicht auf Standard-Rechnung gesetzt ist" & vbNewLine & "Möchten Sie fortfahren (Rechnungsart wird auf Standard gesetzt) ?", vbYesNoCancel)
+            Select Case res
+                Case MsgBoxResult.Yes : SQL.doSQL("update [Rechnungsausgang] set Rechnungsart = 'RG' WHERE [Status] = 0 AND [Sammelrechnung] = 6 AND UPPER([Sachbearbeiter]) = '" & Sachbearbeiter & "' AND ([SteuerpflichtigerGesamtbetrag] <> 0 OR [SteuerfreierGesamtbetrag] <> 0) AND cast(Abfertigungsdatum as Date) = '" & rechnungsdatum & "' AND Rechnungsart <> 'RG' ", "FMZOLL")
+                Case MsgBoxResult.No
+                Case MsgBoxResult.Cancel : MsgBox("Rechnungslauf wird abgebrochen!") : Exit Sub
+            End Select
+
+
+        End If
+
+        'ENDE---------------------------
+
+
 
         Dim rechnungenMitGesamtmautanhangCSV As String = (New SQL).getValueTxtBySqlVarList("SELECT COUNT(*) FROM Rechnungsausgang
                         inner join RechnungsausgangAnhaenge on Rechnungsausgang.RK_ID = RechnungsausgangAnhaenge.RK_ID
@@ -240,7 +259,7 @@ Public Class usrcntlFakturierung
 
 
         If Not vbYes = MsgBox("Möchten Sie mit der Erstellung der  " & dtREGU.Rows.Count & " Sammelrechnungen vorfahren?", vbYesNoCancel) Then
-            Exit Sub
+            MsgBox("Rechnungslauf wird abgebrochen!") : Exit Sub
         End If
 
         'RECHNUNG ODER GUTSCHRIFT
@@ -1180,14 +1199,16 @@ Public Class usrcntlFakturierung
 
         If dtSammelrechnungenGruppiert.Rows.Count > 0 Then
 
-            If Not vbYes = MsgBox("Möchten Sie die Rechnungsnummern für " & dtSammelrechnungenGruppiert.Rows.Count & " Rechnungen setzen?" & vbNewLine & "Es wird eine Rechnungsnummer vergeben, die Rechnungen gelten somit als gedruckt und können nicht mehr bearbeitet werden.", vbYesNoCancel) Then Exit Sub
+            If Not vbYes = MsgBox("Möchten Sie die Rechnungsnummern für " & dtSammelrechnungenGruppiert.Rows.Count & " Rechnungen setzen?" & vbNewLine & "Es wird eine Rechnungsnummer vergeben, die Rechnungen gelten somit als gedruckt und können nicht mehr bearbeitet werden.", vbYesNoCancel) Then
+                MsgBox("Rechnungslauf wird abgebrochen!") : Exit Sub
+            End If
 
             Dim reNrisSet = setStatus2(Sachbearbeiter, rechnungsdatum, dtSammelrechnungenGruppiert, cbxStatusAUTOMAIL.Checked)
 
             showPic(reNrisSet, PictureBox8)
 
             If Not reNrisSet Then
-                MsgBox("Fehler beim Setzen der Rechnungsnummer" & vbNewLine & "Vorgang wird abgebrochen!")
+                MsgBox("Fehler beim Setzen der Rechnungsnummer" & vbNewLine & "Rechnungslauf wird abgebrochen!")
                 Exit Sub
             End If
 

VERAG_PROG_ALLGEMEIN/Classes/cMDMFunctionsAllgemein.vb

@@ -1155,10 +1155,15 @@ Public Class cMDMFunctionsAllgemein
                 Dim AD As New cAdressen(USTV_ANTRAG.UStVAn_KuNr)
                 If Antrag_LandKz <> "" Then
                     header1 = "Statement itemising VAT amounts relating to the period covered by this application"
-                    header2 = "VAT NO.: " & USTV_ANTRAG.UStVAn_Steuernummer & "    " & "Name/Company: " & AD.Name_1 & " " & AD.Name_2 & "   " & "VAT in " & Antrag_LandKz & ": " & SteuerNR
-                End If
 
-                Return cProgramFunctions.genExcelFromDT_NEW_(dtNew, {"K1:K" & (dtNew.Rows.Count + 1)},, header1, header2, IIf(USTV_ANTRAG.UStVAn_Währungscode = "EUR", "€", ""), True, "J", True, True, openFile)
+                    If USTV_ANTRAG.UStVAn_ReDatVon IsNot Nothing AndAlso IsDate(USTV_ANTRAG.UStVAn_ReDatVon) AndAlso USTV_ANTRAG.UStVAn_ReDatBis IsNot Nothing AndAlso IsDate(USTV_ANTRAG.UStVAn_ReDatBis) Then
+                        header1 &= " (" & CDate(USTV_ANTRAG.UStVAn_ReDatVon).ToShortDateString & " - " & CDate(USTV_ANTRAG.UStVAn_ReDatBis).ToShortDateString & ")"
+                    End If
+
+                    header2 = "VAT NO.: " & USTV_ANTRAG.UStVAn_Steuernummer & "    " & "Name/Company: " & AD.Name_1 & " " & AD.Name_2 & "   " & "VAT in " & Antrag_LandKz & ": " & SteuerNR
+                    End If
+
+                    Return cProgramFunctions.genExcelFromDT_NEW_(dtNew, {"K1:K" & (dtNew.Rows.Count + 1)},, header1, header2, IIf(USTV_ANTRAG.UStVAn_Währungscode = "EUR", "€", ""), True, "J", True, True, openFile)
 
             Else