vers

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)