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

NCTS TR ; OpenAI

Browse Source
This commit is contained in:
Andreas Luxbauer
2025-02-04 13:22:07 +01:00
parent 356899e64b
commit 865ab8938d
5 changed files with 85 additions and 11 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:
' <Assembly: AssemblyVersion("1.0.*")>
<Assembly: AssemblyVersion("1.3.5.4")>
<Assembly: AssemblyFileVersion("1.3.5.4")>
<Assembly: AssemblyVersion("1.3.5.5")>
<Assembly: AssemblyFileVersion("1.3.5.5")>

8
SDL/ZOLLSYSTEM/DAKOSY/ATLAS/EXGestellung/usrCntlATLAS_EXGestellung.vb
View File

@@ -91,17 +91,17 @@ Public Class usrCntlATLAS_EXGestellung
'MRN Prüfung:
For Each l In rtbMRN.Lines
If l.Trim <> "" Then
If l.Length >= 18 And dblcheck.Contains(l) Then
If l.Trim.Length >= 18 And dblcheck.Contains(l.Trim) Then
MsgBox("Doppelte MRN !: " & l)
Me.Cursor = Cursors.Default
Exit Sub
End If
If Not IsValidMRN(l) Then
If Not IsValidMRN(l.Trim) Then
MsgBox("Ungültige MRN (Format): " & l)
Me.Cursor = Cursors.Default
Exit Sub
End If
dblcheck &= l
dblcheck &= l.Trim
End If
Next
@@ -111,7 +111,7 @@ Public Class usrCntlATLAS_EXGestellung
For Each l In rtbMRN.Lines
If l.Trim <> "" Then
If Not sendEXP_MRN(l, sbAbgangZollstelle._value, cnt, exg_list) Then
If Not sendEXP_MRN(l.Trim, sbAbgangZollstelle._value, cnt, exg_list) Then
MsgBox("Sendefehler bei " & l)
err = True
End If