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

Übersetzung EN

Browse Source
This commit is contained in:
d.breimaier
2025-06-05 15:32:30 +02:00
parent dee5bf2ba7
commit 16690e1709
1 changed files with 7 additions and 7 deletions
Download Patch File Download Diff File Expand all files Collapse all files

14
SDL/Fakturierung/cFakturierung.vb
View File

@@ -340,14 +340,14 @@ Public Class cFakturierung
Select Case RECHNUNG.RechnungSprache Select Case RECHNUNG.RechnungSprache
'Case "EN" : strZahlbar = "Payable within " & ZZTage & " days less pos. 750; due net from " & ZZTage & " days." '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." 'Case Else : strZahlbar = "Zahlbar innerhalb " & ZZTage & " Tagen abzüglich Pos. 750; ab " & ZZTage & " Tagen netto fällig."
Case "EN" : strZahlbar = "Payment term: " & ZZTage & " days from invoice date; Pos. 750 is deductible within the payment term." Case "EN" : strZahlbar = "Terms of Payment: " & ZZTage & " days from invoice date; Pos. 750 is deductible within the payment term."
Case "RO" : strZahlbar = "Payment term: " & ZZTage & " days from invoice date; Pos. 750 is deductible within the payment term." Case "RO" : strZahlbar = "Payment term: " & ZZTage & " days from invoice date; Pos. 750 is deductible within the payment term."
Case Else : strZahlbar = "Zahlungsziel: " & ZZTage & " Tage ab Rechnungsdatum; Pos. 750 ist innerhalb des Zahlungsziels abzugfähig." Case Else : strZahlbar = "Zahlungsziel: " & ZZTage & " Tage ab Rechnungsdatum; Pos. 750 ist innerhalb des Zahlungsziels abzugfähig."
End Select End Select
Else Else
'Zahlungsziel allgemein. 'Zahlungsziel allgemein.
Select Case RECHNUNG.RechnungSprache Select Case RECHNUNG.RechnungSprache
Case "EN" : strZahlbar = "Payment term: " & ZZTage & " days from invoice date" Case "EN" : strZahlbar = "Terms of Payment: " & ZZTage & " days as of document date"
Case "RO" : strZahlbar = "Termen de plata: " & ZZTage & " zile de la data emiterii facturii" Case "RO" : strZahlbar = "Termen de plata: " & ZZTage & " zile de la data emiterii facturii"
Case Else : strZahlbar = "Zahlungsziel: " & ZZTage & " Tage ab Rechnungsdatum" Case Else : strZahlbar = "Zahlungsziel: " & ZZTage & " Tage ab Rechnungsdatum"
'Case "EN" : strZahlbar = "Payable within " & ZZTage & " days from date of invoice." 'Case "EN" : strZahlbar = "Payable within " & ZZTage & " days from date of invoice."
@@ -394,7 +394,7 @@ Public Class cFakturierung
Dim diff As Double = CDbl(VK.vk_Betrag) - CDbl(RECHNUNG.SteuerfreierGesamtbetrag + RECHNUNG.SteuerpflichtigerGesamtbetrag) Dim diff As Double = CDbl(VK.vk_Betrag) - CDbl(RECHNUNG.SteuerfreierGesamtbetrag + RECHNUNG.SteuerpflichtigerGesamtbetrag)
If diff < 0.5 And diff > 0.5 Then ' If diff = 0 Then --> 50ct spielraum ok für diff If diff < 0.5 And diff > 0.5 Then ' If diff = 0 Then --> 50ct spielraum ok für diff
Select Case RECHNUNG.RechnungSprache Select Case RECHNUNG.RechnungSprache
Case "EN" : strText = strText & "The invoice amount has already been paid in advance." & vbCrLf Case "EN" : strText = strText & "The invoice was balanced by payment in advance." & vbCrLf
Case "RO" : strText = strText & "Suma facturii a fost stinsa prin plata in avans." & vbCrLf Case "RO" : strText = strText & "Suma facturii a fost stinsa prin plata in avans." & vbCrLf
Case Else : strText = strText & "Der Rechnungsbetrag wurde bereits per Vorauszahlung beglichen." & vbCrLf Case Else : strText = strText & "Der Rechnungsbetrag wurde bereits per Vorauszahlung beglichen." & vbCrLf
End Select End Select
@@ -405,13 +405,13 @@ Public Class cFakturierung
' Case Else : strText = strText & "Zu dieser Rechnung wurde bereits eine Vorauszahlung geleistet, daraus ergibt sich ein Guthaben von " & diff.ToString("C2") & "." & vbCrLf ' Case Else : strText = strText & "Zu dieser Rechnung wurde bereits eine Vorauszahlung geleistet, daraus ergibt sich ein Guthaben von " & diff.ToString("C2") & "." & vbCrLf
'End Select 'End Select
Select Case RECHNUNG.RechnungSprache Select Case RECHNUNG.RechnungSprache
Case "EN" : strText = strText & "An advance payment has already been made for this invoice." & vbCrLf Case "EN" : strText = strText & "Advanced payment to this invoice has already been made." & vbCrLf
Case "RO" : strText = strText & "Pentru aceasta factura a fost efectuata deja o plata in avans." & vbCrLf Case "RO" : strText = strText & "Pentru aceasta factura a fost efectuata deja o plata in avans." & vbCrLf
Case Else : strText = strText & "Zu dieser Rechnung wurde bereits eine Vorauszahlung geleistet." & vbCrLf Case Else : strText = strText & "Zu dieser Rechnung wurde bereits eine Vorauszahlung geleistet." & vbCrLf
End Select End Select
Else 'Nachzahlung Else 'Nachzahlung
Select Case RECHNUNG.RechnungSprache Select Case RECHNUNG.RechnungSprache
Case "EN" : strText = strText & "An advance payment has already been made for this invoice, please transfer the difference." & vbCrLf Case "EN" : strText = strText & "Partial payment has already been in advance. Please remit the respective balance." & vbCrLf
Case "RO" : strText = strText & "Pentru aceasta factura a fost efectuata deja o plata in avans. Va rugam achitati diferenta." & vbCrLf Case "RO" : strText = strText & "Pentru aceasta factura a fost efectuata deja o plata in avans. Va rugam achitati diferenta." & vbCrLf
Case Else : strText = strText & "Zu dieser Rechnung wurde bereits eine Vorauszahlung geleistet, bitte überweisen Sie ggf. den Differenzbetrag." & vbCrLf Case Else : strText = strText & "Zu dieser Rechnung wurde bereits eine Vorauszahlung geleistet, bitte überweisen Sie ggf. den Differenzbetrag." & vbCrLf
End Select End Select
@@ -423,14 +423,14 @@ Public Class cFakturierung
Case 71 'GS Case 71 'GS
If RECHNUNG.Lastschrift Then If RECHNUNG.Lastschrift Then
Select Case RECHNUNG.RechnungSprache Select Case RECHNUNG.RechnungSprache
Case "EN" : strText = strText & "The credit amount was offset against the debit order issued." & vbCrLf Case "EN" : strText = strText & "The credit note is being balanced against direct debit order." & vbCrLf
Case "RO" : strText = strText & "Creditul a fost compensat cu ordinul de debitare emis." & vbCrLf Case "RO" : strText = strText & "Creditul a fost compensat cu ordinul de debitare emis." & vbCrLf
Case Else : strText = strText & "Der Gutschriftsbetrag wurde mit erteilten Abbuchungsauftrag verrechnet." & vbCrLf Case Else : strText = strText & "Der Gutschriftsbetrag wurde mit erteilten Abbuchungsauftrag verrechnet." & vbCrLf
End Select End Select
Else Else
If RECHNUNG.Firma_ID = 19 Then If RECHNUNG.Firma_ID = 19 Then
Select Case RECHNUNG.RechnungSprache Select Case RECHNUNG.RechnungSprache
Case "EN" : strZahlbar = "Payment term: " & ZZTage & " days" Case "EN" : strZahlbar = "Terms of Payment: " & ZZTage & " days"
Case "RO" : strZahlbar = "Termen de plata: " & ZZTage & " zile" Case "RO" : strZahlbar = "Termen de plata: " & ZZTage & " zile"
Case Else : strZahlbar = "Zahlungsziel: " & ZZTage & " Tage" Case Else : strZahlbar = "Zahlungsziel: " & ZZTage & " Tage"
End Select End Select