From 0cf0691ff8f8b70dbd31bb16776504e1c288cd78 Mon Sep 17 00:00:00 2001
From: "d.breimaier" <d.breimaier@verag.ag>
Date: Wed, 22 Oct 2025 16:36:16 +0200
Subject: [PATCH] fremdrechnungen, etc.

---
 SDL/mdm/usrcntlFremdrechnungen.vb | 18 ++++++++++++++----
 1 file changed, 14 insertions(+), 4 deletions(-)

diff --git a/SDL/mdm/usrcntlFremdrechnungen.vb b/SDL/mdm/usrcntlFremdrechnungen.vb
index fd155e2f..8b49b8a9 100644
--- a/SDL/mdm/usrcntlFremdrechnungen.vb
+++ b/SDL/mdm/usrcntlFremdrechnungen.vb
@@ -920,7 +920,7 @@ Public Class usrcntlFremdrechnungen
 
 
         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)
 
@@ -935,7 +935,7 @@ Public Class usrcntlFremdrechnungen
                 Lieferant = aktLieferant
             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)
 
@@ -993,7 +993,7 @@ Public Class usrcntlFremdrechnungen
                         TextHTMLtable &= "<td><b>" & Lieferant & "</b></td>"
                         TextHTMLtable &= "<td><b>" & r.Item("Land") & "</b></td>"
                         TextHTMLtable &= "<td><b>" & r.Item("Rechnungsdatum") & "</b></td>"
-                        TextHTMLtable &= "</tr>"
+
 
 
 
@@ -1002,8 +1002,14 @@ Public Class usrcntlFremdrechnungen
                         If daId > 0 Then
                             Dim DS As New VERAG_PROG_ALLGEMEIN.cDATENSERVER(daId)
                             pdflist.Add(DS.GET_TOP1_PATH())
+                            TextHTMLtable &= "<td><b>" & DS.da_name & "</b></td>"
+                        Else
+                            TextHTMLtable &= "<td><b>-</b></td>"
                         End If
 
+
+                        TextHTMLtable &= "</tr>"
+
                     Next
 
 
@@ -1014,14 +1020,18 @@ Public Class usrcntlFremdrechnungen
                         TextHTMLtable &= "<td><b>" & Lieferant & "</b></td>"
                         TextHTMLtable &= "<td><b>" & row.Cells("Land").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)
                         If daId > 0 Then
                             Dim DS As New VERAG_PROG_ALLGEMEIN.cDATENSERVER(daId)
                             pdflist.Add(DS.GET_TOP1_PATH())
+                            TextHTMLtable &= "<td><b>" & DS.da_name & "</b></td>"
+                        Else
+                            TextHTMLtable &= "<td><b>-</b></td>"
                         End If
 
+                        TextHTMLtable &= "</tr>"
+
                     End If
                 End If