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

Fakt.

Browse Source
This commit is contained in:
d.breimaier
2025-06-05 15:11:48 +02:00
parent b1572ec6c5
commit 6d8eb4cc58
2 changed files with 25 additions and 19 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
SDL/Fakturierung/cFakturierung.vb
View File

@@ -332,6 +332,7 @@ Public Class cFakturierung
If RECHNUNG.Lastschrift Then If RECHNUNG.Lastschrift Then
Select Case RECHNUNG.RechnungSprache Select Case RECHNUNG.RechnungSprache
Case "EN" : strText = strText & "The invoice amount was collected by direct debit order." & vbCrLf 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 Case Else : strText = strText & "Der Rechnungsbetrag wurde durch erteilten Abbuchungsauftrag eingezogen." & vbCrLf
End Select End Select
Else Else
@@ -340,12 +341,14 @@ Public Class cFakturierung
'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 = "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 = "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 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."
'Case Else : strZahlbar = "Zahlbar innerhalb " & ZZTage & " Tagen ab Rechnungsdatum." '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 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 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 Case Else : strText = strText & "Der Rechnungsbetrag wurde bereits per Vorauszahlung beglichen." & vbCrLf
End Select End Select
Else Else
@@ -402,11 +406,13 @@ Public Class cFakturierung
'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 & "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 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 & "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 Case Else : strText = strText & "Zu dieser Rechnung wurde bereits eine Vorauszahlung geleistet, bitte überweisen Sie ggf. den Differenzbetrag." & vbCrLf
End Select End Select
End If End If
@@ -418,12 +424,14 @@ Public Class cFakturierung
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 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 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 = "Payment term: " & ZZTage & " days"
Case "RO" : strZahlbar = "Payment term: " & ZZTage & " days"
Case Else : strZahlbar = "Zahlungsziel: " & ZZTage & " Tage" Case Else : strZahlbar = "Zahlungsziel: " & ZZTage & " Tage"
End Select End Select
End If End If

36
SDL/Fakturierung/frmFaktEmail.vb
View File

@@ -915,36 +915,34 @@ Public Class frmFaktEmail
Dim PATH_Org As String = "" Dim PATH_Org As String = ""
Dim PATH 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 PATH_Org = a.Pfad
If a.Pfad.ToString.Contains("POS_LISTE") Or a.Pfad.ToString.Contains("POS-LISTE") Then
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 pdfReader As itextsharp.text.pdf.PdfReader = New itextsharp.text.pdf.PdfReader(PATH_Org) Dim listTowrite As New List(Of VERAG_PROG_ALLGEMEIN.cPDFWriteValues)
Dim fm As New VERAG_PROG_ALLGEMEIN.cFormularManager For page As Integer = 1 To pdfReader.NumberOfPages
Dim listTowrite As New List(Of VERAG_PROG_ALLGEMEIN.cPDFWriteValues) listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(RECHNUNG.RechnungsNr, 7, 23.5, 100, 20, "bold", 12, , itextsharp.text.Element.ALIGN_LEFT, page))
For page As Integer = 1 To pdfReader.NumberOfPages Next
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
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 If MergePDF And ATTACHMENTS.Count > 1 Then
Dim extension = ".pdf" Dim extension = ".pdf"
Dim zielPfadZusammenfassung = VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.getTMPPath(IIf(SammelrechungArt <> 6, "Rechnungs_Anhänge_", "Rechnung_") & RgNr & extension, extension,, False, "Zusammenfassung") 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_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") Dim zielPfadZusammenfassung_POSListe = VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.getTMPPath("POS_Anhang" & RgNr & extension, extension,, False, "Zusammenfassung")