Update 20230215
This commit is contained in:
@@ -1,371 +1,371 @@
|
||||
Imports C1.Win.C1TrueDBGrid
|
||||
|
||||
Public Class Finanzen
|
||||
|
||||
Dim dbz As New clsDB
|
||||
Dim dbk As New clsDB
|
||||
Dim spalten As New Tabellenspalte
|
||||
Dim m_patientnr As Integer
|
||||
Property Patientnr As Integer
|
||||
Get
|
||||
Return m_patientnr
|
||||
End Get
|
||||
Set(value As Integer)
|
||||
m_patientnr = value
|
||||
refresh_konto()
|
||||
Refresh_Zahlungen()
|
||||
End Set
|
||||
End Property
|
||||
|
||||
Dim Zahlungen As New DataTable
|
||||
Dim Offene_Rechnungen As New DataTable
|
||||
Sub Refresh_Zahlungen()
|
||||
Try
|
||||
dbz.Get_Tabledata("Zahlung", "", dbz.Get_SQL(19), Me.Patientnr.ToString)
|
||||
Zahlungen = dbz.dsDaten.Tables(0).Copy
|
||||
Me.C1Zahlungen.DataSource = Nothing
|
||||
Me.C1Zahlungen.DataSource = Zahlungen
|
||||
Me.C1Zahlungen.DataMember = dbz.dsDaten.Tables(0).TableName
|
||||
spalten.Spaltentitel_aktualisieren(Me.C1Zahlungen, "Zahlungen", Zahlungen)
|
||||
dbz.Get_Tabledata("OffeneRechnungen", "", dbz.Get_SQL(22), Me.Patientnr.ToString)
|
||||
Offene_Rechnungen = dbz.dsDaten.Tables(0).Copy
|
||||
Me.C1OffeneRechnungen.DataSource = Nothing
|
||||
Me.C1OffeneRechnungen.DataSource = Offene_Rechnungen
|
||||
Me.C1OffeneRechnungen.DataMember = Offene_Rechnungen.TableName
|
||||
spalten.Spaltentitel_aktualisieren(Me.C1OffeneRechnungen, "Offene_Rechnungen", Offene_Rechnungen)
|
||||
|
||||
Me.Mahndatum1.Text = ""
|
||||
Me.Mahndatum2.Text = ""
|
||||
Me.Mahndatum3.Text = ""
|
||||
Me.Mahnfaelligkeit1.Text = ""
|
||||
Me.Mahnfaelligkeit2.Text = ""
|
||||
Me.Mahnfaelligkeit3.Text = ""
|
||||
Me.Mahngebühr1.Text = ""
|
||||
Me.Mahngebühr2.Text = ""
|
||||
Me.Mahngebühr3.Text = ""
|
||||
|
||||
Me.btnZurücksetzen1.Visible = False
|
||||
Me.btnzurücksetzen2.Visible = False
|
||||
Me.btnzurücksetzen3.Visible = False
|
||||
|
||||
|
||||
Catch ex As Exception
|
||||
MsgBox(ex.Message)
|
||||
End Try
|
||||
|
||||
End Sub
|
||||
Public Sub Refresh_Data()
|
||||
refresh_konto()
|
||||
Refresh_Zahlungen()
|
||||
Get_Mahndaten()
|
||||
End Sub
|
||||
Sub refresh_konto()
|
||||
dbk.Get_Tabledata("Konto", "where aktiv=1 order by reihenfolge")
|
||||
Me.cbboxKonto.DataSource = dbk.dsDaten.Tables(0)
|
||||
Me.cbboxKonto.Displaymember = "Konto"
|
||||
Me.cbboxKonto.Valuemember = "nrkonto"
|
||||
End Sub
|
||||
|
||||
Private Sub txtRGNummer_TextChanged(sender As Object, e As EventArgs) Handles txtRGNummer.TextChanged
|
||||
If Me.txtRGNummer.Text <> "" Then
|
||||
Me.chkVorauszahlung.Checked = False
|
||||
Me.chkVorauszahlung.Enabled = False
|
||||
Else
|
||||
Me.chkVorauszahlung.Enabled = True
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Sub btnBuchen_Click(sender As Object, e As EventArgs) Handles btnBuchen.Click
|
||||
Dim db5 As New clsDB
|
||||
Dim vz As String = ""
|
||||
Dim Storno As String = ""
|
||||
Dim Debitor As Integer = 0
|
||||
If chkVorauszahlung.Checked = False And Me.txtRGNummer.Text = "" Then
|
||||
MsgBox("Zahlung kann nicht verbucht werden. Entweder als Vorauszahlung oder mit gültiger Rechnungsnummer.", MsgBoxStyle.Exclamation)
|
||||
Exit Sub
|
||||
End If
|
||||
Dim newkey As Integer = dbz.Get_DBKey("Zahlung")
|
||||
dbz.Get_Tabledata("Zahlung", "where nrzahlung=0")
|
||||
Dim r As DataRow = dbz.dsDaten.Tables(0).NewRow
|
||||
r("nrzahlung") = newkey
|
||||
If Me.chkVorauszahlung.Checked = True Then r("nrfaktura") = 0 Else r("nrfaktura") = txtRGNummer.Text
|
||||
r("vorauszahlung") = chkVorauszahlung.Checked
|
||||
r("mandant") = 1
|
||||
If r("nrfaktura") <> 0 Then
|
||||
Try
|
||||
db5.Get_Tabledata("Fakt", "", "Select * from faktura where nrfaktura='" + r("nrfaktura").ToString + "'")
|
||||
Debitor = db5.dsDaten.Tables(0).Rows(0).Item("nrdebitor")
|
||||
Catch
|
||||
Debitor = 0
|
||||
End Try
|
||||
|
||||
End If
|
||||
If Me.Patientnr <> Debitor And Debitor > 0 Then
|
||||
r("nrdebotir") = Debitor
|
||||
Else
|
||||
r("nrdebitor") = Me.Patientnr
|
||||
End If
|
||||
r("nrdebitor") = Me.Patientnr
|
||||
r("betrag") = Me.diBetrag.Value
|
||||
r("nrkonto") = cbboxKonto.SelectedValue
|
||||
r("valuta") = Me.dtdatum.Value
|
||||
r("nrbehandlung") = 0
|
||||
r("status") = 0
|
||||
If chkVorauszahlung.Checked Then
|
||||
r("status") = 1
|
||||
vz = "J"
|
||||
End If
|
||||
r("statusdatum") = Now
|
||||
r("erstellt_am") = Now
|
||||
r("mutiert_am") = Now
|
||||
r("mutierer") = Globals.ActUser
|
||||
r("aktiv") = True
|
||||
dbz.dsDaten.Tables(0).Rows.Add(r)
|
||||
dbz.Update_Data()
|
||||
|
||||
db5.Insert_ZJournal(r("nrfaktura"), r("nrdebitor"), db5.Get_Datavalue("Select dbo.get_name(" + r.Item("nrdebitor").ToString + ")"), r.Item("Betrag"), db5.Get_Datavalue("Select Konto from konto where nrkonto=" + r.Item("nrkonto").ToString), vz, "")
|
||||
db5.Exec_SQL("Update debitor set mutiert_am=getdate(),betrag=betrag-" + r("betrag").ToString + "where nrfaktura=" + r("nrfaktura").ToString)
|
||||
Me.Refresh_Zahlungen()
|
||||
If vz = "J" Then
|
||||
If MsgBox("Vorauszahlung einer Behandlung zuweisen?", vbYesNo + vbQuestion) Then
|
||||
VorauszahlungAnBehandlungZuweisenToolStripMenuItem_Click(sender, e)
|
||||
End If
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Sub ToolStrip1_ItemClicked(sender As Object, e As ToolStripItemClickedEventArgs) Handles ToolStrip1.ItemClicked
|
||||
|
||||
End Sub
|
||||
|
||||
Private Sub C1OffeneRechnungen_RowColChange(sender As Object, e As RowColChangeEventArgs) Handles C1OffeneRechnungen.RowColChange
|
||||
Try
|
||||
Me.dtdatum.Value = Now
|
||||
Me.txtRGNummer.Text = Me.C1OffeneRechnungen.Columns("nrfaktura").Value
|
||||
Me.diBetrag.Value = Me.C1OffeneRechnungen.Columns("Betrag").Value
|
||||
get_mahndaten
|
||||
Catch ex As Exception
|
||||
|
||||
End Try
|
||||
End Sub
|
||||
Sub Get_Mahndaten()
|
||||
Me.Mahndatum1.Text = ""
|
||||
Me.Mahndatum2.Text = ""
|
||||
Me.Mahndatum3.Text = ""
|
||||
Me.Mahnfaelligkeit1.Text = ""
|
||||
Me.Mahnfaelligkeit2.Text = ""
|
||||
Me.Mahnfaelligkeit3.Text = ""
|
||||
Me.Mahngebühr1.Text = ""
|
||||
Me.Mahngebühr2.Text = ""
|
||||
Me.Mahngebühr3.Text = ""
|
||||
Me.btnZurücksetzen1.Visible = False
|
||||
Me.btnzurücksetzen2.Visible = False
|
||||
Me.btnzurücksetzen3.Visible = False
|
||||
Dim dd As Date
|
||||
Try
|
||||
Me.Mahndatum1.Text = ShortDate(Me.C1OffeneRechnungen.Columns("Mahndatum1").Value.ToString)
|
||||
Me.Mahndatum2.Text = ShortDate(Me.C1OffeneRechnungen.Columns("Mahndatum2").Value.ToString)
|
||||
Me.Mahndatum3.Text = ShortDate(Me.C1OffeneRechnungen.Columns("Mahndatum3").Value.ToString)
|
||||
|
||||
Me.Mahnfaelligkeit1.Text = ShortDate(Me.C1OffeneRechnungen.Columns("mahnfaelligkeit1").Value.ToString)
|
||||
Me.Mahnfaelligkeit2.Text = ShortDate(Me.C1OffeneRechnungen.Columns("mahnfaelligkeit2").Value.ToString)
|
||||
Me.Mahnfaelligkeit3.Text = ShortDate(Me.C1OffeneRechnungen.Columns("mahnfaelligkeit3").Value.ToString)
|
||||
|
||||
Me.Mahngebühr1.Text = Me.C1OffeneRechnungen.Columns("mahngebuehr1").Value.ToString
|
||||
Me.Mahngebühr2.Text = Me.C1OffeneRechnungen.Columns("mahngebuehr2").Value.ToString
|
||||
Me.Mahngebühr3.Text = Me.C1OffeneRechnungen.Columns("mahngebuehr3").Value.ToString
|
||||
|
||||
If Me.Mahndatum3.Text <> "" Then
|
||||
Me.btnzurücksetzen3.Visible = True
|
||||
Else
|
||||
If Me.Mahndatum2.Text <> "" Then
|
||||
Me.btnzurücksetzen2.Visible = True
|
||||
Else
|
||||
If Me.Mahndatum1.Text <> "" Then
|
||||
Me.btnZurücksetzen1.Visible = True
|
||||
End If
|
||||
End If
|
||||
End If
|
||||
|
||||
Catch
|
||||
End Try
|
||||
|
||||
End Sub
|
||||
|
||||
Function ShortDate(ByVal dd As String) As String
|
||||
Try
|
||||
Dim d As Date
|
||||
d = dd
|
||||
Return d
|
||||
Catch
|
||||
Return ""
|
||||
End Try
|
||||
|
||||
End Function
|
||||
|
||||
|
||||
Private Sub ZahlungBuchenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles ZahlungBuchenToolStripMenuItem.Click
|
||||
btnBuchen_Click(sender, e)
|
||||
End Sub
|
||||
|
||||
Private Sub ZahlungStornierenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles ZahlungStornierenToolStripMenuItem.Click
|
||||
If MsgBox("Zahlung stornieren?", vbYesNo + vbQuestion) <> vbYes Then Exit Sub
|
||||
Dim fakt As New clsFakturierung
|
||||
fakt.Storno_Zahlung(Me.C1Zahlungen.Columns("nrzahlung").Value)
|
||||
Me.Refresh_Zahlungen()
|
||||
End Sub
|
||||
|
||||
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
|
||||
Me.txtRGNummer.Text = ""
|
||||
End Sub
|
||||
|
||||
Private Sub ContextMenuStrip2_CursorChanged(sender As Object, e As EventArgs) Handles ContextMenuStrip2.Opening
|
||||
If Me.C1Zahlungen.Columns("Zahlungsstatus").Value = "Vorauszahlung" Then
|
||||
If Me.C1Zahlungen.Columns("nrbehandlung").Value = 0 Then
|
||||
|
||||
VorauszahlungAnBehandlungZuweisenToolStripMenuItem.Enabled = True
|
||||
VorauszahlungVonBehandlungLösenToolStripMenuItem.Enabled = False
|
||||
|
||||
Exit Sub
|
||||
Else
|
||||
VorauszahlungAnBehandlungZuweisenToolStripMenuItem.Enabled = False
|
||||
VorauszahlungVonBehandlungLösenToolStripMenuItem.Enabled = True
|
||||
Exit Sub
|
||||
End If
|
||||
Else
|
||||
If Me.C1Zahlungen.Columns("Status").Value = 9 Then
|
||||
ZahlungStornierenToolStripMenuItem.Enabled = False
|
||||
Else
|
||||
ZahlungStornierenToolStripMenuItem.Enabled = True
|
||||
End If
|
||||
VorauszahlungAnBehandlungZuweisenToolStripMenuItem.Enabled = False
|
||||
VorauszahlungVonBehandlungLösenToolStripMenuItem.Enabled = False
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Sub VorauszahlungAnBehandlungZuweisenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles VorauszahlungAnBehandlungZuweisenToolStripMenuItem.Click
|
||||
Dim f As New frmOffeneBehandlungen
|
||||
f.NrPatient = Me.Patientnr
|
||||
f.ShowDialog()
|
||||
If f.DialogResult = DialogResult.OK Then
|
||||
Dim db As New clsDB
|
||||
db.Exec_SQL("Update zahlung set nrbehandlung=" + f.NrBehandlung.ToString + ", mutiert_am=getdate() where nrzahlung=" + Me.C1Zahlungen.Columns("nrzahlung").Value.ToString)
|
||||
Me.Refresh_Zahlungen()
|
||||
End If
|
||||
|
||||
End Sub
|
||||
|
||||
Private Sub VorauszahlungVonBehandlungLösenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles VorauszahlungVonBehandlungLösenToolStripMenuItem.Click
|
||||
If MsgBox("Vorauszahlung von Behandlung entfernen?", vbYesNo + vbQuestion) = vbYes Then
|
||||
Dim db As New clsDB
|
||||
db.Exec_SQL("Update zahlung set nrbehandlung=0, mutiert_am=getdate() where nrzahlung=" + Me.C1Zahlungen.Columns("nrzahlung").Value.ToString)
|
||||
Me.Refresh_Zahlungen()
|
||||
|
||||
End If
|
||||
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}")
|
||||
|
||||
End Sub
|
||||
Sub delete_date(sender)
|
||||
sender.value = Nothing
|
||||
End Sub
|
||||
|
||||
Private Sub btnZurücksetzen1_Click(sender As Object, e As EventArgs) Handles btnZurücksetzen1.Click
|
||||
If MsgBox("Mahnstufe 1 zurückseten?", vbYesNo + vbQuestion) = vbYes Then
|
||||
Mahnstufe_Zurücksetzen(1)
|
||||
End If
|
||||
End Sub
|
||||
|
||||
|
||||
Private Sub btnzurücksetzen2_Click(sender As Object, e As EventArgs) Handles btnzurücksetzen2.Click
|
||||
If MsgBox("Mahnstufe 2 zurückseten?", vbYesNo + vbQuestion) = vbYes Then
|
||||
Mahnstufe_Zurücksetzen(2)
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Sub btnzurücksetzen3_Click(sender As Object, e As EventArgs) Handles btnzurücksetzen3.Click
|
||||
If MsgBox("Mahnstufe 3 zurückseten?", vbYesNo + vbQuestion) = vbYes Then
|
||||
Mahnstufe_Zurücksetzen(3)
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Sub Mahnstufe_Zurücksetzen(ByVal typ As Integer)
|
||||
Dim db As New clsDB
|
||||
Dim sql As String
|
||||
|
||||
Select Case typ
|
||||
Case 1
|
||||
sql = "Exec sp_reset_mahnstufe 1," + Me.C1OffeneRechnungen.Columns("nrfaktura").Value.ToString
|
||||
db.Exec_SQL(sql)
|
||||
Case 2
|
||||
sql = "Exec sp_reset_mahnstufe 2," + Me.C1OffeneRechnungen.Columns("nrfaktura").Value.ToString
|
||||
db.Exec_SQL(sql)
|
||||
Case 3
|
||||
sql = "Exec sp_reset_mahnstufe 3," + Me.C1OffeneRechnungen.Columns("nrfaktura").Value.ToString
|
||||
db.Exec_SQL(sql)
|
||||
|
||||
End Select
|
||||
Refresh_Zahlungen()
|
||||
Get_Mahndaten()
|
||||
End Sub
|
||||
|
||||
Private Sub C1Zahlungen_MouseDown(sender As Object, e As MouseEventArgs) Handles C1Zahlungen.MouseDown
|
||||
Me.C1Zahlungen.Bookmark = Me.C1Zahlungen.RowContaining(e.Y)
|
||||
End Sub
|
||||
|
||||
Private Sub C1OffeneRechnungen_MouseDown(sender As Object, e As MouseEventArgs) Handles C1OffeneRechnungen.MouseDown
|
||||
Me.C1OffeneRechnungen.Bookmark = Me.C1OffeneRechnungen.RowContaining(e.Y)
|
||||
End Sub
|
||||
|
||||
Private Sub ContextMenuStrip1_Opening(sender As Object, e As System.ComponentModel.CancelEventArgs) Handles ContextMenuStrip1.Opening
|
||||
Me.ErsteMahnungMenuItem.Visible = False
|
||||
Me.ZweiteMahnungMenuItem.Visible = False
|
||||
Me.LetzteMahnungMenuItem.Visible = False
|
||||
Dim db As New clsDB
|
||||
Try
|
||||
db.Get_Tabledata("Mahnung", "", "Select * from View_Offene_Mahnungen where nrfaktura=" + Me.C1OffeneRechnungen.Columns("nrfaktura").Value.ToString, "", False)
|
||||
If DB.dsDaten.Tables(0).Rows.Count > 0 Then
|
||||
Select Case DB.dsDaten.Tables(0).Rows(0).Item("Mahnstufe")
|
||||
Case 1
|
||||
ErsteMahnungMenuItem.Visible = True
|
||||
Case 2
|
||||
ZweiteMahnungMenuItem.Visible = True
|
||||
Case 3
|
||||
LetzteMahnungMenuItem.Visible = True
|
||||
End Select
|
||||
Else
|
||||
|
||||
End If
|
||||
Catch
|
||||
End Try
|
||||
End Sub
|
||||
|
||||
Private Sub DruckenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles ErsteMahnungMenuItem.Click, ZweiteMahnungMenuItem.Click, LetzteMahnungMenuItem.Click
|
||||
Try
|
||||
Select Case sender.name
|
||||
Case "ErsteMahnungMenuItem"
|
||||
Dim s As String = Me.C1OffeneRechnungen.Columns("nrfaktura").Value.ToString
|
||||
Globals.Rg_Funktionen.Mahnung(s, 1, False, False)
|
||||
Refresh_Data()
|
||||
Case "ZweiteMahnungMenuItem"
|
||||
Dim s As String = Me.C1OffeneRechnungen.Columns("nrfaktura").Value.ToString
|
||||
Globals.Rg_Funktionen.Mahnung(s, 2, False, False)
|
||||
Refresh_Data()
|
||||
Case "LetzteMahnungMenuItem"
|
||||
Dim s As String = Me.C1OffeneRechnungen.Columns("nrfaktura").Value.ToString
|
||||
Globals.Rg_Funktionen.Mahnung(s, 3, False, False)
|
||||
Refresh_Data()
|
||||
End Select
|
||||
Catch ex As Exception
|
||||
|
||||
End Try
|
||||
|
||||
End Sub
|
||||
End Class
|
||||
Imports C1.Win.C1TrueDBGrid
|
||||
|
||||
Public Class Finanzen
|
||||
|
||||
Dim dbz As New clsDB
|
||||
Dim dbk As New clsDB
|
||||
Dim spalten As New Tabellenspalte
|
||||
Dim m_patientnr As Integer
|
||||
Property Patientnr As Integer
|
||||
Get
|
||||
Return m_patientnr
|
||||
End Get
|
||||
Set(value As Integer)
|
||||
m_patientnr = value
|
||||
refresh_konto()
|
||||
Refresh_Zahlungen()
|
||||
End Set
|
||||
End Property
|
||||
|
||||
Dim Zahlungen As New DataTable
|
||||
Dim Offene_Rechnungen As New DataTable
|
||||
Sub Refresh_Zahlungen()
|
||||
Try
|
||||
dbz.Get_Tabledata("Zahlung", "", dbz.Get_SQL(19), Me.Patientnr.ToString)
|
||||
Zahlungen = dbz.dsDaten.Tables(0).Copy
|
||||
Me.C1Zahlungen.DataSource = Nothing
|
||||
Me.C1Zahlungen.DataSource = Zahlungen
|
||||
Me.C1Zahlungen.DataMember = dbz.dsDaten.Tables(0).TableName
|
||||
spalten.Spaltentitel_aktualisieren(Me.C1Zahlungen, "Zahlungen", Zahlungen)
|
||||
dbz.Get_Tabledata("OffeneRechnungen", "", dbz.Get_SQL(22), Me.Patientnr.ToString)
|
||||
Offene_Rechnungen = dbz.dsDaten.Tables(0).Copy
|
||||
Me.C1OffeneRechnungen.DataSource = Nothing
|
||||
Me.C1OffeneRechnungen.DataSource = Offene_Rechnungen
|
||||
Me.C1OffeneRechnungen.DataMember = Offene_Rechnungen.TableName
|
||||
spalten.Spaltentitel_aktualisieren(Me.C1OffeneRechnungen, "Offene_Rechnungen", Offene_Rechnungen)
|
||||
|
||||
Me.Mahndatum1.Text = ""
|
||||
Me.Mahndatum2.Text = ""
|
||||
Me.Mahndatum3.Text = ""
|
||||
Me.Mahnfaelligkeit1.Text = ""
|
||||
Me.Mahnfaelligkeit2.Text = ""
|
||||
Me.Mahnfaelligkeit3.Text = ""
|
||||
Me.Mahngebühr1.Text = ""
|
||||
Me.Mahngebühr2.Text = ""
|
||||
Me.Mahngebühr3.Text = ""
|
||||
|
||||
Me.btnZurücksetzen1.Visible = False
|
||||
Me.btnzurücksetzen2.Visible = False
|
||||
Me.btnzurücksetzen3.Visible = False
|
||||
|
||||
|
||||
Catch ex As Exception
|
||||
MsgBox(ex.Message)
|
||||
End Try
|
||||
|
||||
End Sub
|
||||
Public Sub Refresh_Data()
|
||||
refresh_konto()
|
||||
Refresh_Zahlungen()
|
||||
Get_Mahndaten()
|
||||
End Sub
|
||||
Sub refresh_konto()
|
||||
dbk.Get_Tabledata("Konto", "where aktiv=1 order by reihenfolge")
|
||||
Me.cbboxKonto.DataSource = dbk.dsDaten.Tables(0)
|
||||
Me.cbboxKonto.Displaymember = "Konto"
|
||||
Me.cbboxKonto.Valuemember = "nrkonto"
|
||||
End Sub
|
||||
|
||||
Private Sub txtRGNummer_TextChanged(sender As Object, e As EventArgs) Handles txtRGNummer.TextChanged
|
||||
If Me.txtRGNummer.Text <> "" Then
|
||||
Me.chkVorauszahlung.Checked = False
|
||||
Me.chkVorauszahlung.Enabled = False
|
||||
Else
|
||||
Me.chkVorauszahlung.Enabled = True
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Sub btnBuchen_Click(sender As Object, e As EventArgs) Handles btnBuchen.Click
|
||||
Dim db5 As New clsDB
|
||||
Dim vz As String = ""
|
||||
Dim Storno As String = ""
|
||||
Dim Debitor As Integer = 0
|
||||
If chkVorauszahlung.Checked = False And Me.txtRGNummer.Text = "" Then
|
||||
MsgBox("Zahlung kann nicht verbucht werden. Entweder als Vorauszahlung oder mit gültiger Rechnungsnummer.", MsgBoxStyle.Exclamation)
|
||||
Exit Sub
|
||||
End If
|
||||
Dim newkey As Integer = dbz.Get_DBKey("Zahlung")
|
||||
dbz.Get_Tabledata("Zahlung", "where nrzahlung=0")
|
||||
Dim r As DataRow = dbz.dsDaten.Tables(0).NewRow
|
||||
r("nrzahlung") = newkey
|
||||
If Me.chkVorauszahlung.Checked = True Then r("nrfaktura") = 0 Else r("nrfaktura") = txtRGNummer.Text
|
||||
r("vorauszahlung") = chkVorauszahlung.Checked
|
||||
r("mandant") = 1
|
||||
If r("nrfaktura") <> 0 Then
|
||||
Try
|
||||
db5.Get_Tabledata("Fakt", "", "Select * from faktura where nrfaktura='" + r("nrfaktura").ToString + "'")
|
||||
Debitor = db5.dsDaten.Tables(0).Rows(0).Item("nrdebitor")
|
||||
Catch
|
||||
Debitor = 0
|
||||
End Try
|
||||
|
||||
End If
|
||||
If Me.Patientnr <> Debitor And Debitor > 0 Then
|
||||
r("nrdebotir") = Debitor
|
||||
Else
|
||||
r("nrdebitor") = Me.Patientnr
|
||||
End If
|
||||
r("nrdebitor") = Me.Patientnr
|
||||
r("betrag") = Me.diBetrag.Value
|
||||
r("nrkonto") = cbboxKonto.SelectedValue
|
||||
r("valuta") = Me.dtdatum.Value
|
||||
r("nrbehandlung") = 0
|
||||
r("status") = 0
|
||||
If chkVorauszahlung.Checked Then
|
||||
r("status") = 1
|
||||
vz = "J"
|
||||
End If
|
||||
r("statusdatum") = Now
|
||||
r("erstellt_am") = Now
|
||||
r("mutiert_am") = Now
|
||||
r("mutierer") = Globals.ActUser
|
||||
r("aktiv") = True
|
||||
dbz.dsDaten.Tables(0).Rows.Add(r)
|
||||
dbz.Update_Data()
|
||||
|
||||
db5.Insert_ZJournal(r("nrfaktura"), r("nrdebitor"), db5.Get_Datavalue("Select dbo.get_name(" + r.Item("nrdebitor").ToString + ")"), r.Item("Betrag"), db5.Get_Datavalue("Select Konto from konto where nrkonto=" + r.Item("nrkonto").ToString), vz, "")
|
||||
db5.Exec_SQL("Update debitor set mutiert_am=getdate(),betrag=betrag-" + r("betrag").ToString + "where nrfaktura=" + r("nrfaktura").ToString)
|
||||
Me.Refresh_Zahlungen()
|
||||
If vz = "J" Then
|
||||
If MsgBox("Vorauszahlung einer Behandlung zuweisen?", vbYesNo + vbQuestion) Then
|
||||
VorauszahlungAnBehandlungZuweisenToolStripMenuItem_Click(sender, e)
|
||||
End If
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Sub ToolStrip1_ItemClicked(sender As Object, e As ToolStripItemClickedEventArgs) Handles ToolStrip1.ItemClicked
|
||||
|
||||
End Sub
|
||||
|
||||
Private Sub C1OffeneRechnungen_RowColChange(sender As Object, e As RowColChangeEventArgs) Handles C1OffeneRechnungen.RowColChange
|
||||
Try
|
||||
Me.dtdatum.Value = Now
|
||||
Me.txtRGNummer.Text = Me.C1OffeneRechnungen.Columns("nrfaktura").Value
|
||||
Me.diBetrag.Value = Me.C1OffeneRechnungen.Columns("Betrag").Value
|
||||
Get_Mahndaten()
|
||||
Catch ex As Exception
|
||||
|
||||
End Try
|
||||
End Sub
|
||||
Sub Get_Mahndaten()
|
||||
Me.Mahndatum1.Text = ""
|
||||
Me.Mahndatum2.Text = ""
|
||||
Me.Mahndatum3.Text = ""
|
||||
Me.Mahnfaelligkeit1.Text = ""
|
||||
Me.Mahnfaelligkeit2.Text = ""
|
||||
Me.Mahnfaelligkeit3.Text = ""
|
||||
Me.Mahngebühr1.Text = ""
|
||||
Me.Mahngebühr2.Text = ""
|
||||
Me.Mahngebühr3.Text = ""
|
||||
Me.btnZurücksetzen1.Visible = False
|
||||
Me.btnzurücksetzen2.Visible = False
|
||||
Me.btnzurücksetzen3.Visible = False
|
||||
Dim dd As Date
|
||||
Try
|
||||
Me.Mahndatum1.Text = ShortDate(Me.C1OffeneRechnungen.Columns("Mahndatum1").Value.ToString)
|
||||
Me.Mahndatum2.Text = ShortDate(Me.C1OffeneRechnungen.Columns("Mahndatum2").Value.ToString)
|
||||
Me.Mahndatum3.Text = ShortDate(Me.C1OffeneRechnungen.Columns("Mahndatum3").Value.ToString)
|
||||
|
||||
Me.Mahnfaelligkeit1.Text = ShortDate(Me.C1OffeneRechnungen.Columns("mahnfaelligkeit1").Value.ToString)
|
||||
Me.Mahnfaelligkeit2.Text = ShortDate(Me.C1OffeneRechnungen.Columns("mahnfaelligkeit2").Value.ToString)
|
||||
Me.Mahnfaelligkeit3.Text = ShortDate(Me.C1OffeneRechnungen.Columns("mahnfaelligkeit3").Value.ToString)
|
||||
|
||||
Me.Mahngebühr1.Text = Me.C1OffeneRechnungen.Columns("mahngebuehr1").Value.ToString
|
||||
Me.Mahngebühr2.Text = Me.C1OffeneRechnungen.Columns("mahngebuehr2").Value.ToString
|
||||
Me.Mahngebühr3.Text = Me.C1OffeneRechnungen.Columns("mahngebuehr3").Value.ToString
|
||||
|
||||
If Me.Mahndatum3.Text <> "" Then
|
||||
Me.btnzurücksetzen3.Visible = True
|
||||
Else
|
||||
If Me.Mahndatum2.Text <> "" Then
|
||||
Me.btnzurücksetzen2.Visible = True
|
||||
Else
|
||||
If Me.Mahndatum1.Text <> "" Then
|
||||
Me.btnZurücksetzen1.Visible = True
|
||||
End If
|
||||
End If
|
||||
End If
|
||||
|
||||
Catch
|
||||
End Try
|
||||
|
||||
End Sub
|
||||
|
||||
Function ShortDate(ByVal dd As String) As String
|
||||
Try
|
||||
Dim d As Date
|
||||
d = dd
|
||||
Return d
|
||||
Catch
|
||||
Return ""
|
||||
End Try
|
||||
|
||||
End Function
|
||||
|
||||
|
||||
Private Sub ZahlungBuchenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles ZahlungBuchenToolStripMenuItem.Click
|
||||
btnBuchen_Click(sender, e)
|
||||
End Sub
|
||||
|
||||
Private Sub ZahlungStornierenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles ZahlungStornierenToolStripMenuItem.Click
|
||||
If MsgBox("Zahlung stornieren?", vbYesNo + vbQuestion) <> vbYes Then Exit Sub
|
||||
Dim fakt As New clsFakturierung
|
||||
fakt.Storno_Zahlung(Me.C1Zahlungen.Columns("nrzahlung").Value)
|
||||
Me.Refresh_Zahlungen()
|
||||
End Sub
|
||||
|
||||
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
|
||||
Me.txtRGNummer.Text = ""
|
||||
End Sub
|
||||
|
||||
Private Sub ContextMenuStrip2_CursorChanged(sender As Object, e As EventArgs) Handles ContextMenuStrip2.Opening
|
||||
If Me.C1Zahlungen.Columns("Zahlungsstatus").Value = "Vorauszahlung" Then
|
||||
If Me.C1Zahlungen.Columns("nrbehandlung").Value = 0 Then
|
||||
|
||||
VorauszahlungAnBehandlungZuweisenToolStripMenuItem.Enabled = True
|
||||
VorauszahlungVonBehandlungLösenToolStripMenuItem.Enabled = False
|
||||
|
||||
Exit Sub
|
||||
Else
|
||||
VorauszahlungAnBehandlungZuweisenToolStripMenuItem.Enabled = False
|
||||
VorauszahlungVonBehandlungLösenToolStripMenuItem.Enabled = True
|
||||
Exit Sub
|
||||
End If
|
||||
Else
|
||||
If Me.C1Zahlungen.Columns("Status").Value = 9 Then
|
||||
ZahlungStornierenToolStripMenuItem.Enabled = False
|
||||
Else
|
||||
ZahlungStornierenToolStripMenuItem.Enabled = True
|
||||
End If
|
||||
VorauszahlungAnBehandlungZuweisenToolStripMenuItem.Enabled = False
|
||||
VorauszahlungVonBehandlungLösenToolStripMenuItem.Enabled = False
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Sub VorauszahlungAnBehandlungZuweisenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles VorauszahlungAnBehandlungZuweisenToolStripMenuItem.Click
|
||||
Dim f As New frmOffeneBehandlungen
|
||||
f.NrPatient = Me.Patientnr
|
||||
f.ShowDialog()
|
||||
If f.DialogResult = DialogResult.OK Then
|
||||
Dim db As New clsDB
|
||||
db.Exec_SQL("Update zahlung set nrbehandlung=" + f.NrBehandlung.ToString + ", mutiert_am=getdate() where nrzahlung=" + Me.C1Zahlungen.Columns("nrzahlung").Value.ToString)
|
||||
Me.Refresh_Zahlungen()
|
||||
End If
|
||||
|
||||
End Sub
|
||||
|
||||
Private Sub VorauszahlungVonBehandlungLösenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles VorauszahlungVonBehandlungLösenToolStripMenuItem.Click
|
||||
If MsgBox("Vorauszahlung von Behandlung entfernen?", vbYesNo + vbQuestion) = vbYes Then
|
||||
Dim db As New clsDB
|
||||
db.Exec_SQL("Update zahlung set nrbehandlung=0, mutiert_am=getdate() where nrzahlung=" + Me.C1Zahlungen.Columns("nrzahlung").Value.ToString)
|
||||
Me.Refresh_Zahlungen()
|
||||
|
||||
End If
|
||||
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}")
|
||||
|
||||
End Sub
|
||||
Sub delete_date(sender)
|
||||
sender.value = Nothing
|
||||
End Sub
|
||||
|
||||
Private Sub btnZurücksetzen1_Click(sender As Object, e As EventArgs) Handles btnZurücksetzen1.Click
|
||||
If MsgBox("Mahnstufe 1 zurückseten?", vbYesNo + vbQuestion) = vbYes Then
|
||||
Mahnstufe_Zurücksetzen(1)
|
||||
End If
|
||||
End Sub
|
||||
|
||||
|
||||
Private Sub btnzurücksetzen2_Click(sender As Object, e As EventArgs) Handles btnzurücksetzen2.Click
|
||||
If MsgBox("Mahnstufe 2 zurückseten?", vbYesNo + vbQuestion) = vbYes Then
|
||||
Mahnstufe_Zurücksetzen(2)
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Sub btnzurücksetzen3_Click(sender As Object, e As EventArgs) Handles btnzurücksetzen3.Click
|
||||
If MsgBox("Mahnstufe 3 zurückseten?", vbYesNo + vbQuestion) = vbYes Then
|
||||
Mahnstufe_Zurücksetzen(3)
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Sub Mahnstufe_Zurücksetzen(ByVal typ As Integer)
|
||||
Dim db As New clsDB
|
||||
Dim sql As String
|
||||
|
||||
Select Case typ
|
||||
Case 1
|
||||
sql = "Exec sp_reset_mahnstufe 1," + Me.C1OffeneRechnungen.Columns("nrfaktura").Value.ToString
|
||||
db.Exec_SQL(sql)
|
||||
Case 2
|
||||
sql = "Exec sp_reset_mahnstufe 2," + Me.C1OffeneRechnungen.Columns("nrfaktura").Value.ToString
|
||||
db.Exec_SQL(sql)
|
||||
Case 3
|
||||
sql = "Exec sp_reset_mahnstufe 3," + Me.C1OffeneRechnungen.Columns("nrfaktura").Value.ToString
|
||||
db.Exec_SQL(sql)
|
||||
|
||||
End Select
|
||||
Refresh_Zahlungen()
|
||||
Get_Mahndaten()
|
||||
End Sub
|
||||
|
||||
Private Sub C1Zahlungen_MouseDown(sender As Object, e As MouseEventArgs) Handles C1Zahlungen.MouseDown
|
||||
Me.C1Zahlungen.Bookmark = Me.C1Zahlungen.RowContaining(e.Y)
|
||||
End Sub
|
||||
|
||||
Private Sub C1OffeneRechnungen_MouseDown(sender As Object, e As MouseEventArgs) Handles C1OffeneRechnungen.MouseDown
|
||||
Me.C1OffeneRechnungen.Bookmark = Me.C1OffeneRechnungen.RowContaining(e.Y)
|
||||
End Sub
|
||||
|
||||
Private Sub ContextMenuStrip1_Opening(sender As Object, e As System.ComponentModel.CancelEventArgs) Handles ContextMenuStrip1.Opening
|
||||
Me.ErsteMahnungMenuItem.Visible = False
|
||||
Me.ZweiteMahnungMenuItem.Visible = False
|
||||
Me.LetzteMahnungMenuItem.Visible = False
|
||||
Dim db As New clsDB
|
||||
Try
|
||||
db.Get_Tabledata("Mahnung", "", "Select * from View_Offene_Mahnungen where nrfaktura=" + Me.C1OffeneRechnungen.Columns("nrfaktura").Value.ToString, "", False)
|
||||
If db.dsDaten.Tables(0).Rows.Count > 0 Then
|
||||
Select Case db.dsDaten.Tables(0).Rows(0).Item("Mahnstufe")
|
||||
Case 1
|
||||
ErsteMahnungMenuItem.Visible = True
|
||||
Case 2
|
||||
ZweiteMahnungMenuItem.Visible = True
|
||||
Case 3
|
||||
LetzteMahnungMenuItem.Visible = True
|
||||
End Select
|
||||
Else
|
||||
|
||||
End If
|
||||
Catch
|
||||
End Try
|
||||
End Sub
|
||||
|
||||
Private Sub DruckenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles ErsteMahnungMenuItem.Click, ZweiteMahnungMenuItem.Click, LetzteMahnungMenuItem.Click
|
||||
Try
|
||||
Select Case sender.name
|
||||
Case "ErsteMahnungMenuItem"
|
||||
Dim s As String = Me.C1OffeneRechnungen.Columns("nrfaktura").Value.ToString
|
||||
Globals.Rg_Funktionen.Mahnung(s, 1, False, False, True)
|
||||
Refresh_Data()
|
||||
Case "ZweiteMahnungMenuItem"
|
||||
Dim s As String = Me.C1OffeneRechnungen.Columns("nrfaktura").Value.ToString
|
||||
Globals.Rg_Funktionen.Mahnung(s, 2, False, False, True)
|
||||
Refresh_Data()
|
||||
Case "LetzteMahnungMenuItem"
|
||||
Dim s As String = Me.C1OffeneRechnungen.Columns("nrfaktura").Value.ToString
|
||||
Globals.Rg_Funktionen.Mahnung(s, 3, False, False, True)
|
||||
Refresh_Data()
|
||||
End Select
|
||||
Catch ex As Exception
|
||||
|
||||
End Try
|
||||
|
||||
End Sub
|
||||
End Class
|
||||
|
||||
Reference in New Issue
Block a user