diff --git a/SDL/Fakturierung/cFakturierung.vb b/SDL/Fakturierung/cFakturierung.vb index ae0a8911..f9bb0499 100644 --- a/SDL/Fakturierung/cFakturierung.vb +++ b/SDL/Fakturierung/cFakturierung.vb @@ -332,6 +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 Else : strText = strText & "Der Rechnungsbetrag wurde durch erteilten Abbuchungsauftrag eingezogen." & vbCrLf End Select Else @@ -340,12 +341,14 @@ Public Class cFakturierung '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 "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 "RO" : strZahlbar = "Payment term: " & ZZTage & " days from invoice date" 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." @@ -392,6 +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 Else : strText = strText & "Der Rechnungsbetrag wurde bereits per Vorauszahlung beglichen." & vbCrLf End Select Else @@ -402,11 +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 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 Else : strText = strText & "Zu dieser Rechnung wurde bereits eine Vorauszahlung geleistet, bitte überweisen Sie ggf. den Differenzbetrag." & vbCrLf End Select End If @@ -418,12 +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 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 Else : strZahlbar = "Zahlungsziel: " & ZZTage & " Tage" End Select End If diff --git a/SDL/Fakturierung/frmFaktEmail.vb b/SDL/Fakturierung/frmFaktEmail.vb index 88189c78..e3ef60c4 100644 --- a/SDL/Fakturierung/frmFaktEmail.vb +++ b/SDL/Fakturierung/frmFaktEmail.vb @@ -915,36 +915,34 @@ Public Class frmFaktEmail Dim PATH_Org As String = "" Dim PATH As String = "" + If RECHNUNG IsNot Nothing AndAlso RECHNUNG.Firma_ID = 19 Then + For Each a In ATTACHMENTS + If a.Pfad.ToString.Contains("POS_LISTE") Or a.Pfad.ToString.Contains("POS-LISTE") Then - For Each a In ATTACHMENTS - If a.Pfad.ToString.Contains("POS_LISTE") Or a.Pfad.ToString.Contains("POS-LISTE") Then + PATH_Org = a.Pfad - PATH_Org = a.Pfad - - Dim pdfReader As itextsharp.text.pdf.PdfReader = New itextsharp.text.pdf.PdfReader(PATH_Org) - Dim fm As New VERAG_PROG_ALLGEMEIN.cFormularManager - Dim listTowrite As New List(Of VERAG_PROG_ALLGEMEIN.cPDFWriteValues) - For page As Integer = 1 To pdfReader.NumberOfPages - listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(RECHNUNG.RechnungsNr, 7, 23.5, 100, 20, "bold", 12, , itextsharp.text.Element.ALIGN_LEFT, page)) - Next - - pdfReader.Close() - - a.Pfad = fm.fillPDFVorhandenesLokalesPDF_Path(PATH_Org, listTowrite, , ,, False) - PATH = a.Pfad - End If - - Next + Dim pdfReader As itextsharp.text.pdf.PdfReader = New itextsharp.text.pdf.PdfReader(PATH_Org) + Dim fm As New VERAG_PROG_ALLGEMEIN.cFormularManager + Dim listTowrite As New List(Of VERAG_PROG_ALLGEMEIN.cPDFWriteValues) + For page As Integer = 1 To pdfReader.NumberOfPages + listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(RECHNUNG.RechnungsNr, 7, 23.5, 100, 20, "bold", 12, , itextsharp.text.Element.ALIGN_LEFT, page)) + Next + pdfReader.Close() + a.Pfad = fm.fillPDFVorhandenesLokalesPDF_Path(PATH_Org, listTowrite, , ,, False) + PATH = a.Pfad + End If + Next + End If If MergePDF And ATTACHMENTS.Count > 1 Then Dim extension = ".pdf" Dim zielPfadZusammenfassung = VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.getTMPPath(IIf(SammelrechungArt <> 6, "Rechnungs_Anhänge_", "Rechnung_") & RgNr & extension, extension,, False, "Zusammenfassung") - If RECHNUNG.Firma_ID = 19 Then + If RECHNUNG IsNot Nothing AndAlso RECHNUNG.Firma_ID = 19 Then Dim zielPfadZusammenfassung_Lieferantenrechnungen = VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.getTMPPath(IIf(SammelrechungArt <> 6, "LF-Rechnungs_Anhänge_", "LF-Rechnung_") & RgNr & extension, extension,, False, "Zusammenfassung") Dim zielPfadZusammenfassung_POSListe = VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.getTMPPath("POS_Anhang" & RgNr & extension, extension,, False, "Zusammenfassung")