SDL Jetzt erst recht!

SDL/kassenbuch/usrcntlBelegLeistungEintragPosition.vb

@@ -0,0 +1,62 @@
+Imports System.Globalization
+
+Public Class usrcntlBelegLeistungEintragPosition
+    Public Event INCREASE(c As Control)
+    Public Event REDUCE(c As Control)
+    Public loc As New Point
+
+
+    Public Art = "E"
+
+    Public PreislistenNr = -1
+    Public PreislistenPos = -1
+    Public LeistungsNr = -1
+    Public Anzahlmultiplikator As Integer = 0
+
+    Public LeistungsBez = ""
+    Public Anzahl = 0
+    Public Leistungsbeschreibung = ""
+    Public Abfertigungsart = -1
+    Public Preis As Double = 0
+    Public FixPreis As Boolean = False
+
+    Private Sub usrcntlBelegLeistungEintragPosition_BackColorChanged(sender As Object, e As EventArgs) Handles Me.BackColorChanged
+        lblInfo.BackColor = Me.BackColor
+    End Sub
+
+    Private Sub usrcntlBelegLeistungEintragPosition_Load(sender As Object, e As EventArgs) Handles Me.Load
+        '   lblBezeichnung.Text = LeistungsBez
+        '    lblInfo.Text = Leistungsbeschreibung
+        lblLeistungsbezeichnung.Text = Leistungsbeschreibung
+        If Preis <> 0 Then
+            txtPreis.Text = CDbl(Preis).ToString("F", CultureInfo.InvariantCulture)
+        Else
+            txtPreis.Text = "-"
+        End If
+        lblInfo.ContextMenu = New ContextMenu
+
+        If Art = "A" Then
+            ' pnl.BackColor = Color.IndianRed
+            Label3.ForeColor = Color.Red
+            txtPreis.ForeColor = Color.Red
+            ForeColor = Color.Red
+            txtAnzahl.ForeColor = Color.Red
+            ' lblInfo.ForeColor = Color.Red
+            lblLeistungsbezeichnung.ForeColor = Color.Red
+        End If
+
+    End Sub
+
+
+
+    Private Sub Label3_Click(sender As Object, e As MouseEventArgs) Handles Label3.MouseDown, txtPreis.MouseDown, Me.MouseDown, txtAnzahl.MouseDown, lblInfo.MouseDown, lblLeistungsbezeichnung.MouseDown, pnl.MouseDown
+        If e.Button = Windows.Forms.MouseButtons.Left Then
+            RaiseEvent INCREASE(Me)
+            loc = New Point(e.X, e.Y)
+        ElseIf e.Button = Windows.Forms.MouseButtons.Right Then
+            RaiseEvent REDUCE(Me)
+        End If
+    End Sub
+
+
+End Class