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.
114 lines
4.3 KiB
114 lines
4.3 KiB
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 |