shu/BEA
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

Update Version 1.6

Browse Source
This commit is contained in:
Stefan Hutter
2021-08-01 08:58:37 +02:00
parent 762f2c0032
commit 78bb82c44d
119 changed files with 79548 additions and 115 deletions
Download Patch File Download Diff File Expand all files Collapse all files

33
_AllgMainObjekte/Diverse_Formulare/frmBeziehungEdit.Designer.vb generated
View File

@@ -36,6 +36,7 @@ Partial Class frmBeziehungEdit
Me.lblBeziehungstyp = New System.Windows.Forms.Label()
Me.Panel1 = New System.Windows.Forms.Panel()
Me.Panel2 = New System.Windows.Forms.Panel()
Me.cbboxKontaktSD = New DevComponents.DotNetBar.Controls.ComboBoxEx()
Me.cbboxKontaktFB = New DevComponents.DotNetBar.Controls.ComboBoxEx()
Me.Label5 = New System.Windows.Forms.Label()
Me.DateTimePicker1 = New System.Windows.Forms.DateTimePicker()
@@ -63,7 +64,7 @@ Partial Class frmBeziehungEdit
Me.txtSeqeunz.Maximum = New Decimal(New Integer() {1000000, 0, 0, 0})
Me.txtSeqeunz.Name = "txtSeqeunz"
Me.txtSeqeunz.Size = New System.Drawing.Size(120, 20)
Me.txtSeqeunz.TabIndex = 15
Me.txtSeqeunz.TabIndex = 2
'
'lblSequenz
'
@@ -98,7 +99,7 @@ Partial Class frmBeziehungEdit
Me.txtBemerkung.Multiline = True
Me.txtBemerkung.Name = "txtBemerkung"
Me.txtBemerkung.Size = New System.Drawing.Size(244, 69)
Me.txtBemerkung.TabIndex = 11
Me.txtBemerkung.TabIndex = 0
'
'lblBemerkung
'
@@ -134,7 +135,7 @@ Partial Class frmBeziehungEdit
Me.cbbeziehungstyp.Location = New System.Drawing.Point(73, 84)
Me.cbbeziehungstyp.Name = "cbbeziehungstyp"
Me.cbbeziehungstyp.Size = New System.Drawing.Size(244, 21)
Me.cbbeziehungstyp.TabIndex = 34
Me.cbbeziehungstyp.TabIndex = 1
'
'lblBeziehungstyp
'
@@ -163,6 +164,7 @@ Partial Class frmBeziehungEdit
'
'Panel2
'
Me.Panel2.Controls.Add(Me.cbboxKontaktSD)
Me.Panel2.Controls.Add(Me.cbboxKontaktFB)
Me.Panel2.Controls.Add(Me.Label5)
Me.Panel2.Controls.Add(Me.DateTimePicker1)
@@ -180,6 +182,18 @@ Partial Class frmBeziehungEdit
Me.Panel2.Size = New System.Drawing.Size(336, 227)
Me.Panel2.TabIndex = 36
'
'cbboxKontaktSD
'
Me.cbboxKontaktSD.AutoCompleteMode = System.Windows.Forms.AutoCompleteMode.SuggestAppend
Me.cbboxKontaktSD.DisplayMember = "Text"
Me.cbboxKontaktSD.DrawMode = System.Windows.Forms.DrawMode.OwnerDrawFixed
Me.cbboxKontaktSD.FormattingEnabled = True
Me.cbboxKontaktSD.ItemHeight = 14
Me.cbboxKontaktSD.Location = New System.Drawing.Point(84, 130)
Me.cbboxKontaktSD.Name = "cbboxKontaktSD"
Me.cbboxKontaktSD.Size = New System.Drawing.Size(230, 20)
Me.cbboxKontaktSD.TabIndex = 2
'
'cbboxKontaktFB
'
Me.cbboxKontaktFB.AutoCompleteMode = System.Windows.Forms.AutoCompleteMode.SuggestAppend
@@ -187,10 +201,10 @@ Partial Class frmBeziehungEdit
Me.cbboxKontaktFB.DrawMode = System.Windows.Forms.DrawMode.OwnerDrawFixed
Me.cbboxKontaktFB.FormattingEnabled = True
Me.cbboxKontaktFB.ItemHeight = 14
Me.cbboxKontaktFB.Location = New System.Drawing.Point(85, 156)
Me.cbboxKontaktFB.Location = New System.Drawing.Point(84, 156)
Me.cbboxKontaktFB.Name = "cbboxKontaktFB"
Me.cbboxKontaktFB.Size = New System.Drawing.Size(230, 20)
Me.cbboxKontaktFB.TabIndex = 49
Me.cbboxKontaktFB.TabIndex = 3
'
'Label5
'
@@ -207,7 +221,7 @@ Partial Class frmBeziehungEdit
Me.DateTimePicker1.Location = New System.Drawing.Point(85, 183)
Me.DateTimePicker1.Name = "DateTimePicker1"
Me.DateTimePicker1.Size = New System.Drawing.Size(99, 20)
Me.DateTimePicker1.TabIndex = 20
Me.DateTimePicker1.TabIndex = 4
'
'Label4
'
@@ -224,6 +238,7 @@ Partial Class frmBeziehungEdit
Me.TextBox4.Name = "TextBox4"
Me.TextBox4.Size = New System.Drawing.Size(231, 20)
Me.TextBox4.TabIndex = 18
Me.TextBox4.TabStop = False
'
'Label3
'
@@ -240,6 +255,7 @@ Partial Class frmBeziehungEdit
Me.TextBox3.Name = "TextBox3"
Me.TextBox3.Size = New System.Drawing.Size(100, 20)
Me.TextBox3.TabIndex = 16
Me.TextBox3.TabStop = False
'
'Label2
'
@@ -256,7 +272,7 @@ Partial Class frmBeziehungEdit
Me.TextBox2.Multiline = True
Me.TextBox2.Name = "TextBox2"
Me.TextBox2.Size = New System.Drawing.Size(230, 57)
Me.TextBox2.TabIndex = 14
Me.TextBox2.TabIndex = 1
'
'Label1
'
@@ -273,7 +289,7 @@ Partial Class frmBeziehungEdit
Me.TextBox1.Multiline = True
Me.TextBox1.Name = "TextBox1"
Me.TextBox1.Size = New System.Drawing.Size(230, 57)
Me.TextBox1.TabIndex = 13
Me.TextBox1.TabIndex = 0
'
'Panel3
'
@@ -346,4 +362,5 @@ Partial Class frmBeziehungEdit
Friend WithEvents ContextMenuStrip1 As System.Windows.Forms.ContextMenuStrip
Friend WithEvents tsmnuSecurityObjekte As System.Windows.Forms.ToolStripMenuItem
Friend WithEvents cbboxKontaktFB As DevComponents.DotNetBar.Controls.ComboBoxEx
Friend WithEvents cbboxKontaktSD As DevComponents.DotNetBar.Controls.ComboBoxEx
End Class

7
_AllgMainObjekte/Diverse_Formulare/frmBeziehungEdit.vb
View File

@@ -1,9 +1,11 @@
Public Class frmBeziehungEdit
Dim kontaktfb As New DataTable
Dim kontaktsd As New DataTable
Dim dc As New _DataClass.DataClass
Dim sec As New Utils.MySecurity
Dim Datenklasse As New _DataClass.DataClass
Public Kontaktid As Integer = 0
Public KontaktidSD As Integer = 0
Private Sub btnOK_Click(sender As Object, e As EventArgs) Handles btnOK.Click
Me.DialogResult = Windows.Forms.DialogResult.OK
@@ -22,6 +24,11 @@
Me.cbboxKontaktFB.DisplayMember = "Bezeichnung"
Me.cbboxKontaktFB.ValueMember = "Keyvalue"
Me.cbboxKontaktFB.SelectedValue = Me.Kontaktid
kontaktsd = Datenklasse.Get_Stammdaten("SERVICEDESK", "Bezeichnung")
Me.cbboxKontaktSD.DataSource = kontaktsd
Me.cbboxKontaktSD.DisplayMember = "Bezeichnung"
Me.cbboxKontaktSD.ValueMember = "Keyvalue"
Me.cbboxKontaktSD.SelectedValue = Me.KontaktidSD
End If
sec.Set_Form_Security(Me)

41
_AllgMainObjekte/Diverse_Formulare/frmNeueBeziehung.Designer.vb generated
View File

@@ -53,6 +53,7 @@ Partial Class frmNeueBeziehung
Me.Panel3 = New System.Windows.Forms.Panel()
Me.ContextMenuStrip1 = New System.Windows.Forms.ContextMenuStrip(Me.components)
Me.SecurityObjekte = New System.Windows.Forms.ToolStripMenuItem()
Me.cbboxKontaktSD = New DevComponents.DotNetBar.Controls.ComboBoxEx()
CType(Me.txtSeqeunz, System.ComponentModel.ISupportInitialize).BeginInit()
Me.Panel1.SuspendLayout()
Me.Panel2.SuspendLayout()
@@ -75,7 +76,7 @@ Partial Class frmNeueBeziehung
Me.txtObjekt1.Name = "txtObjekt1"
Me.txtObjekt1.ReadOnly = True
Me.txtObjekt1.Size = New System.Drawing.Size(244, 20)
Me.txtObjekt1.TabIndex = 1
Me.txtObjekt1.TabIndex = 0
'
'lblObjekt2
'
@@ -92,7 +93,7 @@ Partial Class frmNeueBeziehung
Me.txtObjekt2.Name = "txtObjekt2"
Me.txtObjekt2.ReadOnly = True
Me.txtObjekt2.Size = New System.Drawing.Size(244, 20)
Me.txtObjekt2.TabIndex = 3
Me.txtObjekt2.TabIndex = 1
'
'lblBemerkung
'
@@ -109,7 +110,7 @@ Partial Class frmNeueBeziehung
Me.txtBemerkung.Multiline = True
Me.txtBemerkung.Name = "txtBemerkung"
Me.txtBemerkung.Size = New System.Drawing.Size(244, 69)
Me.txtBemerkung.TabIndex = 5
Me.txtBemerkung.TabIndex = 2
'
'btnOK
'
@@ -144,7 +145,7 @@ Partial Class frmNeueBeziehung
Me.txtSeqeunz.Maximum = New Decimal(New Integer() {1000000, 0, 0, 0})
Me.txtSeqeunz.Name = "txtSeqeunz"
Me.txtSeqeunz.Size = New System.Drawing.Size(120, 20)
Me.txtSeqeunz.TabIndex = 9
Me.txtSeqeunz.TabIndex = 4
'
'lblBeziehungstyp
'
@@ -161,7 +162,7 @@ Partial Class frmNeueBeziehung
Me.cbbeziehungstyp.Location = New System.Drawing.Point(71, 147)
Me.cbbeziehungstyp.Name = "cbbeziehungstyp"
Me.cbbeziehungstyp.Size = New System.Drawing.Size(244, 21)
Me.cbbeziehungstyp.TabIndex = 11
Me.cbbeziehungstyp.TabIndex = 3
'
'cbTemporaer
'
@@ -169,7 +170,7 @@ Partial Class frmNeueBeziehung
Me.cbTemporaer.Location = New System.Drawing.Point(200, 178)
Me.cbTemporaer.Name = "cbTemporaer"
Me.cbTemporaer.Size = New System.Drawing.Size(115, 17)
Me.cbTemporaer.TabIndex = 12
Me.cbTemporaer.TabIndex = 5
Me.cbTemporaer.Text = "Temporär-Funktion"
Me.cbTemporaer.UseVisualStyleBackColor = True
'
@@ -194,6 +195,7 @@ Partial Class frmNeueBeziehung
'
'Panel2
'
Me.Panel2.Controls.Add(Me.cbboxKontaktSD)
Me.Panel2.Controls.Add(Me.cbboxKontaktFB)
Me.Panel2.Controls.Add(Me.Label5)
Me.Panel2.Controls.Add(Me.DateTimePicker1)
@@ -218,10 +220,10 @@ Partial Class frmNeueBeziehung
Me.cbboxKontaktFB.DrawMode = System.Windows.Forms.DrawMode.OwnerDrawFixed
Me.cbboxKontaktFB.FormattingEnabled = True
Me.cbboxKontaktFB.ItemHeight = 14
Me.cbboxKontaktFB.Location = New System.Drawing.Point(85, 156)
Me.cbboxKontaktFB.Location = New System.Drawing.Point(84, 156)
Me.cbboxKontaktFB.Name = "cbboxKontaktFB"
Me.cbboxKontaktFB.Size = New System.Drawing.Size(230, 20)
Me.cbboxKontaktFB.TabIndex = 48
Me.cbboxKontaktFB.TabIndex = 3
'
'Label5
'
@@ -238,7 +240,7 @@ Partial Class frmNeueBeziehung
Me.DateTimePicker1.Location = New System.Drawing.Point(85, 183)
Me.DateTimePicker1.Name = "DateTimePicker1"
Me.DateTimePicker1.Size = New System.Drawing.Size(99, 20)
Me.DateTimePicker1.TabIndex = 20
Me.DateTimePicker1.TabIndex = 4
'
'Label4
'
@@ -255,6 +257,7 @@ Partial Class frmNeueBeziehung
Me.TextBox4.Name = "TextBox4"
Me.TextBox4.Size = New System.Drawing.Size(231, 20)
Me.TextBox4.TabIndex = 18
Me.TextBox4.TabStop = False
'
'Label3
'
@@ -271,6 +274,7 @@ Partial Class frmNeueBeziehung
Me.TextBox3.Name = "TextBox3"
Me.TextBox3.Size = New System.Drawing.Size(100, 20)
Me.TextBox3.TabIndex = 16
Me.TextBox3.TabStop = False
'
'Label2
'
@@ -287,7 +291,7 @@ Partial Class frmNeueBeziehung
Me.TextBox2.Multiline = True
Me.TextBox2.Name = "TextBox2"
Me.TextBox2.Size = New System.Drawing.Size(230, 57)
Me.TextBox2.TabIndex = 14
Me.TextBox2.TabIndex = 1
'
'Label1
'
@@ -304,7 +308,7 @@ Partial Class frmNeueBeziehung
Me.TextBox1.Multiline = True
Me.TextBox1.Name = "TextBox1"
Me.TextBox1.Size = New System.Drawing.Size(230, 57)
Me.TextBox1.TabIndex = 13
Me.TextBox1.TabIndex = 0
'
'Panel3
'
@@ -328,11 +332,23 @@ Partial Class frmNeueBeziehung
Me.SecurityObjekte.Size = New System.Drawing.Size(162, 22)
Me.SecurityObjekte.Text = "Secuirty-Objekte"
'
'cbboxKontaktSD
'
Me.cbboxKontaktSD.AutoCompleteMode = System.Windows.Forms.AutoCompleteMode.SuggestAppend
Me.cbboxKontaktSD.DisplayMember = "Text"
Me.cbboxKontaktSD.DrawMode = System.Windows.Forms.DrawMode.OwnerDrawFixed
Me.cbboxKontaktSD.FormattingEnabled = True
Me.cbboxKontaktSD.ItemHeight = 14
Me.cbboxKontaktSD.Location = New System.Drawing.Point(84, 130)
Me.cbboxKontaktSD.Name = "cbboxKontaktSD"
Me.cbboxKontaktSD.Size = New System.Drawing.Size(230, 20)
Me.cbboxKontaktSD.TabIndex = 2
'
'frmNeueBeziehung
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.ClientSize = New System.Drawing.Size(337, 263)
Me.ClientSize = New System.Drawing.Size(337, 245)
Me.ContextMenuStrip = Me.ContextMenuStrip1
Me.Controls.Add(Me.Panel3)
Me.Controls.Add(Me.Panel2)
@@ -379,4 +395,5 @@ Partial Class frmNeueBeziehung
Friend WithEvents ContextMenuStrip1 As System.Windows.Forms.ContextMenuStrip
Friend WithEvents SecurityObjekte As System.Windows.Forms.ToolStripMenuItem
Friend WithEvents cbboxKontaktFB As DevComponents.DotNetBar.Controls.ComboBoxEx
Friend WithEvents cbboxKontaktSD As DevComponents.DotNetBar.Controls.ComboBoxEx
End Class

26
_AllgMainObjekte/Diverse_Formulare/frmNeueBeziehung.vb
View File

@@ -5,6 +5,7 @@
Dim m_temporaer As Boolean
Dim Datenklasse As New _DataClass.DataClass
Dim kontaktfb As New DataTable
Dim Kontaktsd As New DataTable
Property Temporaer As Boolean
Get
Return m_temporaer
@@ -52,14 +53,27 @@
Cursor = Cursors.WaitCursor
Me.Panel2.Height = 227
Me.Height = Me.Height + 227
kontaktfb = Datenklasse.Get_Stammdaten("Personal", "Bezeichznung")
Me.cbboxKontaktFB.DataSource = kontaktfb
Me.cbboxKontaktFB.BeginUpdate()
Me.cbboxKontaktSD.BeginUpdate()
If VerantwTKBMA_Data.Rows.Count = 0 Then Datenklasse.Get_Stammdaten("Personal", "Bezeichznung")
'kontaktfb = VerantwTKBMA_Data
'kontaktfb = Datenklasse.Get_Stammdaten("Personal", "Bezeichznung")
Me.cbboxKontaktFB.DataSource = Globals.VerantwTKBMA_Data
'Me.cbboxKontaktFB.DataSource = kontaktfb
Me.cbboxKontaktFB.DisplayMember = "Bezeichnung"
Me.cbboxKontaktFB.ValueMember = "Keyvalue"
Cursor = Cursors.Default
Else
Me.Panel2.Height = 1
Me.cbboxKontaktFB.ValueMember = "Keyvalue"
If KontaktSD_Data.Rows.Count = 0 Then KontaktSD_Data = Datenklasse.Get_Stammdaten("Servicedesk", "Bezeichnung")
'Kontaktsd = Datenklasse.Get_Stammdaten("Servicedesk", "Bezeichnung")
Me.cbboxKontaktSD.DataSource = Kontaktsd_data
Me.cbboxKontaktSD.DisplayMember = "Bezeichnung"
Me.cbboxKontaktSD.ValueMember = "KeyValue"
Cursor = Cursors.Default
Else
Me.Panel2.Height = 1
Me.Height = Me.Height - 227
Me.cbboxKontaktSD.EndUpdate()
Me.cbboxKontaktFB.EndUpdate()
End If
End Sub