AppStd/RecordOrganizer
8
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

MS_18052016

Browse Source
This commit is contained in:
SchreiberM 2016-05-18 16:50:49 +02:00
parent fc54eae3ab
commit 5841c62393
5 changed files with 469 additions and 128 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
app/DD-Record-Organiser/frmDD_EMAIL_ACCOUNT.vb
View File

@ -33,8 +33,8 @@
Private Sub btnEmailTest_Click(sender As Object, e As EventArgs) Handles btnEmailTest.Click
If txttestReceipiant.Text <> "" Then
If ClassEmail.Send_EMail(txttestReceipiant.Text, "Test Email Reminder", "Default-Bodytext: will be replaced with profile-bosytext.", EMAIL_SMTPTextBox.Text, EMAIL_USERTextBox.Text, EMAIL_PWTextBox.Text, EMAIL_FROMTextBox.Text, PORTTextBox.Text) = True Then
MsgBox("Testmail was send successfully!", MsgBoxStyle.Information, "Erfolgsmeldung:")
If ClassEmail.Send_EMail(txttestReceipiant.Text, "Test Email Reminder", "Default-Bodytext: will be replaced with profile-bodytext.", EMAIL_SMTPTextBox.Text, EMAIL_USERTextBox.Text, EMAIL_PWTextBox.Text, EMAIL_FROMTextBox.Text, PORTTextBox.Text) = True Then
MsgBox("Testmail was send successfully!", MsgBoxStyle.Information)
End If
End If
End Sub

191
app/DD-Record-Organiser/frmFollowUp.Designer.vb generated
View File

@ -58,9 +58,7 @@ Partial Class frmFollowUp
Me.cmbConstructor = New System.Windows.Forms.ComboBox()
Me.TBPMO_FORM_CONSTRUCTORBindingSource = New System.Windows.Forms.BindingSource(Me.components)
Me.GroupBox3 = New System.Windows.Forms.GroupBox()
Me.ListBoxUser2Profile = New System.Windows.Forms.ListBox()
Me.Label5 = New System.Windows.Forms.Label()
Me.cmbUser = New System.Windows.Forms.ComboBox()
Me.btnAddUser_WV = New System.Windows.Forms.Button()
Me.btndelete = New System.Windows.Forms.Button()
Me.FOLLOW_UP_DAYSTextBox = New System.Windows.Forms.TextBox()
@ -123,6 +121,21 @@ Partial Class frmFollowUp
Me.TBPMO_FOLLOW_UP_EMAILTableAdapter = New DD_Record_Organiser.DD_DMSDataSetTableAdapters.TBPMO_FOLLOW_UP_EMAILTableAdapter()
Me.TableAdapterManager = New DD_Record_Organiser.DD_DMSDataSetTableAdapters.TableAdapterManager()
Me.TBPMO_FORM_CONSTRUCTORTableAdapter = New DD_Record_Organiser.DD_DMSDataSetTableAdapters.TBPMO_FORM_CONSTRUCTORTableAdapter()
Me.GridControlUsers2Group = New DevExpress.XtraGrid.GridControl()
Me.GridViewlUsers2Group = New DevExpress.XtraGrid.Views.Grid.GridView()
Me.colSelect = New DevExpress.XtraGrid.Columns.GridColumn()
Me.GridColumn1 = New DevExpress.XtraGrid.Columns.GridColumn()
Me.GridColumn2 = New DevExpress.XtraGrid.Columns.GridColumn()
Me.colID = New DevExpress.XtraGrid.Columns.GridColumn()
Me.DD_ECMAdmin = New DD_Record_Organiser.DD_ECMAdmin()
Me.TBAD_UsersBindingSource = New System.Windows.Forms.BindingSource(Me.components)
Me.GridControl1 = New DevExpress.XtraGrid.GridControl()
Me.GridView1 = New DevExpress.XtraGrid.Views.Grid.GridView()
Me.GridColumn3 = New DevExpress.XtraGrid.Columns.GridColumn()
Me.GridColumn4 = New DevExpress.XtraGrid.Columns.GridColumn()
Me.GridColumn5 = New DevExpress.XtraGrid.Columns.GridColumn()
Me.GridColumn6 = New DevExpress.XtraGrid.Columns.GridColumn()
Me.TBWH_Users1BindingSource = New System.Windows.Forms.BindingSource(Me.components)
GUIDLabel = New System.Windows.Forms.Label()
FOLLOW_UP_SEQUENCELabel = New System.Windows.Forms.Label()
FOLLOW_UP_TIME_SPANLabel = New System.Windows.Forms.Label()
@ -162,6 +175,13 @@ Partial Class frmFollowUp
Me.XtraTabPage3.SuspendLayout()
CType(Me.GridResult, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.grvwResult, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.GridControlUsers2Group, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.GridViewlUsers2Group, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.DD_ECMAdmin, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.TBAD_UsersBindingSource, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.GridControl1, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.GridView1, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.TBWH_Users1BindingSource, System.ComponentModel.ISupportInitialize).BeginInit()
Me.SuspendLayout()
'
'GUIDLabel
@ -413,41 +433,25 @@ Partial Class frmFollowUp
'
'GroupBox3
'
Me.GroupBox3.Controls.Add(Me.ListBoxUser2Profile)
resources.ApplyResources(Me.GroupBox3, "GroupBox3")
Me.GroupBox3.Controls.Add(Me.GridControl1)
Me.GroupBox3.Controls.Add(Me.GridControlUsers2Group)
Me.GroupBox3.Controls.Add(Me.Label5)
Me.GroupBox3.Controls.Add(Me.cmbUser)
Me.GroupBox3.Controls.Add(Me.btnAddUser_WV)
Me.GroupBox3.Controls.Add(Me.btndelete)
resources.ApplyResources(Me.GroupBox3, "GroupBox3")
Me.GroupBox3.Name = "GroupBox3"
Me.GroupBox3.TabStop = False
'
'ListBoxUser2Profile
'
resources.ApplyResources(Me.ListBoxUser2Profile, "ListBoxUser2Profile")
Me.ListBoxUser2Profile.FormattingEnabled = True
Me.ListBoxUser2Profile.Name = "ListBoxUser2Profile"
Me.ListBoxUser2Profile.TabStop = False
'
'Label5
'
resources.ApplyResources(Me.Label5, "Label5")
Me.Label5.Name = "Label5"
'
'cmbUser
'
Me.cmbUser.DisplayMember = "FORM_TITLE"
resources.ApplyResources(Me.cmbUser, "cmbUser")
Me.cmbUser.FormattingEnabled = True
Me.cmbUser.Name = "cmbUser"
Me.cmbUser.TabStop = False
Me.cmbUser.ValueMember = "GUID"
'
'btnAddUser_WV
'
Me.btnAddUser_WV.BackColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(192, Byte), Integer), CType(CType(128, Byte), Integer))
resources.ApplyResources(Me.btnAddUser_WV, "btnAddUser_WV")
Me.btnAddUser_WV.Image = Global.DD_Record_Organiser.My.Resources.Resources.add
Me.btnAddUser_WV.Image = Global.DD_Record_Organiser.My.Resources.Resources.arrow_left
Me.btnAddUser_WV.Name = "btnAddUser_WV"
Me.btnAddUser_WV.TabStop = False
Me.btnAddUser_WV.UseVisualStyleBackColor = False
@ -901,6 +905,125 @@ Partial Class frmFollowUp
'
Me.TBPMO_FORM_CONSTRUCTORTableAdapter.ClearBeforeFill = True
'
'GridControlUsers2Group
'
resources.ApplyResources(Me.GridControlUsers2Group, "GridControlUsers2Group")
Me.GridControlUsers2Group.DataSource = Me.TBAD_UsersBindingSource
Me.GridControlUsers2Group.MainView = Me.GridViewlUsers2Group
Me.GridControlUsers2Group.Name = "GridControlUsers2Group"
Me.GridControlUsers2Group.ShowOnlyPredefinedDetails = True
Me.GridControlUsers2Group.ViewCollection.AddRange(New DevExpress.XtraGrid.Views.Base.BaseView() {Me.GridViewlUsers2Group})
'
'GridViewlUsers2Group
'
Me.GridViewlUsers2Group.Appearance.EvenRow.BackColor = CType(resources.GetObject("GridViewlUsers2Group.Appearance.EvenRow.BackColor"), System.Drawing.Color)
Me.GridViewlUsers2Group.Appearance.EvenRow.Options.UseBackColor = True
Me.GridViewlUsers2Group.Appearance.FocusedRow.BackColor = CType(resources.GetObject("GridViewlUsers2Group.Appearance.FocusedRow.BackColor"), System.Drawing.Color)
Me.GridViewlUsers2Group.Appearance.FocusedRow.Options.UseBackColor = True
Me.GridViewlUsers2Group.Columns.AddRange(New DevExpress.XtraGrid.Columns.GridColumn() {Me.colSelect, Me.GridColumn1, Me.GridColumn2, Me.colID})
Me.GridViewlUsers2Group.GridControl = Me.GridControlUsers2Group
Me.GridViewlUsers2Group.Name = "GridViewlUsers2Group"
Me.GridViewlUsers2Group.OptionsBehavior.AllowAddRows = DevExpress.Utils.DefaultBoolean.[False]
Me.GridViewlUsers2Group.OptionsBehavior.AllowDeleteRows = DevExpress.Utils.DefaultBoolean.[False]
Me.GridViewlUsers2Group.OptionsBehavior.CopyToClipboardWithColumnHeaders = False
Me.GridViewlUsers2Group.OptionsSelection.EnableAppearanceFocusedCell = False
Me.GridViewlUsers2Group.OptionsView.ColumnAutoWidth = False
Me.GridViewlUsers2Group.OptionsView.EnableAppearanceEvenRow = True
Me.GridViewlUsers2Group.OptionsView.ShowAutoFilterRow = True
Me.GridViewlUsers2Group.OptionsView.ShowGroupPanel = False
'
'colSelect
'
resources.ApplyResources(Me.colSelect, "colSelect")
Me.colSelect.FieldName = "Select"
Me.colSelect.Name = "colSelect"
'
'GridColumn1
'
Me.GridColumn1.FieldName = "Username"
Me.GridColumn1.Name = "GridColumn1"
Me.GridColumn1.OptionsColumn.AllowEdit = False
resources.ApplyResources(Me.GridColumn1, "GridColumn1")
'
'GridColumn2
'
Me.GridColumn2.FieldName = "Email"
Me.GridColumn2.Name = "GridColumn2"
Me.GridColumn2.OptionsColumn.AllowEdit = False
resources.ApplyResources(Me.GridColumn2, "GridColumn2")
'
'colID
'
Me.colID.FieldName = "ID"
Me.colID.Name = "colID"
'
'DD_ECMAdmin
'
Me.DD_ECMAdmin.DataSetName = "DD_ECMAdmin"
Me.DD_ECMAdmin.SchemaSerializationMode = System.Data.SchemaSerializationMode.IncludeSchema
'
'TBAD_UsersBindingSource
'
Me.TBAD_UsersBindingSource.DataMember = "TBAD_Users"
Me.TBAD_UsersBindingSource.DataSource = Me.DD_ECMAdmin
'
'GridControl1
'
resources.ApplyResources(Me.GridControl1, "GridControl1")
Me.GridControl1.DataSource = Me.TBWH_Users1BindingSource
Me.GridControl1.MainView = Me.GridView1
Me.GridControl1.Name = "GridControl1"
Me.GridControl1.ShowOnlyPredefinedDetails = True
Me.GridControl1.ViewCollection.AddRange(New DevExpress.XtraGrid.Views.Base.BaseView() {Me.GridView1})
'
'GridView1
'
Me.GridView1.Appearance.EvenRow.BackColor = CType(resources.GetObject("GridView1.Appearance.EvenRow.BackColor"), System.Drawing.Color)
Me.GridView1.Appearance.EvenRow.Options.UseBackColor = True
Me.GridView1.Appearance.FocusedRow.BackColor = CType(resources.GetObject("GridView1.Appearance.FocusedRow.BackColor"), System.Drawing.Color)
Me.GridView1.Appearance.FocusedRow.Options.UseBackColor = True
Me.GridView1.Columns.AddRange(New DevExpress.XtraGrid.Columns.GridColumn() {Me.GridColumn3, Me.GridColumn4, Me.GridColumn5, Me.GridColumn6})
Me.GridView1.GridControl = Me.GridControl1
Me.GridView1.Name = "GridView1"
Me.GridView1.OptionsBehavior.AllowAddRows = DevExpress.Utils.DefaultBoolean.[False]
Me.GridView1.OptionsBehavior.AllowDeleteRows = DevExpress.Utils.DefaultBoolean.[False]
Me.GridView1.OptionsBehavior.CopyToClipboardWithColumnHeaders = False
Me.GridView1.OptionsSelection.EnableAppearanceFocusedCell = False
Me.GridView1.OptionsView.ColumnAutoWidth = False
Me.GridView1.OptionsView.EnableAppearanceEvenRow = True
Me.GridView1.OptionsView.ShowAutoFilterRow = True
Me.GridView1.OptionsView.ShowGroupPanel = False
'
'GridColumn3
'
resources.ApplyResources(Me.GridColumn3, "GridColumn3")
Me.GridColumn3.FieldName = "Select"
Me.GridColumn3.Name = "GridColumn3"
'
'GridColumn4
'
Me.GridColumn4.FieldName = "Username"
Me.GridColumn4.Name = "GridColumn4"
Me.GridColumn4.OptionsColumn.AllowEdit = False
resources.ApplyResources(Me.GridColumn4, "GridColumn4")
'
'GridColumn5
'
Me.GridColumn5.FieldName = "Email"
Me.GridColumn5.Name = "GridColumn5"
Me.GridColumn5.OptionsColumn.AllowEdit = False
resources.ApplyResources(Me.GridColumn5, "GridColumn5")
'
'GridColumn6
'
Me.GridColumn6.FieldName = "ID"
Me.GridColumn6.Name = "GridColumn6"
'
'TBWH_Users1BindingSource
'
Me.TBWH_Users1BindingSource.DataMember = "TBWH_Users1"
Me.TBWH_Users1BindingSource.DataSource = Me.DD_ECMAdmin
'
'frmFollowUp
'
resources.ApplyResources(Me, "$this")
@ -926,6 +1049,13 @@ Partial Class frmFollowUp
Me.XtraTabPage3.ResumeLayout(False)
CType(Me.GridResult, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.grvwResult, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.GridControlUsers2Group, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.GridViewlUsers2Group, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.DD_ECMAdmin, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.TBAD_UsersBindingSource, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.GridControl1, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.GridView1, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.TBWH_Users1BindingSource, System.ComponentModel.ISupportInitialize).EndInit()
Me.ResumeLayout(False)
End Sub
@ -971,7 +1101,6 @@ Partial Class frmFollowUp
Friend WithEvents lblSaveWVEmail As System.Windows.Forms.Label
Friend WithEvents ListBox1 As System.Windows.Forms.ListBox
Friend WithEvents NAMETextBox As System.Windows.Forms.TextBox
Friend WithEvents ListBoxUser2Profile As System.Windows.Forms.ListBox
Friend WithEvents PROCESS_SELECT4TextBox As System.Windows.Forms.TextBox
Friend WithEvents PROCESS_SELECT3TextBox As System.Windows.Forms.TextBox
Friend WithEvents PROCESS_SELECT2TextBox As System.Windows.Forms.TextBox
@ -981,7 +1110,6 @@ Partial Class frmFollowUp
Friend WithEvents Label4 As System.Windows.Forms.Label
Friend WithEvents Label5 As System.Windows.Forms.Label
Friend WithEvents btnAddUser_WV As System.Windows.Forms.Button
Friend WithEvents cmbUser As System.Windows.Forms.ComboBox
Friend WithEvents btndelete As System.Windows.Forms.Button
Friend WithEvents PROCESS_SELECT5TextBox As System.Windows.Forms.TextBox
Friend WithEvents GroupBox1 As System.Windows.Forms.GroupBox
@ -1003,4 +1131,19 @@ Partial Class frmFollowUp
Friend WithEvents cmbCTRLUser_direct As System.Windows.Forms.ComboBox
Friend WithEvents GridResult As DevExpress.XtraGrid.GridControl
Friend WithEvents grvwResult As DevExpress.XtraGrid.Views.Grid.GridView
Friend WithEvents GridControlUsers2Group As DevExpress.XtraGrid.GridControl
Friend WithEvents GridViewlUsers2Group As DevExpress.XtraGrid.Views.Grid.GridView
Friend WithEvents colSelect As DevExpress.XtraGrid.Columns.GridColumn
Friend WithEvents GridColumn1 As DevExpress.XtraGrid.Columns.GridColumn
Friend WithEvents GridColumn2 As DevExpress.XtraGrid.Columns.GridColumn
Friend WithEvents colID As DevExpress.XtraGrid.Columns.GridColumn
Friend WithEvents GridControl1 As DevExpress.XtraGrid.GridControl
Friend WithEvents TBWH_Users1BindingSource As System.Windows.Forms.BindingSource
Friend WithEvents DD_ECMAdmin As DD_Record_Organiser.DD_ECMAdmin
Friend WithEvents GridView1 As DevExpress.XtraGrid.Views.Grid.GridView
Friend WithEvents GridColumn3 As DevExpress.XtraGrid.Columns.GridColumn
Friend WithEvents GridColumn4 As DevExpress.XtraGrid.Columns.GridColumn
Friend WithEvents GridColumn5 As DevExpress.XtraGrid.Columns.GridColumn
Friend WithEvents GridColumn6 As DevExpress.XtraGrid.Columns.GridColumn
Friend WithEvents TBAD_UsersBindingSource As System.Windows.Forms.BindingSource
End Class

306
app/DD-Record-Organiser/frmFollowUp.resx
View File

@ -402,7 +402,7 @@
<value>Segoe UI, 8.25pt, style=Italic</value>
</data>
<data name="ADDED_WHOLabel.Location" type="System.Drawing.Point, System.Drawing">
<value>549, 493</value>
<value>710, 190</value>
</data>
<data name="ADDED_WHOLabel.Size" type="System.Drawing.Size, System.Drawing">
<value>61, 13</value>
@ -435,7 +435,7 @@
<value>Segoe UI, 8.25pt, style=Italic</value>
</data>
<data name="ADDED_WHENLabel.Location" type="System.Drawing.Point, System.Drawing">
<value>710, 493</value>
<value>855, 189</value>
</data>
<data name="ADDED_WHENLabel.Size" type="System.Drawing.Size, System.Drawing">
<value>70, 13</value>
@ -468,7 +468,7 @@
<value>Segoe UI, 8.25pt, style=Italic</value>
</data>
<data name="CHANGED_WHOLabel.Location" type="System.Drawing.Point, System.Drawing">
<value>549, 534</value>
<value>710, 233</value>
</data>
<data name="CHANGED_WHOLabel.Size" type="System.Drawing.Size, System.Drawing">
<value>58, 13</value>
@ -501,7 +501,7 @@
<value>Segoe UI, 8.25pt, style=Italic</value>
</data>
<data name="CHANGED_WHENLabel.Location" type="System.Drawing.Point, System.Drawing">
<value>710, 534</value>
<value>855, 233</value>
</data>
<data name="CHANGED_WHENLabel.Size" type="System.Drawing.Size, System.Drawing">
<value>70, 13</value>
@ -774,7 +774,7 @@
<value>Segoe UI, 8.25pt, style=Italic</value>
</data>
<data name="Label6.Location" type="System.Drawing.Point, System.Drawing">
<value>549, 576</value>
<value>819, 277</value>
</data>
<data name="Label6.Size" type="System.Drawing.Size, System.Drawing">
<value>32, 13</value>
@ -915,9 +915,6 @@
<metadata name="TBPMO_FOLLOW_UP_EMAILBindingSource.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>160, 17</value>
</metadata>
<metadata name="DD_DMSDataSet.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>17, 17</value>
</metadata>
<data name="cmbCTRLGroup_direct.Font" type="System.Drawing.Font, System.Drawing">
<value>Segoe UI Semibold, 8.25pt, style=Bold, Italic</value>
</data>
@ -990,30 +987,138 @@
<data name="&gt;&gt;cmbConstructor.ZOrder" xml:space="preserve">
<value>5</value>
</data>
<data name="ListBoxUser2Profile.Font" type="System.Drawing.Font, System.Drawing">
<value>Segoe UI, 8.25pt</value>
<data name="GroupBox3.Anchor" type="System.Windows.Forms.AnchorStyles, System.Windows.Forms">
<value>Top, Bottom, Left</value>
</data>
<data name="ListBoxUser2Profile.Location" type="System.Drawing.Point, System.Drawing">
<value>21, 21</value>
<data name="GridControl1.Anchor" type="System.Windows.Forms.AnchorStyles, System.Windows.Forms">
<value>Top, Bottom, Left</value>
</data>
<data name="ListBoxUser2Profile.Size" type="System.Drawing.Size, System.Drawing">
<value>181, 134</value>
<metadata name="TBWH_Users1BindingSource.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>944, 56</value>
</metadata>
<metadata name="DD_ECMAdmin.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>614, 56</value>
</metadata>
<data name="GridControl1.Location" type="System.Drawing.Point, System.Drawing">
<value>534, 39</value>
</data>
<data name="ListBoxUser2Profile.TabIndex" type="System.Int32, mscorlib">
<value>80</value>
<data name="GridView1.Appearance.EvenRow.BackColor" type="System.Drawing.Color, System.Drawing">
<value>Cyan</value>
</data>
<data name="&gt;&gt;ListBoxUser2Profile.Name" xml:space="preserve">
<value>ListBoxUser2Profile</value>
<data name="GridView1.Appearance.FocusedRow.BackColor" type="System.Drawing.Color, System.Drawing">
<value>Fuchsia</value>
</data>
<data name="&gt;&gt;ListBoxUser2Profile.Type" xml:space="preserve">
<value>System.Windows.Forms.ListBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
<data name="GridColumn3.Caption" xml:space="preserve">
<value>Selection</value>
</data>
<data name="&gt;&gt;ListBoxUser2Profile.Parent" xml:space="preserve">
<data name="GridColumn3.Visible" type="System.Boolean, mscorlib">
<value>True</value>
</data>
<data name="GridColumn3.VisibleIndex" type="System.Int32, mscorlib">
<value>0</value>
</data>
<data name="GridColumn3.Width" type="System.Int32, mscorlib">
<value>54</value>
</data>
<data name="GridColumn4.Visible" type="System.Boolean, mscorlib">
<value>True</value>
</data>
<data name="GridColumn4.VisibleIndex" type="System.Int32, mscorlib">
<value>1</value>
</data>
<data name="GridColumn4.Width" type="System.Int32, mscorlib">
<value>107</value>
</data>
<data name="GridColumn5.Visible" type="System.Boolean, mscorlib">
<value>True</value>
</data>
<data name="GridColumn5.VisibleIndex" type="System.Int32, mscorlib">
<value>2</value>
</data>
<data name="GridColumn5.Width" type="System.Int32, mscorlib">
<value>102</value>
</data>
<data name="GridControl1.Size" type="System.Drawing.Size, System.Drawing">
<value>293, 184</value>
</data>
<data name="GridControl1.TabIndex" type="System.Int32, mscorlib">
<value>94</value>
</data>
<data name="&gt;&gt;GridControl1.Name" xml:space="preserve">
<value>GridControl1</value>
</data>
<data name="&gt;&gt;GridControl1.Type" xml:space="preserve">
<value>DevExpress.XtraGrid.GridControl, DevExpress.XtraGrid.v15.1, Version=15.1.7.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
</data>
<data name="&gt;&gt;GridControl1.Parent" xml:space="preserve">
<value>GroupBox3</value>
</data>
<data name="&gt;&gt;ListBoxUser2Profile.ZOrder" xml:space="preserve">
<data name="&gt;&gt;GridControl1.ZOrder" xml:space="preserve">
<value>0</value>
</data>
<data name="GridControlUsers2Group.Anchor" type="System.Windows.Forms.AnchorStyles, System.Windows.Forms">
<value>Top, Bottom, Left</value>
</data>
<metadata name="TBAD_UsersBindingSource.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>749, 56</value>
</metadata>
<data name="GridControlUsers2Group.Location" type="System.Drawing.Point, System.Drawing">
<value>10, 18</value>
</data>
<data name="GridViewlUsers2Group.Appearance.EvenRow.BackColor" type="System.Drawing.Color, System.Drawing">
<value>Cyan</value>
</data>
<data name="GridViewlUsers2Group.Appearance.FocusedRow.BackColor" type="System.Drawing.Color, System.Drawing">
<value>Fuchsia</value>
</data>
<data name="colSelect.Caption" xml:space="preserve">
<value>Selection</value>
</data>
<data name="colSelect.Visible" type="System.Boolean, mscorlib">
<value>True</value>
</data>
<data name="colSelect.VisibleIndex" type="System.Int32, mscorlib">
<value>0</value>
</data>
<data name="colSelect.Width" type="System.Int32, mscorlib">
<value>54</value>
</data>
<data name="GridColumn1.Visible" type="System.Boolean, mscorlib">
<value>True</value>
</data>
<data name="GridColumn1.VisibleIndex" type="System.Int32, mscorlib">
<value>1</value>
</data>
<data name="GridColumn1.Width" type="System.Int32, mscorlib">
<value>107</value>
</data>
<data name="GridColumn2.Visible" type="System.Boolean, mscorlib">
<value>True</value>
</data>
<data name="GridColumn2.VisibleIndex" type="System.Int32, mscorlib">
<value>2</value>
</data>
<data name="GridColumn2.Width" type="System.Int32, mscorlib">
<value>102</value>
</data>
<data name="GridControlUsers2Group.Size" type="System.Drawing.Size, System.Drawing">
<value>293, 202</value>
</data>
<data name="GridControlUsers2Group.TabIndex" type="System.Int32, mscorlib">
<value>93</value>
</data>
<data name="&gt;&gt;GridControlUsers2Group.Name" xml:space="preserve">
<value>GridControlUsers2Group</value>
</data>
<data name="&gt;&gt;GridControlUsers2Group.Type" xml:space="preserve">
<value>DevExpress.XtraGrid.GridControl, DevExpress.XtraGrid.v15.1, Version=15.1.7.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
</data>
<data name="&gt;&gt;GridControlUsers2Group.Parent" xml:space="preserve">
<value>GroupBox3</value>
</data>
<data name="&gt;&gt;GridControlUsers2Group.ZOrder" xml:space="preserve">
<value>1</value>
</data>
<data name="Label5.AutoSize" type="System.Boolean, mscorlib">
<value>True</value>
</data>
@ -1021,7 +1126,7 @@
<value>Segoe UI, 8.25pt</value>
</data>
<data name="Label5.Location" type="System.Drawing.Point, System.Drawing">
<value>213, 21</value>
<value>531, 18</value>
</data>
<data name="Label5.Size" type="System.Drawing.Size, System.Drawing">
<value>92, 13</value>
@ -1042,30 +1147,6 @@
<value>GroupBox3</value>
</data>
<data name="&gt;&gt;Label5.ZOrder" xml:space="preserve">
<value>1</value>
</data>
<data name="cmbUser.Font" type="System.Drawing.Font, System.Drawing">
<value>Segoe UI, 8.25pt</value>
</data>
<data name="cmbUser.Location" type="System.Drawing.Point, System.Drawing">
<value>216, 37</value>
</data>
<data name="cmbUser.Size" type="System.Drawing.Size, System.Drawing">
<value>234, 21</value>
</data>
<data name="cmbUser.TabIndex" type="System.Int32, mscorlib">
<value>89</value>
</data>
<data name="&gt;&gt;cmbUser.Name" xml:space="preserve">
<value>cmbUser</value>
</data>
<data name="&gt;&gt;cmbUser.Type" xml:space="preserve">
<value>System.Windows.Forms.ComboBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</data>
<data name="&gt;&gt;cmbUser.Parent" xml:space="preserve">
<value>GroupBox3</value>
</data>
<data name="&gt;&gt;cmbUser.ZOrder" xml:space="preserve">
<value>2</value>
</data>
<data name="btnAddUser_WV.Font" type="System.Drawing.Font, System.Drawing">
@ -1075,10 +1156,10 @@
<value>MiddleLeft</value>
</data>
<data name="btnAddUser_WV.Location" type="System.Drawing.Point, System.Drawing">
<value>216, 64</value>
<value>309, 21</value>
</data>
<data name="btnAddUser_WV.Size" type="System.Drawing.Size, System.Drawing">
<value>234, 23</value>
<value>216, 23</value>
</data>
<data name="btnAddUser_WV.TabIndex" type="System.Int32, mscorlib">
<value>90</value>
@ -1108,10 +1189,10 @@
<value>MiddleLeft</value>
</data>
<data name="btndelete.Location" type="System.Drawing.Point, System.Drawing">
<value>216, 93</value>
<value>309, 50</value>
</data>
<data name="btndelete.Size" type="System.Drawing.Size, System.Drawing">
<value>234, 23</value>
<value>216, 23</value>
</data>
<data name="btndelete.TabIndex" type="System.Int32, mscorlib">
<value>92</value>
@ -1141,7 +1222,7 @@
<value>67, 493</value>
</data>
<data name="GroupBox3.Size" type="System.Drawing.Size, System.Drawing">
<value>479, 160</value>
<value>1062, 226</value>
</data>
<data name="GroupBox3.TabIndex" type="System.Int32, mscorlib">
<value>103</value>
@ -1162,10 +1243,10 @@
<value>6</value>
</data>
<data name="FOLLOW_UP_DAYSTextBox.Location" type="System.Drawing.Point, System.Drawing">
<value>552, 592</value>
<value>858, 274</value>
</data>
<data name="FOLLOW_UP_DAYSTextBox.Size" type="System.Drawing.Size, System.Drawing">
<value>99, 21</value>
<value>78, 21</value>
</data>
<data name="FOLLOW_UP_DAYSTextBox.TabIndex" type="System.Int32, mscorlib">
<value>101</value>
@ -1315,7 +1396,7 @@
<value>True</value>
</data>
<data name="Label4.Location" type="System.Drawing.Point, System.Drawing">
<value>781, 26</value>
<value>710, 25</value>
</data>
<data name="Label4.Size" type="System.Drawing.Size, System.Drawing">
<value>111, 13</value>
@ -1489,10 +1570,10 @@
<value>26</value>
</data>
<data name="ListBox1.Location" type="System.Drawing.Point, System.Drawing">
<value>784, 42</value>
<value>713, 41</value>
</data>
<data name="ListBox1.Size" type="System.Drawing.Size, System.Drawing">
<value>265, 225</value>
<value>265, 134</value>
</data>
<data name="ListBox1.TabIndex" type="System.Int32, mscorlib">
<value>1</value>
@ -1516,7 +1597,7 @@
<value>Segoe UI, 9.75pt, style=Bold</value>
</data>
<data name="lblSaveWVEmail.Location" type="System.Drawing.Point, System.Drawing">
<value>867, 511</value>
<value>620, 274</value>
</data>
<data name="lblSaveWVEmail.Size" type="System.Drawing.Size, System.Drawing">
<value>219, 17</value>
@ -1546,7 +1627,7 @@
<value>Segoe UI, 8.25pt, style=Italic</value>
</data>
<data name="CHANGED_WHENTextBox.Location" type="System.Drawing.Point, System.Drawing">
<value>713, 550</value>
<value>858, 249</value>
</data>
<data name="CHANGED_WHENTextBox.Size" type="System.Drawing.Size, System.Drawing">
<value>150, 22</value>
@ -1570,7 +1651,7 @@
<value>Segoe UI, 8.25pt, style=Italic</value>
</data>
<data name="CHANGED_WHOTextBox.Location" type="System.Drawing.Point, System.Drawing">
<value>552, 550</value>
<value>713, 249</value>
</data>
<data name="CHANGED_WHOTextBox.Size" type="System.Drawing.Size, System.Drawing">
<value>138, 22</value>
@ -1594,7 +1675,7 @@
<value>Segoe UI, 8.25pt, style=Italic</value>
</data>
<data name="ADDED_WHENTextBox.Location" type="System.Drawing.Point, System.Drawing">
<value>713, 509</value>
<value>858, 206</value>
</data>
<data name="ADDED_WHENTextBox.Size" type="System.Drawing.Size, System.Drawing">
<value>150, 22</value>
@ -1618,7 +1699,7 @@
<value>Segoe UI, 8.25pt, style=Italic</value>
</data>
<data name="ADDED_WHOTextBox.Location" type="System.Drawing.Point, System.Drawing">
<value>552, 509</value>
<value>713, 206</value>
</data>
<data name="ADDED_WHOTextBox.Size" type="System.Drawing.Size, System.Drawing">
<value>138, 22</value>
@ -1938,6 +2019,12 @@
<data name="BindingNavigatorAddNewItem.Text" xml:space="preserve">
<value>Neu hinzufügen</value>
</data>
<metadata name="TBPMO_FOLLOW_UP_EMAILBindingSource.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>160, 17</value>
</metadata>
<metadata name="DD_DMSDataSet.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>17, 17</value>
</metadata>
<data name="BindingNavigatorCountItem.Size" type="System.Drawing.Size, System.Drawing">
<value>122, 22</value>
</data>
@ -2085,7 +2172,7 @@
<value>0, 0</value>
</data>
<data name="TBPMO_FOLLOW_UP_EMAILBindingNavigator.Size" type="System.Drawing.Size, System.Drawing">
<value>1105, 25</value>
<value>1129, 25</value>
</data>
<data name="TBPMO_FOLLOW_UP_EMAILBindingNavigator.TabIndex" type="System.Int32, mscorlib">
<value>1</value>
@ -2106,7 +2193,7 @@
<value>57</value>
</data>
<data name="XtraTabPage1.Size" type="System.Drawing.Size, System.Drawing">
<value>1105, 665</value>
<value>1105, 736</value>
</data>
<data name="XtraTabPage1.Text" xml:space="preserve">
<value>Wiedervorlage per E-Mail</value>
@ -2124,7 +2211,7 @@
<value>0</value>
</data>
<data name="XtraTabControl1.Size" type="System.Drawing.Size, System.Drawing">
<value>1111, 693</value>
<value>1111, 764</value>
</data>
<data name="XtraTabControl1.TabIndex" type="System.Int32, mscorlib">
<value>0</value>
@ -2190,7 +2277,7 @@
<value>4</value>
</data>
<data name="XtraTabPage2.Size" type="System.Drawing.Size, System.Drawing">
<value>987, 614</value>
<value>1105, 665</value>
</data>
<data name="XtraTabPage2.Text" xml:space="preserve">
<value>Grundeinstellungen Wiedervorlage</value>
@ -2220,7 +2307,7 @@
<value>0</value>
</data>
<data name="XtraTabPage3.Size" type="System.Drawing.Size, System.Drawing">
<value>987, 614</value>
<value>1105, 665</value>
</data>
<data name="XtraTabPage3.Text" xml:space="preserve">
<value>Aktuelle Datensätze zur Wiedervorlage</value>
@ -2589,7 +2676,7 @@
<value>Cyan</value>
</data>
<data name="GridResult.Size" type="System.Drawing.Size, System.Drawing">
<value>987, 614</value>
<value>1105, 665</value>
</data>
<data name="GridResult.TabIndex" type="System.Int32, mscorlib">
<value>1</value>
@ -2615,6 +2702,9 @@
<metadata name="TBPMO_FORM_CONSTRUCTORTableAdapter.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>318, 56</value>
</metadata>
<metadata name="DD_ECMAdmin.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>614, 56</value>
</metadata>
<metadata name="$this.Localizable" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>True</value>
</metadata>
@ -2622,7 +2712,7 @@
<value>6, 13</value>
</data>
<data name="$this.ClientSize" type="System.Drawing.Size, System.Drawing">
<value>1111, 693</value>
<value>1111, 764</value>
</data>
<data name="$this.Font" type="System.Drawing.Font, System.Drawing">
<value>Segoe UI, 8.25pt</value>
@ -3193,6 +3283,84 @@
<data name="&gt;&gt;TBPMO_FORM_CONSTRUCTORTableAdapter.Type" xml:space="preserve">
<value>DD_Record_Organiser.DD_DMSDataSetTableAdapters.TBPMO_FORM_CONSTRUCTORTableAdapter, DD_DMSDataSet1.Designer.vb, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null</value>
</data>
<data name="&gt;&gt;GridViewlUsers2Group.Name" xml:space="preserve">
<value>GridViewlUsers2Group</value>
</data>
<data name="&gt;&gt;GridViewlUsers2Group.Type" xml:space="preserve">
<value>DevExpress.XtraGrid.Views.Grid.GridView, DevExpress.XtraGrid.v15.1, Version=15.1.7.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
</data>
<data name="&gt;&gt;colSelect.Name" xml:space="preserve">
<value>colSelect</value>
</data>
<data name="&gt;&gt;colSelect.Type" xml:space="preserve">
<value>DevExpress.XtraGrid.Columns.GridColumn, DevExpress.XtraGrid.v15.1, Version=15.1.7.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
</data>
<data name="&gt;&gt;GridColumn1.Name" xml:space="preserve">
<value>GridColumn1</value>
</data>
<data name="&gt;&gt;GridColumn1.Type" xml:space="preserve">
<value>DevExpress.XtraGrid.Columns.GridColumn, DevExpress.XtraGrid.v15.1, Version=15.1.7.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
</data>
<data name="&gt;&gt;GridColumn2.Name" xml:space="preserve">
<value>GridColumn2</value>
</data>
<data name="&gt;&gt;GridColumn2.Type" xml:space="preserve">
<value>DevExpress.XtraGrid.Columns.GridColumn, DevExpress.XtraGrid.v15.1, Version=15.1.7.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
</data>
<data name="&gt;&gt;colID.Name" xml:space="preserve">
<value>colID</value>
</data>
<data name="&gt;&gt;colID.Type" xml:space="preserve">
<value>DevExpress.XtraGrid.Columns.GridColumn, DevExpress.XtraGrid.v15.1, Version=15.1.7.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
</data>
<data name="&gt;&gt;DD_ECMAdmin.Name" xml:space="preserve">
<value>DD_ECMAdmin</value>
</data>
<data name="&gt;&gt;DD_ECMAdmin.Type" xml:space="preserve">
<value>DD_Record_Organiser.DD_ECMAdmin, DD_ECMAdmin.Designer.vb, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null</value>
</data>
<data name="&gt;&gt;TBAD_UsersBindingSource.Name" xml:space="preserve">
<value>TBAD_UsersBindingSource</value>
</data>
<data name="&gt;&gt;TBAD_UsersBindingSource.Type" xml:space="preserve">
<value>System.Windows.Forms.BindingSource, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</data>
<data name="&gt;&gt;GridView1.Name" xml:space="preserve">
<value>GridView1</value>
</data>
<data name="&gt;&gt;GridView1.Type" xml:space="preserve">
<value>DevExpress.XtraGrid.Views.Grid.GridView, DevExpress.XtraGrid.v15.1, Version=15.1.7.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
</data>
<data name="&gt;&gt;GridColumn3.Name" xml:space="preserve">
<value>GridColumn3</value>
</data>
<data name="&gt;&gt;GridColumn3.Type" xml:space="preserve">
<value>DevExpress.XtraGrid.Columns.GridColumn, DevExpress.XtraGrid.v15.1, Version=15.1.7.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
</data>
<data name="&gt;&gt;GridColumn4.Name" xml:space="preserve">
<value>GridColumn4</value>
</data>
<data name="&gt;&gt;GridColumn4.Type" xml:space="preserve">
<value>DevExpress.XtraGrid.Columns.GridColumn, DevExpress.XtraGrid.v15.1, Version=15.1.7.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
</data>
<data name="&gt;&gt;GridColumn5.Name" xml:space="preserve">
<value>GridColumn5</value>
</data>
<data name="&gt;&gt;GridColumn5.Type" xml:space="preserve">
<value>DevExpress.XtraGrid.Columns.GridColumn, DevExpress.XtraGrid.v15.1, Version=15.1.7.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
</data>
<data name="&gt;&gt;GridColumn6.Name" xml:space="preserve">
<value>GridColumn6</value>
</data>
<data name="&gt;&gt;GridColumn6.Type" xml:space="preserve">
<value>DevExpress.XtraGrid.Columns.GridColumn, DevExpress.XtraGrid.v15.1, Version=15.1.7.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
</data>
<data name="&gt;&gt;TBWH_Users1BindingSource.Name" xml:space="preserve">
<value>TBWH_Users1BindingSource</value>
</data>
<data name="&gt;&gt;TBWH_Users1BindingSource.Type" xml:space="preserve">
<value>System.Windows.Forms.BindingSource, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</data>
<data name="&gt;&gt;$this.Name" xml:space="preserve">
<value>frmFollowUp</value>
</data>

82
app/DD-Record-Organiser/frmFollowUp.vb
View File

@ -51,7 +51,7 @@
Private Sub frmWiedervorlage_Load(sender As Object, e As EventArgs) Handles MyBase.Load
'TODO: Diese Codezeile lädt Daten in die Tabelle "DD_DMSDataSet.TBPMO_FORM_CONSTRUCTOR". Sie können sie bei Bedarf verschieben oder entfernen.
Me.Cursor = Cursors.WaitCursor
Try
Dim DT1 As DataTable = ClassDatabase.Return_Datatable("SELECT [CONTROL_ID] ,[FORM_NAME] + ' | ' + [CONTROL_NAME] AS DISPLAY FROM [VWPMO_CONTROL_SCREEN] WHERE CTRLTYPE_ID = 4 ORDER BY FORM_ID")
Dim DT2 As DataTable = ClassDatabase.Return_Datatable("SELECT [CONTROL_ID] ,[FORM_NAME] + ' | ' + [CONTROL_NAME] AS DISPLAY FROM [VWPMO_CONTROL_SCREEN] WHERE CTRLTYPE_ID = 10 ORDER BY FORM_ID")
@ -70,11 +70,23 @@
DEPENDENT_DONE_CTRL_IDComboBox.DisplayMember = DT2.Columns(1).ColumnName
DEPENDENT_DONE_CTRL_IDComboBox.ValueMember = DT2.Columns(0).ColumnName
DD_ECMAdmin.TBWH_Users1.Clear()
For Each userrow As DataRow In DTUser.Rows
Dim newUserRow As DD_ECMAdmin.TBWH_Users1Row
newUserRow = DD_ECMAdmin.TBWH_Users1.NewTBWH_Users1Row
newUserRow.Username = userrow.Item(1)
Try
newUserRow.Email = userrow.Item(2)
Catch ex As Exception
newUserRow.Email = ""
End Try
newUserRow.ID = userrow.Item(0)
DD_ECMAdmin.TBWH_Users1.Rows.Add(newUserRow)
'clbUsersGroups.Items.Add(New MyListBoxItem() With {.Text = userrow.Item(1), .ExtraData = userrow.Item(0)})
Next
cmbUser.DataSource = DTUser
cmbUser.DisplayMember = DTUser.Columns(1).ColumnName
cmbUser.ValueMember = DTUser.Columns(0).ColumnName
TBPMO_FOLLOW_UP_EMAILTableAdapter.Connection.ConnectionString = MyConnectionString
Me.TBPMO_FORM_CONSTRUCTORTableAdapter.Connection.ConnectionString = MyConnectionString
Me.TBPMO_FORM_CONSTRUCTORTableAdapter.Fill(Me.DD_DMSDataSet.TBPMO_FORM_CONSTRUCTOR, USER_LANGUAGE, CURRENT_SCREEN_ID, USER_GUID)
@ -83,7 +95,7 @@
Catch ex As Exception
MsgBox("Error in Load Form:" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
End Try
Me.Cursor = Cursors.Default
End Sub
Sub Load_WV_PRofiles()
Try
@ -171,11 +183,22 @@
End Sub
Sub Load_User_2_Profile(ID As Integer)
Try
DD_ECMAdmin.TBAD_Users.Clear()
Dim sql = "SELECT T.GUID, T1.USERNAME FROM TBPMO_FOLLUPEMAIL_USER T, TBDD_USER T1 WHERE T.USER_ID = T1.GUID AND T.FOLLOW_UP_ID = " & GUIDTextBox.Text & " ORDER BY T1.USERNAME"
Dim DT As DataTable = ClassDatabase.Return_Datatable(sql)
ListBoxUser2Profile.DataSource = DT
ListBoxUser2Profile.DisplayMember = DT.Columns(1).ColumnName
ListBoxUser2Profile.ValueMember = DT.Columns(0).ColumnName
For Each userrow As DataRow In DT.Rows
Dim newUserRow As DD_ECMAdmin.TBAD_UsersRow
newUserRow = DD_ECMAdmin.TBAD_Users.NewTBAD_UsersRow
newUserRow.Username = userrow.Item(1)
Try
newUserRow.Email = userrow.Item(2)
Catch ex As Exception
newUserRow.Email = ""
End Try
newUserRow.ID = userrow.Item(0)
DD_ECMAdmin.TBAD_Users.Rows.Add(newUserRow)
Next
Catch ex As Exception
MsgBox("Fehler bei LaodUser2Profile:" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
End Try
@ -190,29 +213,36 @@
End Sub
Private Sub btnAddUser_WV_Click(sender As Object, e As EventArgs) Handles btnAddUser_WV.Click
If cmbUser.SelectedIndex <> -1 Then
Try
Dim ins = "insert into TBPMO_FOLLUPEMAIL_USER (USER_ID,FOLLOW_UP_ID,ADDED_WHO) VALUES (" & cmbUser.SelectedValue & ", " & Me.GUIDTextBox.Text & ", '" & Environment.UserName & "')"
If ClassDatabase.Execute_non_Query(ins, True) = True Then
Load_User_2_Profile(Me.GUIDTextBox.Text)
For Each row As DataRow In DD_ECMAdmin.TBWH_Users1.Rows
If row.Item(0) = CBool(True) Then
Dim sql = "select count(*) from TBPMO_FOLLUPEMAIL_USER Where user_id = " & row.Item(5) & " AND FOLLOW_UP_ID = " & Me.GUIDTextBox.Text
If ClassDatabase.Execute_Scalar(sql) = 0 Then
Dim ins = "insert into TBPMO_FOLLUPEMAIL_USER (USER_ID,FOLLOW_UP_ID,ADDED_WHO) VALUES (" & row.Item(5) & ", " & Me.GUIDTextBox.Text & ", '" & Environment.UserName & "')"
If ClassDatabase.Execute_non_Query(ins) = False Then
MsgBox(String.Format("Error in Adding User {0} to FollowUp!", row.Item(1)), MsgBoxStyle.Critical)
End If
End If
Catch ex As Exception
MsgBox("Fehler bei AddUser2Profile:" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
End Try
End If
End If
Next
For Each row As DataRow In DD_ECMAdmin.TBWH_Users1.Rows
row.Item(0) = CBool(False)
Next
Load_User_2_Profile(Me.GUIDTextBox.Text)
End Sub
Private Sub btndelete_Click(sender As Object, e As EventArgs) Handles btndelete.Click
If ListBoxUser2Profile.SelectedIndex <> -1 Then
Try
Dim del = "DELETE FROM TBPMO_FOLLUPEMAIL_USER WHERE GUID = " & ListBoxUser2Profile.SelectedValue
If ClassDatabase.Execute_non_Query(del, True) = True Then
Load_User_2_Profile(Me.GUIDTextBox.Text)
For Each row As DataRow In DD_ECMAdmin.TBAD_Users.Rows
If row.Item(0) = CBool(True) Then
Dim sql
sql = String.Format("DELETE FROM TBPMO_FOLLUPEMAIL_USER WHERE GUID = {0}", row.Item(5))
If ClassDatabase.Execute_non_Query(sql, True) = False Then
MsgBox(String.Format("Error in deleting User {0} from FollowUp", row.Item(1)), MsgBoxStyle.Critical)
End If
Catch ex As Exception
MsgBox("Fehler bei DeleteUserRelation:" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
End Try
End If
End If
Next
Load_User_2_Profile(Me.GUIDTextBox.Text)
End Sub
Private Sub frmWiedervorlage_Shown(sender As Object, e As EventArgs) Handles Me.Shown
If Me.GUIDTextBox.Text <> "" Then

14
app/DD-Record-Organiser/frmUserKonfig.resx
View File

@ -1809,7 +1809,7 @@
<value>17, 134</value>
</metadata>
<metadata name="DD_ECMAdmin.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>729, 95</value>
<value>822, 95</value>
</metadata>
<data name="GridControlWH_Users1.Location" type="System.Drawing.Point, System.Drawing">
<value>667, 19</value>
@ -1872,7 +1872,7 @@
<value>Top, Bottom, Left</value>
</data>
<metadata name="TBAD_UsersBindingSource.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>864, 95</value>
<value>957, 95</value>
</metadata>
<data name="GridControlUsers2Group.Location" type="System.Drawing.Point, System.Drawing">
<value>229, 19</value>
@ -2598,7 +2598,7 @@ Gruppe hinzufügen</value>
<value>True</value>
</data>
<metadata name="BindingNavigator2.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>575, 95</value>
<value>668, 95</value>
</metadata>
<data name="ToolStripButton17.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
@ -2831,7 +2831,7 @@ Gruppe hinzufügen</value>
<value>1</value>
</data>
<metadata name="TBDD_CLIENTBindingSource.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>171, 95</value>
<value>264, 95</value>
</metadata>
<data name="GUIDTextBox.Font" type="System.Drawing.Font, System.Drawing">
<value>Tahoma, 8.25pt, style=Italic</value>
@ -3456,7 +3456,7 @@ Mandant hinzufügen</value>
<value>259, 56</value>
</metadata>
<metadata name="TBDD_USER_GROUPSTableAdapter.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>1176, 17</value>
<value>17, 56</value>
</metadata>
<metadata name="VWPMO_USERS_GROUPSTableAdapter.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>529, 56</value>
@ -3519,7 +3519,7 @@ Mandant hinzufügen</value>
<value>9</value>
</data>
<metadata name="TBDD_GROUPS_USERBindingSource.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>947, 56</value>
<value>17, 95</value>
</metadata>
<data name="Label5.AutoSize" type="System.Boolean, mscorlib">
<value>True</value>
@ -3576,7 +3576,7 @@ Mandant hinzufügen</value>
<value>6</value>
</data>
<metadata name="TBDD_CLIENTTableAdapter.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>376, 95</value>
<value>469, 95</value>
</metadata>
<data name="GridControl1.Anchor" type="System.Windows.Forms.AnchorStyles, System.Windows.Forms">
<value>Top, Left, Right</value>