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

EXG, DY Atilla

Browse Source
This commit is contained in:
Andreas Luxbauer
2025-02-12 12:42:28 +01:00
parent 1270932d29
commit cb798cd22b
8 changed files with 247 additions and 150 deletions
Download Patch File Download Diff File Expand all files Collapse all files

16
initATLASAufschubkonten/frmDYNachrichtenVerarbeitung.vb
View File

@@ -10873,22 +10873,30 @@ Public Class frmDYNachrichtenVerarbeitung
Shared Function isAtez(bezugsNr As String) As Boolean
Dim atez As Boolean = False
Try
If bezugsNr <> "" AndAlso bezugsNr.Length > 4 AndAlso bezugsNr.Substring(bezugsNr.Length, 4) = "ATEZ" Then
atez = True
End If
If bezugsNr <> "" AndAlso bezugsNr.Length > 4 AndAlso bezugsNr.Substring(0, 4) = "ATEZ" Then
atez = True
End If
Catch ex As Exception
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace & vbNewLine, System.Reflection.MethodInfo.GetCurrentMethod.Name)
End Try
Return atez
End Function
Shared Function isAtezIRU(bezugsNr As String) As Boolean
Dim atez As Boolean = False
Try
If bezugsNr <> "" AndAlso bezugsNr.Length > 4 AndAlso bezugsNr.Substring(bezugsNr.Length, 4) = "IRU0" Then
If bezugsNr <> "" AndAlso bezugsNr.Length > 4 AndAlso bezugsNr.Substring(0, 4) = "IRU0" Then
atez = True
End If
Catch ex As Exception
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace & vbNewLine, System.Reflection.MethodInfo.GetCurrentMethod.Name)
End Try
Return atez
End Function