Public Class frmOffeneBehandlungen
    Dim spalten As New Tabellenspalte
    Dim m_nrpatient As Integer
    Property NrPatient As Integer
        Get
            Return m_nrpatient
        End Get
        Set(value As Integer)
            m_nrpatient = value
        End Set
    End Property

    Dim m_nrzahlung As Integer = 0.1
    Property NrZahlung As Integer
        Get
            Return m_nrzahlung
        End Get
        Set(value As Integer)
            m_nrzahlung = value
        End Set
    End Property

    Dim m_nrbehandlung As Integer = -1
    Property NrBehandlung As Integer
        Get
            Return m_nrbehandlung
        End Get
        Set(value As Integer)
            m_nrbehandlung = value
        End Set
    End Property
    Private Sub tsbtnquit_Click(sender As Object, e As EventArgs) Handles tsbtnquit.Click
        Me.DialogResult = DialogResult.Cancel
        Me.Close()
    End Sub

    Private Sub BeendenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles BeendenToolStripMenuItem.Click
        Me.DialogResult = DialogResult.Cancel
        Me.Close()
    End Sub

    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
        Me.DialogResult = DialogResult.Cancel
        Me.Close()
    End Sub

    Private Sub frmOffeneBehandlungen_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        Dim db As New clsDB
        db.Get_Tabledata("Zahlung", "", db.Get_SQL(30), Me.NrPatient.ToString)
        Me.C1OffeneBehandlungen.DataSource = db.dsDaten.Tables(0)
        Me.C1OffeneBehandlungen.DataMember = db.dsDaten.Tables(0).TableName
        spalten.Spaltentitel_aktualisieren(Me.C1OffeneBehandlungen, "Offene_Behandlungen", db.dsDaten.Tables(0))
    End Sub

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Try
            Me.NrBehandlung = Me.C1OffeneBehandlungen.Columns("nrbehandlung").Value
            Me.DialogResult = DialogResult.OK
            Me.Close()
        Catch ex As Exception

        End Try
    End Sub

    Private Sub C1OffeneBehandlungen_DoubleClick(sender As Object, e As EventArgs) Handles C1OffeneBehandlungen.DoubleClick
        Me.Button1_Click(sender, e)
    End Sub
End Class