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

ustv

Browse Source
This commit is contained in:
d.breimaier
2025-10-09 16:17:04 +02:00
parent daea9595ab
commit 63522bad39
2 changed files with 3 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
SDL/My Project/AssemblyInfo.vb
View File

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

2
SDL/USTV/frmMDM_USTVAntrag.vb
View File

@@ -1713,7 +1713,7 @@ Public Class frmMDM_USTVAntrag
End Select End Select
ElseIf dt_existingUSTVA.Rows.Count > 1 Then 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 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! ", "") 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 Next