Anpassung ATILLA 4802 DY

2023-08-24 08:44:06 +02:00
parent 28d19be027
commit f68ad96df5
6 changed files with 54 additions and 17 deletions
--- a/VERAG_PROG_ALLGEMEIN/Classes/cNCTS_TR.vb
+++ b/VERAG_PROG_ALLGEMEIN/Classes/cNCTS_TR.vb
@@ -1041,7 +1041,7 @@ Public Class cNCTS_TR_Sicherheitsangaben
            values = values.Substring(0, values.Length - 1) 'wg. ','
            Return (" INSERT INTO tblNCTS_TR_Sicherheitsangaben  (" & str & ") VALUES(" & values & ")  ")
        Catch ex As Exception
-            MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace)
+            VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
        End Try
        Return ""
    End Function