sammelrechnungsdruck, ustva, etc.

SDL/Fakturierung/cFakturierung.vb

@@ -7,6 +7,8 @@ Imports s2industries.ZUGFeRD
 Imports System.IO
 Imports GrapeCity.ActiveReports.SectionReportModel
 Imports GrapeCity.ActiveReports
+Imports System.ComponentModel
+Imports VERAG_PROG_ALLGEMEIN.TESTJSON
 
 Public Class cFakturierung
 
@@ -998,6 +1000,78 @@ Public Class cFakturierung
         End Select
 
 
+    End Sub
+
+    Shared Sub initRgFirmaSammelRg_MDM_Bericht(ByRef rpt As rptSammelRechnungAnlagenDruck_MDM, FIRMA As VERAG_PROG_ALLGEMEIN.cFirmen, RechnungsNr As Integer, RechnungsLandKz As String, Buchungsjahr As Object)
+
+        rpt.lblFirmaOrt.Text = If(FIRMA.Firma_Ort, "")
+        rpt.lblFirmaStrasse.Text = If(FIRMA.Firma_Straße, "")
+        rpt.lblFirmaTel.Text = If(FIRMA.Firma_Telefon, "")
+        rpt.lblFirmaFax.Text = If(FIRMA.Firma_Telefax, "")
+        rpt.lblFirmaEmail.Text = If(FIRMA.Firma_E_Mail, "")
+        rpt.lblFirmaWeb.Text = If(FIRMA.Firma_Webadresse, "")
+        rpt.lblFirma.Text = (If(FIRMA.Firma_Bez, "") & ", " & If(FIRMA.Firma_Straße, "").ToString & ", " & If(FIRMA.Firma_Ort, "")).ToString.Replace(" (DE)", "")
+
+        If FIRMA.Firma_ID = 1 Then rpt.lblFirma.Text &= vbNewLine & "D-94152 Neuhaus/Inn, Hartham 6"
+
+        'If FIRMA.Firma_ID = 19 Then rpt.lblFirma.Text &= vbNewLine & "VERAG Spedition GmbH, Hartham 6, D-94152 Neuhaus/Inn"
+
+
+        rpt.lblFirmenbuch.Text = If(FIRMA.Firma_Firmenbuch, "").ToString.Replace("Firmenbuch:", "").Trim
+        rpt.lblUID.Text = If(FIRMA.Firma_UID, "")
+        rpt.lblEORI.Text = If(FIRMA.Firma_EORI, "")
+
+        'Für Vorschau:
+        If Buchungsjahr Is DBNull.Value Then Buchungsjahr = Now.Year
+        If Buchungsjahr Is Nothing Then Buchungsjahr = Now.Year
+
+        rpt.txtBank3.Visible = False
+
+        '  Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA
+        Select Case FIRMA.Firma_ID
+            Case 21, 22, 23 '"UNISPED"
+                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
+
+            Case 26 'VERAG-UNISPED"
+                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
+
+            Case 24 'AMBAR"
+                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.txtBank3.Visible = True
+                rpt.txtBank3.Text = "Garanti Bank Türkei – Euro Konto" & vbNewLine & "IBAN: TR90 0006 2001 6040 0009 0804 66" & vbNewLine & "BIC/SWIFT: TGBATRISXXX".ToString.Trim
+                rpt.txtDisclaimer.Text = rpt.txtDisclaimer.Text.Replace("Schärding oder Passau", "Bad Reichenhall")
+
+            Case 20 '"IMEX"
+                If RechnungsLandKz = "TR" Then
+                    '     rpt.txtBank1.Text = "Garanti Bank " & vbNewLine & "IBAN:TR84 0006 2001 6040 0009 0987 13 " & vbNewLine & "BLZ Sube.: 1604 - Beykent Ticari - Hesap: 9098713"
+                    rpt.txtBank1.Text = "Garanti Bank " & vbNewLine & "IBAN:TR84 0006 2001 6040 0009 0987 13 " & vbNewLine & "BLZ Sube.: 1604 - Hadimköy Ticari - Hesap: 9098713"
+                    rpt.txtBank2.Text = ""
+                Else
+                    If hasVK(RechnungsNr, Buchungsjahr) Then
+                        rpt.txtBank1.Text = "Volksbank Oberösterreich AG" & vbNewLine & "IBAN:AT35 4480 0365 7822 0002" & vbNewLine & "BIC: VBOEATWWOOE"
+                        rpt.txtBank2.Text = ""
+                    Else
+                        If hasEUSTZOLL(RechnungsNr) Then
+                            rpt.txtBank1.Text = "Volksbank Oberösterreich AG" & vbNewLine & "IBAN:AT62 4480 0365 7822 0001" & vbNewLine & "BIC: VBOEATWWOOE"
+                            rpt.txtBank2.Text = ""
+                        Else
+                            rpt.txtBank1.Text = "Volksbank Oberösterreich AG" & vbNewLine & "IBAN:AT89 4480 0365 7822 0000" & vbNewLine & "BIC: VBOEATWWOOE"
+                            rpt.txtBank2.Text = ""
+                        End If
+                    End If
+                End If
+            Case Else 'VERAG,ATILLA, VERAG360
+                rpt.txtBank1.Text = If(FIRMA.Firma_Bankverbindung1, "") & vbNewLine & If(FIRMA.Firma_IBAN1, "") & vbNewLine & If(FIRMA.Firma_BIC1, "").ToString.Trim
+                rpt.txtBank2.Text = If(FIRMA.Firma_Bankverbindung2, "") & vbNewLine & If(FIRMA.Firma_IBAN2, "") & vbNewLine & If(FIRMA.Firma_BIC2, "").ToString.Trim
+
+                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
+
+
     End Sub
 
     Shared Function hasEUSTZOLL(RECHNUNG As VERAG_PROG_ALLGEMEIN.cRechnungsausgang) As Boolean
@@ -3372,48 +3446,123 @@ Public Class cFakturierung
 
             Dim ROW As DataRow = IIf(dt.Rows.Count > 0, dt.Rows(0), Nothing)
 
-            Dim rpt As New rptSammelRechnungAnlagenDruck(ROW("RechnungSprache"))
+            Dim isMDMRechnungsdruck = checkIfMDMSammelrechnung(Rechnugnsdruck, ROW("Status"))
-            rpt.DataSource = dt
 
             Dim FIRMA As New VERAG_PROG_ALLGEMEIN.cFirmen(ROW("Firma_ID"))
             Dim KD_RG As New VERAG_PROG_ALLGEMEIN.cAdressen(ROW("RechnungsKundenNr"))
 
-            Dim isMDMRechnungsdruck = checkIfMDMSammelrechnung(Rechnugnsdruck, ROW("Status"))
-
             If FIRMA Is Nothing Then MsgBox("Keine Firma gewählt!") : Return False
 
-
-            ' Dim dataView As New DataView(dtDataSource)
-            ' dataView.Sort = " LeistungsNr "
-            ' Dim dtTmp As DataTable = dataView.ToTable()
-
-
-            '' MsgBox(rpt.DataSource.rows.count)
-            'If rpt.DataSource.rows.count = 0 Then
-            '    rpt.Dispose()
-            '    MsgBox("Keine Daten vorhanden!")
-            '    Return False
-            'End If
-
             Dim sum = 0
-            'Select Case RECHNUNG.[BelegartenKz]
-            '    Case "AR"
-            '        rpt.lblUeberschriftRG_GS.Text = "RECHNUNG"
-            '    Case "AG"
-            '        rpt.lblUeberschriftRG_GS.Text = "GUTSCHRIFT"
-            '        rpt.Label9.Text = "Gutschriftsbetrag:"
-            '        rpt.Label16.Text = "Gutschrifts-Nr.:"
-            'End Select
 
-            'If RECHNUNG.DruckDatumZeit IsNot Nothing Then rpt.lblUeberschriftRG_GS.Text &= " - KOPIE"
-            'Dim Gesamt_RG_Betrag As Double = CDbl(dt.Compute("SUM(SteuerFreierBetrag)", "")) + CDbl(dt.Compute("SUM(SteuerpflichtigerBetrag)", ""))
-            '   If ROW("SteuerFreierBetrag") IsNot DBNull.Value AndAlso IsNumeric(ROW("SteuerFreierBetrag")) Then Gesamt_RG_Betrag += ROW("SteuerFreierBetrag")
-            '   If ROW("SteuerpflichtigerBetrag") IsNot DBNull.Value AndAlso IsNumeric(ROW("SteuerpflichtigerBetrag")) Then Gesamt_RG_Betrag += ROW("SteuerpflichtigerBetrag")
             Dim BelegartenKz = "AR" 'If(Gesamt_RG_Betrag < 0, "AG", "AR")
 
-            Select Case ROW("RechnungSprache")
+            Dim rpt As GrapeCity.ActiveReports.SectionReport
+            Dim tmpPath As String = ""
+
+
+
+            'ORIGINAL
+            Dim AD As New VERAG_PROG_ALLGEMEIN.cAdressen(ROW("RechnungsKundenNr"))
+            'Dim RG_Bezeichnung = VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA & " _Rechnung_" & RechnungsNr & ".pdf"
+            Dim RG_Bezeichnung = "Rechnung_" & RechnungsNr & ".pdf"
+            'Rechnugnsdruck  =  Individuell für deise Rechnung, wird optional mitgegeben
+
+            If isMDMRechnungsdruck Then
+                rpt = SammelRechnungAnlagenDruck_MDM(ROW, isMDMRechnungsdruck, dt, FIRMA, Rechnugnsdruck, KD_RG, RechnungsNr, VorschauID, Sammelrechnungskopie, RG_Bezeichnung, SammelrechnungsDT, tmpPath)
+            Else
+                rpt = SammelRechnungAnlagenDruck(ROW, isMDMRechnungsdruck, dt, FIRMA, Rechnugnsdruck, KD_RG, RechnungsNr, VorschauID, Sammelrechnungskopie, RG_Bezeichnung, SammelrechnungsDT, tmpPath)
+            End If
+
+
+            Path = tmpPath
+
+
+            Select Case If(Rechnugnsdruck > 0, Rechnugnsdruck, If(AD.Rechnungsdruck, 0))'If(AD.Rechnungsdruck, 0)
+                Case 0, 1 'DRUCKEN
+                    Return cProgramFunctions.printRpt(rpt, PrinterName, False)
+                'Case 1 'FAX
+                Case 2 'MAIL
+
+
+                    rpt.Dispose()
+
+                    Try
+                        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 = 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.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()
+
+                    Catch ex As Exception
+                        MsgBox("Fehler bim Öffnen des Mail-Programmes. PDF wird geladen!")
+                        Process.Start(tmpPath)
+                    End Try
+                    Return True
+
+                Case 3 'PDF + öffnen
+
+                    'Dim tmpPath = VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.getTMPPath(RG_Bezeichnung, ".pdf", , False)
+                    'Dim p As New GrapeCity.ActiveReports.Export.Pdf.Section.PdfExport
+                    'rpt.Run(False)
+                    'p.NeverEmbedFonts = ""
+                    'p.Export(rpt.Document, tmpPath)
+
+                    rpt.Dispose()
+                    Path = tmpPath
+                    Process.Start(tmpPath)
+                    Return True
+                Case 4 'PDF
+
+                    'Dim tmpPath = VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.getTMPPath(RG_Bezeichnung, ".pdf", , False)
+                    'Dim p As New GrapeCity.ActiveReports.Export.Pdf.Section.PdfExport
+                    'rpt.Run(False)
+                    'p.NeverEmbedFonts = ""
+                    'p.Export(rpt.Document, tmpPath)
+
+                    rpt.Dispose()
+                    Path = tmpPath
+                    Return True
+            End Select
+
+
+
+
+        Catch ex As Exception
+            VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
+        End Try
+        Return False
+    End Function
+
+    Shared Function SammelRechnungAnlagenDruck(Row As DataRow, isMDMRechnungsdruck As Boolean, dt As DataTable, Firma As cFirmen, Rechnugnsdruck As Integer, KD_RG As cAdressen, RechnungsNr As Integer, VorschauID As String, Sammelrechnungskopie As Boolean, RG_Bezeichnung As String, SammelrechnungsDT As DataTable, ByRef tmpPath As String) As GrapeCity.ActiveReports.SectionReport
+
+        Dim rpt As New rptSammelRechnungAnlagenDruck(Row("RechnungSprache"))
+
+        rpt.DataSource = dt
+
+        Select Case Row("RechnungSprache")
             Case "EN"
-                    Select Case ROW("BelegartenKz")
+                Select Case Row("BelegartenKz")
                     Case "AR"
                         rpt.lblUeberschriftRG_GS.Text = IIf(Not isMDMRechnungsdruck, "Attatchment to INVOICE", "INVOICE")
                         rpt.lblSummeUeberschrift.Text = "Invoice Amount:"
@@ -3426,7 +3575,7 @@ Public Class cFakturierung
                         rpt.lblRgDatumUeberschrift.Text = "Credit Note Date:"
                 End Select
             Case Else
-                    Select Case ROW("BelegartenKz")
+                Select Case Row("BelegartenKz")
                     Case "AR"
                         rpt.lblUeberschriftRG_GS.Text = IIf(Not isMDMRechnungsdruck, "Anlage zur Sammelrechnung", "Rechnung")
                     Case "AG"
@@ -3435,16 +3584,15 @@ Public Class cFakturierung
                         rpt.lblRgNrUeberschrift.Text = "Gutschrifts-Nr.:"
                         rpt.lblRgDatumUeberschrift.Text = "Gutschrifts-Datum:"
                 End Select
-
         End Select
 
 
 
 
 
-            initRgFirmaSammelRg_Bericht(rpt, FIRMA, RechnungsNr, ROW("RechnungsLandKz"), ROW("Buchungsjahr"))
+        initRgFirmaSammelRg_Bericht(rpt, Firma, RechnungsNr, Row("RechnungsLandKz"), Row("Buchungsjahr"))
 
-            Select Case ROW("Firma_ID")
+        Select Case Row("Firma_ID")
             Case 1 ' rpt.picVERAG.Image= My.Resources.Verag_AG_Logo : rpt.Picture1.Image = My.Resources.aeo_AT_imex is eh standard
             Case 4 : rpt.picVERAG.Image = My.Resources.Verag_AG_Logo : rpt.Picture1.Image = Nothing
             Case 7 : rpt.picVERAG.Image = My.Resources.Atilla_big_med : rpt.Picture1.Image = Nothing
@@ -3460,9 +3608,9 @@ Public Class cFakturierung
         End Select
 
 
-            rpt.lblKundenNr.Text = If(ROW("RechnungsKundenNr") > 0, ROW("RechnungsKundenNr"), "")
+        rpt.lblKundenNr.Text = If(Row("RechnungsKundenNr") > 0, Row("RechnungsKundenNr"), "")
-            rpt.lblRgNr.Text = If(ROW("RechnungsNr") IsNot DBNull.Value, addYeartoRgNr(FIRMA.Firma_ID, ROW("Buchungsjahr")) & ROW("RechnungsNr"), "Vorschau")
+        rpt.lblRgNr.Text = If(Row("RechnungsNr") IsNot DBNull.Value, addYeartoRgNr(Firma.Firma_ID, Row("Buchungsjahr")) & Row("RechnungsNr"), "Vorschau")
-            rpt.lblRgDatum.Text = If(ROW("RechnungsDatum") IsNot DBNull.Value, ROW("RechnungsDatum"), "Vorschau")
+        rpt.lblRgDatum.Text = If(Row("RechnungsDatum") IsNot DBNull.Value, Row("RechnungsDatum"), "Vorschau")
 
         'rpt.lblKundenAuftragsnummer.Text = If(RECHNUNG.KdAuftragsNr, "")
         'If rpt.lblKundenAuftragsnummer.Text = String.Empty Then rpt.lblKundenAuftragsnummerUeberschrift.Visible = False
@@ -3471,48 +3619,48 @@ Public Class cFakturierung
         'rpt.lblAbfertigungsDatum.Text = RECHNUNG.Abfertigungsdatum.ToShortDateString
         'rpt.lblLKWId.Text = If(RECHNUNG.AvisoID, "")
 
-            Dim sachbearbeiterAufRechnung = getSBRgName(ROW("Firma_ID"), VERAG_PROG_ALLGEMEIN.cAllgemein.USRKURZNAME)
+        Dim sachbearbeiterAufRechnung = getSBRgName(Row("Firma_ID"), VERAG_PROG_ALLGEMEIN.cAllgemein.USRKURZNAME)
         rpt.lblSachbearbeiter.Text = IIf(sachbearbeiterAufRechnung = "Herr Ordu", "Verrechnung", sachbearbeiterAufRechnung) 'könnten ja mehrerer SB die Rg-Anlagen geschreiben haben - NEU
 
 
-            rpt.lblSachbearbeiter.Text = getSBRgName(FIRMA.Firma_ID, VERAG_PROG_ALLGEMEIN.cAllgemein.USRKURZNAME) 'könnten ja mehrerer SB die Rg-Anlagen geschreiben haben
+        rpt.lblSachbearbeiter.Text = getSBRgName(Firma.Firma_ID, VERAG_PROG_ALLGEMEIN.cAllgemein.USRKURZNAME) 'könnten ja mehrerer SB die Rg-Anlagen geschreiben haben
-            rpt.lblFirmenbuch.Text = If(FIRMA.Firma_Firmenbuch, "").ToString.Replace("Firmenbuch: ", "").Trim
+        rpt.lblFirmenbuch.Text = If(Firma.Firma_Firmenbuch, "").ToString.Replace("Firmenbuch: ", "").Trim
-            rpt.lblUID.Text = If(FIRMA.Firma_UID, "").ToString.Replace("UID: ", "").Trim
+        rpt.lblUID.Text = If(Firma.Firma_UID, "").ToString.Replace("UID: ", "").Trim
-            rpt.lblEORI.Text = If(FIRMA.Firma_EORI, "")
+        rpt.lblEORI.Text = If(Firma.Firma_EORI, "")
 
-            rpt.txtKdAuftragsnummer.Text = If(ROW("KdAuftragsNr") IsNot DBNull.Value, ROW("KdAuftragsNr"), "")
+        rpt.txtKdAuftragsnummer.Text = If(Row("KdAuftragsNr") IsNot DBNull.Value, Row("KdAuftragsNr"), "")
 
 
-            rpt.lblRechnungAn.Text = ROW("RechnungsName 1") & vbNewLine
+        rpt.lblRechnungAn.Text = Row("RechnungsName 1") & vbNewLine
-            If ROW("RechnungsName 2") IsNot DBNull.Value AndAlso ROW("RechnungsName 2") <> "" Then rpt.lblRechnungAn.Text &= ROW("RechnungsName 2") & vbNewLine
+        If Row("RechnungsName 2") IsNot DBNull.Value AndAlso Row("RechnungsName 2") <> "" Then rpt.lblRechnungAn.Text &= Row("RechnungsName 2") & vbNewLine
-            If ROW("RechnungsName_AdressZusatz") IsNot DBNull.Value AndAlso ROW("RechnungsName_AdressZusatz") <> "" Then rpt.lblRechnungAn.Text &= ROW("RechnungsName_AdressZusatz") & vbNewLine
+        If Row("RechnungsName_AdressZusatz") IsNot DBNull.Value AndAlso Row("RechnungsName_AdressZusatz") <> "" Then rpt.lblRechnungAn.Text &= Row("RechnungsName_AdressZusatz") & vbNewLine
-            If ROW("RechnungsStraße") IsNot DBNull.Value AndAlso ROW("RechnungsStraße") <> "" Then rpt.lblRechnungAn.Text &= ROW("RechnungsStraße") & vbNewLine
+        If Row("RechnungsStraße") IsNot DBNull.Value AndAlso Row("RechnungsStraße") <> "" Then rpt.lblRechnungAn.Text &= Row("RechnungsStraße") & vbNewLine
-            If ROW("RechnungsOrt") IsNot DBNull.Value AndAlso ROW("RechnungsOrt") <> "" Then rpt.lblRechnungAn.Text &= ROW("RechnungsOrt") & vbNewLine
+        If Row("RechnungsOrt") IsNot DBNull.Value AndAlso Row("RechnungsOrt") <> "" Then rpt.lblRechnungAn.Text &= Row("RechnungsOrt") & vbNewLine
-            If ROW("RechnungsLandKz") IsNot DBNull.Value AndAlso ROW("RechnungsLandKz") <> "" Then rpt.lblRechnungAn.Text &= cProgramFunctions.getLandBez_fromISO1Land(ROW("RechnungsLandKz"), "", ROW("RechnungSprache")).ToString.ToUpper
+        If Row("RechnungsLandKz") IsNot DBNull.Value AndAlso Row("RechnungsLandKz") <> "" Then rpt.lblRechnungAn.Text &= cProgramFunctions.getLandBez_fromISO1Land(Row("RechnungsLandKz"), "", Row("RechnungSprache")).ToString.ToUpper
 
 
 
 
         If isMDMRechnungsdruck Then
 
-                If getReverseChargeSumme(FIRMA, ROW("RechnungsLandKz"), ROW("RechnungsNr"), ROW("RechnungsDatum"), VorschauID) > 0 Then
+            If getReverseChargeSumme(Firma, Row("RechnungsLandKz"), Row("RechnungsNr"), Row("RechnungsDatum"), VorschauID) > 0 Then
-                    Select Case ROW("RechnungSprache")
+                Select Case Row("RechnungSprache")
                     Case "EN" : rpt.txtInfo.Text = vbNewLine & vbNewLine & "The VAT liability is transferred to the recipient of the service (reverse charge system)." '"Attention! For EU customers! Since 1.1.2010, services are subject to the application of the reverse charge procedure. Transfer of the tax liability to the recipient of the service."
                     Case Else : rpt.txtInfo.Text = vbNewLine & vbNewLine & "Die Umsatzsteuerschuld geht auf den Leistungsempfänger über (Reverse Charge Verfahren)." '"Achtung! Für EU-Kunden! Seit 1.1.2010 unterliegen Leistungen der Anwendung des Reverse Charge Verfahrens. Übergang der Steuerschuld an den Leistungsempfänger."
                 End Select
             Else : rpt.txtInfo.Text = "" : End If
 
-                If ROW("Nettozahlungsziel") IsNot DBNull.Value AndAlso IsNumeric(ROW("Nettozahlungsziel")) Then
+            If Row("Nettozahlungsziel") IsNot DBNull.Value AndAlso IsNumeric(Row("Nettozahlungsziel")) Then
-                    rpt.Label2.Text = ROW("Nettozahlungsziel")
+                rpt.Label2.Text = Row("Nettozahlungsziel")
             Else
                 rpt.Label2.Text = ""
             End If
 
 
 
-                If ROW("Text") IsNot DBNull.Value AndAlso ROW("Text") <> "" Then
+            If Row("Text") IsNot DBNull.Value AndAlso Row("Text") <> "" Then
-                    rpt.txtInfo.Text &= vbNewLine & vbNewLine & ROW("Text")
+                rpt.txtInfo.Text &= vbNewLine & vbNewLine & Row("Text")
-                    rpt.txtVermerk.Text = (If(ROW("Text"), "").ToString.Trim & vbNewLine & vbNewLine & If(ROW("Notiz"), "").ToString.Trim).ToString.Trim
+                rpt.txtVermerk.Text = (If(Row("Text"), "").ToString.Trim & vbNewLine & vbNewLine & If(Row("Notiz"), "").ToString.Trim).ToString.Trim
             Else
                 rpt.txtInfo.Text = ""
                 rpt.txtVermerk.Text = ""
@@ -3550,7 +3698,7 @@ Public Class cFakturierung
         rpt.lblRechnung_Steuernummer.Visible = (rpt.lblRechnung_Steuernummer.Text <> String.Empty)
         rpt.lblRechnung_Steuernummer_Ueberschrift.Visible = (rpt.lblRechnung_Steuernummer.Text <> String.Empty)
 
-            rpt.lblRechnung_UID.Text = If(ROW("RechnungsUstIdKz") IsNot DBNull.Value, ROW("RechnungsUstIdKz"), "") & If(ROW("RechnungsUstIdNr") IsNot DBNull.Value, ROW("RechnungsUstIdNr"), "")
+        rpt.lblRechnung_UID.Text = If(Row("RechnungsUstIdKz") IsNot DBNull.Value, Row("RechnungsUstIdKz"), "") & If(Row("RechnungsUstIdNr") IsNot DBNull.Value, Row("RechnungsUstIdNr"), "")
         rpt.lblRechnung_UID.Visible = (rpt.lblRechnung_UID.Text <> String.Empty)
         rpt.lblRechnung_UID_Ueberschrift.Visible = (rpt.lblRechnung_UID.Text <> String.Empty)
 
@@ -3568,7 +3716,7 @@ Public Class cFakturierung
 
         If Sammelrechnungskopie Then
             Dim imageForWatermark As Image
-                Select Case ROW("RechnungSprache")
+            Select Case Row("RechnungSprache")
                 Case "EN" : rpt.lblUeberschriftRG_GS.Text &= " - COPY" : imageForWatermark = My.Resources.ungueltig_en
                 Case Else : rpt.lblUeberschriftRG_GS.Text &= " - KOPIE" : imageForWatermark = My.Resources.ungueltig_de
             End Select
@@ -3584,7 +3732,6 @@ Public Class cFakturierung
         End If
 
 
-
         AddHandler rpt.Detail.Format, Sub()
                                           ' rpt.lblVon.Text = CDate(rpt.Fields.Item("von").Value).ToShortDateString
                                           ' rpt.lblLKWNr.Text = CDate(rpt.Fields.Item("bis").Value).ToShortDateString
@@ -3695,47 +3842,16 @@ End If
                                                  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")
+                                                 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
                                                      rpt.lblZWSumme.Visible = False
                                                  End If
 
-
-                                                     'Dim BelegartenKz = If(CDbl((sumSteuerpflichtig + sumSteuerfrei + (sumSteuerpflichtig * steuerProz))) < 0, "AG", "AR")
-
-
                                              End Sub
 
-'DruckDatumUhrzeit wird gesetzt, falls noch ungedruckt...
+        tmpPath = VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.getTMPPath(RG_Bezeichnung, ".pdf", , False)
-'If RECHNUNG.DruckDatumZeit Is Nothing Then
-'    RECHNUNG.SET_DruckdatumUhrzeit()
-'End If
-
-
-            If isMDMRechnungsdruck Then
-                If Rechnugnsdruck = 4 Or Rechnugnsdruck = 2 Then
-                    If ROW("RechnungsLandKz") IsNot DBNull.Value AndAlso ROW("RechnungsLandKz") <> "" AndAlso rpt.lblSteuerbetrag.Text = "" Then
-                        rpt.txtInfo.Text &= vbNewLine & vbNewLine & (New SQL).getValueTxtBySql("SELECT Text FROM Rechnungstexte WHERE Firma_ID=0 AND EMailRechnung=1 AND Rechnungstexte.DrucksteuerungsKz='R' AND LandKZ='" & ROW("RechnungsLandKz") & "'", "FMZOLL")
-                    End If
-                End If
-
-            End If
-
-
-
-
-            'ORIGINAL
-            Dim AD As New VERAG_PROG_ALLGEMEIN.cAdressen(ROW("RechnungsKundenNr"))
-            'Dim RG_Bezeichnung = VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA & " _Rechnung_" & RechnungsNr & ".pdf"
-            Dim RG_Bezeichnung = "Rechnung_" & RechnungsNr & ".pdf"
-'Rechnugnsdruck  =  Individuell für deise Rechnung, wird optional mitgegeben
-
-
-
-
-            Dim tmpPath = VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.getTMPPath(RG_Bezeichnung, ".pdf", , False)
         Dim pEx As New GrapeCity.ActiveReports.Export.Pdf.Section.PdfExport
         rpt.Run(False)
         pEx.NeverEmbedFonts = ""
@@ -3759,90 +3875,313 @@ End If
         End If
 
 
+        Return rpt
 
-            Path = tmpPath
-
-
-
-
-
-
-            Select Case If(Rechnugnsdruck > 0, Rechnugnsdruck, If(AD.Rechnungsdruck, 0))'If(AD.Rechnungsdruck, 0)
-                Case 0, 1 'DRUCKEN
-                    Return cProgramFunctions.printRpt(rpt, PrinterName, False)
-                'Case 1 'FAX
-                Case 2 'MAIL
-
-
-                    rpt.Dispose()
-
-                    Try
-                        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 = 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.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()
-
-                    Catch ex As Exception
-                        MsgBox("Fehler bim Öffnen des Mail-Programmes. PDF wird geladen!")
-                        Process.Start(tmpPath)
-                    End Try
-                    Return True
-
-                Case 3 'PDF + öffnen
-
-                    'Dim tmpPath = VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.getTMPPath(RG_Bezeichnung, ".pdf", , False)
-                    'Dim p As New GrapeCity.ActiveReports.Export.Pdf.Section.PdfExport
-                    'rpt.Run(False)
-                    'p.NeverEmbedFonts = ""
-                    'p.Export(rpt.Document, tmpPath)
-
-                    rpt.Dispose()
-                    Path = tmpPath
-                    Process.Start(tmpPath)
-                    Return True
-                Case 4 'PDF
-
-                    'Dim tmpPath = VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.getTMPPath(RG_Bezeichnung, ".pdf", , False)
-                    'Dim p As New GrapeCity.ActiveReports.Export.Pdf.Section.PdfExport
-                    'rpt.Run(False)
-                    'p.NeverEmbedFonts = ""
-                    'p.Export(rpt.Document, tmpPath)
-
-                    rpt.Dispose()
-                    Path = tmpPath
-                    Return True
-            End Select
-
-
-
-
-        Catch ex As Exception
-            VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
-        End Try
-        Return False
     End Function
 
+    Shared Function SammelRechnungAnlagenDruck_MDM(Row As DataRow, isMDMRechnungsdruck As Boolean, dt As DataTable, Firma As cFirmen, Rechnugnsdruck As Integer, KD_RG As cAdressen, RechnungsNr As Integer, VorschauID As String, Sammelrechnungskopie As Boolean, RG_Bezeichnung As String, SammelrechnungsDT As DataTable, ByRef tmpPath As String) As GrapeCity.ActiveReports.SectionReport
+
+        Dim rpt As New rptSammelRechnungAnlagenDruck_MDM(Row("RechnungSprache"))
+
+        rpt.DataSource = dt
+
+        Select Case Row("RechnungSprache")
+            Case "EN"
+                Select Case Row("BelegartenKz")
+                    Case "AR"
+                        rpt.lblUeberschriftRG_GS.Text = IIf(Not isMDMRechnungsdruck, "Attatchment to INVOICE", "INVOICE")
+                        rpt.lblSummeUeberschrift.Text = "Invoice Amount:"
+                        rpt.lblRgNrUeberschrift.Text = "Invoice No.:"
+                        rpt.lblRgDatumUeberschrift.Text = "Invoice Date:"
+                    Case "AG"
+                        rpt.lblUeberschriftRG_GS.Text = IIf(Not isMDMRechnungsdruck, "Attatchment to CREDIT NOTE", "CREDIT NOTE")
+                        rpt.lblSummeUeberschrift.Text = "Credit Amount:"
+                        rpt.lblRgNrUeberschrift.Text = "Credit Note No.:"
+                        rpt.lblRgDatumUeberschrift.Text = "Credit Note Date:"
+                End Select
+            Case Else
+                Select Case Row("BelegartenKz")
+                    Case "AR"
+                        rpt.lblUeberschriftRG_GS.Text = IIf(Not isMDMRechnungsdruck, "Anlage zur Sammelrechnung", "Rechnung")
+                    Case "AG"
+                        rpt.lblUeberschriftRG_GS.Text = IIf(Not isMDMRechnungsdruck, "Anlage zur Sammelgutschrift", "GUTSCHRIFT")
+                        rpt.lblSummeUeberschrift.Text = "Gutschriftsbetrag:"
+                        rpt.lblRgNrUeberschrift.Text = "Gutschrifts-Nr.:"
+                        rpt.lblRgDatumUeberschrift.Text = "Gutschrifts-Datum:"
+                End Select
+        End Select
+
+
+
+
+
+        initRgFirmaSammelRg_MDM_Bericht(rpt, Firma, RechnungsNr, Row("RechnungsLandKz"), Row("Buchungsjahr"))
+
+        Select Case Row("Firma_ID")
+            Case 1 ' rpt.picVERAG.Image= My.Resources.Verag_AG_Logo : rpt.Picture1.Image = My.Resources.aeo_AT_imex is eh standard
+            Case 4 : rpt.picVERAG.Image = My.Resources.Verag_AG_Logo : rpt.Picture1.Image = Nothing
+            Case 7 : rpt.picVERAG.Image = My.Resources.Atilla_big_med : rpt.Picture1.Image = Nothing
+            Case 11 : rpt.picVERAG.Image = My.Resources.Verag_Customs_Service_GMBH_Logo : rpt.Picture1.Image = My.Resources.aeo_CS
+            Case 19 : rpt.picVERAG.Image = My.Resources.VERAG_360 : rpt.Picture1.Image = Nothing
+            Case 20 : rpt.picVERAG.Image = My.Resources.IMEX_LOGO_simple : rpt.Picture1.Image = My.Resources.aeo_AT_imex
+            Case 21 : rpt.picVERAG.Image = My.Resources.Unisped_logo : rpt.Picture1.Image = My.Resources.unisped_aeo_AT
+            Case 22 : rpt.picVERAG.Image = My.Resources.Unisped_DE_logo : rpt.Picture1.Image = My.Resources.unisped_aeo_DE
+            Case 23 : rpt.picVERAG.Image = My.Resources.Unisped_ZS_logo : rpt.Picture1.Image = My.Resources.unisped_aeo_ZS_AT
+            Case 24 : rpt.picVERAG.Image = My.Resources.ambar_simple : rpt.Picture1.Image = Nothing
+            Case 26 : rpt.picVERAG.Image = My.Resources.VERAG_UNISPED_Logo : rpt.Picture1.Image = Nothing
+            Case 17 : rpt.picVERAG.Image = My.Resources.FrontOfficeSUB_Horizontal : rpt.Picture1.Image = Nothing
+        End Select
+
+
+        rpt.lblKundenNr.Text = If(Row("RechnungsKundenNr") > 0, Row("RechnungsKundenNr"), "")
+        rpt.lblRgNr.Text = If(Row("RechnungsNr") IsNot DBNull.Value, addYeartoRgNr(Firma.Firma_ID, Row("Buchungsjahr")) & Row("RechnungsNr"), "Vorschau")
+        rpt.lblRgDatum.Text = If(Row("RechnungsDatum") IsNot DBNull.Value, Row("RechnungsDatum"), "Vorschau")
+
+        'rpt.lblKundenAuftragsnummer.Text = If(RECHNUNG.KdAuftragsNr, "")
+        'If rpt.lblKundenAuftragsnummer.Text = String.Empty Then rpt.lblKundenAuftragsnummerUeberschrift.Visible = False
+
+        'rpt.lblAbfertigungsNr.Text = ROW("FilialenNr") & " / " & ROW("AbfertigungsNr") & " " & ROW("SpeditionsbuchUnterNr").ToString("00")
+        'rpt.lblAbfertigungsDatum.Text = RECHNUNG.Abfertigungsdatum.ToShortDateString
+        'rpt.lblLKWId.Text = If(RECHNUNG.AvisoID, "")
+
+        Dim sachbearbeiterAufRechnung = getSBRgName(Row("Firma_ID"), VERAG_PROG_ALLGEMEIN.cAllgemein.USRKURZNAME)
+        rpt.lblSachbearbeiter.Text = IIf(sachbearbeiterAufRechnung = "Herr Ordu", "Verrechnung", sachbearbeiterAufRechnung) 'könnten ja mehrerer SB die Rg-Anlagen geschreiben haben - NEU
+
+
+        rpt.lblSachbearbeiter.Text = getSBRgName(Firma.Firma_ID, VERAG_PROG_ALLGEMEIN.cAllgemein.USRKURZNAME) 'könnten ja mehrerer SB die Rg-Anlagen geschreiben haben
+        rpt.lblFirmenbuch.Text = If(Firma.Firma_Firmenbuch, "").ToString.Replace("Firmenbuch: ", "").Trim
+        rpt.lblUID.Text = If(Firma.Firma_UID, "").ToString.Replace("UID: ", "").Trim
+        rpt.lblEORI.Text = If(Firma.Firma_EORI, "")
+
+        'rpt.txtKdAuftragsnummer.Text = If(Row("KdAuftragsNr") IsNot DBNull.Value, Row("KdAuftragsNr"), "")
+
+
+        rpt.lblRechnungAn.Text = Row("RechnungsName 1") & vbNewLine
+        If Row("RechnungsName 2") IsNot DBNull.Value AndAlso Row("RechnungsName 2") <> "" Then rpt.lblRechnungAn.Text &= Row("RechnungsName 2") & vbNewLine
+        If Row("RechnungsName_AdressZusatz") IsNot DBNull.Value AndAlso Row("RechnungsName_AdressZusatz") <> "" Then rpt.lblRechnungAn.Text &= Row("RechnungsName_AdressZusatz") & vbNewLine
+        If Row("RechnungsStraße") IsNot DBNull.Value AndAlso Row("RechnungsStraße") <> "" Then rpt.lblRechnungAn.Text &= Row("RechnungsStraße") & vbNewLine
+        If Row("RechnungsOrt") IsNot DBNull.Value AndAlso Row("RechnungsOrt") <> "" Then rpt.lblRechnungAn.Text &= Row("RechnungsOrt") & vbNewLine
+        If Row("RechnungsLandKz") IsNot DBNull.Value AndAlso Row("RechnungsLandKz") <> "" Then rpt.lblRechnungAn.Text &= cProgramFunctions.getLandBez_fromISO1Land(Row("RechnungsLandKz"), "", Row("RechnungSprache")).ToString.ToUpper
+
+
+
+
+        If isMDMRechnungsdruck Then
+
+            If getReverseChargeSumme(Firma, Row("RechnungsLandKz"), Row("RechnungsNr"), Row("RechnungsDatum"), VorschauID) > 0 Then
+                Select Case Row("RechnungSprache")
+                    Case "EN" : rpt.txtInfo.Text = vbNewLine & vbNewLine & "The VAT liability is transferred to the recipient of the service (reverse charge system)." '"Attention! For EU customers! Since 1.1.2010, services are subject to the application of the reverse charge procedure. Transfer of the tax liability to the recipient of the service."
+                    Case Else : rpt.txtInfo.Text = vbNewLine & vbNewLine & "Die Umsatzsteuerschuld geht auf den Leistungsempfänger über (Reverse Charge Verfahren)." '"Achtung! Für EU-Kunden! Seit 1.1.2010 unterliegen Leistungen der Anwendung des Reverse Charge Verfahrens. Übergang der Steuerschuld an den Leistungsempfänger."
+                End Select
+            Else : rpt.txtInfo.Text = "" : End If
+
+            If Row("Nettozahlungsziel") IsNot DBNull.Value AndAlso IsNumeric(Row("Nettozahlungsziel")) Then
+                rpt.Label2.Text = Row("Nettozahlungsziel")
+            Else
+                rpt.Label2.Text = ""
+            End If
+
+
+
+            If Row("Text") IsNot DBNull.Value AndAlso Row("Text") <> "" Then
+                rpt.txtInfo.Text &= vbNewLine & vbNewLine & Row("Text")
+                rpt.txtVermerk.Text = (If(Row("Text"), "").ToString.Trim & vbNewLine & vbNewLine & If(Row("Notiz"), "").ToString.Trim).ToString.Trim
+            Else
+                rpt.txtInfo.Text = ""
+                rpt.txtVermerk.Text = ""
+            End If
+        Else
+            rpt.txtInfo.Text = ""
+            rpt.txtVermerk.Text = ""
+        End If
+
+
+        If KD_RG IsNot Nothing AndAlso If(KD_RG.Steuernummer, "") <> String.Empty Then
+            If isMDMRechnungsdruck Then
+                rpt.lblRechnung_Steuernummer.Text = If(KD_RG.Steuernummer, "").ToString.Trim
+            Else
+                rpt.lblRechnung_Steuernummer.Text = If(KD_RG.LandKz, "") & " " & If(KD_RG.Steuernummer, "").ToString.Trim
+                ' rpt.lblRechnung_UID.Text = If(KD_RG.UstIdKz, "") & " " & If(KD_RG.UstIdNr, "").ToString.Trim
+
+            End If
+        Else
+            rpt.lblRechnung_Steuernummer.Text = ""
+            '   rpt.lblRechnung_UID.Text = ""
+        End If
+        rpt.lblRechnung_Steuernummer.Visible = (rpt.lblRechnung_Steuernummer.Text <> String.Empty)
+        rpt.lblRechnung_Steuernummer_Ueberschrift.Visible = (rpt.lblRechnung_Steuernummer.Text <> String.Empty)
+
+        rpt.lblRechnung_UID.Text = If(Row("RechnungsUstIdKz") IsNot DBNull.Value, Row("RechnungsUstIdKz"), "") & If(Row("RechnungsUstIdNr") IsNot DBNull.Value, Row("RechnungsUstIdNr"), "")
+        rpt.lblRechnung_UID.Visible = (rpt.lblRechnung_UID.Text <> String.Empty)
+        rpt.lblRechnung_UID_Ueberschrift.Visible = (rpt.lblRechnung_UID.Text <> String.Empty)
+
+        rpt.lblDurchlaufposten.Visible = isMDMRechnungsdruck
+        rpt.lblSteuerplichtUeberschriftMDM.Visible = isMDMRechnungsdruck
+        rpt.lblEORI.Visible = Not isMDMRechnungsdruck
+        rpt.lblEORIUeberschrift.Visible = Not isMDMRechnungsdruck
+        'rpt.txtAbfertigungsart.Visible = Not isMDMRechnungsdruck
+
+        Dim sumSteuerpflichtig As Double = 0
+        Dim sumSteuerfrei As Double = 0
+
+
+        If Sammelrechnungskopie Then
+            Dim imageForWatermark As Image
+            Select Case Row("RechnungSprache")
+                Case "EN" : rpt.lblUeberschriftRG_GS.Text &= " - COPY" : imageForWatermark = My.Resources.ungueltig_en
+                Case Else : rpt.lblUeberschriftRG_GS.Text &= " - KOPIE" : imageForWatermark = My.Resources.ungueltig_de
+            End Select
+
+            If False Then 'deaktiviert weil nun doch nicht benötigt
+                If Rechnugnsdruck = 7 Then 'nur bei "Vorschaudruck"
+                    rpt.Watermark = imageForWatermark
+                    rpt.WatermarkSizeMode = GrapeCity.ActiveReports.SectionReportModel.SizeModes.Zoom
+                End If
+
+            End If
+
+        End If
+
+
+        AddHandler rpt.Detail.Format, Sub()
+                                          ' rpt.lblVon.Text = CDate(rpt.Fields.Item("von").Value).ToShortDateString
+                                          ' rpt.lblLKWNr.Text = CDate(rpt.Fields.Item("bis").Value).ToShortDateString
+
+                                          ' rpt.lblLeistungNr.Text = checkNull(rpt.Fields.Item("LeistungsNr").Value)
+                                          ' rpt.txtLeistung.Text = checkNull(rpt.Fields.Item("LeistungsBez").Value)
+                                          Dim RECHNUNG As New VERAG_PROG_ALLGEMEIN.cRechnungsausgang(rpt.Fields.Item("RK_ID").Value)
+                                          If RECHNUNG IsNot Nothing Then
+                                              rpt.lblPosNr.Text = RECHNUNG.FilialenNr & "/" & RECHNUNG.AbfertigungsNr & "/" & CDbl(If(RECHNUNG.SpeditionsbuchUnterNr, 0)).ToString("000")
+                                              rpt.lblDatum.Text = RECHNUNG.Abfertigungsdatum.ToShortDateString
+
+                                              Dim AbfertigungsBez = SQL.getValueTxtBySql("SELECT TOP 1 isnull(Abfertigungsbezeichnung,'')  FROM [Speditionsbuch] inner join Abfertigungsarten ON Abfertigungsarten.Abfertigungsart=Speditionsbuch.Abfertigungsart WHERE FilialenNr='" & RECHNUNG.FilialenNr & "' AND AbfertigungsNr='" & RECHNUNG.AbfertigungsNr & "' AND UnterNr='" & RECHNUNG.SpeditionsbuchUnterNr & "'", "FMZOLL")
+                                              AbfertigungsBez = AbfertigungsBez.Replace("ZA", "Zollabfertigung")
+                                              AbfertigungsBez = AbfertigungsBez.Replace("AE", "Ausfuhrabfertigung")
+                                              AbfertigungsBez = AbfertigungsBez.Replace("T1", "T1 Versandschein")
+                                              AbfertigungsBez = AbfertigungsBez.Replace("T2", "T2 Versandschein")
+                                              'rpt.txtAbfertigungsart.Text = AbfertigungsBez
+
+                                              'rpt.txtPackstuecke.Text = ""
+                                              'If If(RECHNUNG.Packstücke_und_Warenbezeichnung, "") <> "" Then rpt.txtPackstuecke.Text = RECHNUNG.Packstücke_und_Warenbezeichnung.replace(vbNewLine, ", ")
+
+                                              'rpt.txtSendungsdetails.Text = ""
+                                              'If RECHNUNG.AbsenderName_1 <> "" Then rpt.txtSendungsdetails.Text &= "Absender: " & RECHNUNG.AbsenderName_1 & " " & If(RECHNUNG.AbsenderName_2, "") & "  " & If(RECHNUNG.AbsenderOrt, "") & vbNewLine
+                                              'If RECHNUNG.EmpfängerName_1 <> "" Then rpt.txtSendungsdetails.Text &= "Empfänger: " & RECHNUNG.EmpfängerName_1 & " " & If(RECHNUNG.EmpfängerName_2, "") & "  " & If(RECHNUNG.EmpfängerOrt, "") & vbNewLine
+                                              'If RECHNUNG.LKW_Kennzeichen <> "" Then rpt.txtSendungsdetails.Text &= "LKW-Kennzeichen: " & RECHNUNG.LKW_Kennzeichen & vbNewLine
+                                              'If RECHNUNG.BelegNr <> "" Then rpt.txtSendungsdetails.Text &= "Zollbeleg-Nr.: " & RECHNUNG.BelegNr & vbNewLine
+
+                                              If If(RECHNUNG.Handling, "") <> "" Then
+                                                  ' rpt.txtSendungsdetails.Text &= "Handling: " & RECHNUNG.Handling.ToString.Replace(vbNewLine, ", ").Replace(vbCr, ", ").Replace(vbLf, ", ") & vbNewLine
+                                              End If
+                                              If True Then 'ANLAGEN
+                                                  Dim Anlagen = ""
+                                                  If If(RECHNUNG.Anlage_1, "") <> "" Then Anlagen &= RECHNUNG.Anlage_1 & ", "
+                                                  If If(RECHNUNG.Anlage_2, "") <> "" Then Anlagen &= RECHNUNG.Anlage_2 & ", "
+                                                  If If(RECHNUNG.Anlage_3, "") <> "" Then Anlagen &= RECHNUNG.Anlage_3 & ", "
+                                                  If If(RECHNUNG.Anlage_4, "") <> "" Then Anlagen &= RECHNUNG.Anlage_4 & ", "
+                                                  If If(RECHNUNG.Anlage_5, "") <> "" Then Anlagen &= RECHNUNG.Anlage_5 & ", "
+                                                  If If(RECHNUNG.Anlage_6, "") <> "" Then Anlagen &= RECHNUNG.Anlage_6 & ", "
+                                                  If Anlagen.EndsWith(", ") Then Anlagen = Anlagen.Substring(0, Anlagen.Length - 2)
+                                                  'If Anlagen.Replace(" ", "").Trim <> "" Then 'rpt.txtSendungsdetails.Text &= "Anlagen: " & Anlagen
+                                              End If
+
+
+
+                                                  'rpt.txtSendungsdetails.Text = rpt.txtSendungsdetails.Text.Trim
+                                                  'rpt.txtKdAuftragsnummer.Text = If(RECHNUNG.KdAuftragsNr, "")
+
+                                                  Dim stPfl As Double = 0
+                                              Dim stFrei As Double = 0
+
+                                              Dim vorzeichen = If(If(RECHNUNG.Vorzeichen, "") = "-", -1, 1) 'Bei Rechnung als Klasse ist der Betrag immer positiv!
+
+                                              For Each p In RECHNUNG.POSITIONEN
+                                                  stPfl += CDbl(p.SteuerpflichtigerBetrag)
+                                              Next
+                                              stPfl *= vorzeichen
+                                              rpt.lblSteuerpflichtig.Text = If(stPfl <> 0, CDbl(stPfl).ToString("N2", Globalization.CultureInfo.CurrentCulture), "")
+
+                                              stFrei = CDbl(RECHNUNG.SteuerfreierGesamtbetrag) * vorzeichen
+                                              rpt.lblSteuerfrei.Text = If(stFrei <> 0, CDbl(stFrei).ToString("N2", Globalization.CultureInfo.CurrentCulture), "")
+
+                                              sumSteuerpflichtig += stPfl
+                                              sumSteuerfrei += stFrei
+
+
+                                              Dim KUNDE_ERW As New VERAG_PROG_ALLGEMEIN.cKundenErweitert(RECHNUNG.RechnungsKundenNr)
+                                              If KUNDE_ERW.kde_FakturierungSR_Details OrElse isMDMRechnungsdruck Then
+                                                  Dim subRpt = New rptSammelRechnungAnlagenDruck_Leistungen(rpt._LAN, RECHNUNG)
+
+
+                                                  rpt.SubReport.Report = subRpt
+                                                  rpt.lblSteuerfrei.Font = New Font(rpt.lblSteuerfrei.Font, FontStyle.Bold)
+                                                  rpt.lblSteuerpflichtig.Font = New Font(rpt.lblSteuerfrei.Font, FontStyle.Bold)
+
+                                                  'txtPackstuecke.Top += SubReport.Height
+                                                  'txtKdAuftragsnummer.Top += SubReport.Height
+                                                  'txtSendungsdetails.Top += SubReport.Height
+                                              Else
+                                                  rpt.SubReport.Report = Nothing
+                                              End If
+                                              ' rpt.Line10.AnchorBottom = True
+                                              ' rpt.Line10.Height = rpt.Detail.Height
+                                          End If
+
+                                      End Sub
+
+        AddHandler rpt.ReportFooter1.Format, Sub()
+                                                 rpt.lblSteuerpflichtigGes.Text = If(sumSteuerpflichtig <> 0, (sumSteuerpflichtig).ToString("N2", CultureInfo.CurrentCulture), "")
+                                                 rpt.lblSteuerfreiGes.Text = If(sumSteuerfrei <> 0, (sumSteuerfrei).ToString("N2", CultureInfo.CurrentCulture), "")
+
+
+                                                 Dim steuerProz As Double = 0
+                                                 Dim steuerBez As String = ""
+
+                                                 Dim dt2 As DataTable = SQL.loadDgvBySql("SELECT TOP 1 isnull([Steuersatz %],0),isnull([Steuerbezeichnung],'')  FROM [Steuertabelle] WHERE [Steuerschlüssel]='" & checkNull(rpt.Fields.Item("Steuerschlüssel").Value) & "'", "FMZOLL")
+                                                 If dt2 IsNot Nothing AndAlso dt2.Rows.Count > 0 Then
+                                                     steuerProz = dt2.Rows(0)(0)
+                                                     steuerBez = dt2.Rows(0)(1)
+                                                 End If
+
+                                                 Dim tmpSteuerbetrag = CDbl((sumSteuerpflichtig * steuerProz))
+                                                 If tmpSteuerbetrag = 0 Then
+                                                     rpt.lblSteuerbetrag.Visible = False
+                                                     rpt.lblSteuersatz.Visible = False
+                                                 End If
+
+                                                 rpt.lblSteuersatz.Text = steuerBez
+                                                 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
+                                                     rpt.lblZWSumme.Visible = False
+                                                 End If
+
+                                             End Sub
+
+
+        If Rechnugnsdruck = 4 Or Rechnugnsdruck = 2 Then
+            If Row("RechnungsLandKz") IsNot DBNull.Value AndAlso Row("RechnungsLandKz") <> "" AndAlso rpt.lblSteuerbetrag.Text = "" Then
+                rpt.txtInfo.Text &= vbNewLine & vbNewLine & (New SQL).getValueTxtBySql("SELECT Text FROM Rechnungstexte WHERE Firma_ID=0 AND EMailRechnung=1 AND Rechnungstexte.DrucksteuerungsKz='R' AND LandKZ='" & Row("RechnungsLandKz") & "'", "FMZOLL")
+            End If
+        End If
+
+        tmpPath = VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.getTMPPath(RG_Bezeichnung, ".pdf", , False)
+        Dim pEx As New GrapeCity.ActiveReports.Export.Pdf.Section.PdfExport
+        rpt.Run(False)
+        pEx.NeverEmbedFonts = ""
+        pEx.Export(rpt.Document, tmpPath)
+
+
+        Return rpt
+
+    End Function
+
+
+
     Shared Function getSBRgName(Firma_id As Integer, USRKURZNAME As String) As String
 
         If USRKURZNAME Is Nothing Then Return ""
@@ -4385,7 +4724,6 @@ End If
                                     Dim Path = VERAG_PROG_ALLGEMEIN.cDATENSERVER.GET_PDFPath_BY_DocID(RG_AH.dsId)
                                     listAnh.Add(Path)
                                 End If
-
                             Else
 
                                 If RG_AH.Bezeichnung.ToUpper.Contains("MAUT") Or RG_AH.Bezeichnung.ToUpper.Contains("DIESEL") Or RG_AH.Bezeichnung.ToUpper.Contains("INVOICE") Then

SDL/Fakturierung/frmFaktEmail.vb

@@ -556,6 +556,7 @@ Public Class frmFaktEmail
 
                             If outl.Session.Accounts.Count > 0 Then
                                 For Each oAccount In outl.Session.Accounts
+
                                     If oAccount.SmtpAddress = accountToSent Then
                                         Mail.SendUsingAccount = oAccount
                                         Exit For

SDL/Fakturierung/frmRechnungenSuche.vb

@@ -594,6 +594,8 @@ Public Class frmRechnungenSuche
 
             rpt.DataSource = dt
 
+            'cProgramFunctions.genExcelFromDT_NEW(DataGridView.DataSource)
+
             If rpt.DataSource.rows.count = 0 Then
                 rpt.Dispose() : print.Dispose()
                 MsgBox("Keine Daten vorhanden!")

SDL/Fakturierung/rptSammelRechnungAnlagenDruck.Designer.vb

@@ -1039,7 +1039,7 @@ Partial Public Class rptSammelRechnungAnlagenDruck
         'GroupHeader4
         '
         Me.GroupHeader4.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.lblLeistungsdatumUeberschrift, Me.lblSteuerpflichtigUeberschrift, Me.lblPosNrUeberschrift, Me.lblSendungUeberschrift, Me.lblSteuerfreiUeberschrift, Me.Line4, Me.Line12, Me.Line16, Me.Line15, Me.Line17, Me.lblDurchlaufposten, Me.lblSteuerplichtUeberschriftMDM})
-        Me.GroupHeader4.Height = 0.472441!
+        Me.GroupHeader4.Height = 0.378691!
         Me.GroupHeader4.KeepTogether = True
         Me.GroupHeader4.Name = "GroupHeader4"
         '

SDL/Fakturierung/rptSammelRechnungAnlagenDruck.vb

@@ -21,4 +21,7 @@ Public Class rptSammelRechnungAnlagenDruck
         End If
     End Sub
 
+    Private Sub GroupFooter4_Format(sender As Object, e As EventArgs) Handles GroupFooter4.Format
+
+    End Sub
 End Class

SDL/Fakturierung/rptSammelRechnungAnlagenDruck_MDM.vb

@@ -0,0 +1,24 @@
+Imports GrapeCity.ActiveReports 
+Imports GrapeCity.ActiveReports.Document
+
+Public Class rptSammelRechnungAnlagenDruck_MDM
+    Public _LAN = ""
+    Sub New()
+        InitializeComponent()
+    End Sub
+    Sub New(_LAN)
+        ' Dieser Aufruf ist f<>r den Designer erforderlich.
+        InitializeComponent()
+        Me._LAN = _LAN
+        ' F<>gen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.
+    End Sub
+    Private Sub rptRechnungDruck_ReportStart(sender As Object, e As EventArgs) Handles MyBase.ReportStart
+        If _LAN.replace("DE", "") <> "" Then
+            SDL.cProgramFunctions._TRANSLATE_RPT(Me, Me.ReportHeader1.Controls, _LAN, "rptSammelRechnungAnlagenDruck")
+            SDL.cProgramFunctions._TRANSLATE_RPT(Me, Me.ReportFooter1.Controls, _LAN, "rptSammelRechnungAnlagenDruck")
+            SDL.cProgramFunctions._TRANSLATE_RPT(Me, Me.GroupHeader4.Controls, _LAN, "rptSammelRechnungAnlagenDruck")
+            SDL.cProgramFunctions._TRANSLATE_RPT(Me, Me.PageFooter.Controls, _LAN, "rptSammelRechnungAnlagenDruck")
+        End If
+    End Sub
+
+End Class

SDL/Formulare/KDFormulare/frmFormulare.vb

@@ -1129,9 +1129,13 @@ Public Class frmFormulare
                             If listMail IsNot Nothing AndAlso listMail.Count > 0 Then
                                 For Each l In listMail
                                     Dim outl As New Outlook.Application
+
                                     Dim Mail As Microsoft.Office.Interop.Outlook.MailItem
                                     Mail = outl.CreateItem(0)
 
+                                    'Dim StandAcc = VERAG_PROG_ALLGEMEIN.cProgramFunctions.getdefaultOutlookAccount(outl)
+                                    'If StandAcc IsNot Nothing Then Mail.SendUsingAccount = StandAcc
+
                                     If l.MailHTMLText <> "" Then Mail.HTMLBody = l.MailHTMLText
                                     If l.Mail_To <> "" Then Mail.To = l.Mail_To
                                     If l.Mail_CC <> "" Then Mail.CC = l.Mail_CC
@@ -1153,9 +1157,18 @@ Public Class frmFormulare
                                 Next
                             Else
                                 Dim outl As New Outlook.Application
+
                                 Dim Mail As Microsoft.Office.Interop.Outlook.MailItem
                                 Mail = outl.CreateItem(0)
 
+                                MsgBox(VERAG_PROG_ALLGEMEIN.cProgramFunctions.printdefaultOutlookAccount(outl))
+
+                                'Dim StandAcc = VERAG_PROG_ALLGEMEIN.cProgramFunctions.getdefaultOutlookAccount(outl)
+
+                                Mail.SendUsingAccount = outl.Session.DefaultAccount
+
+
+
                                 If VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "AMBAR" Then
                                     Try
                                         Mail.SentOnBehalfOfName = SDL.cFakturierung.getDefaultMail("AMBAR")

SDL/SDL.vbproj

@@ -604,6 +604,12 @@
     <Compile Include="Fakturierung\frmSendEmail.vb">
       <SubType>Form</SubType>
     </Compile>
+    <Compile Include="Fakturierung\rptSammelRechnungAnlagenDruck_MDM.Designer.vb">
+      <DependentUpon>rptSammelRechnungAnlagenDruck_MDM.vb</DependentUpon>
+    </Compile>
+    <Compile Include="Fakturierung\rptSammelRechnungAnlagenDruck_MDM.vb">
+      <SubType>Component</SubType>
+    </Compile>
     <Compile Include="Fakturierung\rptSammelRechnungAnlagenDruck_Leistungen.Designer.vb">
       <DependentUpon>rptSammelRechnungAnlagenDruck_Leistungen.vb</DependentUpon>
     </Compile>
@@ -3258,6 +3264,9 @@
     <EmbeddedResource Include="Fakturierung\frmSendEmail.resx">
       <DependentUpon>frmSendEmail.vb</DependentUpon>
     </EmbeddedResource>
+    <EmbeddedResource Include="Fakturierung\rptSammelRechnungAnlagenDruck_MDM.resx">
+      <DependentUpon>rptSammelRechnungAnlagenDruck_MDM.vb</DependentUpon>
+    </EmbeddedResource>
     <EmbeddedResource Include="Fakturierung\rptSammelRechnungAnlagenDruck_Leistungen.resx">
       <DependentUpon>rptSammelRechnungAnlagenDruck_Leistungen.vb</DependentUpon>
     </EmbeddedResource>

SDL/USTV/frmUSTVoffeneAntraege.Designer.vb

@@ -50,7 +50,7 @@ Partial Class frmUSTVoffeneAntraege
         Me.Label5 = New System.Windows.Forms.Label()
         Me.cbxKundeLand = New VERAG_PROG_ALLGEMEIN.MyComboBox()
         Me.cbxNichtEroeffneteAntraege = New System.Windows.Forms.CheckBox()
-        Me.cbxSteuerNr = New System.Windows.Forms.CheckBox()
+        Me.cbxUStV = New System.Windows.Forms.CheckBox()
         Me.MyComboBox1 = New VERAG_PROG_ALLGEMEIN.MyComboBox()
         Me.ContextMenuStrip1 = New System.Windows.Forms.ContextMenuStrip(Me.components)
         Me.AntragEröffnenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
@@ -284,7 +284,7 @@ Partial Class frmUSTVoffeneAntraege
         Me.pnlLand.Controls.Add(Me.Label5)
         Me.pnlLand.Controls.Add(Me.cbxKundeLand)
         Me.pnlLand.Controls.Add(Me.cbxNichtEroeffneteAntraege)
-        Me.pnlLand.Controls.Add(Me.cbxSteuerNr)
+        Me.pnlLand.Controls.Add(Me.cbxUStV)
         Me.pnlLand.Controls.Add(Me.Label4)
         Me.pnlLand.Controls.Add(Me.MyComboBox1)
         Me.pnlLand.Location = New System.Drawing.Point(807, 62)
@@ -325,16 +325,16 @@ Partial Class frmUSTVoffeneAntraege
         Me.cbxNichtEroeffneteAntraege.Text = "nicht eröffnete Anträge"
         Me.cbxNichtEroeffneteAntraege.UseVisualStyleBackColor = True
         '
-        'cbxSteuerNr
+        'cbxUStV
         '
-        Me.cbxSteuerNr.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+        Me.cbxUStV.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
-        Me.cbxSteuerNr.AutoSize = True
+        Me.cbxUStV.AutoSize = True
-        Me.cbxSteuerNr.Location = New System.Drawing.Point(338, 17)
+        Me.cbxUStV.Location = New System.Drawing.Point(338, 17)
-        Me.cbxSteuerNr.Name = "cbxSteuerNr"
+        Me.cbxUStV.Name = "cbxUStV"
-        Me.cbxSteuerNr.Size = New System.Drawing.Size(105, 17)
+        Me.cbxUStV.Size = New System.Drawing.Size(88, 17)
-        Me.cbxSteuerNr.TabIndex = 46
+        Me.cbxUStV.TabIndex = 46
-        Me.cbxSteuerNr.Text = " nur mit SteuerNr"
+        Me.cbxUStV.Text = " nur mit UStV"
-        Me.cbxSteuerNr.UseVisualStyleBackColor = True
+        Me.cbxUStV.UseVisualStyleBackColor = True
         '
         'MyComboBox1
         '
@@ -549,7 +549,7 @@ Partial Class frmUSTVoffeneAntraege
     Friend WithEvents cbxNichtEroeffneteAntraege As CheckBox
     Friend WithEvents ContextMenuStrip1 As ContextMenuStrip
     Friend WithEvents AntragEröffnenToolStripMenuItem As ToolStripMenuItem
-    Friend WithEvents cbxSteuerNr As CheckBox
+    Friend WithEvents cbxUStV As CheckBox
     Friend WithEvents Label5 As Label
     Friend WithEvents cbxKundeLand As VERAG_PROG_ALLGEMEIN.MyComboBox
     Friend WithEvents btnVerag As Button

SDL/USTV/frmUSTVoffeneAntraege.vb

@@ -528,7 +528,7 @@ Public Class frmUSTVoffeneAntraege
             sqlwhereLand &= " and Kundenland = '" & cbxKundeLand._value & "'"
         End If
 
-        If cbxSteuerNr.Checked Then
+        If cbxUStV.Checked Then
             sqlwhereSteuerNr &= " and isnull(tblSteuernummern.UStV,0) <> 0"
         End If
 
@@ -584,7 +584,7 @@ Public Class frmUSTVoffeneAntraege
 
 
 
-            Dim sqlstring = "select isnull(UStVAn_ID,0) as antragExisitiert,tblSteuernummern.UStV as SteuerNr,Lieferant , KdNr, Kundenname, Kundenland, Einreichland from (" & SQLPLOSEUMSTELLUNG & "
+            Dim sqlstring = "select isnull(UStVAn_ID,0) as antragExisitiert,tblSteuernummern.UStV as UStV,Lieferant , KdNr, Kundenname, Kundenland, Einreichland from (" & SQLPLOSEUMSTELLUNG & "
 
 					UNION ALL
 
@@ -693,7 +693,7 @@ Public Class frmUSTVoffeneAntraege
             If .Columns.Count > 0 Then
 
                 .Columns("KdNr").HeaderText = "KdNr"
-                .Columns("SteuerNr").HeaderText = "SteuerNr"
+                .Columns("UStV").HeaderText = "UStV"
                 .Columns("Kundenname").HeaderText = "Kunde"
                 .Columns("Kundenland").HeaderText = "Kundenland"
                 .Columns("Einreichland").HeaderText = "Einreichland"
@@ -793,7 +793,7 @@ Public Class frmUSTVoffeneAntraege
         initLieferant("VERAG", sender)
     End Sub
 
-    Private Sub cbxAlleoffenen_CheckedChanged(sender As Object, e As EventArgs) Handles cbxAlleoffenen.CheckedChanged, cbxSteuerNr.CheckedChanged, cbxNichtEroeffneteAntraege.CheckedChanged
+    Private Sub cbxAlleoffenen_CheckedChanged(sender As Object, e As EventArgs) Handles cbxAlleoffenen.CheckedChanged, cbxUStV.CheckedChanged, cbxNichtEroeffneteAntraege.CheckedChanged
         init()
     End Sub
 

SDL/USTV/usrCntlUSTV.vb

@@ -1077,7 +1077,7 @@ Public Class usrCntlUSTV
 
                         For Each row In distinctDT.Rows
 
-                            Dim dt_Data_selected = dtVorschau.Select("AdressenNr ='" & row.Item(0) & "'").CopyToDataTable
+                            Dim dt_Data_selected = dtVorschau.Select("AdressenNr ='" & row.Item(0) & "' AND Gültig = 0").CopyToDataTable
 
                             Try
 

SDL/USTV/ustCntlUSTV_AntragPosition.vb

@@ -65,12 +65,12 @@ Public Class ustCntlUSTV_AntragPosition
 
         Dim da_id = -1
         Select Case If(UStV_POS.UStVPo_SchnittstellenNr, -1)
-            Case 6, 0 : da_id = sql.getValueTxtBySql("SELECT TOP(1) [plInv_daId] FROM [tblPLOSE_Inv_Data] where plInv_SupplierRechnungsDatum='" & UStV_POS.UStVPo_ReDat & "' and plInv_SupplierRechnungsNr='" & UStV_POS.UStVPo_ReNr & "' and plInv_SupplierCountry='" & Antrag_LandKz & "' AND [plInv_daId] is not null", "FMZOLL",,, -1) : scanSonstiges.Enabled = False
+            Case 6, 0 : da_id = sql.getValueTxtBySql("SELECT TOP(1) [plInv_daId] FROM [tblPLOSE_Inv_Data] where plInv_SupplierRechnungsDatum='" & UStV_POS.UStVPo_ReDat & "' and plInv_SupplierRechnungsNr='" & UStV_POS.UStVPo_ReNr & "' and plInv_SupplierCountry='" & Antrag_LandKz & "' AND [plInv_daId] is not null", "FMZOLL",,, -1)
-            Case 7 : da_id = sql.getValueTxtBySql("SELECT TOP(1) [rmc_daId] FROM [tblRMCImport] where rmc_reDatum='" & UStV_POS.UStVPo_ReDat & "' and rmc_reNr='" & UStV_POS.UStVPo_ReNr & "' and rmc_landKZ='" & Antrag_LandKz & "' AND [rmc_daId] is not null", "FMZOLL",,, -1) : scanSonstiges.Enabled = False
+            Case 7 : da_id = sql.getValueTxtBySql("SELECT TOP(1) [rmc_daId] FROM [tblRMCImport] where rmc_reDatum='" & UStV_POS.UStVPo_ReDat & "' and rmc_reNr='" & UStV_POS.UStVPo_ReNr & "' and rmc_landKZ='" & Antrag_LandKz & "' AND [rmc_daId] is not null", "FMZOLL",,, -1)
-            Case 4, 9 : da_id = sql.getValueTxtBySql("SELECT TOP(1) [daId] FROM [tblMSEInvoices] as inv inner join tblMSECustomers on inv.customer_number = customer_id where invoice_date='" & UStV_POS.UStVPo_ReDat & "' and country='" & Antrag_LandKz & "' AND partner_customer_number = " & kdnr & " AND daId is not null", "FMZOLL",,, -1) : scanSonstiges.Enabled = False
+            Case 4, 9 : da_id = sql.getValueTxtBySql("SELECT TOP(1) [daId] FROM [tblMSEInvoices] as inv inner join tblMSECustomers on inv.customer_number = customer_id where invoice_date='" & UStV_POS.UStVPo_ReDat & "' and country='" & Antrag_LandKz & "' AND partner_customer_number = " & kdnr & " AND daId is not null", "FMZOLL",,, -1)
-            Case 10 : da_id = sql.getValueTxtBySql("SELECT TOP(1) [daId] FROM [tblUTAImportNew] where Rechnungsdatum='" & UStV_POS.UStVPo_ReDat & "' and Abrechnungsnummer='" & UStV_POS.UStVPo_ReNr & "' and Lieferland_ISO2='" & Antrag_LandKz & "' AND daId is not null", "FMZOLL",,, -1) : scanSonstiges.Enabled = False
+            Case 10 : da_id = sql.getValueTxtBySql("SELECT TOP(1) [daId] FROM [tblUTAImportNew] where Rechnungsdatum='" & UStV_POS.UStVPo_ReDat & "' and Abrechnungsnummer='" & UStV_POS.UStVPo_ReNr & "' and Lieferland_ISO2='" & Antrag_LandKz & "' AND daId is not null", "FMZOLL",,, -1)
             Case 8 : da_id = sql.getValueTxtBySql("SELECT TOP(1) tblIDSInvoicesNew.daId FROM [tblIDSTransactionsNew] INNER JOIN tbl_IDS_Länder ON tblIDSTransactionsNew.[OutletCountryCode] = tbl_IDS_Länder.OutletCountryCode LEFT JOIN tblIDSInvoicesNew on tblIDSInvoicesNew.CustomerCode = tblIDSTransactionsNew.CustomerCode and tblIDSInvoicesNew.Invoicenumber = Paymentsummarynumber where tblIDSTransactionsNew.[YearMonthDay] ='" & UStV_POS.UStVPo_ReDat & "' and ISNULL(tblIDSTransactionsNew.[OBONumber], ISNULL(tblIDSTransactionsNew.[VRNumber], tblIDSTransactionsNew.[Paymentsummarynumber])) ='" & UStV_POS.UStVPo_ReNr & "' and tbl_IDS_Länder.Lieferland_ISO2='" & Antrag_LandKz & "' AND tblIDSInvoicesNew.daId  is not null", "FMZOLL",,, -1) : scanSonstiges.Enabled = False
-            Case 1 : da_id = 1 : scanSonstiges.Enabled = False 'VERAG-RECHNUGNEN werden immer direkt OHNE daid geöffnet!
+            Case 1 : da_id = 1  'VERAG-RECHNUGNEN werden immer direkt OHNE daid geöffnet!
             Case -1 : IIf(UStV_POS.UStVPo_daId > 0, UStV_POS.UStVPo_daId, -1) : scanSonstiges.Enabled = True
         End Select
 

SDL/cProgramFunctions.vb

@@ -7,8 +7,9 @@ Imports System.Reflection
 Imports System.ComponentModel
 Imports ClosedXML.Excel
 Imports System.Text.RegularExpressions
-Imports iTextSharp.text.pdf
+Imports itextsharp.text.pdf
 Imports SDL.eu.europa.ec
+Imports Microsoft.Office.Interop
 
 Public Class cBerechtignungenFunctions
 

SDL/seriendruck/usrCntlFakturierung.vb

@@ -133,7 +133,7 @@ Public Class usrcntlFakturierung
 
     Private Sub Button14_Click(sender As Object, e As EventArgs) Handles Button14.Click
 
-        Label70.Text = "6. Hängt Mautgesamtbericht an Sammenrechnungen an."
+        Label70.Text = "6. Hängt Mautgesamtbericht an Sammelrechnungen an."
 
         Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL
 
@@ -249,7 +249,6 @@ Public Class usrcntlFakturierung
         ok = SQL.doSQL("update [Rechnungsausgang] set Sachbearbeiter='" & Sachbearbeiter & "' where Firma_ID = 19 And Sammelrechnung = 6 And Abfertigungsdatum > DateAdd(Month, -3, GETDATE())", "FMZOLL")
 
         showPic(ok, PictureBox1)
-        'If Not VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM Then Exit Sub
 
         If Not ok Then Exit Sub
 
@@ -286,11 +285,10 @@ Public Class usrcntlFakturierung
 
                 End If
 
-                Dim steuersatz As Double = Math.Floor(r("Steuersatz %"))
+                Dim steuersatz As Single = r("Steuersatz %") 'Single same as real-datatype in SQL (wichtig, sonst findet er den wert nicht!!!)
 
                 ok = SQL.doSQL("UPDATE [Rechnungsausgang] SET [BelegartenNr] = " & BelegartenNr & ", [BelegartenKz] = '" & BelegartenKz & "' , [BelegartenBez] = '" & BelegartenBez & "' , [Vorzeichen] = '" & Vorzeichen & "'  
-                               WHERE [Firma_ID] = 19 AND [Status] = 0 AND [Sammelrechnung] = 6 AND UPPER([Sachbearbeiter])= '" & Sachbearbeiter & "' AND [RechnungsKundenNr] = " & r("RechnungsKundenNr") & " AND [Währungscode] = '" & r("Währungscode") & "'  AND [Steuersatz %] = " & steuersatz & " AND [Lastschrift] = " & IIf(r("Lastschrift"), 1, 0) & "AND cast(Abfertigungsdatum as Date) = '" & rechnungsdatum & "'", "FMZOLL")
+                               WHERE [Firma_ID] = 19 AND [Status] = 0 AND [Sammelrechnung] = 6 AND UPPER([Sachbearbeiter])= '" & Sachbearbeiter & "' AND [RechnungsKundenNr] = " & r("RechnungsKundenNr") & " AND [Währungscode] = '" & r("Währungscode") & "'  AND [Steuersatz %] = " & steuersatz.ToString.Replace(",", ".") & " AND [Lastschrift] = " & IIf(r("Lastschrift"), 1, 0) & "AND cast(Abfertigungsdatum as Date) = '" & rechnungsdatum & "'", "FMZOLL")
-
 
                 If Not ok Then MsgBox("Rechnungsdruck wird abgebrochen." & vbCrLf & "Rechnungen/Gutschriften nicht gefunden.") : Exit Sub
 
@@ -405,8 +403,9 @@ Public Class usrcntlFakturierung
                 End If
                 If intZlr > 0 Then
 
-                    Dim steuersatz As Double = Math.Round(r("Steuersatz %"), 2)
+
-                    Dim SteuersatzString As String = steuersatz.ToString.Replace(",", ".")
+                    Dim steuersatz As Single = r("Steuersatz %") 'Single same as real-datatype in SQL (wichtig, sonst findet er den wert nicht!!!)
+                    'Dim SteuersatzString As String = steuersatz.ToString.Replace(",", ".")
 
                     ' Die Abfrage liest in der Tabelle Rechnungsausgang,
                     ' passend zu den durch die vorherige Abfrage bereitgestellten Parametern.
@@ -426,7 +425,7 @@ Public Class usrcntlFakturierung
                                          And Rechnungsausgang.RechnungsKundenNr = " & r("RechnungsKundenNr") & "
                                          And Rechnungsausgang.BelegartenNr = " & r("BelegartenNr") & "
                                          And Rechnungsausgang.Währungscode = '" & r("Währungscode") & "'
-                                         And Rechnungsausgang.[Steuersatz %] = " & SteuersatzString & "
+                                         And Rechnungsausgang.[Steuersatz %] = " & steuersatz.ToString.Replace(",", ".") & "
                                          And Rechnungsausgang.Lastschrift = " & IIf(r("Lastschrift"), 1, 0) & "
                                          AND cast(Rechnungsausgang.Abfertigungsdatum as Date) = '" & rechnungsdatum & "'
                                      ORDER by 
@@ -632,8 +631,8 @@ Public Class usrcntlFakturierung
 
                 For Each r In dtBB.Rows
                     'spSelectReDruSchnSumBS415
-                    Dim steuersatz As Double = Math.Round(r("Steuersatz %"), 2)
+                    Dim steuersatz As Single = r("Steuersatz %") 'Single same as real-datatype in SQL (wichtig, sonst findet er den wert nicht!!!)
-                    Dim SteuersatzString As String = steuersatz.ToString.Replace(",", ".")
+                    'Dim SteuersatzString As String = steuersatz.ToString.Replace(",", ".")
 
                     Dim sum As DataTable = (New SQL).loadDgvBySql("SELECT ISNULL(SUM(dbo.RechnungsausgangPositionen.Preis * dbo.RechnungsausgangPositionen.Anzahl),0) AS [Summe von Preis]
                                                 FROM   dbo.Rechnungsausgang INNER JOIN
@@ -646,7 +645,7 @@ Public Class usrcntlFakturierung
                                                 AND (dbo.Rechnungsausgang.RechnungsKundenNr = " & r("RechnungsKundenNr") & ") 
                                                 AND (dbo.Rechnungsausgang.BelegartenNr =" & r("BelegartenNr") & ") 
                                                 AND (dbo.Rechnungsausgang.Währungscode = '" & r("Währungscode") & "') 
-                                                AND (dbo.Rechnungsausgang.[Steuersatz %] =" & SteuersatzString & ") 
+                                                AND (dbo.Rechnungsausgang.[Steuersatz %] =" & steuersatz.ToString.Replace(",", ".") & ") 
                                                 AND (dbo.Rechnungsausgang.Lastschrift =" & IIf(r("Lastschrift"), 1, 0) & ") 
                                                 AND (dbo.Leistungen.BS415 = 1)", "FMZOLL",)
                     If sum.Rows.Count > 0 Then
@@ -675,7 +674,7 @@ Public Class usrcntlFakturierung
                                                         AND (RechnungsKundenNr = " & r("RechnungsKundenNr") & ") 
                                                         AND (BelegartenNr =" & r("BelegartenNr") & ") 
                                                         AND (Währungscode = '" & r("Währungscode") & "') 
-                                                        AND ([Steuersatz %] =" & SteuersatzString & ") 
+                                                        AND ([Steuersatz %] =" & steuersatz.ToString.Replace(",", ".") & ") 
                                                         AND (Lastschrift =" & IIf(r("Lastschrift"), 1, 0) & ") 
                                                         ORDER BY OffertenNr"
 
@@ -1057,7 +1056,8 @@ Public Class usrcntlFakturierung
                         End If
                     cnt += 1
 
-                    'Exit For
+                    'todo nach test auskommentieren!!!
+                    If cnt > 3 Then Exit For
 
                 Next
 
@@ -1208,7 +1208,8 @@ Public Class usrcntlFakturierung
                     Dim dtBerichtkunden_PDF As DataTable = (New SQL).loadDgvBySql("SELECT tblMautbericht.[Customer No], Adressen.Ordnungsbegriff AS [Customer name], tblMautbericht.[Licence Plate Number], tblMautbericht.[Transaction date], tblMautbericht.[Transaction Country], tblMautbericht.[Product description], tblMautbericht.[Card number], tblMautbericht.[Entry Terminal], tblMautbericht.[Exit Terminal], Sum(tblMautbericht.[Net Amount]) AS [Net Amount], Sum(tblMautbericht.[VAT Amount]) AS [VAT Amount], Sum(tblMautbericht.[Total Amount]) AS [Total Amount]
                                                                             FROM tblMautbericht INNER JOIN Adressen ON tblMautbericht.[Customer No] = Adressen.AdressenNr
                                                                             WHERE cast(BillingDate as Date) = '" & cbxDateMautbericht._value & "' 
-                                                                            GROUP BY tblMautbericht.[Customer No], Adressen.Ordnungsbegriff, tblMautbericht.[Licence Plate Number], tblMautbericht.[Transaction date], tblMautbericht.[Transaction Country], tblMautbericht.[Product description], tblMautbericht.[Card number], tblMautbericht.[Entry Terminal], tblMautbericht.[Exit Terminal] ", "FMZOLL")
+                                                                            GROUP BY tblMautbericht.[Customer No], Adressen.Ordnungsbegriff, tblMautbericht.[Licence Plate Number], tblMautbericht.[Transaction date], tblMautbericht.[Transaction Country], tblMautbericht.[Product description], tblMautbericht.[Card number], tblMautbericht.[Entry Terminal], tblMautbericht.[Exit Terminal] 
+                                                                            ORDER BY tblMautbericht.[Licence Plate Number] , tblMautbericht.[Transaction Country], tblMautbericht.[Transaction date] ", "FMZOLL")
 
                     If dtBerichtkunden_PDF.Rows.Count = 0 Then
                         MsgBox("Es wurden keine Daten bereitgestellt")
@@ -1243,7 +1244,6 @@ Public Class usrcntlFakturierung
 
 
 
-
                             createPDFMautbericht(pdf.Item(0), dt_PDF_selected, cbxDateMautbericht._value, PathMautberichte, dtLaender)
 
 

VERAG_PROG_ALLGEMEIN/Benutzerdefinierte Steuerelemente/usrcntlPDFScanList.Designer.vb

@@ -27,13 +27,13 @@ Partial Class usrcntlPDFScanList
         Me.ToolStripMenuItem1 = New System.Windows.Forms.ToolStripMenuItem()
         Me.ToolStripMenuItem2 = New System.Windows.Forms.ToolStripMenuItem()
         Me.picAdd = New System.Windows.Forms.PictureBox()
-        Me.MyListBox1 = New VERAG_PROG_ALLGEMEIN.MyListBox()
         Me.UmbenennenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
         Me.KopierenZwischenablageToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
         Me.AlsEmailSendenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
         Me.ToolStripSeparator1 = New System.Windows.Forms.ToolStripSeparator()
         Me.LöschenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
         Me.cntxt = New System.Windows.Forms.ContextMenuStrip(Me.components)
+        Me.MyListBox1 = New VERAG_PROG_ALLGEMEIN.MyListBox()
         Me.cntxtMulti.SuspendLayout()
         CType(Me.picAdd, System.ComponentModel.ISupportInitialize).BeginInit()
         Me.cntxt.SuspendLayout()
@@ -71,19 +71,6 @@ Partial Class usrcntlPDFScanList
         Me.picAdd.TabIndex = 3
         Me.picAdd.TabStop = False
         '
-        'MyListBox1
-        '
-        Me.MyListBox1._value = ""
-        Me.MyListBox1.Cursor = System.Windows.Forms.Cursors.Default
-        Me.MyListBox1.Dock = System.Windows.Forms.DockStyle.Fill
-        Me.MyListBox1.FormattingEnabled = True
-        Me.MyListBox1.Location = New System.Drawing.Point(0, 0)
-        Me.MyListBox1.Margin = New System.Windows.Forms.Padding(0)
-        Me.MyListBox1.Name = "MyListBox1"
-        Me.MyListBox1.SelectionMode = System.Windows.Forms.SelectionMode.MultiExtended
-        Me.MyListBox1.Size = New System.Drawing.Size(118, 64)
-        Me.MyListBox1.TabIndex = 4
-        '
         'UmbenennenToolStripMenuItem
         '
         Me.UmbenennenToolStripMenuItem.Name = "UmbenennenToolStripMenuItem"
@@ -121,8 +108,22 @@ Partial Class usrcntlPDFScanList
         Me.cntxt.Name = "cntxt"
         Me.cntxt.Size = New System.Drawing.Size(218, 98)
         '
+        'MyListBox1
+        '
+        Me.MyListBox1._value = ""
+        Me.MyListBox1.Cursor = System.Windows.Forms.Cursors.Default
+        Me.MyListBox1.Dock = System.Windows.Forms.DockStyle.Fill
+        Me.MyListBox1.FormattingEnabled = True
+        Me.MyListBox1.Location = New System.Drawing.Point(0, 0)
+        Me.MyListBox1.Margin = New System.Windows.Forms.Padding(0)
+        Me.MyListBox1.Name = "MyListBox1"
+        Me.MyListBox1.SelectionMode = System.Windows.Forms.SelectionMode.MultiExtended
+        Me.MyListBox1.Size = New System.Drawing.Size(118, 64)
+        Me.MyListBox1.TabIndex = 4
+        '
         'usrcntlPDFScanList
         '
+        Me.AllowDrop = True
         Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
         Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
         Me.AutoSizeMode = System.Windows.Forms.AutoSizeMode.GrowAndShrink

VERAG_PROG_ALLGEMEIN/Benutzerdefinierte Steuerelemente/usrcntlPDFScanList.vb

@@ -1,6 +1,7 @@
 Imports System.Windows.Forms
 Imports System.IO
 Imports Microsoft.Office.Interop
+Imports System.Drawing
 
 Public Class usrcntlPDFScanList
     Public Property _DATENSERVER_KATEGORIE As String = "DOKUMENTE"
@@ -27,6 +28,8 @@ Public Class usrcntlPDFScanList
     Public Event FileAdded(id As String, path As String, name As String)
     Public Event FileDeleted()
 
+    Private draggedFilePath As String = ""
+
     Private Sub usrcntlPDFScan_Layout(sender As Object, e As LayoutEventArgs) Handles Me.Layout
         '  Me.txt.Text = _TEXT_PDF
         Me.MyListBox1.Dock = DockStyle.Fill
@@ -401,9 +404,58 @@ Public Class usrcntlPDFScanList
 
     End Sub
 
+    Private Function GetFolderUnderCursor() As String
+        Try
+            Dim cursorPos As Point = Cursor.Position
+            Dim shell As Object = CreateObject("Shell.Application")
+            Dim folder As Object = shell.Namespace(0) ' Desktop level
+
+            ' Get all open Explorer windows
+            For Each window In shell.Windows()
+                Dim explorerPath As String = window.Document.Folder.Self.Path
+                If Not String.IsNullOrEmpty(explorerPath) Then
+                    ' Check if the cursor is within the window bounds
+                    Dim rect As Rectangle = New Rectangle(window.Left, window.Top, window.Width, window.Height)
+                    If rect.Contains(cursorPos) Then
+                        Return explorerPath ' Return detected folder path
+                    End If
+                End If
+            Next
+        Catch ex As Exception
+            Return ""
+        End Try
+        Return ""
+    End Function
+
     Private Sub cntxt_Opening(sender As Object, e As System.ComponentModel.CancelEventArgs) Handles cntxt.Opening
         UmbenennenToolStripMenuItem.Visible = (MyListBox1.SelectedItems.Count = 1)
     End Sub
 
+    Private Sub usrcntlPDFScanList_DragLeave(sender As Object, e As EventArgs) 'Handles MyBase.DragLeave
+
+
+        If Not String.IsNullOrEmpty(draggedFilePath) Then
+            Try
+                ' Get the folder path where the cursor moved
+                Dim cursorPath As String = GetFolderUnderCursor()
+
+                If Not String.IsNullOrEmpty(cursorPath) AndAlso Directory.Exists(cursorPath) Then
+                    ' Copy file to the detected folder
+                    Dim destinationPath As String = Path.Combine(cursorPath, Path.GetFileName(draggedFilePath))
+                    File.Copy(draggedFilePath, destinationPath, True)
+
+                    MessageBox.Show("PDF saved to: " & destinationPath, "File Saved", MessageBoxButtons.OK, MessageBoxIcon.Information)
+                Else
+                    MessageBox.Show("Could not determine the target folder.", "Error", MessageBoxButtons.OK, MessageBoxIcon.Warning)
+                End If
+            Catch ex As Exception
+                MessageBox.Show("Error saving PDF: " & ex.Message, "Error", MessageBoxButtons.OK, MessageBoxIcon.Error)
+            End Try
+
+        End If
+
+
+    End Sub
+
 
 End Class

VERAG_PROG_ALLGEMEIN/cProgramFunktions.vb

@@ -7,12 +7,68 @@ Imports System.Windows.Forms
 Imports ClosedXML.Excel
 Imports Microsoft.Office.Interop
 Imports ThoughtWorks.QRCode.Codec
-Imports VERAG_PROG_ALLGEMEIN.TESTJSON
 
 Public Class cProgramFunctions
 
 
     Shared SQL As New VERAG_PROG_ALLGEMEIN.SQL
+
+    Public Shared Function getdefaultOutlookAccount(outlookApp As Outlook.Application) As Outlook.Account
+
+        ' Get the MAPI namespace
+        Dim outlookNamespace As Outlook.NameSpace = outlookApp.GetNamespace("MAPI")
+
+        ' Get the default store (default email account)
+        Dim defaultStore As Outlook.Store = outlookNamespace.DefaultStore
+
+        ' Find the corresponding account
+        Dim defaultAccount As Outlook.Account = Nothing
+
+        For Each acc As Outlook.Account In outlookNamespace.Accounts
+            If acc.DeliveryStore.StoreID = defaultStore.StoreID Then
+                defaultAccount = acc
+
+                Exit For
+            End If
+        Next
+
+        Return defaultAccount
+
+
+    End Function
+
+    Public Shared Function printdefaultOutlookAccount(outlookApp As Outlook.Application) As String
+
+        ' Get the MAPI namespace
+        Dim outlookNamespace As Outlook.NameSpace = outlookApp.GetNamespace("MAPI")
+
+        ' Get the default store (default email account)
+        Dim defaultStore As Outlook.Store = outlookNamespace.DefaultStore
+
+        ' Find the corresponding account
+        Dim defaultAccount As Outlook.Account = Nothing
+
+        For Each acc As Outlook.Account In outlookNamespace.Accounts
+            If acc.DeliveryStore.StoreID = defaultStore.StoreID Then
+                defaultAccount = acc
+                Exit For
+            End If
+        Next
+
+        ' Display the default email account
+        If defaultAccount IsNot Nothing Then
+            Return "Default Email Account: " & defaultAccount.DisplayName
+        Else
+            Return "Default email account not found."
+        End If
+
+
+
+
+
+
+    End Function
+
     Public Shared Function fktEuro(varBetrag As Object, varVonWährung As Object, varNachWährung As Object) As Object
         '(FixeTaxe, "ATS", RECHNUNG.Währungscode)
         'Dim varVonWährung As Object