new

2021-09-07 08:46:12 +02:00
parent f2f992547d
commit 619a8c26bf
126 changed files with 7156 additions and 2215 deletions
--- a/SDL/Fakturierung/cFakturierung.vb
+++ b/SDL/Fakturierung/cFakturierung.vb
@@ -293,6 +293,7 @@ Public Class cFakturierung

    Shared Function przRechnungstext(ByRef RECHNUNG As VERAG_PROG_ALLGEMEIN.cRechnungsausgang) As String ', ByRef strZahlbar As String, ByRef strText As String)

+        If RECHNUNG Is Nothing Then Exit Function

        Dim strZahlbar As String = ""
        Dim strText As String = ""
@@ -303,7 +304,7 @@ Public Class cFakturierung
        ' Dim Nettozahlungsziel

        Dim ZZTage = 10
-        If RECHNUNG.RechnungsKundenNr > 0 Then
+        If RECHNUNG.RechnungsKundenNr > 0 Then  

            Dim RECHNUNG_AD As New VERAG_PROG_ALLGEMEIN.cAdressen(RECHNUNG.RechnungsKundenNr)
            Dim RECHNUNG_KD As New VERAG_PROG_ALLGEMEIN.cKunde(RECHNUNG.RechnungsKundenNr)
@@ -317,13 +318,22 @@ Public Class cFakturierung

                    If Not RECHNUNG.Vorkasse Then
                        If RECHNUNG.Lastschrift Then
-                            strText = strText & "Der Rechnungsbetrag wurde durch erteilten Abbuchungsauftrag eingezogen." & vbCrLf
+                            Select Case RECHNUNG.RechnungSprache
+                                Case "EN" : strText = strText & "The invoice amount was collected by direct debit order." & vbCrLf
+                                Case Else : strText = strText & "Der Rechnungsbetrag wurde durch erteilten Abbuchungsauftrag eingezogen." & vbCrLf
+                            End Select
                        Else
                            If checkIfKreditaufwendungen(RECHNUNG) Then
-                                strZahlbar = "Zahlbar innerhalb " & ZZTage & " Tagen abzüglich Pos. 750; ab 10 Tagen netto fällig."
+                                Select Case RECHNUNG.RechnungSprache
+                                    Case "EN" : strZahlbar = "Payable within " & ZZTage & " days less pos. 750; due net from " & ZZTage & " days."
+                                    Case Else : strZahlbar = "Zahlbar innerhalb " & ZZTage & " Tagen abzüglich Pos. 750; ab " & ZZTage & " Tagen netto fällig."
+                                End Select
                            Else
                                'Zahlungsziel allgemein.
-                                strZahlbar = "Zahlbar innerhalb " & ZZTage & " Tagen ab Rechnungsdatum."
+                                Select Case RECHNUNG.RechnungSprache
+                                    Case "EN" : strZahlbar = "Payable within " & ZZTage & " days from date of invoice."
+                                    Case Else : strZahlbar = "Zahlbar innerhalb " & ZZTage & " Tagen ab Rechnungsdatum."
+                                End Select
                            End If

                            'Zahlungsziel bei Maut/Diesel.
@@ -345,7 +355,10 @@ Public Class cFakturierung

                            ' Text bei Zoll oder EUSt drucken
                            If checkIfcheckIfZollbelege(RECHNUNG) Then
-                                strText = strText & "Alle Zollbelege bitte sofort auf Richtigkeit prüfen da Einspruch gemäß § 355 AO nur 1 Monat nach Datum des Zollbescheides möglich." & vbCrLf
+                                Select Case RECHNUNG.RechnungSprache
+                                    Case "EN" : strText = strText & "Please check all customs documents immediately for correctness, as objections are only possible 1 month after the date of the customs notification." & vbCrLf
+                                    Case Else : strText = strText & "Alle Zollbelege bitte sofort auf Richtigkeit prüfen da Einspruch gemäß § 355 AO nur 1 Monat nach Datum des Zollbescheides möglich." & vbCrLf
+                                End Select
                            End If

                        End If
@@ -354,22 +367,32 @@ Public Class cFakturierung
                        If VK IsNot Nothing AndAlso CDbl(VK.vk_Betrag) > 0 Then
                            If VK.vk_GeldEingetroffen Then ' Wenn 0 dann Fehler 
                                If CDbl(VK.vk_Betrag) = CDbl(RECHNUNG.SteuerfreierGesamtbetrag + RECHNUNG.SteuerpflichtigerGesamtbetrag) Then
-                                    strText = strText & "Der Rechnungsbetrag wurde bereits per Vorauszahlung beglichen." & vbCrLf
+                                    Select Case RECHNUNG.RechnungSprache
+                                        Case "EN" : strText = strText & "The invoice amount has already been paid in advance." & vbCrLf
+                                        Case Else : strText = strText & "Der Rechnungsbetrag wurde bereits per Vorauszahlung beglichen." & vbCrLf
+                                    End Select
                                Else
-                                    strText = strText & "Zu dieser Rechnung wurde bereits eine Vorauszahlung geleistet, bitte überweisen Sie den Differenzbetrag." & vbCrLf
+                                    Select Case RECHNUNG.RechnungSprache
+                                        Case "EN" : strText = strText & "An advance payment has already been made for this invoice, please transfer the difference." & vbCrLf
+                                        Case Else : strText = strText & "Zu dieser Rechnung wurde bereits eine Vorauszahlung geleistet, bitte überweisen Sie den Differenzbetrag." & vbCrLf
+                                    End Select
                                End If
                            End If
                        End If
                    End If
                Case 71 'GS
                    If RECHNUNG.Lastschrift Then
-                        strText = strText & "Der Gutschriftsbetrag wurde mit erteilten Abbuchungsauftrag verrechnet." & vbCrLf
+                        Select Case RECHNUNG.RechnungSprache
+                            Case "EN" : strText = strText & "The credit amount was offset against the debit order issued." & vbCrLf
+                            Case Else : strText = strText & "Der Gutschriftsbetrag wurde mit erteilten Abbuchungsauftrag verrechnet." & vbCrLf
+                        End Select
                    End If
            End Select

            If getRTXT_SQL(strText, RECHNUNG, RECHNUNG_AD, RECHNUNG.Firma_ID, RECHNUNG.RechnungsLandKz, RECHNUNG.OffertenNr, True) Then
            ElseIf getRTXT_SQL(strText, RECHNUNG, RECHNUNG_AD, RECHNUNG.Firma_ID, RECHNUNG.RechnungsLandKz, , True) Then
            ElseIf getRTXT_SQL(strText, RECHNUNG, RECHNUNG_AD, RECHNUNG.Firma_ID, ,, True) Then
+            ElseIf getRTXT_SQL(strText, RECHNUNG, RECHNUNG_AD, , RECHNUNG.RechnungsLandKz, , True) Then
            ElseIf getRTXT_SQL(strText, RECHNUNG, RECHNUNG_AD, ,,, True) Then
            ElseIf getRTXT_SQL(strText, RECHNUNG, RECHNUNG_AD, ,,, False) Then
            End If
@@ -401,7 +424,10 @@ Public Class cFakturierung
                Case 21, 22, 23
                    Dim VORL = RECHNUNG.POSITIONEN.FindAll(Function(x) (x.LeistungsNr = 700 Or x.LeistungsNr = 710))
                    If VORL IsNot Nothing AndAlso VORL.Count > 0 Then
-                        strText = strText.Replace("<Vorlageprovision>", "Bei Zahlungseingang bis zum <Rechnungsdatum+10T> können Sie die verrechnete Vorlageprovision in Abzug bringen. " & vbCrLf)
+                        Select Case RECHNUNG.RechnungSprache
+                            Case "EN" : strText = strText.Replace("<Vorlageprovision>", "If payment is received by <Rechnungsdatum+10T>, you can deduct the template commission charged. " & vbCrLf)
+                            Case Else : strText = strText.Replace("<Vorlageprovision>", "Bei Zahlungseingang bis zum <Rechnungsdatum+10T> können Sie die verrechnete Vorlageprovision in Abzug bringen. " & vbCrLf)
+                        End Select
                    End If
            End Select

@@ -584,6 +610,10 @@ 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.picVERAG.Size = New SizeF(2.712, 0.61)
+            Case 26
+                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.picVERAG.Size = New SizeF(2.712, 0.61)
            Case 20 '"IMEX"
                If Rechnung.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"
@@ -645,6 +675,10 @@ Public Class cFakturierung
            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 20 '"IMEX"
                If RechnungsLandKz = "TR" Then
@@ -698,6 +732,10 @@ 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

+            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 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"
@@ -802,17 +840,32 @@ Public Class cFakturierung
            'End If

            Dim sum = 0
-            Select Case RECHNUNG.BelegartenKz
-                Case "AR"
-                    rpt.lblUeberschriftRG_GS.Text = "RECHNUNG"
-                Case "AG"
-                    rpt.lblUeberschriftRG_GS.Text = "GUTSCHRIFT"
-                    rpt.lblSummeUeberschrift.Text = "Gutschriftsbetrag:"
-                    rpt.lblRgNrUeberschrift.Text = "Gutschrifts-Nr.:"
-                    rpt.lblRgDatumUeberschrift.Text = "Gutschrifts-Datum:"
+            Select Case RECHNUNG.RechnungSprache
+                Case "EN"
+                    Select Case RECHNUNG.BelegartenKz
+                        Case "AR"
+                            rpt.lblUeberschriftRG_GS.Text = "INVOICE"
+                        Case "AG"
+                            rpt.lblUeberschriftRG_GS.Text = "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 RECHNUNG.BelegartenKz
+                        Case "AR"
+                            rpt.lblUeberschriftRG_GS.Text = "RECHNUNG"
+                        Case "AG"
+                            rpt.lblUeberschriftRG_GS.Text = "GUTSCHRIFT"
+                            rpt.lblSummeUeberschrift.Text = "Gutschriftsbetrag:"
+                            rpt.lblRgNrUeberschrift.Text = "Gutschrifts-Nr.:"
+                            rpt.lblRgDatumUeberschrift.Text = "Gutschrifts-Datum:"
+                    End Select
+
            End Select


+
            initRgFirma(rpt, FIRMA, RECHNUNG)

            Select Case RECHNUNG.Firma_ID
@@ -822,11 +875,25 @@ Public Class cFakturierung
                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 26 : rpt.picVERAG.Image = My.Resources.VERAG_UNISPED_Logo : rpt.Picture1.Image = Nothing
                Case 23 : rpt.picVERAG.Image = My.Resources.Unisped_ZS_logo : rpt.Picture1.Image = My.Resources.unisped_aeo_ZS_AT
                    rpt.txtAvisierer.Visible = False : rpt.lblAvisiererUeberschrift.Visible = False : rpt.txtWarenwert.Visible = False : rpt.lblWarenWertUeberschrift.Visible = False
                Case 17 : rpt.picVERAG.Image = My.Resources.FrontOfficeSUB_Horizontal : rpt.Picture1.Image = Nothing
            End Select

+            Dim ZZTage = 10
+            Dim ZZKdZahlungsziel = SQL.DLookup("Zahlungsziel", "Kunden", "Kundennr=" & RECHNUNG.RechnungsKundenNr, "FMZOLL", 10)
+            If ZZKdZahlungsziel IsNot Nothing AndAlso IsNumeric(ZZKdZahlungsziel) Then
+                ZZTage = ZZKdZahlungsziel
+            End If
+            Select Case RECHNUNG.RechnungSprache
+                Case "EN" : rpt.Label2.Text = ZZTage & " Days" : rpt.Label1.Text = "Payment target:"
+                Case Else : rpt.Label2.Text = ZZTage & " Tage"
+            End Select
+
+            Select Case RECHNUNG.Firma_ID
+                Case 21, 22, 23 : rpt.Label1.Visible = False : rpt.Label2.Visible = False
+            End Select

            rpt.lblKundenNr.Text = If(RECHNUNG.RechnungsKundenNr > 0, RECHNUNG.RechnungsKundenNr, "")
            rpt.lblRgNr.Text = If(RECHNUNG.RechnungsNr > 0, addYeartoRgNr(FIRMA.Firma_ID, RECHNUNG.Buchungsjahr) & RECHNUNG.RechnungsNr, "Vorschau")
@@ -908,11 +975,15 @@ Public Class cFakturierung
            '             Dies hat zur Folge, dass steuerfreie Rechnungsbeträge für Leistungen,
            '             die in der Leistungstabelle als ReverseCharge gekennzeichnet sind,
            '             summiert und auf der Rechnung ausgewiesen werden.
-            If RECHNUNG.isReverseChargeSumme Then
-                rpt.txtInfo.Text = "Achtung! Für EU-Kunden! Seit 1.1.2010 unterliegen Leistungen der Anwendung des Reverse Charge Verfahrens. Übergang der Steuerschuld an den Leistungsempfänger."
+            If isReverseChargeSumme(FIRMA, RECHNUNG) Then
+                Select Case RECHNUNG.RechnungSprache
+                    Case "EN" : rpt.txtInfo.Text = "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 = "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


+
            rpt.txtAnlagen.Text = ""
            If If(RECHNUNG.Anlage_1, "") <> "" Then rpt.txtAnlagen.Text &= RECHNUNG.Anlage_1
            If If(RECHNUNG.Anlage_2, "") <> "" Then rpt.txtAnlagen.Text &= vbNewLine & RECHNUNG.Anlage_2
@@ -1326,6 +1397,10 @@ Public Class cFakturierung
                        getSignature &= "<img width=""250"" height=""50"" src=""" & imgsrc & "Unisped_logo.jpg""/>"
                        If displayFirmenmane Then getSignature &= "<br>Unisped Speditions GmbH<br>"
                        getSignature &= "<div style=""font-size:12px"">A 4975 Suben, Nr. 15  <br><b>T</b>  +43 7711 2677-0  |  <b>F</b>  +43 7711 2677-27  |  <b>@</b>  " & If(individuell, emailindividuell, "office@unisped.at") & "  |  www.unisped.at  |  FN 375838d</div>"
+                    Case 26 '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, 3:1<br><b>T</b> +44 1304 272475  |  <b>@</b>  brexit@verag-unisped.uk  |  www.verag-unisped.uk  |  Company-No. 13107151</div>"
                    Case 99 'GmbH
                        getSignature &= "<img width=""250"" height=""50"" src=""" & imgsrc & "Verag-Spedition-GMBH-Logo1.png""/>"
                        If displayFirmenmane Then getSignature &= "<br>VERAG Spedition GmbH<br>"
@@ -1341,7 +1416,8 @@ Public Class cFakturierung
        'BREXIT
        If True Then
            Select Case firma
-                Case 21 'UNISPED
+                Case 21, 22, 23 'UNISPED
+                    Exit Select ' nicht mehr!
                    getSignature &= "<br>"
                    getSignature &= "<div style=""font-size:14px"">"
                    getSignature &= "Sind Sie bereits auf den BREXIT vorbereitet?<br/>"
@@ -1368,13 +1444,13 @@ Public Class cFakturierung
                getSignature &= "<span style=""font-size:9px"">Wir arbeiten ausschließlich auf Grund der Allgemeinen Österreichischen Spediteurbedingungen in der jeweils geltenden Fassung. Zahlungen werden zunächst auf Frachten,<br>
                 Spesen und Zinsen zuletzt auf Zölle angerechnet. Zahlbar und klagbar in Schärding. Steuer-Zoll - und Tarifauskünfte sind unverbindlich.</span>"
            Case "E", "GB"
-                getSignature &= "<span style=""font-size:9px"">We operate exclusively on the basis of the General Austrian Freight Forwarding Terms and Conditions in the respectively applicable version. Payments are initially<br>
+                getSignature &= "<span style=""font-size:9px"">We operate exclusively on the basis of the General Freight Forwarding Terms and Conditions in the respectively applicable version. Payments are initially<br>
                charged on freight, fees and interests and at last on customs duties. The place of jurisdiction is Schärding or Ried. Tax, customs and tariff information are not binding.</span>"
            Case Else
-                getSignature &= "<span style=""font-size:9px"">Wir arbeiten ausschließlich auf Grund der Allgemeinen Österreichischen Spediteurbedingungen in der jeweils geltenden Fassung. Zahlungen werden zunächst auf Frachten,<br>
+                getSignature &= "<span style=""font-size:9px"">Wir arbeiten ausschließlich auf Grund der Allgemeinen Spediteurbedingungen in der jeweils geltenden Fassung. Zahlungen werden zunächst auf Frachten,<br>
                 Spesen und Zinsen zuletzt auf Zölle angerechnet. Zahlbar und klagbar in Schärding. Steuer-Zoll - und Tarifauskünfte sind unverbindlich.</span>"
                getSignature &= "<br>"
-                getSignature &= "<span style=""font-size:9px"">We operate exclusively on the basis of the General Austrian Freight Forwarding Terms and Conditions in the respectively applicable version. Payments are initially<br>
+                getSignature &= "<span style=""font-size:9px"">We operate exclusively on the basis of the General Freight Forwarding Terms and Conditions in the respectively applicable version. Payments are initially<br>
                charged on freight, fees and interests and at last on customs duties. The place of jurisdiction is Schärding or Ried. Tax, customs and tariff information are not binding.</span>"

        End Select
@@ -1446,9 +1522,49 @@ Public Class cFakturierung

    End Function

+    Public Shared Function isReverseChargeSumme(FIRMA As VERAG_PROG_ALLGEMEIN.cFirmen, RECHNUNG As VERAG_PROG_ALLGEMEIN.cRechnungsausgang) As Boolean 'obj As Object, tablename As String, where As String) As Boolean
+        'Wenn selbes Land --> Kein Reversecharge 
+        If RECHNUNG.RechnungsLandKz = FIRMA.Firma_LandKz Then
+            Return False

+        End If
+
+        If Not cProgramFunctions.isEULand(RECHNUNG.RechnungsLandKz) Then
+            Return False
+        End If
+
+        If FIRMA IsNot Nothing Then 'Nur EU_länder
+            If Not cProgramFunctions.isEULand(FIRMA.Firma_LandKz) Then
+                Return False
+            End If
+        End If
+
+        Dim sqlstr = "   SELECT SUM(POS.SteuerfreierBetrag) AS ReverseChargeSumme "
+        sqlstr &= "  FROM   Rechnungsausgang  as RA INNER JOIN RechnungsausgangPositionen as POS ON RA.RK_ID = POS.RK_ID INNER JOIN Leistungen ON POS.LeistungsNr = Leistungen.LeistungsNr INNER JOIN [Länderverzeichnis für die Außenhandelsstatistik] AS LD ON RA.RechnungsUstIdKz = LD.LandKz"
+        sqlstr &= "  WHERE RA.rk_id='" & RECHNUNG.RK_ID & "' AND LD.ReverseCharge = 1 AND Leistungen.ReverseCharge = 1"
+
+        'If Not CBool(SQL.DLookup("isnull([MitgliedslandEU],0)", "Währungstabelle", "LandKz='" & If(RECHNUNG.RechnungsLandKz, "") & "'", "FMZOLL", 0)) Then
+        '    Return False
+        'End If
+        Return If(SQL.getValueTxtBySql(sqlstr, "FMZOLL",,, 0) = 0, False, True)
+    End Function
+
+    Shared Function getReverseChargeSumme(FIRMA As VERAG_PROG_ALLGEMEIN.cFirmen, RechnungsLandKz As String, RechnungsNr As String, RechnungsDatum As String, Optional VorschauID As String = "") As Double
+        'Wenn selbes Land --> Kein Reversecharge 
+        '  MsgBox(RechnungsLandKz & " - " & FIRMA.Firma_LandKz)
+        If RechnungsLandKz = FIRMA.Firma_LandKz Then
+            Return False
+        End If
+
+        If Not cProgramFunctions.isEULand(RechnungsLandKz) Then
+            Return 0
+        End If
+        If FIRMA IsNot Nothing Then 'Nur EU_länder
+            If Not cProgramFunctions.isEULand(FIRMA.Firma_LandKz) Then
+                Return 0
+            End If
+        End If

-    Shared Function getReverseChargeSumme(RechnungsNr As Object, RechnungsDatum As Object, Optional VorschauID As String = "") As Double
        Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL
        Dim SqlStr = "SELECT SUM(dbo.RechnungsausgangPositionen.SteuerfreierBetrag) AS ReverseChargeSumme
                FROM   dbo.Rechnungsausgang INNER JOIN
@@ -2017,6 +2133,7 @@ Public Class cFakturierung
                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 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

@@ -2363,6 +2480,7 @@ Public Class cFakturierung
                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 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

@@ -2374,6 +2492,21 @@ Public Class cFakturierung
            rpt.txtVermerk.Text = strText


+
+            Dim ZZTage = 10
+            Dim ZZKdZahlungsziel = SQL.DLookup("Zahlungsziel", "Kunden", "Kundennr=" & ROW("RechnungsKundenNr"), "FMZOLL", 10)
+            If ZZKdZahlungsziel IsNot Nothing AndAlso IsNumeric(ZZKdZahlungsziel) Then
+                ZZTage = ZZKdZahlungsziel
+            End If
+            Select Case ROW("RechnungSprache")
+                Case "EN" : rpt.Label2.Text = ZZTage & " Days" : rpt.Label1.Text = "Payment target:"
+                Case Else : rpt.Label2.Text = ZZTage & " Tage"
+            End Select
+            Select Case ROW("Firma_ID")
+                Case 21, 22, 23 : rpt.Label1.Visible = False : rpt.Label2.Visible = False
+            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")
@@ -2425,8 +2558,11 @@ Public Class cFakturierung
            '             Dies hat zur Folge, dass steuerfreie Rechnungsbeträge für Leistungen,
            '             die in der Leistungstabelle als ReverseCharge gekennzeichnet sind,
            '             summiert und auf der Rechnung ausgewiesen werden.
-            If getReverseChargeSumme(ROW("RechnungsNr"), (ROW("RechnungsDatum")), VorschauID) > 0 Then
-                rpt.txtInfo.Text = "Achtung! Für EU-Kunden! Seit 1.1.2010 unterliegen Leistungen der Anwendung des Reverse Charge Verfahrens. Übergang der Steuerschuld an den Leistungsempfänger."
+            If getReverseChargeSumme(FIRMA, ROW("RechnungsLandKz"), ROW("RechnungsNr"), ROW("RechnungsDatum"), VorschauID) > 0 Then
+                Select Case ROW("RechnungSprache")
+                    Case "EN" : rpt.txtInfo.Text = "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 = "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

            'rpt.txtBank1.Text = If(FIRMA.Firma_Bankverbindung1, "") & vbNewLine & If(FIRMA.Firma_IBAN1, "") & vbNewLine & If(FIRMA.Firma_BIC1, "").ToString.Trim