You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
103 lines
3.8 KiB
103 lines
3.8 KiB
Public Class frmLeistungDetail
|
|
|
|
Dim m_leistungsnummer As Integer
|
|
Property Leistungsnummer As Integer
|
|
Get
|
|
Return m_leistungsnummer
|
|
End Get
|
|
Set(value As Integer)
|
|
m_leistungsnummer = value
|
|
update_data()
|
|
End Set
|
|
End Property
|
|
|
|
Dim m_IsReadOnly As Boolean
|
|
Property IsReadonly As Boolean
|
|
Get
|
|
Return m_IsReadOnly
|
|
End Get
|
|
Set(value As Boolean)
|
|
m_IsReadOnly = value
|
|
If value = True Then grpLeistungsdetails.Enabled = False Else grpLeistungsdetails.Enabled = True
|
|
End Set
|
|
End Property
|
|
|
|
Private Sub frmLeistungDetail_Load(sender As Object, e As EventArgs) Handles MyBase.Load
|
|
If Globals.Applicationtype = ApplicationTypes.Projektabrechnung Then
|
|
Me.lblbehandler.Text = "Erbringer"
|
|
End If
|
|
End Sub
|
|
|
|
Dim db As New clsDB
|
|
Sub Update_data()
|
|
|
|
db.get_leistung(Me.Leistungsnummer)
|
|
Me.lblSSONummer.Text = db.dsDaten.Tables(0).Rows(0).Item("sso_nummer")
|
|
Me.txtBezD.Text = db.dsDaten.Tables(0).Rows(0).Item("bezd")
|
|
Me.dtdatum.Value = db.dsDaten.Tables(0).Rows(0).Item("datum")
|
|
Me.DIMenge.Value = db.dsDaten.Tables(0).Rows(0).Item("menge")
|
|
Me.DIPunkte.Value = db.dsDaten.Tables(0).Rows(0).Item("taxpunkte")
|
|
Me.diwert.Value = db.dsDaten.Tables(0).Rows(0).Item("frankenprotaxpunkt")
|
|
Me.cbboxnrbehandler.SelectedValue = db.dsDaten.Tables(0).Rows(0).Item("nrbehandler")
|
|
If DIPunkte.Value = 0 Then DIPunkte.Enabled = False Else DIPunkte.Enabled = True
|
|
Dim t As Double
|
|
t = db.dsDaten.Tables(0).Rows(0).Item("total")
|
|
Me.txtTotal.Text = t.ToString("N2")
|
|
|
|
End Sub
|
|
|
|
Private Sub DIPunkte_ValueChanged(sender As Object, e As EventArgs) Handles DIPunkte.ValueChanged, DIMenge.ValueChanged, diwert.ValueChanged
|
|
Try
|
|
Dim total As Double
|
|
If DIPunkte.Value > 0 Then
|
|
total = DIPunkte.Value * DIMenge.Value * diwert.Value
|
|
Me.txtTotal.Text = total.ToString("N2")
|
|
Else
|
|
total = DIMenge.Value * diwert.Value
|
|
Me.txtTotal.Text = total.ToString("N2")
|
|
End If
|
|
|
|
Catch
|
|
End Try
|
|
End Sub
|
|
|
|
Private Sub btnSave_Click(sender As Object, e As EventArgs) Handles btnSave.Click
|
|
Me.lblSSONummer.Text = db.dsDaten.Tables(0).Rows(0).Item("sso_nummer")
|
|
db.dsDaten.Tables(0).Rows(0).Item("bezd") = Me.txtBezD.Text
|
|
db.dsDaten.Tables(0).Rows(0).Item("datum") = Me.dtdatum.Value
|
|
db.dsDaten.Tables(0).Rows(0).Item("menge") = Me.DIMenge.Value
|
|
db.dsDaten.Tables(0).Rows(0).Item("taxpunkte") = Me.DIPunkte.Value
|
|
db.dsDaten.Tables(0).Rows(0).Item("frankenprotaxpunkt") = Me.diwert.Value
|
|
db.dsDaten.Tables(0).Rows(0).Item("nrbehandler") = Me.cbboxnrbehandler.SelectedValue
|
|
db.dsDaten.Tables(0).Rows(0).Item("total") = Me.txtTotal.Text
|
|
db.dsDaten.Tables(0).Rows(0).Item("mutiert_am") = Now
|
|
db.Update_Data()
|
|
Me.Close()
|
|
End Sub
|
|
|
|
Private Sub dtdatum_Click(sender As Object, e As EventArgs) Handles dtdatum.Click
|
|
|
|
End Sub
|
|
|
|
Private Sub dtdatum_KeyDown(sender As Object, e As KeyEventArgs) Handles dtdatum.KeyDown
|
|
If e.KeyCode = Keys.Escape Then delete_date(sender)
|
|
If e.KeyCode = Keys.Decimal Then SendKeys.SendWait("{TAB}")
|
|
If e.KeyCode = 190 Then SendKeys.SendWait("{TAB}")
|
|
|
|
End Sub
|
|
Sub delete_date(sender)
|
|
sender.value = Nothing
|
|
End Sub
|
|
|
|
Private Sub txtTotal_Click(sender As Object, e As EventArgs) Handles txtTotal.Click
|
|
|
|
End Sub
|
|
|
|
Private Sub txtTotal_TextChanged(sender As Object, e As EventArgs) Handles txtTotal.TextChanged
|
|
Try
|
|
Me.txtTotal.Text = Globals.SwissCommercialRound(txtTotal.Text).ToString("N2")
|
|
Catch
|
|
End Try
|
|
|
|
End Sub
|
|
End Class |