Projektdateien hinzufügen.

UID/usrcntlLeistungen.vb

@@ -0,0 +1,22 @@
+Public Class usrcntlLeistungen
+    Public LEISTUNGS_NR As Integer
+    Public LEISTUNGS_IdDispo As Integer
+    Public LEISTUNGS_BEZ As String
+    Public Steuerpflichtig As Boolean = False
+
+    Sub New()
+        InitializeComponent()
+    End Sub
+    Sub New(nr, bez, steuer, id)
+        InitializeComponent()
+        LEISTUNGS_NR = nr
+        LEISTUNGS_BEZ = bez
+        Steuerpflichtig = steuer
+        LEISTUNGS_IdDispo = id
+    End Sub
+
+    Private Sub usrcntlLeistungen_Load(sender As Object, e As EventArgs) Handles Me.Load
+        lblLeistungsNr.Text = LEISTUNGS_NR
+        If lblLeistung.Text = "" Then lblLeistung.Text = LEISTUNGS_BEZ
+    End Sub
+End Class