DHF Artikelstamm

VERAG_PROG_ALLGEMEIN/Classes/cZollArtikel.vb

@@ -24,6 +24,7 @@ Public Class cZollArtikel
     Property zollArt_Besondere_Maßeinheit_Qualifikator As Object = Nothing
     Property zollArt_Gewicht As Object = Nothing
     Property zollArt_Menge As Object = Nothing
+    Property zollArt_Ursprungsland As Object = Nothing
     Property Erfassungsdatum As Object = Nothing
     Property Aenderungsdatum As Object = Nothing
     Property Sachbearbeiter As Object = Nothing
@@ -67,6 +68,7 @@ Public Class cZollArtikel
         list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("zollArt_Besondere_Maßeinheit_Qualifikator", zollArt_Besondere_Maßeinheit_Qualifikator))
         list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("zollArt_Gewicht", zollArt_Gewicht))
         list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("zollArt_Menge", zollArt_Menge))
+        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("zollArt_Ursprungsland", zollArt_Ursprungsland))
         list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Erfassungsdatum", Erfassungsdatum))
         list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Aenderungsdatum", Aenderungsdatum))
         list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Sachbearbeiter", Sachbearbeiter))
@@ -81,7 +83,7 @@ Public Class cZollArtikel
     Public Function SAVE(Optional errHinweis = "") As Boolean
         Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList()
 
-        Dim sqlstr = " BEGIN TRAN IF EXISTS(SELECT * FROM tblZollArtikel  WHERE zollArt_id=@zollArt_id) " &
+        Dim sqlstr = " BEGIN TRAN If EXISTS(Select * FROM tblZollArtikel  WHERE zollArt_id=@zollArt_id) " &
                        " BEGIN " & getUpdateCmd() & " End " &
                        " Else " &
                        " BEGIN " & getInsertCmd() & " End " &
@@ -170,4 +172,32 @@ Public Class cZollArtikel
         Dim sqlstr = " DELETE FROM tblZollArtikel  WHERE zollArt_id=" & id
         Return SQL.doSQL(sqlstr, "FMZOLL")
     End Function
+
+    Public Shared Function GetListByKundenNr(kdnr As Integer) As List(Of cZollArtikel)
+        Dim result As New List(Of cZollArtikel)
+        Dim SQL As New SQL
+
+        Try
+            Using conn As SqlConnection = SQL.GetNewOpenConnectionFMZOLL()
+                Using cmd As New SqlCommand("SELECT * FROM tblZollArtikel WHERE KundenNr = @kdnr", conn)
+                    cmd.Parameters.AddWithValue("@kdnr", kdnr)
+                    Using dr = cmd.ExecuteReader()
+                        While dr.Read()
+                            Dim item As New cZollArtikel()
+                            For Each prop In GetType(cZollArtikel).GetProperties()
+                                prop.SetValue(item, dr(prop.Name))
+                            Next
+                            item.hasEntry = True
+                            result.Add(item)
+                        End While
+                    End Using
+                End Using
+            End Using
+        Catch ex As Exception
+            MsgBox("Fehler in der Funktion '" & MethodBase.GetCurrentMethod.Name & "'" & vbNewLine &
+                   ex.Message & vbNewLine & ex.StackTrace)
+        End Try
+
+        Return result
+    End Function
 End Class