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

vers

Browse Source
This commit is contained in:
Andreas Luxbauer
2025-03-28 07:55:23 +01:00
parent 9cabf84b05
commit df80f3e51d
2 changed files with 4 additions and 2 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.7.7")>
<Assembly: AssemblyFileVersion("1.3.7.7")>
<Assembly: AssemblyVersion("1.3.7.8")>
<Assembly: AssemblyFileVersion("1.3.7.8")>

2
VERAG_PROG_ALLGEMEIN/Schnittstellen/ATEZ/NCTS_API/NCTS-P5/cNCTS_FREMD.vb
View File

@@ -872,6 +872,8 @@ Public Class cNCTS_FREMD
Dim NCTS As New cNCTS_FREMD
Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL
If MRN Is Nothing Then Return Nothing
Using conn As SqlConnection = SQL.GetNewOpenConnectionFMZOLL()
Using cmd As New SqlCommand("SELECT TOP 1 * FROM tblNCTS_FREMD WHERE [ncts_MRN] LIKE @MRN " & If(checkValidStatus, " AND ncts_status BETWEEN 40 and 90 ", "") & " order by ncts_LetzteBearbeitung desc", conn)
cmd.Parameters.AddWithValue("@MRN", MRN)