RMC, Adressen, USTV, Messenger

VERAG_PROG_ALLGEMEIN/Classes/cAdressen.vb

@@ -58,6 +58,9 @@ Public Class cAdressen
         End If
     End Sub
 
+    Sub New(UIDNr As String, woellKdNr As Integer)
+        LOADUIDNr(UIDNr, woellKdNr)
+    End Sub
     Public Function FullName() As String
         Return (If(Name_1, "") & " " & If(Name_2, "")).ToString.Replace("  ", " ")
     End Function
@@ -297,6 +300,42 @@ Public Class cAdressen
         '  Return Nothing
     End Sub
 
+    Public Sub LOADUIDNr(UIDNr As String, woelflKdNr As Integer)
+
+        Dim test = ""
+
+        Try
+            Using conn As SqlConnection = SQL.GetNewOpenConnectionFMZOLL(False)
+                Using cmd As New SqlCommand("Select TOP(1) * FROM Adressen WHERE UstIdKz + UstIdNr='" & UIDNr & "' AND WölflKundenNr = " & woelflKdNr, conn)
+
+                    Dim dr = cmd.ExecuteReader()
+                    If dr.Read Then
+                        For Each li In getParameterList()
+
+                            Dim propInfo As PropertyInfo = Me.GetType.GetProperty(li.Scalarvariable)
+
+
+                            ' Try
+                            test = li.Text
+                            If dr.Item(li.Text) Is DBNull.Value Then
+                                propInfo.SetValue(Me, Nothing)
+                            Else
+                                propInfo.SetValue(Me, dr.Item(li.Text))
+                            End If
+
+                        Next
+                        Me.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
+
 
 
 
@@ -350,7 +389,7 @@ Public Class cAdressen
     End Function
 
     Public Shared Function getNewAdressenNr752000() As Integer
-        Return (New SQL).getValueTxtBySql("SELECT isnull(MAX (Adressennr),752000)+1  FROM [Adressen]    where [AdressenNr]>752000 and [AdressenNr]<800000", "FMZOLL")
+        Return (New SQL).getValueTxtBySql("SELECT isnull(MAX (Adressennr),752000)+1  FROM [Adressen] where [AdressenNr]>752000 and [AdressenNr]<800000", "FMZOLL")
     End Function
 
     Public Function getInsertCmd() As String