This commit is contained in:
2025-10-09 16:17:04 +02:00
parent daea9595ab
commit 63522bad39
2 changed files with 3 additions and 3 deletions

View File

@@ -31,5 +31,5 @@ Imports System.Runtime.InteropServices
' übernehmen, indem Sie "*" eingeben:
' <Assembly: AssemblyVersion("1.0.*")>
<Assembly: AssemblyVersion("1.4.6.2")>
<Assembly: AssemblyFileVersion("1.4.6.2")>
<Assembly: AssemblyVersion("1.4.6.3")>
<Assembly: AssemblyFileVersion("1.4.6.3")>

View File

@@ -1713,7 +1713,7 @@ Public Class frmMDM_USTVAntrag
End Select
ElseIf dt_existingUSTVA.Rows.Count > 1 Then
Dim testInfo As String = "Es existiert bereits " & dt_existingUSTVA.Rows.Count & " " & cboAntragArt._value & "-Einträge in diesem Zeitbereich von " & vbNewLine
Dim testInfo As String = "Es existieren bereits " & dt_existingUSTVA.Rows.Count & " " & cboAntragArt._value & "-Einträge in diesem Zeitbereich von " & vbNewLine
For Each r In dt_existingUSTVA.Rows
testInfo &= vbNewLine & r.Item("UStVAn_ReDatvon") & " - " & r.Item("UStVAn_ReDatbis") & IIf(Not IsDBNull(r.Item("UStVAn_AntragEingereichtAm")) AndAlso IsDate(r.Item("UStVAn_AntragEingereichtAm")), " bereits eingereicht! ", "")
Next