Initial commit

2021-04-20 07:44:06 +02:00
commit 1cc7ed8893
1562 changed files with 496306 additions and 0 deletions
--- a/_AllgMainObjekte/Diverse_Formulare/frmSetNeueBeziehung.vb
+++ b/_AllgMainObjekte/Diverse_Formulare/frmSetNeueBeziehung.vb
@@ -0,0 +1,123 @@
+Public Class frmSetNeueBeziehung
+
+    Dim m_sourceid As Integer
+    Property Sourceid As Integer
+        Get
+            Return m_sourceid
+        End Get
+        Set(value As Integer)
+            m_sourceid = value
+        End Set
+    End Property
+
+    Dim m_sourcebezeichnung As String
+    Property SourceBezeichnung As String
+        Get
+            Return m_sourcebezeichnung
+        End Get
+        Set(value As String)
+            m_sourcebezeichnung = value
+        End Set
+    End Property
+
+    Dim m_type As Integer
+    Property Type As Integer
+        Get
+            Return m_type
+        End Get
+        Set(value As Integer)
+            m_type = value
+        End Set
+    End Property
+
+    Dim m_mitarbeiternr As Integer
+    Property Mitarbeiternr As Integer
+        Get
+            Return m_mitarbeiternr
+        End Get
+        Set(value As Integer)
+            m_mitarbeiternr = value
+            Globals.Mitarbeiternr = value
+        End Set
+    End Property
+
+    Private Sub frmSetNeueBeziehung_Load(sender As Object, e As EventArgs) Handles MyBase.Load
+        Me.TextBox1.Text = Me.SourceBezeichnung
+        If Type = 0 Then
+            Dim dtc As New _DataClass.DataClass
+            Dim dt As New DataTable
+            dt = dtc.Get_Aktive_Funktionsstellen
+            Me.C1Daten.DataSource = dt
+            Me.C1Daten.DataMember = dt.TableName
+            Me.C1Daten.Splits(0).DisplayColumns(0).Width = 0
+            Me.C1Daten.Splits(0).DisplayColumns(1).Width = 200
+            Me.C1Daten.Splits(0).DisplayColumns(2).Width = 100
+          
+        End If
+        If Type = 1 Then
+            Dim dtc As New _DataClass.DataClass
+            Dim dt As New DataTable
+            dt = dtc.Get_Aktives_Personal
+            Me.C1Daten.DataSource = dt
+            Me.C1Daten.DataMember = dt.TableName
+            Me.C1Daten.Splits(0).DisplayColumns(0).Width = 0
+            Me.C1Daten.Splits(0).DisplayColumns(1).Width = 200
+            Me.C1Daten.Splits(0).DisplayColumns(2).Width = 100
+           
+        End If
+
+    End Sub
+
+
+    Private Sub TSBtnQuit_Click(sender As Object, e As EventArgs) Handles TSBtnQuit.Click
+        Me.Close()
+    End Sub
+
+    Private Sub C1Daten_DoubleClick(sender As Object, e As EventArgs) Handles C1Daten.DoubleClick
+        Dim a As New AllgMainObjekte
+        a.txtBezeichnung.Text = Me.C1Daten.Columns(1).Value
+        If Type = 0 Then
+            a.ConnectionFilename = Globals.ConnectionFileName
+            a.ConnectionString = Globals.sConnectionString
+            a.TempFilePath = Globals.TmpFilepath
+            a.Mitarbeiternr = Me.Mitarbeiternr
+            a.Type = "Personal"
+            a.KeyValue = Me.Sourceid
+            a.Add_New_Beziehung(Me.C1Daten.Columns(0).Value, _DataClass.DataClass.Struktur_Selectiontype.Organisation, Me.C1Daten.Columns(1).Value, "_DataClass.db.Personal_FunktionStelle", True, 0)
+        Else
+            a.ConnectionFilename = Globals.ConnectionFileName
+            a.ConnectionString = Globals.sConnectionString
+            a.TempFilePath = Globals.TmpFilepath
+            a.Mitarbeiternr = Me.Mitarbeiternr
+            a.Type = "Funktionstelle"
+            a.KeyValue = Me.Sourceid
+            a.Add_New_Beziehung(Me.C1Daten.Columns(0).Value, _DataClass.DataClass.Struktur_Selectiontype.Organisation, Me.C1Daten.Columns(1).Value, "_DataClass.db.Personal_FunktionStelle", False, 0)
+        End If
+
+        a.Dispose()
+
+    End Sub
+
+    Private Sub C1Beziehungen_MouseDown(sender As Object, e As MouseEventArgs) Handles C1Daten.MouseDown
+        Me.C1Daten.Bookmark = Me.C1Daten.RowContaining(e.Y)
+        
+
+    End Sub
+
+    Private Sub BeziehungErstellenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles BeziehungErstellenToolStripMenuItem.Click
+        C1Daten_DoubleClick(sender, e)
+    End Sub
+    Event C1Beziehungen_DoubleClicked(ByVal keyvalue As Integer, ByVal Typ As String, ByVal NewWindows As Boolean)
+
+    Private Sub ObjektAnzeigenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles ObjektAnzeigenToolStripMenuItem.Click
+        If Type = 0 Then
+            RaiseEvent C1Beziehungen_DoubleClicked(Me.C1Daten.Columns(0).Value, "Personal", True)
+        Else
+            RaiseEvent C1Beziehungen_DoubleClicked(Me.C1Daten.Columns(0).Value, "Funktionstelle", True)
+        End If
+    End Sub
+
+    Private Sub C1Daten_Click(sender As Object, e As EventArgs) Handles C1Daten.Click
+
+    End Sub
+End Class