30 lines
1.1 KiB
VB.net
30 lines
1.1 KiB
VB.net
Module Globals
|
|
Public Spaltendaten As New DataTable
|
|
Public sConnectionString As String
|
|
Public conn As New DB.clsConnectionProvider
|
|
Public ConnectionFileName As String = ""
|
|
Public Mitarbeiternr As Integer
|
|
Public TmpFilepath As String
|
|
Public Objekt As New DataTable
|
|
Public Objekt_Beziehung As New DataTable
|
|
Public SecurityDaten As New DataSet
|
|
Public VerantwTKBMA_Data As New DataTable
|
|
Public KontaktSD_Data As New DataTable
|
|
|
|
Public WithEvents Generic_Event_Handler As New _Generic_Event_Handler.Generic_Event_Handler
|
|
|
|
Public Function Check_Beziehung(ByRef TargetDBObject As String, ByVal Type1 As Integer, ByVal type2 As Integer, ByRef Change_Keys As Boolean) As Boolean
|
|
|
|
For Each dr As DataRow In Globals.Objekt_Beziehung.Rows
|
|
If dr.Item("Objekt1") = Type1 And dr.Item("Objekt2") = type2 And dr.Item("Aktiv") = True Then
|
|
TargetDBObject = dr.Item("Objektname")
|
|
Change_Keys = dr.Item("Key_Umdrehen")
|
|
Return True
|
|
Exit For
|
|
End If
|
|
Next
|
|
Return False
|
|
End Function
|
|
|
|
End Module
|