neu

VERAG_PROG_ALLGEMEIN/Classes/cSDL.vb

@@ -244,6 +244,77 @@ Public Class cSDL
         Return ""
     End Function
 
+    Public Shared Function GET_LIST_WEB(KundenNr As Integer, Optional SDLNr As Integer = -1) As List(Of cSDL)
+        Dim LIST As New List(Of cSDL)
+        Try
+            Using conn As SqlConnection = SQL.GetNewOpenConnectionSDL()
 
+                Dim sqlWHERE = ""
+                If SDLNr > 0 Then sqlWHERE &= " AND SDLNr =@SDLNr "
 
+                Using cmd As New SqlCommand("SELECT * FROM SDL WHERE KundenNr=@KundenNr " & sqlWHERE & " ORDER BY SDLNr,KfzKennzeichen ", conn)
+                    cmd.Parameters.AddWithValue("@KundenNr", KundenNr)
+                    cmd.Parameters.AddWithValue("@SDLNr", SDLNr)
+
+                    Dim dr = cmd.ExecuteReader()
+                    While dr.Read
+                        Dim SDL As New cSDL()
+                        For Each li In SDL.getParameterList()
+                            Dim propInfo As PropertyInfo = SDL.GetType.GetProperty(li.Scalarvariable)
+
+                            If dr.Item(li.Text) Is DBNull.Value Then
+                                propInfo.SetValue(SDL, Nothing)
+                            Else
+                                propInfo.SetValue(SDL, dr.Item(li.Text))
+                            End If
+                        Next
+
+                        LIST.Add(SDL)
+                        '  If loadPos Then LOAD_POSITIONEN()
+                    End While
+                    dr.Close()
+                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)
+        End Try
+        Return LIST
+    End Function
+
+    Public Shared Function GET_LIST_WEB_LKW(KundenNr As Integer, Optional KfzKennzeichen As String = "") As List(Of cSDL)
+        Dim LIST As New List(Of cSDL)
+        Try
+            Using conn As SqlConnection = SQL.GetNewOpenConnectionSDL()
+
+                Dim sqlWHERE = ""
+                If KfzKennzeichen <> "" Then sqlWHERE &= " AND KfzKennzeichen =@KfzKennzeichen "
+
+                Using cmd As New SqlCommand("SELECT * FROM SDL WHERE KundenNr=@KundenNr " & sqlWHERE & " ORDER BY SDLNr ", conn)
+                    cmd.Parameters.AddWithValue("@KundenNr", KundenNr)
+                    cmd.Parameters.AddWithValue("@KfzKennzeichen", KfzKennzeichen)
+
+                    Dim dr = cmd.ExecuteReader()
+                    While dr.Read
+                        Dim SDL As New cSDL()
+                        For Each li In SDL.getParameterList()
+                            Dim propInfo As PropertyInfo = SDL.GetType.GetProperty(li.Scalarvariable)
+
+                            If dr.Item(li.Text) Is DBNull.Value Then
+                                propInfo.SetValue(SDL, Nothing)
+                            Else
+                                propInfo.SetValue(SDL, dr.Item(li.Text))
+                            End If
+                        Next
+
+                        LIST.Add(SDL)
+                        '  If loadPos Then LOAD_POSITIONEN()
+                    End While
+                    dr.Close()
+                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)
+        End Try
+        Return LIST
+    End Function
 End Class

VERAG_PROG_ALLGEMEIN/Classes/cSDL_LKW.vb

@@ -24,6 +24,9 @@ Public Class cSDL_LKW
 
     Dim SQL As New SQL
 
+    Sub New()
+
+    End Sub
     Sub New(KundenNr, KfzKennzeichen)
         Me.KundenNr = KundenNr
         Me.KfzKennzeichen = KfzKennzeichen
@@ -135,4 +138,39 @@ Public Class cSDL_LKW
         Return ""
     End Function
 
+
+    Public Shared Function GET_LIST_WEB(KundenNr As Integer) As List(Of cSDL_LKW)
+        Dim LIST As New List(Of cSDL_LKW)
+        Try
+            Using conn As SqlConnection = SQL.GetNewOpenConnectionSDL()
+
+                Using cmd As New SqlCommand("SELECT * FROM LKW WHERE KundenNr=@KundenNr ORDER BY KfzKennzeichen ", conn)
+                    cmd.Parameters.AddWithValue("@KundenNr", KundenNr)
+
+                    Dim dr = cmd.ExecuteReader()
+                    While dr.Read
+                        Dim SDL_LKW As New cSDL_LKW()
+                        For Each li In SDL_LKW.getParameterList()
+                            Dim propInfo As PropertyInfo = SDL_LKW.GetType.GetProperty(li.Scalarvariable)
+
+                            If dr.Item(li.Text) Is DBNull.Value Then
+                                propInfo.SetValue(SDL_LKW, Nothing)
+                            Else
+                                propInfo.SetValue(SDL_LKW, dr.Item(li.Text))
+                            End If
+                        Next
+
+                        LIST.Add(SDL_LKW)
+                        '  If loadPos Then LOAD_POSITIONEN()
+                    End While
+                    dr.Close()
+                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)
+        End Try
+        Return LIST
+    End Function
+
+
 End Class