edv/SDL
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

ustva, Mahnung, etc.

Browse Source
This commit is contained in:
d.breimaier
2025-05-09 16:28:52 +02:00
parent 22e37befbe
commit 7972ba82c4
7 changed files with 89 additions and 29 deletions
Download Patch File Download Diff File Expand all files Collapse all files

36
SDL/Fakturierung/cFakturierung.vb
View File

@@ -834,6 +834,33 @@ Public Class cFakturierung
End If
Case 19 'MDM
rpt.txtDisclaimer.Text = "Wir arbeiten ausschließlich aufgrund der Allgemeinen Spediteurbedingungen in der jeweils geltenden Fassung. Zahlungen werden zunächst auf unsere Rechnungen, Spesen und Zinsen, zuletzt auf Zölle angerechnet. Zahlbar und klagbar in Schärding. Steuer-, Zoll- und Tarifauskünfte sind unverbindlich."
If Rechnung.RechnungsLandKz = "TR" Then
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)
If Not hasEUSTZOLL(Rechnung) Then
rpt.txtBank1.Text = "Türkei:" & vbNewLine & "Garanti Bank Hadimköy " & vbNewLine & "EUR-IBAN: TR96 0006 2000 5440 0009 0672 28" & vbNewLine & "SWIFT: TGBATRISXXX | Kto: 544"
End If
Else
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 If
Case Else 'VERAG
If Rechnung.RechnungsLandKz = "TR" Then
@@ -1509,12 +1536,17 @@ Public Class cFakturierung
Else
If isReverseChargeSumme(FIRMA, RECHNUNG) Then
rpt.lblZwText.Text = "Summe Steuerfrei"
Select Case RECHNUNG.RechnungSprache
Case "DE" : rpt.lblZwText.Text = "Summe Steuerfrei" : rpt.lblSteuersatz.Text = "Summe Reverse Charge"
Case "EN" : rpt.lblZwText.Text = "Sum Taxfree" : rpt.lblSteuersatz.Text = "Sum Reverse Charge"
Case "RO" : rpt.lblZwText.Text = "Suma neimpozabila" : rpt.lblSteuersatz.Text = "Suma Reverse Charge"
End Select
rpt.lblZWSumme.Text = CDbl(getSteuerfreiEUSTZOLL(FIRMA, RECHNUNG)).ToString("N2", CultureInfo.CurrentCulture)
rpt.lblZwText.Visible = True
rpt.lblZWSumme.Visible = True
rpt.lblSteuersatz.Text = "Summe Reverse Charge"
rpt.lblSteuersatz.Text = ""
rpt.lblSteuerbetrag.Text = CDbl(getReverseChargeSummeRKID(FIRMA, RECHNUNG)).ToString("N2", CultureInfo.CurrentCulture)
rpt.lblSteuersatz.Visible = True
rpt.lblSteuerbetrag.Visible = True