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

MWST-Liste, FaktEMail

Browse Source
This commit is contained in:
d.breimaier
2025-06-04 14:39:45 +02:00
parent b8cbc02757
commit c1dbe5d3fe
3 changed files with 166 additions and 110 deletions
Download Patch File Download Diff File Expand all files Collapse all files

30
SDL/Fakturierung/frmFaktEmail.vb
View File

@@ -913,6 +913,32 @@ Public Class frmFaktEmail
If ATTACHMENTS.Count = 0 Then Exit Sub
Try
Dim PATH_Org As String = ""
Dim PATH As String = ""
For Each a In ATTACHMENTS
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 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
If MergePDF And ATTACHMENTS.Count > 1 Then
Dim extension = ".pdf"
@@ -927,9 +953,9 @@ Public Class frmFaktEmail
Dim myListLiefereranten As New List(Of String)
Dim myListPOSLIST As New List(Of String)
For Each a In ATTACHMENTS
If a.Pfad.ToString.Contains("VERAG") Or a.Pfad.ToString.Contains("IDS") Or a.Pfad.ToString.Contains("MSE") Or a.Pfad.ToString.Contains("UTA") Or a.Pfad.ToString.Contains("PLOSE") Or a.Pfad.ToString.Contains("RMC") Then
If a.Pfad.ToString.Contains("VERAG") Or a.Pfad.ToString.Contains("IDS") Or a.Pfad.ToString.Contains("MSE") Or a.Pfad.ToString.Contains("UTA") Or a.Pfad.ToString.Contains("PLOSE") Or a.Pfad.ToString.Contains("RMC") Or a.Pfad.ToString.Contains("USTVA_") Then
myListLiefereranten.Add(a.Pfad)
ElseIf a.Pfad.ToString.Contains("POS_LISTE") Or a.Pfad.ToString.Contains("POS-LISTE") Then
ElseIf a.Pfad.ToString.Contains("POS_LISTE") Or a.Pfad.ToString.Contains("POS-LISTE") Or (a.Pfad = PATH AndAlso PATH <> "" AndAlso (PATH_Org.Contains("POS-LISTE") Or PATH_Org.Contains("POS_LISTE"))) Then
myListPOSLIST.Add(a.Pfad)
Else
myList.Add(a.Pfad)