From df80f3e51dc2ba392a76d61efc745d3b7684d963 Mon Sep 17 00:00:00 2001 From: Andreas Luxbauer Date: Fri, 28 Mar 2025 07:55:23 +0100 Subject: [PATCH] vers --- SDL/My Project/AssemblyInfo.vb | 4 ++-- .../Schnittstellen/ATEZ/NCTS_API/NCTS-P5/cNCTS_FREMD.vb | 2 ++ 2 files changed, 4 insertions(+), 2 deletions(-) diff --git a/SDL/My Project/AssemblyInfo.vb b/SDL/My Project/AssemblyInfo.vb index f1b45f8d..b8b8b37f 100644 --- a/SDL/My Project/AssemblyInfo.vb +++ b/SDL/My Project/AssemblyInfo.vb @@ -31,5 +31,5 @@ Imports System.Runtime.InteropServices ' übernehmen, indem Sie "*" eingeben: ' - - + + diff --git a/VERAG_PROG_ALLGEMEIN/Schnittstellen/ATEZ/NCTS_API/NCTS-P5/cNCTS_FREMD.vb b/VERAG_PROG_ALLGEMEIN/Schnittstellen/ATEZ/NCTS_API/NCTS-P5/cNCTS_FREMD.vb index 8672375a..92d3716b 100644 --- a/VERAG_PROG_ALLGEMEIN/Schnittstellen/ATEZ/NCTS_API/NCTS-P5/cNCTS_FREMD.vb +++ b/VERAG_PROG_ALLGEMEIN/Schnittstellen/ATEZ/NCTS_API/NCTS-P5/cNCTS_FREMD.vb @@ -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)