neu

2022-03-19 22:52:06 +01:00
parent 9b001e5803
commit d9204781cf
139 changed files with 19394 additions and 3352 deletions
--- a/SDL/Fakturierung/cFakturierung.vb
+++ b/SDL/Fakturierung/cFakturierung.vb
@@ -629,9 +629,9 @@ Public Class cFakturierung
        End If
    End Function

-    Public Shared Function doRechnungsDruck(RK_ID As Integer, Optional RechnungsDatum As Object = Nothing, Optional vorschau As Boolean = False, Optional Rechnugnsdruck As Integer = -1, Optional ByRef Path As String = "", Optional ByRef PrinterName As String = "", Optional SammelrechnungAnlagendruck As Boolean = False, Optional printStbVdb As Boolean = False) As Boolean
+    Public Shared Function doRechnungsDruck(RK_ID As Integer, Optional RechnungsDatum As Object = Nothing, Optional vorschau As Boolean = False, Optional Rechnugnsdruck As Integer = -1, Optional ByRef Path As String = "", Optional ByRef PrinterName As String = "", Optional ByRef printOriginalRg As Boolean = False, Optional SammelrechnungAnlagendruck As Boolean = False, Optional printStbVdb As Boolean = False) As Boolean
        If RK_ID <= 0 Then Return False
-        Return doRechnungsDruck(New VERAG_PROG_ALLGEMEIN.cRechnungsausgang(RK_ID), RechnungsDatum, vorschau, Rechnugnsdruck, Path, PrinterName, SammelrechnungAnlagendruck, printStbVdb)
+        Return doRechnungsDruck(New VERAG_PROG_ALLGEMEIN.cRechnungsausgang(RK_ID), RechnungsDatum, vorschau, Rechnugnsdruck, Path, PrinterName, printOriginalRg, SammelrechnungAnlagendruck, printStbVdb)
    End Function

    Public Shared Function doRechnungsDruck_MAIL(RK_ID As Integer, Optional RechnungsDatum As Object = Nothing, Optional vorschau As Boolean = False, Optional Rechnugnsdruck As Integer = -1, Optional ByRef Path As String = "", Optional ByRef PrinterName As String = "", Optional SammelrechnungAnlagendruck As Boolean = False, Optional printStbVdb As Boolean = False) As Boolean
@@ -704,8 +704,8 @@ Public Class cFakturierung
                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

-                rpt.txtBank1.Text = rpt.txtBank1.Text.Replace("Österreich: ", "Österreich:" & vbNewLine).Replace("BRD: ", "BRD:" & vbNewLine).Replace("Deutschland: ", "Deutschland:" & vbNewLine)
-                rpt.txtBank2.Text = rpt.txtBank2.Text.Replace("Österreich: ", "Österreich:" & vbNewLine).Replace("BRD: ", "BRD:" & vbNewLine).Replace("Deutschland: ", "Deutschland:" & vbNewLine)
+                rpt.txtBank1.Text = rpt.txtBank1.Text.Replace("Österreich: ", "Österreich:" & vbNewLine).Replace("BRD: ", "Deutschland:" & vbNewLine).Replace("Deutschland: ", "Deutschland:" & vbNewLine)
+                rpt.txtBank2.Text = rpt.txtBank2.Text.Replace("Österreich: ", "Österreich:" & vbNewLine).Replace("BRD: ", "Deutschland:" & vbNewLine).Replace("Deutschland: ", "Deutschland:" & vbNewLine)

                'TR Bankverbindung
                'Dim RgBetrag = (Rechnung.SteuerfreierGesamtbetrag + Rechnung.SteuerpflichtigerGesamtbetrag)
@@ -768,8 +768,8 @@ Public Class cFakturierung
                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

-                rpt.txtBank1.Text = rpt.txtBank1.Text.Replace("Österreich: ", "Österreich:" & vbNewLine).Replace("BRD: ", "BRD:" & vbNewLine).Replace("Deutschland: ", "Deutschland:" & vbNewLine)
-                rpt.txtBank2.Text = rpt.txtBank2.Text.Replace("Österreich: ", "Österreich:" & vbNewLine).Replace("BRD: ", "BRD:" & vbNewLine).Replace("Deutschland: ", "Deutschland:" & vbNewLine)
+                rpt.txtBank1.Text = rpt.txtBank1.Text.Replace("Österreich: ", "Österreich:" & vbNewLine).Replace("BRD: ", "Deutschland:" & vbNewLine).Replace("Deutschland: ", "Deutschland:" & vbNewLine)
+                rpt.txtBank2.Text = rpt.txtBank2.Text.Replace("Österreich: ", "Österreich:" & vbNewLine).Replace("BRD: ", "Deutschland:" & vbNewLine).Replace("Deutschland: ", "Deutschland:" & vbNewLine)
        End Select


@@ -824,8 +824,8 @@ Public Class cFakturierung
                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

-                rpt.txtBank1.Text = rpt.txtBank1.Text.Replace("Österreich: ", "Österreich:" & vbNewLine).Replace("BRD: ", "BRD:" & vbNewLine).Replace("Deutschland: ", "Deutschland:" & vbNewLine)
-                rpt.txtBank2.Text = rpt.txtBank2.Text.Replace("Österreich: ", "Österreich:" & vbNewLine).Replace("BRD: ", "BRD:" & vbNewLine).Replace("Deutschland: ", "Deutschland:" & vbNewLine)
+                rpt.txtBank1.Text = rpt.txtBank1.Text.Replace("Österreich: ", "Österreich:" & vbNewLine).Replace("BRD: ", "Deutschland:" & vbNewLine).Replace("Deutschland: ", "Deutschland:" & vbNewLine)
+                rpt.txtBank2.Text = rpt.txtBank2.Text.Replace("Österreich: ", "Österreich:" & vbNewLine).Replace("BRD: ", "Deutschland:" & vbNewLine).Replace("Deutschland: ", "Deutschland:" & vbNewLine)
        End Select


@@ -860,7 +860,6 @@ Public Class cFakturierung
        Try
            Dim rpt As New rptRechnungDruck(RECHNUNG.RechnungSprache)

-
            Dim FIRMA As New VERAG_PROG_ALLGEMEIN.cFirmen(RECHNUNG.Firma_ID)
            Dim KD_RG As New VERAG_PROG_ALLGEMEIN.cAdressen(RECHNUNG.RechnungsKundenNr)

@@ -991,6 +990,7 @@ Public Class cFakturierung
            End If
            rpt.txtSendungsdaten.Text = If(RECHNUNG.Packstücke_und_Warenbezeichnung, "")
            If rpt.txtSendungsdaten.Text.Length > 200 Then rpt.txtSendungsdaten.Text = rpt.txtSendungsdaten.Text.Substring(0, 200)
+            rpt.txtSendungsdaten.Text = rpt.txtSendungsdaten.Text.Replace(", 0,0 kg", "") '0kg ausblenden
            rpt.txtBeförderungsmittel.Text = If(RECHNUNG.LKW_Kennzeichen, "")

            rpt.txtGrenze.Text = If(RECHNUNG.Grenze, "")
@@ -1026,7 +1026,7 @@ Public Class cFakturierung
            rpt.txtKdAuftragsNr.Text = If(RECHNUNG.KdAuftragsNr, "")
            rpt.txtKdAuftragsNr_Ueberschrift.Visible = (rpt.txtKdAuftragsNr.Text <> String.Empty)

-            rpt.TextBox1.Text = If(RECHNUNG.TextZZ, "").ToString.Trim
+            rpt.TextBox1.Text = If(RECHNUNG.TextZZ, "").ToString.Replace("; ", vbNewLine).Trim
            rpt.txtVermerk.Text = (If(RECHNUNG.Text, "").ToString.Trim & vbNewLine & vbNewLine & If(RECHNUNG.Notiz, "").ToString.Trim).ToString.Trim

            If RECHNUNG.RechnungsDatum IsNot Nothing Then 'Muss zweimal vorkommen, Wiederholungsdruck
@@ -1236,7 +1236,7 @@ Public Class cFakturierung
                        Kopie = False
                        'Aktualisierung und speichern:
                        If Abrechnugsdaten_AKTUALISIEREN(RECHNUNG, RechnungsDatum) Then
-                            rpt.lblRgNr.Text = If(RECHNUNG.RechnungsNr > 0, addYeartoRgNr(FIRMA.Firma_ID, RECHNUNG.Buchungsjahr) & RECHNUNG.RechnungsNr, "Vorschau")
+                            rpt.lblRgNr.Text = If(RECHNUNG.RechnungsNr > 0, addYeartoRgNr(RECHNUNG.Firma_ID, RECHNUNG.Buchungsjahr) & RECHNUNG.RechnungsNr, "Vorschau")
                            rpt.lblRgDatum.Text = CDate(RECHNUNG.RechnungsDatum).ToShortDateString

                            If RECHNUNG.RechnungsDatum IsNot Nothing Then 'Muss zweimal vorkommen, Erstmaliger Druck
@@ -1343,7 +1343,7 @@ Public Class cFakturierung
                            Mail = outl.CreateItem(0)
                            Select Case RECHNUNG.RechnungsLandKz
                                Case "TR"
-                                    Mail.Subject = "Rechnung Nr. " & RECHNUNG.RechnungsNr
+                                    Mail.Subject = "Invoice No. " & RECHNUNG.RechnungsNr
                                    Mail.HTMLBody = "Sayin Bayanlar ve Baylar,<br><br>ekte baslikta yazan faturayi bulabilirsinz."
                                    Mail.HTMLBody &= "<br><br><br>Saygilarimizla<br><br>" & getSignature(RECHNUNG)
                                Case "A", "AT", "D", "DE", "CH"
@@ -1351,8 +1351,8 @@ Public Class cFakturierung
                                    Mail.HTMLBody = "Sehr geehrte Damen und Herren,<br><br>im Anhang senden wir Ihnen die o.g. Rechnung."
                                    Mail.HTMLBody &= "<br><br><br>Mit freundlichen Grüßen<br><br>" & getSignature(RECHNUNG)
                                Case Else
-                                    Mail.Subject = "Rechnung Nr. " & RECHNUNG.RechnungsNr
-                                    Mail.HTMLBody = "Sehr geehrte Damen und Herren,<br><br>attached we send you the invoice mentioned above."
+                                    Mail.Subject = "Invoice No. " & RECHNUNG.RechnungsNr
+                                    Mail.HTMLBody = "Dear Sir or Madam,<br><br>attached we send you the invoice mentioned above."
                                    Mail.HTMLBody &= "<br><br><br>Best regards<br><br>" & getSignature(RECHNUNG)
                            End Select
                            Mail.HTMLBody = "<div style=""font-family:Calibri, Arial"">" & Mail.HTMLBody & "</div>"
@@ -1512,7 +1512,7 @@ Public Class cFakturierung
                    Case 26 'VERAG-UNISPED
                        getSignature &= "<img width=""250"" height=""50"" src=""" & imgsrc & "VERAG-UNISPED-Logo.jpg""/>"
                        If displayFirmenmane Then getSignature &= "<br>VERAG-UNISPED LTD<br>"
-                        getSignature &= "<div style=""font-size:12px"">Kent CT16 1BY Dover, 1 Cannon Street<br><b>T</b> +44 1304 272475  |  <b>@</b>  brexit@verag-unisped.uk  |  www.verag-unisped.uk  |  Company-No. 13107151  |  VAT GB389356931</div>"
+                        getSignature &= "<div style=""font-size:12px"">Kent CT16 1BY Dover, 1 Cannon Street<br><b>T</b> +44 1304 272475  |  <b>@</b>  invoice@verag-unisped.uk  |  www.verag-unisped.uk  |  Company-No. 13107151  |  VAT GB389356931</div>"
                        If additionalLine <> "" Then getSignature &= vbNewLine & additionalLine & vbNewLine
                    Case 99 'GmbH
                        getSignature &= "<img width=""250"" height=""50"" src=""" & imgsrc & "Verag-Spedition-GMBH-Logo1.png""/>"
@@ -1543,6 +1543,7 @@ Public Class cFakturierung
                    getSignature &= "<br>"
                    getSignature &= "<br>"
                Case Else
+                    Exit Select ' nicht mehr!
                    getSignature &= "<br>"
                    getSignature &= "<div style=""font-size:14px"">"
                    getSignature &= "Sind Sie bereits auf den BREXIT vorbereitet?<br/>"
@@ -1590,7 +1591,7 @@ Public Class cFakturierung
                    End If
                    '        RECHNUNG.Buchungsjahr = If(Now.Month = 1, Now.Year - 1, Now.Year)
                End If
-                RECHNUNG.Buchungsjahr = cRKSV.getGJ(RECHNUNG.[RechnungsDatum]) ' If(CDate(RECHNUNG.[RechnungsDatum]).Month = 1, CDate(RECHNUNG.[RechnungsDatum]).Year - 1, CDate(RECHNUNG.[RechnungsDatum]).Year)
+                RECHNUNG.Buchungsjahr = cRKSV.getGJ(RECHNUNG.[RechnungsDatum], RECHNUNG.Firma_ID) ' If(CDate(RECHNUNG.[RechnungsDatum]).Month = 1, CDate(RECHNUNG.[RechnungsDatum]).Year - 1, CDate(RECHNUNG.[RechnungsDatum]).Year)

                If RECHNUNG.Buchungsjahr < 2000 Then
                    MsgBox("Buchungsjahr im falschen Format!")
@@ -1603,7 +1604,12 @@ Public Class cFakturierung
                ' Nächste Rechnungsnummer speichern.
                RECHNUNG.[RechnungsNr] = RG_NR.LfdRechnungsNr
                'RECHNUNG.[LfdRechnungsNr] = RG_NR.LfdRechnungsNr
-                RG_NR.INCREASE_RGNR()
+                If RECHNUNG.SAVE Then
+                    RG_NR.INCREASE_RGNR()
+                Else
+                    Return False
+                End If
+
                'Rechnungsnummer UPDATEN
                '.....................
            End If
@@ -1891,7 +1897,7 @@ Public Class cFakturierung
            If dt.Rows.Count = 0 Then MsgBox("ERR02: Keine Daten") : Return True
            If Not CHECK_SR_SQLDT(dt) Then MsgBox("ERR03: Es wurden Rechnungen mit einem 0-Betrag gefunden. Bitte prüfen Sie die Eingaben und starten Sie die Sammelabrechnung erneut.") : Return True

-            Dim Buchungsjahr = cRKSV.getGJ(Rechnungsdatum) 'IIf(Rechnungsdatum.Month = 1, Rechnungsdatum.Year - 1, Rechnungsdatum.Year)
+            Dim Buchungsjahr = cRKSV.getGJ(Rechnungsdatum, Firma_ID) 'IIf(Rechnungsdatum.Month = 1, Rechnungsdatum.Year - 1, Rechnungsdatum.Year)

            Dim Aktuelle_RgNr As Integer = -1
            If Not vorschau Then
@@ -1971,11 +1977,13 @@ Public Class cFakturierung

    Shared Function getNewRgNr(Firma_ID, Buchungsjahr)
        Dim RG_NR As New VERAG_PROG_ALLGEMEIN.cRechnungsnummern(Firma_ID, Buchungsjahr)
+        ' Prüfung, ob RgNr schon vergeben wurde --> dann +1, bis freie Nr. (sollte EÜGENTLICH nicht vorkommen)
+        RG_NR.CHECK_RGNR()
+
        getNewRgNr = RG_NR.LfdRechnungsNr
        RG_NR.INCREASE_RGNR() 'für die nächste Rechnung

-        ' Prüfung, ob RgNr schon vergeben wurde --> dann +1, bis freie Nr. (sollte EÜGENTLICH nicht vorkommen)
-        RG_NR.CHECK_RGNR()
+
    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 = "") As Boolean
@@ -2531,6 +2539,7 @@ Public Class cFakturierung
                                                     rpt.lblSteuerbetrag.Text = If((sumSteuerpflichtig * steuerProz) <> 0, tmpSteuerbetrag.ToString("N2", CultureInfo.CurrentCulture), "")
                                                     rpt.lblZWSumme.Text = (sumSteuerpflichtig + sumSteuerfrei).ToString("N2", CultureInfo.CurrentCulture)
                                                     rpt.lblSumme.Text = (sumSteuerpflichtig + sumSteuerfrei + (sumSteuerpflichtig * steuerProz)).ToString("N2", CultureInfo.CurrentCulture)
+                                                     rpt.Label46.Text = If(ROW("Währungscode") IsNot DBNull.Value, ROW("Währungscode"), "EUR")

                                                     If sumSteuerfrei = 0 Or sumSteuerpflichtig = 0 Then
                                                         rpt.lblZwText.Visible = False
@@ -2579,9 +2588,25 @@ Public Class cFakturierung
                        Dim outl As New Outlook.Application
                        Dim Mail As Microsoft.Office.Interop.Outlook.MailItem
                        Mail = outl.CreateItem(0)
-                        Mail.Subject = " Rechnung Nr. " & ROW("RechnungsNr")
+                        ' Mail.Subject = " Rechnung Nr. " & ROW("RechnungsNr")
                        ' Mail.Subject = VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA & " Rechnung Nr. " & ROW("RechnungsNr")
-                        Mail.HTMLBody = "Sehr geehrte Damen und Herren,<br><br>anbei erhalten Sie die Rechnung Nr. " & ROW("RechnungsNr") & "."
+                        Select Case ROW("RechnungsLandKz")
+                            Case "TR"
+                                Mail.Subject = "Invoice No. " & ROW("RechnungsNr")
+                                Mail.HTMLBody = "Sayin Bayanlar ve Baylar,<br><br>ekte baslikta yazan faturayi bulabilirsinz."
+                                Mail.HTMLBody &= "<br><br><br>Saygilarimizla<br><br>" & getSignature(ROW("RechnungsLandKz"), ROW("Firma_ID"))
+                            Case "A", "AT", "D", "DE", "CH"
+                                Mail.Subject = "Rechnung Nr. " & ROW("RechnungsNr")
+                                Mail.HTMLBody = "Sehr geehrte Damen und Herren,<br><br>im Anhang senden wir Ihnen die o.g. Rechnung."
+                                Mail.HTMLBody &= "<br><br><br>Mit freundlichen Grüßen<br><br>" & getSignature(ROW("RechnungsLandKz"), ROW("Firma_ID"))
+                            Case Else
+                                Mail.Subject = "Invoice No. " & ROW("RechnungsNr")
+                                Mail.HTMLBody = "Dear Sir or Madam,<br><br>attached we send you the invoice mentioned above."
+                                Mail.HTMLBody &= "<br><br><br>Best regards<br><br>" & getSignature(ROW("RechnungsLandKz"), ROW("Firma_ID"))
+                        End Select
+                        Mail.HTMLBody = "<div style=""font-family:Calibri, Arial"">" & Mail.HTMLBody & "</div>"
+
+                        ' Mail.HTMLBody = "Sehr geehrte Damen und Herren,<br><br>anbei erhalten Sie die Rechnung Nr. " & ROW("RechnungsNr") & "."
                        ' Mail.Attachments.Add(tmpPath, Microsoft.Office.Interop.Outlook.OlAttachmentType.olByValue, , VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA & "_Formular.pdf")
                        Mail.Attachments.Add(tmpPath, Microsoft.Office.Interop.Outlook.OlAttachmentType.olByValue, , "Formular.pdf")
                        Mail.Display()
@@ -2877,6 +2902,7 @@ Public Class cFakturierung
                                                     rpt.lblSteuerbetrag.Text = If((sumSteuerpflichtig * steuerProz) <> 0, (sumSteuerpflichtig * steuerProz).ToString("N2", CultureInfo.CurrentCulture), "")
                                                     rpt.lblZWSumme.Text = (sumSteuerpflichtig + sumSteuerfrei).ToString("N2", CultureInfo.CurrentCulture)
                                                     rpt.lblSumme.Text = (sumSteuerpflichtig + sumSteuerfrei + (sumSteuerpflichtig * steuerProz)).ToString("N2", CultureInfo.CurrentCulture)
+                                                     rpt.Label46.Text = If(ROW("Währungscode") IsNot DBNull.Value, ROW("Währungscode"), "EUR")

                                                     If sumSteuerfrei = 0 Or sumSteuerpflichtig = 0 Then
                                                         rpt.lblZwText.Visible = False
@@ -2938,8 +2964,25 @@ Public Class cFakturierung
                            Dim outl As New Outlook.Application
                            Dim Mail As Microsoft.Office.Interop.Outlook.MailItem
                            Mail = outl.CreateItem(0)
-                            Mail.Subject = "Rechnung Nr. " & ROW("RechnungsNr")
-                            Mail.HTMLBody = "Sehr geehrte Damen und Herren,<br><br>anbei erhalten Sie die Rechnung Nr. " & ROW("RechnungsNr") & "."
+                            ' Mail.Subject = "Rechnung Nr. " & ROW("RechnungsNr")
+                            ' Mail.HTMLBody = "Sehr geehrte Damen und Herren,<br><br>anbei erhalten Sie die Rechnung Nr. " & ROW("RechnungsNr") & "."
+
+                            ' Mail.Subject = " Rechnung Nr. " & ROW("RechnungsNr")
+                            ' Mail.Subject = VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA & " Rechnung Nr. " & ROW("RechnungsNr")
+                            Select Case ROW("RechnungsLandKz")
+                                Case "TR"
+                                    Mail.Subject = "Invoice NO. " & ROW("RechnungsNr")
+                                    Mail.HTMLBody = "Sayin Bayanlar ve Baylar,<br><br>ekte baslikta yazan faturayi bulabilirsinz."
+                                    Mail.HTMLBody &= "<br><br><br>Saygilarimizla<br><br>" & getSignature(ROW("RechnungsLandKz"), ROW("Firma_ID"))
+                                Case "A", "AT", "D", "DE", "CH"
+                                    Mail.Subject = "Rechnung Nr. " & ROW("RechnungsNr")
+                                    Mail.HTMLBody = "Sehr geehrte Damen und Herren,<br><br>im Anhang senden wir Ihnen die o.g. Rechnung."
+                                    Mail.HTMLBody &= "<br><br><br>Mit freundlichen Grüßen<br><br>" & getSignature(ROW("RechnungsLandKz"), ROW("Firma_ID"))
+                                Case Else
+                                    Mail.Subject = "Invoice No. " & ROW("RechnungsNr")
+                                    Mail.HTMLBody = "Dear Sir or Madam,<br><br>attached we send you the invoice mentioned above."
+                                    Mail.HTMLBody &= "<br><br><br>Best regards<br><br>" & getSignature(ROW("RechnungsLandKz"), ROW("Firma_ID"))
+                            End Select
                            Mail.Attachments.Add(tmpPath, Microsoft.Office.Interop.Outlook.OlAttachmentType.olByValue, , "Formular.pdf")
                            Mail.Display()