23 lines
666 B
VB.net
23 lines
666 B
VB.net
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
|