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

fakt RO Übersetzung bei Zahlungsziel

Browse Source
This commit is contained in:
d.breimaier
2025-06-05 15:16:04 +02:00
parent 6d8eb4cc58
commit dee5bf2ba7
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

@@ -332,7 +332,7 @@ Public Class cFakturierung
If RECHNUNG.Lastschrift Then
Select Case RECHNUNG.RechnungSprache
Case "EN" : strText = strText & "The invoice amount was collected by direct debit order." & vbCrLf
Case "RO" : strText = strText & "The invoice amount was collected by direct debit order." & vbCrLf
Case "RO" : strText = strText & "Suma facturii a fost incasata prin ordin de debitare directa." & vbCrLf
Case Else : strText = strText & "Der Rechnungsbetrag wurde durch erteilten Abbuchungsauftrag eingezogen." & vbCrLf
End Select
Else
@@ -348,7 +348,7 @@ Public Class cFakturierung
'Zahlungsziel allgemein.
Select Case RECHNUNG.RechnungSprache
Case "EN" : strZahlbar = "Payment term: " & ZZTage & " days from invoice date"
Case "RO" : strZahlbar = "Payment term: " & ZZTage & " days from invoice date"
Case "RO" : strZahlbar = "Termen de plata: " & ZZTage & " zile de la data emiterii facturii"
Case Else : strZahlbar = "Zahlungsziel: " & ZZTage & " Tage ab Rechnungsdatum"
'Case "EN" : strZahlbar = "Payable within " & ZZTage & " days from date of invoice."
'Case Else : strZahlbar = "Zahlbar innerhalb " & ZZTage & " Tagen ab Rechnungsdatum."
@@ -395,7 +395,7 @@ Public Class cFakturierung
If diff < 0.5 And diff > 0.5 Then ' If diff = 0 Then --> 50ct spielraum ok für diff
Select Case RECHNUNG.RechnungSprache
Case "EN" : strText = strText & "The invoice amount has already been paid in advance." & vbCrLf
Case "RO" : strText = strText & "The invoice amount has already been paid in advance." & 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
End Select
Else
@@ -406,13 +406,13 @@ Public Class cFakturierung
'End Select
Select Case RECHNUNG.RechnungSprache
Case "EN" : strText = strText & "An advance payment has already been made for this invoice." & vbCrLf
Case "RO" : strText = strText & "An advance payment has already been made for this invoice." & 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
End Select
Else 'Nachzahlung
Select Case RECHNUNG.RechnungSprache
Case "EN" : strText = strText & "An advance payment has already been made for this invoice, please transfer the difference." & vbCrLf
Case "RO" : strText = strText & "An advance payment has already been made for this invoice, please transfer the difference." & 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
End Select
End If
@@ -424,14 +424,14 @@ Public Class cFakturierung
If RECHNUNG.Lastschrift Then
Select Case RECHNUNG.RechnungSprache
Case "EN" : strText = strText & "The credit amount was offset against the debit order issued." & vbCrLf
Case "RO" : strText = strText & "The credit amount was offset against the debit order issued." & 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
End Select
Else
If RECHNUNG.Firma_ID = 19 Then
Select Case RECHNUNG.RechnungSprache
Case "EN" : strZahlbar = "Payment term: " & ZZTage & " days"
Case "RO" : strZahlbar = "Payment term: " & ZZTage & " days"
Case "RO" : strZahlbar = "Termen de plata: " & ZZTage & " zile"
Case Else : strZahlbar = "Zahlungsziel: " & ZZTage & " Tage"
End Select
End If