AppStd/TaskFlow
8
1
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

MS

Browse Source
This commit is contained in:
Digital Data - Marlon Schreiber 2018-02-14 17:32:57 +01:00
parent 496340e8d8
commit e2bd77047e
21 changed files with 2121 additions and 502 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
app/DD_PM_WINDREAM/App.config
View File

@ -6,7 +6,7 @@
</sectionGroup>
</configSections>
<connectionStrings>
<add name="DD_PM_WINDREAM.My.MySettings.ConnectionString" connectionString="Data Source=172.24.12.41\Tests;Initial Catalog=DD_DMS;Persist Security Info=True;User ID=sa;Password=dd"
<add name="DD_PM_WINDREAM.My.MySettings.ConnectionString" connectionString="Data Source=172.24.12.41\Tests;Initial Catalog=DD_ECM_TEST;Persist Security Info=True;User ID=sa;Password=dd"
providerName="System.Data.SqlClient" />
</connectionStrings>
<startup>

31
app/DD_PM_WINDREAM/ClassAnnotation.vb Normal file
View File

@ -0,0 +1,31 @@
Imports PdfSharp.Pdf
Imports PdfSharp.Pdf.Annotations
Imports PdfSharp.Pdf.IO
Imports PdfSharp.Drawing
Public Class ClassAnnotation
Public Shared Function Annotate_PDF(title As String, content As String, page As Integer, Optional ycorrect As Integer = 0, Optional sizecorrect As Integer = 0)
Try
Dim doc As PdfDocument = PdfReader.Open(CURRENT_DOC_PATH, PdfDocumentOpenMode.Modify)
Dim firstPage As PdfPage = doc.Pages(page)
Dim gfx As XGraphics = XGraphics.FromPdfPage(firstPage)
Dim rect As XRect = gfx.Transformer.WorldToDefaultPage(New XRect(New XPoint(30, 60 + ycorrect), New XSize(60 + sizecorrect, 40 + sizecorrect)))
Dim annot As PdfTextAnnotation = New PdfTextAnnotation
annot.Title = title
'annot.Subject = txtsubject.Text
annot.Contents = content
annot.Rectangle = New PdfRectangle(rect)
firstPage.Annotations.Add(annot)
doc.Save(CURRENT_DOC_PATH)
Return True
Catch ex As Exception
ClassLogger.Add("Unexpected error in Annotate pdf: " & ex.Message, False)
Return False
End Try
End Function
End Class

7
app/DD_PM_WINDREAM/ClassInit.vb
View File

@ -79,19 +79,20 @@ Public Class ClassInit
End Sub
Public Sub InitUserLogin()
Try
USER_USERNAME = Environment.UserName
Dim sql = String.Format("SELECT MAX(GUID) FROM TBPM_USER WHERE LOWER(USERNAME) = LOWER('{0}')", Environment.UserName)
ClassLogger.Add(">> Username: " & Environment.UserName, False)
ClassLogger.Add(">> Username: " & USER_USERNAME, False)
CURRENT_USERID = ClassDatabase.Execute_Scalar(sql, MyConnectionString, True)
If IsDBNull(CURRENT_USERID) Then
ClassLogger.Add("User '" & Environment.UserName & "' not configured in Useradministration! (DBNull)", True)
ClassLogger.Add("User '" & USER_USERNAME & "' not configured in Useradministration! (DBNull)", True)
'MsgBox("Achtung: Sie sind nicht in der Userverwaltung hinterlegt." & vbNewLine & "Bitte setzen Sie sich mit dem Systembetreuer in Verbindung!", MsgBoxStyle.Critical, "Achtung:")
'Me.Close()
ERROR_STATE = "NO USER"
Throw New Exception("You are not configured in the Useradministration." & vbNewLine & "Please contact the system administrator!")
Else
If IsNothing(CURRENT_USERID) Then
ClassLogger.Add(" - User: " & Environment.UserName & " ' not configured in Useradministration! (nothing)", False)
ClassLogger.Add(" - User: " & USER_USERNAME & " ' not configured in Useradministration! (nothing)", False)
ERROR_STATE = "NO USER"
Throw New Exception("You are not configured in the Useradministration." & vbNewLine & "Please contact the system administrator!")
Else

274
app/DD_PM_WINDREAM/DD_DMSLiteDataSet.Designer.vb generated
View File

@ -5408,6 +5408,14 @@ Partial Public Class DD_DMSLiteDataSet
Private columnLOG_INDEX As Global.System.Data.DataColumn
Private columnSQL_VIEW As Global.System.Data.DataColumn
Private columnANNOTATE_ALL_WORK_HISTORY_ENTRIES As Global.System.Data.DataColumn
Private columnANNOTATE_WORK_HISTORY_ENTRY As Global.System.Data.DataColumn
Private columnWORK_HISTORY_ENTRY As Global.System.Data.DataColumn
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
Public Sub New()
@ -5603,6 +5611,38 @@ Partial Public Class DD_DMSLiteDataSet
End Get
End Property
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
Public ReadOnly Property SQL_VIEWColumn() As Global.System.Data.DataColumn
Get
Return Me.columnSQL_VIEW
End Get
End Property
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
Public ReadOnly Property ANNOTATE_ALL_WORK_HISTORY_ENTRIESColumn() As Global.System.Data.DataColumn
Get
Return Me.columnANNOTATE_ALL_WORK_HISTORY_ENTRIES
End Get
End Property
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
Public ReadOnly Property ANNOTATE_WORK_HISTORY_ENTRYColumn() As Global.System.Data.DataColumn
Get
Return Me.columnANNOTATE_WORK_HISTORY_ENTRY
End Get
End Property
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
Public ReadOnly Property WORK_HISTORY_ENTRYColumn() As Global.System.Data.DataColumn
Get
Return Me.columnWORK_HISTORY_ENTRY
End Get
End Property
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0"), _
Global.System.ComponentModel.Browsable(false)> _
@ -5659,9 +5699,13 @@ Partial Public Class DD_DMSLiteDataSet
ByVal WD_OBJECTTYPE As String, _
ByVal SORT_BY_LATEST As Boolean, _
ByVal PM_VEKTOR_INDEX As String, _
ByVal LOG_INDEX As String) As TBPM_PROFILERow
ByVal LOG_INDEX As String, _
ByVal SQL_VIEW As String, _
ByVal ANNOTATE_ALL_WORK_HISTORY_ENTRIES As Boolean, _
ByVal ANNOTATE_WORK_HISTORY_ENTRY As Boolean, _
ByVal WORK_HISTORY_ENTRY As String) As TBPM_PROFILERow
Dim rowTBPM_PROFILERow As TBPM_PROFILERow = CType(Me.NewRow,TBPM_PROFILERow)
Dim columnValuesArray() As Object = New Object() {Nothing, NAME, TITLE, PRIORITY, DESCRIPTION, ACTIVE, WD_SEARCH, NO_OF_DOCUMENTS, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, FINAL_PROFILE, FINAL_TEXT, MOVE2FOLDER, Nothing, WD_OBJECTTYPE, SORT_BY_LATEST, PM_VEKTOR_INDEX, LOG_INDEX}
Dim columnValuesArray() As Object = New Object() {Nothing, NAME, TITLE, PRIORITY, DESCRIPTION, ACTIVE, WD_SEARCH, NO_OF_DOCUMENTS, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, FINAL_PROFILE, FINAL_TEXT, MOVE2FOLDER, Nothing, WD_OBJECTTYPE, SORT_BY_LATEST, PM_VEKTOR_INDEX, LOG_INDEX, SQL_VIEW, ANNOTATE_ALL_WORK_HISTORY_ENTRIES, ANNOTATE_WORK_HISTORY_ENTRY, WORK_HISTORY_ENTRY}
If (Not (parentTBPM_TYPERowByFK_TBPM_PROFILE_TYPE1) Is Nothing) Then
columnValuesArray(15) = parentTBPM_TYPERowByFK_TBPM_PROFILE_TYPE1(0)
End If
@ -5713,6 +5757,10 @@ Partial Public Class DD_DMSLiteDataSet
Me.columnSORT_BY_LATEST = MyBase.Columns("SORT_BY_LATEST")
Me.columnPM_VEKTOR_INDEX = MyBase.Columns("PM_VEKTOR_INDEX")
Me.columnLOG_INDEX = MyBase.Columns("LOG_INDEX")
Me.columnSQL_VIEW = MyBase.Columns("SQL_VIEW")
Me.columnANNOTATE_ALL_WORK_HISTORY_ENTRIES = MyBase.Columns("ANNOTATE_ALL_WORK_HISTORY_ENTRIES")
Me.columnANNOTATE_WORK_HISTORY_ENTRY = MyBase.Columns("ANNOTATE_WORK_HISTORY_ENTRY")
Me.columnWORK_HISTORY_ENTRY = MyBase.Columns("WORK_HISTORY_ENTRY")
End Sub
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
@ -5758,6 +5806,14 @@ Partial Public Class DD_DMSLiteDataSet
MyBase.Columns.Add(Me.columnPM_VEKTOR_INDEX)
Me.columnLOG_INDEX = New Global.System.Data.DataColumn("LOG_INDEX", GetType(String), Nothing, Global.System.Data.MappingType.Element)
MyBase.Columns.Add(Me.columnLOG_INDEX)
Me.columnSQL_VIEW = New Global.System.Data.DataColumn("SQL_VIEW", GetType(String), Nothing, Global.System.Data.MappingType.Element)
MyBase.Columns.Add(Me.columnSQL_VIEW)
Me.columnANNOTATE_ALL_WORK_HISTORY_ENTRIES = New Global.System.Data.DataColumn("ANNOTATE_ALL_WORK_HISTORY_ENTRIES", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element)
MyBase.Columns.Add(Me.columnANNOTATE_ALL_WORK_HISTORY_ENTRIES)
Me.columnANNOTATE_WORK_HISTORY_ENTRY = New Global.System.Data.DataColumn("ANNOTATE_WORK_HISTORY_ENTRY", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element)
MyBase.Columns.Add(Me.columnANNOTATE_WORK_HISTORY_ENTRY)
Me.columnWORK_HISTORY_ENTRY = New Global.System.Data.DataColumn("WORK_HISTORY_ENTRY", GetType(String), Nothing, Global.System.Data.MappingType.Element)
MyBase.Columns.Add(Me.columnWORK_HISTORY_ENTRY)
Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnGUID}, true))
Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint2", New Global.System.Data.DataColumn() {Me.columnNAME}, false))
Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint3", New Global.System.Data.DataColumn() {Me.columnTITLE}, false))
@ -5783,6 +5839,7 @@ Partial Public Class DD_DMSLiteDataSet
Me.columnNO_OF_DOCUMENTS.DefaultValue = CType(0,Integer)
Me.columnADDED_WHO.AllowDBNull = false
Me.columnADDED_WHO.MaxLength = 30
Me.columnADDED_WHEN.AllowDBNull = false
Me.columnCHANGED_WHO.MaxLength = 30
Me.columnFINAL_PROFILE.AllowDBNull = false
Me.columnFINAL_PROFILE.DefaultValue = CType(false,Boolean)
@ -5794,11 +5851,20 @@ Partial Public Class DD_DMSLiteDataSet
Me.columnWD_OBJECTTYPE.MaxLength = 200
Me.columnSORT_BY_LATEST.AllowDBNull = false
Me.columnSORT_BY_LATEST.DefaultValue = CType(true,Boolean)
Me.columnPM_VEKTOR_INDEX.AllowDBNull = false
Me.columnPM_VEKTOR_INDEX.DefaultValue = CType("",String)
Me.columnPM_VEKTOR_INDEX.MaxLength = 50
Me.columnLOG_INDEX.AllowDBNull = false
Me.columnLOG_INDEX.DefaultValue = CType("",String)
Me.columnLOG_INDEX.MaxLength = 50
Me.columnSQL_VIEW.AllowDBNull = false
Me.columnSQL_VIEW.DefaultValue = CType("",String)
Me.columnSQL_VIEW.MaxLength = 2147483647
Me.columnANNOTATE_ALL_WORK_HISTORY_ENTRIES.AllowDBNull = false
Me.columnANNOTATE_ALL_WORK_HISTORY_ENTRIES.DefaultValue = CType(false,Boolean)
Me.columnANNOTATE_WORK_HISTORY_ENTRY.AllowDBNull = false
Me.columnANNOTATE_WORK_HISTORY_ENTRY.DefaultValue = CType(false,Boolean)
Me.columnWORK_HISTORY_ENTRY.MaxLength = 500
End Sub
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
@ -10450,11 +10516,7 @@ Partial Public Class DD_DMSLiteDataSet
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
Public Property ADDED_WHEN() As Date
Get
Try
Return CType(Me(Me.tableTBPM_PROFILE.ADDED_WHENColumn),Date)
Catch e As Global.System.InvalidCastException
Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ADDED_WHEN in Tabelle TBPM_PROFILE ist DBNull.", e)
End Try
Return CType(Me(Me.tableTBPM_PROFILE.ADDED_WHENColumn),Date)
End Get
Set
Me(Me.tableTBPM_PROFILE.ADDED_WHENColumn) = value
@ -10569,11 +10631,7 @@ Partial Public Class DD_DMSLiteDataSet
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
Public Property PM_VEKTOR_INDEX() As String
Get
Try
Return CType(Me(Me.tableTBPM_PROFILE.PM_VEKTOR_INDEXColumn),String)
Catch e As Global.System.InvalidCastException
Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte PM_VEKTOR_INDEX in Tabelle TBPM_PROFILE ist DBNull.", e)
End Try
Return CType(Me(Me.tableTBPM_PROFILE.PM_VEKTOR_INDEXColumn),String)
End Get
Set
Me(Me.tableTBPM_PROFILE.PM_VEKTOR_INDEXColumn) = value
@ -10591,6 +10649,54 @@ Partial Public Class DD_DMSLiteDataSet
End Set
End Property
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
Public Property SQL_VIEW() As String
Get
Return CType(Me(Me.tableTBPM_PROFILE.SQL_VIEWColumn),String)
End Get
Set
Me(Me.tableTBPM_PROFILE.SQL_VIEWColumn) = value
End Set
End Property
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
Public Property ANNOTATE_ALL_WORK_HISTORY_ENTRIES() As Boolean
Get
Return CType(Me(Me.tableTBPM_PROFILE.ANNOTATE_ALL_WORK_HISTORY_ENTRIESColumn),Boolean)
End Get
Set
Me(Me.tableTBPM_PROFILE.ANNOTATE_ALL_WORK_HISTORY_ENTRIESColumn) = value
End Set
End Property
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
Public Property ANNOTATE_WORK_HISTORY_ENTRY() As Boolean
Get
Return CType(Me(Me.tableTBPM_PROFILE.ANNOTATE_WORK_HISTORY_ENTRYColumn),Boolean)
End Get
Set
Me(Me.tableTBPM_PROFILE.ANNOTATE_WORK_HISTORY_ENTRYColumn) = value
End Set
End Property
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
Public Property WORK_HISTORY_ENTRY() As String
Get
Try
Return CType(Me(Me.tableTBPM_PROFILE.WORK_HISTORY_ENTRYColumn),String)
Catch e As Global.System.InvalidCastException
Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte WORK_HISTORY_ENTRY in Tabelle TBPM_PROFILE ist DBNull.", e)
End Try
End Get
Set
Me(Me.tableTBPM_PROFILE.WORK_HISTORY_ENTRYColumn) = value
End Set
End Property
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
Public Property TBPM_TYPERow() As TBPM_TYPERow
@ -10614,18 +10720,6 @@ Partial Public Class DD_DMSLiteDataSet
Me(Me.tableTBPM_PROFILE.DESCRIPTIONColumn) = Global.System.Convert.DBNull
End Sub
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
Public Function IsADDED_WHENNull() As Boolean
Return Me.IsNull(Me.tableTBPM_PROFILE.ADDED_WHENColumn)
End Function
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
Public Sub SetADDED_WHENNull()
Me(Me.tableTBPM_PROFILE.ADDED_WHENColumn) = Global.System.Convert.DBNull
End Sub
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
Public Function IsCHANGED_WHONull() As Boolean
@ -10676,14 +10770,14 @@ Partial Public Class DD_DMSLiteDataSet
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
Public Function IsPM_VEKTOR_INDEXNull() As Boolean
Return Me.IsNull(Me.tableTBPM_PROFILE.PM_VEKTOR_INDEXColumn)
Public Function IsWORK_HISTORY_ENTRYNull() As Boolean
Return Me.IsNull(Me.tableTBPM_PROFILE.WORK_HISTORY_ENTRYColumn)
End Function
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
Public Sub SetPM_VEKTOR_INDEXNull()
Me(Me.tableTBPM_PROFILE.PM_VEKTOR_INDEXColumn) = Global.System.Convert.DBNull
Public Sub SetWORK_HISTORY_ENTRYNull()
Me(Me.tableTBPM_PROFILE.WORK_HISTORY_ENTRYColumn) = Global.System.Convert.DBNull
End Sub
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
@ -17805,6 +17899,10 @@ Namespace DD_DMSLiteDataSetTableAdapters
tableMapping.ColumnMappings.Add("SORT_BY_LATEST", "SORT_BY_LATEST")
tableMapping.ColumnMappings.Add("PM_VEKTOR_INDEX", "PM_VEKTOR_INDEX")
tableMapping.ColumnMappings.Add("LOG_INDEX", "LOG_INDEX")
tableMapping.ColumnMappings.Add("SQL_VIEW", "SQL_VIEW")
tableMapping.ColumnMappings.Add("ANNOTATE_ALL_WORK_HISTORY_ENTRIES", "ANNOTATE_ALL_WORK_HISTORY_ENTRIES")
tableMapping.ColumnMappings.Add("ANNOTATE_WORK_HISTORY_ENTRY", "ANNOTATE_WORK_HISTORY_ENTRY")
tableMapping.ColumnMappings.Add("WORK_HISTORY_ENTRY", "WORK_HISTORY_ENTRY")
Me._adapter.TableMappings.Add(tableMapping)
Me._adapter.DeleteCommand = New Global.System.Data.SqlClient.SqlCommand()
Me._adapter.DeleteCommand.Connection = Me.Connection
@ -17815,13 +17913,16 @@ Namespace DD_DMSLiteDataSetTableAdapters
Me._adapter.InsertCommand.Connection = Me.Connection
Me._adapter.InsertCommand.CommandText = "INSERT INTO TBPM_PROFILE"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" (NAME, TITLE, PRIORITY, DESCRI"& _
"PTION, ACTIVE, WD_SEARCH, NO_OF_DOCUMENTS, ADDED_WHO, FINAL_PROFILE, FINAL_TEXT,"& _
" MOVE2FOLDER, TYPE, WD_OBJECTTYPE, SORT_BY_LATEST, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" PM"& _
"_VEKTOR_INDEX)"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"VALUES (@NAME,@TITLE,@PRIORITY,@DESCRIPTION,@ACTIVE,@WD_S"& _
"EARCH,@NO_OF_DOCUMENTS,@ADDED_WHO,@FINAL_PROFILE,@FINAL_TEXT,@MOVE2FOLDER,@TYPE,"& _
"@WD_OBJECTTYPE,@SORT_BY_LATEST,@PM_VEKTOR_INDEX); "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID, NAME, TITLE, P"& _
"RIORITY, DESCRIPTION, ACTIVE, WD_SEARCH, NO_OF_DOCUMENTS, ADDED_WHO, ADDED_WHEN,"& _
" CHANGED_WHO, CHANGED_WHEN, FINAL_PROFILE, FINAL_TEXT, MOVE2FOLDER, TYPE, WD_OBJ"& _
"ECTTYPE, SORT_BY_LATEST FROM TBPM_PROFILE WHERE (GUID = SCOPE_IDENTITY())"
" MOVE2FOLDER, TYPE, WD_OBJECTTYPE, SORT_BY_LATEST, PM_VEKTOR_INDEX, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "& _
" WORK_HISTORY_ENTRY, SQL_VIEW, ANNOTATE_ALL_WORK_HISTORY_ENTRIES, "& _
"ANNOTATE_WORK_HISTORY_ENTRY)"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"VALUES (@NAME,@TITLE,@PRIORITY,@DESCRIPTION"& _
",@ACTIVE,@WD_SEARCH,@NO_OF_DOCUMENTS,@ADDED_WHO,@FINAL_PROFILE,@FINAL_TEXT,@MOVE"& _
"2FOLDER,@TYPE,@WD_OBJECTTYPE,@SORT_BY_LATEST,@PM_VEKTOR_INDEX,@WORK_HISTORY_ENTR"& _
"Y,@SQL_VIEW,@ANNOTATE_ALL_WORK_HISTORY_ENTRIES,@ANNOTATE_WORK_HISTORY_ENTRY); "& _
" "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID, NAME, TITLE, PRIORITY, DESCRIPTION, ACTIVE, WD_SEARCH, NO_OF_DOC"& _
"UMENTS, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, FINAL_PROFILE, FINAL_T"& _
"EXT, MOVE2FOLDER, TYPE, WD_OBJECTTYPE, SORT_BY_LATEST FROM TBPM_PROFILE WHERE (G"& _
"UID = SCOPE_IDENTITY())"
Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text
Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@NAME", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "NAME", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@TITLE", Global.System.Data.SqlDbType.VarChar, 150, Global.System.Data.ParameterDirection.Input, 0, 0, "TITLE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
@ -17838,6 +17939,10 @@ Namespace DD_DMSLiteDataSetTableAdapters
Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@WD_OBJECTTYPE", Global.System.Data.SqlDbType.VarChar, 200, Global.System.Data.ParameterDirection.Input, 0, 0, "WD_OBJECTTYPE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SORT_BY_LATEST", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "SORT_BY_LATEST", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PM_VEKTOR_INDEX", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "PM_VEKTOR_INDEX", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@WORK_HISTORY_ENTRY", Global.System.Data.SqlDbType.VarChar, 500, Global.System.Data.ParameterDirection.Input, 0, 0, "WORK_HISTORY_ENTRY", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SQL_VIEW", Global.System.Data.SqlDbType.VarChar, 2147483647, Global.System.Data.ParameterDirection.Input, 0, 0, "SQL_VIEW", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ANNOTATE_ALL_WORK_HISTORY_ENTRIES", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "ANNOTATE_ALL_WORK_HISTORY_ENTRIES", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ANNOTATE_WORK_HISTORY_ENTRY", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "ANNOTATE_WORK_HISTORY_ENTRY", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
Me._adapter.UpdateCommand = New Global.System.Data.SqlClient.SqlCommand()
Me._adapter.UpdateCommand.Connection = Me.Connection
Me._adapter.UpdateCommand.CommandText = "UPDATE TBPM_PROFILE"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SET NAME = @NAME, TITLE = @TITLE, PRIOR"& _
@ -17846,11 +17951,13 @@ Namespace DD_DMSLiteDataSetTableAdapters
"O = @CHANGED_WHO, FINAL_PROFILE = @FINAL_PROFILE, FINAL_TEXT = @FINAL_TEXT, MOVE"& _
"2FOLDER = @MOVE2FOLDER, TYPE = @TYPE, WD_OBJECTTYPE = @WD_OBJECTTYPE, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "& _
" SORT_BY_LATEST = @SORT_BY_LATEST, PM_VEKTOR_INDEX = @PM_VEKTOR_"& _
"INDEX, LOG_INDEX = @LOG_INDEX"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (GUID = @Original_GUID); "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT "& _
"GUID, NAME, TITLE, PRIORITY, DESCRIPTION, ACTIVE, WD_SEARCH, NO_OF_DOCUMENTS, AD"& _
"DED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, FINAL_PROFILE, FINAL_TEXT, MOVE2"& _
"FOLDER, TYPE, WD_OBJECTTYPE, SORT_BY_LATEST FROM TBPM_PROFILE WHERE (GUID = @GUI"& _
"D)"
"INDEX, LOG_INDEX = @LOG_INDEX, WORK_HISTORY_ENTRY = @WORK_HISTORY_ENTRY, SQL_VIE"& _
"W = @SQL_VIEW, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" ANNOTATE_ALL_WORK_HISTORY_ENTRIES = @A"& _
"NNOTATE_ALL_WORK_HISTORY_ENTRIES, ANNOTATE_WORK_HISTORY_ENTRY = @ANNOTATE_WORK_H"& _
"ISTORY_ENTRY"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (GUID = @Original_GUID); "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID, NAME, TIT"& _
"LE, PRIORITY, DESCRIPTION, ACTIVE, WD_SEARCH, NO_OF_DOCUMENTS, ADDED_WHO, ADDED_"& _
"WHEN, CHANGED_WHO, CHANGED_WHEN, FINAL_PROFILE, FINAL_TEXT, MOVE2FOLDER, TYPE, W"& _
"D_OBJECTTYPE, SORT_BY_LATEST FROM TBPM_PROFILE WHERE (GUID = @GUID)"
Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text
Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@NAME", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "NAME", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@TITLE", Global.System.Data.SqlDbType.VarChar, 150, Global.System.Data.ParameterDirection.Input, 0, 0, "TITLE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
@ -17868,6 +17975,10 @@ Namespace DD_DMSLiteDataSetTableAdapters
Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SORT_BY_LATEST", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "SORT_BY_LATEST", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PM_VEKTOR_INDEX", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "PM_VEKTOR_INDEX", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@LOG_INDEX", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "LOG_INDEX", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@WORK_HISTORY_ENTRY", Global.System.Data.SqlDbType.VarChar, 500, Global.System.Data.ParameterDirection.Input, 0, 0, "WORK_HISTORY_ENTRY", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SQL_VIEW", Global.System.Data.SqlDbType.VarChar, 2147483647, Global.System.Data.ParameterDirection.Input, 0, 0, "SQL_VIEW", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ANNOTATE_ALL_WORK_HISTORY_ENTRIES", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "ANNOTATE_ALL_WORK_HISTORY_ENTRIES", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ANNOTATE_WORK_HISTORY_ENTRY", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "ANNOTATE_WORK_HISTORY_ENTRY", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GUID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@GUID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
End Sub
@ -17887,8 +17998,10 @@ Namespace DD_DMSLiteDataSetTableAdapters
Me._commandCollection(0).Connection = Me.Connection
Me._commandCollection(0).CommandText = "SELECT GUID, NAME, TITLE, PRIORITY, DESCRIPTION, ACTIVE, WD_SEARCH, NO_OF_"& _
"DOCUMENTS, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, FINAL_PROFILE, FINA"& _
"L_TEXT, MOVE2FOLDER, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" TYPE, WD_OBJECTTYPE, SORT_BY_LAT"& _
"EST, PM_VEKTOR_INDEX, LOG_INDEX"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM TBPM_PROFILE"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"ORDER BY NAME"
"L_TEXT, MOVE2FOLDER, TYPE, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" WD_OBJECTTYPE, SORT_BY_LAT"& _
"EST, PM_VEKTOR_INDEX, LOG_INDEX, SQL_VIEW, ANNOTATE_ALL_WORK_HISTORY_ENTRIES, AN"& _
"NOTATE_WORK_HISTORY_ENTRY, WORK_HISTORY_ENTRY"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM TBPM_PROFILE"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"ORD"& _
"ER BY NAME"
Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text
Me._commandCollection(1) = New Global.System.Data.SqlClient.SqlCommand()
Me._commandCollection(1).Connection = Me.Connection
@ -17909,12 +18022,16 @@ Namespace DD_DMSLiteDataSetTableAdapters
Me._commandCollection(4).Connection = Me.Connection
Me._commandCollection(4).CommandText = "INSERT INTO TBPM_PROFILE"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" (NAME, TITLE, PRIORITY, DESCRI"& _
"PTION, ACTIVE, WD_SEARCH, NO_OF_DOCUMENTS, ADDED_WHO, FINAL_PROFILE, FINAL_TEXT,"& _
" MOVE2FOLDER, TYPE, WD_OBJECTTYPE, SORT_BY_LATEST, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" PM"& _
"_VEKTOR_INDEX, LOG_INDEX)"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT 'KOPIE_VON_' + NAME AS Expr1, TITLE + '"& _
"_COPY' AS Expr5, PRIORITY, DESCRIPTION, 0 AS Expr2, WD_SEARCH, 0 AS Expr3, @USER"& _
" AS Expr4, FINAL_PROFILE, FINAL_TEXT, MOVE2FOLDER, TYPE, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "& _
" WD_OBJECTTYPE, SORT_BY_LATEST, PM_VEKTOR_INDEX, LOG_INDEX"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM T"& _
"BPM_PROFILE AS TBPM_PROFILE_1"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (GUID = @GUID)"
" MOVE2FOLDER, TYPE, WD_OBJECTTYPE, SORT_BY_LATEST, PM_VEKTOR_INDEX, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "& _
" LOG_INDEX, WORK_HISTORY_ENTRY, SQL_GROUP_COLOR, SQL_GROUP_TEXT, S"& _
"QL_VIEW, ANNOTATE_ALL_WORK_HISTORY_ENTRIES, ANNOTATE_WORK_HISTORY_ENTRY)"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT"& _
" NAME + '_COPY' AS Expr1, TITLE + '_COPY' AS Expr5, PRIORITY, DESCRIPTION"& _
", 0 AS Expr2, WD_SEARCH, 0 AS Expr3, @USER AS Expr4, FINAL_PROFILE, FINAL_TEXT, "& _
"MOVE2FOLDER, TYPE, WD_OBJECTTYPE, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" SORT_BY_LATEST, PM_"& _
"VEKTOR_INDEX, LOG_INDEX, WORK_HISTORY_ENTRY, SQL_GROUP_COLOR, SQL_GROUP_TEXT, SQ"& _
"L_VIEW, ANNOTATE_ALL_WORK_HISTORY_ENTRIES, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" ANNOTATE_W"& _
"ORK_HISTORY_ENTRY"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM TBPM_PROFILE AS TBPM_PROFILE_1"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE "& _
"(GUID = @GUID)"
Me._commandCollection(4).CommandType = Global.System.Data.CommandType.Text
Me._commandCollection(4).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@USER", Global.System.Data.SqlDbType.VarChar, 1024, Global.System.Data.ParameterDirection.Input, 0, 0, "", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
Me._commandCollection(4).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@GUID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
@ -18031,7 +18148,26 @@ Namespace DD_DMSLiteDataSetTableAdapters
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0"), _
Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Insert, true)> _
Public Overloads Overridable Function Insert(ByVal NAME As String, ByVal TITLE As String, ByVal PRIORITY As Integer, ByVal DESCRIPTION As String, ByVal ACTIVE As Boolean, ByVal WD_SEARCH As String, ByVal NO_OF_DOCUMENTS As Integer, ByVal ADDED_WHO As String, ByVal FINAL_PROFILE As Boolean, ByVal FINAL_TEXT As String, ByVal MOVE2FOLDER As String, ByVal TYPE As Short, ByVal WD_OBJECTTYPE As String, ByVal SORT_BY_LATEST As Boolean, ByVal PM_VEKTOR_INDEX As String) As Integer
Public Overloads Overridable Function Insert( _
ByVal NAME As String, _
ByVal TITLE As String, _
ByVal PRIORITY As Integer, _
ByVal DESCRIPTION As String, _
ByVal ACTIVE As Boolean, _
ByVal WD_SEARCH As String, _
ByVal NO_OF_DOCUMENTS As Integer, _
ByVal ADDED_WHO As String, _
ByVal FINAL_PROFILE As Boolean, _
ByVal FINAL_TEXT As String, _
ByVal MOVE2FOLDER As String, _
ByVal TYPE As Short, _
ByVal WD_OBJECTTYPE As String, _
ByVal SORT_BY_LATEST As Boolean, _
ByVal PM_VEKTOR_INDEX As String, _
ByVal WORK_HISTORY_ENTRY As String, _
ByVal SQL_VIEW As String, _
ByVal ANNOTATE_ALL_WORK_HISTORY_ENTRIES As Boolean, _
ByVal ANNOTATE_WORK_HISTORY_ENTRY As Boolean) As Integer
If (NAME Is Nothing) Then
Throw New Global.System.ArgumentNullException("NAME")
Else
@ -18056,7 +18192,7 @@ Namespace DD_DMSLiteDataSetTableAdapters
End If
Me.Adapter.InsertCommand.Parameters(6).Value = CType(NO_OF_DOCUMENTS,Integer)
If (ADDED_WHO Is Nothing) Then
Me.Adapter.InsertCommand.Parameters(7).Value = Global.System.DBNull.Value
Throw New Global.System.ArgumentNullException("ADDED_WHO")
Else
Me.Adapter.InsertCommand.Parameters(7).Value = CType(ADDED_WHO,String)
End If
@ -18079,10 +18215,22 @@ Namespace DD_DMSLiteDataSetTableAdapters
End If
Me.Adapter.InsertCommand.Parameters(13).Value = CType(SORT_BY_LATEST,Boolean)
If (PM_VEKTOR_INDEX Is Nothing) Then
Me.Adapter.InsertCommand.Parameters(14).Value = Global.System.DBNull.Value
Throw New Global.System.ArgumentNullException("PM_VEKTOR_INDEX")
Else
Me.Adapter.InsertCommand.Parameters(14).Value = CType(PM_VEKTOR_INDEX,String)
End If
If (WORK_HISTORY_ENTRY Is Nothing) Then
Me.Adapter.InsertCommand.Parameters(15).Value = Global.System.DBNull.Value
Else
Me.Adapter.InsertCommand.Parameters(15).Value = CType(WORK_HISTORY_ENTRY,String)
End If
If (SQL_VIEW Is Nothing) Then
Throw New Global.System.ArgumentNullException("SQL_VIEW")
Else
Me.Adapter.InsertCommand.Parameters(16).Value = CType(SQL_VIEW,String)
End If
Me.Adapter.InsertCommand.Parameters(17).Value = CType(ANNOTATE_ALL_WORK_HISTORY_ENTRIES,Boolean)
Me.Adapter.InsertCommand.Parameters(18).Value = CType(ANNOTATE_WORK_HISTORY_ENTRY,Boolean)
Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.InsertCommand.Connection.State
If ((Me.Adapter.InsertCommand.Connection.State And Global.System.Data.ConnectionState.Open) _
<> Global.System.Data.ConnectionState.Open) Then
@ -18119,6 +18267,10 @@ Namespace DD_DMSLiteDataSetTableAdapters
ByVal SORT_BY_LATEST As Boolean, _
ByVal PM_VEKTOR_INDEX As String, _
ByVal LOG_INDEX As String, _
ByVal WORK_HISTORY_ENTRY As String, _
ByVal SQL_VIEW As String, _
ByVal ANNOTATE_ALL_WORK_HISTORY_ENTRIES As Boolean, _
ByVal ANNOTATE_WORK_HISTORY_ENTRY As Boolean, _
ByVal Original_GUID As Integer, _
ByVal GUID As Integer) As Integer
If (NAME Is Nothing) Then
@ -18168,7 +18320,7 @@ Namespace DD_DMSLiteDataSetTableAdapters
End If
Me.Adapter.UpdateCommand.Parameters(13).Value = CType(SORT_BY_LATEST,Boolean)
If (PM_VEKTOR_INDEX Is Nothing) Then
Me.Adapter.UpdateCommand.Parameters(14).Value = Global.System.DBNull.Value
Throw New Global.System.ArgumentNullException("PM_VEKTOR_INDEX")
Else
Me.Adapter.UpdateCommand.Parameters(14).Value = CType(PM_VEKTOR_INDEX,String)
End If
@ -18177,8 +18329,20 @@ Namespace DD_DMSLiteDataSetTableAdapters
Else
Me.Adapter.UpdateCommand.Parameters(15).Value = CType(LOG_INDEX,String)
End If
Me.Adapter.UpdateCommand.Parameters(16).Value = CType(Original_GUID,Integer)
Me.Adapter.UpdateCommand.Parameters(17).Value = CType(GUID,Integer)
If (WORK_HISTORY_ENTRY Is Nothing) Then
Me.Adapter.UpdateCommand.Parameters(16).Value = Global.System.DBNull.Value
Else
Me.Adapter.UpdateCommand.Parameters(16).Value = CType(WORK_HISTORY_ENTRY,String)
End If
If (SQL_VIEW Is Nothing) Then
Throw New Global.System.ArgumentNullException("SQL_VIEW")
Else
Me.Adapter.UpdateCommand.Parameters(17).Value = CType(SQL_VIEW,String)
End If
Me.Adapter.UpdateCommand.Parameters(18).Value = CType(ANNOTATE_ALL_WORK_HISTORY_ENTRIES,Boolean)
Me.Adapter.UpdateCommand.Parameters(19).Value = CType(ANNOTATE_WORK_HISTORY_ENTRY,Boolean)
Me.Adapter.UpdateCommand.Parameters(20).Value = CType(Original_GUID,Integer)
Me.Adapter.UpdateCommand.Parameters(21).Value = CType(GUID,Integer)
Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.UpdateCommand.Connection.State
If ((Me.Adapter.UpdateCommand.Connection.State And Global.System.Data.ConnectionState.Open) _
<> Global.System.Data.ConnectionState.Open) Then
@ -18392,7 +18556,7 @@ Namespace DD_DMSLiteDataSetTableAdapters
Public Overloads Overridable Function CmdUpdateVKT_Index(ByVal PM_VEKTOR_INDEX As String, ByVal Original_GUID As Integer, ByVal GUID As Integer) As Integer
Dim command As Global.System.Data.SqlClient.SqlCommand = Me.CommandCollection(8)
If (PM_VEKTOR_INDEX Is Nothing) Then
command.Parameters(0).Value = Global.System.DBNull.Value
Throw New Global.System.ArgumentNullException("PM_VEKTOR_INDEX")
Else
command.Parameters(0).Value = CType(PM_VEKTOR_INDEX,String)
End If

184
app/DD_PM_WINDREAM/DD_DMSLiteDataSet.xsd
View File

@ -1317,7 +1317,7 @@ VALUES (@User,@PROFIL_ID,@FILE_PATH)</CommandText>
</TableAdapter>
<TableAdapter BaseClass="System.ComponentModel.Component" DataAccessorModifier="AutoLayout, AnsiClass, Class, Public" DataAccessorName="TBPM_PROFILETableAdapter" GeneratorDataComponentClassName="TBPM_PROFILETableAdapter" Name="TBPM_PROFILE" UserDataComponentName="TBPM_PROFILETableAdapter">
<MainSource>
<DbSource ConnectionRef="ConnectionString (MySettings)" DbObjectName="DD_DMS.dbo.TBPM_PROFILE" DbObjectType="Table" FillMethodModifier="Public" FillMethodName="Fill" GenerateMethods="Both" GenerateShortCommands="true" GeneratorGetMethodName="GetData" GeneratorSourceName="Fill" GetMethodModifier="Public" GetMethodName="GetData" QueryType="Rowset" ScalarCallRetval="System.Object, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" UseOptimisticConcurrency="true" UserGetMethodName="GetData" UserSourceName="Fill">
<DbSource ConnectionRef="ConnectionString (MySettings)" DbObjectName="DD_ECM_TEST.dbo.TBPM_PROFILE" DbObjectType="Table" FillMethodModifier="Public" FillMethodName="Fill" GenerateMethods="Both" GenerateShortCommands="true" GeneratorGetMethodName="GetData" GeneratorSourceName="Fill" GetMethodModifier="Public" GetMethodName="GetData" QueryType="Rowset" ScalarCallRetval="System.Object, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" UseOptimisticConcurrency="true" UserGetMethodName="GetData" UserSourceName="Fill">
<DeleteCommand>
<DbCommand CommandType="Text" ModifiedByUser="false">
<CommandText>DELETE FROM TBPM_PROFILE
@ -1328,67 +1328,76 @@ WHERE (GUID = @Original_GUID)</CommandText>
</DbCommand>
</DeleteCommand>
<InsertCommand>
<DbCommand CommandType="Text" ModifiedByUser="false">
<DbCommand CommandType="Text" ModifiedByUser="true">
<CommandText>INSERT INTO TBPM_PROFILE
(NAME, TITLE, PRIORITY, DESCRIPTION, ACTIVE, WD_SEARCH, NO_OF_DOCUMENTS, ADDED_WHO, FINAL_PROFILE, FINAL_TEXT, MOVE2FOLDER, TYPE, WD_OBJECTTYPE, SORT_BY_LATEST,
PM_VEKTOR_INDEX)
VALUES (@NAME,@TITLE,@PRIORITY,@DESCRIPTION,@ACTIVE,@WD_SEARCH,@NO_OF_DOCUMENTS,@ADDED_WHO,@FINAL_PROFILE,@FINAL_TEXT,@MOVE2FOLDER,@TYPE,@WD_OBJECTTYPE,@SORT_BY_LATEST,@PM_VEKTOR_INDEX);
(NAME, TITLE, PRIORITY, DESCRIPTION, ACTIVE, WD_SEARCH, NO_OF_DOCUMENTS, ADDED_WHO, FINAL_PROFILE, FINAL_TEXT, MOVE2FOLDER, TYPE, WD_OBJECTTYPE, SORT_BY_LATEST, PM_VEKTOR_INDEX,
WORK_HISTORY_ENTRY, SQL_VIEW, ANNOTATE_ALL_WORK_HISTORY_ENTRIES, ANNOTATE_WORK_HISTORY_ENTRY)
VALUES (@NAME,@TITLE,@PRIORITY,@DESCRIPTION,@ACTIVE,@WD_SEARCH,@NO_OF_DOCUMENTS,@ADDED_WHO,@FINAL_PROFILE,@FINAL_TEXT,@MOVE2FOLDER,@TYPE,@WD_OBJECTTYPE,@SORT_BY_LATEST,@PM_VEKTOR_INDEX,@WORK_HISTORY_ENTRY,@SQL_VIEW,@ANNOTATE_ALL_WORK_HISTORY_ENTRIES,@ANNOTATE_WORK_HISTORY_ENTRY);
SELECT GUID, NAME, TITLE, PRIORITY, DESCRIPTION, ACTIVE, WD_SEARCH, NO_OF_DOCUMENTS, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, FINAL_PROFILE, FINAL_TEXT, MOVE2FOLDER, TYPE, WD_OBJECTTYPE, SORT_BY_LATEST FROM TBPM_PROFILE WHERE (GUID = SCOPE_IDENTITY())</CommandText>
<Parameters>
<Parameter AllowDbNull="false" AutogeneratedName="NAME" ColumnName="NAME" DataSourceName="" DataTypeServer="varchar(100)" DbType="AnsiString" Direction="Input" ParameterName="@NAME" Precision="0" ProviderType="VarChar" Scale="0" Size="100" SourceColumn="NAME" SourceColumnNullMapping="false" SourceVersion="Current" />
<Parameter AllowDbNull="false" AutogeneratedName="TITLE" ColumnName="TITLE" DataSourceName="" DataTypeServer="varchar(150)" DbType="AnsiString" Direction="Input" ParameterName="@TITLE" Precision="0" ProviderType="VarChar" Scale="0" Size="150" SourceColumn="TITLE" SourceColumnNullMapping="false" SourceVersion="Current" />
<Parameter AllowDbNull="false" AutogeneratedName="PRIORITY" ColumnName="PRIORITY" DataSourceName="" DataTypeServer="int" DbType="Int32" Direction="Input" ParameterName="@PRIORITY" Precision="0" ProviderType="Int" Scale="0" Size="4" SourceColumn="PRIORITY" SourceColumnNullMapping="false" SourceVersion="Current" />
<Parameter AllowDbNull="true" AutogeneratedName="DESCRIPTION" ColumnName="DESCRIPTION" DataSourceName="" DataTypeServer="varchar(250)" DbType="AnsiString" Direction="Input" ParameterName="@DESCRIPTION" Precision="0" ProviderType="VarChar" Scale="0" Size="250" SourceColumn="DESCRIPTION" SourceColumnNullMapping="false" SourceVersion="Current" />
<Parameter AllowDbNull="false" AutogeneratedName="ACTIVE" ColumnName="ACTIVE" DataSourceName="" DataTypeServer="bit" DbType="Boolean" Direction="Input" ParameterName="@ACTIVE" Precision="0" ProviderType="Bit" Scale="0" Size="1" SourceColumn="ACTIVE" SourceColumnNullMapping="false" SourceVersion="Current" />
<Parameter AllowDbNull="false" AutogeneratedName="WD_SEARCH" ColumnName="WD_SEARCH" DataSourceName="" DataTypeServer="varchar(500)" DbType="AnsiString" Direction="Input" ParameterName="@WD_SEARCH" Precision="0" ProviderType="VarChar" Scale="0" Size="500" SourceColumn="WD_SEARCH" SourceColumnNullMapping="false" SourceVersion="Current" />
<Parameter AllowDbNull="false" AutogeneratedName="NO_OF_DOCUMENTS" ColumnName="NO_OF_DOCUMENTS" DataSourceName="" DataTypeServer="int" DbType="Int32" Direction="Input" ParameterName="@NO_OF_DOCUMENTS" Precision="0" ProviderType="Int" Scale="0" Size="4" SourceColumn="NO_OF_DOCUMENTS" SourceColumnNullMapping="false" SourceVersion="Current" />
<Parameter AllowDbNull="true" AutogeneratedName="ADDED_WHO" ColumnName="ADDED_WHO" DataSourceName="" DataTypeServer="varchar(30)" DbType="AnsiString" Direction="Input" ParameterName="@ADDED_WHO" Precision="0" ProviderType="VarChar" Scale="0" Size="30" SourceColumn="ADDED_WHO" SourceColumnNullMapping="false" SourceVersion="Current" />
<Parameter AllowDbNull="false" AutogeneratedName="FINAL_PROFILE" ColumnName="FINAL_PROFILE" DataSourceName="" DataTypeServer="bit" DbType="Boolean" Direction="Input" ParameterName="@FINAL_PROFILE" Precision="0" ProviderType="Bit" Scale="0" Size="1" SourceColumn="FINAL_PROFILE" SourceColumnNullMapping="false" SourceVersion="Current" />
<Parameter AllowDbNull="true" AutogeneratedName="FINAL_TEXT" ColumnName="FINAL_TEXT" DataSourceName="" DataTypeServer="varchar(250)" DbType="AnsiString" Direction="Input" ParameterName="@FINAL_TEXT" Precision="0" ProviderType="VarChar" Scale="0" Size="250" SourceColumn="FINAL_TEXT" SourceColumnNullMapping="false" SourceVersion="Current" />
<Parameter AllowDbNull="true" AutogeneratedName="MOVE2FOLDER" ColumnName="MOVE2FOLDER" DataSourceName="" DataTypeServer="varchar(1000)" DbType="AnsiString" Direction="Input" ParameterName="@MOVE2FOLDER" Precision="0" ProviderType="VarChar" Scale="0" Size="1000" SourceColumn="MOVE2FOLDER" SourceColumnNullMapping="false" SourceVersion="Current" />
<Parameter AllowDbNull="false" AutogeneratedName="TYPE" ColumnName="TYPE" DataSourceName="" DataTypeServer="smallint" DbType="Int16" Direction="Input" ParameterName="@TYPE" Precision="0" ProviderType="SmallInt" Scale="0" Size="2" SourceColumn="TYPE" SourceColumnNullMapping="false" SourceVersion="Current" />
<Parameter AllowDbNull="false" AutogeneratedName="WD_OBJECTTYPE" ColumnName="WD_OBJECTTYPE" DataSourceName="" DataTypeServer="varchar(200)" DbType="AnsiString" Direction="Input" ParameterName="@WD_OBJECTTYPE" Precision="0" ProviderType="VarChar" Scale="0" Size="200" SourceColumn="WD_OBJECTTYPE" SourceColumnNullMapping="false" SourceVersion="Current" />
<Parameter AllowDbNull="false" AutogeneratedName="SORT_BY_LATEST" ColumnName="SORT_BY_LATEST" DataSourceName="" DataTypeServer="bit" DbType="Boolean" Direction="Input" ParameterName="@SORT_BY_LATEST" Precision="0" ProviderType="Bit" Scale="0" Size="1" SourceColumn="SORT_BY_LATEST" SourceColumnNullMapping="false" SourceVersion="Current" />
<Parameter AllowDbNull="true" AutogeneratedName="PM_VEKTOR_INDEX" ColumnName="PM_VEKTOR_INDEX" DataSourceName="" DataTypeServer="varchar(50)" DbType="AnsiString" Direction="Input" ParameterName="@PM_VEKTOR_INDEX" Precision="0" ProviderType="VarChar" Scale="0" Size="50" SourceColumn="PM_VEKTOR_INDEX" SourceColumnNullMapping="false" SourceVersion="Current" />
<Parameter AllowDbNull="false" AutogeneratedName="NAME" ColumnName="NAME" DataSourceName="DD_ECM_TEST.dbo.TBPM_PROFILE" DataTypeServer="varchar(100)" DbType="AnsiString" Direction="Input" ParameterName="@NAME" Precision="0" ProviderType="VarChar" Scale="0" Size="100" SourceColumn="NAME" SourceColumnNullMapping="false" SourceVersion="Current" />
<Parameter AllowDbNull="false" AutogeneratedName="TITLE" ColumnName="TITLE" DataSourceName="DD_ECM_TEST.dbo.TBPM_PROFILE" DataTypeServer="varchar(150)" DbType="AnsiString" Direction="Input" ParameterName="@TITLE" Precision="0" ProviderType="VarChar" Scale="0" Size="150" SourceColumn="TITLE" SourceColumnNullMapping="false" SourceVersion="Current" />
<Parameter AllowDbNull="false" AutogeneratedName="PRIORITY" ColumnName="PRIORITY" DataSourceName="DD_ECM_TEST.dbo.TBPM_PROFILE" DataTypeServer="int" DbType="Int32" Direction="Input" ParameterName="@PRIORITY" Precision="0" ProviderType="Int" Scale="0" Size="4" SourceColumn="PRIORITY" SourceColumnNullMapping="false" SourceVersion="Current" />
<Parameter AllowDbNull="true" AutogeneratedName="DESCRIPTION" ColumnName="DESCRIPTION" DataSourceName="DD_ECM_TEST.dbo.TBPM_PROFILE" DataTypeServer="varchar(250)" DbType="AnsiString" Direction="Input" ParameterName="@DESCRIPTION" Precision="0" ProviderType="VarChar" Scale="0" Size="250" SourceColumn="DESCRIPTION" SourceColumnNullMapping="false" SourceVersion="Current" />
<Parameter AllowDbNull="false" AutogeneratedName="ACTIVE" ColumnName="ACTIVE" DataSourceName="DD_ECM_TEST.dbo.TBPM_PROFILE" DataTypeServer="bit" DbType="Boolean" Direction="Input" ParameterName="@ACTIVE" Precision="0" ProviderType="Bit" Scale="0" Size="1" SourceColumn="ACTIVE" SourceColumnNullMapping="false" SourceVersion="Current" />
<Parameter AllowDbNull="false" AutogeneratedName="WD_SEARCH" ColumnName="WD_SEARCH" DataSourceName="DD_ECM_TEST.dbo.TBPM_PROFILE" DataTypeServer="varchar(500)" DbType="AnsiString" Direction="Input" ParameterName="@WD_SEARCH" Precision="0" ProviderType="VarChar" Scale="0" Size="500" SourceColumn="WD_SEARCH" SourceColumnNullMapping="false" SourceVersion="Current" />
<Parameter AllowDbNull="false" AutogeneratedName="NO_OF_DOCUMENTS" ColumnName="NO_OF_DOCUMENTS" DataSourceName="DD_ECM_TEST.dbo.TBPM_PROFILE" DataTypeServer="int" DbType="Int32" Direction="Input" ParameterName="@NO_OF_DOCUMENTS" Precision="0" ProviderType="Int" Scale="0" Size="4" SourceColumn="NO_OF_DOCUMENTS" SourceColumnNullMapping="false" SourceVersion="Current" />
<Parameter AllowDbNull="false" AutogeneratedName="ADDED_WHO" ColumnName="ADDED_WHO" DataSourceName="DD_ECM_TEST.dbo.TBPM_PROFILE" DataTypeServer="varchar(30)" DbType="AnsiString" Direction="Input" ParameterName="@ADDED_WHO" Precision="0" ProviderType="VarChar" Scale="0" Size="30" SourceColumn="ADDED_WHO" SourceColumnNullMapping="false" SourceVersion="Current" />
<Parameter AllowDbNull="false" AutogeneratedName="FINAL_PROFILE" ColumnName="FINAL_PROFILE" DataSourceName="DD_ECM_TEST.dbo.TBPM_PROFILE" DataTypeServer="bit" DbType="Boolean" Direction="Input" ParameterName="@FINAL_PROFILE" Precision="0" ProviderType="Bit" Scale="0" Size="1" SourceColumn="FINAL_PROFILE" SourceColumnNullMapping="false" SourceVersion="Current" />
<Parameter AllowDbNull="true" AutogeneratedName="FINAL_TEXT" ColumnName="FINAL_TEXT" DataSourceName="DD_ECM_TEST.dbo.TBPM_PROFILE" DataTypeServer="varchar(250)" DbType="AnsiString" Direction="Input" ParameterName="@FINAL_TEXT" Precision="0" ProviderType="VarChar" Scale="0" Size="250" SourceColumn="FINAL_TEXT" SourceColumnNullMapping="false" SourceVersion="Current" />
<Parameter AllowDbNull="true" AutogeneratedName="MOVE2FOLDER" ColumnName="MOVE2FOLDER" DataSourceName="DD_ECM_TEST.dbo.TBPM_PROFILE" DataTypeServer="varchar(1000)" DbType="AnsiString" Direction="Input" ParameterName="@MOVE2FOLDER" Precision="0" ProviderType="VarChar" Scale="0" Size="1000" SourceColumn="MOVE2FOLDER" SourceColumnNullMapping="false" SourceVersion="Current" />
<Parameter AllowDbNull="false" AutogeneratedName="TYPE" ColumnName="TYPE" DataSourceName="DD_ECM_TEST.dbo.TBPM_PROFILE" DataTypeServer="smallint" DbType="Int16" Direction="Input" ParameterName="@TYPE" Precision="0" ProviderType="SmallInt" Scale="0" Size="2" SourceColumn="TYPE" SourceColumnNullMapping="false" SourceVersion="Current" />
<Parameter AllowDbNull="false" AutogeneratedName="WD_OBJECTTYPE" ColumnName="WD_OBJECTTYPE" DataSourceName="DD_ECM_TEST.dbo.TBPM_PROFILE" DataTypeServer="varchar(200)" DbType="AnsiString" Direction="Input" ParameterName="@WD_OBJECTTYPE" Precision="0" ProviderType="VarChar" Scale="0" Size="200" SourceColumn="WD_OBJECTTYPE" SourceColumnNullMapping="false" SourceVersion="Current" />
<Parameter AllowDbNull="false" AutogeneratedName="SORT_BY_LATEST" ColumnName="SORT_BY_LATEST" DataSourceName="DD_ECM_TEST.dbo.TBPM_PROFILE" DataTypeServer="bit" DbType="Boolean" Direction="Input" ParameterName="@SORT_BY_LATEST" Precision="0" ProviderType="Bit" Scale="0" Size="1" SourceColumn="SORT_BY_LATEST" SourceColumnNullMapping="false" SourceVersion="Current" />
<Parameter AllowDbNull="false" AutogeneratedName="PM_VEKTOR_INDEX" ColumnName="PM_VEKTOR_INDEX" DataSourceName="DD_ECM_TEST.dbo.TBPM_PROFILE" DataTypeServer="varchar(50)" DbType="AnsiString" Direction="Input" ParameterName="@PM_VEKTOR_INDEX" Precision="0" ProviderType="VarChar" Scale="0" Size="50" SourceColumn="PM_VEKTOR_INDEX" SourceColumnNullMapping="false" SourceVersion="Current" />
<Parameter AllowDbNull="true" AutogeneratedName="WORK_HISTORY_ENTRY" ColumnName="WORK_HISTORY_ENTRY" DataSourceName="DD_ECM_TEST.dbo.TBPM_PROFILE" DataTypeServer="varchar(500)" DbType="AnsiString" Direction="Input" ParameterName="@WORK_HISTORY_ENTRY" Precision="0" ProviderType="VarChar" Scale="0" Size="500" SourceColumn="WORK_HISTORY_ENTRY" SourceColumnNullMapping="false" SourceVersion="Current" />
<Parameter AllowDbNull="false" AutogeneratedName="SQL_VIEW" ColumnName="SQL_VIEW" DataSourceName="DD_ECM_TEST.dbo.TBPM_PROFILE" DataTypeServer="varchar(MAX)" DbType="AnsiString" Direction="Input" ParameterName="@SQL_VIEW" Precision="0" ProviderType="VarChar" Scale="0" Size="2147483647" SourceColumn="SQL_VIEW" SourceColumnNullMapping="false" SourceVersion="Current" />
<Parameter AllowDbNull="false" AutogeneratedName="ANNOTATE_ALL_WORK_HISTORY_ENTRIES" ColumnName="ANNOTATE_ALL_WORK_HISTORY_ENTRIES" DataSourceName="DD_ECM_TEST.dbo.TBPM_PROFILE" DataTypeServer="bit" DbType="Boolean" Direction="Input" ParameterName="@ANNOTATE_ALL_WORK_HISTORY_ENTRIES" Precision="0" ProviderType="Bit" Scale="0" Size="1" SourceColumn="ANNOTATE_ALL_WORK_HISTORY_ENTRIES" SourceColumnNullMapping="false" SourceVersion="Current" />
<Parameter AllowDbNull="false" AutogeneratedName="ANNOTATE_WORK_HISTORY_ENTRY" ColumnName="ANNOTATE_WORK_HISTORY_ENTRY" DataSourceName="DD_ECM_TEST.dbo.TBPM_PROFILE" DataTypeServer="bit" DbType="Boolean" Direction="Input" ParameterName="@ANNOTATE_WORK_HISTORY_ENTRY" Precision="0" ProviderType="Bit" Scale="0" Size="1" SourceColumn="ANNOTATE_WORK_HISTORY_ENTRY" SourceColumnNullMapping="false" SourceVersion="Current" />
</Parameters>
</DbCommand>
</InsertCommand>
<SelectCommand>
<DbCommand CommandType="Text" ModifiedByUser="false">
<CommandText>SELECT GUID, NAME, TITLE, PRIORITY, DESCRIPTION, ACTIVE, WD_SEARCH, NO_OF_DOCUMENTS, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, FINAL_PROFILE, FINAL_TEXT, MOVE2FOLDER,
TYPE, WD_OBJECTTYPE, SORT_BY_LATEST, PM_VEKTOR_INDEX, LOG_INDEX
<CommandText>SELECT GUID, NAME, TITLE, PRIORITY, DESCRIPTION, ACTIVE, WD_SEARCH, NO_OF_DOCUMENTS, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, FINAL_PROFILE, FINAL_TEXT, MOVE2FOLDER, TYPE,
WD_OBJECTTYPE, SORT_BY_LATEST, PM_VEKTOR_INDEX, LOG_INDEX, SQL_VIEW, ANNOTATE_ALL_WORK_HISTORY_ENTRIES, ANNOTATE_WORK_HISTORY_ENTRY, WORK_HISTORY_ENTRY
FROM TBPM_PROFILE
ORDER BY NAME</CommandText>
<Parameters />
</DbCommand>
</SelectCommand>
<UpdateCommand>
<DbCommand CommandType="Text" ModifiedByUser="false">
<DbCommand CommandType="Text" ModifiedByUser="true">
<CommandText>UPDATE TBPM_PROFILE
SET NAME = @NAME, TITLE = @TITLE, PRIORITY = @PRIORITY, DESCRIPTION = @DESCRIPTION, ACTIVE = @ACTIVE, WD_SEARCH = @WD_SEARCH, NO_OF_DOCUMENTS = @NO_OF_DOCUMENTS,
CHANGED_WHO = @CHANGED_WHO, FINAL_PROFILE = @FINAL_PROFILE, FINAL_TEXT = @FINAL_TEXT, MOVE2FOLDER = @MOVE2FOLDER, TYPE = @TYPE, WD_OBJECTTYPE = @WD_OBJECTTYPE,
SORT_BY_LATEST = @SORT_BY_LATEST, PM_VEKTOR_INDEX = @PM_VEKTOR_INDEX, LOG_INDEX = @LOG_INDEX
WHERE (GUID = @Original_GUID);
SORT_BY_LATEST = @SORT_BY_LATEST, PM_VEKTOR_INDEX = @PM_VEKTOR_INDEX, LOG_INDEX = @LOG_INDEX, WORK_HISTORY_ENTRY = @WORK_HISTORY_ENTRY, SQL_VIEW = @SQL_VIEW,
ANNOTATE_ALL_WORK_HISTORY_ENTRIES = @ANNOTATE_ALL_WORK_HISTORY_ENTRIES, ANNOTATE_WORK_HISTORY_ENTRY = @ANNOTATE_WORK_HISTORY_ENTRY
WHERE (GUID = @Original_GUID);
SELECT GUID, NAME, TITLE, PRIORITY, DESCRIPTION, ACTIVE, WD_SEARCH, NO_OF_DOCUMENTS, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, FINAL_PROFILE, FINAL_TEXT, MOVE2FOLDER, TYPE, WD_OBJECTTYPE, SORT_BY_LATEST FROM TBPM_PROFILE WHERE (GUID = @GUID)</CommandText>
<Parameters>
<Parameter AllowDbNull="false" AutogeneratedName="NAME" ColumnName="NAME" DataSourceName="" DataTypeServer="varchar(100)" DbType="AnsiString" Direction="Input" ParameterName="@NAME" Precision="0" ProviderType="VarChar" Scale="0" Size="100" SourceColumn="NAME" SourceColumnNullMapping="false" SourceVersion="Current" />
<Parameter AllowDbNull="false" AutogeneratedName="TITLE" ColumnName="TITLE" DataSourceName="" DataTypeServer="varchar(150)" DbType="AnsiString" Direction="Input" ParameterName="@TITLE" Precision="0" ProviderType="VarChar" Scale="0" Size="150" SourceColumn="TITLE" SourceColumnNullMapping="false" SourceVersion="Current" />
<Parameter AllowDbNull="false" AutogeneratedName="PRIORITY" ColumnName="PRIORITY" DataSourceName="" DataTypeServer="int" DbType="Int32" Direction="Input" ParameterName="@PRIORITY" Precision="0" ProviderType="Int" Scale="0" Size="4" SourceColumn="PRIORITY" SourceColumnNullMapping="false" SourceVersion="Current" />
<Parameter AllowDbNull="true" AutogeneratedName="DESCRIPTION" ColumnName="DESCRIPTION" DataSourceName="" DataTypeServer="varchar(250)" DbType="AnsiString" Direction="Input" ParameterName="@DESCRIPTION" Precision="0" ProviderType="VarChar" Scale="0" Size="250" SourceColumn="DESCRIPTION" SourceColumnNullMapping="false" SourceVersion="Current" />
<Parameter AllowDbNull="false" AutogeneratedName="ACTIVE" ColumnName="ACTIVE" DataSourceName="" DataTypeServer="bit" DbType="Boolean" Direction="Input" ParameterName="@ACTIVE" Precision="0" ProviderType="Bit" Scale="0" Size="1" SourceColumn="ACTIVE" SourceColumnNullMapping="false" SourceVersion="Current" />
<Parameter AllowDbNull="false" AutogeneratedName="WD_SEARCH" ColumnName="WD_SEARCH" DataSourceName="" DataTypeServer="varchar(500)" DbType="AnsiString" Direction="Input" ParameterName="@WD_SEARCH" Precision="0" ProviderType="VarChar" Scale="0" Size="500" SourceColumn="WD_SEARCH" SourceColumnNullMapping="false" SourceVersion="Current" />
<Parameter AllowDbNull="false" AutogeneratedName="NO_OF_DOCUMENTS" ColumnName="NO_OF_DOCUMENTS" DataSourceName="" DataTypeServer="int" DbType="Int32" Direction="Input" ParameterName="@NO_OF_DOCUMENTS" Precision="0" ProviderType="Int" Scale="0" Size="4" SourceColumn="NO_OF_DOCUMENTS" SourceColumnNullMapping="false" SourceVersion="Current" />
<Parameter AllowDbNull="true" AutogeneratedName="CHANGED_WHO" ColumnName="CHANGED_WHO" DataSourceName="" DataTypeServer="varchar(30)" DbType="AnsiString" Direction="Input" ParameterName="@CHANGED_WHO" Precision="0" ProviderType="VarChar" Scale="0" Size="30" SourceColumn="CHANGED_WHO" SourceColumnNullMapping="false" SourceVersion="Current" />
<Parameter AllowDbNull="false" AutogeneratedName="FINAL_PROFILE" ColumnName="FINAL_PROFILE" DataSourceName="" DataTypeServer="bit" DbType="Boolean" Direction="Input" ParameterName="@FINAL_PROFILE" Precision="0" ProviderType="Bit" Scale="0" Size="1" SourceColumn="FINAL_PROFILE" SourceColumnNullMapping="false" SourceVersion="Current" />
<Parameter AllowDbNull="true" AutogeneratedName="FINAL_TEXT" ColumnName="FINAL_TEXT" DataSourceName="" DataTypeServer="varchar(250)" DbType="AnsiString" Direction="Input" ParameterName="@FINAL_TEXT" Precision="0" ProviderType="VarChar" Scale="0" Size="250" SourceColumn="FINAL_TEXT" SourceColumnNullMapping="false" SourceVersion="Current" />
<Parameter AllowDbNull="true" AutogeneratedName="MOVE2FOLDER" ColumnName="MOVE2FOLDER" DataSourceName="" DataTypeServer="varchar(1000)" DbType="AnsiString" Direction="Input" ParameterName="@MOVE2FOLDER" Precision="0" ProviderType="VarChar" Scale="0" Size="1000" SourceColumn="MOVE2FOLDER" SourceColumnNullMapping="false" SourceVersion="Current" />
<Parameter AllowDbNull="false" AutogeneratedName="TYPE" ColumnName="TYPE" DataSourceName="" DataTypeServer="smallint" DbType="Int16" Direction="Input" ParameterName="@TYPE" Precision="0" ProviderType="SmallInt" Scale="0" Size="2" SourceColumn="TYPE" SourceColumnNullMapping="false" SourceVersion="Current" />
<Parameter AllowDbNull="false" AutogeneratedName="WD_OBJECTTYPE" ColumnName="WD_OBJECTTYPE" DataSourceName="" DataTypeServer="varchar(200)" DbType="AnsiString" Direction="Input" ParameterName="@WD_OBJECTTYPE" Precision="0" ProviderType="VarChar" Scale="0" Size="200" SourceColumn="WD_OBJECTTYPE" SourceColumnNullMapping="false" SourceVersion="Current" />
<Parameter AllowDbNull="false" AutogeneratedName="SORT_BY_LATEST" ColumnName="SORT_BY_LATEST" DataSourceName="" DataTypeServer="bit" DbType="Boolean" Direction="Input" ParameterName="@SORT_BY_LATEST" Precision="0" ProviderType="Bit" Scale="0" Size="1" SourceColumn="SORT_BY_LATEST" SourceColumnNullMapping="false" SourceVersion="Current" />
<Parameter AllowDbNull="true" AutogeneratedName="PM_VEKTOR_INDEX" ColumnName="PM_VEKTOR_INDEX" DataSourceName="" DataTypeServer="varchar(50)" DbType="AnsiString" Direction="Input" ParameterName="@PM_VEKTOR_INDEX" Precision="0" ProviderType="VarChar" Scale="0" Size="50" SourceColumn="PM_VEKTOR_INDEX" SourceColumnNullMapping="false" SourceVersion="Current" />
<Parameter AllowDbNull="false" AutogeneratedName="LOG_INDEX" ColumnName="LOG_INDEX" DataSourceName="" DataTypeServer="varchar(50)" DbType="AnsiString" Direction="Input" ParameterName="@LOG_INDEX" Precision="0" ProviderType="VarChar" Scale="0" Size="50" SourceColumn="LOG_INDEX" SourceColumnNullMapping="false" SourceVersion="Current" />
<Parameter AllowDbNull="false" AutogeneratedName="Original_GUID" ColumnName="GUID" DataSourceName="" DataTypeServer="int" DbType="Int32" Direction="Input" ParameterName="@Original_GUID" Precision="0" ProviderType="Int" Scale="0" Size="4" SourceColumn="GUID" SourceColumnNullMapping="false" SourceVersion="Original" />
<Parameter AllowDbNull="false" AutogeneratedName="GUID" ColumnName="GUID" DataSourceName="" DataTypeServer="int" DbType="Int32" Direction="Input" ParameterName="@GUID" Precision="0" ProviderType="Int" Scale="0" Size="4" SourceColumn="GUID" SourceColumnNullMapping="false" SourceVersion="Original" />
<Parameter AllowDbNull="false" AutogeneratedName="NAME" ColumnName="NAME" DataSourceName="DD_ECM_TEST.dbo.TBPM_PROFILE" DataTypeServer="varchar(100)" DbType="AnsiString" Direction="Input" ParameterName="@NAME" Precision="0" ProviderType="VarChar" Scale="0" Size="100" SourceColumn="NAME" SourceColumnNullMapping="false" SourceVersion="Current" />
<Parameter AllowDbNull="false" AutogeneratedName="TITLE" ColumnName="TITLE" DataSourceName="DD_ECM_TEST.dbo.TBPM_PROFILE" DataTypeServer="varchar(150)" DbType="AnsiString" Direction="Input" ParameterName="@TITLE" Precision="0" ProviderType="VarChar" Scale="0" Size="150" SourceColumn="TITLE" SourceColumnNullMapping="false" SourceVersion="Current" />
<Parameter AllowDbNull="false" AutogeneratedName="PRIORITY" ColumnName="PRIORITY" DataSourceName="DD_ECM_TEST.dbo.TBPM_PROFILE" DataTypeServer="int" DbType="Int32" Direction="Input" ParameterName="@PRIORITY" Precision="0" ProviderType="Int" Scale="0" Size="4" SourceColumn="PRIORITY" SourceColumnNullMapping="false" SourceVersion="Current" />
<Parameter AllowDbNull="true" AutogeneratedName="DESCRIPTION" ColumnName="DESCRIPTION" DataSourceName="DD_ECM_TEST.dbo.TBPM_PROFILE" DataTypeServer="varchar(250)" DbType="AnsiString" Direction="Input" ParameterName="@DESCRIPTION" Precision="0" ProviderType="VarChar" Scale="0" Size="250" SourceColumn="DESCRIPTION" SourceColumnNullMapping="false" SourceVersion="Current" />
<Parameter AllowDbNull="false" AutogeneratedName="ACTIVE" ColumnName="ACTIVE" DataSourceName="DD_ECM_TEST.dbo.TBPM_PROFILE" DataTypeServer="bit" DbType="Boolean" Direction="Input" ParameterName="@ACTIVE" Precision="0" ProviderType="Bit" Scale="0" Size="1" SourceColumn="ACTIVE" SourceColumnNullMapping="false" SourceVersion="Current" />
<Parameter AllowDbNull="false" AutogeneratedName="WD_SEARCH" ColumnName="WD_SEARCH" DataSourceName="DD_ECM_TEST.dbo.TBPM_PROFILE" DataTypeServer="varchar(500)" DbType="AnsiString" Direction="Input" ParameterName="@WD_SEARCH" Precision="0" ProviderType="VarChar" Scale="0" Size="500" SourceColumn="WD_SEARCH" SourceColumnNullMapping="false" SourceVersion="Current" />
<Parameter AllowDbNull="false" AutogeneratedName="NO_OF_DOCUMENTS" ColumnName="NO_OF_DOCUMENTS" DataSourceName="DD_ECM_TEST.dbo.TBPM_PROFILE" DataTypeServer="int" DbType="Int32" Direction="Input" ParameterName="@NO_OF_DOCUMENTS" Precision="0" ProviderType="Int" Scale="0" Size="4" SourceColumn="NO_OF_DOCUMENTS" SourceColumnNullMapping="false" SourceVersion="Current" />
<Parameter AllowDbNull="true" AutogeneratedName="CHANGED_WHO" ColumnName="CHANGED_WHO" DataSourceName="DD_ECM_TEST.dbo.TBPM_PROFILE" DataTypeServer="varchar(30)" DbType="AnsiString" Direction="Input" ParameterName="@CHANGED_WHO" Precision="0" ProviderType="VarChar" Scale="0" Size="30" SourceColumn="CHANGED_WHO" SourceColumnNullMapping="false" SourceVersion="Current" />
<Parameter AllowDbNull="false" AutogeneratedName="FINAL_PROFILE" ColumnName="FINAL_PROFILE" DataSourceName="DD_ECM_TEST.dbo.TBPM_PROFILE" DataTypeServer="bit" DbType="Boolean" Direction="Input" ParameterName="@FINAL_PROFILE" Precision="0" ProviderType="Bit" Scale="0" Size="1" SourceColumn="FINAL_PROFILE" SourceColumnNullMapping="false" SourceVersion="Current" />
<Parameter AllowDbNull="true" AutogeneratedName="FINAL_TEXT" ColumnName="FINAL_TEXT" DataSourceName="DD_ECM_TEST.dbo.TBPM_PROFILE" DataTypeServer="varchar(250)" DbType="AnsiString" Direction="Input" ParameterName="@FINAL_TEXT" Precision="0" ProviderType="VarChar" Scale="0" Size="250" SourceColumn="FINAL_TEXT" SourceColumnNullMapping="false" SourceVersion="Current" />
<Parameter AllowDbNull="true" AutogeneratedName="MOVE2FOLDER" ColumnName="MOVE2FOLDER" DataSourceName="DD_ECM_TEST.dbo.TBPM_PROFILE" DataTypeServer="varchar(1000)" DbType="AnsiString" Direction="Input" ParameterName="@MOVE2FOLDER" Precision="0" ProviderType="VarChar" Scale="0" Size="1000" SourceColumn="MOVE2FOLDER" SourceColumnNullMapping="false" SourceVersion="Current" />
<Parameter AllowDbNull="false" AutogeneratedName="TYPE" ColumnName="TYPE" DataSourceName="DD_ECM_TEST.dbo.TBPM_PROFILE" DataTypeServer="smallint" DbType="Int16" Direction="Input" ParameterName="@TYPE" Precision="0" ProviderType="SmallInt" Scale="0" Size="2" SourceColumn="TYPE" SourceColumnNullMapping="false" SourceVersion="Current" />
<Parameter AllowDbNull="false" AutogeneratedName="WD_OBJECTTYPE" ColumnName="WD_OBJECTTYPE" DataSourceName="DD_ECM_TEST.dbo.TBPM_PROFILE" DataTypeServer="varchar(200)" DbType="AnsiString" Direction="Input" ParameterName="@WD_OBJECTTYPE" Precision="0" ProviderType="VarChar" Scale="0" Size="200" SourceColumn="WD_OBJECTTYPE" SourceColumnNullMapping="false" SourceVersion="Current" />
<Parameter AllowDbNull="false" AutogeneratedName="SORT_BY_LATEST" ColumnName="SORT_BY_LATEST" DataSourceName="DD_ECM_TEST.dbo.TBPM_PROFILE" DataTypeServer="bit" DbType="Boolean" Direction="Input" ParameterName="@SORT_BY_LATEST" Precision="0" ProviderType="Bit" Scale="0" Size="1" SourceColumn="SORT_BY_LATEST" SourceColumnNullMapping="false" SourceVersion="Current" />
<Parameter AllowDbNull="false" AutogeneratedName="PM_VEKTOR_INDEX" ColumnName="PM_VEKTOR_INDEX" DataSourceName="DD_ECM_TEST.dbo.TBPM_PROFILE" DataTypeServer="varchar(50)" DbType="AnsiString" Direction="Input" ParameterName="@PM_VEKTOR_INDEX" Precision="0" ProviderType="VarChar" Scale="0" Size="50" SourceColumn="PM_VEKTOR_INDEX" SourceColumnNullMapping="false" SourceVersion="Current" />
<Parameter AllowDbNull="false" AutogeneratedName="LOG_INDEX" ColumnName="LOG_INDEX" DataSourceName="DD_ECM_TEST.dbo.TBPM_PROFILE" DataTypeServer="varchar(50)" DbType="AnsiString" Direction="Input" ParameterName="@LOG_INDEX" Precision="0" ProviderType="VarChar" Scale="0" Size="50" SourceColumn="LOG_INDEX" SourceColumnNullMapping="false" SourceVersion="Current" />
<Parameter AllowDbNull="true" AutogeneratedName="WORK_HISTORY_ENTRY" ColumnName="WORK_HISTORY_ENTRY" DataSourceName="DD_ECM_TEST.dbo.TBPM_PROFILE" DataTypeServer="varchar(500)" DbType="AnsiString" Direction="Input" ParameterName="@WORK_HISTORY_ENTRY" Precision="0" ProviderType="VarChar" Scale="0" Size="500" SourceColumn="WORK_HISTORY_ENTRY" SourceColumnNullMapping="false" SourceVersion="Current" />
<Parameter AllowDbNull="false" AutogeneratedName="SQL_VIEW" ColumnName="SQL_VIEW" DataSourceName="DD_ECM_TEST.dbo.TBPM_PROFILE" DataTypeServer="varchar(MAX)" DbType="AnsiString" Direction="Input" ParameterName="@SQL_VIEW" Precision="0" ProviderType="VarChar" Scale="0" Size="2147483647" SourceColumn="SQL_VIEW" SourceColumnNullMapping="false" SourceVersion="Current" />
<Parameter AllowDbNull="false" AutogeneratedName="ANNOTATE_ALL_WORK_HISTORY_ENTRIES" ColumnName="ANNOTATE_ALL_WORK_HISTORY_ENTRIES" DataSourceName="DD_ECM_TEST.dbo.TBPM_PROFILE" DataTypeServer="bit" DbType="Boolean" Direction="Input" ParameterName="@ANNOTATE_ALL_WORK_HISTORY_ENTRIES" Precision="0" ProviderType="Bit" Scale="0" Size="1" SourceColumn="ANNOTATE_ALL_WORK_HISTORY_ENTRIES" SourceColumnNullMapping="false" SourceVersion="Current" />
<Parameter AllowDbNull="false" AutogeneratedName="ANNOTATE_WORK_HISTORY_ENTRY" ColumnName="ANNOTATE_WORK_HISTORY_ENTRY" DataSourceName="DD_ECM_TEST.dbo.TBPM_PROFILE" DataTypeServer="bit" DbType="Boolean" Direction="Input" ParameterName="@ANNOTATE_WORK_HISTORY_ENTRY" Precision="0" ProviderType="Bit" Scale="0" Size="1" SourceColumn="ANNOTATE_WORK_HISTORY_ENTRY" SourceColumnNullMapping="false" SourceVersion="Current" />
<Parameter AllowDbNull="false" AutogeneratedName="Original_GUID" ColumnName="GUID" DataSourceName="DD_ECM_TEST.dbo.TBPM_PROFILE" DataTypeServer="int" DbType="Int32" Direction="Input" ParameterName="@Original_GUID" Precision="0" ProviderType="Int" Scale="0" Size="4" SourceColumn="GUID" SourceColumnNullMapping="false" SourceVersion="Original" />
<Parameter AllowDbNull="false" AutogeneratedName="GUID" ColumnName="GUID" DataSourceName="DD_ECM_TEST.dbo.TBPM_PROFILE" DataTypeServer="int" DbType="Int32" Direction="Input" ParameterName="@GUID" Precision="0" ProviderType="Int" Scale="0" Size="4" SourceColumn="GUID" SourceColumnNullMapping="false" SourceVersion="Original" />
</Parameters>
</DbCommand>
</UpdateCommand>
@ -1415,6 +1424,10 @@ SELECT GUID, NAME, TITLE, PRIORITY, DESCRIPTION, ACTIVE, WD_SEARCH, NO_OF_DOCUME
<Mapping SourceColumn="SORT_BY_LATEST" DataSetColumn="SORT_BY_LATEST" />
<Mapping SourceColumn="PM_VEKTOR_INDEX" DataSetColumn="PM_VEKTOR_INDEX" />
<Mapping SourceColumn="LOG_INDEX" DataSetColumn="LOG_INDEX" />
<Mapping SourceColumn="SQL_VIEW" DataSetColumn="SQL_VIEW" />
<Mapping SourceColumn="ANNOTATE_ALL_WORK_HISTORY_ENTRIES" DataSetColumn="ANNOTATE_ALL_WORK_HISTORY_ENTRIES" />
<Mapping SourceColumn="ANNOTATE_WORK_HISTORY_ENTRY" DataSetColumn="ANNOTATE_WORK_HISTORY_ENTRY" />
<Mapping SourceColumn="WORK_HISTORY_ENTRY" DataSetColumn="WORK_HISTORY_ENTRY" />
</Mappings>
<Sources>
<DbSource ConnectionRef="ConnectionString (MySettings)" DbObjectType="Unknown" GenerateShortCommands="true" GeneratorSourceName="cmdAnzProfile" Modifier="Public" Name="cmdAnzProfile" QueryType="Scalar" ScalarCallRetval="System.Int32, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" UseOptimisticConcurrency="true" UserGetMethodName="GetDataBy" UserSourceName="cmdAnzProfile">
@ -1448,7 +1461,7 @@ WHERE (FINAL_PROFILE = 1) AND (UPPER(NAME) = UPPER(@name))</CommandText>
</DbCommand>
</SelectCommand>
</DbSource>
<DbSource ConnectionRef="ConnectionString (MySettings)" DbObjectName="DD_DMS.dbo.TBPM_PROFILE" DbObjectType="Table" GenerateShortCommands="true" GeneratorSourceName="cmdInsert_Copy" Modifier="Public" Name="cmdInsert_Copy" QueryType="NoData" ScalarCallRetval="System.Object, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" UseOptimisticConcurrency="true" UserGetMethodName="GetDataBy4" UserSourceName="cmdInsert_Copy">
<DbSource ConnectionRef="ConnectionString (MySettings)" DbObjectName="DD_DMS.dbo.TBPM_PROFILE" DbObjectType="Table" GenerateShortCommands="true" GeneratorSourceName="cmdInsert_Copy" Modifier="Public" Name="cmdInsert_Copy" QueryType="NoData" ScalarCallRetval="System.Object, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" UseOptimisticConcurrency="true" UserGetMethodName="GetDataBy3" UserSourceName="cmdInsert_Copy">
<InsertCommand>
<DbCommand CommandType="Text" ModifiedByUser="true">
<CommandText>INSERT INTO TBPM_PROFILE
@ -1466,20 +1479,21 @@ WHERE (GUID = @GUID)</CommandText>
<SelectCommand>
<DbCommand CommandType="Text" ModifiedByUser="true">
<CommandText>INSERT INTO TBPM_PROFILE
(NAME, TITLE, PRIORITY, DESCRIPTION, ACTIVE, WD_SEARCH, NO_OF_DOCUMENTS, ADDED_WHO, FINAL_PROFILE, FINAL_TEXT, MOVE2FOLDER, TYPE, WD_OBJECTTYPE, SORT_BY_LATEST,
PM_VEKTOR_INDEX, LOG_INDEX)
SELECT 'KOPIE_VON_' + NAME AS Expr1, TITLE + '_COPY' AS Expr5, PRIORITY, DESCRIPTION, 0 AS Expr2, WD_SEARCH, 0 AS Expr3, @USER AS Expr4, FINAL_PROFILE, FINAL_TEXT, MOVE2FOLDER, TYPE,
WD_OBJECTTYPE, SORT_BY_LATEST, PM_VEKTOR_INDEX, LOG_INDEX
(NAME, TITLE, PRIORITY, DESCRIPTION, ACTIVE, WD_SEARCH, NO_OF_DOCUMENTS, ADDED_WHO, FINAL_PROFILE, FINAL_TEXT, MOVE2FOLDER, TYPE, WD_OBJECTTYPE, SORT_BY_LATEST, PM_VEKTOR_INDEX,
LOG_INDEX, WORK_HISTORY_ENTRY, SQL_GROUP_COLOR, SQL_GROUP_TEXT, SQL_VIEW, ANNOTATE_ALL_WORK_HISTORY_ENTRIES, ANNOTATE_WORK_HISTORY_ENTRY)
SELECT NAME + '_COPY' AS Expr1, TITLE + '_COPY' AS Expr5, PRIORITY, DESCRIPTION, 0 AS Expr2, WD_SEARCH, 0 AS Expr3, @USER AS Expr4, FINAL_PROFILE, FINAL_TEXT, MOVE2FOLDER, TYPE, WD_OBJECTTYPE,
SORT_BY_LATEST, PM_VEKTOR_INDEX, LOG_INDEX, WORK_HISTORY_ENTRY, SQL_GROUP_COLOR, SQL_GROUP_TEXT, SQL_VIEW, ANNOTATE_ALL_WORK_HISTORY_ENTRIES,
ANNOTATE_WORK_HISTORY_ENTRY
FROM TBPM_PROFILE AS TBPM_PROFILE_1
WHERE (GUID = @GUID)</CommandText>
<Parameters>
<Parameter AllowDbNull="false" AutogeneratedName="USER" ColumnName="" DataSourceName="" DataTypeServer="unknown" DbType="AnsiString" Direction="Input" ParameterName="@USER" Precision="0" Scale="0" Size="1024" SourceColumn="" SourceColumnNullMapping="false" SourceVersion="Current" />
<Parameter AllowDbNull="false" AutogeneratedName="GUID" ColumnName="GUID" DataSourceName="DD_DMS.dbo.TBPM_PROFILE" DataTypeServer="int" DbType="Int32" Direction="Input" ParameterName="@GUID" Precision="0" ProviderType="Int" Scale="0" Size="4" SourceColumn="GUID" SourceColumnNullMapping="false" SourceVersion="Current" />
<Parameter AllowDbNull="false" AutogeneratedName="GUID" ColumnName="GUID" DataSourceName="DD_ECM_TEST.dbo.TBPM_PROFILE" DataTypeServer="int" DbType="Int32" Direction="Input" ParameterName="@GUID" Precision="0" ProviderType="Int" Scale="0" Size="4" SourceColumn="GUID" SourceColumnNullMapping="false" SourceVersion="Current" />
</Parameters>
</DbCommand>
</SelectCommand>
</DbSource>
<DbSource ConnectionRef="ConnectionString (MySettings)" DbObjectType="Unknown" GenerateShortCommands="true" GeneratorSourceName="cmdMaxGuid" Modifier="Public" Name="cmdMaxGuid" QueryType="Scalar" ScalarCallRetval="System.Int32, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" UseOptimisticConcurrency="true" UserGetMethodName="GetDataBy5" UserSourceName="cmdMaxGuid">
<DbSource ConnectionRef="ConnectionString (MySettings)" DbObjectType="Unknown" GenerateShortCommands="true" GeneratorSourceName="cmdMaxGuid" Modifier="Public" Name="cmdMaxGuid" QueryType="Scalar" ScalarCallRetval="System.Int32, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" UseOptimisticConcurrency="true" UserGetMethodName="GetDataBy4" UserSourceName="cmdMaxGuid">
<SelectCommand>
<DbCommand CommandType="Text" ModifiedByUser="true">
<CommandText>SELECT MAX(GUID) FROM TBPM_PROFILE</CommandText>
@ -1487,7 +1501,7 @@ WHERE (GUID = @GUID)</CommandText>
</DbCommand>
</SelectCommand>
</DbSource>
<DbSource ConnectionRef="ConnectionString (MySettings)" DbObjectName="" DbObjectType="Unknown" GenerateShortCommands="true" GeneratorSourceName="cmdUpdatelogIndex" Modifier="Public" Name="cmdUpdatelogIndex" QueryType="NoData" ScalarCallRetval="System.Object, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" UseOptimisticConcurrency="true" UserGetMethodName="GetDataBy7" UserSourceName="cmdUpdatelogIndex">
<DbSource ConnectionRef="ConnectionString (MySettings)" DbObjectName="" DbObjectType="Unknown" GenerateShortCommands="true" GeneratorSourceName="cmdUpdatelogIndex" Modifier="Public" Name="cmdUpdatelogIndex" QueryType="NoData" ScalarCallRetval="System.Object, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" UseOptimisticConcurrency="true" UserGetMethodName="GetDataBy5" UserSourceName="cmdUpdatelogIndex">
<UpdateCommand>
<DbCommand CommandType="Text" ModifiedByUser="true">
<CommandText>UPDATE TBPM_PROFILE
@ -1502,7 +1516,7 @@ SELECT GUID, NAME, TITLE, PRIORITY, DESCRIPTION, ACTIVE, WD_SEARCH, NO_OF_DOCUME
</DbCommand>
</UpdateCommand>
</DbSource>
<DbSource ConnectionRef="ConnectionString (MySettings)" DbObjectName="" DbObjectType="Unknown" GenerateShortCommands="true" GeneratorSourceName="cmdUpdateNo" Modifier="Public" Name="cmdUpdateNo" QueryType="NoData" ScalarCallRetval="System.Object, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" UseOptimisticConcurrency="true" UserGetMethodName="GetDataBy8" UserSourceName="cmdUpdateNo">
<DbSource ConnectionRef="ConnectionString (MySettings)" DbObjectName="" DbObjectType="Unknown" GenerateShortCommands="true" GeneratorSourceName="cmdUpdateNo" Modifier="Public" Name="cmdUpdateNo" QueryType="NoData" ScalarCallRetval="System.Object, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" UseOptimisticConcurrency="true" UserGetMethodName="GetDataBy6" UserSourceName="cmdUpdateNo">
<UpdateCommand>
<DbCommand CommandType="Text" ModifiedByUser="true">
<CommandText>UPDATE TBPM_PROFILE
@ -1516,7 +1530,7 @@ WHERE (GUID = @GUID)</CommandText>
</DbCommand>
</UpdateCommand>
</DbSource>
<DbSource ConnectionRef="ConnectionString (MySettings)" DbObjectName="" DbObjectType="Unknown" GenerateShortCommands="true" GeneratorSourceName="CmdUpdateVKT_Index" Modifier="Public" Name="CmdUpdateVKT_Index" QueryType="NoData" ScalarCallRetval="System.Object, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" UseOptimisticConcurrency="true" UserGetMethodName="GetDataBy9" UserSourceName="CmdUpdateVKT_Index">
<DbSource ConnectionRef="ConnectionString (MySettings)" DbObjectName="" DbObjectType="Unknown" GenerateShortCommands="true" GeneratorSourceName="CmdUpdateVKT_Index" Modifier="Public" Name="CmdUpdateVKT_Index" QueryType="NoData" ScalarCallRetval="System.Object, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" UseOptimisticConcurrency="true" UserGetMethodName="GetDataBy7" UserSourceName="CmdUpdateVKT_Index">
<UpdateCommand>
<DbCommand CommandType="Text" ModifiedByUser="true">
<CommandText>UPDATE TBPM_PROFILE
@ -1524,7 +1538,7 @@ SET PM_VEKTOR_INDEX = @PM_VEKTOR_INDEX
WHERE (GUID = @Original_GUID);
SELECT GUID, NAME, TITLE, PRIORITY, DESCRIPTION, ACTIVE, WD_SEARCH, NO_OF_DOCUMENTS, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, FINAL_PROFILE, FINAL_TEXT, MOVE2FOLDER, TYPE, WD_OBJECTTYPE, SORT_BY_LATEST FROM TBPM_PROFILE WHERE (GUID = @GUID)</CommandText>
<Parameters>
<Parameter AllowDbNull="true" AutogeneratedName="PM_VEKTOR_INDEX" ColumnName="PM_VEKTOR_INDEX" DataSourceName="DD_DMSLite.dbo.TBPM_PROFILE" DataTypeServer="varchar(50)" DbType="AnsiString" Direction="Input" ParameterName="@PM_VEKTOR_INDEX" Precision="0" ProviderType="VarChar" Scale="0" Size="50" SourceColumn="PM_VEKTOR_INDEX" SourceColumnNullMapping="false" SourceVersion="Current" />
<Parameter AllowDbNull="false" AutogeneratedName="PM_VEKTOR_INDEX" ColumnName="PM_VEKTOR_INDEX" DataSourceName="DD_DMSLite.dbo.TBPM_PROFILE" DataTypeServer="varchar(50)" DbType="AnsiString" Direction="Input" ParameterName="@PM_VEKTOR_INDEX" Precision="0" ProviderType="VarChar" Scale="0" Size="50" SourceColumn="PM_VEKTOR_INDEX" SourceColumnNullMapping="false" SourceVersion="Current" />
<Parameter AllowDbNull="false" AutogeneratedName="Original_GUID" ColumnName="GUID" DataSourceName="DD_DMSLite.dbo.TBPM_PROFILE" DataTypeServer="int" DbType="Int32" Direction="Input" ParameterName="@Original_GUID" Precision="0" ProviderType="Int" Scale="0" Size="4" SourceColumn="GUID" SourceColumnNullMapping="false" SourceVersion="Original" />
<Parameter AllowDbNull="false" AutogeneratedName="GUID" ColumnName="GUID" DataSourceName="DD_DMSLite.dbo.TBPM_PROFILE" DataTypeServer="int" DbType="Int32" Direction="Input" ParameterName="@GUID" Precision="0" ProviderType="Int" Scale="0" Size="4" SourceColumn="GUID" SourceColumnNullMapping="false" SourceVersion="Original" />
</Parameters>
@ -2007,7 +2021,7 @@ WHERE (GUID = @GUID)</CommandText>
<xs:element name="DD_DMSLiteDataSet" msdata:IsDataSet="true" msdata:UseCurrentLocale="true" msprop:EnableTableAdapterManager="True" msprop:Generator_DataSetName="DD_DMSLiteDataSet" msprop:Generator_UserDSName="DD_DMSLiteDataSet">
<xs:complexType>
<xs:choice minOccurs="0" maxOccurs="unbounded">
<xs:element name="TBPM_PROFILE_FINAL_INDEXING" msprop:Generator_TableClassName="TBPM_PROFILE_FINAL_INDEXINGDataTable" msprop:Generator_TableVarName="tableTBPM_PROFILE_FINAL_INDEXING" msprop:Generator_RowChangedName="TBPM_PROFILE_FINAL_INDEXINGRowChanged" msprop:Generator_TablePropName="TBPM_PROFILE_FINAL_INDEXING" msprop:Generator_RowDeletingName="TBPM_PROFILE_FINAL_INDEXINGRowDeleting" msprop:Generator_RowChangingName="TBPM_PROFILE_FINAL_INDEXINGRowChanging" msprop:Generator_RowEvHandlerName="TBPM_PROFILE_FINAL_INDEXINGRowChangeEventHandler" msprop:Generator_RowDeletedName="TBPM_PROFILE_FINAL_INDEXINGRowDeleted" msprop:Generator_RowClassName="TBPM_PROFILE_FINAL_INDEXINGRow" msprop:Generator_UserTableName="TBPM_PROFILE_FINAL_INDEXING" msprop:Generator_RowEvArgName="TBPM_PROFILE_FINAL_INDEXINGRowChangeEvent">
<xs:element name="TBPM_PROFILE_FINAL_INDEXING" msprop:Generator_TableClassName="TBPM_PROFILE_FINAL_INDEXINGDataTable" msprop:Generator_TableVarName="tableTBPM_PROFILE_FINAL_INDEXING" msprop:Generator_TablePropName="TBPM_PROFILE_FINAL_INDEXING" msprop:Generator_RowDeletingName="TBPM_PROFILE_FINAL_INDEXINGRowDeleting" msprop:Generator_RowChangingName="TBPM_PROFILE_FINAL_INDEXINGRowChanging" msprop:Generator_RowEvHandlerName="TBPM_PROFILE_FINAL_INDEXINGRowChangeEventHandler" msprop:Generator_RowDeletedName="TBPM_PROFILE_FINAL_INDEXINGRowDeleted" msprop:Generator_UserTableName="TBPM_PROFILE_FINAL_INDEXING" msprop:Generator_RowChangedName="TBPM_PROFILE_FINAL_INDEXINGRowChanged" msprop:Generator_RowEvArgName="TBPM_PROFILE_FINAL_INDEXINGRowChangeEvent" msprop:Generator_RowClassName="TBPM_PROFILE_FINAL_INDEXINGRow">
<xs:complexType>
<xs:sequence>
<xs:element name="INDEXNAME" msprop:Generator_ColumnVarNameInTable="columnINDEXNAME" msprop:Generator_ColumnPropNameInRow="INDEXNAME" msprop:Generator_ColumnPropNameInTable="INDEXNAMEColumn" msprop:Generator_UserColumnName="INDEXNAME">
@ -2052,7 +2066,7 @@ WHERE (GUID = @GUID)</CommandText>
</xs:sequence>
</xs:complexType>
</xs:element>
<xs:element name="VWPM_PROFILE_USER" msprop:Generator_TableClassName="VWPM_PROFILE_USERDataTable" msprop:Generator_TableVarName="tableVWPM_PROFILE_USER" msprop:Generator_RowChangedName="VWPM_PROFILE_USERRowChanged" msprop:Generator_TablePropName="VWPM_PROFILE_USER" msprop:Generator_RowDeletingName="VWPM_PROFILE_USERRowDeleting" msprop:Generator_RowChangingName="VWPM_PROFILE_USERRowChanging" msprop:Generator_RowEvHandlerName="VWPM_PROFILE_USERRowChangeEventHandler" msprop:Generator_RowDeletedName="VWPM_PROFILE_USERRowDeleted" msprop:Generator_RowClassName="VWPM_PROFILE_USERRow" msprop:Generator_UserTableName="VWPM_PROFILE_USER" msprop:Generator_RowEvArgName="VWPM_PROFILE_USERRowChangeEvent">
<xs:element name="VWPM_PROFILE_USER" msprop:Generator_TableClassName="VWPM_PROFILE_USERDataTable" msprop:Generator_TableVarName="tableVWPM_PROFILE_USER" msprop:Generator_TablePropName="VWPM_PROFILE_USER" msprop:Generator_RowDeletingName="VWPM_PROFILE_USERRowDeleting" msprop:Generator_RowChangingName="VWPM_PROFILE_USERRowChanging" msprop:Generator_RowEvHandlerName="VWPM_PROFILE_USERRowChangeEventHandler" msprop:Generator_RowDeletedName="VWPM_PROFILE_USERRowDeleted" msprop:Generator_UserTableName="VWPM_PROFILE_USER" msprop:Generator_RowChangedName="VWPM_PROFILE_USERRowChanged" msprop:Generator_RowEvArgName="VWPM_PROFILE_USERRowChangeEvent" msprop:Generator_RowClassName="VWPM_PROFILE_USERRow">
<xs:complexType>
<xs:sequence>
<xs:element name="PROFIL_ID" msprop:Generator_ColumnVarNameInTable="columnPROFIL_ID" msprop:Generator_ColumnPropNameInRow="PROFIL_ID" msprop:Generator_ColumnPropNameInTable="PROFIL_IDColumn" msprop:Generator_UserColumnName="PROFIL_ID" type="xs:int" />
@ -2155,7 +2169,7 @@ WHERE (GUID = @GUID)</CommandText>
</xs:sequence>
</xs:complexType>
</xs:element>
<xs:element name="TBPM_KONFIGURATION" msprop:Generator_TableClassName="TBPM_KONFIGURATIONDataTable" msprop:Generator_TableVarName="tableTBPM_KONFIGURATION" msprop:Generator_RowChangedName="TBPM_KONFIGURATIONRowChanged" msprop:Generator_TablePropName="TBPM_KONFIGURATION" msprop:Generator_RowDeletingName="TBPM_KONFIGURATIONRowDeleting" msprop:Generator_RowChangingName="TBPM_KONFIGURATIONRowChanging" msprop:Generator_RowEvHandlerName="TBPM_KONFIGURATIONRowChangeEventHandler" msprop:Generator_RowDeletedName="TBPM_KONFIGURATIONRowDeleted" msprop:Generator_RowClassName="TBPM_KONFIGURATIONRow" msprop:Generator_UserTableName="TBPM_KONFIGURATION" msprop:Generator_RowEvArgName="TBPM_KONFIGURATIONRowChangeEvent">
<xs:element name="TBPM_KONFIGURATION" msprop:Generator_TableClassName="TBPM_KONFIGURATIONDataTable" msprop:Generator_TableVarName="tableTBPM_KONFIGURATION" msprop:Generator_TablePropName="TBPM_KONFIGURATION" msprop:Generator_RowDeletingName="TBPM_KONFIGURATIONRowDeleting" msprop:Generator_RowChangingName="TBPM_KONFIGURATIONRowChanging" msprop:Generator_RowEvHandlerName="TBPM_KONFIGURATIONRowChangeEventHandler" msprop:Generator_RowDeletedName="TBPM_KONFIGURATIONRowDeleted" msprop:Generator_UserTableName="TBPM_KONFIGURATION" msprop:Generator_RowChangedName="TBPM_KONFIGURATIONRowChanged" msprop:Generator_RowEvArgName="TBPM_KONFIGURATIONRowChangeEvent" msprop:Generator_RowClassName="TBPM_KONFIGURATIONRow">
<xs:complexType>
<xs:sequence>
<xs:element name="GUID" msprop:Generator_ColumnVarNameInTable="columnGUID" msprop:Generator_ColumnPropNameInRow="GUID" msprop:Generator_ColumnPropNameInTable="GUIDColumn" msprop:Generator_UserColumnName="GUID" type="xs:unsignedByte" />
@ -2251,7 +2265,7 @@ WHERE (GUID = @GUID)</CommandText>
</xs:sequence>
</xs:complexType>
</xs:element>
<xs:element name="TBPM_USER" msprop:Generator_TableClassName="TBPM_USERDataTable" msprop:Generator_TableVarName="tableTBPM_USER" msprop:Generator_RowChangedName="TBPM_USERRowChanged" msprop:Generator_TablePropName="TBPM_USER" msprop:Generator_RowDeletingName="TBPM_USERRowDeleting" msprop:Generator_RowChangingName="TBPM_USERRowChanging" msprop:Generator_RowEvHandlerName="TBPM_USERRowChangeEventHandler" msprop:Generator_RowDeletedName="TBPM_USERRowDeleted" msprop:Generator_RowClassName="TBPM_USERRow" msprop:Generator_UserTableName="TBPM_USER" msprop:Generator_RowEvArgName="TBPM_USERRowChangeEvent">
<xs:element name="TBPM_USER" msprop:Generator_TableClassName="TBPM_USERDataTable" msprop:Generator_TableVarName="tableTBPM_USER" msprop:Generator_TablePropName="TBPM_USER" msprop:Generator_RowDeletingName="TBPM_USERRowDeleting" msprop:Generator_RowChangingName="TBPM_USERRowChanging" msprop:Generator_RowEvHandlerName="TBPM_USERRowChangeEventHandler" msprop:Generator_RowDeletedName="TBPM_USERRowDeleted" msprop:Generator_UserTableName="TBPM_USER" msprop:Generator_RowChangedName="TBPM_USERRowChanged" msprop:Generator_RowEvArgName="TBPM_USERRowChangeEvent" msprop:Generator_RowClassName="TBPM_USERRow">
<xs:complexType>
<xs:sequence>
<xs:element name="GUID" msdata:ReadOnly="true" msdata:AutoIncrement="true" msdata:AutoIncrementSeed="-1" msprop:Generator_ColumnVarNameInTable="columnGUID" msprop:Generator_ColumnPropNameInRow="GUID" msprop:Generator_ColumnPropNameInTable="GUIDColumn" msprop:Generator_UserColumnName="GUID" type="xs:int" />
@ -2322,7 +2336,7 @@ WHERE (GUID = @GUID)</CommandText>
</xs:sequence>
</xs:complexType>
</xs:element>
<xs:element name="TBPM_TYPE" msprop:Generator_TableClassName="TBPM_TYPEDataTable" msprop:Generator_TableVarName="tableTBPM_TYPE" msprop:Generator_RowChangedName="TBPM_TYPERowChanged" msprop:Generator_TablePropName="TBPM_TYPE" msprop:Generator_RowDeletingName="TBPM_TYPERowDeleting" msprop:Generator_RowChangingName="TBPM_TYPERowChanging" msprop:Generator_RowEvHandlerName="TBPM_TYPERowChangeEventHandler" msprop:Generator_RowDeletedName="TBPM_TYPERowDeleted" msprop:Generator_RowClassName="TBPM_TYPERow" msprop:Generator_UserTableName="TBPM_TYPE" msprop:Generator_RowEvArgName="TBPM_TYPERowChangeEvent">
<xs:element name="TBPM_TYPE" msprop:Generator_TableClassName="TBPM_TYPEDataTable" msprop:Generator_TableVarName="tableTBPM_TYPE" msprop:Generator_TablePropName="TBPM_TYPE" msprop:Generator_RowDeletingName="TBPM_TYPERowDeleting" msprop:Generator_RowChangingName="TBPM_TYPERowChanging" msprop:Generator_RowEvHandlerName="TBPM_TYPERowChangeEventHandler" msprop:Generator_RowDeletedName="TBPM_TYPERowDeleted" msprop:Generator_UserTableName="TBPM_TYPE" msprop:Generator_RowChangedName="TBPM_TYPERowChanged" msprop:Generator_RowEvArgName="TBPM_TYPERowChangeEvent" msprop:Generator_RowClassName="TBPM_TYPERow">
<xs:complexType>
<xs:sequence>
<xs:element name="GUID" msdata:ReadOnly="true" msdata:AutoIncrement="true" msdata:AutoIncrementSeed="-1" msdata:AutoIncrementStep="-1" msprop:Generator_ColumnVarNameInTable="columnGUID" msprop:Generator_ColumnPropNameInRow="GUID" msprop:Generator_ColumnPropNameInTable="GUIDColumn" msprop:Generator_UserColumnName="GUID" type="xs:short" />
@ -2352,7 +2366,7 @@ WHERE (GUID = @GUID)</CommandText>
</xs:sequence>
</xs:complexType>
</xs:element>
<xs:element name="TBPM_ERROR_LOG" msprop:Generator_TableClassName="TBPM_ERROR_LOGDataTable" msprop:Generator_TableVarName="tableTBPM_ERROR_LOG" msprop:Generator_RowChangedName="TBPM_ERROR_LOGRowChanged" msprop:Generator_TablePropName="TBPM_ERROR_LOG" msprop:Generator_RowDeletingName="TBPM_ERROR_LOGRowDeleting" msprop:Generator_RowChangingName="TBPM_ERROR_LOGRowChanging" msprop:Generator_RowEvHandlerName="TBPM_ERROR_LOGRowChangeEventHandler" msprop:Generator_RowDeletedName="TBPM_ERROR_LOGRowDeleted" msprop:Generator_RowClassName="TBPM_ERROR_LOGRow" msprop:Generator_UserTableName="TBPM_ERROR_LOG" msprop:Generator_RowEvArgName="TBPM_ERROR_LOGRowChangeEvent">
<xs:element name="TBPM_ERROR_LOG" msprop:Generator_TableClassName="TBPM_ERROR_LOGDataTable" msprop:Generator_TableVarName="tableTBPM_ERROR_LOG" msprop:Generator_TablePropName="TBPM_ERROR_LOG" msprop:Generator_RowDeletingName="TBPM_ERROR_LOGRowDeleting" msprop:Generator_RowChangingName="TBPM_ERROR_LOGRowChanging" msprop:Generator_RowEvHandlerName="TBPM_ERROR_LOGRowChangeEventHandler" msprop:Generator_RowDeletedName="TBPM_ERROR_LOGRowDeleted" msprop:Generator_UserTableName="TBPM_ERROR_LOG" msprop:Generator_RowChangedName="TBPM_ERROR_LOGRowChanged" msprop:Generator_RowEvArgName="TBPM_ERROR_LOGRowChangeEvent" msprop:Generator_RowClassName="TBPM_ERROR_LOGRow">
<xs:complexType>
<xs:sequence>
<xs:element name="GUID" msdata:ReadOnly="true" msdata:AutoIncrement="true" msdata:AutoIncrementSeed="-1" msdata:AutoIncrementStep="-1" msprop:Generator_ColumnVarNameInTable="columnGUID" msprop:Generator_ColumnPropNameInRow="GUID" msprop:Generator_ColumnPropNameInTable="GUIDColumn" msprop:Generator_UserColumnName="GUID" type="xs:int" />
@ -2375,7 +2389,7 @@ WHERE (GUID = @GUID)</CommandText>
</xs:sequence>
</xs:complexType>
</xs:element>
<xs:element name="VWPM_CONTROL_INDEX" msprop:Generator_TableClassName="VWPM_CONTROL_INDEXDataTable" msprop:Generator_TableVarName="tableVWPM_CONTROL_INDEX" msprop:Generator_RowChangedName="VWPM_CONTROL_INDEXRowChanged" msprop:Generator_TablePropName="VWPM_CONTROL_INDEX" msprop:Generator_RowDeletingName="VWPM_CONTROL_INDEXRowDeleting" msprop:Generator_RowChangingName="VWPM_CONTROL_INDEXRowChanging" msprop:Generator_RowEvHandlerName="VWPM_CONTROL_INDEXRowChangeEventHandler" msprop:Generator_RowDeletedName="VWPM_CONTROL_INDEXRowDeleted" msprop:Generator_RowClassName="VWPM_CONTROL_INDEXRow" msprop:Generator_UserTableName="VWPM_CONTROL_INDEX" msprop:Generator_RowEvArgName="VWPM_CONTROL_INDEXRowChangeEvent">
<xs:element name="VWPM_CONTROL_INDEX" msprop:Generator_TableClassName="VWPM_CONTROL_INDEXDataTable" msprop:Generator_TableVarName="tableVWPM_CONTROL_INDEX" msprop:Generator_TablePropName="VWPM_CONTROL_INDEX" msprop:Generator_RowDeletingName="VWPM_CONTROL_INDEXRowDeleting" msprop:Generator_RowChangingName="VWPM_CONTROL_INDEXRowChanging" msprop:Generator_RowEvHandlerName="VWPM_CONTROL_INDEXRowChangeEventHandler" msprop:Generator_RowDeletedName="VWPM_CONTROL_INDEXRowDeleted" msprop:Generator_UserTableName="VWPM_CONTROL_INDEX" msprop:Generator_RowChangedName="VWPM_CONTROL_INDEXRowChanged" msprop:Generator_RowEvArgName="VWPM_CONTROL_INDEXRowChangeEvent" msprop:Generator_RowClassName="VWPM_CONTROL_INDEXRow">
<xs:complexType>
<xs:sequence>
<xs:element name="GUID" msprop:Generator_ColumnVarNameInTable="columnGUID" msprop:Generator_ColumnPropNameInRow="GUID" msprop:Generator_ColumnPropNameInTable="GUIDColumn" msprop:Generator_UserColumnName="GUID" type="xs:int" />
@ -2464,7 +2478,7 @@ WHERE (GUID = @GUID)</CommandText>
</xs:sequence>
</xs:complexType>
</xs:element>
<xs:element name="TBPM_CONNECTION" msprop:Generator_TableClassName="TBPM_CONNECTIONDataTable" msprop:Generator_TableVarName="tableTBPM_CONNECTION" msprop:Generator_RowChangedName="TBPM_CONNECTIONRowChanged" msprop:Generator_TablePropName="TBPM_CONNECTION" msprop:Generator_RowDeletingName="TBPM_CONNECTIONRowDeleting" msprop:Generator_RowChangingName="TBPM_CONNECTIONRowChanging" msprop:Generator_RowEvHandlerName="TBPM_CONNECTIONRowChangeEventHandler" msprop:Generator_RowDeletedName="TBPM_CONNECTIONRowDeleted" msprop:Generator_RowClassName="TBPM_CONNECTIONRow" msprop:Generator_UserTableName="TBPM_CONNECTION" msprop:Generator_RowEvArgName="TBPM_CONNECTIONRowChangeEvent">
<xs:element name="TBPM_CONNECTION" msprop:Generator_TableClassName="TBPM_CONNECTIONDataTable" msprop:Generator_TableVarName="tableTBPM_CONNECTION" msprop:Generator_TablePropName="TBPM_CONNECTION" msprop:Generator_RowDeletingName="TBPM_CONNECTIONRowDeleting" msprop:Generator_RowChangingName="TBPM_CONNECTIONRowChanging" msprop:Generator_RowEvHandlerName="TBPM_CONNECTIONRowChangeEventHandler" msprop:Generator_RowDeletedName="TBPM_CONNECTIONRowDeleted" msprop:Generator_UserTableName="TBPM_CONNECTION" msprop:Generator_RowChangedName="TBPM_CONNECTIONRowChanged" msprop:Generator_RowEvArgName="TBPM_CONNECTIONRowChangeEvent" msprop:Generator_RowClassName="TBPM_CONNECTIONRow">
<xs:complexType>
<xs:sequence>
<xs:element name="GUID" msdata:ReadOnly="true" msdata:AutoIncrement="true" msprop:Generator_ColumnVarNameInTable="columnGUID" msprop:Generator_ColumnPropNameInRow="GUID" msprop:Generator_ColumnPropNameInTable="GUIDColumn" msprop:Generator_UserColumnName="GUID" type="xs:short" />
@ -2537,7 +2551,7 @@ WHERE (GUID = @GUID)</CommandText>
</xs:sequence>
</xs:complexType>
</xs:element>
<xs:element name="TBPROFILE_USER" msprop:Generator_TableClassName="TBPROFILE_USERDataTable" msprop:Generator_TableVarName="tableTBPROFILE_USER" msprop:Generator_RowChangedName="TBPROFILE_USERRowChanged" msprop:Generator_TablePropName="TBPROFILE_USER" msprop:Generator_RowDeletingName="TBPROFILE_USERRowDeleting" msprop:Generator_RowChangingName="TBPROFILE_USERRowChanging" msprop:Generator_RowEvHandlerName="TBPROFILE_USERRowChangeEventHandler" msprop:Generator_RowDeletedName="TBPROFILE_USERRowDeleted" msprop:Generator_RowClassName="TBPROFILE_USERRow" msprop:Generator_UserTableName="TBPROFILE_USER" msprop:Generator_RowEvArgName="TBPROFILE_USERRowChangeEvent">
<xs:element name="TBPROFILE_USER" msprop:Generator_TableClassName="TBPROFILE_USERDataTable" msprop:Generator_TableVarName="tableTBPROFILE_USER" msprop:Generator_TablePropName="TBPROFILE_USER" msprop:Generator_RowDeletingName="TBPROFILE_USERRowDeleting" msprop:Generator_RowChangingName="TBPROFILE_USERRowChanging" msprop:Generator_RowEvHandlerName="TBPROFILE_USERRowChangeEventHandler" msprop:Generator_RowDeletedName="TBPROFILE_USERRowDeleted" msprop:Generator_UserTableName="TBPROFILE_USER" msprop:Generator_RowChangedName="TBPROFILE_USERRowChanged" msprop:Generator_RowEvArgName="TBPROFILE_USERRowChangeEvent" msprop:Generator_RowClassName="TBPROFILE_USERRow">
<xs:complexType>
<xs:sequence>
<xs:element name="GUID" msdata:ReadOnly="true" msdata:AutoIncrement="true" msdata:AutoIncrementSeed="-1" msprop:Generator_ColumnVarNameInTable="columnGUID" msprop:Generator_ColumnPropNameInRow="GUID" msprop:Generator_ColumnPropNameInTable="GUIDColumn" msprop:Generator_UserColumnName="GUID" type="xs:int" />
@ -2573,7 +2587,7 @@ WHERE (GUID = @GUID)</CommandText>
</xs:sequence>
</xs:complexType>
</xs:element>
<xs:element name="TBPM_PROFILE_FILES" msprop:Generator_TableClassName="TBPM_PROFILE_FILESDataTable" msprop:Generator_TableVarName="tableTBPM_PROFILE_FILES" msprop:Generator_RowChangedName="TBPM_PROFILE_FILESRowChanged" msprop:Generator_TablePropName="TBPM_PROFILE_FILES" msprop:Generator_RowDeletingName="TBPM_PROFILE_FILESRowDeleting" msprop:Generator_RowChangingName="TBPM_PROFILE_FILESRowChanging" msprop:Generator_RowEvHandlerName="TBPM_PROFILE_FILESRowChangeEventHandler" msprop:Generator_RowDeletedName="TBPM_PROFILE_FILESRowDeleted" msprop:Generator_RowClassName="TBPM_PROFILE_FILESRow" msprop:Generator_UserTableName="TBPM_PROFILE_FILES" msprop:Generator_RowEvArgName="TBPM_PROFILE_FILESRowChangeEvent">
<xs:element name="TBPM_PROFILE_FILES" msprop:Generator_TableClassName="TBPM_PROFILE_FILESDataTable" msprop:Generator_TableVarName="tableTBPM_PROFILE_FILES" msprop:Generator_TablePropName="TBPM_PROFILE_FILES" msprop:Generator_RowDeletingName="TBPM_PROFILE_FILESRowDeleting" msprop:Generator_RowChangingName="TBPM_PROFILE_FILESRowChanging" msprop:Generator_RowEvHandlerName="TBPM_PROFILE_FILESRowChangeEventHandler" msprop:Generator_RowDeletedName="TBPM_PROFILE_FILESRowDeleted" msprop:Generator_UserTableName="TBPM_PROFILE_FILES" msprop:Generator_RowChangedName="TBPM_PROFILE_FILESRowChanged" msprop:Generator_RowEvArgName="TBPM_PROFILE_FILESRowChangeEvent" msprop:Generator_RowClassName="TBPM_PROFILE_FILESRow">
<xs:complexType>
<xs:sequence>
<xs:element name="GUID" msdata:ReadOnly="true" msdata:AutoIncrement="true" msdata:AutoIncrementSeed="-1" msdata:AutoIncrementStep="-1" msprop:Generator_ColumnVarNameInTable="columnGUID" msprop:Generator_ColumnPropNameInRow="GUID" msprop:Generator_ColumnPropNameInTable="GUIDColumn" msprop:Generator_UserColumnName="GUID" type="xs:int" />
@ -2588,7 +2602,7 @@ WHERE (GUID = @GUID)</CommandText>
</xs:sequence>
</xs:complexType>
</xs:element>
<xs:element name="TBPM_FILES_USER_NOT_INDEXED" msprop:Generator_TableClassName="TBPM_FILES_USER_NOT_INDEXEDDataTable" msprop:Generator_TableVarName="tableTBPM_FILES_USER_NOT_INDEXED" msprop:Generator_RowChangedName="TBPM_FILES_USER_NOT_INDEXEDRowChanged" msprop:Generator_TablePropName="TBPM_FILES_USER_NOT_INDEXED" msprop:Generator_RowDeletingName="TBPM_FILES_USER_NOT_INDEXEDRowDeleting" msprop:Generator_RowChangingName="TBPM_FILES_USER_NOT_INDEXEDRowChanging" msprop:Generator_RowEvHandlerName="TBPM_FILES_USER_NOT_INDEXEDRowChangeEventHandler" msprop:Generator_RowDeletedName="TBPM_FILES_USER_NOT_INDEXEDRowDeleted" msprop:Generator_RowClassName="TBPM_FILES_USER_NOT_INDEXEDRow" msprop:Generator_UserTableName="TBPM_FILES_USER_NOT_INDEXED" msprop:Generator_RowEvArgName="TBPM_FILES_USER_NOT_INDEXEDRowChangeEvent">
<xs:element name="TBPM_FILES_USER_NOT_INDEXED" msprop:Generator_TableClassName="TBPM_FILES_USER_NOT_INDEXEDDataTable" msprop:Generator_TableVarName="tableTBPM_FILES_USER_NOT_INDEXED" msprop:Generator_TablePropName="TBPM_FILES_USER_NOT_INDEXED" msprop:Generator_RowDeletingName="TBPM_FILES_USER_NOT_INDEXEDRowDeleting" msprop:Generator_RowChangingName="TBPM_FILES_USER_NOT_INDEXEDRowChanging" msprop:Generator_RowEvHandlerName="TBPM_FILES_USER_NOT_INDEXEDRowChangeEventHandler" msprop:Generator_RowDeletedName="TBPM_FILES_USER_NOT_INDEXEDRowDeleted" msprop:Generator_UserTableName="TBPM_FILES_USER_NOT_INDEXED" msprop:Generator_RowChangedName="TBPM_FILES_USER_NOT_INDEXEDRowChanged" msprop:Generator_RowEvArgName="TBPM_FILES_USER_NOT_INDEXEDRowChangeEvent" msprop:Generator_RowClassName="TBPM_FILES_USER_NOT_INDEXEDRow">
<xs:complexType>
<xs:sequence>
<xs:element name="USR_NAME" msprop:Generator_ColumnVarNameInTable="columnUSR_NAME" msprop:Generator_ColumnPropNameInRow="USR_NAME" msprop:Generator_ColumnPropNameInTable="USR_NAMEColumn" msprop:Generator_UserColumnName="USR_NAME" minOccurs="0">
@ -2609,7 +2623,7 @@ WHERE (GUID = @GUID)</CommandText>
</xs:sequence>
</xs:complexType>
</xs:element>
<xs:element name="TBPM_PROFILE" msprop:Generator_TableClassName="TBPM_PROFILEDataTable" msprop:Generator_TableVarName="tableTBPM_PROFILE" msprop:Generator_RowChangedName="TBPM_PROFILERowChanged" msprop:Generator_TablePropName="TBPM_PROFILE" msprop:Generator_RowDeletingName="TBPM_PROFILERowDeleting" msprop:Generator_RowChangingName="TBPM_PROFILERowChanging" msprop:Generator_RowEvHandlerName="TBPM_PROFILERowChangeEventHandler" msprop:Generator_RowDeletedName="TBPM_PROFILERowDeleted" msprop:Generator_RowClassName="TBPM_PROFILERow" msprop:Generator_UserTableName="TBPM_PROFILE" msprop:Generator_RowEvArgName="TBPM_PROFILERowChangeEvent">
<xs:element name="TBPM_PROFILE" msprop:Generator_TableClassName="TBPM_PROFILEDataTable" msprop:Generator_TableVarName="tableTBPM_PROFILE" msprop:Generator_TablePropName="TBPM_PROFILE" msprop:Generator_RowDeletingName="TBPM_PROFILERowDeleting" msprop:Generator_RowChangingName="TBPM_PROFILERowChanging" msprop:Generator_RowEvHandlerName="TBPM_PROFILERowChangeEventHandler" msprop:Generator_RowDeletedName="TBPM_PROFILERowDeleted" msprop:Generator_UserTableName="TBPM_PROFILE" msprop:Generator_RowChangedName="TBPM_PROFILERowChanged" msprop:Generator_RowEvArgName="TBPM_PROFILERowChangeEvent" msprop:Generator_RowClassName="TBPM_PROFILERow">
<xs:complexType>
<xs:sequence>
<xs:element name="GUID" msdata:ReadOnly="true" msdata:AutoIncrement="true" msdata:AutoIncrementSeed="1" msprop:Generator_ColumnVarNameInTable="columnGUID" msprop:Generator_ColumnPropNameInRow="GUID" msprop:Generator_ColumnPropNameInTable="GUIDColumn" msprop:Generator_UserColumnName="GUID" type="xs:int" />
@ -2651,7 +2665,7 @@ WHERE (GUID = @GUID)</CommandText>
</xs:restriction>
</xs:simpleType>
</xs:element>
<xs:element name="ADDED_WHEN" msprop:Generator_ColumnVarNameInTable="columnADDED_WHEN" msprop:Generator_ColumnPropNameInRow="ADDED_WHEN" msprop:Generator_ColumnPropNameInTable="ADDED_WHENColumn" msprop:Generator_UserColumnName="ADDED_WHEN" type="xs:dateTime" minOccurs="0" />
<xs:element name="ADDED_WHEN" msprop:Generator_ColumnVarNameInTable="columnADDED_WHEN" msprop:Generator_ColumnPropNameInRow="ADDED_WHEN" msprop:Generator_ColumnPropNameInTable="ADDED_WHENColumn" msprop:Generator_UserColumnName="ADDED_WHEN" type="xs:dateTime" />
<xs:element name="CHANGED_WHO" msprop:Generator_ColumnVarNameInTable="columnCHANGED_WHO" msprop:Generator_ColumnPropNameInRow="CHANGED_WHO" msprop:Generator_ColumnPropNameInTable="CHANGED_WHOColumn" msprop:Generator_UserColumnName="CHANGED_WHO" minOccurs="0">
<xs:simpleType>
<xs:restriction base="xs:string">
@ -2684,7 +2698,7 @@ WHERE (GUID = @GUID)</CommandText>
</xs:simpleType>
</xs:element>
<xs:element name="SORT_BY_LATEST" msprop:Generator_ColumnVarNameInTable="columnSORT_BY_LATEST" msprop:Generator_ColumnPropNameInRow="SORT_BY_LATEST" msprop:Generator_ColumnPropNameInTable="SORT_BY_LATESTColumn" msprop:Generator_UserColumnName="SORT_BY_LATEST" type="xs:boolean" default="true" />
<xs:element name="PM_VEKTOR_INDEX" msprop:Generator_ColumnVarNameInTable="columnPM_VEKTOR_INDEX" msprop:Generator_ColumnPropNameInRow="PM_VEKTOR_INDEX" msprop:Generator_ColumnPropNameInTable="PM_VEKTOR_INDEXColumn" msprop:Generator_UserColumnName="PM_VEKTOR_INDEX" default="" minOccurs="0">
<xs:element name="PM_VEKTOR_INDEX" msprop:Generator_ColumnVarNameInTable="columnPM_VEKTOR_INDEX" msprop:Generator_ColumnPropNameInRow="PM_VEKTOR_INDEX" msprop:Generator_ColumnPropNameInTable="PM_VEKTOR_INDEXColumn" msprop:Generator_UserColumnName="PM_VEKTOR_INDEX" default="">
<xs:simpleType>
<xs:restriction base="xs:string">
<xs:maxLength value="50" />
@ -2698,10 +2712,26 @@ WHERE (GUID = @GUID)</CommandText>
</xs:restriction>
</xs:simpleType>
</xs:element>
<xs:element name="SQL_VIEW" msprop:Generator_ColumnVarNameInTable="columnSQL_VIEW" msprop:Generator_ColumnPropNameInRow="SQL_VIEW" msprop:Generator_ColumnPropNameInTable="SQL_VIEWColumn" msprop:Generator_UserColumnName="SQL_VIEW" default="">
<xs:simpleType>
<xs:restriction base="xs:string">
<xs:maxLength value="2147483647" />
</xs:restriction>
</xs:simpleType>
</xs:element>
<xs:element name="ANNOTATE_ALL_WORK_HISTORY_ENTRIES" msprop:Generator_ColumnVarNameInTable="columnANNOTATE_ALL_WORK_HISTORY_ENTRIES" msprop:Generator_ColumnPropNameInRow="ANNOTATE_ALL_WORK_HISTORY_ENTRIES" msprop:Generator_ColumnPropNameInTable="ANNOTATE_ALL_WORK_HISTORY_ENTRIESColumn" msprop:Generator_UserColumnName="ANNOTATE_ALL_WORK_HISTORY_ENTRIES" type="xs:boolean" default="false" />
<xs:element name="ANNOTATE_WORK_HISTORY_ENTRY" msprop:Generator_ColumnVarNameInTable="columnANNOTATE_WORK_HISTORY_ENTRY" msprop:Generator_ColumnPropNameInRow="ANNOTATE_WORK_HISTORY_ENTRY" msprop:Generator_ColumnPropNameInTable="ANNOTATE_WORK_HISTORY_ENTRYColumn" msprop:Generator_UserColumnName="ANNOTATE_WORK_HISTORY_ENTRY" type="xs:boolean" default="false" />
<xs:element name="WORK_HISTORY_ENTRY" msprop:Generator_ColumnVarNameInTable="columnWORK_HISTORY_ENTRY" msprop:Generator_ColumnPropNameInRow="WORK_HISTORY_ENTRY" msprop:Generator_ColumnPropNameInTable="WORK_HISTORY_ENTRYColumn" msprop:Generator_UserColumnName="WORK_HISTORY_ENTRY" minOccurs="0">
<xs:simpleType>
<xs:restriction base="xs:string">
<xs:maxLength value="500" />
</xs:restriction>
</xs:simpleType>
</xs:element>
</xs:sequence>
</xs:complexType>
</xs:element>
<xs:element name="TBWH_CONNECTION" msprop:Generator_TableClassName="TBWH_CONNECTIONDataTable" msprop:Generator_TableVarName="tableTBWH_CONNECTION" msprop:Generator_TablePropName="TBWH_CONNECTION" msprop:Generator_RowDeletingName="TBWH_CONNECTIONRowDeleting" msprop:Generator_RowChangingName="TBWH_CONNECTIONRowChanging" msprop:Generator_RowEvHandlerName="TBWH_CONNECTIONRowChangeEventHandler" msprop:Generator_RowDeletedName="TBWH_CONNECTIONRowDeleted" msprop:Generator_UserTableName="TBWH_CONNECTION" msprop:Generator_RowChangedName="TBWH_CONNECTIONRowChanged" msprop:Generator_RowEvArgName="TBWH_CONNECTIONRowChangeEvent" msprop:Generator_RowClassName="TBWH_CONNECTIONRow">
<xs:element name="TBWH_CONNECTION" msprop:Generator_TableClassName="TBWH_CONNECTIONDataTable" msprop:Generator_TableVarName="tableTBWH_CONNECTION" msprop:Generator_RowChangedName="TBWH_CONNECTIONRowChanged" msprop:Generator_TablePropName="TBWH_CONNECTION" msprop:Generator_RowDeletingName="TBWH_CONNECTIONRowDeleting" msprop:Generator_RowChangingName="TBWH_CONNECTIONRowChanging" msprop:Generator_RowEvHandlerName="TBWH_CONNECTIONRowChangeEventHandler" msprop:Generator_RowDeletedName="TBWH_CONNECTIONRowDeleted" msprop:Generator_RowClassName="TBWH_CONNECTIONRow" msprop:Generator_UserTableName="TBWH_CONNECTION" msprop:Generator_RowEvArgName="TBWH_CONNECTIONRowChangeEvent">
<xs:complexType>
<xs:sequence>
<xs:element name="GUID" msdata:ReadOnly="true" msdata:AutoIncrement="true" msdata:AutoIncrementSeed="-1" msdata:AutoIncrementStep="-1" msprop:Generator_ColumnVarNameInTable="columnGUID" msprop:Generator_ColumnPropNameInRow="GUID" msprop:Generator_ColumnPropNameInTable="GUIDColumn" msprop:Generator_UserColumnName="GUID" type="xs:short" />
@ -2774,7 +2804,7 @@ WHERE (GUID = @GUID)</CommandText>
</xs:sequence>
</xs:complexType>
</xs:element>
<xs:element name="TBWH_CHECK_PROFILE_CONTROLS" msprop:Generator_TableClassName="TBWH_CHECK_PROFILE_CONTROLSDataTable" msprop:Generator_TableVarName="tableTBWH_CHECK_PROFILE_CONTROLS" msprop:Generator_TablePropName="TBWH_CHECK_PROFILE_CONTROLS" msprop:Generator_RowDeletingName="TBWH_CHECK_PROFILE_CONTROLSRowDeleting" msprop:Generator_RowChangingName="TBWH_CHECK_PROFILE_CONTROLSRowChanging" msprop:Generator_RowEvHandlerName="TBWH_CHECK_PROFILE_CONTROLSRowChangeEventHandler" msprop:Generator_RowDeletedName="TBWH_CHECK_PROFILE_CONTROLSRowDeleted" msprop:Generator_UserTableName="TBWH_CHECK_PROFILE_CONTROLS" msprop:Generator_RowChangedName="TBWH_CHECK_PROFILE_CONTROLSRowChanged" msprop:Generator_RowEvArgName="TBWH_CHECK_PROFILE_CONTROLSRowChangeEvent" msprop:Generator_RowClassName="TBWH_CHECK_PROFILE_CONTROLSRow">
<xs:element name="TBWH_CHECK_PROFILE_CONTROLS" msprop:Generator_TableClassName="TBWH_CHECK_PROFILE_CONTROLSDataTable" msprop:Generator_TableVarName="tableTBWH_CHECK_PROFILE_CONTROLS" msprop:Generator_RowChangedName="TBWH_CHECK_PROFILE_CONTROLSRowChanged" msprop:Generator_TablePropName="TBWH_CHECK_PROFILE_CONTROLS" msprop:Generator_RowDeletingName="TBWH_CHECK_PROFILE_CONTROLSRowDeleting" msprop:Generator_RowChangingName="TBWH_CHECK_PROFILE_CONTROLSRowChanging" msprop:Generator_RowEvHandlerName="TBWH_CHECK_PROFILE_CONTROLSRowChangeEventHandler" msprop:Generator_RowDeletedName="TBWH_CHECK_PROFILE_CONTROLSRowDeleted" msprop:Generator_RowClassName="TBWH_CHECK_PROFILE_CONTROLSRow" msprop:Generator_UserTableName="TBWH_CHECK_PROFILE_CONTROLS" msprop:Generator_RowEvArgName="TBWH_CHECK_PROFILE_CONTROLSRowChangeEvent">
<xs:complexType>
<xs:sequence>
<xs:element name="GUID" msdata:ReadOnly="true" msdata:AutoIncrement="true" msdata:AutoIncrementSeed="-1" msdata:AutoIncrementStep="-1" msprop:Generator_ColumnVarNameInTable="columnGUID" msprop:Generator_ColumnPropNameInRow="GUID" msprop:Generator_ColumnPropNameInTable="GUIDColumn" msprop:Generator_UserColumnName="GUID" type="xs:int" />
@ -2825,7 +2855,7 @@ WHERE (GUID = @GUID)</CommandText>
</xs:sequence>
</xs:complexType>
</xs:element>
<xs:element name="TBPM_PROFILE_CONTROLS" msprop:Generator_TableClassName="TBPM_PROFILE_CONTROLSDataTable" msprop:Generator_TableVarName="tableTBPM_PROFILE_CONTROLS" msprop:Generator_TablePropName="TBPM_PROFILE_CONTROLS" msprop:Generator_RowDeletingName="TBPM_PROFILE_CONTROLSRowDeleting" msprop:Generator_RowChangingName="TBPM_PROFILE_CONTROLSRowChanging" msprop:Generator_RowEvHandlerName="TBPM_PROFILE_CONTROLSRowChangeEventHandler" msprop:Generator_RowDeletedName="TBPM_PROFILE_CONTROLSRowDeleted" msprop:Generator_UserTableName="TBPM_PROFILE_CONTROLS" msprop:Generator_RowChangedName="TBPM_PROFILE_CONTROLSRowChanged" msprop:Generator_RowEvArgName="TBPM_PROFILE_CONTROLSRowChangeEvent" msprop:Generator_RowClassName="TBPM_PROFILE_CONTROLSRow">
<xs:element name="TBPM_PROFILE_CONTROLS" msprop:Generator_TableClassName="TBPM_PROFILE_CONTROLSDataTable" msprop:Generator_TableVarName="tableTBPM_PROFILE_CONTROLS" msprop:Generator_RowChangedName="TBPM_PROFILE_CONTROLSRowChanged" msprop:Generator_TablePropName="TBPM_PROFILE_CONTROLS" msprop:Generator_RowDeletingName="TBPM_PROFILE_CONTROLSRowDeleting" msprop:Generator_RowChangingName="TBPM_PROFILE_CONTROLSRowChanging" msprop:Generator_RowEvHandlerName="TBPM_PROFILE_CONTROLSRowChangeEventHandler" msprop:Generator_RowDeletedName="TBPM_PROFILE_CONTROLSRowDeleted" msprop:Generator_RowClassName="TBPM_PROFILE_CONTROLSRow" msprop:Generator_UserTableName="TBPM_PROFILE_CONTROLS" msprop:Generator_RowEvArgName="TBPM_PROFILE_CONTROLSRowChangeEvent">
<xs:complexType>
<xs:sequence>
<xs:element name="GUID" msdata:ReadOnly="true" msdata:AutoIncrement="true" msprop:Generator_ColumnVarNameInTable="columnGUID" msprop:Generator_ColumnPropNameInRow="GUID" msprop:Generator_ColumnPropNameInTable="GUIDColumn" msprop:Generator_UserColumnName="GUID" type="xs:int" />
@ -2916,7 +2946,7 @@ WHERE (GUID = @GUID)</CommandText>
</xs:sequence>
</xs:complexType>
</xs:element>
<xs:element name="TBPM_CONTROL_TABLE" msprop:Generator_TableClassName="TBPM_CONTROL_TABLEDataTable" msprop:Generator_TableVarName="tableTBPM_CONTROL_TABLE" msprop:Generator_TablePropName="TBPM_CONTROL_TABLE" msprop:Generator_RowDeletingName="TBPM_CONTROL_TABLERowDeleting" msprop:Generator_RowChangingName="TBPM_CONTROL_TABLERowChanging" msprop:Generator_RowEvHandlerName="TBPM_CONTROL_TABLERowChangeEventHandler" msprop:Generator_RowDeletedName="TBPM_CONTROL_TABLERowDeleted" msprop:Generator_UserTableName="TBPM_CONTROL_TABLE" msprop:Generator_RowChangedName="TBPM_CONTROL_TABLERowChanged" msprop:Generator_RowEvArgName="TBPM_CONTROL_TABLERowChangeEvent" msprop:Generator_RowClassName="TBPM_CONTROL_TABLERow">
<xs:element name="TBPM_CONTROL_TABLE" msprop:Generator_TableClassName="TBPM_CONTROL_TABLEDataTable" msprop:Generator_TableVarName="tableTBPM_CONTROL_TABLE" msprop:Generator_RowChangedName="TBPM_CONTROL_TABLERowChanged" msprop:Generator_TablePropName="TBPM_CONTROL_TABLE" msprop:Generator_RowDeletingName="TBPM_CONTROL_TABLERowDeleting" msprop:Generator_RowChangingName="TBPM_CONTROL_TABLERowChanging" msprop:Generator_RowEvHandlerName="TBPM_CONTROL_TABLERowChangeEventHandler" msprop:Generator_RowDeletedName="TBPM_CONTROL_TABLERowDeleted" msprop:Generator_RowClassName="TBPM_CONTROL_TABLERow" msprop:Generator_UserTableName="TBPM_CONTROL_TABLE" msprop:Generator_RowEvArgName="TBPM_CONTROL_TABLERowChangeEvent">
<xs:complexType>
<xs:sequence>
<xs:element name="GUID" msdata:ReadOnly="true" msdata:AutoIncrement="true" msprop:Generator_ColumnVarNameInTable="columnGUID" msprop:Generator_ColumnPropNameInRow="GUID" msprop:Generator_ColumnPropNameInTable="GUIDColumn" msprop:Generator_UserColumnName="GUID" type="xs:int" />
@ -3047,11 +3077,11 @@ WHERE (GUID = @GUID)</CommandText>
</xs:element>
<xs:annotation>
<xs:appinfo>
<msdata:Relationship name="FK_TBPM_ERROR_LOG_PROFILE1" msdata:parent="TBPM_PROFILE" msdata:child="TBPM_ERROR_LOG" msdata:parentkey="GUID" msdata:childkey="PROFIL_ID" msprop:Generator_UserChildTable="TBPM_ERROR_LOG" msprop:Generator_ChildPropName="GetTBPM_ERROR_LOGRows" msprop:Generator_UserRelationName="FK_TBPM_ERROR_LOG_PROFILE1" msprop:Generator_ParentPropName="TBPM_PROFILERow" msprop:Generator_RelationVarName="relationFK_TBPM_ERROR_LOG_PROFILE1" msprop:Generator_UserParentTable="TBPM_PROFILE" />
<msdata:Relationship name="FK_TBPM_PROFILE_TYPE1" msdata:parent="TBPM_TYPE" msdata:child="TBPM_PROFILE" msdata:parentkey="GUID" msdata:childkey="TYPE" msprop:Generator_UserChildTable="TBPM_PROFILE" msprop:Generator_ChildPropName="GetTBPM_PROFILERows" msprop:Generator_UserRelationName="FK_TBPM_PROFILE_TYPE1" msprop:Generator_RelationVarName="relationFK_TBPM_PROFILE_TYPE1" msprop:Generator_UserParentTable="TBPM_TYPE" msprop:Generator_ParentPropName="TBPM_TYPERow" />
<msdata:Relationship name="FK_TBPM_PROFILE_CONTROLS_PROFILE1" msdata:parent="TBPM_PROFILE" msdata:child="TBPM_PROFILE_CONTROLS" msdata:parentkey="GUID" msdata:childkey="PROFIL_ID" msprop:Generator_UserChildTable="TBPM_PROFILE_CONTROLS" msprop:Generator_ChildPropName="GetTBPM_PROFILE_CONTROLSRows" msprop:Generator_UserRelationName="FK_TBPM_PROFILE_CONTROLS_PROFILE1" msprop:Generator_ParentPropName="TBPM_PROFILERow" msprop:Generator_RelationVarName="relationFK_TBPM_PROFILE_CONTROLS_PROFILE1" msprop:Generator_UserParentTable="TBPM_PROFILE" />
<msdata:Relationship name="FK_TBPM_CONTROL_TABLE_CONTROL1" msdata:parent="TBPM_PROFILE_CONTROLS" msdata:child="TBPM_CONTROL_TABLE" msdata:parentkey="GUID" msdata:childkey="CONTROL_ID" msprop:Generator_UserChildTable="TBPM_CONTROL_TABLE" msprop:Generator_ChildPropName="GetTBPM_CONTROL_TABLERows" msprop:Generator_UserRelationName="FK_TBPM_CONTROL_TABLE_CONTROL1" msprop:Generator_ParentPropName="TBPM_PROFILE_CONTROLSRow" msprop:Generator_RelationVarName="relationFK_TBPM_CONTROL_TABLE_CONTROL1" msprop:Generator_UserParentTable="TBPM_PROFILE_CONTROLS" />
<msdata:Relationship name="FK_TBPM_CONTROL_TABLE_CONTROL" msdata:parent="TBWH_CHECK_PROFILE_CONTROLS" msdata:child="TBPM_CONTROL_TABLE" msdata:parentkey="GUID" msdata:childkey="CONTROL_ID" msprop:Generator_UserChildTable="TBPM_CONTROL_TABLE" msprop:Generator_ChildPropName="GetTBPM_CONTROL_TABLERows" msprop:Generator_UserRelationName="FK_TBPM_CONTROL_TABLE_CONTROL" msprop:Generator_RelationVarName="relationFK_TBPM_CONTROL_TABLE_CONTROL" msprop:Generator_UserParentTable="TBWH_CHECK_PROFILE_CONTROLS" msprop:Generator_ParentPropName="TBWH_CHECK_PROFILE_CONTROLSRow" />
<msdata:Relationship name="FK_TBPM_ERROR_LOG_PROFILE1" msdata:parent="TBPM_PROFILE" msdata:child="TBPM_ERROR_LOG" msdata:parentkey="GUID" msdata:childkey="PROFIL_ID" msprop:Generator_UserChildTable="TBPM_ERROR_LOG" msprop:Generator_ChildPropName="GetTBPM_ERROR_LOGRows" msprop:Generator_UserRelationName="FK_TBPM_ERROR_LOG_PROFILE1" msprop:Generator_RelationVarName="relationFK_TBPM_ERROR_LOG_PROFILE1" msprop:Generator_UserParentTable="TBPM_PROFILE" msprop:Generator_ParentPropName="TBPM_PROFILERow" />
<msdata:Relationship name="FK_TBPM_PROFILE_TYPE1" msdata:parent="TBPM_TYPE" msdata:child="TBPM_PROFILE" msdata:parentkey="GUID" msdata:childkey="TYPE" msprop:Generator_UserChildTable="TBPM_PROFILE" msprop:Generator_ChildPropName="GetTBPM_PROFILERows" msprop:Generator_UserRelationName="FK_TBPM_PROFILE_TYPE1" msprop:Generator_ParentPropName="TBPM_TYPERow" msprop:Generator_RelationVarName="relationFK_TBPM_PROFILE_TYPE1" msprop:Generator_UserParentTable="TBPM_TYPE" />
<msdata:Relationship name="FK_TBPM_PROFILE_CONTROLS_PROFILE1" msdata:parent="TBPM_PROFILE" msdata:child="TBPM_PROFILE_CONTROLS" msdata:parentkey="GUID" msdata:childkey="PROFIL_ID" msprop:Generator_UserChildTable="TBPM_PROFILE_CONTROLS" msprop:Generator_ChildPropName="GetTBPM_PROFILE_CONTROLSRows" msprop:Generator_UserRelationName="FK_TBPM_PROFILE_CONTROLS_PROFILE1" msprop:Generator_RelationVarName="relationFK_TBPM_PROFILE_CONTROLS_PROFILE1" msprop:Generator_UserParentTable="TBPM_PROFILE" msprop:Generator_ParentPropName="TBPM_PROFILERow" />
<msdata:Relationship name="FK_TBPM_CONTROL_TABLE_CONTROL1" msdata:parent="TBPM_PROFILE_CONTROLS" msdata:child="TBPM_CONTROL_TABLE" msdata:parentkey="GUID" msdata:childkey="CONTROL_ID" msprop:Generator_UserChildTable="TBPM_CONTROL_TABLE" msprop:Generator_ChildPropName="GetTBPM_CONTROL_TABLERows" msprop:Generator_UserRelationName="FK_TBPM_CONTROL_TABLE_CONTROL1" msprop:Generator_RelationVarName="relationFK_TBPM_CONTROL_TABLE_CONTROL1" msprop:Generator_UserParentTable="TBPM_PROFILE_CONTROLS" msprop:Generator_ParentPropName="TBPM_PROFILE_CONTROLSRow" />
<msdata:Relationship name="FK_TBPM_CONTROL_TABLE_CONTROL" msdata:parent="TBWH_CHECK_PROFILE_CONTROLS" msdata:child="TBPM_CONTROL_TABLE" msdata:parentkey="GUID" msdata:childkey="CONTROL_ID" msprop:Generator_UserChildTable="TBPM_CONTROL_TABLE" msprop:Generator_ChildPropName="GetTBPM_CONTROL_TABLERows" msprop:Generator_UserRelationName="FK_TBPM_CONTROL_TABLE_CONTROL" msprop:Generator_ParentPropName="TBWH_CHECK_PROFILE_CONTROLSRow" msprop:Generator_RelationVarName="relationFK_TBPM_CONTROL_TABLE_CONTROL" msprop:Generator_UserParentTable="TBWH_CHECK_PROFILE_CONTROLS" />
</xs:appinfo>
</xs:annotation>
</xs:schema>

28
app/DD_PM_WINDREAM/DD_DMSLiteDataSet.xss
View File

@ -4,7 +4,7 @@
Changes to this file may cause incorrect behavior and will be lost if
the code is regenerated.
</autogenerated>-->
<DiagramLayout xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:xsd="http://www.w3.org/2001/XMLSchema" ex:showrelationlabel="False" ViewPortX="-27" ViewPortY="239" xmlns:ex="urn:schemas-microsoft-com:xml-msdatasource-layout-extended" xmlns="urn:schemas-microsoft-com:xml-msdatasource-layout">
<DiagramLayout xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:xsd="http://www.w3.org/2001/XMLSchema" ex:showrelationlabel="False" ViewPortX="-27" ViewPortY="-92" xmlns:ex="urn:schemas-microsoft-com:xml-msdatasource-layout-extended" xmlns="urn:schemas-microsoft-com:xml-msdatasource-layout">
<Shapes>
<Shape ID="DesignTable:TBPM_PROFILE_FINAL_INDEXING" ZOrder="1" X="1578" Y="-67" Height="383" Width="300" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="197" />
<Shape ID="DesignTable:VWPM_PROFILE_USER" ZOrder="17" X="1467" Y="331" Height="325" Width="254" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="235" />
@ -17,7 +17,7 @@
<Shape ID="DesignTable:TBPROFILE_USER" ZOrder="19" X="530" Y="-3" Height="90" Width="158" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="0" />
<Shape ID="DesignTable:TBPM_PROFILE_FILES" ZOrder="4" X="1212" Y="-64" Height="324" Width="300" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="83" />
<Shape ID="DesignTable:TBPM_FILES_USER_NOT_INDEXED" ZOrder="16" X="851" Y="-3" Height="153" Width="300" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="64" />
<Shape ID="DesignTable:TBPM_PROFILE" ZOrder="15" X="256" Y="387" Height="381" Width="300" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="254" />
<Shape ID="DesignTable:TBPM_PROFILE" ZOrder="15" X="255" Y="388" Height="381" Width="300" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="254" />
<Shape ID="DesignTable:TBWH_CHECK_PROFILE_CONTROLS" ZOrder="10" X="0" Y="-72" Height="168" Width="158" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="78" />
<Shape ID="DesignTable:TBPM_PROFILE_CONTROLS" ZOrder="8" X="595" Y="421" Height="476" Width="300" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="254" />
<Shape ID="DesignTable:TBPM_CONTROL_TABLE" ZOrder="2" X="940" Y="517" Height="324" Width="284" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="254" />
@ -27,11 +27,11 @@
<Connector ID="DesignRelation:FK_TBPM_ERROR_LOG_PROFILE1" ZOrder="14" LineWidth="11">
<RoutePoints>
<Point>
<X>480</X>
<Y>387</Y>
<X>479</X>
<Y>388</Y>
</Point>
<Point>
<X>480</X>
<X>479</X>
<Y>23</Y>
</Point>
</RoutePoints>
@ -39,28 +39,24 @@
<Connector ID="DesignRelation:FK_TBPM_PROFILE_TYPE1" ZOrder="13" LineWidth="11">
<RoutePoints>
<Point>
<X>280</X>
<X>279</X>
<Y>317</Y>
</Point>
<Point>
<X>280</X>
<Y>387</Y>
<X>279</X>
<Y>388</Y>
</Point>
</RoutePoints>
</Connector>
<Connector ID="DesignRelation:FK_TBPM_PROFILE_CONTROLS_PROFILE1" ZOrder="9" LineWidth="11">
<RoutePoints>
<Point>
<X>556</X>
<Y>413</Y>
<X>555</X>
<Y>594</Y>
</Point>
<Point>
<X>808</X>
<Y>413</Y>
</Point>
<Point>
<X>808</X>
<Y>421</Y>
<X>595</X>
<Y>594</Y>
</Point>
</RoutePoints>
</Connector>

5
app/DD_PM_WINDREAM/DD_PM_WINDREAM.vbproj
View File

@ -55,6 +55,7 @@
<ApplicationIcon>PM_ohne_slogan_128px.ico</ApplicationIcon>
</PropertyGroup>
<ItemGroup>
<Reference Include="DevExpress.Charts.v15.2.Core, Version=15.2.16.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" />
<Reference Include="DevExpress.Data.v15.2, Version=15.2.16.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL">
<SpecificVersion>False</SpecificVersion>
<HintPath>D:\ProgramFiles\DevExpress 15.2\Bin\Framework\DevExpress.Data.v15.2.dll</HintPath>
@ -79,6 +80,9 @@
<SpecificVersion>False</SpecificVersion>
<HintPath>D:\ProgramFiles\DevExpress 15.2\Bin\Framework\DevExpress.XtraBars.v15.2.dll</HintPath>
</Reference>
<Reference Include="DevExpress.XtraCharts.v15.2, Version=15.2.16.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" />
<Reference Include="DevExpress.XtraCharts.v15.2.UI, Version=15.2.16.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL" />
<Reference Include="DevExpress.XtraCharts.v15.2.Wizard, Version=15.2.16.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" />
<Reference Include="DevExpress.XtraEditors.v15.2, Version=15.2.16.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL">
<SpecificVersion>False</SpecificVersion>
<HintPath>D:\ProgramFiles\DevExpress 15.2\Bin\Framework\DevExpress.XtraEditors.v15.2.dll</HintPath>
@ -144,6 +148,7 @@
<Import Include="System.Xml.Linq" />
</ItemGroup>
<ItemGroup>
<Compile Include="ClassAnnotation.vb" />
<Compile Include="ClassInit.vb" />
<Compile Include="ClassLogger.vb" />
<Compile Include="frmAbout.designer.vb">

1
app/DD_PM_WINDREAM/ModuleRuntimeVariables.vb
View File

@ -12,6 +12,7 @@
Public CURRENT_DOC_PATH As String
Public ERROR_STATE = ""
Public USER_IS_ADMIN As Boolean = False
Public USER_USERNAME As String
Public CURRENT_USERID
Public LICENSE_COUNT As Integer = 0
Public LICENSE_EXPIRED As Boolean = False

4
app/DD_PM_WINDREAM/My Project/Settings.Designer.vb generated
View File

@ -57,8 +57,8 @@ Namespace My
<Global.System.Configuration.ApplicationScopedSettingAttribute(), _
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.Configuration.SpecialSettingAttribute(Global.System.Configuration.SpecialSetting.ConnectionString), _
Global.System.Configuration.DefaultSettingValueAttribute("Data Source=172.24.12.41\Tests;Initial Catalog=DD_DMS;Persist Security Info=True;"& _
"User ID=sa;Password=dd")> _
Global.System.Configuration.DefaultSettingValueAttribute("Data Source=172.24.12.41\Tests;Initial Catalog=DD_ECM_TEST;Persist Security Info="& _
"True;User ID=sa;Password=dd")> _
Public ReadOnly Property ConnectionString() As String
Get
Return CType(Me("ConnectionString"),String)

4
app/DD_PM_WINDREAM/My Project/Settings.settings
View File

@ -5,10 +5,10 @@
<Setting Name="ConnectionString" Type="(Connection string)" Scope="Application">
<DesignTimeValue Profile="(Default)">&lt;?xml version="1.0" encoding="utf-16"?&gt;
&lt;SerializableConnectionString xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:xsd="http://www.w3.org/2001/XMLSchema"&gt;
&lt;ConnectionString&gt;Data Source=172.24.12.41\Tests;Initial Catalog=DD_DMS;Persist Security Info=True;User ID=sa;Password=dd&lt;/ConnectionString&gt;
&lt;ConnectionString&gt;Data Source=172.24.12.41\Tests;Initial Catalog=DD_ECM_TEST;Persist Security Info=True;User ID=sa;Password=dd&lt;/ConnectionString&gt;
&lt;ProviderName&gt;System.Data.SqlClient&lt;/ProviderName&gt;
&lt;/SerializableConnectionString&gt;</DesignTimeValue>
<Value Profile="(Default)">Data Source=172.24.12.41\Tests;Initial Catalog=DD_DMS;Persist Security Info=True;User ID=sa;Password=dd</Value>
<Value Profile="(Default)">Data Source=172.24.12.41\Tests;Initial Catalog=DD_ECM_TEST;Persist Security Info=True;User ID=sa;Password=dd</Value>
</Setting>
<Setting Name="frmTableColumns_Position" Roaming="true" Type="System.Drawing.Point" Scope="User">
<Value Profile="(Default)">0, 0</Value>

7
app/DD_PM_WINDREAM/My Project/licenses.licx
View File

@ -1,6 +1,7 @@
DevExpress.XtraGrid.GridControl, DevExpress.XtraGrid.v15.2, Version=15.2.16.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a
DevExpress.XtraCharts.ChartControl, DevExpress.XtraCharts.v15.2.UI, Version=15.2.16.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a
DevExpress.XtraBars.Navigation.OfficeNavigationBar, DevExpress.XtraBars.v15.2, Version=15.2.16.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a
DevExpress.XtraBars.Ribbon.RibbonControl, DevExpress.XtraBars.v15.2, Version=15.2.16.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a
DevExpress.XtraBars.BarManager, DevExpress.XtraBars.v15.2, Version=15.2.16.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a
DevExpress.XtraNavBar.NavBarControl, DevExpress.XtraNavBar.v15.2, Version=15.2.16.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a
DevExpress.XtraBars.Ribbon.RibbonControl, DevExpress.XtraBars.v15.2, Version=15.2.16.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a
DevExpress.XtraPdfViewer.PdfViewer, DevExpress.XtraPdfViewer.v15.2, Version=15.2.16.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a
DevExpress.XtraGrid.GridControl, DevExpress.XtraGrid.v15.2, Version=15.2.16.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a
DevExpress.XtraBars.BarManager, DevExpress.XtraBars.v15.2, Version=15.2.16.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a

21
app/DD_PM_WINDREAM/frmAnnotations.vb
View File

@ -6,26 +6,13 @@ Public Class frmAnnotations
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Try
Dim doc As PdfDocument = PdfReader.Open(CURRENT_DOC_PATH, PdfDocumentOpenMode.Modify)
Dim firstPage As PdfPage = doc.Pages(txtSeitenzahl.Text)
Dim gfx As XGraphics = XGraphics.FromPdfPage(firstPage)
Dim rect As XRect = gfx.Transformer.WorldToDefaultPage(New XRect(New XPoint(30, 60), New XSize(30, 30)))
Dim annot As PdfTextAnnotation = New PdfTextAnnotation
annot.Title = txttitle.Text
'annot.Subject = txtsubject.Text
annot.Contents = txtcontent.Text
annot.Rectangle = New PdfRectangle(rect)
firstPage.Annotations.Add(annot)
doc.Save(CURRENT_DOC_PATH)
Me.Cursor = Cursors.WaitCursor
ClassAnnotation.Annotate_PDF(txttitle.Text, txtcontent.Text, txtSeitenzahl.Text)
Me.Cursor = Cursors.Default
Me.Close()
Catch ex As Exception
MsgBox(ex.Message, MsgBoxStyle.Critical)
Me.Cursor = Cursors.Default
End Try

256
app/DD_PM_WINDREAM/frmMain.Designer.vb generated
View File

@ -49,10 +49,11 @@ Partial Class frmMain
Me.lblViewType = New System.Windows.Forms.Label()
Me.NavBarControl1 = New DevExpress.XtraNavBar.NavBarControl()
Me.NavBarGroupProfiles = New DevExpress.XtraNavBar.NavBarGroup()
Me.cmsNavPane = New System.Windows.Forms.ContextMenuStrip(Me.components)
Me.tsmiValidationProfil = New System.Windows.Forms.ToolStripMenuItem()
Me.NavBarGroupMore = New DevExpress.XtraNavBar.NavBarGroup()
Me.NavBarItemOverview = New DevExpress.XtraNavBar.NavBarItem()
Me.NavBarItemDashboard = New DevExpress.XtraNavBar.NavBarItem()
Me.Label1 = New System.Windows.Forms.Label()
Me.GridControlProfile = New DevExpress.XtraGrid.GridControl()
Me.ContextMenuGrid = New System.Windows.Forms.ContextMenuStrip(Me.components)
Me.CMGroupStart = New System.Windows.Forms.ToolStripMenuItem()
@ -69,12 +70,24 @@ Partial Class frmMain
Me.TBPM_PROFILE_FILESBindingSource = New System.Windows.Forms.BindingSource(Me.components)
Me.TBPM_PROFILE_FILESTableAdapter = New DD_PM_WINDREAM.DD_DMSLiteDataSetTableAdapters.TBPM_PROFILE_FILESTableAdapter()
Me.TimerReminder = New System.Windows.Forms.Timer(Me.components)
Me.SplitContainerDashboard = New System.Windows.Forms.SplitContainer()
Me.SplitContainerTop = New System.Windows.Forms.SplitContainer()
Me.ChartTopLeft = New DevExpress.XtraCharts.ChartControl()
Me.ToolStripTopLeft = New System.Windows.Forms.ToolStrip()
Me.ChartTopRight = New DevExpress.XtraCharts.ChartControl()
Me.ToolStripTopRight = New System.Windows.Forms.ToolStrip()
Me.SplitContainerBottom = New System.Windows.Forms.SplitContainer()
Me.ChartBottomLeft = New DevExpress.XtraCharts.ChartControl()
Me.ToolStripBottomLeft = New System.Windows.Forms.ToolStrip()
Me.ChartBottomRight = New DevExpress.XtraCharts.ChartControl()
Me.ToolStripBottomRight = New System.Windows.Forms.ToolStrip()
CType(Me.DD_DMSLiteDataSet, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.TBPM_PROFILEBindingSource, System.ComponentModel.ISupportInitialize).BeginInit()
Me.ToolStrip1.SuspendLayout()
Me.StatusStrip1.SuspendLayout()
Me.Panel1.SuspendLayout()
CType(Me.NavBarControl1, System.ComponentModel.ISupportInitialize).BeginInit()
Me.cmsNavPane.SuspendLayout()
CType(Me.GridControlProfile, System.ComponentModel.ISupportInitialize).BeginInit()
Me.ContextMenuGrid.SuspendLayout()
CType(Me.GridViewProfile, System.ComponentModel.ISupportInitialize).BeginInit()
@ -82,6 +95,22 @@ Partial Class frmMain
CType(Me.TBPM_USERBindingSource, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.TBPM_KONFIGURATIONBindingSource, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.TBPM_PROFILE_FILESBindingSource, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.SplitContainerDashboard, System.ComponentModel.ISupportInitialize).BeginInit()
Me.SplitContainerDashboard.Panel1.SuspendLayout()
Me.SplitContainerDashboard.Panel2.SuspendLayout()
Me.SplitContainerDashboard.SuspendLayout()
CType(Me.SplitContainerTop, System.ComponentModel.ISupportInitialize).BeginInit()
Me.SplitContainerTop.Panel1.SuspendLayout()
Me.SplitContainerTop.Panel2.SuspendLayout()
Me.SplitContainerTop.SuspendLayout()
CType(Me.ChartTopLeft, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.ChartTopRight, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.SplitContainerBottom, System.ComponentModel.ISupportInitialize).BeginInit()
Me.SplitContainerBottom.Panel1.SuspendLayout()
Me.SplitContainerBottom.Panel2.SuspendLayout()
Me.SplitContainerBottom.SuspendLayout()
CType(Me.ChartBottomLeft, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.ChartBottomRight, System.ComponentModel.ISupportInitialize).BeginInit()
Me.SuspendLayout()
'
'ImageListProfile
@ -244,6 +273,7 @@ Partial Class frmMain
Or System.Windows.Forms.ToolStripStatusLabelBorderSides.Bottom), System.Windows.Forms.ToolStripStatusLabelBorderSides)
Me.tsslblLastSysnc.Image = CType(resources.GetObject("tsslblLastSysnc.Image"), System.Drawing.Image)
Me.tsslblLastSysnc.Name = "tsslblLastSysnc"
Me.tsslblLastSysnc.RightToLeft = System.Windows.Forms.RightToLeft.No
Me.tsslblLastSysnc.Size = New System.Drawing.Size(159, 20)
Me.tsslblLastSysnc.Text = "Letzte Synchronisation: "
'
@ -251,9 +281,9 @@ Partial Class frmMain
'
Me.Panel1.Controls.Add(Me.lblViewType)
Me.Panel1.Controls.Add(Me.NavBarControl1)
Me.Panel1.Controls.Add(Me.Label1)
Me.Panel1.Controls.Add(Me.GridControlProfile)
Me.Panel1.Controls.Add(Me.ToolStrip1)
Me.Panel1.Controls.Add(Me.GridControlProfile)
Me.Panel1.Controls.Add(Me.SplitContainerDashboard)
Me.Panel1.Dock = System.Windows.Forms.DockStyle.Fill
Me.Panel1.Font = New System.Drawing.Font("Tahoma", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Panel1.Location = New System.Drawing.Point(0, 0)
@ -264,9 +294,9 @@ Partial Class frmMain
'lblViewType
'
Me.lblViewType.AutoSize = True
Me.lblViewType.BackColor = System.Drawing.SystemColors.GradientActiveCaption
Me.lblViewType.BackColor = System.Drawing.SystemColors.Control
Me.lblViewType.Font = New System.Drawing.Font("Tahoma", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.lblViewType.Location = New System.Drawing.Point(242, 37)
Me.lblViewType.Location = New System.Drawing.Point(239, 25)
Me.lblViewType.Name = "lblViewType"
Me.lblViewType.Size = New System.Drawing.Size(75, 16)
Me.lblViewType.TabIndex = 6
@ -275,24 +305,38 @@ Partial Class frmMain
'NavBarControl1
'
Me.NavBarControl1.ActiveGroup = Me.NavBarGroupProfiles
Me.NavBarControl1.ContextMenuStrip = Me.cmsNavPane
Me.NavBarControl1.Dock = System.Windows.Forms.DockStyle.Left
Me.NavBarControl1.Groups.AddRange(New DevExpress.XtraNavBar.NavBarGroup() {Me.NavBarGroupProfiles, Me.NavBarGroupMore})
Me.NavBarControl1.Items.AddRange(New DevExpress.XtraNavBar.NavBarItem() {Me.NavBarItemOverview, Me.NavBarItemDashboard})
Me.NavBarControl1.Location = New System.Drawing.Point(0, 25)
Me.NavBarControl1.Name = "NavBarControl1"
Me.NavBarControl1.OptionsNavPane.ExpandedWidth = 236
Me.NavBarControl1.Size = New System.Drawing.Size(236, 298)
Me.NavBarControl1.OptionsNavPane.ExpandedWidth = 233
Me.NavBarControl1.Size = New System.Drawing.Size(233, 298)
Me.NavBarControl1.TabIndex = 5
Me.NavBarControl1.Text = "NavBarControl1"
Me.NavBarControl1.View = New DevExpress.XtraNavBar.ViewInfo.StandardSkinExplorerBarViewInfoRegistrator("DevExpress Style")
'
'NavBarGroupProfiles
'
Me.NavBarGroupProfiles.Caption = "Profilübersicht"
Me.NavBarGroupProfiles.Expanded = True
Me.NavBarGroupProfiles.GroupStyle = DevExpress.XtraNavBar.NavBarGroupStyle.LargeIconsText
Me.NavBarGroupProfiles.LargeImage = CType(resources.GetObject("NavBarGroupProfiles.LargeImage"), System.Drawing.Image)
Me.NavBarGroupProfiles.Name = "NavBarGroupProfiles"
'
'cmsNavPane
'
Me.cmsNavPane.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.tsmiValidationProfil})
Me.cmsNavPane.Name = "cmsNavPane"
Me.cmsNavPane.Size = New System.Drawing.Size(216, 26)
'
'tsmiValidationProfil
'
Me.tsmiValidationProfil.Image = Global.DD_PM_WINDREAM.My.Resources.Resources.database_go1
Me.tsmiValidationProfil.Name = "tsmiValidationProfil"
Me.tsmiValidationProfil.Size = New System.Drawing.Size(215, 22)
Me.tsmiValidationProfil.Text = "Starte Validierung für Profil"
'
'NavBarGroupMore
'
Me.NavBarGroupMore.Caption = "Weitere Ansichten"
@ -304,6 +348,9 @@ Partial Class frmMain
'
'NavBarItemOverview
'
Me.NavBarItemOverview.AllowGlyphSkinning = DevExpress.Utils.DefaultBoolean.[False]
Me.NavBarItemOverview.Appearance.Image = CType(resources.GetObject("NavBarItemOverview.Appearance.Image"), System.Drawing.Image)
Me.NavBarItemOverview.Appearance.Options.UseImage = True
Me.NavBarItemOverview.Caption = "Gesamtübersicht"
Me.NavBarItemOverview.LargeImage = CType(resources.GetObject("NavBarItemOverview.LargeImage"), System.Drawing.Image)
Me.NavBarItemOverview.Name = "NavBarItemOverview"
@ -314,20 +361,6 @@ Partial Class frmMain
Me.NavBarItemDashboard.LargeImage = CType(resources.GetObject("NavBarItemDashboard.LargeImage"), System.Drawing.Image)
Me.NavBarItemDashboard.Name = "NavBarItemDashboard"
'
'Label1
'
Me.Label1.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.Label1.AutoSize = True
Me.Label1.Font = New System.Drawing.Font("Tahoma", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label1.ImageAlign = System.Drawing.ContentAlignment.TopLeft
Me.Label1.Location = New System.Drawing.Point(507, 25)
Me.Label1.Name = "Label1"
Me.Label1.Size = New System.Drawing.Size(405, 28)
Me.Label1.TabIndex = 4
Me.Label1.Text = "Doppelklicken Sie auf eine Datei um nur diese zu validieren." & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "Doppelklicken Sie a" &
"uf ein Profil um alle enthaltenen Dateien zu validieren." & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10)
Me.Label1.TextAlign = System.Drawing.ContentAlignment.TopRight
'
'GridControlProfile
'
Me.GridControlProfile.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
@ -335,10 +368,10 @@ Partial Class frmMain
Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.GridControlProfile.ContextMenuStrip = Me.ContextMenuGrid
Me.GridControlProfile.Font = New System.Drawing.Font("Tahoma", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.GridControlProfile.Location = New System.Drawing.Point(242, 56)
Me.GridControlProfile.Location = New System.Drawing.Point(242, 44)
Me.GridControlProfile.MainView = Me.GridViewProfile
Me.GridControlProfile.Name = "GridControlProfile"
Me.GridControlProfile.Size = New System.Drawing.Size(670, 264)
Me.GridControlProfile.Size = New System.Drawing.Size(670, 276)
Me.GridControlProfile.TabIndex = 3
Me.GridControlProfile.ViewCollection.AddRange(New DevExpress.XtraGrid.Views.Base.BaseView() {Me.GridViewProfile})
'
@ -346,20 +379,20 @@ Partial Class frmMain
'
Me.ContextMenuGrid.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.CMGroupStart, Me.CMFileStart})
Me.ContextMenuGrid.Name = "ContextMenuStrip1"
Me.ContextMenuGrid.Size = New System.Drawing.Size(254, 48)
Me.ContextMenuGrid.Size = New System.Drawing.Size(266, 48)
'
'CMGroupStart
'
Me.CMGroupStart.Image = Global.DD_PM_WINDREAM.My.Resources.Resources.database_go
Me.CMGroupStart.Name = "CMGroupStart"
Me.CMGroupStart.Size = New System.Drawing.Size(253, 22)
Me.CMGroupStart.Text = "Validierungung für Gruppe starten"
Me.CMGroupStart.Size = New System.Drawing.Size(265, 22)
Me.CMGroupStart.Text = "Validierung für Gruppe/Profil starten"
'
'CMFileStart
'
Me.CMFileStart.Image = Global.DD_PM_WINDREAM.My.Resources.Resources.email_go
Me.CMFileStart.Name = "CMFileStart"
Me.CMFileStart.Size = New System.Drawing.Size(253, 22)
Me.CMFileStart.Size = New System.Drawing.Size(265, 22)
Me.CMFileStart.Text = "Validierung für Datei starten"
'
'GridViewProfile
@ -444,6 +477,136 @@ Partial Class frmMain
'TimerReminder
'
'
'SplitContainerDashboard
'
Me.SplitContainerDashboard.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
Or System.Windows.Forms.AnchorStyles.Left) _
Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.SplitContainerDashboard.Location = New System.Drawing.Point(242, 44)
Me.SplitContainerDashboard.Name = "SplitContainerDashboard"
Me.SplitContainerDashboard.Orientation = System.Windows.Forms.Orientation.Horizontal
'
'SplitContainerDashboard.Panel1
'
Me.SplitContainerDashboard.Panel1.Controls.Add(Me.SplitContainerTop)
'
'SplitContainerDashboard.Panel2
'
Me.SplitContainerDashboard.Panel2.Controls.Add(Me.SplitContainerBottom)
Me.SplitContainerDashboard.Size = New System.Drawing.Size(670, 276)
Me.SplitContainerDashboard.SplitterDistance = 166
Me.SplitContainerDashboard.TabIndex = 7
'
'SplitContainerTop
'
Me.SplitContainerTop.Dock = System.Windows.Forms.DockStyle.Fill
Me.SplitContainerTop.Location = New System.Drawing.Point(0, 0)
Me.SplitContainerTop.Name = "SplitContainerTop"
'
'SplitContainerTop.Panel1
'
Me.SplitContainerTop.Panel1.Controls.Add(Me.ChartTopLeft)
Me.SplitContainerTop.Panel1.Controls.Add(Me.ToolStripTopLeft)
'
'SplitContainerTop.Panel2
'
Me.SplitContainerTop.Panel2.Controls.Add(Me.ChartTopRight)
Me.SplitContainerTop.Panel2.Controls.Add(Me.ToolStripTopRight)
Me.SplitContainerTop.Size = New System.Drawing.Size(670, 166)
Me.SplitContainerTop.SplitterDistance = 223
Me.SplitContainerTop.TabIndex = 0
'
'ChartTopLeft
'
Me.ChartTopLeft.Dock = System.Windows.Forms.DockStyle.Fill
Me.ChartTopLeft.Location = New System.Drawing.Point(0, 25)
Me.ChartTopLeft.Name = "ChartTopLeft"
Me.ChartTopLeft.SeriesSerializable = New DevExpress.XtraCharts.Series(-1) {}
Me.ChartTopLeft.Size = New System.Drawing.Size(223, 141)
Me.ChartTopLeft.TabIndex = 2
'
'ToolStripTopLeft
'
Me.ToolStripTopLeft.GripStyle = System.Windows.Forms.ToolStripGripStyle.Hidden
Me.ToolStripTopLeft.Location = New System.Drawing.Point(0, 0)
Me.ToolStripTopLeft.Name = "ToolStripTopLeft"
Me.ToolStripTopLeft.Size = New System.Drawing.Size(223, 25)
Me.ToolStripTopLeft.TabIndex = 1
Me.ToolStripTopLeft.Text = "ToolStrip1"
'
'ChartTopRight
'
Me.ChartTopRight.Dock = System.Windows.Forms.DockStyle.Fill
Me.ChartTopRight.Location = New System.Drawing.Point(0, 25)
Me.ChartTopRight.Name = "ChartTopRight"
Me.ChartTopRight.SeriesSerializable = New DevExpress.XtraCharts.Series(-1) {}
Me.ChartTopRight.Size = New System.Drawing.Size(443, 141)
Me.ChartTopRight.TabIndex = 1
'
'ToolStripTopRight
'
Me.ToolStripTopRight.GripStyle = System.Windows.Forms.ToolStripGripStyle.Hidden
Me.ToolStripTopRight.Location = New System.Drawing.Point(0, 0)
Me.ToolStripTopRight.Name = "ToolStripTopRight"
Me.ToolStripTopRight.Size = New System.Drawing.Size(443, 25)
Me.ToolStripTopRight.TabIndex = 0
Me.ToolStripTopRight.Text = "ToolStrip2"
'
'SplitContainerBottom
'
Me.SplitContainerBottom.Dock = System.Windows.Forms.DockStyle.Fill
Me.SplitContainerBottom.Location = New System.Drawing.Point(0, 0)
Me.SplitContainerBottom.Name = "SplitContainerBottom"
'
'SplitContainerBottom.Panel1
'
Me.SplitContainerBottom.Panel1.Controls.Add(Me.ChartBottomLeft)
Me.SplitContainerBottom.Panel1.Controls.Add(Me.ToolStripBottomLeft)
'
'SplitContainerBottom.Panel2
'
Me.SplitContainerBottom.Panel2.Controls.Add(Me.ChartBottomRight)
Me.SplitContainerBottom.Panel2.Controls.Add(Me.ToolStripBottomRight)
Me.SplitContainerBottom.Size = New System.Drawing.Size(670, 106)
Me.SplitContainerBottom.SplitterDistance = 223
Me.SplitContainerBottom.TabIndex = 0
'
'ChartBottomLeft
'
Me.ChartBottomLeft.Dock = System.Windows.Forms.DockStyle.Fill
Me.ChartBottomLeft.Location = New System.Drawing.Point(0, 25)
Me.ChartBottomLeft.Name = "ChartBottomLeft"
Me.ChartBottomLeft.SeriesSerializable = New DevExpress.XtraCharts.Series(-1) {}
Me.ChartBottomLeft.Size = New System.Drawing.Size(223, 81)
Me.ChartBottomLeft.TabIndex = 1
'
'ToolStripBottomLeft
'
Me.ToolStripBottomLeft.GripStyle = System.Windows.Forms.ToolStripGripStyle.Hidden
Me.ToolStripBottomLeft.Location = New System.Drawing.Point(0, 0)
Me.ToolStripBottomLeft.Name = "ToolStripBottomLeft"
Me.ToolStripBottomLeft.Size = New System.Drawing.Size(223, 25)
Me.ToolStripBottomLeft.TabIndex = 0
Me.ToolStripBottomLeft.Text = "ToolStrip4"
'
'ChartBottomRight
'
Me.ChartBottomRight.Dock = System.Windows.Forms.DockStyle.Fill
Me.ChartBottomRight.Location = New System.Drawing.Point(0, 25)
Me.ChartBottomRight.Name = "ChartBottomRight"
Me.ChartBottomRight.SeriesSerializable = New DevExpress.XtraCharts.Series(-1) {}
Me.ChartBottomRight.Size = New System.Drawing.Size(443, 81)
Me.ChartBottomRight.TabIndex = 1
'
'ToolStripBottomRight
'
Me.ToolStripBottomRight.GripStyle = System.Windows.Forms.ToolStripGripStyle.Hidden
Me.ToolStripBottomRight.Location = New System.Drawing.Point(0, 0)
Me.ToolStripBottomRight.Name = "ToolStripBottomRight"
Me.ToolStripBottomRight.Size = New System.Drawing.Size(443, 25)
Me.ToolStripBottomRight.TabIndex = 0
Me.ToolStripBottomRight.Text = "ToolStrip3"
'
'frmMain
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(9.0!, 19.0!)
@ -466,6 +629,7 @@ Partial Class frmMain
Me.Panel1.ResumeLayout(False)
Me.Panel1.PerformLayout()
CType(Me.NavBarControl1, System.ComponentModel.ISupportInitialize).EndInit()
Me.cmsNavPane.ResumeLayout(False)
CType(Me.GridControlProfile, System.ComponentModel.ISupportInitialize).EndInit()
Me.ContextMenuGrid.ResumeLayout(False)
CType(Me.GridViewProfile, System.ComponentModel.ISupportInitialize).EndInit()
@ -473,6 +637,26 @@ Partial Class frmMain
CType(Me.TBPM_USERBindingSource, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.TBPM_KONFIGURATIONBindingSource, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.TBPM_PROFILE_FILESBindingSource, System.ComponentModel.ISupportInitialize).EndInit()
Me.SplitContainerDashboard.Panel1.ResumeLayout(False)
Me.SplitContainerDashboard.Panel2.ResumeLayout(False)
CType(Me.SplitContainerDashboard, System.ComponentModel.ISupportInitialize).EndInit()
Me.SplitContainerDashboard.ResumeLayout(False)
Me.SplitContainerTop.Panel1.ResumeLayout(False)
Me.SplitContainerTop.Panel1.PerformLayout()
Me.SplitContainerTop.Panel2.ResumeLayout(False)
Me.SplitContainerTop.Panel2.PerformLayout()
CType(Me.SplitContainerTop, System.ComponentModel.ISupportInitialize).EndInit()
Me.SplitContainerTop.ResumeLayout(False)
CType(Me.ChartTopLeft, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.ChartTopRight, System.ComponentModel.ISupportInitialize).EndInit()
Me.SplitContainerBottom.Panel1.ResumeLayout(False)
Me.SplitContainerBottom.Panel1.PerformLayout()
Me.SplitContainerBottom.Panel2.ResumeLayout(False)
Me.SplitContainerBottom.Panel2.PerformLayout()
CType(Me.SplitContainerBottom, System.ComponentModel.ISupportInitialize).EndInit()
Me.SplitContainerBottom.ResumeLayout(False)
CType(Me.ChartBottomLeft, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.ChartBottomRight, System.ComponentModel.ISupportInitialize).EndInit()
Me.ResumeLayout(False)
Me.PerformLayout()
@ -486,7 +670,6 @@ Partial Class frmMain
Friend WithEvents ToolStripLabel1 As System.Windows.Forms.ToolStripLabel
Friend WithEvents StatusStrip1 As System.Windows.Forms.StatusStrip
Friend WithEvents tsstlblUser As System.Windows.Forms.ToolStripStatusLabel
Friend WithEvents Panel1 As System.Windows.Forms.Panel
Friend WithEvents ToolStripButton1 As System.Windows.Forms.ToolStripButton
Friend WithEvents NotifyIcon1 As System.Windows.Forms.NotifyIcon
Friend WithEvents TimerRefresh As System.Windows.Forms.Timer
@ -509,7 +692,6 @@ Partial Class frmMain
Friend WithEvents TimerReminder As System.Windows.Forms.Timer
Friend WithEvents GridControlProfile As DevExpress.XtraGrid.GridControl
Friend WithEvents GridViewProfile As DevExpress.XtraGrid.Views.Grid.GridView
Friend WithEvents Label1 As Label
Friend WithEvents ContextMenuGrid As ContextMenuStrip
Friend WithEvents CMGroupStart As ToolStripMenuItem
Friend WithEvents CMFileStart As ToolStripMenuItem
@ -520,4 +702,18 @@ Partial Class frmMain
Friend WithEvents NavBarItemDashboard As DevExpress.XtraNavBar.NavBarItem
Friend WithEvents lblViewType As Label
Friend WithEvents tsslblLastSysnc As ToolStripStatusLabel
Friend WithEvents cmsNavPane As ContextMenuStrip
Friend WithEvents tsmiValidationProfil As ToolStripMenuItem
Friend WithEvents Panel1 As Panel
Friend WithEvents SplitContainerDashboard As SplitContainer
Friend WithEvents SplitContainerTop As SplitContainer
Friend WithEvents ChartTopLeft As DevExpress.XtraCharts.ChartControl
Friend WithEvents ToolStripTopLeft As ToolStrip
Friend WithEvents ChartTopRight As DevExpress.XtraCharts.ChartControl
Friend WithEvents ToolStripTopRight As ToolStrip
Friend WithEvents SplitContainerBottom As SplitContainer
Friend WithEvents ChartBottomLeft As DevExpress.XtraCharts.ChartControl
Friend WithEvents ToolStripBottomLeft As ToolStrip
Friend WithEvents ChartBottomRight As DevExpress.XtraCharts.ChartControl
Friend WithEvents ToolStripBottomRight As ToolStrip
End Class

197
app/DD_PM_WINDREAM/frmMain.resx
View File

@ -125,7 +125,7 @@
AAEAAAD/////AQAAAAAAAAAMAgAAAFdTeXN0ZW0uV2luZG93cy5Gb3JtcywgVmVyc2lvbj00LjAuMC4w
LCBDdWx0dXJlPW5ldXRyYWwsIFB1YmxpY0tleVRva2VuPWI3N2E1YzU2MTkzNGUwODkFAQAAACZTeXN0
ZW0uV2luZG93cy5Gb3Jtcy5JbWFnZUxpc3RTdHJlYW1lcgEAAAAERGF0YQcCAgAAAAkDAAAADwMAAADw
CAAAAk1TRnQBSQFMAgEBAgEAAZABAgGQAQIBEAEAARABAAT/AQkBAAj/AUIBTQE2AQQGAAE2AQQCAAEo
CAAAAk1TRnQBSQFMAgEBAgEAAdgBAgHYAQIBEAEAARABAAT/AQkBAAj/AUIBTQE2AQQGAAE2AQQCAAEo
AwABQAMAARADAAEBAQABCAYAAQQYAAGAAgABgAMAAoABAAGAAwABgAEAAYABAAKAAgADwAEAAcAB3AHA
AQAB8AHKAaYBAAEzBQABMwEAATMBAAEzAQACMwIAAxYBAAMcAQADIgEAAykBAANVAQADTQEAA0IBAAM5
AQABgAF8Af8BAAJQAf8BAAGTAQAB1gEAAf8B7AHMAQABxgHWAe8BAAHWAucBAAGQAakBrQIAAf8BMwMA
@ -243,82 +243,9 @@
yg8AvH8CqUB0J/cNlPoAAAAASUVORK5CYII=
</value>
</data>
<data name="NavBarItemOverview.LargeImage" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAACAAAAAgCAYAAABzenr0AAAABGdBTUEAALGPC/xhBQAAABl0RVh0U29m
dHdhcmUAQWRvYmUgSW1hZ2VSZWFkeXHJZTwAAAAWdEVYdFRpdGxlAE1lcmdlQ2VsbHM7R3JpZDtXCQuc
AAAGmklEQVRYR8WX91MUZxjHL4kxxhJr6v9gd8SGJUZE0Rgz+SlOflNRFFsYVCQIDor0chztODh6UQF7
lyq9qBlnMiYmGaMRURQF6TNPnu/z7u4dJKP5IWNu5uPz7i7u5/u8797unomI/ldMyVe/MfHnLY233xC6
Tz4YvMOMZN5jRr2C91/D6H8BzvMuowcxjQgt9HCzXFjfmHDpa7JcXE88pvjzX5H53DqKY2LPfEkxp9dS
9Kk1FFniQRHFqym8aDWFHXenpJxaSsyupQQNS1Y1WTIZrcZnVJM547oQZ6+i6NSypsDwY+5aCAkw8lDm
stbS26H0458Zwi0Du3ATPEgXbjxIoxv306jlvo3SLmyk/v5Bgz6nWlpzV6ozvczde08p2lb+iL2YMcyC
adShzKUiPHFzPRW0rKX8Zo2mNUJukwflNXpQbuNqymkAq4SgzMXU+XKAOrv7ueoM0AuuhWdv0Yuufh6r
bZ2evkGKSq3gq880lsHSm0YH2REgnQo0YR5oRHWSNippVoM7ZdUrAu2u1NmlBJCLUKT9VHD6pmNb4zmD
AJEp5QgwzghwMH2xTK102bRaSTWy61dpsLRuJWXWuTMrKaPOjQLSFg3pDgK95p26IVXRp9FP3X0DFJZc
igAf6AHGBNhceV1TlZS7zTY65aoJdWlGrRvZa9wonfFPXSAnle46dZkS5pxs4X191MGgYh/G3b2DFJp4
TQ8wQgL4W12p+b5VOlXTqwuZ2pVkZ6mIhRUsX0Fp1cvJzzqfO22hXJaBnJPNlFPCtaSZsosdZBU1UWZR
I2WeaKTzZT9RiOUqAozXA4z1S15ETfeSZXp1qS6ETPEFSxU2lqdeX077kudRT++AgM5UVWQXN9FLjHsG
6GXPIKONed9h8+WhAfYlLKTGe0lklynWhbp0uSG1VX/OYqYKLCPfRBeZVvAMvOhn1DiDu5XxMLo4RHDc
JQSYoAcY52uZT/X3Eh3SGkhZyF2KUFhGVpZaq5ZSioaPZa4SGwEUT3lsP9bA41569py3AfZz7erpp0Mx
FxFgohHAxzyf6n63OKaXO7VpnVpZnMLilEqWMsmgYgmzmPaY5xhSETuRVlhvSNul9hoBAqPODwnwwfcx
86juN7N0ahVUtymVgGWaNKlyMSWWL2G4VrjS7tjZSixdsoA7boeQSc2vU3LeD3AcFUsQEHkOASYxuB2b
xu+KdqGaX+OUlKc2WaTokqXcKUhkEspdWe5KCWWuZGF2Rs+STm0ssxXUi9SaX6vIU6Tk1VBKLpNTQ8kM
xv7hZ4cG2BExl6rvxqqpFbGzlGFZQtkikVpKF1F86ULBO3KW0SF44jSGqL2D9znxmHnBt22/0DMIMFkP
MME7bA5V/RIlwiRMr9apRaQKCM061xZQHLMtfMbfJDpJ2dUs7BEpth8/U+BOuf/oaQSYYgTwOjqHKn6O
MKZWpOi0jDu9prrVpcLV+RR7dR5tDZ0+RAqZLk3gx7GMRdxDbai8jQB7Q04NCTBxy5HZVH4ngkWO6YXQ
IYVQSVFjuEZfcSHPo9Pl5CJG1WQQWTKrRNomchxT4Lbte7gEAT7UA0zaHDyLyu6EsxBTrHe5gGJFPI+F
LL3ClaUg+rILRTGbQ6YaJ2+TbrUxY7FXGnLwSGq3zIBPcPHQABuDZtCBBDe5qr2Z7ZEzaXvETF7jmeTF
67w1bDptCZ1GniHTWDqNNh2ZKmwMniqdWjIqhXiWmtMryMw1Lh1UOEgrp1hbuRzfE1SEAB8xeA00Tcb3
Ei8V+oUC9OSJWdeNroCMn3bLGMK2p9wd4G3nGptWobbbFa0y7qYOXoLdgScQ4GMjAL6XKsAwESNrif/M
DK/oTCQG3UrINdZWxlLeZqRKEBVg18GhAab4hZ2RACLXTob1QqfoUk48TISTGl3qx1nQyqDyy6eM8Xeo
D7VjCLAj4BgCfGIEwPcSFwfkEDtO2i1rqYQ8jXwCHNNrTGq5EuBvIcBYE0VZS40xePhE0dHZS94/SABj
Bib4Bhe3ttx+IG8t+hsNkqLiolH7sc+xHxUXldrnTK/UaA4gj2p+VujgudFw6w/y8svHW7FxJxy9wTPs
250BhY938cWB9dkJAo7zVB2XtN7+oJC2M9sOFDjwK8DJyGt/Pm0V8oQt+0AueXL13MsV+ObSZmaTT9bj
dRsCv2Ov8VaMR+IYBg8HfDUwNcPBer2KT1/DZxoY4w4IObqXHyb4Bz8QsANgXf5L8HNPB9twoHN4JQA+
+sabRH3+6Sfzm4NMfwGEtsDMLfHtDQAAAABJRU5ErkJggg==
</value>
</data>
<data name="NavBarItemDashboard.LargeImage" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAACAAAAAgCAYAAABzenr0AAAABGdBTUEAALGPC/xhBQAAABl0RVh0U29m
dHdhcmUAQWRvYmUgSW1hZ2VSZWFkeXHJZTwAAAAPdEVYdFRpdGxlAEJhck9mUGllO7hVPVUAAAf4SURB
VFhHvZdZUFTZGcfJOJuzZalJHvOQhzwklap5sSqjJpWlMknGiZPggqIzUUZFZBPBEQFZZbMBAUFFEGVr
oIVmaWj2RRRkRxih2USWQaCh6WZv1n/Od+69dI/LVMxDqPrV953z3f7+/3PvuQsW4t9rjC2vwOv/I2+I
UE59fsCweC1Z2VKVmtuG7yOFyHkBSoqtSCaULycpW6KFk6horBZNWGxJvNOM//dfnLweTJvOhsXrNxWC
gZWVdSyvrIlIOUVzhLrR7BjKjSw3Los1Fr+PjY0NXEt9QAbe5AbiM5uwwQyYC7wILsKjAJ9/pvnSC+LS
8qo4priKdWbgqrmBG+mNzBXEprQSYTUcEjOPrIFUE5qLGAURLmYUx3xOjDQn1shAbHIdGXiLDLwRJ28Q
DDzT3JQL85vNxfqiGElgkc3TeFEUXJTmNnOBBTKwvoErSbUmA9fT6rkB+qGRIQkIKxFy+rGwEtGE1JzX
nheSWCCWhLhIkUEGom7fMxmg60EGyL3QUBDSj46jW3EH9f7+qLC1RcXxY6j380Nnmhy6oRGTACGKUFRU
+SJCsQ/hmXsRlmEJWbol0sq8WG0F84srWGMGIhNryMDbZODN2JQ6vjPNXT8uKUWjjze646/jaZEKhqY6
DuWauGt44OGB7uwczLGGXJyaiyv0TfgrhqdLMKQrxqCuiKGGa+ROVl/hx3MDN++aDMQk1/KNwRvNLaFZ
Fob2cBkmilXQV5VgqigX2jwFR8dyfXUxxovy0RIaAu8btdDPLbOVrfLVER7X/oyO0QSUadwYrnj4bRwc
Ln3Ma2RgdW0DEfHVZGArGXgrml0Pui60ikcpqWiXhWKqVAVtbgbGM5MxoUjCuCKZ51J8cicdTZ0jCM9o
Q1RmK28s4Rb1ezQNRaPwG3sUdJxC4+Bl2AZuw9zCCma5gXWE3TAzEJUoGNA+HsR9V1d8q0jDuDwRT1Pj
McZ4mpqAsRQhJ3oTb0DdNISafgNym5/CIbwS7b1aLj7LRJxk21HbHwJlqw2yW47iXl8gbHw/4jWCDMiu
V5oMRN6s4delIykFHWEhGEtLwOitWIwmMm5dFaKIJi4GeQ8GUN6jh6JlAjntWsgy2xApb+bNZxgng7ah
UuON9AZryBsOolzjiS+8fsNrxMrqOkKvVZCBd8jA2xEJd7mBShdX9EZdwkjcZYxcf57OKxHIuteHoi4d
UhrHNrla0gdrj3zMzAsCVRc+g3FYjYXu2xzjUCFKv/4EBlYnlpmBkNhyk4Fwdj3W2MYoOGCNPt+zGAhw
x1BUMIajQzbpC/ZCas1jqB5NIrFulHOTEVU1jPDSAXxiJ4dWvwTD3AoT+wsWOhMw2xCA2Xp/LDyKh9rl
D7zGDbCnbXBMGRl4lwxsDYur4jszf58VNG4n0eN6Aj0s9l9wwUDgeTy55INen7PIfqjF1bvDiK4cwqWy
QQSoB+Cn7odvXi/+dDwFkzNL0M8vc7H5jljM1F7gzD+MQb79dna3rHDIQGB0qclAcGwZvy5Fx0+i1f4o
epy/Qjdx2oZBuQ0eHt3Lxb3z++CtMoONXW63YLdzBqZnlzE9s8zEdmCuOQKG6nOcuaYwKI9v47XpWSN/
svpeLiYD73EDgVdKuav6yBjc/+pLaByPPEfbl5aIqRqCZ27vcxyVVeJ8VMWmgPLENszUBUFf6oLp0tOY
uR+AzCMfQTdjZMcY2cNuDT7h6k0D71xkp4MMDHd0Q221H23HrKE59QU09gJdjLbDnyOqchDuOd1wV/aw
yGDRMakNf3fMRDW7LXXMAImQmKHaC7pCO+hUdjBUekB+6Ne8RtAD70IYN/A+N+AfWcxet+v8FNYEy1B+
YC++sbVGl90hdJ0krNF68DNcLn+Cs1ndcMvSMLrhkv4I//RQwTFIvdlcZzAijYnpS9wwlWODSaUNpovO
IGX/LzFlWGIIBrzCCjcNvOtHBtg3AJ0e7eQs1PbOKLH8HC1H9qHT9iA6TxxAi9UuvtvPKLo4tvFN2PV1
DvY4ZWB4bJY3lgRITKdywKTiMLSZhzGVZ4dblr/AJLtLJtkx9Nj2DFWZDPhEFPGNQe5pFRPMRJVfEJSf
foqKPbvRcMgSjXv/hou53fh3dC12exZgp00STvmpMDI+hylqrBcMTLIet0lMeQxauRUm0vZjMtsGCbt/
zm9TOm6ODIRwAx+Qgfe82YagjWG+Cor9je2o9AtG5j/+heTf/RG/2hWF31rFwSlQjYr6J0zYyAX5yjYx
ItV5P4J3/gwhO36K4B0fImj7h0h22MMNEPTIPh+cbzLgJSvkr2ESlk6TsCqhoXlzQvudOaHpy1nkcUIc
U6RHtnsQN/BDMvC+p6yAbwyp2X/fXGJRFJCiKZ/gUcqFMT2uzwXmmhkILeAfE1JDqYn0o2fnTWPz5t/N
x4npJSGyOYoTNJ4WDJy9yA38iBvwCMnnXysvEjM1fVlOkcTMEMeSoPkcoWfvA7eAnE0DH9D1oJ1pai42
FpvwKDWlKNaEhmYiZnNjYj6mY5jVKKf3hZu/0nQGzgXl8S8V6YOBw8bS+1vCwOMyi8vs1StgEKGm9GnG
ozk0xzFyplk+zeIZP5OBrU5e8ruu/jlwZa4EstkB2XBhB7n4ZcHFl+GThdM+d+BMeDMuKODkrYAji4SD
V6aAZwbsPYh02LP8FIuc8+mwI9zlHJvTCfeYNn8b0r/m9GlE9yTtSoKcvQo/fgV+wqDfMHGLLf8BKVH4
p8+ug0MAAAAASUVORK5CYII=
</value>
</data>
<metadata name="cmsNavPane.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>541, 95</value>
</metadata>
<data name="NavBarGroupMore.LargeImage" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAACAAAAAgCAYAAABzenr0AAAABGdBTUEAALGPC/xhBQAAABl0RVh0U29m
@ -362,11 +289,127 @@
EP5MiDUZ036hD9b++cengIxlQ1hy7DC9LbMmpP66cSr8VkjCTFkkYqgQp0pzIwWuEzT4V8E+Nsj4knyt
JOI8Y9Io9r8CGxzuNmeCwDUCBz8VZKwkowjMmQ9SPhACB/9OCBz8+wDud0IUucB3M2m1AAAAAElFTkSu
QmCC
</value>
</data>
<data name="NavBarItemOverview.Appearance.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAACAAAAAgCAYAAABzenr0AAAABGdBTUEAALGPC/xhBQAAAB10RVh0VGl0
bGUASG9yaXpvbnRhbDtBbGlnbjtDZW50ZXIHNZ/PAAAFLUlEQVRYR8WV+VOVVRjHtcXK1LTF6pdGxQXI
mjIogggpFVB2ENlcQZDF2ES0XGr8oRxtcUE2F0iIwDU1xxZA9kXWJCfLMlJbLLL/4NvzfRfivZz0ms14
Zj5z7znvOc/znHPP+7nDANxWlIP24heeLR/qZ/aiHLQX37As+VA/sxflILGnzQnNtGuiKr6JcpAMasMN
7rBlVlAaJw4eu3PQd67Rmiq+iXKQGI1BGHSEcK9wnzDSxNs/hRPvt4HP7hG4TitCFd9EOUiMxp2M2LjP
q/atkpl4s3gm5Ds27PXC+j1eWFfkiexcN7xe6Im1BZ5Yk++BnDwPZG93r5V1LJjrlfFNlIPEaNzFSCa9
/FcLLl1rxk/XGtD3Zx1+7D+Ni/3V+KH/S3z/x+e48PspfHf1U5z/7TiytrkxwChjvTK+iXKQGI0BRr0h
O73YX4VDXUtwsGsxDnQtRGVnLCo7YlB+JgofkbYFKGuNwKlzWUh79wUGGCPcxSCq+CbKQWI0FjB6Td5L
srNjkjAWFR3RKO+IlKSRKGuLEOajtCUc+1tC8WFLME72piFliysDjBVuuQAGGLNqhzu+ulImSfVdlraF
o7Q1TBLqSYubg7CvKQh7mwJw4mwqkt52YYBxxnplfBPlIDEaA4zN+MANZ/rytYQlzSGCJJWE+xoDtaS7
G+dhd/1cFNb54Wh3IhI2zWCAB4W7GUQV30Q5SIymFbBy6/Oov7BFTyoJ9zb6a0mL6pjUFwW1PsJs5NXO
knsSh2Ubn2GAh4T/p4Dkd1xQdX4DjvUkyw6TtF0e7U7Ake7lONwdh0Ody4SlONC5BAc6FmHxeq0A8wSG
q+KbWDtDm/YWRGY7VUfnPInIbGdEZDkiPMMRYenTEJI2FcGpUxCcMgWByZMRsMIB8xInwXfpxBpZN9pY
P2BEs1lyWjp64wJiqpVW4yv1sDBeeMTExXMBF5n9x4XHBM7hG0Br8gQY41/VbO3ok7jAVC+1SqFwNw8Y
MDgZ5+KhFcDbTnjkhN/5nEVzHfXMWPw5tSIsOS2d/6jenFwPrM51R/ZOd6za8SIyt7shQ2yY/r4b0t5z
Q+pm1zqJyxMZomZrR9+9jXobNfX2Dai3StT7haj3M1HvSXx79QS+EUmd+/UIvv7lEHp/rsTZK+WaN3ou
70fXpRIkb9a8YN4Ja05LR5+gUO8iVHaJekW/Fe1iQhv9lraKCQ0xlWhi0j1R3BSIE70rEb/pWQZXmtHa
0QuwUW8MPu6QZO2iXyZU6LdETKg7IlDkFIA99ESDeELkxNd20bqnGVxpRmtHn2BVryQsZcK2MGOXIUP0
a4qpsMEPhfW+hpzmIF/kdLg7HlGrnRlcaUZrxxCPSr2afhvV+i2o80F+nZ4w//SryBN21byC3BpvHBQ5
haU7MrjSjNaOUYBVvTxWf+1Yi3isktBWv7skYa6RMLfGCzurvbC96mVsq/KUnzAWAUmTGZweGWJGZQGm
eo/3pOATTb0rNPXq+o1X6rdSqOhYKJd0IcrbY+SiymVti5Z7EwXf5ZMY3DyB6xagvQVROc7VsWunI3o1
9esk+nXC/EwnhGVMQ+hrUxG6ciqCUgXqN8kBAYmi4AQH+CVMgl+8qDhuInyWTsBssmQCvGOeOC1xKSbG
v24BNBWrpP14aXhsA+q1YbzzjLlcRPWaPKqAc5mcSr+hiAb/B7CQwVDPFqa7BnLRkHEF/GkH/g8sOS2d
fxon3pCnXIO5SPlMwUCz5BzcuVl4ArZjN4ty0F6mP3ebC7h1MOxvLUMuFbJnVbsAAAAASUVORK5CYII=
</value>
</data>
<data name="NavBarItemOverview.LargeImage" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAACAAAAAgCAYAAABzenr0AAAABGdBTUEAALGPC/xhBQAAABl0RVh0U29m
dHdhcmUAQWRvYmUgSW1hZ2VSZWFkeXHJZTwAAAAZdEVYdFRpdGxlAFVubWVyZ2VDZWxscztNZXJnZTuJ
vne9AAAGqElEQVRYR8WX6VtVVRTGKcucp+qPyHnKUkvzg08fckgrFQQHlOnCFTWj1ERAwBkVQWJWEIdU
REVkUERFEMUpUHAWhydERUSF60VdvWuds8+5N+tTj3ae58faZ5999vuutfc95+CiH+/ovPsWUFrGwSet
wPvgAwfavCFag/cAm5Gj1dqE3JFJW0rKU7aXUcq2MkpWbC2jpK0nhMQtiCBxSyklMBkloJTiN5cIv6WD
tOMUBzakFdOGTcUUu/EYKKaY1GO0nkk5SmuTDpeHrtzxNXTZhFSi9Yq4wtqbd+rp1atXr3Hi7K3X+l7q
sfRMjbT/iePlN8zzlybXah5QSFTuPehylaUKbWBAJnz0xA6eUwN41AgQt2adkSg04jr362TsPq33P6d6
xHqOejs9s9wYZ/QDNhEadYCg21YZaLs89pBuwJxciRkiDgJqTMZuTUT1qetM+q5TVP/Y5tTHsIGQVTls
oB3gvefSdhkMcKnUxI6TiQGHc8cxm/UsVX/9Y51GG6U5GpA+jZYXryh4pRhorwy0WxpzkI6fvilinJWK
LDAnY4Qwd/MImr35K5N0kDbcYFbaMArkuIkZRlZm45dkTdUIAP5MyheCk4HI9QVSGtOtWbrA9OF09u5S
ByI17kTSvC0j6MydCOG0QbgwB/eV317iQJhwCvgmDWUDHZSB9hHRyoCNHkoZEcWEjazI7AzEjl6bbXBE
Zy4qceRqoFBkMIuKrsyiQFTi8BWrQaEQQKduhZBPwhBnA+Hr8uiFbkATN01w6TgjZyGIAC590VUrBE0h
jQAKQPkLLwfo+AuHLlmorCaYZsYNZgMdlYEOYWvyZHNw9iZcDRtZsF5cOhY6zDgI8RpzVoIhAi5bZJ0P
QlDDT2IBYunNReQZ+5mzgdCoXCosuUIbd57U2FEGtMjrZd04TNtYiGpDBaRiMzEQsqQMJUvyUPJjMJ7h
+3wTmSFSco3B5B0/mKZHD2IDnZSBjiF4MLS0oAINWuYPGpjnEvmGEzWLJSszIw0W4qwKqgFi/iVfyq/2
pbxqH7kvr8oHeEvMRcyt8qLi67/QlHUDlQF+HLt0XLw6h+wwoAmb4syMuM+lbCLEIhAo0IU4q3yIiZBE
FtOEvHFf7kUvtGfSgYuKGdjEQeQeNYANdDYM8IPB3vKS7hsGwCObnPN6ldxYKEIiZgh5kRc2E4sJDiI5
gO/LuYD2BU9hf+V04ElHrswjt1X9nQx0+nVFthhgYWXiPhsAU7Fex6/P10VMIY4zWARRCe13YPr6Tykb
ohrTaB/YWzEVG3UOTVrRjw10MQwsXJZN+wur8NotNUhk8Nr1WDtQhBjOyjN2EHnGDKLpDESmAd5U06LR
FgbCNMA681ozHmsHyDwc3dcMoAlL+zgZ6Lxg2T6y2V9IxnWSeTNis0T31QPw+59H2Re4hGY22RXTRGgf
smI4u70VU2gP2FvhQR4QyvrDQ8edss67026QXx1A30f2ZgNdDQPzI/eKgbp6iAMlzoZcV/anIpRtX6Um
pImxyBTJaA8EGBEBLMJMXt2fMs+5UeZ5gLiL2+dcsXcsNC68p5OBLj9H7CHbc82AAVejvhnr1RcPl0BD
aI8uxBlNjuoPsck6upgu6LqyL0RdadfZSbRTmCjkXPShsaFioJthICgii5psbACldwRVmLC0L37nVild
fhVAzKvyR9sfu7kfNqcFGxJU+SH6YYP6QsSXJi7vg+iNDemNDarF/ZVeWEIvGr24uzLA36EuXYPCs2hX
znl81xXjmw5w1NvfRfTWCO9F44WeNG5JL52e9C0T2oPGhgGOYHRIDxoT0l2END6hUcHdadQiRPANgO6H
hoGfluyWCtzjrB82SxTQjt10zDyvb5I+Ffmjk9u13KcjbYxdn3JEb+O6zKWNa3zWQv4LtzsZ6PZjWCY9
a27RJtaF+KZaxBg2gJs1AS3WymS4lsoiypS6rp1H6wa0seY9jU9hYIEY+EgZ6Do3NJOeNrXIADURi/N5
DGfJAg6TaW2I6AaceKCNi05WBkzx2gdN9PipnSzztzlVoPPs4B1/nq28KyaeNNkR7fQEpWL4s6zxmV2n
BRnoEWzCm9O8ZqfHCoxJ/b1MItPA4Iub48nzt8k3KKMWusaDqO0Yt7BJHtbkuinWVPJgAlIEd8Y/mSYr
LEnkpvBLIlchUZjkq0gQJvr8nXia6B1PP3jF1Y0cv9CVdYF8lvM7mU/45cBl4bX5Nz7+j/Ac/ADiT3LO
Xv4z4j/shDt4Td40rMN6rCsG+FAnbxPtIKL/EXL5C4aQjGB1h9mhAAAAAElFTkSuQmCC
</value>
</data>
<data name="NavBarItemDashboard.LargeImage" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAACAAAAAgCAYAAABzenr0AAAABGdBTUEAALGPC/xhBQAAABl0RVh0U29m
dHdhcmUAQWRvYmUgSW1hZ2VSZWFkeXHJZTwAAAAPdEVYdFRpdGxlAEJhck9mUGllO7hVPVUAAAf4SURB
VFhHvZdZUFTZGcfJOJuzZalJHvOQhzwklap5sSqjJpWlMknGiZPggqIzUUZFZBPBEQFZZbMBAUFFEGVr
oIVmaWj2RRRkRxih2USWQaCh6WZv1n/Od+69dI/LVMxDqPrV953z3f7+/3PvuQsW4t9rjC2vwOv/I2+I
UE59fsCweC1Z2VKVmtuG7yOFyHkBSoqtSCaULycpW6KFk6horBZNWGxJvNOM//dfnLweTJvOhsXrNxWC
gZWVdSyvrIlIOUVzhLrR7BjKjSw3Los1Fr+PjY0NXEt9QAbe5AbiM5uwwQyYC7wILsKjAJ9/pvnSC+LS
8qo4priKdWbgqrmBG+mNzBXEprQSYTUcEjOPrIFUE5qLGAURLmYUx3xOjDQn1shAbHIdGXiLDLwRJ28Q
DDzT3JQL85vNxfqiGElgkc3TeFEUXJTmNnOBBTKwvoErSbUmA9fT6rkB+qGRIQkIKxFy+rGwEtGE1JzX
nheSWCCWhLhIkUEGom7fMxmg60EGyL3QUBDSj46jW3EH9f7+qLC1RcXxY6j380Nnmhy6oRGTACGKUFRU
+SJCsQ/hmXsRlmEJWbol0sq8WG0F84srWGMGIhNryMDbZODN2JQ6vjPNXT8uKUWjjze646/jaZEKhqY6
DuWauGt44OGB7uwczLGGXJyaiyv0TfgrhqdLMKQrxqCuiKGGa+ROVl/hx3MDN++aDMQk1/KNwRvNLaFZ
Fob2cBkmilXQV5VgqigX2jwFR8dyfXUxxovy0RIaAu8btdDPLbOVrfLVER7X/oyO0QSUadwYrnj4bRwc
Ln3Ma2RgdW0DEfHVZGArGXgrml0Pui60ikcpqWiXhWKqVAVtbgbGM5MxoUjCuCKZ51J8cicdTZ0jCM9o
Q1RmK28s4Rb1ezQNRaPwG3sUdJxC4+Bl2AZuw9zCCma5gXWE3TAzEJUoGNA+HsR9V1d8q0jDuDwRT1Pj
McZ4mpqAsRQhJ3oTb0DdNISafgNym5/CIbwS7b1aLj7LRJxk21HbHwJlqw2yW47iXl8gbHw/4jWCDMiu
V5oMRN6s4delIykFHWEhGEtLwOitWIwmMm5dFaKIJi4GeQ8GUN6jh6JlAjntWsgy2xApb+bNZxgng7ah
UuON9AZryBsOolzjiS+8fsNrxMrqOkKvVZCBd8jA2xEJd7mBShdX9EZdwkjcZYxcf57OKxHIuteHoi4d
UhrHNrla0gdrj3zMzAsCVRc+g3FYjYXu2xzjUCFKv/4EBlYnlpmBkNhyk4Fwdj3W2MYoOGCNPt+zGAhw
x1BUMIajQzbpC/ZCas1jqB5NIrFulHOTEVU1jPDSAXxiJ4dWvwTD3AoT+wsWOhMw2xCA2Xp/LDyKh9rl
D7zGDbCnbXBMGRl4lwxsDYur4jszf58VNG4n0eN6Aj0s9l9wwUDgeTy55INen7PIfqjF1bvDiK4cwqWy
QQSoB+Cn7odvXi/+dDwFkzNL0M8vc7H5jljM1F7gzD+MQb79dna3rHDIQGB0qclAcGwZvy5Fx0+i1f4o
epy/Qjdx2oZBuQ0eHt3Lxb3z++CtMoONXW63YLdzBqZnlzE9s8zEdmCuOQKG6nOcuaYwKI9v47XpWSN/
svpeLiYD73EDgVdKuav6yBjc/+pLaByPPEfbl5aIqRqCZ27vcxyVVeJ8VMWmgPLENszUBUFf6oLp0tOY
uR+AzCMfQTdjZMcY2cNuDT7h6k0D71xkp4MMDHd0Q221H23HrKE59QU09gJdjLbDnyOqchDuOd1wV/aw
yGDRMakNf3fMRDW7LXXMAImQmKHaC7pCO+hUdjBUekB+6Ne8RtAD70IYN/A+N+AfWcxet+v8FNYEy1B+
YC++sbVGl90hdJ0krNF68DNcLn+Cs1ndcMvSMLrhkv4I//RQwTFIvdlcZzAijYnpS9wwlWODSaUNpovO
IGX/LzFlWGIIBrzCCjcNvOtHBtg3AJ0e7eQs1PbOKLH8HC1H9qHT9iA6TxxAi9UuvtvPKLo4tvFN2PV1
DvY4ZWB4bJY3lgRITKdywKTiMLSZhzGVZ4dblr/AJLtLJtkx9Nj2DFWZDPhEFPGNQe5pFRPMRJVfEJSf
foqKPbvRcMgSjXv/hou53fh3dC12exZgp00STvmpMDI+hylqrBcMTLIet0lMeQxauRUm0vZjMtsGCbt/
zm9TOm6ODIRwAx+Qgfe82YagjWG+Cor9je2o9AtG5j/+heTf/RG/2hWF31rFwSlQjYr6J0zYyAX5yjYx
ItV5P4J3/gwhO36K4B0fImj7h0h22MMNEPTIPh+cbzLgJSvkr2ESlk6TsCqhoXlzQvudOaHpy1nkcUIc
U6RHtnsQN/BDMvC+p6yAbwyp2X/fXGJRFJCiKZ/gUcqFMT2uzwXmmhkILeAfE1JDqYn0o2fnTWPz5t/N
x4npJSGyOYoTNJ4WDJy9yA38iBvwCMnnXysvEjM1fVlOkcTMEMeSoPkcoWfvA7eAnE0DH9D1oJ1pai42
FpvwKDWlKNaEhmYiZnNjYj6mY5jVKKf3hZu/0nQGzgXl8S8V6YOBw8bS+1vCwOMyi8vs1StgEKGm9GnG
ozk0xzFyplk+zeIZP5OBrU5e8ruu/jlwZa4EstkB2XBhB7n4ZcHFl+GThdM+d+BMeDMuKODkrYAji4SD
V6aAZwbsPYh02LP8FIuc8+mwI9zlHJvTCfeYNn8b0r/m9GlE9yTtSoKcvQo/fgV+wqDfMHGLLf8BKVH4
p8+ug0MAAAAASUVORK5CYII=
</value>
</data>
<metadata name="ContextMenuGrid.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>392, 95</value>
</metadata>
<metadata name="ToolStripTopLeft.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>662, 95</value>
</metadata>
<metadata name="ToolStripTopRight.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>804, 95</value>
</metadata>
<metadata name="ToolStripBottomLeft.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>955, 95</value>
</metadata>
<metadata name="ToolStripBottomRight.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>1117, 95</value>
</metadata>
<metadata name="NotifyIcon1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>1132, 17</value>
</metadata>

270
app/DD_PM_WINDREAM/frmMain.vb
View File

@ -10,6 +10,7 @@ Imports System.Collections.ObjectModel
Imports DevExpress.XtraNavBar
Imports DevExpress.XtraGrid.Columns
Imports DevExpress.Images
Imports DevExpress.XtraCharts
Public Class frmMain
Private _windreamPM As ClassPMWindream
@ -25,6 +26,7 @@ Public Class frmMain
Private GridViewItem_Clicked = Nothing
Private GridCursorLocation As Point
Private GRID_LOAD_TYPE As String = "OVERVIEW"
Private GRID_INV_COL_REMOVED As Boolean = False
Private Sub frmProfiles_FormClosing(sender As Object, e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing
Try
@ -241,11 +243,172 @@ Public Class frmMain
ClassLogger.Add("Load_Profiles_for_User - Error: " & ex.Message)
End Try
End Sub
Sub Layout_Single_Profile()
If GridControlProfile.Visible = False Then
GridControlProfile.Visible = True
SplitContainerDashboard.Visible = False
End If
End Sub
Sub Layout_Dashboard()
Try
If GridControlProfile.Visible = True Then
Dim groupCount As Integer
Dim charts As List(Of ChartControl)
GridControlProfile.Visible = False
SplitContainerDashboard.Visible = True
Dim DT_CHARTS As DataTable
Dim sql = "SELECT * FROM TBPM_CHART"
DT_CHARTS = ClassDatabase.Return_Datatable(sql, True)
Dim Groups As DataRowCollection = DT_CHARTS.Rows
groupCount = Groups.Count
Configure_Split_Containers(groupCount)
charts = New List(Of ChartControl) From {ChartTopLeft, ChartTopRight, ChartBottomLeft, ChartBottomRight}
If groupCount > 1 Then
For Each gRow As DataRow In Groups
Dim groupIndex As Integer = Groups.IndexOf(gRow)
Dim groupName As String = gRow.Item("GROUP_ID")
Dim groupCharts = DT_CHARTS.Select(String.Format("GROUP_ID = '{0}'", groupName))
Dim chart As ChartControl
For Each cRow As DataRow In groupCharts
Dim type = cRow.Item("TYPE_CHART")
Dim title = cRow.Item("TITLE")
Dim guid = cRow.Item("GUID")
Dim value = cRow.Item("VALUE")
Dim argument = cRow.Item("ARGUMENT")
Dim sqlchart = cRow.Item("SQL_COMMAND")
sqlchart = sqlchart.ToString.ToUpper.Replace("@USER", USER_USERNAME)
Dim DATA_DT As DataTable = ClassDatabase.Return_Datatable(sqlchart)
Dim series As Series = Create_Series(title, type)
' Select Current Chart
chart = Select_Chart(groupIndex)
chart = charts.Item(groupIndex)
' Set DataSource
chart.DataSource = DATA_DT
' Set shown Columns for Chart
series.ArgumentDataMember = argument
series.ValueDataMembers.AddRange(New String() {value})
'set some options
chart.Legend.Visibility = DevExpress.Utils.DefaultBoolean.True
' Show Data
chart.Series.Add(series)
Next ' End Charts
Next 'End Groups
Else
' Create Charts
For Each row As DataRow In DT_CHARTS.Rows
Dim chart As ChartControl
Dim chartIndex As Integer = DT_CHARTS.Rows.IndexOf(row)
Dim type = row.Item("TYPE_CHART")
Dim title = row.Item("TITLE")
Dim guid = row.Item("GUID")
Dim value = row.Item("VALUE")
Dim argument = row.Item("ARGUMENT")
Dim sqlchart = row.Item("SQL_COMMAND")
sqlchart = sqlchart.ToString.ToUpper.Replace("@USER", USER_USERNAME)
Dim DATA_DT As DataTable = ClassDatabase.Return_Datatable(sqlchart)
' Create Series based on type
Dim series As Series = Create_Series(title, type)
' Select Current Chart
chart = Select_Chart(chartIndex)
' Set DataSource
chart.DataSource = DATA_DT
' Set shown Columns for Chart
series.ArgumentDataMember = argument
series.ValueDataMembers.AddRange(New String() {value})
'set some options
chart.Legend.Visibility = DevExpress.Utils.DefaultBoolean.True
chart.OptionsPrint.SizeMode = Printing.PrintSizeMode.Stretch
' Show Data
chart.Series.Add(series)
Next
End If
End If
Catch ex As Exception
ClassLogger.Add("Layout Dashboard - Error: " & ex.Message)
MsgBox("Unexpected Error in Layout Dashboard - Error: " & vbNewLine & ex.Message, MsgBoxStyle.Critical)
End Try
End Sub
Private Function Create_Series(title As String, type As String) As Series
Dim series As Series
Select Case type
Case "BAR"
series = New Series(title, ViewType.Bar)
Case "LINE"
series = New Series(title, ViewType.Line)
Case "AREA"
series = New Series(title, ViewType.Area)
Case "PIE"
series = New Series(title, ViewType.Pie)
series.Label.TextPattern = "{A}: {VP:p0}"
Dim view As PieSeriesView = DirectCast(series.View, PieSeriesView)
view.Titles.Add(New SeriesTitle())
view.Titles(0).Text = title
Case Else
series = New Series(title, ViewType.Bar)
End Select
Return series
End Function
Private Function Select_Chart(index As Integer)
Select Case index
Case 0
Return ChartTopLeft
Case 1
Return ChartTopRight
Case 2
Return ChartBottomLeft
Case Else
Return ChartBottomRight
End Select
End Function
Private Sub Configure_Split_Containers(VisibleContainers As Integer)
Select Case VisibleContainers
Case 1
' Show only ChartTopLeft
SplitContainerTop.Panel2Collapsed = True
' Collapse SplitContainerBottom
SplitContainerDashboard.Panel2Collapsed = True
Case 2
' Collapse SplitContainerBottom
SplitContainerDashboard.Panel2Collapsed = True
Case 3
' Collapse ChartBottomRight
SplitContainerBottom.Panel2Collapsed = True
' Show SplitContainerBottom
SplitContainerDashboard.Panel2Collapsed = False
Case 4
' Show SplitContainerBottom
SplitContainerDashboard.Panel2Collapsed = False
End Select
End Sub
Sub Load_single_Profile()
Try
Load_Profiles_for_User()
Layout_Single_Profile()
Dim expression As String
expression = "GUID = " & CURRENT_CLICKED_PROFILE_ID
Dim TEMP_TABLE = CURR_DT_VWPM_PROFILE_ACTIVE
@ -265,9 +428,13 @@ Public Class frmMain
CURR_DT_PROFILEGRID = ClassDatabase.Return_Datatable(sql, True)
Create_Basic_View()
GridViewProfile.RestoreLayoutFromXml(GetXML_LayoutName())
Dim filexml = GetXML_LayoutName()
GridViewProfile.RestoreLayoutFromXml(filexml)
GridView_CheckInvalidColumns()
GridViewProfile.SaveLayoutToXml(GetXML_LayoutName())
If GRID_INV_COL_REMOVED = True Then
GridViewProfile.SaveLayoutToXml(filexml)
End If
End If
@ -277,6 +444,7 @@ Public Class frmMain
Catch ex As Exception
ClassLogger.Add("Load_single_Profile - Error: " & ex.Message)
End Try
End Sub
Sub Create_Basic_View()
@ -333,9 +501,13 @@ Public Class frmMain
GridViewProfile.Columns.Item("ICON").Fixed = DevExpress.XtraGrid.Columns.FixedStyle.Left
GridViewProfile.Columns("Last edited").DisplayFormat.FormatType = FormatType.DateTime
GridViewProfile.Columns("Last edited").DisplayFormat.FormatString = "dd.MM.yyyy HH:MM:ss"
GridViewProfile.Columns.Item("PROFILE_GROUP_TEXT").Visible = False
GridViewProfile.Columns.Item("PROFILE_GROUP_COLOR").Visible = False
End Sub
Private Sub GridView_CheckInvalidColumns()
GRID_INV_COL_REMOVED = False
Try
For Each grid_column As GridColumn In GridViewProfile.Columns
Dim GridDXCaption = grid_column.Caption
@ -355,6 +527,7 @@ Public Class frmMain
If grid_column.Visible = True Then
Try
grid_column.Dispose()
GRID_INV_COL_REMOVED = True
Catch ex As Exception
End Try
@ -369,10 +542,6 @@ Public Class frmMain
End Try
End Sub
Sub LoadProfile_PM()
If TimerRefresh.Enabled = True Then
TimerRefresh.Stop()
End If
Try
If Me.Visible = True And frmProfileDesigner.Visible = False Then
Load_Profiles_for_User()
@ -410,8 +579,10 @@ Public Class frmMain
ClassLogger.Add("Unexpected Error in Formatting Grid: " & ex.Message)
End Try
GridView_CheckInvalidColumns()
If GRID_INV_COL_REMOVED = True Then
GridViewProfile.SaveLayoutToXml(GetXML_LayoutName())
End If
GridViewProfile.SaveLayoutToXml(GetXML_LayoutName())
Else
GridControlProfile.DataSource = Nothing
@ -433,9 +604,7 @@ Public Class frmMain
ClassLogger.Add("LoadProfile_PM - Fehler: " & ex.Message)
MsgBox("Fehler LoadProfile_PM - Fehler: " & vbNewLine & ex.Message, MsgBoxStyle.Critical, "Achtung:")
End Try
If TimerRefresh.Enabled = False Then
TimerRefresh.Start()
End If
End Sub
Private Function file_exists(ByVal _file As String)
Try
@ -483,6 +652,9 @@ Public Class frmMain
End Sub
Private Sub Decide_Load()
Try
If TimerRefresh.Enabled = True Then
TimerRefresh.Stop()
End If
If GRID_LOAD_TYPE = "OVERVIEW" Then
Load_Grid_Overview()
ElseIf GRID_LOAD_TYPE.StartsWith("PROFILE#") Then
@ -491,7 +663,9 @@ Public Class frmMain
Catch ex As Exception
End Try
If TimerRefresh.Enabled = False Then
TimerRefresh.Start()
End If
End Sub
Private Sub ToolStripButton2_Click(sender As System.Object, e As System.EventArgs) Handles tstrpbtn_Config.Click
Dim AdminSecurity As Boolean = False
@ -557,34 +731,39 @@ Public Class frmMain
End Sub
Private Sub GridViewProfile_CustomDrawGroupRow(sender As Object, e As DevExpress.XtraGrid.Views.Base.RowObjectCustomDrawEventArgs) Handles GridViewProfile.CustomDrawGroupRow
Dim info As GridGroupRowInfo = TryCast(e.Info, GridGroupRowInfo)
Dim view As GridView = sender
Dim item As GridGroupSummaryItem = CType(view.GroupSummary(Tag), GridGroupSummaryItem)
' Dim value As Object = view.GetGroupSummaryValue(e.RowHandle, item)
Try
Dim info As GridGroupRowInfo = TryCast(e.Info, GridGroupRowInfo)
Dim view As GridView = sender
Dim item As GridGroupSummaryItem = CType(view.GroupSummary(Tag), GridGroupSummaryItem)
' Dim value As Object = view.GetGroupSummaryValue(e.RowHandle, item)
If info.Column.FieldName = "PROFILE_GROUP_TEXT" Then
info.GroupText = info.GroupValueText
If info.Column.FieldName = "PROFILE_GROUP_TEXT" Then
info.GroupText = info.GroupValueText
Dim _color As String
Dim _color As String
For Each row As DataRow In CURR_DT_VWPM_PROFILE_ACTIVE.Rows
If row.Item("PROFILE_GROUP_TEXT") = info.GroupValueText Then
_color = row.Item("PROFILE_GROUP_COLOR")
End If
Next
For Each row As DataRow In CURR_DT_VWPM_PROFILE_ACTIVE.Rows
If row.Item("PROFILE_GROUP_TEXT") = info.GroupValueText Then
_color = row.Item("PROFILE_GROUP_COLOR")
End If
Next
Select Case _color
Case "Red"
info.Appearance.BackColor = Color.LightSalmon
Case "Green"
info.Appearance.BackColor = Color.LightGreen
Case "Yellow"
info.Appearance.BackColor = Color.LightYellow
Case Else
info.Appearance.BackColor = Color.LightGray
End Select
Select Case _color
Case "Red"
info.Appearance.BackColor = Color.LightSalmon
Case "Green"
info.Appearance.BackColor = Color.LightGreen
Case "Yellow"
info.Appearance.BackColor = Color.LightYellow
Case Else
info.Appearance.BackColor = Color.LightGray
End Select
End If
Catch ex As Exception
End Try
End If
End Sub
Private Sub GridViewProfile_RowStyle(sender As Object, e As RowStyleEventArgs) Handles GridViewProfile.RowStyle
@ -739,6 +918,8 @@ Public Class frmMain
Load_Grid_Overview()
End Sub
Sub Load_Grid_Overview()
SplitContainerDashboard.Visible = False
Layout_Single_Profile()
GRID_LOAD_TYPE = "OVERVIEW"
CURRENT_CLICKED_PROFILE_ID = 0
lblViewType.Text = "Gesamtübersicht"
@ -767,13 +948,15 @@ Public Class frmMain
If Not IsNothing(CURR_DT_PROFILEGRID) Then
If CURR_DT_PROFILEGRID.Rows.Count = 0 Then
MsgBox("Aktuell keine Workflowdaten vorhanden!", MsgBoxStyle.Information)
lblViewType.Text = "Aktuell keine Workflowdaten vorhanden!"
'MsgBox("Aktuell keine Workflowdaten vorhanden!", MsgBoxStyle.Information)
GridControlProfile.DataSource = Nothing
Try
GridViewProfile.Columns.Clear()
Catch ex As Exception
End Try
Cursor = Cursors.Default
Exit Sub
End If
' Spalte für Status Icon erstellen
@ -894,4 +1077,19 @@ Public Class frmMain
Cursor = Cursors.Default
End Sub
Private Sub tsmiValidationProfil_Click(sender As Object, e As EventArgs) Handles tsmiValidationProfil.Click
If CURRENT_CLICKED_PROFILE_ID <> 0 Then
Load_Profil_from_Grid(CURRENT_CLICKED_PROFILE_ID)
Else
MsgBox("Bitte wählen Sie zuerst ein Profil aus!", MsgBoxResult.Ok)
End If
End Sub
Private Sub NavBarItemDashboard_LinkClicked(sender As Object, e As NavBarLinkEventArgs) Handles NavBarItemDashboard.LinkClicked
If TimerRefresh.Enabled = True Then
TimerRefresh.Stop()
End If
Layout_Dashboard()
End Sub
End Class

244
app/DD_PM_WINDREAM/frmProfileDesigner.Designer.vb generated
View File

@ -56,6 +56,8 @@ Partial Class frmProfileDesigner
Dim ADDED_WHENLabel1 As System.Windows.Forms.Label
Dim CHANGED_WHOLabel1 As System.Windows.Forms.Label
Dim CHANGED_WHENLabel1 As System.Windows.Forms.Label
Dim WORK_HISTORY_ENTRYLabel As System.Windows.Forms.Label
Dim SQL_VIEWLabel As System.Windows.Forms.Label
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmProfileDesigner))
Dim DataGridViewCellStyle1 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Dim DataGridViewCellStyle2 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
@ -127,6 +129,9 @@ Partial Class frmProfileDesigner
Me.PM_VEKTOR_INDEXComboBox = New System.Windows.Forms.ComboBox()
Me.SORT_BY_LATESTCheckBox = New System.Windows.Forms.CheckBox()
Me.TabPage6 = New System.Windows.Forms.TabPage()
Me.TabControl2 = New System.Windows.Forms.TabControl()
Me.TabPage11 = New System.Windows.Forms.TabPage()
Me.Label13 = New System.Windows.Forms.Label()
Me.Button1 = New System.Windows.Forms.Button()
Me.TabControlFinalIndices = New System.Windows.Forms.TabControl()
Me.TabPage9 = New System.Windows.Forms.TabPage()
@ -157,7 +162,8 @@ Partial Class frmProfileDesigner
Me.cmbConnection = New System.Windows.Forms.ComboBox()
Me.TBPM_CONNECTIONBindingSource = New System.Windows.Forms.BindingSource(Me.components)
Me.Label4 = New System.Windows.Forms.Label()
Me.Label13 = New System.Windows.Forms.Label()
Me.Label5 = New System.Windows.Forms.Label()
Me.Label6 = New System.Windows.Forms.Label()
Me.TBPM_PROFILE_FINAL_INDEXINGBindingNavigator = New System.Windows.Forms.BindingNavigator(Me.components)
Me.BindingNavigatorCountItem4 = New System.Windows.Forms.ToolStripLabel()
Me.BindingNavigatorMoveFirstItem4 = New System.Windows.Forms.ToolStripButton()
@ -177,8 +183,11 @@ Partial Class frmProfileDesigner
Me.DataGridViewTextBoxColumn27 = New System.Windows.Forms.DataGridViewTextBoxColumn()
Me.DataGridViewTextBoxColumn28 = New System.Windows.Forms.DataGridViewTextBoxColumn()
Me.DataGridViewTextBoxColumn29 = New System.Windows.Forms.DataGridViewTextBoxColumn()
Me.Label6 = New System.Windows.Forms.Label()
Me.Label5 = New System.Windows.Forms.Label()
Me.TabPage12 = New System.Windows.Forms.TabPage()
Me.ANNOTATE_WORK_HISTORY_ENTRYCheckBox = New System.Windows.Forms.CheckBox()
Me.ANNOTATE_ALL_WORK_HISTORY_ENTRIESCheckBox = New System.Windows.Forms.CheckBox()
Me.SQL_VIEWTextBox = New System.Windows.Forms.TextBox()
Me.WORK_HISTORY_ENTRYTextBox = New System.Windows.Forms.TextBox()
Me.TabPage2 = New System.Windows.Forms.TabPage()
Me.SplitContainerProfilzuordnung = New System.Windows.Forms.SplitContainer()
Me.TBPM_PROFILE_ZuordnungDataGridView = New System.Windows.Forms.DataGridView()
@ -347,6 +356,8 @@ Partial Class frmProfileDesigner
ADDED_WHENLabel1 = New System.Windows.Forms.Label()
CHANGED_WHOLabel1 = New System.Windows.Forms.Label()
CHANGED_WHENLabel1 = New System.Windows.Forms.Label()
WORK_HISTORY_ENTRYLabel = New System.Windows.Forms.Label()
SQL_VIEWLabel = New System.Windows.Forms.Label()
CType(Me.DD_DMSLiteDataSet, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.TBPM_PROFILEBindingSource, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.TBPM_PROFILEBindingNavigator, System.ComponentModel.ISupportInitialize).BeginInit()
@ -363,6 +374,8 @@ Partial Class frmProfileDesigner
CType(Me.GridControl1, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.GridView1, System.ComponentModel.ISupportInitialize).BeginInit()
Me.TabPage6.SuspendLayout()
Me.TabControl2.SuspendLayout()
Me.TabPage11.SuspendLayout()
Me.TabControlFinalIndices.SuspendLayout()
Me.TabPage9.SuspendLayout()
Me.grbxSystemStamps.SuspendLayout()
@ -372,6 +385,7 @@ Partial Class frmProfileDesigner
CType(Me.TBPM_PROFILE_FINAL_INDEXINGBindingNavigator, System.ComponentModel.ISupportInitialize).BeginInit()
Me.TBPM_PROFILE_FINAL_INDEXINGBindingNavigator.SuspendLayout()
CType(Me.TBPM_PROFILE_FINAL_INDEXINGDataGridView, System.ComponentModel.ISupportInitialize).BeginInit()
Me.TabPage12.SuspendLayout()
Me.TabPage2.SuspendLayout()
CType(Me.SplitContainerProfilzuordnung, System.ComponentModel.ISupportInitialize).BeginInit()
Me.SplitContainerProfilzuordnung.Panel1.SuspendLayout()
@ -463,7 +477,7 @@ Partial Class frmProfileDesigner
'
ADDED_WHOLabel.AutoSize = True
ADDED_WHOLabel.Font = New System.Drawing.Font("Tahoma", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
ADDED_WHOLabel.Location = New System.Drawing.Point(277, 337)
ADDED_WHOLabel.Location = New System.Drawing.Point(277, 335)
ADDED_WHOLabel.Name = "ADDED_WHOLabel"
ADDED_WHOLabel.Size = New System.Drawing.Size(78, 16)
ADDED_WHOLabel.TabIndex = 18
@ -474,7 +488,7 @@ Partial Class frmProfileDesigner
'
ADDED_WHENLabel.AutoSize = True
ADDED_WHENLabel.Font = New System.Drawing.Font("Tahoma", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
ADDED_WHENLabel.Location = New System.Drawing.Point(444, 337)
ADDED_WHENLabel.Location = New System.Drawing.Point(444, 335)
ADDED_WHENLabel.Name = "ADDED_WHENLabel"
ADDED_WHENLabel.Size = New System.Drawing.Size(87, 16)
ADDED_WHENLabel.TabIndex = 20
@ -484,7 +498,7 @@ Partial Class frmProfileDesigner
'
CHANGED_WHOLabel.AutoSize = True
CHANGED_WHOLabel.Font = New System.Drawing.Font("Tahoma", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
CHANGED_WHOLabel.Location = New System.Drawing.Point(609, 337)
CHANGED_WHOLabel.Location = New System.Drawing.Point(609, 335)
CHANGED_WHOLabel.Name = "CHANGED_WHOLabel"
CHANGED_WHOLabel.Size = New System.Drawing.Size(91, 16)
CHANGED_WHOLabel.TabIndex = 22
@ -494,7 +508,7 @@ Partial Class frmProfileDesigner
'
CHANGED_WHENLabel.AutoSize = True
CHANGED_WHENLabel.Font = New System.Drawing.Font("Tahoma", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
CHANGED_WHENLabel.Location = New System.Drawing.Point(775, 337)
CHANGED_WHENLabel.Location = New System.Drawing.Point(775, 335)
CHANGED_WHENLabel.Name = "CHANGED_WHENLabel"
CHANGED_WHENLabel.Size = New System.Drawing.Size(100, 16)
CHANGED_WHENLabel.TabIndex = 24
@ -604,7 +618,7 @@ Partial Class frmProfileDesigner
'
Label12.AutoSize = True
Label12.Font = New System.Drawing.Font("Tahoma", 9.75!, System.Drawing.FontStyle.Italic, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Label12.Location = New System.Drawing.Point(712, 153)
Label12.Location = New System.Drawing.Point(712, 151)
Label12.Name = "Label12"
Label12.Size = New System.Drawing.Size(409, 32)
Label12.TabIndex = 80
@ -615,7 +629,7 @@ Partial Class frmProfileDesigner
'
Label7.AutoSize = True
Label7.Font = New System.Drawing.Font("Tahoma", 9.75!, System.Drawing.FontStyle.Italic, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Label7.Location = New System.Drawing.Point(712, 215)
Label7.Location = New System.Drawing.Point(712, 213)
Label7.Name = "Label7"
Label7.Size = New System.Drawing.Size(364, 32)
Label7.TabIndex = 82
@ -731,6 +745,24 @@ Partial Class frmProfileDesigner
CHANGED_WHENLabel1.TabIndex = 17
CHANGED_WHENLabel1.Text = "Geändert wann:"
'
'WORK_HISTORY_ENTRYLabel
'
WORK_HISTORY_ENTRYLabel.AutoSize = True
WORK_HISTORY_ENTRYLabel.Location = New System.Drawing.Point(6, 3)
WORK_HISTORY_ENTRYLabel.Name = "WORK_HISTORY_ENTRYLabel"
WORK_HISTORY_ENTRYLabel.Size = New System.Drawing.Size(142, 16)
WORK_HISTORY_ENTRYLabel.TabIndex = 0
WORK_HISTORY_ENTRYLabel.Text = "Historisierungs-Eintrag:"
'
'SQL_VIEWLabel
'
SQL_VIEWLabel.AutoSize = True
SQL_VIEWLabel.Location = New System.Drawing.Point(6, 48)
SQL_VIEWLabel.Name = "SQL_VIEWLabel"
SQL_VIEWLabel.Size = New System.Drawing.Size(129, 16)
SQL_VIEWLabel.TabIndex = 6
SQL_VIEWLabel.Text = "SQL für Profilansicht:"
'
'DD_DMSLiteDataSet
'
Me.DD_DMSLiteDataSet.DataSetName = "DD_DMSLiteDataSet"
@ -964,7 +996,7 @@ Partial Class frmProfileDesigner
Me.GroupBox4.Controls.Add(Me.FINAL_TEXTTextBox)
Me.GroupBox4.Font = New System.Drawing.Font("Tahoma", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.GroupBox4.ForeColor = System.Drawing.Color.DarkRed
Me.GroupBox4.Location = New System.Drawing.Point(280, 153)
Me.GroupBox4.Location = New System.Drawing.Point(280, 151)
Me.GroupBox4.Name = "GroupBox4"
Me.GroupBox4.Size = New System.Drawing.Size(420, 100)
Me.GroupBox4.TabIndex = 75
@ -996,7 +1028,7 @@ Partial Class frmProfileDesigner
Me.GroupBox2.Controls.Add(Me.Label1)
Me.GroupBox2.Controls.Add(Me.cmbType)
Me.GroupBox2.Font = New System.Drawing.Font("Tahoma", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.GroupBox2.Location = New System.Drawing.Point(280, 259)
Me.GroupBox2.Location = New System.Drawing.Point(280, 257)
Me.GroupBox2.Name = "GroupBox2"
Me.GroupBox2.Size = New System.Drawing.Size(420, 71)
Me.GroupBox2.TabIndex = 74
@ -1036,7 +1068,7 @@ Partial Class frmProfileDesigner
Me.GroupBox3.Controls.Add(Me.MOVE2FOLDERTextBox)
Me.GroupBox3.Controls.Add(Me.btnmovetoFolderDialog)
Me.GroupBox3.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.GroupBox3.Location = New System.Drawing.Point(15, 28)
Me.GroupBox3.Location = New System.Drawing.Point(9, 23)
Me.GroupBox3.Name = "GroupBox3"
Me.GroupBox3.Size = New System.Drawing.Size(1007, 57)
Me.GroupBox3.TabIndex = 73
@ -1154,7 +1186,7 @@ Partial Class frmProfileDesigner
'
Me.ADDED_WHOTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBPM_PROFILEBindingSource, "ADDED_WHO", True))
Me.ADDED_WHOTextBox.Font = New System.Drawing.Font("Tahoma", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.ADDED_WHOTextBox.Location = New System.Drawing.Point(280, 356)
Me.ADDED_WHOTextBox.Location = New System.Drawing.Point(280, 354)
Me.ADDED_WHOTextBox.Name = "ADDED_WHOTextBox"
Me.ADDED_WHOTextBox.ReadOnly = True
Me.ADDED_WHOTextBox.Size = New System.Drawing.Size(158, 23)
@ -1164,7 +1196,7 @@ Partial Class frmProfileDesigner
'
Me.ADDED_WHENTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBPM_PROFILEBindingSource, "ADDED_WHEN", True))
Me.ADDED_WHENTextBox.Font = New System.Drawing.Font("Tahoma", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.ADDED_WHENTextBox.Location = New System.Drawing.Point(447, 356)
Me.ADDED_WHENTextBox.Location = New System.Drawing.Point(447, 354)
Me.ADDED_WHENTextBox.Name = "ADDED_WHENTextBox"
Me.ADDED_WHENTextBox.ReadOnly = True
Me.ADDED_WHENTextBox.Size = New System.Drawing.Size(158, 23)
@ -1174,7 +1206,7 @@ Partial Class frmProfileDesigner
'
Me.CHANGED_WHOTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBPM_PROFILEBindingSource, "CHANGED_WHO", True))
Me.CHANGED_WHOTextBox.Font = New System.Drawing.Font("Tahoma", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.CHANGED_WHOTextBox.Location = New System.Drawing.Point(611, 356)
Me.CHANGED_WHOTextBox.Location = New System.Drawing.Point(611, 354)
Me.CHANGED_WHOTextBox.Name = "CHANGED_WHOTextBox"
Me.CHANGED_WHOTextBox.ReadOnly = True
Me.CHANGED_WHOTextBox.Size = New System.Drawing.Size(161, 23)
@ -1184,7 +1216,7 @@ Partial Class frmProfileDesigner
'
Me.CHANGED_WHENTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBPM_PROFILEBindingSource, "CHANGED_WHEN", True))
Me.CHANGED_WHENTextBox.Font = New System.Drawing.Font("Tahoma", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.CHANGED_WHENTextBox.Location = New System.Drawing.Point(778, 356)
Me.CHANGED_WHENTextBox.Location = New System.Drawing.Point(778, 354)
Me.CHANGED_WHENTextBox.Name = "CHANGED_WHENTextBox"
Me.CHANGED_WHENTextBox.ReadOnly = True
Me.CHANGED_WHENTextBox.Size = New System.Drawing.Size(161, 23)
@ -1349,7 +1381,7 @@ Partial Class frmProfileDesigner
'
Me.cmbLOGIndex.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBPM_PROFILEBindingSource, "LOG_INDEX", True))
Me.cmbLOGIndex.FormattingEnabled = True
Me.cmbLOGIndex.Location = New System.Drawing.Point(715, 250)
Me.cmbLOGIndex.Location = New System.Drawing.Point(715, 248)
Me.cmbLOGIndex.Name = "cmbLOGIndex"
Me.cmbLOGIndex.Size = New System.Drawing.Size(230, 24)
Me.cmbLOGIndex.TabIndex = 83
@ -1358,7 +1390,7 @@ Partial Class frmProfileDesigner
'
Me.PM_VEKTOR_INDEXComboBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBPM_PROFILEBindingSource, "PM_VEKTOR_INDEX", True))
Me.PM_VEKTOR_INDEXComboBox.FormattingEnabled = True
Me.PM_VEKTOR_INDEXComboBox.Location = New System.Drawing.Point(715, 188)
Me.PM_VEKTOR_INDEXComboBox.Location = New System.Drawing.Point(715, 186)
Me.PM_VEKTOR_INDEXComboBox.Name = "PM_VEKTOR_INDEXComboBox"
Me.PM_VEKTOR_INDEXComboBox.Size = New System.Drawing.Size(230, 24)
Me.PM_VEKTOR_INDEXComboBox.TabIndex = 81
@ -1378,26 +1410,59 @@ Partial Class frmProfileDesigner
'
Me.TabPage6.AutoScroll = True
Me.TabPage6.BackColor = System.Drawing.Color.WhiteSmoke
Me.TabPage6.Controls.Add(Me.Button1)
Me.TabPage6.Controls.Add(Me.TabControlFinalIndices)
Me.TabPage6.Controls.Add(Me.Label13)
Me.TabPage6.Controls.Add(Me.TBPM_PROFILE_FINAL_INDEXINGBindingNavigator)
Me.TabPage6.Controls.Add(Me.TBPM_PROFILE_FINAL_INDEXINGDataGridView)
Me.TabPage6.Controls.Add(Me.Label6)
Me.TabPage6.Controls.Add(Me.Label5)
Me.TabPage6.Controls.Add(Me.GroupBox3)
Me.TabPage6.Controls.Add(Me.TabControl2)
Me.TabPage6.Location = New System.Drawing.Point(4, 25)
Me.TabPage6.Name = "TabPage6"
Me.TabPage6.Padding = New System.Windows.Forms.Padding(3)
Me.TabPage6.Size = New System.Drawing.Size(1227, 445)
Me.TabPage6.TabIndex = 1
Me.TabPage6.Text = "Aktionen nach erfolgreicher Indexierung:"
'
'TabControl2
'
Me.TabControl2.Controls.Add(Me.TabPage11)
Me.TabControl2.Controls.Add(Me.TabPage12)
Me.TabControl2.Dock = System.Windows.Forms.DockStyle.Fill
Me.TabControl2.Location = New System.Drawing.Point(3, 3)
Me.TabControl2.Name = "TabControl2"
Me.TabControl2.SelectedIndex = 0
Me.TabControl2.Size = New System.Drawing.Size(1221, 439)
Me.TabControl2.TabIndex = 92
'
'TabPage11
'
Me.TabPage11.Controls.Add(Me.Label13)
Me.TabPage11.Controls.Add(Me.Button1)
Me.TabPage11.Controls.Add(Me.GroupBox3)
Me.TabPage11.Controls.Add(Me.TabControlFinalIndices)
Me.TabPage11.Controls.Add(Me.Label5)
Me.TabPage11.Controls.Add(Me.Label6)
Me.TabPage11.Controls.Add(Me.TBPM_PROFILE_FINAL_INDEXINGBindingNavigator)
Me.TabPage11.Controls.Add(Me.TBPM_PROFILE_FINAL_INDEXINGDataGridView)
Me.TabPage11.Location = New System.Drawing.Point(4, 25)
Me.TabPage11.Name = "TabPage11"
Me.TabPage11.Padding = New System.Windows.Forms.Padding(3)
Me.TabPage11.Size = New System.Drawing.Size(1213, 410)
Me.TabPage11.TabIndex = 0
Me.TabPage11.Text = "Move und finale Indexe"
Me.TabPage11.UseVisualStyleBackColor = True
'
'Label13
'
Me.Label13.AutoSize = True
Me.Label13.Font = New System.Drawing.Font("Segoe UI", 9.75!, System.Drawing.FontStyle.Italic, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label13.Location = New System.Drawing.Point(6, 3)
Me.Label13.Name = "Label13"
Me.Label13.Size = New System.Drawing.Size(497, 17)
Me.Label13.TabIndex = 79
Me.Label13.Text = "Definieren Sie hier Aktionen welche nach erfolgreicher Indexierung durchgeführt w" &
"erden:"
'
'Button1
'
Me.Button1.Image = CType(resources.GetObject("Button1.Image"), System.Drawing.Image)
Me.Button1.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
Me.Button1.Location = New System.Drawing.Point(772, 100)
Me.Button1.Location = New System.Drawing.Point(766, 95)
Me.Button1.Name = "Button1"
Me.Button1.Size = New System.Drawing.Size(114, 30)
Me.Button1.TabIndex = 91
@ -1413,10 +1478,10 @@ Partial Class frmProfileDesigner
Me.TabControlFinalIndices.Controls.Add(Me.TabPage9)
Me.TabControlFinalIndices.Controls.Add(Me.TabPage10)
Me.TabControlFinalIndices.Enabled = False
Me.TabControlFinalIndices.Location = New System.Drawing.Point(674, 166)
Me.TabControlFinalIndices.Location = New System.Drawing.Point(668, 161)
Me.TabControlFinalIndices.Name = "TabControlFinalIndices"
Me.TabControlFinalIndices.SelectedIndex = 0
Me.TabControlFinalIndices.Size = New System.Drawing.Size(553, 282)
Me.TabControlFinalIndices.Size = New System.Drawing.Size(1587, 561)
Me.TabControlFinalIndices.TabIndex = 90
'
'TabPage9
@ -1437,7 +1502,7 @@ Partial Class frmProfileDesigner
Me.TabPage9.Location = New System.Drawing.Point(4, 25)
Me.TabPage9.Name = "TabPage9"
Me.TabPage9.Padding = New System.Windows.Forms.Padding(3)
Me.TabPage9.Size = New System.Drawing.Size(545, 253)
Me.TabPage9.Size = New System.Drawing.Size(1579, 532)
Me.TabPage9.TabIndex = 0
Me.TabPage9.Text = "Fester Wert"
Me.TabPage9.UseVisualStyleBackColor = True
@ -1606,7 +1671,7 @@ Partial Class frmProfileDesigner
Me.TabPage10.Location = New System.Drawing.Point(4, 25)
Me.TabPage10.Name = "TabPage10"
Me.TabPage10.Padding = New System.Windows.Forms.Padding(3)
Me.TabPage10.Size = New System.Drawing.Size(545, 253)
Me.TabPage10.Size = New System.Drawing.Size(1579, 535)
Me.TabPage10.TabIndex = 1
Me.TabPage10.Text = "Dynamisches SQL"
Me.TabPage10.UseVisualStyleBackColor = True
@ -1718,16 +1783,26 @@ Partial Class frmProfileDesigner
Me.Label4.TabIndex = 0
Me.Label4.Text = "SQL-Command:"
'
'Label13
'Label5
'
Me.Label13.AutoSize = True
Me.Label13.Font = New System.Drawing.Font("Segoe UI", 9.75!, System.Drawing.FontStyle.Italic, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label13.Location = New System.Drawing.Point(12, 8)
Me.Label13.Name = "Label13"
Me.Label13.Size = New System.Drawing.Size(497, 17)
Me.Label13.TabIndex = 79
Me.Label13.Text = "Definieren Sie hier Aktionen welche nach erfolgreicher Indexierung durchgeführt w" &
"erden:"
Me.Label5.AutoSize = True
Me.Label5.Font = New System.Drawing.Font("Tahoma", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label5.Location = New System.Drawing.Point(5, 83)
Me.Label5.Name = "Label5"
Me.Label5.Size = New System.Drawing.Size(120, 19)
Me.Label5.TabIndex = 74
Me.Label5.Text = "Finale Indexe"
'
'Label6
'
Me.Label6.AutoSize = True
Me.Label6.Font = New System.Drawing.Font("Segoe UI", 9.75!, System.Drawing.FontStyle.Italic, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label6.Location = New System.Drawing.Point(6, 108)
Me.Label6.Name = "Label6"
Me.Label6.Size = New System.Drawing.Size(583, 17)
Me.Label6.TabIndex = 75
Me.Label6.Text = "Diese Indexe werden nach erfolgreicher Indexierung automatisch bei dem indexierte" &
"n Dokument gesetzt."
'
'TBPM_PROFILE_FINAL_INDEXINGBindingNavigator
'
@ -1737,7 +1812,7 @@ Partial Class frmProfileDesigner
Me.TBPM_PROFILE_FINAL_INDEXINGBindingNavigator.DeleteItem = Nothing
Me.TBPM_PROFILE_FINAL_INDEXINGBindingNavigator.Dock = System.Windows.Forms.DockStyle.None
Me.TBPM_PROFILE_FINAL_INDEXINGBindingNavigator.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.BindingNavigatorMoveFirstItem4, Me.BindingNavigatorMovePreviousItem4, Me.BindingNavigatorSeparator12, Me.BindingNavigatorPositionItem4, Me.BindingNavigatorCountItem4, Me.BindingNavigatorSeparator13, Me.BindingNavigatorMoveNextItem4, Me.BindingNavigatorMoveLastItem4, Me.BindingNavigatorSeparator14, Me.ToolStripButton2, Me.ToolStripButton3, Me.ToolStripButton1})
Me.TBPM_PROFILE_FINAL_INDEXINGBindingNavigator.Location = New System.Drawing.Point(13, 138)
Me.TBPM_PROFILE_FINAL_INDEXINGBindingNavigator.Location = New System.Drawing.Point(7, 133)
Me.TBPM_PROFILE_FINAL_INDEXINGBindingNavigator.MoveFirstItem = Me.BindingNavigatorMoveFirstItem4
Me.TBPM_PROFILE_FINAL_INDEXINGBindingNavigator.MoveLastItem = Me.BindingNavigatorMoveLastItem4
Me.TBPM_PROFILE_FINAL_INDEXINGBindingNavigator.MoveNextItem = Me.BindingNavigatorMoveNextItem4
@ -1853,10 +1928,10 @@ Partial Class frmProfileDesigner
Me.TBPM_PROFILE_FINAL_INDEXINGDataGridView.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
Me.TBPM_PROFILE_FINAL_INDEXINGDataGridView.Columns.AddRange(New System.Windows.Forms.DataGridViewColumn() {Me.GUID, Me.DataGridViewTextBoxColumn26, Me.DataGridViewTextBoxColumn27, Me.DataGridViewTextBoxColumn28, Me.DataGridViewTextBoxColumn29})
Me.TBPM_PROFILE_FINAL_INDEXINGDataGridView.DataSource = Me.TBPM_PROFILE_FINAL_INDEXINGBindingSource
Me.TBPM_PROFILE_FINAL_INDEXINGDataGridView.Location = New System.Drawing.Point(15, 166)
Me.TBPM_PROFILE_FINAL_INDEXINGDataGridView.Location = New System.Drawing.Point(9, 161)
Me.TBPM_PROFILE_FINAL_INDEXINGDataGridView.MultiSelect = False
Me.TBPM_PROFILE_FINAL_INDEXINGDataGridView.Name = "TBPM_PROFILE_FINAL_INDEXINGDataGridView"
Me.TBPM_PROFILE_FINAL_INDEXINGDataGridView.Size = New System.Drawing.Size(653, 300)
Me.TBPM_PROFILE_FINAL_INDEXINGDataGridView.Size = New System.Drawing.Size(653, 579)
Me.TBPM_PROFILE_FINAL_INDEXINGDataGridView.TabIndex = 75
'
'GUID
@ -1893,26 +1968,60 @@ Partial Class frmProfileDesigner
Me.DataGridViewTextBoxColumn29.Name = "DataGridViewTextBoxColumn29"
Me.DataGridViewTextBoxColumn29.ReadOnly = True
'
'Label6
'TabPage12
'
Me.Label6.AutoSize = True
Me.Label6.Font = New System.Drawing.Font("Segoe UI", 9.75!, System.Drawing.FontStyle.Italic, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label6.Location = New System.Drawing.Point(12, 113)
Me.Label6.Name = "Label6"
Me.Label6.Size = New System.Drawing.Size(583, 17)
Me.Label6.TabIndex = 75
Me.Label6.Text = "Diese Indexe werden nach erfolgreicher Indexierung automatisch bei dem indexierte" &
"n Dokument gesetzt."
Me.TabPage12.AutoScroll = True
Me.TabPage12.Controls.Add(Me.ANNOTATE_WORK_HISTORY_ENTRYCheckBox)
Me.TabPage12.Controls.Add(Me.ANNOTATE_ALL_WORK_HISTORY_ENTRIESCheckBox)
Me.TabPage12.Controls.Add(SQL_VIEWLabel)
Me.TabPage12.Controls.Add(Me.SQL_VIEWTextBox)
Me.TabPage12.Controls.Add(WORK_HISTORY_ENTRYLabel)
Me.TabPage12.Controls.Add(Me.WORK_HISTORY_ENTRYTextBox)
Me.TabPage12.Location = New System.Drawing.Point(4, 25)
Me.TabPage12.Name = "TabPage12"
Me.TabPage12.Padding = New System.Windows.Forms.Padding(3)
Me.TabPage12.Size = New System.Drawing.Size(1213, 410)
Me.TabPage12.TabIndex = 1
Me.TabPage12.Text = "Nachbearbeitungsfunktionen 2"
Me.TabPage12.UseVisualStyleBackColor = True
'
'Label5
'ANNOTATE_WORK_HISTORY_ENTRYCheckBox
'
Me.Label5.AutoSize = True
Me.Label5.Font = New System.Drawing.Font("Tahoma", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label5.Location = New System.Drawing.Point(11, 88)
Me.Label5.Name = "Label5"
Me.Label5.Size = New System.Drawing.Size(120, 19)
Me.Label5.TabIndex = 74
Me.Label5.Text = "Finale Indexe"
Me.ANNOTATE_WORK_HISTORY_ENTRYCheckBox.DataBindings.Add(New System.Windows.Forms.Binding("CheckState", Me.TBPM_PROFILEBindingSource, "ANNOTATE_WORK_HISTORY_ENTRY", True))
Me.ANNOTATE_WORK_HISTORY_ENTRYCheckBox.Location = New System.Drawing.Point(291, 336)
Me.ANNOTATE_WORK_HISTORY_ENTRYCheckBox.Name = "ANNOTATE_WORK_HISTORY_ENTRYCheckBox"
Me.ANNOTATE_WORK_HISTORY_ENTRYCheckBox.Size = New System.Drawing.Size(260, 24)
Me.ANNOTATE_WORK_HISTORY_ENTRYCheckBox.TabIndex = 11
Me.ANNOTATE_WORK_HISTORY_ENTRYCheckBox.Text = "ANNOTATE WORK HISTORY ENTRY"
Me.ANNOTATE_WORK_HISTORY_ENTRYCheckBox.UseVisualStyleBackColor = True
'
'ANNOTATE_ALL_WORK_HISTORY_ENTRIESCheckBox
'
Me.ANNOTATE_ALL_WORK_HISTORY_ENTRIESCheckBox.DataBindings.Add(New System.Windows.Forms.Binding("CheckState", Me.TBPM_PROFILEBindingSource, "ANNOTATE_ALL_WORK_HISTORY_ENTRIES", True))
Me.ANNOTATE_ALL_WORK_HISTORY_ENTRIESCheckBox.Location = New System.Drawing.Point(9, 336)
Me.ANNOTATE_ALL_WORK_HISTORY_ENTRIESCheckBox.Name = "ANNOTATE_ALL_WORK_HISTORY_ENTRIESCheckBox"
Me.ANNOTATE_ALL_WORK_HISTORY_ENTRIESCheckBox.Size = New System.Drawing.Size(292, 24)
Me.ANNOTATE_ALL_WORK_HISTORY_ENTRIESCheckBox.TabIndex = 9
Me.ANNOTATE_ALL_WORK_HISTORY_ENTRIESCheckBox.Text = "ANNOTATE ALL WORK_HISTORY_ENTRIES"
Me.ANNOTATE_ALL_WORK_HISTORY_ENTRIESCheckBox.UseVisualStyleBackColor = True
'
'SQL_VIEWTextBox
'
Me.SQL_VIEWTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBPM_PROFILEBindingSource, "SQL_VIEW", True))
Me.SQL_VIEWTextBox.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.SQL_VIEWTextBox.Location = New System.Drawing.Point(9, 67)
Me.SQL_VIEWTextBox.Multiline = True
Me.SQL_VIEWTextBox.Name = "SQL_VIEWTextBox"
Me.SQL_VIEWTextBox.Size = New System.Drawing.Size(1198, 62)
Me.SQL_VIEWTextBox.TabIndex = 7
'
'WORK_HISTORY_ENTRYTextBox
'
Me.WORK_HISTORY_ENTRYTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBPM_PROFILEBindingSource, "WORK_HISTORY_ENTRY", True))
Me.WORK_HISTORY_ENTRYTextBox.Location = New System.Drawing.Point(9, 22)
Me.WORK_HISTORY_ENTRYTextBox.Name = "WORK_HISTORY_ENTRYTextBox"
Me.WORK_HISTORY_ENTRYTextBox.Size = New System.Drawing.Size(1198, 23)
Me.WORK_HISTORY_ENTRYTextBox.TabIndex = 1
'
'TabPage2
'
@ -2404,7 +2513,7 @@ Partial Class frmProfileDesigner
Me.TabPage8.Location = New System.Drawing.Point(4, 22)
Me.TabPage8.Name = "TabPage8"
Me.TabPage8.Padding = New System.Windows.Forms.Padding(3)
Me.TabPage8.Size = New System.Drawing.Size(882, 200)
Me.TabPage8.Size = New System.Drawing.Size(890, 202)
Me.TabPage8.TabIndex = 1
Me.TabPage8.Text = "User - Detail"
Me.TabPage8.UseVisualStyleBackColor = True
@ -3194,7 +3303,9 @@ Partial Class frmProfileDesigner
CType(Me.GridControl1, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.GridView1, System.ComponentModel.ISupportInitialize).EndInit()
Me.TabPage6.ResumeLayout(False)
Me.TabPage6.PerformLayout()
Me.TabControl2.ResumeLayout(False)
Me.TabPage11.ResumeLayout(False)
Me.TabPage11.PerformLayout()
Me.TabControlFinalIndices.ResumeLayout(False)
Me.TabPage9.ResumeLayout(False)
Me.TabPage9.PerformLayout()
@ -3207,6 +3318,8 @@ Partial Class frmProfileDesigner
Me.TBPM_PROFILE_FINAL_INDEXINGBindingNavigator.ResumeLayout(False)
Me.TBPM_PROFILE_FINAL_INDEXINGBindingNavigator.PerformLayout()
CType(Me.TBPM_PROFILE_FINAL_INDEXINGDataGridView, System.ComponentModel.ISupportInitialize).EndInit()
Me.TabPage12.ResumeLayout(False)
Me.TabPage12.PerformLayout()
Me.TabPage2.ResumeLayout(False)
Me.SplitContainerProfilzuordnung.Panel1.ResumeLayout(False)
Me.SplitContainerProfilzuordnung.Panel1.PerformLayout()
@ -3514,4 +3627,11 @@ Partial Class frmProfileDesigner
Friend WithEvents btnShowConnections As System.Windows.Forms.Button
Friend WithEvents btnEditor As System.Windows.Forms.Button
Friend WithEvents Button1 As System.Windows.Forms.Button
Friend WithEvents TabControl2 As TabControl
Friend WithEvents TabPage11 As TabPage
Friend WithEvents TabPage12 As TabPage
Friend WithEvents ANNOTATE_WORK_HISTORY_ENTRYCheckBox As CheckBox
Friend WithEvents ANNOTATE_ALL_WORK_HISTORY_ENTRIESCheckBox As CheckBox
Friend WithEvents SQL_VIEWTextBox As TextBox
Friend WithEvents WORK_HISTORY_ENTRYTextBox As TextBox
End Class

6
app/DD_PM_WINDREAM/frmProfileDesigner.resx
View File

@ -216,6 +216,12 @@
<metadata name="CHANGED_WHENLabel1.GenerateMember" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>False</value>
</metadata>
<metadata name="WORK_HISTORY_ENTRYLabel.GenerateMember" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>False</value>
</metadata>
<metadata name="SQL_VIEWLabel.GenerateMember" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>False</value>
</metadata>
<metadata name="DD_DMSLiteDataSet.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>17, 17</value>
</metadata>

197
app/DD_PM_WINDREAM/frmUserKonfig_AddUsers.designer.vb generated
View File

@ -22,150 +22,217 @@ 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()
Me.ToolStrip1 = New System.Windows.Forms.ToolStrip()
Me.ToolStripLabel1 = New System.Windows.Forms.ToolStripLabel()
Me.clbUsers = New System.Windows.Forms.CheckedListBox()
Me.lbllimited = New System.Windows.Forms.Label()
Me.GridControlUsers = New DevExpress.XtraGrid.GridControl()
Me.TBAD_UsersBindingSource = New System.Windows.Forms.BindingSource(Me.components)
Me.GridViewUsers = New DevExpress.XtraGrid.Views.Grid.GridView()
Me.colSelect = New DevExpress.XtraGrid.Columns.GridColumn()
Me.colUsername = New DevExpress.XtraGrid.Columns.GridColumn()
Me.colPrename = New DevExpress.XtraGrid.Columns.GridColumn()
Me.colSurname = New DevExpress.XtraGrid.Columns.GridColumn()
Me.colEmail = New DevExpress.XtraGrid.Columns.GridColumn()
Me.GroupBox1 = New System.Windows.Forms.GroupBox()
Me.RBCheck1 = New System.Windows.Forms.RadioButton()
Me.RBCheck2 = New System.Windows.Forms.RadioButton()
Me.ToolStrip2 = New System.Windows.Forms.ToolStrip()
Me.ToolStripLabel2 = New System.Windows.Forms.ToolStripLabel()
Me.tbSelectEverything = New System.Windows.Forms.ToolStripButton()
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()
Me.SplitContainer1.SuspendLayout()
Me.ToolStrip1.SuspendLayout()
CType(Me.GridControlUsers, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.TBAD_UsersBindingSource, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.GridViewUsers, System.ComponentModel.ISupportInitialize).BeginInit()
Me.GroupBox1.SuspendLayout()
Me.ToolStrip2.SuspendLayout()
Me.SuspendLayout()
'
'SplitContainer1
'
Me.SplitContainer1.Dock = System.Windows.Forms.DockStyle.Fill
Me.SplitContainer1.Location = New System.Drawing.Point(0, 0)
resources.ApplyResources(Me.SplitContainer1, "SplitContainer1")
Me.SplitContainer1.Name = "SplitContainer1"
'
'SplitContainer1.Panel1
'
resources.ApplyResources(Me.SplitContainer1.Panel1, "SplitContainer1.Panel1")
Me.SplitContainer1.Panel1.Controls.Add(Me.lbGroups)
Me.SplitContainer1.Panel1.Controls.Add(Me.ToolStrip1)
'
'SplitContainer1.Panel2
'
Me.SplitContainer1.Panel2.Controls.Add(Me.clbUsers)
Me.SplitContainer1.Panel2.Controls.Add(Me.lbllimited)
Me.SplitContainer1.Panel2.Controls.Add(Me.GridControlUsers)
Me.SplitContainer1.Panel2.Controls.Add(Me.GroupBox1)
Me.SplitContainer1.Panel2.Controls.Add(Me.ToolStrip2)
Me.SplitContainer1.Panel2.Controls.Add(Me.btnCancel)
Me.SplitContainer1.Panel2.Controls.Add(Me.btnAddUsers)
Me.SplitContainer1.Size = New System.Drawing.Size(618, 457)
Me.SplitContainer1.SplitterDistance = 206
Me.SplitContainer1.TabIndex = 1
'
'lbGroups
'
Me.lbGroups.Dock = System.Windows.Forms.DockStyle.Fill
Me.lbGroups.BackColor = System.Drawing.SystemColors.GradientInactiveCaption
resources.ApplyResources(Me.lbGroups, "lbGroups")
Me.lbGroups.FormattingEnabled = True
Me.lbGroups.Location = New System.Drawing.Point(0, 25)
Me.lbGroups.Name = "lbGroups"
Me.lbGroups.Size = New System.Drawing.Size(206, 432)
Me.lbGroups.TabIndex = 2
'
'ToolStrip1
'
Me.ToolStrip1.GripStyle = System.Windows.Forms.ToolStripGripStyle.Hidden
Me.ToolStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.ToolStripLabel1})
Me.ToolStrip1.Location = New System.Drawing.Point(0, 0)
resources.ApplyResources(Me.ToolStrip1, "ToolStrip1")
Me.ToolStrip1.Name = "ToolStrip1"
Me.ToolStrip1.Size = New System.Drawing.Size(206, 25)
Me.ToolStrip1.TabIndex = 1
Me.ToolStrip1.Text = "ToolStrip1"
'
'ToolStripLabel1
'
Me.ToolStripLabel1.Font = New System.Drawing.Font("Segoe UI", 9.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
resources.ApplyResources(Me.ToolStripLabel1, "ToolStripLabel1")
Me.ToolStripLabel1.Name = "ToolStripLabel1"
Me.ToolStripLabel1.Size = New System.Drawing.Size(125, 22)
Me.ToolStripLabel1.Text = "Verfügbare Gruppen:"
'
'clbUsers
'lbllimited
'
Me.clbUsers.Dock = System.Windows.Forms.DockStyle.Top
Me.clbUsers.FormattingEnabled = True
Me.clbUsers.Location = New System.Drawing.Point(0, 25)
Me.clbUsers.Name = "clbUsers"
Me.clbUsers.Size = New System.Drawing.Size(408, 394)
Me.clbUsers.TabIndex = 6
resources.ApplyResources(Me.lbllimited, "lbllimited")
Me.lbllimited.BackColor = System.Drawing.Color.Yellow
Me.lbllimited.Name = "lbllimited"
'
'GridControlUsers
'
resources.ApplyResources(Me.GridControlUsers, "GridControlUsers")
Me.GridControlUsers.DataSource = Me.TBAD_UsersBindingSource
Me.GridControlUsers.MainView = Me.GridViewUsers
Me.GridControlUsers.Name = "GridControlUsers"
Me.GridControlUsers.ShowOnlyPredefinedDetails = True
Me.GridControlUsers.ViewCollection.AddRange(New DevExpress.XtraGrid.Views.Base.BaseView() {Me.GridViewUsers})
'
'GridViewUsers
'
Me.GridViewUsers.Appearance.EvenRow.BackColor = CType(resources.GetObject("GridViewUsers.Appearance.EvenRow.BackColor"), System.Drawing.Color)
Me.GridViewUsers.Appearance.EvenRow.Options.UseBackColor = True
Me.GridViewUsers.Appearance.FocusedRow.BackColor = CType(resources.GetObject("GridViewUsers.Appearance.FocusedRow.BackColor"), System.Drawing.Color)
Me.GridViewUsers.Appearance.FocusedRow.Options.UseBackColor = True
Me.GridViewUsers.Columns.AddRange(New DevExpress.XtraGrid.Columns.GridColumn() {Me.colSelect, Me.colUsername, Me.colPrename, Me.colSurname, Me.colEmail})
Me.GridViewUsers.GridControl = Me.GridControlUsers
Me.GridViewUsers.Name = "GridViewUsers"
Me.GridViewUsers.OptionsBehavior.AllowAddRows = DevExpress.Utils.DefaultBoolean.[False]
Me.GridViewUsers.OptionsBehavior.AllowDeleteRows = DevExpress.Utils.DefaultBoolean.[False]
Me.GridViewUsers.OptionsClipboard.CopyColumnHeaders = DevExpress.Utils.DefaultBoolean.[False]
Me.GridViewUsers.OptionsSelection.EnableAppearanceFocusedCell = False
Me.GridViewUsers.OptionsView.ColumnAutoWidth = False
Me.GridViewUsers.OptionsView.EnableAppearanceEvenRow = True
Me.GridViewUsers.OptionsView.ShowAutoFilterRow = True
Me.GridViewUsers.OptionsView.ShowGroupPanel = False
'
'colSelect
'
resources.ApplyResources(Me.colSelect, "colSelect")
Me.colSelect.FieldName = "Select"
Me.colSelect.Name = "colSelect"
'
'colUsername
'
Me.colUsername.FieldName = "Username"
Me.colUsername.Name = "colUsername"
Me.colUsername.OptionsColumn.AllowEdit = False
resources.ApplyResources(Me.colUsername, "colUsername")
'
'colPrename
'
Me.colPrename.FieldName = "Prename"
Me.colPrename.Name = "colPrename"
Me.colPrename.OptionsColumn.AllowEdit = False
resources.ApplyResources(Me.colPrename, "colPrename")
'
'colSurname
'
Me.colSurname.FieldName = "Surname"
Me.colSurname.Name = "colSurname"
Me.colSurname.OptionsColumn.AllowEdit = False
resources.ApplyResources(Me.colSurname, "colSurname")
'
'colEmail
'
Me.colEmail.FieldName = "Email"
Me.colEmail.Name = "colEmail"
Me.colEmail.OptionsColumn.AllowEdit = False
resources.ApplyResources(Me.colEmail, "colEmail")
'
'GroupBox1
'
resources.ApplyResources(Me.GroupBox1, "GroupBox1")
Me.GroupBox1.Controls.Add(Me.RBCheck1)
Me.GroupBox1.Controls.Add(Me.RBCheck2)
Me.GroupBox1.Name = "GroupBox1"
Me.GroupBox1.TabStop = False
'
'RBCheck1
'
resources.ApplyResources(Me.RBCheck1, "RBCheck1")
Me.RBCheck1.Name = "RBCheck1"
Me.RBCheck1.UseVisualStyleBackColor = True
'
'RBCheck2
'
resources.ApplyResources(Me.RBCheck2, "RBCheck2")
Me.RBCheck2.Checked = True
Me.RBCheck2.Name = "RBCheck2"
Me.RBCheck2.TabStop = True
Me.RBCheck2.UseVisualStyleBackColor = True
'
'ToolStrip2
'
Me.ToolStrip2.GripStyle = System.Windows.Forms.ToolStripGripStyle.Hidden
Me.ToolStrip2.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.ToolStripLabel2, Me.tbSelectEverything, Me.tbSelectNone})
Me.ToolStrip2.Location = New System.Drawing.Point(0, 0)
resources.ApplyResources(Me.ToolStrip2, "ToolStrip2")
Me.ToolStrip2.Name = "ToolStrip2"
Me.ToolStrip2.Size = New System.Drawing.Size(408, 25)
Me.ToolStrip2.TabIndex = 5
Me.ToolStrip2.Text = "ToolStrip2"
'
'ToolStripLabel2
'
Me.ToolStripLabel2.Font = New System.Drawing.Font("Segoe UI", 9.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
resources.ApplyResources(Me.ToolStripLabel2, "ToolStripLabel2")
Me.ToolStripLabel2.Name = "ToolStripLabel2"
Me.ToolStripLabel2.Size = New System.Drawing.Size(128, 22)
Me.ToolStripLabel2.Text = "Verfügbare Benutzer:"
'
'tbSelectEverything
'
Me.tbSelectEverything.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Text
Me.tbSelectEverything.ForeColor = System.Drawing.Color.Firebrick
Me.tbSelectEverything.Image = CType(resources.GetObject("tbSelectEverything.Image"), System.Drawing.Image)
Me.tbSelectEverything.ImageTransparentColor = System.Drawing.Color.Magenta
resources.ApplyResources(Me.tbSelectEverything, "tbSelectEverything")
Me.tbSelectEverything.Name = "tbSelectEverything"
Me.tbSelectEverything.Size = New System.Drawing.Size(90, 22)
Me.tbSelectEverything.Text = "Alle auswählen"
'
'tbSelectNone
'
Me.tbSelectNone.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Text
Me.tbSelectNone.Image = CType(resources.GetObject("tbSelectNone.Image"), System.Drawing.Image)
Me.tbSelectNone.ImageTransparentColor = System.Drawing.Color.Magenta
resources.ApplyResources(Me.tbSelectNone, "tbSelectNone")
Me.tbSelectNone.Name = "tbSelectNone"
Me.tbSelectNone.Size = New System.Drawing.Size(104, 22)
Me.tbSelectNone.Text = "Nichts auswählen"
'
'btnCancel
'
Me.btnCancel.Location = New System.Drawing.Point(228, 425)
resources.ApplyResources(Me.btnCancel, "btnCancel")
Me.btnCancel.Name = "btnCancel"
Me.btnCancel.Size = New System.Drawing.Size(75, 23)
Me.btnCancel.TabIndex = 4
Me.btnCancel.Text = "Abbrechen"
Me.btnCancel.UseVisualStyleBackColor = True
'
'btnAddUsers
'
Me.btnAddUsers.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
Me.btnAddUsers.Location = New System.Drawing.Point(309, 425)
resources.ApplyResources(Me.btnAddUsers, "btnAddUsers")
Me.btnAddUsers.Image = Global.DD_PM_WINDREAM.My.Resources.Resources.add
Me.btnAddUsers.Name = "btnAddUsers"
Me.btnAddUsers.Size = New System.Drawing.Size(87, 23)
Me.btnAddUsers.TabIndex = 3
Me.btnAddUsers.Text = "Hinzufügen"
Me.btnAddUsers.TextAlign = System.Drawing.ContentAlignment.MiddleRight
Me.btnAddUsers.UseVisualStyleBackColor = True
'
'frmUserKonfig_AddUsers
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
resources.ApplyResources(Me, "$this")
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.ClientSize = New System.Drawing.Size(618, 457)
Me.Controls.Add(Me.SplitContainer1)
Me.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
Me.MaximizeBox = False
Me.MinimizeBox = False
Me.Name = "frmUserKonfig_AddUsers"
Me.Text = "Add User from AD"
Me.SplitContainer1.Panel1.ResumeLayout(False)
Me.SplitContainer1.Panel1.PerformLayout()
Me.SplitContainer1.Panel2.ResumeLayout(False)
@ -174,6 +241,11 @@ Partial Class frmUserKonfig_AddUsers
Me.SplitContainer1.ResumeLayout(False)
Me.ToolStrip1.ResumeLayout(False)
Me.ToolStrip1.PerformLayout()
CType(Me.GridControlUsers, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.TBAD_UsersBindingSource, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.GridViewUsers, System.ComponentModel.ISupportInitialize).EndInit()
Me.GroupBox1.ResumeLayout(False)
Me.GroupBox1.PerformLayout()
Me.ToolStrip2.ResumeLayout(False)
Me.ToolStrip2.PerformLayout()
Me.ResumeLayout(False)
@ -188,6 +260,19 @@ Partial Class frmUserKonfig_AddUsers
Friend WithEvents ToolStrip2 As System.Windows.Forms.ToolStrip
Friend WithEvents tbSelectEverything As System.Windows.Forms.ToolStripButton
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
Friend WithEvents RBCheck2 As System.Windows.Forms.RadioButton
Friend WithEvents RBCheck1 As System.Windows.Forms.RadioButton
Friend WithEvents GroupBox1 As System.Windows.Forms.GroupBox
Friend WithEvents GridControlUsers As DevExpress.XtraGrid.GridControl
Friend WithEvents GridViewUsers As DevExpress.XtraGrid.Views.Grid.GridView
Friend WithEvents TBAD_UsersBindingSource As System.Windows.Forms.BindingSource
Friend WithEvents colSelect As DevExpress.XtraGrid.Columns.GridColumn
Friend WithEvents colUsername As DevExpress.XtraGrid.Columns.GridColumn
Friend WithEvents colPrename As DevExpress.XtraGrid.Columns.GridColumn
Friend WithEvents colSurname As DevExpress.XtraGrid.Columns.GridColumn
Friend WithEvents colEmail As DevExpress.XtraGrid.Columns.GridColumn
Friend WithEvents lbllimited As System.Windows.Forms.Label
End Class

511
app/DD_PM_WINDREAM/frmUserKonfig_AddUsers.resx
View File

@ -117,13 +117,285 @@
<resheader name="writer">
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<assembly alias="System.Windows.Forms" name="System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" />
<data name="SplitContainer1.Dock" type="System.Windows.Forms.DockStyle, System.Windows.Forms">
<value>Fill</value>
</data>
<assembly alias="System.Drawing" name="System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" />
<data name="SplitContainer1.Location" type="System.Drawing.Point, System.Drawing">
<value>0, 0</value>
</data>
<assembly alias="mscorlib" name="mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" />
<data name="SplitContainer1.Panel1.AutoScroll" type="System.Boolean, mscorlib">
<value>True</value>
</data>
<data name="lbGroups.Dock" type="System.Windows.Forms.DockStyle, System.Windows.Forms">
<value>Fill</value>
</data>
<data name="lbGroups.Location" type="System.Drawing.Point, System.Drawing">
<value>0, 25</value>
</data>
<data name="lbGroups.Size" type="System.Drawing.Size, System.Drawing">
<value>305, 575</value>
</data>
<data name="lbGroups.TabIndex" type="System.Int32, mscorlib">
<value>2</value>
</data>
<data name="&gt;&gt;lbGroups.Name" xml:space="preserve">
<value>lbGroups</value>
</data>
<data name="&gt;&gt;lbGroups.Type" xml:space="preserve">
<value>System.Windows.Forms.ListBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</data>
<data name="&gt;&gt;lbGroups.Parent" xml:space="preserve">
<value>SplitContainer1.Panel1</value>
</data>
<data name="&gt;&gt;lbGroups.ZOrder" xml:space="preserve">
<value>0</value>
</data>
<metadata name="ToolStrip1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>17, 17</value>
</metadata>
<data name="ToolStripLabel1.Font" type="System.Drawing.Font, System.Drawing">
<value>Segoe UI, 9pt, style=Bold</value>
</data>
<data name="ToolStripLabel1.Size" type="System.Drawing.Size, System.Drawing">
<value>125, 22</value>
</data>
<data name="ToolStripLabel1.Text" xml:space="preserve">
<value>Verfügbare Gruppen:</value>
</data>
<data name="ToolStrip1.Location" type="System.Drawing.Point, System.Drawing">
<value>0, 0</value>
</data>
<data name="ToolStrip1.Size" type="System.Drawing.Size, System.Drawing">
<value>305, 25</value>
</data>
<data name="ToolStrip1.TabIndex" type="System.Int32, mscorlib">
<value>1</value>
</data>
<data name="ToolStrip1.Text" xml:space="preserve">
<value>ToolStrip1</value>
</data>
<data name="&gt;&gt;ToolStrip1.Name" xml:space="preserve">
<value>ToolStrip1</value>
</data>
<data name="&gt;&gt;ToolStrip1.Type" xml:space="preserve">
<value>System.Windows.Forms.ToolStrip, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</data>
<data name="&gt;&gt;ToolStrip1.Parent" xml:space="preserve">
<value>SplitContainer1.Panel1</value>
</data>
<data name="&gt;&gt;ToolStrip1.ZOrder" xml:space="preserve">
<value>1</value>
</data>
<data name="&gt;&gt;SplitContainer1.Panel1.Name" xml:space="preserve">
<value>SplitContainer1.Panel1</value>
</data>
<data name="&gt;&gt;SplitContainer1.Panel1.Type" xml:space="preserve">
<value>System.Windows.Forms.SplitterPanel, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</data>
<data name="&gt;&gt;SplitContainer1.Panel1.Parent" xml:space="preserve">
<value>SplitContainer1</value>
</data>
<data name="&gt;&gt;SplitContainer1.Panel1.ZOrder" xml:space="preserve">
<value>0</value>
</data>
<data name="lbllimited.AutoSize" type="System.Boolean, mscorlib">
<value>True</value>
</data>
<data name="lbllimited.Font" type="System.Drawing.Font, System.Drawing">
<value>Tahoma, 8.25pt, style=Bold</value>
</data>
<data name="lbllimited.Location" type="System.Drawing.Point, System.Drawing">
<value>18, 568</value>
</data>
<data name="lbllimited.Size" type="System.Drawing.Size, System.Drawing">
<value>202, 13</value>
</data>
<data name="lbllimited.TabIndex" type="System.Int32, mscorlib">
<value>87</value>
</data>
<data name="lbllimited.Text" xml:space="preserve">
<value>Groups are limited in configuration</value>
</data>
<data name="lbllimited.Visible" type="System.Boolean, mscorlib">
<value>False</value>
</data>
<data name="&gt;&gt;lbllimited.Name" xml:space="preserve">
<value>lbllimited</value>
</data>
<data name="&gt;&gt;lbllimited.Type" xml:space="preserve">
<value>System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</data>
<data name="&gt;&gt;lbllimited.Parent" xml:space="preserve">
<value>SplitContainer1.Panel2</value>
</data>
<data name="&gt;&gt;lbllimited.ZOrder" xml:space="preserve">
<value>0</value>
</data>
<data name="GridControlUsers.Anchor" type="System.Windows.Forms.AnchorStyles, System.Windows.Forms">
<value>Top, Bottom, Left, Right</value>
</data>
<metadata name="TBAD_UsersBindingSource.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>519, 17</value>
</metadata>
<data name="GridControlUsers.Location" type="System.Drawing.Point, System.Drawing">
<value>0, 25</value>
</data>
<data name="GridViewUsers.Appearance.EvenRow.BackColor" type="System.Drawing.Color, System.Drawing">
<value>Cyan</value>
</data>
<data name="GridViewUsers.Appearance.FocusedRow.BackColor" type="System.Drawing.Color, System.Drawing">
<value>Fuchsia</value>
</data>
<data name="colSelect.Caption" xml:space="preserve">
<value>Auswahl</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="colUsername.Visible" type="System.Boolean, mscorlib">
<value>True</value>
</data>
<data name="colUsername.VisibleIndex" type="System.Int32, mscorlib">
<value>1</value>
</data>
<data name="colPrename.Visible" type="System.Boolean, mscorlib">
<value>True</value>
</data>
<data name="colPrename.VisibleIndex" type="System.Int32, mscorlib">
<value>2</value>
</data>
<data name="colSurname.Visible" type="System.Boolean, mscorlib">
<value>True</value>
</data>
<data name="colSurname.VisibleIndex" type="System.Int32, mscorlib">
<value>3</value>
</data>
<data name="colEmail.Visible" type="System.Boolean, mscorlib">
<value>True</value>
</data>
<data name="colEmail.VisibleIndex" type="System.Int32, mscorlib">
<value>4</value>
</data>
<data name="GridControlUsers.Size" type="System.Drawing.Size, System.Drawing">
<value>547, 464</value>
</data>
<data name="GridControlUsers.TabIndex" type="System.Int32, mscorlib">
<value>86</value>
</data>
<data name="&gt;&gt;GridControlUsers.Name" xml:space="preserve">
<value>GridControlUsers</value>
</data>
<data name="&gt;&gt;GridControlUsers.Type" xml:space="preserve">
<value>DevExpress.XtraGrid.GridControl, DevExpress.XtraGrid.v15.2, Version=15.2.16.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
</data>
<data name="&gt;&gt;GridControlUsers.Parent" xml:space="preserve">
<value>SplitContainer1.Panel2</value>
</data>
<data name="&gt;&gt;GridControlUsers.ZOrder" xml:space="preserve">
<value>1</value>
</data>
<data name="GroupBox1.Anchor" type="System.Windows.Forms.AnchorStyles, System.Windows.Forms">
<value>Bottom, Left</value>
</data>
<data name="RBCheck1.AutoSize" type="System.Boolean, mscorlib">
<value>True</value>
</data>
<data name="RBCheck1.Location" type="System.Drawing.Point, System.Drawing">
<value>18, 21</value>
</data>
<data name="RBCheck1.Size" type="System.Drawing.Size, System.Drawing">
<value>168, 17</value>
</data>
<data name="RBCheck1.TabIndex" type="System.Int32, mscorlib">
<value>7</value>
</data>
<data name="RBCheck1.Text" xml:space="preserve">
<value>Basic Method (takes longer)</value>
</data>
<data name="&gt;&gt;RBCheck1.Name" xml:space="preserve">
<value>RBCheck1</value>
</data>
<data name="&gt;&gt;RBCheck1.Type" xml:space="preserve">
<value>System.Windows.Forms.RadioButton, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</data>
<data name="&gt;&gt;RBCheck1.Parent" xml:space="preserve">
<value>GroupBox1</value>
</data>
<data name="&gt;&gt;RBCheck1.ZOrder" xml:space="preserve">
<value>0</value>
</data>
<data name="RBCheck2.AutoSize" type="System.Boolean, mscorlib">
<value>True</value>
</data>
<data name="RBCheck2.ImeMode" type="System.Windows.Forms.ImeMode, System.Windows.Forms">
<value>NoControl</value>
</data>
<data name="RBCheck2.Location" type="System.Drawing.Point, System.Drawing">
<value>18, 44</value>
</data>
<data name="RBCheck2.Size" type="System.Drawing.Size, System.Drawing">
<value>137, 17</value>
</data>
<data name="RBCheck2.TabIndex" type="System.Int32, mscorlib">
<value>8</value>
</data>
<data name="RBCheck2.Text" xml:space="preserve">
<value>UserPrincipal-Method</value>
</data>
<data name="&gt;&gt;RBCheck2.Name" xml:space="preserve">
<value>RBCheck2</value>
</data>
<data name="&gt;&gt;RBCheck2.Type" xml:space="preserve">
<value>System.Windows.Forms.RadioButton, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</data>
<data name="&gt;&gt;RBCheck2.Parent" xml:space="preserve">
<value>GroupBox1</value>
</data>
<data name="&gt;&gt;RBCheck2.ZOrder" xml:space="preserve">
<value>1</value>
</data>
<data name="GroupBox1.Location" type="System.Drawing.Point, System.Drawing">
<value>3, 495</value>
</data>
<data name="GroupBox1.Size" type="System.Drawing.Size, System.Drawing">
<value>185, 70</value>
</data>
<data name="GroupBox1.TabIndex" type="System.Int32, mscorlib">
<value>9</value>
</data>
<data name="GroupBox1.Text" xml:space="preserve">
<value> ActiveDirectory-Methode</value>
</data>
<data name="&gt;&gt;GroupBox1.Name" xml:space="preserve">
<value>GroupBox1</value>
</data>
<data name="&gt;&gt;GroupBox1.Type" xml:space="preserve">
<value>System.Windows.Forms.GroupBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</data>
<data name="&gt;&gt;GroupBox1.Parent" xml:space="preserve">
<value>SplitContainer1.Panel2</value>
</data>
<data name="&gt;&gt;GroupBox1.ZOrder" xml:space="preserve">
<value>2</value>
</data>
<metadata name="ToolStrip2.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>124, 17</value>
</metadata>
<assembly alias="System.Drawing" name="System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" />
<data name="ToolStripLabel2.Font" type="System.Drawing.Font, System.Drawing">
<value>Segoe UI, 9pt, style=Bold</value>
</data>
<data name="ToolStripLabel2.Size" type="System.Drawing.Size, System.Drawing">
<value>128, 22</value>
</data>
<data name="ToolStripLabel2.Text" xml:space="preserve">
<value>Verfügbare Benutzer:</value>
</data>
<data name="tbSelectEverything.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
@ -139,6 +411,15 @@
TgDQASA1MVpwzwAAAABJRU5ErkJggg==
</value>
</data>
<data name="tbSelectEverything.ImageTransparentColor" type="System.Drawing.Color, System.Drawing">
<value>Magenta</value>
</data>
<data name="tbSelectEverything.Size" type="System.Drawing.Size, System.Drawing">
<value>90, 22</value>
</data>
<data name="tbSelectEverything.Text" xml:space="preserve">
<value>Alle auswählen</value>
</data>
<data name="tbSelectNone.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
@ -154,6 +435,153 @@
TgDQASA1MVpwzwAAAABJRU5ErkJggg==
</value>
</data>
<data name="tbSelectNone.ImageTransparentColor" type="System.Drawing.Color, System.Drawing">
<value>Magenta</value>
</data>
<data name="tbSelectNone.Size" type="System.Drawing.Size, System.Drawing">
<value>104, 22</value>
</data>
<data name="tbSelectNone.Text" xml:space="preserve">
<value>Nichts auswählen</value>
</data>
<data name="ToolStrip2.Location" type="System.Drawing.Point, System.Drawing">
<value>0, 0</value>
</data>
<data name="ToolStrip2.Size" type="System.Drawing.Size, System.Drawing">
<value>547, 25</value>
</data>
<data name="ToolStrip2.TabIndex" type="System.Int32, mscorlib">
<value>5</value>
</data>
<data name="ToolStrip2.Text" xml:space="preserve">
<value>ToolStrip2</value>
</data>
<data name="&gt;&gt;ToolStrip2.Name" xml:space="preserve">
<value>ToolStrip2</value>
</data>
<data name="&gt;&gt;ToolStrip2.Type" xml:space="preserve">
<value>System.Windows.Forms.ToolStrip, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</data>
<data name="&gt;&gt;ToolStrip2.Parent" xml:space="preserve">
<value>SplitContainer1.Panel2</value>
</data>
<data name="&gt;&gt;ToolStrip2.ZOrder" xml:space="preserve">
<value>3</value>
</data>
<data name="btnCancel.Anchor" type="System.Windows.Forms.AnchorStyles, System.Windows.Forms">
<value>Bottom, Left</value>
</data>
<data name="btnCancel.ImageAlign" type="System.Drawing.ContentAlignment, System.Drawing">
<value>MiddleLeft</value>
</data>
<data name="btnCancel.Location" type="System.Drawing.Point, System.Drawing">
<value>398, 528</value>
</data>
<data name="btnCancel.Size" type="System.Drawing.Size, System.Drawing">
<value>135, 26</value>
</data>
<data name="btnCancel.TabIndex" type="System.Int32, mscorlib">
<value>4</value>
</data>
<data name="btnCancel.Text" xml:space="preserve">
<value>Abbrechen</value>
</data>
<data name="btnCancel.TextAlign" type="System.Drawing.ContentAlignment, System.Drawing">
<value>MiddleRight</value>
</data>
<data name="&gt;&gt;btnCancel.Name" xml:space="preserve">
<value>btnCancel</value>
</data>
<data name="&gt;&gt;btnCancel.Type" xml:space="preserve">
<value>System.Windows.Forms.Button, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</data>
<data name="&gt;&gt;btnCancel.Parent" xml:space="preserve">
<value>SplitContainer1.Panel2</value>
</data>
<data name="&gt;&gt;btnCancel.ZOrder" xml:space="preserve">
<value>4</value>
</data>
<data name="btnAddUsers.Anchor" type="System.Windows.Forms.AnchorStyles, System.Windows.Forms">
<value>Bottom, Left</value>
</data>
<data name="btnAddUsers.ImageAlign" type="System.Drawing.ContentAlignment, System.Drawing">
<value>MiddleLeft</value>
</data>
<data name="btnAddUsers.Location" type="System.Drawing.Point, System.Drawing">
<value>398, 495</value>
</data>
<data name="btnAddUsers.Size" type="System.Drawing.Size, System.Drawing">
<value>135, 27</value>
</data>
<data name="btnAddUsers.TabIndex" type="System.Int32, mscorlib">
<value>3</value>
</data>
<data name="btnAddUsers.Text" xml:space="preserve">
<value>User hinzufügen</value>
</data>
<data name="btnAddUsers.TextAlign" type="System.Drawing.ContentAlignment, System.Drawing">
<value>MiddleRight</value>
</data>
<data name="&gt;&gt;btnAddUsers.Name" xml:space="preserve">
<value>btnAddUsers</value>
</data>
<data name="&gt;&gt;btnAddUsers.Type" xml:space="preserve">
<value>System.Windows.Forms.Button, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</data>
<data name="&gt;&gt;btnAddUsers.Parent" xml:space="preserve">
<value>SplitContainer1.Panel2</value>
</data>
<data name="&gt;&gt;btnAddUsers.ZOrder" xml:space="preserve">
<value>5</value>
</data>
<data name="&gt;&gt;SplitContainer1.Panel2.Name" xml:space="preserve">
<value>SplitContainer1.Panel2</value>
</data>
<data name="&gt;&gt;SplitContainer1.Panel2.Type" xml:space="preserve">
<value>System.Windows.Forms.SplitterPanel, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</data>
<data name="&gt;&gt;SplitContainer1.Panel2.Parent" xml:space="preserve">
<value>SplitContainer1</value>
</data>
<data name="&gt;&gt;SplitContainer1.Panel2.ZOrder" xml:space="preserve">
<value>1</value>
</data>
<data name="SplitContainer1.Size" type="System.Drawing.Size, System.Drawing">
<value>856, 600</value>
</data>
<data name="SplitContainer1.SplitterDistance" type="System.Int32, mscorlib">
<value>305</value>
</data>
<data name="SplitContainer1.TabIndex" type="System.Int32, mscorlib">
<value>1</value>
</data>
<data name="&gt;&gt;SplitContainer1.Name" xml:space="preserve">
<value>SplitContainer1</value>
</data>
<data name="&gt;&gt;SplitContainer1.Type" xml:space="preserve">
<value>System.Windows.Forms.SplitContainer, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</data>
<data name="&gt;&gt;SplitContainer1.Parent" xml:space="preserve">
<value>$this</value>
</data>
<data name="&gt;&gt;SplitContainer1.ZOrder" xml:space="preserve">
<value>0</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>
<metadata name="$this.Localizable" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>True</value>
</metadata>
<data name="$this.AutoScaleDimensions" type="System.Drawing.SizeF, System.Drawing">
<value>6, 13</value>
</data>
<data name="$this.ClientSize" type="System.Drawing.Size, System.Drawing">
<value>856, 600</value>
</data>
<data name="$this.Font" type="System.Drawing.Font, System.Drawing">
<value>Segoe UI, 8.25pt</value>
</data>
<data name="$this.Icon" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
AAABAAYAMDAAAAEACACoDgAAZgAAACAgAAABAAgAqAgAAA4PAAAQEAAAAQAIAGgFAAC2FwAAMDAAAAEA
@ -533,4 +961,85 @@
L/8AADf/AABG/wAATf8AAEn/AABa/wAA6P8AAP//AAD4/wAAzv8AAav/AAOs/w==
</value>
</data>
<data name="$this.Text" xml:space="preserve">
<value>Add User from ActiveDirectory</value>
</data>
<data name="&gt;&gt;ToolStripLabel1.Name" xml:space="preserve">
<value>ToolStripLabel1</value>
</data>
<data name="&gt;&gt;ToolStripLabel1.Type" xml:space="preserve">
<value>System.Windows.Forms.ToolStripLabel, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</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;GridViewUsers.Name" xml:space="preserve">
<value>GridViewUsers</value>
</data>
<data name="&gt;&gt;GridViewUsers.Type" xml:space="preserve">
<value>DevExpress.XtraGrid.Views.Grid.GridView, DevExpress.XtraGrid.v15.2, Version=15.2.16.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.2, Version=15.2.16.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
</data>
<data name="&gt;&gt;colUsername.Name" xml:space="preserve">
<value>colUsername</value>
</data>
<data name="&gt;&gt;colUsername.Type" xml:space="preserve">
<value>DevExpress.XtraGrid.Columns.GridColumn, DevExpress.XtraGrid.v15.2, Version=15.2.16.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
</data>
<data name="&gt;&gt;colPrename.Name" xml:space="preserve">
<value>colPrename</value>
</data>
<data name="&gt;&gt;colPrename.Type" xml:space="preserve">
<value>DevExpress.XtraGrid.Columns.GridColumn, DevExpress.XtraGrid.v15.2, Version=15.2.16.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
</data>
<data name="&gt;&gt;colSurname.Name" xml:space="preserve">
<value>colSurname</value>
</data>
<data name="&gt;&gt;colSurname.Type" xml:space="preserve">
<value>DevExpress.XtraGrid.Columns.GridColumn, DevExpress.XtraGrid.v15.2, Version=15.2.16.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
</data>
<data name="&gt;&gt;colEmail.Name" xml:space="preserve">
<value>colEmail</value>
</data>
<data name="&gt;&gt;colEmail.Type" xml:space="preserve">
<value>DevExpress.XtraGrid.Columns.GridColumn, DevExpress.XtraGrid.v15.2, Version=15.2.16.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
</data>
<data name="&gt;&gt;ToolStripLabel2.Name" xml:space="preserve">
<value>ToolStripLabel2</value>
</data>
<data name="&gt;&gt;ToolStripLabel2.Type" xml:space="preserve">
<value>System.Windows.Forms.ToolStripLabel, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</data>
<data name="&gt;&gt;tbSelectEverything.Name" xml:space="preserve">
<value>tbSelectEverything</value>
</data>
<data name="&gt;&gt;tbSelectEverything.Type" xml:space="preserve">
<value>System.Windows.Forms.ToolStripButton, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</data>
<data name="&gt;&gt;tbSelectNone.Name" xml:space="preserve">
<value>tbSelectNone</value>
</data>
<data name="&gt;&gt;tbSelectNone.Type" xml:space="preserve">
<value>System.Windows.Forms.ToolStripButton, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</data>
<data name="&gt;&gt;ToolTipController1.Name" xml:space="preserve">
<value>ToolTipController1</value>
</data>
<data name="&gt;&gt;ToolTipController1.Type" xml:space="preserve">
<value>DevExpress.Utils.ToolTipController, DevExpress.Utils.v15.2, Version=15.2.16.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
</data>
<data name="&gt;&gt;$this.Name" xml:space="preserve">
<value>frmUserKonfig_AddUsers</value>
</data>
<data name="&gt;&gt;$this.Type" xml:space="preserve">
<value>System.Windows.Forms.Form, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</data>
</root>

322
app/DD_PM_WINDREAM/frmUserKonfig_AddUsers.vb
View File

@ -1,38 +1,88 @@
Imports System.DirectoryServices
Imports System.DirectoryServices.ActiveDirectory
Imports System.DirectoryServices.AccountManagement
Imports System.IO
Public Class frmUserKonfig_AddUsers
Private DT_ADD_USERS As DataTable
' Private DT_GROUPS_EXCLUSIVE As DataTable
Private Sub frmUserKonfig_AddUsers_FormClosing(sender As Object, e As FormClosingEventArgs) Handles Me.FormClosing
Try
Dim Filename As String = String.Format("{0}-UserLayout.xml", GridViewUsers.Name)
Dim XMLPath = System.IO.Path.Combine(Application.UserAppDataPath(), Filename)
GridViewUsers.SaveLayoutToXml(XMLPath)
Catch ex As Exception
MsgBox("Error in SaveGrid_Layout:" & vbNewLine & ex.Message)
End Try
End Sub
Private Sub formUserConfig_AddUsers_Load(sender As Object, e As EventArgs) Handles MyBase.Load
Try
Dim groups As List(Of String) = GetActiveDirectoryGroups()
Cursor = Cursors.WaitCursor
Dim dt As New DataTable
Dim colBoolean As DataColumn = New DataColumn("Select")
colBoolean.DataType = System.Type.GetType("System.Boolean")
colBoolean.DefaultValue = False
dt.Columns.Add(colBoolean)
For Each group In groups
lbGroups.Items.Add(group)
Next
dt.Columns.Add("Username")
dt.Columns.Add("Prename")
dt.Columns.Add("Surname")
dt.Columns.Add("Email")
Dim colInt32 As DataColumn = New DataColumn("ID")
colInt32.DataType = System.Type.GetType("System.Int32")
dt.Columns.Add(colInt32)
colInt32.AutoIncrement = True
DT_ADD_USERS = dt
'Dim sql = "SELECT * FROM TBPMO_AD_GROUP_EXCLUSIVE"
'DT_GROUPS_EXCLUSIVE = ClassDatabase.Return_Datatable(sql)
GetGroups(USER_USERNAME)
Catch ex As Exception
MsgBox("Error in Load Groups:" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
End Try
Try
Dim Filename As String = String.Format("{0}-UserLayout.xml", GridViewUsers.Name)
Dim XMLPath = System.IO.Path.Combine(Application.UserAppDataPath(), Filename)
If File.Exists(XMLPath) Then
GridViewUsers.RestoreLayoutFromXml(XMLPath)
'grvwGrid.ClearGrouping()
GridViewUsers.ClearSelection()
End If
Catch ex As Exception
MsgBox("Error in Load Grid_Layout:" & vbNewLine & ex.Message)
End Try
Cursor = Cursors.Default
End Sub
Function GetActiveDirectoryGroups() As List(Of String)
Dim groups As List(Of String) = New List(Of String)
Dim ctx As PrincipalContext = New PrincipalContext(ContextType.Domain)
Dim group As GroupPrincipal = New GroupPrincipal(ctx)
Dim srch As PrincipalSearcher = New PrincipalSearcher(group)
For Each g In srch.FindAll()
If GetUsersForGroup(g.ToString()).Count <> 0 Then
groups.Add(g.ToString)
End If
Next
Return groups
Try
Dim groups As List(Of String) = New List(Of String)
Dim ctx As PrincipalContext = New PrincipalContext(ContextType.Domain)
Dim group As GroupPrincipal = New GroupPrincipal(ctx)
Dim srch As PrincipalSearcher = New PrincipalSearcher(group)
For Each g In srch.FindAll()
If GetUsersForGroup(g.ToString()).Count <> 0 Then
If Not g.ToString.StartsWith("WinRMR") And Not g.ToString.StartsWith("Priv") And Not g.ToString.StartsWith("Gäst") And Not g.ToString.StartsWith("Druck") And Not g.ToString.StartsWith("Sicherungs") And Not g.ToString.StartsWith("Replikations") And Not g.ToString.StartsWith("Netzwerkskon") _
And Not g.ToString.StartsWith("Reporting") And Not g.ToString.StartsWith("Leistungs") And Not g.ToString.StartsWith("Distributed COM") And Not g.ToString.StartsWith("IIS_") And Not g.ToString.StartsWith("Kryptografie") And Not g.ToString.StartsWith("Ereignis") And Not g.ToString.StartsWith("Zertifikat") _
And Not g.ToString.StartsWith("RDS-") And Not g.ToString.StartsWith("Hyper-V") And Not g.ToString.StartsWith("Zugriffssteuerungs") And Not g.ToString.StartsWith("Remoteverwaltungs") And Not g.ToString.StartsWith("Domänencomput") And Not g.ToString.StartsWith("Domänen-Gäste") _
And Not g.ToString.StartsWith("Richtlinien-Ersteller") And Not g.ToString.StartsWith("RAS- und IAS-Server") And Not g.ToString.StartsWith("Server-Operatore") And Not g.ToString.StartsWith("Konten-Oper") And Not g.ToString.StartsWith("Prä-Windows") _
And Not g.ToString.StartsWith("SQLAcce") And Not g.ToString.StartsWith("Einstellungen eingehender") And Not g.ToString.StartsWith("Windows-Auth") And Not g.ToString.StartsWith("Terminalserver-Liz") And Not g.ToString.StartsWith("Zulässige") And Not g.ToString.StartsWith("Abgelehnte") And Not g.ToString.StartsWith("Schreibgeschützte Domänen") _
And Not g.ToString.StartsWith("Klonbare") And Not g.ToString.StartsWith("Protected User") And Not g.ToString.StartsWith("Dns") And Not g.ToString.StartsWith("DHCP") And Not g.ToString.StartsWith("IIS_IUSR") And Not g.ToString.StartsWith("Richtlinien-Ersteller") _
And Not g.ToString.StartsWith("Abgelehnte RODC-Kenn") Then
groups.Add(g.ToString)
End If
End If
Next
Return groups
Catch ex As Exception
MsgBox("Error in GetActiveDirectoryGroups:" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
Return Nothing
End Try
End Function
Function GetUsersForGroup(g As String) As List(Of UserPrincipal)
Dim users As List(Of UserPrincipal) = New List(Of UserPrincipal)
Dim ctx As PrincipalContext = New PrincipalContext(ContextType.Domain)
@ -52,56 +102,101 @@ Public Class frmUserKonfig_AddUsers
Private Sub lbGroups_SelectedIndexChanged(sender As Object, e As EventArgs) Handles lbGroups.SelectedIndexChanged
Dim group As String = lbGroups.SelectedItem
Dim users As List(Of UserPrincipal) = GetUsersForGroup(group)
DT_ADD_USERS.Clear()
clbUsers.Items.Clear()
For Each user In users
clbUsers.Items.Add(user)
Dim newUserRow As DataRow = DT_ADD_USERS.NewRow
Try
Dim userldap As UserPrincipal = user
Dim PRENAME As String = userldap.GivenName
Dim NAME As String = userldap.Surname
Dim USERNAME As String = userldap.SamAccountName
Try
newUserRow("Username") = userldap.SamAccountName
Catch ex As Exception
newUserRow("Username") = user.ToString
End Try
Dim email As String = userldap.EmailAddress
newUserRow("Prename") = PRENAME
newUserRow("Surname") = NAME
newUserRow("Email") = email
Catch ex As Exception
ClassLogger.Add("Unexpected Error in Read User LDAP-Configurations: " & vbNewLine)
End Try
DT_ADD_USERS.Rows.Add(newUserRow)
TBAD_UsersBindingSource.DataSource = DT_ADD_USERS
Next
End Sub
Private Sub btnAddUsers_Click(sender As Object, e As EventArgs) Handles btnAddUsers.Click
Dim items As CheckedListBox.CheckedItemCollection = clbUsers.CheckedItems
'Dim items As CheckedListBox.CheckedItemCollection = clbUsers.CheckedItems
Dim usersAdded As Integer = 0
If items.Count = 0 Then
MsgBox("Keine Benutzer ausgewählt")
Exit Sub
End If
'If items.Count = 0 Then
' MsgBox("Keine Benutzer ausgewählt!", MsgBoxStyle.Information)
' Exit Sub
'End If
For Each item As UserPrincipal In items
Dim user As UserPrincipal = item
Dim PRENAME As String = user.GivenName
Dim NAME As String = user.Surname
Dim USERNAME As String = user.SamAccountName.ToLower()
Dim email As String = user.EmailAddress
Dim SQL
If Not UserExists(USERNAME) Then
SQL = "INSERT INTO TBPM_USER(PRENAME, NAME, USERNAME, EMAIL) VALUES('" & PRENAME & "', '" & NAME & "', '" & USERNAME & "','" & email & "')"
If ClassDatabase.Execute_non_Query(SQL) = True Then
usersAdded = usersAdded + 1
For Each row As DataRow In DT_ADD_USERS.Rows
If row.Item(0) = CBool(True) Then
Dim USERNAME As String = row.Item(1)
Dim PRENAME As String
Try
PRENAME = row.Item(2)
Catch ex As Exception
PRENAME = ""
End Try
Dim NAME As String = row.Item(3)
Try
NAME = row.Item(3)
Catch ex As Exception
NAME = ""
End Try
Dim email As String
Try
email = row.Item(4)
Catch ex As Exception
email = ""
End Try
Dim SQL
If Not UserExists(USERNAME) Then
SQL = "INSERT INTO TBPM_USER(PRENAME, NAME, USERNAME, EMAIL, ADDED_WHO) VALUES('" & PRENAME & "', '" & NAME & "', '" & USERNAME & "','" & email & "','" & USER_USERNAME & "')"
If ClassDatabase.Execute_non_Query(SQL, False) = True Then
Dim ID = ClassDatabase.Execute_Scalar("SELECT MAX(GUID) FROM TBPM_USER", MyConnectionString)
Dim msg = String.Format(">> USER {0}, {1} - {2} ADDED TO CONFIGURATION", NAME, PRENAME, USERNAME)
ClassLogger.Add(msg, False)
usersAdded = usersAdded + 1
End If
Else
SQL = String.Format("UPDATE TBPM_USER SET PRENAME = '{0}', NAME = '{1}', EMAIL = '{2}' WHERE UPPER(USERNAME) = UPPER('{3}')", PRENAME, NAME, email, USERNAME)
If ClassDatabase.Execute_non_Query(SQL, False) = True Then
usersAdded = usersAdded + 1
End If
End If
'Else
' SQL = "UPDATE TBPM_USER SET MODULE_PM = 1 WHERE UPPER(USERNAME) = UPPER('" & USERNAME & "')"
' If classDatabase.Execute_non_Query(SQL) = True Then
' usersAdded = usersAdded + 1
' End If
End If
Next
If usersAdded = 1 Then
MsgBox(usersAdded & " neuer Benutzer hinzugefügt", MsgBoxStyle.Information)
ElseIf usersAdded > 1 Then
MsgBox(usersAdded & " neue Benutzer hinzugefügt", MsgBoxStyle.Information)
ElseIf usersAdded = 0 Then
MsgBox("Es wurde kein neuer Benutzer hinzugefügt", MsgBoxStyle.Exclamation)
End If
Next
'For Each item As UserPrincipal In items
' Dim user As UserPrincipal = item
' Dim PRENAME As String = user.GivenName
' Dim NAME As String = user.Surname
' Dim USERNAME As String = user.SamAccountName
' Dim email As String = user.EmailAddress
' Dim SQL
'Next
MsgBox(usersAdded & " Benutzer hinzugefügt/upgedatet!", MsgBoxStyle.Information)
End Sub
Private Function UserExists(username As String) As Boolean
Try
Dim SQL = "SELECT GUID FROM TBPM_USER WHERE UPPER(USERNAME) = UPPER('" & username & "')"
If ClassDatabase.Execute_Scalar(SQL, MyConnectionString) = Nothing Then
If ClassDatabase.Execute_Scalar(SQL, MyConnectionString, True) = Nothing Then
Return False
Else
Return True
@ -117,14 +212,133 @@ Public Class frmUserKonfig_AddUsers
End Sub
Private Sub tbSelectEverything_Click(sender As Object, e As EventArgs) Handles tbSelectEverything.Click
For i = 0 To clbUsers.Items.Count - 1
clbUsers.SetItemChecked(i, True)
For Each row As DataRow In DT_ADD_USERS.Rows
row.Item(0) = CBool(True)
Next
End Sub
Private Sub tbSelectNone_Click(sender As Object, e As EventArgs) Handles tbSelectNone.Click
For i = 0 To clbUsers.Items.Count - 1
clbUsers.SetItemChecked(i, False)
For Each row As DataRow In DT_ADD_USERS.Rows
row.Item(0) = CBool(False)
Next
End Sub
'Private Sub clbUsers_SelectedIndexChanged(sender As Object, e As EventArgs)
' 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
Private Sub RBCheck2_CheckedChanged(sender As Object, e As EventArgs) Handles RBCheck2.CheckedChanged
If RBCheck2.Checked Then
GetGroups(USER_USERNAME)
End If
End Sub
Public Sub GetGroups(ByVal samAccountName As String)
Try
'If IsNothing(DT_GROUPS_EXCLUSIVE) Then
' Exit Sub
'End If
Cursor = Cursors.WaitCursor
lbGroups.Items.Clear()
Dim domainConnection = New DirectoryEntry()
domainConnection.AuthenticationType = System.DirectoryServices.AuthenticationTypes.Secure
Dim samSearcher = New DirectorySearcher()
samSearcher.SearchRoot = domainConnection
samSearcher.Filter = "(samAccountName=" & samAccountName & ")"
samSearcher.PropertiesToLoad.Add("displayName")
Dim samResult = samSearcher.FindOne()
If samResult IsNot Nothing Then
Dim theUser = samResult.GetDirectoryEntry()
theUser.RefreshCache(New String() {"tokenGroups"})
For Each resultBytes As Byte() In theUser.Properties("tokenGroups")
Dim SID = New System.Security.Principal.SecurityIdentifier(resultBytes, 0)
Dim sidSearcher = New DirectorySearcher()
sidSearcher.SearchRoot = domainConnection
sidSearcher.Filter = "(objectSid=" & SID.Value & ")"
sidSearcher.PropertiesToLoad.Add("name")
Dim sidResult = sidSearcher.FindOne()
If sidResult IsNot Nothing Then
Dim groupname = CStr(sidResult.Properties("name")(0))
'If Not IsNothing(DT_GROUPS_EXCLUSIVE) Then
' If DT_GROUPS_EXCLUSIVE.Rows.Count > 0 Then
' For Each GROUP_EXCL As DataRow In DT_GROUPS_EXCLUSIVE.Rows
' If GROUP_EXCL.Item("GROUP_NAME").ToString.ToUpper = groupname.ToUpper Then
' lbGroups.Items.Add(groupname)
' End If
' Next
' Else
If Not groupname.StartsWith("WinRMR") And Not groupname.StartsWith("Gäst") And Not groupname.StartsWith("Druck") And Not groupname.StartsWith("Sicherungs") And Not groupname.StartsWith("Replikations") And Not groupname.StartsWith("Netzwerkskon") _
And Not groupname.StartsWith("Leistungs") And Not groupname.StartsWith("Distributed COM") And Not groupname.StartsWith("IIS_") And Not groupname.StartsWith("Kryptografie") And Not groupname.StartsWith("Ereignis") And Not groupname.StartsWith("Zertifikat") _
And Not groupname.StartsWith("RDS-") And Not groupname.StartsWith("Hyper-V") And Not groupname.StartsWith("Zugriffssteuerungs") And Not groupname.StartsWith("Remoteverwaltungs") And Not groupname.StartsWith("Domänencomput") And Not groupname.StartsWith("Domänen-Gäste") _
And Not groupname.StartsWith("Richtlinien-Ersteller") And Not groupname.StartsWith("SQLAccess") And Not groupname.StartsWith("RAS- und IAS-Server") And Not groupname.StartsWith("Server-Operatore") And Not groupname.StartsWith("Konten-Oper") And Not groupname.StartsWith("Prä-Windows") _
And Not groupname.StartsWith("Einstellungen eingehender") And Not groupname.StartsWith("Windows-Auth") And Not groupname.StartsWith("Terminalserver-Liz") And Not groupname.StartsWith("Zulässige") And Not groupname.StartsWith("Abgelehnte") And Not groupname.StartsWith("Schreibgeschützte Domänen") _
And Not groupname.StartsWith("Klonbare") And Not groupname.StartsWith("PrivUser") And Not groupname.StartsWith("Protected User") And Not groupname.StartsWith("Dns") And Not groupname.StartsWith("DHCP") And Not groupname.StartsWith("IIS_IUSR") And Not groupname.StartsWith("Richtlinien-Ersteller") _
And Not groupname.StartsWith("Abgelehnte RODC-Kenn") And Not groupname.StartsWith("Reporting") Then
' Console.WriteLine(CStr(sidResult.Properties("name")(0)))
lbGroups.Items.Add(groupname)
End If
' End If
'End If
End If
Next resultBytes
lblgroup_refresh()
End If
Catch ex As Exception
MsgBox("Error in GetGroups:" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
End Try
Cursor = Cursors.Default
End Sub
Private Sub RBCheck1_CheckedChanged(sender As Object, e As EventArgs) Handles RBCheck1.CheckedChanged
If RBCheck1.Checked Then
Try
Cursor = Cursors.WaitCursor
Dim groups = GetActiveDirectoryGroups()
lbGroups.Items.Clear()
If Not IsNothing(groups) Then
For Each group In groups
'If Not IsNothing(DT_GROUPS_EXCLUSIVE) Then
' If DT_GROUPS_EXCLUSIVE.Rows.Count > 0 Then
' For Each GROUP_EXCL As DataRow In DT_GROUPS_EXCLUSIVE.Rows
' If GROUP_EXCL.Item("GROUP_NAME").ToString.ToUpper = group.ToUpper Then
' lbGroups.Items.Add(group)
' End If
' Next
' Else
lbGroups.Items.Add(group)
' End If
'End If
Next
lblgroup_refresh()
End If
Catch ex As Exception
MsgBox("Error in Load Groups:" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
End Try
Cursor = Cursors.Default
End If
End Sub
Sub lblgroup_refresh()
'If Not IsNothing(DT_GROUPS_EXCLUSIVE) Then
' If DT_GROUPS_EXCLUSIVE.Rows.Count > 0 Then
' lbllimited.Text = String.Format("AD-Groups are limited through configuration to '{0}' group(s)!", DT_GROUPS_EXCLUSIVE.Rows.Count)
' lbllimited.Visible = True
' Else
' lbllimited.Visible = False
' End If
'Else
lbllimited.Visible = False
'End If
End Sub
End Class

52
app/DD_PM_WINDREAM/frmValidator.vb
View File

@ -1884,8 +1884,8 @@ Public Class frmValidator
'Eingaben auf Form überprüfen
If Check_UpdateIndexe() = False Then
'lblerror.Visible = False
Try
Dim _error As Boolean = False
'Try
Dim _error As Boolean = False
Me.TBPM_PROFILE_FINAL_INDEXINGTableAdapter.Fill(Me.DD_DMSLiteDataSet.TBPM_PROFILE_FINAL_INDEXING, CURRENT_ProfilName)
Dim dtfinal As DataTable = DD_DMSLiteDataSet.TBPM_PROFILE_FINAL_INDEXING
If dtfinal.Rows.Count > 0 Then
@ -2065,7 +2065,34 @@ Public Class frmValidator
ClassDatabase.Execute_non_Query(ins)
Close_document_viewer()
If Document_Path.ToLower.EndsWith(".pdf") Then
If Not IsNothing(WORK_HISTORY_ENTRY) Then
If CBool(DTPROFIL.Rows(0).Item("ANNOTATE_WORK_HISTORY_ENTRY")) = True Then
sql = String.Format("SELECT * FROM TBPM_FILES_WORK_HISTORY WHERE GUID = (SELECT MAX(GUID) FROM TBPM_FILES_WORK_HISTORY WHERE PROFIL_ID = {0} AND DOC_ID = {1})", CURRENT_ProfilGUID, CURRENT_DOC_ID)
Dim DT_ENTRY As DataTable = ClassDatabase.Return_Datatable(sql, True)
If Not IsNothing(DT_ENTRY) Then
If DT_ENTRY.Rows.Count = 1 Then
Dim AnnotationString = DT_ENTRY.Rows(0).Item("WORKED_WHEN") & " " & DT_ENTRY.Rows(0).Item("WORKED_BY") & ": " & DT_ENTRY.Rows(0).Item("STATUS_COMMENT")
ClassAnnotation.Annotate_PDF("Workflow-State:", AnnotationString, 0)
End If
End If
End If
Dim value = DTPROFIL.Rows(0).Item("ANNOTATE_ALL_WORK_HISTORY_ENTRIES")
If CBool(value) = True Then
sql = String.Format("SELECT * FROM TBPM_FILES_WORK_HISTORY WHERE PROFIL_ID = {0} AND DOC_ID = {1} ORDER BY GUID", CURRENT_ProfilGUID, CURRENT_DOC_ID)
Dim DT_ENTRIES As DataTable = ClassDatabase.Return_Datatable(sql, True)
If Not IsNothing(DT_ENTRIES) Then
If DT_ENTRIES.Rows.Count > 0 Then
Dim AnnotationString As String = ""
For Each rw As DataRow In DT_ENTRIES.Rows
AnnotationString = AnnotationString & rw.Item("WORKED_WHEN") & " " & rw.Item("WORKED_BY") & ": " & rw.Item("STATUS_COMMENT") & vbNewLine
Next
ClassAnnotation.Annotate_PDF("Workflow History:", AnnotationString, 0, 10, 40)
End If
End If
End If
End If
End If
'wenn Move2Folder aktiviert wurde
If Move2Folder <> "" Then
@ -2098,13 +2125,13 @@ Public Class frmValidator
End If
Catch ex As Exception
errormessage = "Unvorhergesehener Fehler bei Abschluss:" & ex.Message
My.Settings.Save()
frmError.ShowDialog()
ClassLogger.Add(">> Unvorhergesehener Fehler bei Abschluss: " & ex.Message, True)
End Try
Else
'Catch ex As Exception
' errormessage = "Unvorhergesehener Fehler bei Abschluss:" & ex.Message
' My.Settings.Save()
' frmError.ShowDialog()
' ClassLogger.Add(">> Unvorhergesehener Fehler bei Abschluss: " & ex.Message, True)
'End Try
Else
'lblerror.Visible = True
'lblerror.Text = errmessage
errormessage = errmessage
@ -2842,7 +2869,12 @@ Public Class frmValidator
End Sub
Private Sub ToolStripButtonAnnotation_Click(sender As Object, e As EventArgs) Handles ToolStripButtonAnnotation.Click
PdfViewer1.CloseDocument()
Close_PDF_Viewer(Document_Path)
Application.DoEvents()
frmAnnotations.ShowDialog()
load_viewer()
End Sub
End Class