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

fremdrechnungen, etc.

Browse Source
This commit is contained in:
d.breimaier
2025-10-22 16:36:16 +02:00
parent c31f63debf
commit 0cf0691ff8
1 changed files with 14 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

18
SDL/mdm/usrcntlFremdrechnungen.vb
View File

@@ -920,7 +920,7 @@ Public Class usrcntlFremdrechnungen
TextHTMLtable &= "<table border=1>" TextHTMLtable &= "<table border=1>"
TextHTMLtable &= "<tr><td>Supplier</td><td>Country</td><td>Date</td></tr>" TextHTMLtable &= "<tr><td>Supplier</td><td>Country</td><td>Date</td><td>Filename</td></tr>"
Dim pdflist As New List(Of String) Dim pdflist As New List(Of String)
@@ -935,7 +935,7 @@ Public Class usrcntlFremdrechnungen
Lieferant = aktLieferant Lieferant = aktLieferant
End If End If
If onlyRelevantInvioces AndAlso Lieferant <> "IDS" AndAlso erw.kde_keineMWSt Then Exit For 'abbruchbedingung If onlyRelevantInvioces AndAlso Lieferant <> "IDS" AndAlso erw.kde_keineMWSt Then Continue For 'abbruchbedingung -> nächste Zeile
Dim sendÍnvoice As Boolean = IIf(onlyRelevantInvioces AndAlso KUNDE.KundenNr = 0, False, True) Dim sendÍnvoice As Boolean = IIf(onlyRelevantInvioces AndAlso KUNDE.KundenNr = 0, False, True)
@@ -993,7 +993,7 @@ Public Class usrcntlFremdrechnungen
TextHTMLtable &= "<td><b>" & Lieferant & "</b></td>" TextHTMLtable &= "<td><b>" & Lieferant & "</b></td>"
TextHTMLtable &= "<td><b>" & r.Item("Land") & "</b></td>" TextHTMLtable &= "<td><b>" & r.Item("Land") & "</b></td>"
TextHTMLtable &= "<td><b>" & r.Item("Rechnungsdatum") & "</b></td>" TextHTMLtable &= "<td><b>" & r.Item("Rechnungsdatum") & "</b></td>"
TextHTMLtable &= "</tr>"
@@ -1002,8 +1002,14 @@ Public Class usrcntlFremdrechnungen
If daId > 0 Then If daId > 0 Then
Dim DS As New VERAG_PROG_ALLGEMEIN.cDATENSERVER(daId) Dim DS As New VERAG_PROG_ALLGEMEIN.cDATENSERVER(daId)
pdflist.Add(DS.GET_TOP1_PATH()) pdflist.Add(DS.GET_TOP1_PATH())
TextHTMLtable &= "<td><b>" & DS.da_name & "</b></td>"
Else
TextHTMLtable &= "<td><b>-</b></td>"
End If End If
TextHTMLtable &= "</tr>"
Next Next
@@ -1014,14 +1020,18 @@ Public Class usrcntlFremdrechnungen
TextHTMLtable &= "<td><b>" & Lieferant & "</b></td>" TextHTMLtable &= "<td><b>" & Lieferant & "</b></td>"
TextHTMLtable &= "<td><b>" & row.Cells("Land").Value & "</b></td>" TextHTMLtable &= "<td><b>" & row.Cells("Land").Value & "</b></td>"
TextHTMLtable &= "<td><b>" & row.Cells("Rechnungsdatum").Value & "</b></td>" TextHTMLtable &= "<td><b>" & row.Cells("Rechnungsdatum").Value & "</b></td>"
TextHTMLtable &= "</tr>"
Dim daId As Integer = IIf(IsDBNull(row.Cells("daId").Value), -1, row.Cells("daId").Value) Dim daId As Integer = IIf(IsDBNull(row.Cells("daId").Value), -1, row.Cells("daId").Value)
If daId > 0 Then If daId > 0 Then
Dim DS As New VERAG_PROG_ALLGEMEIN.cDATENSERVER(daId) Dim DS As New VERAG_PROG_ALLGEMEIN.cDATENSERVER(daId)
pdflist.Add(DS.GET_TOP1_PATH()) pdflist.Add(DS.GET_TOP1_PATH())
TextHTMLtable &= "<td><b>" & DS.da_name & "</b></td>"
Else
TextHTMLtable &= "<td><b>-</b></td>"
End If End If
TextHTMLtable &= "</tr>"
End If End If
End If End If