From 07c62b5d54e255d223898672815de94da7c78ef3 Mon Sep 17 00:00:00 2001 From: "d.breimaier" Date: Wed, 21 Jan 2026 14:47:59 +0100 Subject: [PATCH] Mahnlauf, FaktAbrechnung, Fremdrechnungen, MDM-Functions --- SDL/Fakturierung/usrCntlFaktAbrechnung.vb | 18 ++-- SDL/My Project/AssemblyInfo.vb | 4 +- SDL/USTV/frmMDM_USTVAntrag.vb | 2 +- SDL/buchhaltung/frmBU_Mahnlauf.Designer.vb | 60 +++++++----- SDL/buchhaltung/frmBU_Mahnlauf.vb | 61 +++++++++++- SDL/mdm/frmMDMDatenverarbetiung.vb | 96 ++++++++++++++++++- SDL/mdm/usrcntlFremdrechnungen.Designer.vb | 70 ++++---------- SDL/mdm/usrcntlFremdrechnungen.resx | 6 -- SDL/mdm/usrcntlFremdrechnungen.vb | 92 ++++++++++++++++-- SDL/seriendruck/usrCntlFakturierung.vb | 29 +++++- .../Classes/cMDMFunctionsAllgemein.vb | 11 ++- 11 files changed, 339 insertions(+), 110 deletions(-) diff --git a/SDL/Fakturierung/usrCntlFaktAbrechnung.vb b/SDL/Fakturierung/usrCntlFaktAbrechnung.vb index 5b34079e..201e4728 100644 --- a/SDL/Fakturierung/usrCntlFaktAbrechnung.vb +++ b/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) diff --git a/SDL/My Project/AssemblyInfo.vb b/SDL/My Project/AssemblyInfo.vb index d270a8ee..d370e0f4 100644 --- a/SDL/My Project/AssemblyInfo.vb +++ b/SDL/My Project/AssemblyInfo.vb @@ -31,5 +31,5 @@ Imports System.Runtime.InteropServices ' übernehmen, indem Sie "*" eingeben: ' - - + + diff --git a/SDL/USTV/frmMDM_USTVAntrag.vb b/SDL/USTV/frmMDM_USTVAntrag.vb index dfeb7ec0..2abaa749 100644 --- a/SDL/USTV/frmMDM_USTVAntrag.vb +++ b/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!") diff --git a/SDL/buchhaltung/frmBU_Mahnlauf.Designer.vb b/SDL/buchhaltung/frmBU_Mahnlauf.Designer.vb index 64fa3dbf..72ea74ea 100644 --- a/SDL/buchhaltung/frmBU_Mahnlauf.Designer.vb +++ b/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.lblBetreuer = New System.Windows.Forms.Label() + Me.cbxNewDGV = New System.Windows.Forms.CheckBox() 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.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 - ' - '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 + Me.cbxNewDGV.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.cbxNewDGV.AutoSize = True + Me.cbxNewDGV.Checked = True + Me.cbxNewDGV.CheckState = System.Windows.Forms.CheckState.Checked + Me.cbxNewDGV.Location = New System.Drawing.Point(1118, 54) + Me.cbxNewDGV.Name = "cbxNewDGV" + Me.cbxNewDGV.Size = New System.Drawing.Size(88, 17) + Me.cbxNewDGV.TabIndex = 51 + Me.cbxNewDGV.Text = "neue Ansicht" + Me.cbxNewDGV.UseVisualStyleBackColor = True ' '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 diff --git a/SDL/buchhaltung/frmBU_Mahnlauf.vb b/SDL/buchhaltung/frmBU_Mahnlauf.vb index afba2d11..9ea362ee 100644 --- a/SDL/buchhaltung/frmBU_Mahnlauf.vb +++ b/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 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 diff --git a/SDL/mdm/frmMDMDatenverarbetiung.vb b/SDL/mdm/frmMDMDatenverarbetiung.vb index 52b5930c..e3935333 100644 --- a/SDL/mdm/frmMDMDatenverarbetiung.vb +++ b/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 = "" diff --git a/SDL/mdm/usrcntlFremdrechnungen.Designer.vb b/SDL/mdm/usrcntlFremdrechnungen.Designer.vb index 7e6e7603..c8e0f446 100644 --- a/SDL/mdm/usrcntlFremdrechnungen.Designer.vb +++ b/SDL/mdm/usrcntlFremdrechnungen.Designer.vb @@ -23,8 +23,8 @@ Partial Class usrcntlFremdrechnungen Private Sub InitializeComponent() Me.components = New System.ComponentModel.Container() - Dim DataGridViewCellStyle1 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() - Dim DataGridViewCellStyle2 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() + Dim DataGridViewCellStyle3 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.ToolStripMenuItem3 = New System.Windows.Forms.ToolStripMenuItem() - Me.ToolStripMenuItem6 = New System.Windows.Forms.ToolStripMenuItem() - Me.ContextMenuStrip2 = New System.Windows.Forms.ContextMenuStrip(Me.components) + Me.PDFLöschenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() 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.Text = "Details anzeigen" + Me.DetailsAnzeigenToolStripMenuItem.Size = New System.Drawing.Size(154, 22) + 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) - ' - 'KundenblattAnzeigenToolStripMenuItem - ' - Me.KundenblattAnzeigenToolStripMenuItem.Name = "KundenblattAnzeigenToolStripMenuItem" - Me.KundenblattAnzeigenToolStripMenuItem.Size = New System.Drawing.Size(189, 22) - Me.KundenblattAnzeigenToolStripMenuItem.Text = "Kundenblatt anzeigen" + Me.ContextMenuStrip1.Size = New System.Drawing.Size(155, 48) ' '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)) - Me.dgvLFRechnung.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle1 + DataGridViewCellStyle3.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer)) + 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)) - Me.dgvDetails.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle2 + DataGridViewCellStyle4.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer)) + 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.cntxtExcel.Name = "cntxtExcel" - Me.cntxtExcel.Size = New System.Drawing.Size(211, 48) - Me.cntxtExcel.Text = "Excel" - ' - '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) + Me.PDFLöschenToolStripMenuItem.Image = Global.SDL.My.Resources.Resources.del + Me.PDFLöschenToolStripMenuItem.Name = "PDFLöschenToolStripMenuItem" + Me.PDFLöschenToolStripMenuItem.Size = New System.Drawing.Size(154, 22) + Me.PDFLöschenToolStripMenuItem.Text = "PDF löschen" ' '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 diff --git a/SDL/mdm/usrcntlFremdrechnungen.resx b/SDL/mdm/usrcntlFremdrechnungen.resx index f5796c7d..279a4474 100644 --- a/SDL/mdm/usrcntlFremdrechnungen.resx +++ b/SDL/mdm/usrcntlFremdrechnungen.resx @@ -120,10 +120,4 @@ 17, 17 - - 807, 17 - - - 913, 17 - \ No newline at end of file diff --git a/SDL/mdm/usrcntlFremdrechnungen.vb b/SDL/mdm/usrcntlFremdrechnungen.vb index a42460e3..3aaba876 100644 --- a/SDL/mdm/usrcntlFremdrechnungen.vb +++ b/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 "RMC" : SQLWhere &= " AND isnull(InvToCustomer,0) =" & invToCustomer + Case "MSE" : 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 diff --git a/SDL/seriendruck/usrCntlFakturierung.vb b/SDL/seriendruck/usrCntlFakturierung.vb index b4ccc6be..f87e225d 100644 --- a/SDL/seriendruck/usrCntlFakturierung.vb +++ b/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 diff --git a/VERAG_PROG_ALLGEMEIN/Classes/cMDMFunctionsAllgemein.vb b/VERAG_PROG_ALLGEMEIN/Classes/cMDMFunctionsAllgemein.vb index 016b0cfd..13fe004f 100644 --- a/VERAG_PROG_ALLGEMEIN/Classes/cMDMFunctionsAllgemein.vb +++ b/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