Initial commit

SW/AssessmentMgmt/Klassen/MyGenericEventHandler.vb

@@ -0,0 +1,39 @@
+Public Class MyGenericEventHandler
+
+
+    Public Event Set_ToolTip(ByVal formname As String, ByVal ctlname As String)
+
+    Public Event Pruefplandetail_Saved(ByVal handler As Integer, ByVal key As Integer)
+    Public Event Pruefplandetail_Closed(ByVal handler As Integer, ByVal key As Integer)
+    Public Event Pruefschrittresultat_saved(ByVal handler As Integer, ByVal key As Integer)
+    Public Event pruefschrittresultat_closed(ByVal handler As Integer, ByVal key As Integer)
+    Public Event MassnahmeplanDetail_Saveed(ByVal handler As Integer, ByVal key As Integer)
+    Public Event MassnahmeplanDetail_Closed(ByVal handler As Integer, ByVal key As Integer)
+
+    Public Function Pruefplandetails_save(ByVal handler As Integer, key As Integer)
+        RaiseEvent Pruefplandetail_Saved(handler, key)
+    End Function
+
+    Public Function Pruefplandetail_close(ByVal handler As Integer, key As Integer)
+        RaiseEvent Pruefplandetail_closed(handler, key)
+
+    End Function
+    Public Function Edit_Tooltip(ByVal formname As String, ByVal ctlname As String)
+        RaiseEvent Set_ToolTip(formname, ctlname)
+    End Function
+
+    Public Function PruefplanResultat_Save(ByVal handler As Integer, ByVal key As Integer)
+        RaiseEvent Pruefschrittresultat_saved(handler, key)
+    End Function
+
+    Public Function pruefschrittResultat_Close(ByVal handler As Integer, ByVal key As Integer)
+        RaiseEvent pruefschrittresultat_closed(handler, key)
+    End Function
+
+    Public Function massnahmeplandetail_save(ByVal handler As Integer, ByVal key As Integer)
+        RaiseEvent MassnahmeplanDetail_Saveed(handler, key)
+    End Function
+    Public Function massnahmeplandetail_close(ByVal handler As Integer, ByVal key As Integer)
+        RaiseEvent MassnahmeplanDetail_Closed(handler, key)
+    End Function
+End Class