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