MS_25112015_2

2015-11-25 17:41:30 +01:00 · 2015-11-25 17:41:30 +01:00 · b7c3bc343d
commit b7c3bc343d
parent 6c4f760d5c
6 changed files with 47 additions and 29 deletions
--- a/app/DD-Record-Organiser/frmDokumentart_Konfig.Designer.vb
+++ b/app/DD-Record-Organiser/frmDokumentart_Konfig.Designer.vb
@ -44,7 +44,6 @@ Partial Class frmDokumentart_Konfig
        Dim SQL_RESULTLabel As System.Windows.Forms.Label
        Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmDokumentart_Konfig))
        Dim DataGridViewCellStyle1 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
-        Dim DataGridViewCellStyle2 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
        Me.TBDD_DOKUMENTARTBindingNavigator = New System.Windows.Forms.BindingNavigator(Me.components)
        Me.BindingNavigatorAddNewItem = New System.Windows.Forms.ToolStripButton()
        Me.TBDD_DOKUMENTARTBindingSource = New System.Windows.Forms.BindingSource(Me.components)
@ -151,6 +150,7 @@ Partial Class frmDokumentart_Konfig
        Me.TBPMO_FORM_VIEWTableAdapter = New DD_Record_Organiser.DD_DMSDataSetTableAdapters.TBPMO_FORM_VIEWTableAdapter()
        Me.TBPMO_WD_FORMVIEW_DOKTYPESTableAdapter = New DD_Record_Organiser.DD_DMSDataSetTableAdapters.TBPMO_WD_FORMVIEW_DOKTYPESTableAdapter()
        Me.TBWH_DOKART_MODULETableAdapter = New DD_Record_Organiser.DD_DMSDataSetTableAdapters.TBWH_DOKART_MODULETableAdapter()
+        Me.ToolTipController1 = New DevExpress.Utils.ToolTipController(Me.components)
        GUIDLabel = New System.Windows.Forms.Label()
        BEZEICHNUNGLabel = New System.Windows.Forms.Label()
        KURZNAMELabel = New System.Windows.Forms.Label()
@ -287,7 +287,7 @@ Partial Class frmDokumentart_Konfig
        GUIDLabel1.AutoSize = True
        GUIDLabel1.Location = New System.Drawing.Point(311, 63)
        GUIDLabel1.Name = "GUIDLabel1"
-        GUIDLabel1.Size = New System.Drawing.Size(21, 15)
+        GUIDLabel1.Size = New System.Drawing.Size(22, 13)
        GUIDLabel1.TabIndex = 2
        GUIDLabel1.Text = "ID:"
        '
@ -296,7 +296,7 @@ Partial Class frmDokumentart_Konfig
        INDEXNAMELabel.AutoSize = True
        INDEXNAMELabel.Location = New System.Drawing.Point(388, 63)
        INDEXNAMELabel.Name = "INDEXNAMELabel"
-        INDEXNAMELabel.Size = New System.Drawing.Size(68, 15)
+        INDEXNAMELabel.Size = New System.Drawing.Size(65, 13)
        INDEXNAMELabel.TabIndex = 4
        INDEXNAMELabel.Text = "Indexname:"
        '
@ -305,7 +305,7 @@ Partial Class frmDokumentart_Konfig
        VALUELabel.AutoSize = True
        VALUELabel.Location = New System.Drawing.Point(662, 63)
        VALUELabel.Name = "VALUELabel"
-        VALUELabel.Size = New System.Drawing.Size(150, 15)
+        VALUELabel.Size = New System.Drawing.Size(141, 13)
        VALUELabel.TabIndex = 6
        VALUELabel.Text = "Platzhalter Laufzeitvariable:"
        '
@ -314,7 +314,7 @@ Partial Class frmDokumentart_Konfig
        COMMENTLabel.AutoSize = True
        COMMENTLabel.Location = New System.Drawing.Point(311, 107)
        COMMENTLabel.Name = "COMMENTLabel"
-        COMMENTLabel.Size = New System.Drawing.Size(71, 15)
+        COMMENTLabel.Size = New System.Drawing.Size(64, 13)
        COMMENTLabel.TabIndex = 8
        COMMENTLabel.Text = "Bemerkung:"
        '
@ -323,7 +323,7 @@ Partial Class frmDokumentart_Konfig
        ADDED_WHOLabel.AutoSize = True
        ADDED_WHOLabel.Location = New System.Drawing.Point(311, 155)
        ADDED_WHOLabel.Name = "ADDED_WHOLabel"
-        ADDED_WHOLabel.Size = New System.Drawing.Size(67, 15)
+        ADDED_WHOLabel.Size = New System.Drawing.Size(65, 13)
        ADDED_WHOLabel.TabIndex = 12
        ADDED_WHOLabel.Text = "Erstellt wer:"
        '
@ -332,7 +332,7 @@ Partial Class frmDokumentart_Konfig
        ADDED_WHENLabel.AutoSize = True
        ADDED_WHENLabel.Location = New System.Drawing.Point(434, 155)
        ADDED_WHENLabel.Name = "ADDED_WHENLabel"
-        ADDED_WHENLabel.Size = New System.Drawing.Size(77, 15)
+        ADDED_WHENLabel.Size = New System.Drawing.Size(73, 13)
        ADDED_WHENLabel.TabIndex = 14
        ADDED_WHENLabel.Text = "Erstellt wann:"
        '
@ -341,7 +341,7 @@ Partial Class frmDokumentart_Konfig
        CHANGED_WHOLabel.AutoSize = True
        CHANGED_WHOLabel.Location = New System.Drawing.Point(583, 155)
        CHANGED_WHOLabel.Name = "CHANGED_WHOLabel"
-        CHANGED_WHOLabel.Size = New System.Drawing.Size(77, 15)
+        CHANGED_WHOLabel.Size = New System.Drawing.Size(73, 13)
        CHANGED_WHOLabel.TabIndex = 16
        CHANGED_WHOLabel.Text = "Geändert wo:"
        '
@ -350,7 +350,7 @@ Partial Class frmDokumentart_Konfig
        CHANGED_WHENLabel.AutoSize = True
        CHANGED_WHENLabel.Location = New System.Drawing.Point(703, 155)
        CHANGED_WHENLabel.Name = "CHANGED_WHENLabel"
-        CHANGED_WHENLabel.Size = New System.Drawing.Size(90, 15)
+        CHANGED_WHENLabel.Size = New System.Drawing.Size(85, 13)
        CHANGED_WHENLabel.TabIndex = 18
        CHANGED_WHENLabel.Text = "Geändert wann:"
        '
@ -369,7 +369,7 @@ Partial Class frmDokumentart_Konfig
        SQL_RESULTLabel.AutoSize = True
        SQL_RESULTLabel.Location = New System.Drawing.Point(929, 63)
        SQL_RESULTLabel.Name = "SQL_RESULTLabel"
-        SQL_RESULTLabel.Size = New System.Drawing.Size(68, 15)
+        SQL_RESULTLabel.Size = New System.Drawing.Size(64, 13)
        SQL_RESULTLabel.TabIndex = 79
        SQL_RESULTLabel.Text = "SQL-Result:"
        '
@ -912,7 +912,7 @@ Partial Class frmDokumentart_Konfig
        Me.CHANGED_WHENTextBox.Location = New System.Drawing.Point(706, 173)
        Me.CHANGED_WHENTextBox.Name = "CHANGED_WHENTextBox"
        Me.CHANGED_WHENTextBox.ReadOnly = True
-        Me.CHANGED_WHENTextBox.Size = New System.Drawing.Size(142, 23)
+        Me.CHANGED_WHENTextBox.Size = New System.Drawing.Size(142, 21)
        Me.CHANGED_WHENTextBox.TabIndex = 19
        Me.CHANGED_WHENTextBox.TabStop = False
        '
@ -922,7 +922,7 @@ Partial Class frmDokumentart_Konfig
        Me.CHANGED_WHOTextBox.Location = New System.Drawing.Point(586, 173)
        Me.CHANGED_WHOTextBox.Name = "CHANGED_WHOTextBox"
        Me.CHANGED_WHOTextBox.ReadOnly = True
-        Me.CHANGED_WHOTextBox.Size = New System.Drawing.Size(111, 23)
+        Me.CHANGED_WHOTextBox.Size = New System.Drawing.Size(111, 21)
        Me.CHANGED_WHOTextBox.TabIndex = 17
        Me.CHANGED_WHOTextBox.TabStop = False
        '
@ -932,7 +932,7 @@ Partial Class frmDokumentart_Konfig
        Me.ADDED_WHENTextBox.Location = New System.Drawing.Point(435, 173)
        Me.ADDED_WHENTextBox.Name = "ADDED_WHENTextBox"
        Me.ADDED_WHENTextBox.ReadOnly = True
-        Me.ADDED_WHENTextBox.Size = New System.Drawing.Size(142, 23)
+        Me.ADDED_WHENTextBox.Size = New System.Drawing.Size(142, 21)
        Me.ADDED_WHENTextBox.TabIndex = 15
        Me.ADDED_WHENTextBox.TabStop = False
        '
@ -942,7 +942,7 @@ Partial Class frmDokumentart_Konfig
        Me.ADDED_WHOTextBox.Location = New System.Drawing.Point(314, 173)
        Me.ADDED_WHOTextBox.Name = "ADDED_WHOTextBox"
        Me.ADDED_WHOTextBox.ReadOnly = True
-        Me.ADDED_WHOTextBox.Size = New System.Drawing.Size(111, 23)
+        Me.ADDED_WHOTextBox.Size = New System.Drawing.Size(111, 21)
        Me.ADDED_WHOTextBox.TabIndex = 13
        Me.ADDED_WHOTextBox.TabStop = False
        '
@ -961,7 +961,7 @@ Partial Class frmDokumentart_Konfig
        Me.COMMENTTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBDD_INDEX_AUTOMBindingSource, "COMMENT", True))
        Me.COMMENTTextBox.Location = New System.Drawing.Point(314, 125)
        Me.COMMENTTextBox.Name = "COMMENTTextBox"
-        Me.COMMENTTextBox.Size = New System.Drawing.Size(534, 23)
+        Me.COMMENTTextBox.Size = New System.Drawing.Size(534, 21)
        Me.COMMENTTextBox.TabIndex = 2
        '
        'VALUEComboBox
@ -971,7 +971,7 @@ Partial Class frmDokumentart_Konfig
        Me.VALUEComboBox.Items.AddRange(New Object() {"@Record-ID", "@Dokart"})
        Me.VALUEComboBox.Location = New System.Drawing.Point(665, 80)
        Me.VALUEComboBox.Name = "VALUEComboBox"
-        Me.VALUEComboBox.Size = New System.Drawing.Size(183, 23)
+        Me.VALUEComboBox.Size = New System.Drawing.Size(183, 21)
        Me.VALUEComboBox.TabIndex = 1
        '
        'INDEXNAMEComboBox
@ -980,7 +980,7 @@ Partial Class frmDokumentart_Konfig
        Me.INDEXNAMEComboBox.FormattingEnabled = True
        Me.INDEXNAMEComboBox.Location = New System.Drawing.Point(391, 80)
        Me.INDEXNAMEComboBox.Name = "INDEXNAMEComboBox"
-        Me.INDEXNAMEComboBox.Size = New System.Drawing.Size(268, 23)
+        Me.INDEXNAMEComboBox.Size = New System.Drawing.Size(268, 21)
        Me.INDEXNAMEComboBox.TabIndex = 0
        '
        'GUIDTextBox1
@ -989,7 +989,7 @@ Partial Class frmDokumentart_Konfig
        Me.GUIDTextBox1.Location = New System.Drawing.Point(314, 81)
        Me.GUIDTextBox1.Name = "GUIDTextBox1"
        Me.GUIDTextBox1.ReadOnly = True
-        Me.GUIDTextBox1.Size = New System.Drawing.Size(68, 23)
+        Me.GUIDTextBox1.Size = New System.Drawing.Size(68, 21)
        Me.GUIDTextBox1.TabIndex = 3
        Me.GUIDTextBox1.TabStop = False
        '
@ -1158,14 +1158,6 @@ Partial Class frmDokumentart_Konfig
        Me.TBPMO_WD_FORMVIEW_DOKTYPESDataGridView.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
        Me.TBPMO_WD_FORMVIEW_DOKTYPESDataGridView.Columns.AddRange(New System.Windows.Forms.DataGridViewColumn() {Me.DataGridViewTextBoxColumn1, Me.DataGridViewTextBoxColumn3, Me.DataGridViewTextBoxColumn5, Me.DataGridViewTextBoxColumn6, Me.DataGridViewTextBoxColumn7, Me.DataGridViewTextBoxColumn8, Me.DataGridViewTextBoxColumn9})
        Me.TBPMO_WD_FORMVIEW_DOKTYPESDataGridView.DataSource = Me.TBPMO_WD_FORMVIEW_DOKTYPESBindingSource
-        DataGridViewCellStyle2.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
-        DataGridViewCellStyle2.BackColor = System.Drawing.SystemColors.Window
-        DataGridViewCellStyle2.Font = New System.Drawing.Font("Segoe UI", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        DataGridViewCellStyle2.ForeColor = System.Drawing.Color.FromArgb(CType(CType(32, Byte), Integer), CType(CType(31, Byte), Integer), CType(CType(53, Byte), Integer))
-        DataGridViewCellStyle2.SelectionBackColor = System.Drawing.SystemColors.Highlight
-        DataGridViewCellStyle2.SelectionForeColor = System.Drawing.SystemColors.HighlightText
-        DataGridViewCellStyle2.WrapMode = System.Windows.Forms.DataGridViewTriState.[False]
-        Me.TBPMO_WD_FORMVIEW_DOKTYPESDataGridView.DefaultCellStyle = DataGridViewCellStyle2
        Me.TBPMO_WD_FORMVIEW_DOKTYPESDataGridView.Location = New System.Drawing.Point(11, 106)
        Me.TBPMO_WD_FORMVIEW_DOKTYPESDataGridView.Name = "TBPMO_WD_FORMVIEW_DOKTYPESDataGridView"
        Me.TBPMO_WD_FORMVIEW_DOKTYPESDataGridView.ReadOnly = True
@ -1231,7 +1223,7 @@ Partial Class frmDokumentart_Konfig
        Me.Label1.AutoSize = True
        Me.Label1.Location = New System.Drawing.Point(8, 57)
        Me.Label1.Name = "Label1"
-        Me.Label1.Size = New System.Drawing.Size(229, 15)
+        Me.Label1.Size = New System.Drawing.Size(212, 13)
        Me.Label1.TabIndex = 5
        Me.Label1.Text = "Entität auswählen (Angezeigtes Formular):"
        '
@ -1254,7 +1246,7 @@ Partial Class frmDokumentart_Konfig
        Me.ComboBox1.FormattingEnabled = True
        Me.ComboBox1.Location = New System.Drawing.Point(11, 77)
        Me.ComboBox1.Name = "ComboBox1"
-        Me.ComboBox1.Size = New System.Drawing.Size(274, 23)
+        Me.ComboBox1.Size = New System.Drawing.Size(274, 21)
        Me.ComboBox1.TabIndex = 3
        Me.ComboBox1.ValueMember = "GUID"
        '
@ -1545,4 +1537,5 @@ Partial Class frmDokumentart_Konfig
    Friend WithEvents ListBox3 As System.Windows.Forms.ListBox
    Friend WithEvents Button1 As System.Windows.Forms.Button
    Friend WithEvents SQL_RESULTTextBox As System.Windows.Forms.TextBox
+    Friend WithEvents ToolTipController1 As DevExpress.Utils.ToolTipController
 End Class
--- a/app/DD-Record-Organiser/frmDokumentart_Konfig.resx
+++ b/app/DD-Record-Organiser/frmDokumentart_Konfig.resx
@ -445,8 +445,11 @@
  <metadata name="TBWH_DOKART_MODULETableAdapter.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
    <value>610, 95</value>
  </metadata>
+  <metadata name="ToolTipController1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>876, 95</value>
+  </metadata>
  <metadata name="$this.TrayHeight" type="System.Int32, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
-    <value>89</value>
+    <value>136</value>
  </metadata>
  <data name="$this.Icon" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
    <value>
--- a/app/DD-Record-Organiser/frmUserKonfig.vb
+++ b/app/DD-Record-Organiser/frmUserKonfig.vb
@ -106,6 +106,11 @@

    Private Sub LoadGroupsForSelectedUser()
        Dim user As DataRowView = GetSelectedUserObject()
+        Try
+            Dim userID As Integer = user.Item(0)
+        Catch ex As Exception
+            Exit Sub
+        End Try
        If Not user Is Nothing Then
            Dim userID As Integer = user.Item(0)
            Dim SQL As String = String.Format("SELECT GROUP_NAME FROM VWPMO_USERS_GROUPS WHERE USER_ID = {0}", userID)
--- a/app/DD-Record-Organiser/frmUserKonfig_AddUsers.Designer.vb
+++ b/app/DD-Record-Organiser/frmUserKonfig_AddUsers.Designer.vb
@ -22,6 +22,7 @@ Partial Class frmUserKonfig_AddUsers
    'Das Bearbeiten mit dem Code-Editor ist nicht möglich.
    <System.Diagnostics.DebuggerStepThrough()> _
    Private Sub InitializeComponent()
+        Me.components = New System.ComponentModel.Container()
        Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmUserKonfig_AddUsers))
        Me.SplitContainer1 = New System.Windows.Forms.SplitContainer()
        Me.lbGroups = New System.Windows.Forms.ListBox()
@ -34,6 +35,7 @@ Partial Class frmUserKonfig_AddUsers
        Me.tbSelectNone = New System.Windows.Forms.ToolStripButton()
        Me.btnCancel = New System.Windows.Forms.Button()
        Me.btnAddUsers = New System.Windows.Forms.Button()
+        Me.ToolTipController1 = New DevExpress.Utils.ToolTipController(Me.components)
        CType(Me.SplitContainer1, System.ComponentModel.ISupportInitialize).BeginInit()
        Me.SplitContainer1.Panel1.SuspendLayout()
        Me.SplitContainer1.Panel2.SuspendLayout()
@ -193,4 +195,5 @@ Partial Class frmUserKonfig_AddUsers
    Friend WithEvents tbSelectNone As System.Windows.Forms.ToolStripButton
    Friend WithEvents clbUsers As System.Windows.Forms.CheckedListBox
    Friend WithEvents ToolStripLabel2 As System.Windows.Forms.ToolStripLabel
+    Friend WithEvents ToolTipController1 As DevExpress.Utils.ToolTipController
 End Class
--- a/app/DD-Record-Organiser/frmUserKonfig_AddUsers.resx
+++ b/app/DD-Record-Organiser/frmUserKonfig_AddUsers.resx
@ -154,6 +154,9 @@
        TgDQASA1MVpwzwAAAABJRU5ErkJggg==
 </value>
  </data>
+  <metadata name="ToolTipController1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>231, 17</value>
+  </metadata>
  <data name="$this.Icon" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
    <value>
        AAABAAYAMDAAAAEACACoDgAAZgAAACAgAAABAAgAqAgAAA4PAAAQEAAAAQAIAGgFAAC2FwAAMDAAAAEA
--- a/app/DD-Record-Organiser/frmUserKonfig_AddUsers.vb
+++ b/app/DD-Record-Organiser/frmUserKonfig_AddUsers.vb
@ -126,4 +126,15 @@ Public Class frmUserKonfig_AddUsers
            clbUsers.SetItemChecked(i, False)
        Next
    End Sub
+
+    Private Sub clbUsers_SelectedIndexChanged(sender As Object, e As EventArgs) Handles clbUsers.SelectedIndexChanged
+        ToolTipController1.HideHint()
+        Dim userstring As String = clbUsers.SelectedItem.ToString
+        Dim userldap As UserPrincipal = clbUsers.SelectedItem
+        Dim PRENAME As String = userldap.GivenName
+        Dim NAME As String = userldap.Surname
+        Dim USERNAME As String = userldap.SamAccountName
+        Dim email As String = userldap.EmailAddress
+        ToolTipController1.ShowHint("Used ldap paramters:", userstring & USERNAME & vbNewLine & email, DevExpress.Utils.ToolTipLocation.RightCenter)
+    End Sub
 End Class