Gestellungen, etc.

DAKOSY_Worker/cDakosy_Stammreferenzen.vb

@@ -13,6 +13,7 @@ Public Class cDakosy_Stammreferenzen
     Property dySr_dy_Niederlassung As Object = Nothing
     Property dySr_dy_Standard As Object = Nothing
     Property dyStr_KdNr As Object = Nothing
+    Property dySr_WarenortID As Object = Nothing
 
 
     Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL
@@ -21,11 +22,16 @@ Public Class cDakosy_Stammreferenzen
 
     End Sub
 
-    Sub New(dySr_Id)
+    Sub New(dySr_Id As Integer)
         Me.dySr_Id = dySr_Id
         LOAD()
     End Sub
 
+    Sub New(dySr_Bez As String)
+        Me.dySr_Bezeichnung = dySr_Bez
+        LOADBEZ()
+    End Sub
+
     Public Function getParameterList() As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable)
         Dim list As New List(Of VERAG_PROG_ALLGEMEIN.SQLVariable)
         list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("dySr_Id", dySr_Id, , True, True))
@@ -42,6 +48,7 @@ Public Class cDakosy_Stammreferenzen
         list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("dySr_dy_Niederlassung", dySr_dy_Niederlassung))
         list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("dySr_dy_Standard", dySr_dy_Standard))
         list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("dyStr_KdNr", dyStr_KdNr))
+        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("dySr_WarenortID", dySr_WarenortID))
         Return list
     End Function
 
@@ -90,6 +97,33 @@ Public Class cDakosy_Stammreferenzen
         End Try
     End Sub
 
+    Public Sub LOADBEZ()
+        Try
+            Using conn As SqlConnection = SQL.GetNewOpenConnectionFMZOLL()
+                Using cmd As New SqlCommand("SELECT * FROM tblDakosy_Stammreferenzen WHERE dySr_Bezeichnung=@dySr_Bezeichnung  ", conn)
+                    cmd.Parameters.AddWithValue("@dySr_Bezeichnung", dySr_Bezeichnung)
+                    Dim dr = cmd.ExecuteReader()
+                    If dr.Read Then
+                        For Each l In getParameterList()
+                            Dim propInfo As PropertyInfo = Me.GetType.GetProperty(l.Scalarvariable)
+
+                            If dr.Item(l.Text) Is DBNull.Value Then
+                                propInfo.SetValue(Me, Nothing)
+                            Else
+                                propInfo.SetValue(Me, dr.Item(l.Text))
+                            End If
+
+                        Next
+
+                    End If
+                    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
+    End Sub
+
 
     Public Function getUpdateCmd() As String
         Try