ustv
This commit is contained in:
@@ -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")>
|
||||
|
||||
@@ -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
|
||||
|
||||
Reference in New Issue
Block a user