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

Textänderung

Browse Source
This commit is contained in:
d.breimaier
2023-04-04 13:47:34 +02:00
parent 72d84139a7
commit 89cbb1bd04
1 changed files with 1 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
initATLASAufschubkonten/frmStartOptions.vb
View File

@@ -2391,7 +2391,7 @@ Public Class frmStartOptions
Dim KdFirma = VERAG_PROG_ALLGEMEIN.cAllgemein.getFirmaFromFiliale(kunde.FilialenNr) Dim KdFirma = VERAG_PROG_ALLGEMEIN.cAllgemein.getFirmaFromFiliale(kunde.FilialenNr)
If KdFirma = VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA Then If KdFirma = VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA Then
Dim kundeErw As cKundenErweitert = New cKundenErweitert(kunde.KundenNr) Dim kundeErw As cKundenErweitert = New cKundenErweitert(kunde.KundenNr)
Dim textUIDVermerk As String = "UID Nr." & r("UstIdKz") & r("UstIdnr") & " ungültig, zuletzt geprüft wo gültig am " & r("letzte Prüfung") & " lt. Aufstellung Andreas!" Dim textUIDVermerk As String = "UID Nr." & r("UstIdKz") & r("UstIdnr") & " ungültig, zuletzt geprüft wo gültig am " & r("letzte Prüfung") & " lt. monatl. Prüfung!"
If kundeErw.kde_BesonderheitenNeu Then If kundeErw.kde_BesonderheitenNeu Then