Vorkosten, Spedbuch

VERAG_PROG_ALLGEMEIN/Classes/cSpeditionsbuch.vb

@@ -770,6 +770,7 @@ Public Class cVorkosten
     Property LeistungsNr As Integer
     Property LeistungsBez As Object = Nothing
     Property Preis As Double = 0
+    Property Bezeichnung As Object = Nothing
 
     '  Property Abfertigungsbezeichnung As String = "-"
     Dim SQL As New SQL
@@ -786,6 +787,16 @@ Public Class cVorkosten
         Me.Preis = Preis
     End Sub
 
+    Sub New(FilialenNr, AbfertigungsNr, UnterNr, LeistungsNr, LeistungsBez, Preis, Bezeichnung)
+        Me.FilialenNr = FilialenNr
+        Me.AbfertigungsNr = AbfertigungsNr
+        Me.UnterNr = UnterNr
+        Me.LeistungsNr = LeistungsNr
+        Me.LeistungsBez = LeistungsBez
+        Me.Preis = Preis
+        Me.Bezeichnung = Bezeichnung
+    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("FilialenNr", FilialenNr))
@@ -794,6 +805,7 @@ Public Class cVorkosten
         list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("LeistungsNr", LeistungsNr))
         list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("LeistungsBez", LeistungsBez))
         list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Preis", Preis))
+        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Bezeichnung", Bezeichnung))
         Return list
     End Function