Public Class frmRechnungskopien
    Dim rechnungen As New DataTable
    Dim db As New clsDB
    Private Sub BeendenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles BeendenToolStripMenuItem.Click
        Me.Close()
    End Sub

    Private Sub tsbtnquit_Click(sender As Object, e As EventArgs) Handles tsbtnquit.Click
        Me.BeendenToolStripMenuItem_Click(sender, e)
    End Sub

    Private Sub ToolStripButton6_Click(sender As Object, e As EventArgs) Handles ToolStripButton6.Click
        Dim f As New frmPrinterselect
        f.MdiParent = Me.MdiParent
        f.Show()
    End Sub

    Private Sub ToolStripButton5_Click(sender As Object, e As EventArgs) Handles ToolStripButton5.Click
        Try
            For Each r As DataRow In Me.rechnungen.Rows
                Globals.Rg_Funktionen.Rechnungskopie(r("Behandlungsnummer"), False)
            Next
        Catch
        End Try

    End Sub



    Private Sub tstxtRGNummer_KeyDown(sender As Object, e As KeyEventArgs) Handles tstxtRGNummer.KeyDown
        If e.KeyCode = Keys.Enter Then
            Rechnung_Suchen(1)
        End If
    End Sub

    Sub Rechnung_Suchen(ByVal Typ As Integer)
        Select Case Typ
            Case 1
                db.Get_Tabledata("Rechnungen", "", "Select nrfaktura as Nr, dbo.get_name(nrpatient) as Patient, dbo.get_name(nrdebitor) as Debitor, Total, nrbehandlung as Behandlungsnummer from faktura where status<>9 and aktiv = 1 and nrfaktura='" + Me.tstxtRGNummer.Text + "'")
            Case 2
                db.Get_Tabledata("Rechnungen", "", "Select nrfaktura as Nr, dbo.get_name(nrpatient) as Patient, dbo.get_name(nrdebitor) as Debitor, Total, nrbehandlung as Behandlungsnummer from faktura where status<>9 and aktiv = 1 and datum='" + Me.tstxtDatum.Text + "'")
        End Select
        If db.dsDaten.Tables(0).Rows.Count < 1 Then
            MsgBox("Keine Rechnung gefunden.", vbOK + vbExclamation)
        End If
        If Me.rechnungen.Rows.Count < 1 Then
            Me.rechnungen = db.dsDaten.Tables(0).Copy
        Else
            For Each r As DataRow In db.dsDaten.Tables(0).Rows
                Dim rr As DataRow = rechnungen.NewRow
                For Each c As DataColumn In db.dsDaten.Tables(0).Columns
                    rr.Item(c.ColumnName) = r.Item(c.ColumnName)
                Next
                rechnungen.Rows.Add(rr)
            Next
        End If

        Me.C1Rechnungen.DataSource = Nothing
        Me.C1Rechnungen.DataSource = rechnungen
        Me.C1Rechnungen.DataMember = rechnungen.TableName
        For i As Integer = 0 To Me.C1Rechnungen.Splits(0).DisplayColumns.Count - 1
            Me.C1Rechnungen.Splits(0).DisplayColumns(i).AutoSize()
        Next i

    End Sub

    Private Sub VorschauToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles VorschauToolStripMenuItem.Click
        Try
            Dim s As String = Me.C1Rechnungen.Columns("Behandlungsnummer").Value
            Globals.Rg_Funktionen.Rechnungskopie(s, True)
        Catch ex As Exception

        End Try
    End Sub

    Private Sub EintragLöschenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles EintragLöschenToolStripMenuItem.Click
        C1Rechnungen.Delete()
        C1Rechnungen.UpdateData()
    End Sub

    Private Sub ToolStripButton1_Click(sender As Object, e As EventArgs) Handles ToolStripButton1.Click

    End Sub

    Private Sub ToolStripButton3_Click(sender As Object, e As EventArgs) Handles ToolStripButton3.Click
        Try
            Dim f As New frmcalendar
            f.ShowDialog()
            Me.tstxtDatum.Text = f.dt.ToShortDateString
            Rechnung_Suchen(2)
        Catch
        End Try
    End Sub

    Private Sub ToolStripButton4_Click(sender As Object, e As EventArgs) Handles ToolStripButton4.Click
        rechnungen.Rows.Clear()
        C1Rechnungen.DataSource = Nothing
        Me.tstxtDatum.Text = ""
        Me.tstxtRGNummer.Text = ""

    End Sub

    Private Sub ContextMenuStrip1_Opening(sender As Object, e As System.ComponentModel.CancelEventArgs) Handles ContextMenuStrip1.Opening

    End Sub

    Private Sub ToolStripMPDFKopie_Click(sender As Object, e As EventArgs) Handles ToolStripMPDFKopie.Click
        Try
            Globals.Rg_Funktionen.Rechnungskopie(Me.C1Rechnungen.Columns("Behandlungsnummer").Value, False, True)
        Catch
        End Try

    End Sub
End Class