diff --git a/SDL/Fakturierung/cFakturierung.vb b/SDL/Fakturierung/cFakturierung.vb index 4da4247c..61a93326 100644 --- a/SDL/Fakturierung/cFakturierung.vb +++ b/SDL/Fakturierung/cFakturierung.vb @@ -340,14 +340,14 @@ Public Class cFakturierung 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." - 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 Else : strZahlbar = "Zahlungsziel: " & ZZTage & " Tage ab Rechnungsdatum; Pos. 750 ist innerhalb des Zahlungsziels abzugfähig." End Select Else 'Zahlungsziel allgemein. 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 Else : strZahlbar = "Zahlungsziel: " & ZZTage & " Tage ab Rechnungsdatum" '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) 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 "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 Else : strText = strText & "Der Rechnungsbetrag wurde bereits per Vorauszahlung beglichen." & vbCrLf 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 'End Select 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 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 "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 Else : strText = strText & "Zu dieser Rechnung wurde bereits eine Vorauszahlung geleistet, bitte überweisen Sie ggf. den Differenzbetrag." & vbCrLf End Select @@ -423,14 +423,14 @@ Public Class cFakturierung Case 71 'GS If RECHNUNG.Lastschrift Then 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 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 "EN" : strZahlbar = "Terms of Payment: " & ZZTage & " days" Case "RO" : strZahlbar = "Termen de plata: " & ZZTage & " zile" Case Else : strZahlbar = "Zahlungsziel: " & ZZTage & " Tage" End Select