From d09e998985cae216e2c7efe2b0f1218684bb3c0d Mon Sep 17 00:00:00 2001
From: "d.breimaier" <d.breimaier@verag.ag>
Date: Wed, 6 Dec 2023 08:49:02 +0100
Subject: [PATCH] Asfinag

---
 initATLASAufschubkonten/cAsfinag.vb | 46 ++++++++++++++---------------
 1 file changed, 23 insertions(+), 23 deletions(-)

diff --git a/initATLASAufschubkonten/cAsfinag.vb b/initATLASAufschubkonten/cAsfinag.vb
index 177ca0d..39c0fb6 100644
--- a/initATLASAufschubkonten/cAsfinag.vb
+++ b/initATLASAufschubkonten/cAsfinag.vb
@@ -89,7 +89,7 @@ Public Class cAsfinag
                     End Using
                 End Using
             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.MethodBase.GetCurrentMethod.Name)
             End Try
         End Sub
 
@@ -109,7 +109,7 @@ Public Class cAsfinag
                 Return (" UPDATE [CLFHeader] SET " & str & " WHERE PKFileName=@PKFileName ")
 
             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.MethodBase.GetCurrentMethod.Name)
             End Try
             Return ""
         End Function
@@ -130,7 +130,7 @@ Public Class cAsfinag
                 values = values.Substring(0, values.Length - 1) 'wg. ','
                 Return (" INSERT INTO CLFHeader  (" & 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.MethodBase.GetCurrentMethod.Name)
             End Try
             Return ""
         End Function
@@ -227,7 +227,7 @@ Public Class cAsfinag
                     End Using
                 End Using
             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.MethodBase.GetCurrentMethod.Name)
             End Try
         End Sub
 
@@ -247,7 +247,7 @@ Public Class cAsfinag
                 Return (" UPDATE [CLFBody] SET " & str & " WHERE PKFileName=@PKFileName AND PKLine  = @PKLine ")
 
             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.MethodBase.GetCurrentMethod.Name)
             End Try
             Return ""
         End Function
@@ -268,7 +268,7 @@ Public Class cAsfinag
                 values = values.Substring(0, values.Length - 1) 'wg. ','
                 Return (" INSERT INTO CLFBody  (" & 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.MethodBase.GetCurrentMethod.Name)
             End Try
             Return ""
         End Function
@@ -376,7 +376,7 @@ Public Class cAsfinag
                     End Using
                 End Using
             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.MethodBase.GetCurrentMethod.Name)
             End Try
         End Sub
 
@@ -397,7 +397,7 @@ Public Class cAsfinag
                 Return (" UPDATE [CLFArchiv] SET " & str & " WHERE OBUID = @OBUID ")
 
             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.MethodBase.GetCurrentMethod.Name)
             End Try
             Return ""
         End Function
@@ -418,7 +418,7 @@ Public Class cAsfinag
                 values = values.Substring(0, values.Length - 1) 'wg. ','
                 Return (" INSERT INTO CLFArchiv  (" & 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.MethodBase.GetCurrentMethod.Name)
             End Try
             Return ""
         End Function
@@ -494,7 +494,7 @@ Public Class cAsfinag
                     End Using
                 End Using
             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.MethodBase.GetCurrentMethod.Name)
             End Try
         End Sub
 
@@ -514,7 +514,7 @@ Public Class cAsfinag
                 Return (" UPDATE [CLFTrailer] SET " & str & " WHERE PKFileName=@PKFileName")
 
             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.MethodBase.GetCurrentMethod.Name)
             End Try
             Return ""
         End Function
@@ -535,7 +535,7 @@ Public Class cAsfinag
                 values = values.Substring(0, values.Length - 1) 'wg. ','
                 Return (" INSERT INTO CLFTrailer  (" & 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.MethodBase.GetCurrentMethod.Name)
             End Try
             Return ""
         End Function
@@ -635,7 +635,7 @@ Public Class cAsfinag
                     End Using
                 End Using
             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.MethodBase.GetCurrentMethod.Name)
             End Try
         End Sub
 
@@ -660,7 +660,7 @@ Public Class cAsfinag
 
 
             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.MethodBase.GetCurrentMethod.Name)
             End Try
             Return ""
         End Function
@@ -681,7 +681,7 @@ Public Class cAsfinag
                 values = values.Substring(0, values.Length - 1) 'wg. ','
                 Return (" INSERT INTO TTRHeader  (" & 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.MethodBase.GetCurrentMethod.Name)
             End Try
             Return ""
         End Function
@@ -794,7 +794,7 @@ Public Class cAsfinag
                     End Using
                 End Using
             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.MethodBase.GetCurrentMethod.Name)e)
             End Try
         End Sub
 
@@ -814,7 +814,7 @@ Public Class cAsfinag
                 Return (" UPDATE [TTRBody] SET " & str & " WHERE PKFileName=@PKFileName AND PKLine = @PKLine AND PKHistory = @PKHistory")
 
             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.MethodBase.GetCurrentMethod.Name)
             End Try
             Return ""
         End Function
@@ -835,7 +835,7 @@ Public Class cAsfinag
                 values = values.Substring(0, values.Length - 1) 'wg. ','
                 Return (" INSERT INTO TTRBody  (" & 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.MethodBase.GetCurrentMethod.Name)
             End Try
             Return ""
         End Function
@@ -915,7 +915,7 @@ Public Class cAsfinag
                     End Using
                 End Using
             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.MethodBase.GetCurrentMethod.Name)
             End Try
         End Sub
 
@@ -935,7 +935,7 @@ Public Class cAsfinag
                 Return (" UPDATE [TTRTrailer] SET " & str & " WHERE PKFileName=@PKFileName")
 
             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.MethodBase.GetCurrentMethod.Name)
             End Try
             Return ""
         End Function
@@ -956,7 +956,7 @@ Public Class cAsfinag
                 values = values.Substring(0, values.Length - 1) 'wg. ','
                 Return (" INSERT INTO TTRTrailer  (" & 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.MethodBase.GetCurrentMethod.Name)
             End Try
             Return ""
         End Function
@@ -1196,7 +1196,7 @@ Public Class cAsfinag
 
                 End Using
             Catch ex As Exception
-                MsgBox(ex.Message)
+                VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace & vbNewLine & "Datei: " & Dateiname, System.Reflection.MethodInfo.GetCurrentMethod.Name)
             End Try
 
         End Function
@@ -1380,7 +1380,7 @@ Public Class cAsfinag
 
                 End Using
             Catch ex As Exception
-                MsgBox(ex.Message)
+                VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace & vbNewLine & "Datei: " & Dateiname, System.Reflection.MethodInfo.GetCurrentMethod.Name)
             End Try
 
         End Function