Public Class Generic_Event_Handler Public Event PatName_Changed(ByVal name As String, ByVal nr As Integer) Public Event PatSaved(ByVal Nr As Integer) Public Event Leistung_Changed(ByVal Behandlungsnummer As Integer, Total As Double) Public Event Totale_Berechnet(ByVal behandlungsnummer As Integer) Public Event Behandlung_changed(ByVal behandlungsnummer As Integer, patientnr As Integer) Public Event Taxpunktwert_changed(ByVal behandlungsnummer As Integer, patientnr As Integer, taxpunktwert As Double) Public Event Total_Berechnet(ByVal behandlungsnummer As Integer, Total As Double) Public Event Behandlung_Inserted(ByVal Patientnr As Integer, ByVal Behandlungsnummer As Integer) Public Event Behandlung_Abschliessen(ByVal behandlungsnummer As Integer, patient As Integer) Public Event Behandlung_Zurücksetzen(ByVal behandlungsnummer As Integer, patient As Integer) Public Event Recall_Anzeigen(Datum As DateTime, patient As Integer, behandler As Integer) Public Event Finanzen_Anzeigen(patient As Integer) Public Event Refresh_PrinterConfig() Public Event Refresh_Behandlung(behandlungsnr As Integer, patientnr As Integer) Public Event Insert_Protokoll_entry(Entry As String) Public Function Fire_PatName_Changed(ByVal name As String, ByVal nr As Integer) RaiseEvent PatName_Changed(name, nr) End Function Public Function Fire_PatSaved(ByVal nr As Integer) RaiseEvent PatSaved(nr) End Function Public Function Fire_Leistung_Changed(ByVal Behandlungsnummer As Integer, total As Double) RaiseEvent Leistung_Changed(Behandlungsnummer, total) End Function Public Function Fire_Totale_Berechnet(ByVal Behandlungsnummer As Integer) RaiseEvent Totale_Berechnet(Behandlungsnummer) End Function Public Function Fire_Behandlung_Changed(ByVal behandlungsnummer As Integer, ByVal patientnr As Integer) RaiseEvent Behandlung_changed(behandlungsnummer, patientnr) End Function Public Function fire_Taxpunktwert_Changed(ByVal behandlungsnummer As Integer, patientnr As Integer, taxpunktwert As Double) RaiseEvent Taxpunktwert_changed(behandlungsnummer, patientnr, taxpunktwert) End Function Public Function Fire_Total_Berechnet(ByVal Behandlungsnummer As Integer, ByVal Total As Double) RaiseEvent Total_Berechnet(Behandlungsnummer, Total) End Function Public Function Fire_Behandlung_Inserted(ByVal Patientnr As Integer, ByVal Behandlungsnr As Integer) RaiseEvent Behandlung_Inserted(Patientnr, Behandlungsnr) End Function Public Function Fire_Behandlung_Abschliessen(ByVal Behandlungsnr As Integer, ByVal patient As Integer) RaiseEvent Behandlung_Abschliessen(Behandlungsnr, patient) End Function Public Function Fire_Behandlung_Zurücksetzen(ByVal Behandlungsnr As Integer, ByVal patient As Integer) RaiseEvent Behandlung_Zurücksetzen(Behandlungsnr, patient) End Function Public Function Fire_Recall_Anzeigen(ByVal datum As DateTime, ByVal patient As Integer, ByVal behandler As Integer) RaiseEvent Recall_Anzeigen(datum, patient, behandler) End Function Public Function Fire_Finanzen_Anzeigen(ByVal patient As Integer) RaiseEvent Finanzen_Anzeigen(patient) End Function Public Function Fire_Refresh_PrinterConfig() RaiseEvent Refresh_PrinterConfig() End Function Public Function Refresh_Behandlungen(ByVal Behandlungsnr As Integer, ByVal Patientnr As Integer) RaiseEvent Refresh_Behandlung(Behandlungsnr, Patientnr) End Function Public Function Fire_Insert_Entry(ByVal Entry As String) RaiseEvent Insert_Protokoll_entry(Entry) End Function End Class