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/_BASE.vb
+++ b/VERAG_PROG_ALLGEMEIN/Classes/_BASE.vb
@@ -62,7 +62,7 @@ Public Class _BASE
                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.MethodInfo.GetCurrentMethod.Name)
        End Try
    End Sub

@@ -82,7 +82,7 @@ Public Class _BASE
            Return (" UPDATE [tblTABLE] SET " & str & " WHERE _BASE_id=@_BASE_id ")

        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
@@ -103,7 +103,7 @@ Public Class _BASE
            values = values.Substring(0, values.Length - 1) 'wg. ','
            Return (" INSERT INTO tblTABLE  (" & 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
--- 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
--- a/VERAG_PROG_ALLGEMEIN/Classes/cUIDPruefung.vb
+++ b/VERAG_PROG_ALLGEMEIN/Classes/cUIDPruefung.vb
@@ -155,7 +155,7 @@ Public Class cUIDPruefung
        Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA
            Case "AMBAR" : where = " And Filialen.FilialenNr  IN (5701)"
            Case "IMEX" : where = " And Filialen.FilialenNr  IN (5501)"
-            Case "ATILLA" : where = " And Filialen.FilialenNr IN (4801)"
+            Case "ATILLA" : where = " And Filialen.FilialenNr IN (4801 )"
            Case "UNISPED" : where = " AND Filialen.firma='UNISPED' "
            Case Else : where = " AND Filialen.firma='VERAG' " '" And isnull(FilialenNr,'')  Not IN (5501,5701)"
        End Select
--- a/VERAG_PROG_ALLGEMEIN/Schnittstellen/ATEZ/VERAG_OUT_ATEZ_IN/cATEZ_NCTS_IN.vb
+++ b/VERAG_PROG_ALLGEMEIN/Schnittstellen/ATEZ/VERAG_OUT_ATEZ_IN/cATEZ_NCTS_IN.vb
@@ -37,7 +37,7 @@ Public Class cATEZ_NCTS_DATA

    Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL

-    Dim hasEntry As Boolean
+    Public hasEntry As Boolean

    Function getParameterList() As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable)
        Dim list As New List(Of VERAG_PROG_ALLGEMEIN.SQLVariable)
@@ -114,7 +114,7 @@ Public Class cATEZ_NCTS_DATA
            Return (" UPDATE [tblATEZ_NCTS] SET " & str & " WHERE Id=@Id ")

        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
@@ -135,7 +135,7 @@ Public Class cATEZ_NCTS_DATA
            values = values.Substring(0, values.Length - 1) 'wg. ','
            Return (" INSERT INTO tblATEZ_NCTS  (" & 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
@@ -166,10 +166,45 @@ Public Class cATEZ_NCTS_DATA
                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.MethodInfo.GetCurrentMethod.Name)
+
        End Try
    End Sub

+
+    Public Shared Function LOAD_ByBezugsNr(VERAG_LRN) As cATEZ_NCTS_DATA
+        Try
+            Dim ATEZ As New cATEZ_NCTS_DATA
+            ATEZ.hasEntry = False
+            Using conn As SqlConnection = SQL.GetNewOpenConnectionFMZOLL()
+                Using cmd As New SqlCommand("SELECT * FROM tblATEZ_NCTS WHERE VERAG_LRN=@VERAG_LRN  ", conn)
+                    cmd.Parameters.AddWithValue("@VERAG_LRN", VERAG_LRN)
+                    Dim dr = cmd.ExecuteReader()
+
+                    If dr.Read Then
+                        For Each li In ATEZ.getParameterList()
+                            Dim propInfo As PropertyInfo = ATEZ.GetType.GetProperty(li.Scalarvariable)
+
+                            If dr.Item(li.Text) Is DBNull.Value Then
+                                propInfo.SetValue(ATEZ, Nothing)
+                            Else
+                                propInfo.SetValue(ATEZ, dr.Item(li.Text))
+                            End If
+
+                        Next
+                        ATEZ.hasEntry = True
+
+                    End If
+                    dr.Close()
+                End Using
+            End Using
+            Return ATEZ
+        Catch ex As Exception
+            VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
+        End Try
+        Return Nothing
+    End Function
+
 End Class


@@ -233,7 +268,7 @@ Public Class cATEZ_NCTS_TransitCustomsOffice
            Return (" UPDATE [tblATEZ_NCTS_TransitCustomsOffice] SET " & str & " WHERE Id=@Id ")

        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
@@ -254,7 +289,7 @@ Public Class cATEZ_NCTS_TransitCustomsOffice
            values = values.Substring(0, values.Length - 1) 'wg. ','
            Return (" INSERT INTO tblATEZ_NCTS_TransitCustomsOffice  (" & 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
@@ -284,7 +319,7 @@ Public Class cATEZ_NCTS_TransitCustomsOffice
                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.MethodInfo.GetCurrentMethod.Name)
        End Try
    End Sub

@@ -359,7 +394,7 @@ Public Class cATEZ_NCTS_Routen
            Return (" UPDATE [tblATEZ_NCTS_Routen] SET " & str & " WHERE Id=@Id ")

        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
@@ -380,7 +415,7 @@ Public Class cATEZ_NCTS_Routen
            values = values.Substring(0, values.Length - 1) 'wg. ','
            Return (" INSERT INTO tblATEZ_NCTS_Routen  (" & 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
@@ -410,7 +445,7 @@ Public Class cATEZ_NCTS_Routen
                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.MethodInfo.GetCurrentMethod.Name)
        End Try
    End Sub