From c727fb7f31b126fae26861412a87c8f1fb3d3b88 Mon Sep 17 00:00:00 2001 From: "d.breimaier" Date: Thu, 19 Feb 2026 17:05:57 +0100 Subject: [PATCH] offeneAntraege --- SDL/USTV/frmUSTVoffeneAntraege.vb | 21 +++++++++++---------- 1 file changed, 11 insertions(+), 10 deletions(-) diff --git a/SDL/USTV/frmUSTVoffeneAntraege.vb b/SDL/USTV/frmUSTVoffeneAntraege.vb index 121b2f9e..11a93fe8 100644 --- a/SDL/USTV/frmUSTVoffeneAntraege.vb +++ b/SDL/USTV/frmUSTVoffeneAntraege.vb @@ -1119,21 +1119,22 @@ Public Class frmUSTVoffeneAntraege If dt.Rows.Count > 0 Then cProgramFunctions.genExcelFromDT_NEW(dt,,, "Fehlende PDF-Teilrechnungen inkl. Datensatz" & dat_Sum_Von.Value.ToShortDateString & " - " & dat_Sum_Bis.Value.ToShortDateString) + If dt.Rows.Count <= 10 Then + If vbYes = MsgBox(dt.Rows.Count & " Gesamtrechnungen der fehlenden PDF-Teilrechnungen anzeigen?", vbYesNo) Then + For Each row In dt.Rows + If row.item("daId") IsNot Nothing AndAlso IsNumeric(row.item("daId")) AndAlso CInt(row.item("daId")) > 0 Then + Dim DS As New cDATENSERVER(row.item("daId")) + Dim pathPDF = DS.GET_TOP1_PATH + If pathPDF <> "" Then Process.Start(pathPDF) + End If - If vbYes = MsgBox(dt.Rows.Count & " Gesamtrechnungen der fehlenden PDF-Teilrechnungen anzeigen?", vbYesNo) Then - For Each row In dt.Rows - If row.item("daId") IsNot Nothing AndAlso IsNumeric(row.item("daId")) AndAlso CInt(row.item("daId")) > 0 Then - Dim DS As New cDATENSERVER(row.item("daId")) - Dim pathPDF = DS.GET_TOP1_PATH - If pathPDF <> "" Then Process.Start(pathPDF) - End If - - Next + Next + End If End If End If - End If + End If Else MsgBox("Funktion nur pro Lieferant möglich!")