Syska (MDM-Import), uta, etc.

VERAG_PROG_ALLGEMEIN/Classes/cUTA.vb

@@ -953,6 +953,16 @@ Public Class cUTA
         Sub New()
         End Sub
 
+        Sub New(RechnungsNr, KundenNr, Datum, DocumentTyp)
+            Me.RechnungsNr = RechnungsNr
+            Me.KundenNr = KundenNr
+            Me.Datum = Datum
+            Me.DocumentTyp = DocumentTyp
+            LOAD(RechnungsNr, KundenNr, Datum, DocumentTyp)
+
+        End Sub
+
+
         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("Id", Id,, True))
@@ -978,6 +988,38 @@ Public Class cUTA
             Return SQL.doSQLVarList(sqlstr, "FMZOLL", , list)
         End Function
 
+        Public Sub LOAD(RechnungsNr As String, KundenNr As Integer, Datum As Date, DocumentTyp As String)
+            Try
+                hasEntry = False
+                Using conn As SqlConnection = SQL.GetNewOpenConnectionFMZOLL()
+                    Using cmd As New SqlCommand("Select * FROM tblUTADocuments WHERE Datum=@Datum AND KundenNr = @KundenNr AND RechnungsNr=@RechnungsNr AND DocumentTyp = @DocumentTyp ", conn)
+                        cmd.Parameters.AddWithValue("@Datum", Datum)
+                        cmd.Parameters.AddWithValue("@KundenNr", KundenNr)
+                        cmd.Parameters.AddWithValue("@RechnungsNr", RechnungsNr)
+                        cmd.Parameters.AddWithValue("@DocumentTyp", DocumentTyp)
+
+                        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.MethodBase.GetCurrentMethod.Name)
+            End Try
+        End Sub
+
         Public Sub LOAD()
             Try
                 hasEntry = False