Anbindung AZEZ-KI API, etc.

VERAG_PROG_ALLGEMEIN/Classes/USTV/cUStVLeistender.vb

@@ -17,9 +17,17 @@ Public Class cUStVLeistender
 
         Dim SQL As New SQL
 
-    Sub New(UStV_Leistender As String)
-        Me.UStV_Leistender = UStV_Leistender
-        LOAD()
+    Sub New(UStV_Leistender As String, Optional searchbyUID As Boolean = False)
+        If Not searchbyUID Then
+            Me.UStV_Leistender = UStV_Leistender
+            LOAD()
+
+        Else
+            Me.UstV_Leistender_UstNr = UStV_Leistender
+            LOADBYUID()
+
+        End If
+
     End Sub
 
     Sub New(Id As Integer)
@@ -147,6 +155,35 @@ Public Class cUStVLeistender
         End Try
     End Sub
 
+    Public Sub LOADByUID()
+        Try
+            hasEntry = False
+            Using conn As SqlConnection = SQL.GetNewOpenConnectionFMZOLL()
+                Using cmd As New SqlCommand("SELECT * FROM tblUStVLeistender WHERE UstV_Leistender_UstNr=@UstV_Leistender_UstNr ", conn)
+                    cmd.Parameters.AddWithValue("@UstV_Leistender_UstNr", UstV_Leistender_UstNr)
+
+                    Dim dr = cmd.ExecuteReader()
+                    If dr.Read Then
+                        For Each li In getParameterList()
+                            Dim propInfo As PropertyInfo = Me.GetType.GetProperty(li.Scalarvariable)
+
+                            If dr.Item(li.Text) Is DBNull.Value Then
+                                propInfo.SetValue(Me, Nothing)
+                            Else
+                                propInfo.SetValue(Me, dr.Item(li.Text))
+                            End If
+
+                        Next
+                        hasEntry = True
+                    End If
+                    dr.Close()
+                End Using
+            End Using
+        Catch ex As Exception
+            VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
+        End Try
+    End Sub
+
     Public Sub LOADByLand(Land As String)
         Try
             hasEntry = False