diff --git a/app/.vs/DD_PM_WINDREAM/DesignTimeBuild/.dtbcache b/app/.vs/DD_PM_WINDREAM/DesignTimeBuild/.dtbcache index 671ed4a..715c91b 100644 Binary files a/app/.vs/DD_PM_WINDREAM/DesignTimeBuild/.dtbcache and b/app/.vs/DD_PM_WINDREAM/DesignTimeBuild/.dtbcache differ diff --git a/app/DD_PM_WINDREAM/ClassDatabase.vb b/app/DD_PM_WINDREAM/ClassDatabase.vb index dbc49e0..b7e3f97 100644 --- a/app/DD_PM_WINDREAM/ClassDatabase.vb +++ b/app/DD_PM_WINDREAM/ClassDatabase.vb @@ -9,7 +9,7 @@ Public Class ClassDatabase 'Me.TBCONNECTIONTableAdapter.FillByID(Me.DD_DMSLiteDataSet.TBCONNECTION, id) Dim DTConnection As DataTable = ClassDatabase.Return_Datatable("SELECT * FROM TBDD_CONNECTION WHERE GUID = " & id) If DTConnection.Rows.Count = 1 Then - Select Case DTConnection.Rows(0).Item("SQL_PROVIDER") + Select Case DTConnection.Rows(0).Item("SQL_PROVIDER").ToString.ToUpper Case "MS-SQL" If DTConnection.Rows(0).Item("USERNAME") = "WINAUTH" Then connectionString = "Server=" & DTConnection.Rows(0).Item("SERVER") & ";Database=" & DTConnection.Rows(0).Item("DATENBANK") & ";Trusted_Connection=True;" diff --git a/app/DD_PM_WINDREAM/ClassParamRefresh.vb b/app/DD_PM_WINDREAM/ClassParamRefresh.vb index 43b8817..e678b21 100644 --- a/app/DD_PM_WINDREAM/ClassParamRefresh.vb +++ b/app/DD_PM_WINDREAM/ClassParamRefresh.vb @@ -31,8 +31,10 @@ LOGCONFIG.Debug = True ElseIf oMode = "PM.IDBWITHWMFS" Then IDB_USES_WMFILESTORE = True - ElseIf oMode.StartsWith("PM.IDBCS!") Then - CONNECTION_STRING_IDB = oMode.Replace("PM.IDBCS!", "") + ElseIf oMode.StartsWith("PM.IDB_CONID!") Then + Dim CON_ID = oMode.Replace("PM.IDB_CONID!", "") + Dim oConString = ClassDatabase.Get_ConnectionString(CON_ID) + CONNECTION_STRING_IDB = oConString Dim oSQL = $"SELECT * FROM TBIDB_ATTRIBUTE" Dim oDT As DataTable = ClassDatabase.Return_Datatable_ConStr(oSQL, CONNECTION_STRING_IDB) If Not IsNothing(oDT) Then diff --git a/app/DD_PM_WINDREAM/DD_DMSLiteDataSet.Designer.vb b/app/DD_PM_WINDREAM/DD_DMSLiteDataSet.Designer.vb index fb82b88..6ce042c 100644 --- a/app/DD_PM_WINDREAM/DD_DMSLiteDataSet.Designer.vb +++ b/app/DD_PM_WINDREAM/DD_DMSLiteDataSet.Designer.vb @@ -55,6 +55,8 @@ Partial Public Class DD_DMSLiteDataSet Private tableFNPM_GET_FREE_USER_FOR_PROFILE As FNPM_GET_FREE_USER_FOR_PROFILEDataTable + Private tableTBDD_EMAIL_TEMPLATE As TBDD_EMAIL_TEMPLATEDataTable + Private tableTBWH_CONNECTION As TBWH_CONNECTIONDataTable Private relationFK_TBPM_ERROR_LOG_PROFILE1 As Global.System.Data.DataRelation @@ -141,6 +143,9 @@ Partial Public Class DD_DMSLiteDataSet If (Not (ds.Tables("FNPM_GET_FREE_USER_FOR_PROFILE")) Is Nothing) Then MyBase.Tables.Add(New FNPM_GET_FREE_USER_FOR_PROFILEDataTable(ds.Tables("FNPM_GET_FREE_USER_FOR_PROFILE"))) End If + If (Not (ds.Tables("TBDD_EMAIL_TEMPLATE")) Is Nothing) Then + MyBase.Tables.Add(New TBDD_EMAIL_TEMPLATEDataTable(ds.Tables("TBDD_EMAIL_TEMPLATE"))) + End If If (Not (ds.Tables("TBWH_CONNECTION")) Is Nothing) Then MyBase.Tables.Add(New TBWH_CONNECTIONDataTable(ds.Tables("TBWH_CONNECTION"))) End If @@ -311,6 +316,16 @@ Partial Public Class DD_DMSLiteDataSet End Get End Property + _ + Public ReadOnly Property TBDD_EMAIL_TEMPLATE() As TBDD_EMAIL_TEMPLATEDataTable + Get + Return Me.tableTBDD_EMAIL_TEMPLATE + End Get + End Property + _ + Private Function ShouldSerializeTBDD_EMAIL_TEMPLATE() As Boolean + Return false + End Function + _ Private Function ShouldSerializeTBWH_CONNECTION() As Boolean @@ -822,6 +854,9 @@ Partial Public Class DD_DMSLiteDataSet _ Public Delegate Sub FNPM_GET_FREE_USER_FOR_PROFILERowChangeEventHandler(ByVal sender As Object, ByVal e As FNPM_GET_FREE_USER_FOR_PROFILERowChangeEvent) + _ + Public Delegate Sub TBDD_EMAIL_TEMPLATERowChangeEventHandler(ByVal sender As Object, ByVal e As TBDD_EMAIL_TEMPLATERowChangeEvent) + _ Public Delegate Sub TBWH_CONNECTIONRowChangeEventHandler(ByVal sender As Object, ByVal e As TBWH_CONNECTIONRowChangeEvent) @@ -2872,6 +2907,8 @@ Partial Public Class DD_DMSLiteDataSet Private columnGEAENDERTWANN As Global.System.Data.DataColumn + Private columnSYS_CONNECTION As Global.System.Data.DataColumn + _ Public Sub New() @@ -3011,6 +3048,14 @@ Partial Public Class DD_DMSLiteDataSet End Get End Property + _ + Public ReadOnly Property SYS_CONNECTIONColumn() As Global.System.Data.DataColumn + Get + Return Me.columnSYS_CONNECTION + End Get + End Property + _ @@ -3048,9 +3093,9 @@ Partial Public Class DD_DMSLiteDataSet _ - Public Overloads Function AddTBDD_CONNECTIONRow(ByVal BEZEICHNUNG As String, ByVal SQL_PROVIDER As String, ByVal SERVER As String, ByVal DATENBANK As String, ByVal USERNAME As String, ByVal PASSWORD As String, ByVal BEMERKUNG As String, ByVal AKTIV As Boolean, ByVal ERSTELLTWER As String, ByVal ERSTELLTWANN As Date, ByVal GEANDERTWER As String, ByVal GEAENDERTWANN As Date) As TBDD_CONNECTIONRow + Public Overloads Function AddTBDD_CONNECTIONRow(ByVal BEZEICHNUNG As String, ByVal SQL_PROVIDER As String, ByVal SERVER As String, ByVal DATENBANK As String, ByVal USERNAME As String, ByVal PASSWORD As String, ByVal BEMERKUNG As String, ByVal AKTIV As Boolean, ByVal ERSTELLTWER As String, ByVal ERSTELLTWANN As Date, ByVal GEANDERTWER As String, ByVal GEAENDERTWANN As Date, ByVal SYS_CONNECTION As Boolean) As TBDD_CONNECTIONRow Dim rowTBDD_CONNECTIONRow As TBDD_CONNECTIONRow = CType(Me.NewRow,TBDD_CONNECTIONRow) - Dim columnValuesArray() As Object = New Object() {Nothing, BEZEICHNUNG, SQL_PROVIDER, SERVER, DATENBANK, USERNAME, PASSWORD, BEMERKUNG, AKTIV, ERSTELLTWER, ERSTELLTWANN, GEANDERTWER, GEAENDERTWANN} + Dim columnValuesArray() As Object = New Object() {Nothing, BEZEICHNUNG, SQL_PROVIDER, SERVER, DATENBANK, USERNAME, PASSWORD, BEMERKUNG, AKTIV, ERSTELLTWER, ERSTELLTWANN, GEANDERTWER, GEAENDERTWANN, SYS_CONNECTION} rowTBDD_CONNECTIONRow.ItemArray = columnValuesArray Me.Rows.Add(rowTBDD_CONNECTIONRow) Return rowTBDD_CONNECTIONRow @@ -3092,6 +3137,7 @@ Partial Public Class DD_DMSLiteDataSet Me.columnERSTELLTWANN = MyBase.Columns("ERSTELLTWANN") Me.columnGEANDERTWER = MyBase.Columns("GEANDERTWER") Me.columnGEAENDERTWANN = MyBase.Columns("GEAENDERTWANN") + Me.columnSYS_CONNECTION = MyBase.Columns("SYS_CONNECTION") End Sub + '''Represents the strongly named DataTable class. + ''' + _ + Partial Public Class TBDD_EMAIL_TEMPLATEDataTable + Inherits Global.System.Data.TypedTableBase(Of TBDD_EMAIL_TEMPLATERow) + + Private columnGUID As Global.System.Data.DataColumn + + Private columnTITLE As Global.System.Data.DataColumn + + Private columnEMAIL_SUBJECT As Global.System.Data.DataColumn + + Private columnEMAIL_BODY1 As Global.System.Data.DataColumn + + Private columnEMAIL_BODY2 As Global.System.Data.DataColumn + + Private columnEMAIL_BODY3 As Global.System.Data.DataColumn + + Private columnADDED_WHO As Global.System.Data.DataColumn + + Private columnADDED_WHEN As Global.System.Data.DataColumn + + Private columnCHANGED_WHO As Global.System.Data.DataColumn + + Private columnCHANGED_WHEN As Global.System.Data.DataColumn + + _ + Public Sub New() + MyBase.New + Me.TableName = "TBDD_EMAIL_TEMPLATE" + Me.BeginInit + Me.InitClass + Me.EndInit + End Sub + + _ + Friend Sub New(ByVal table As Global.System.Data.DataTable) + MyBase.New + Me.TableName = table.TableName + If (table.CaseSensitive <> table.DataSet.CaseSensitive) Then + Me.CaseSensitive = table.CaseSensitive + End If + If (table.Locale.ToString <> table.DataSet.Locale.ToString) Then + Me.Locale = table.Locale + End If + If (table.Namespace <> table.DataSet.Namespace) Then + Me.Namespace = table.Namespace + End If + Me.Prefix = table.Prefix + Me.MinimumCapacity = table.MinimumCapacity + End Sub + + _ + Protected Sub New(ByVal info As Global.System.Runtime.Serialization.SerializationInfo, ByVal context As Global.System.Runtime.Serialization.StreamingContext) + MyBase.New(info, context) + Me.InitVars + End Sub + + _ + Public ReadOnly Property GUIDColumn() As Global.System.Data.DataColumn + Get + Return Me.columnGUID + End Get + End Property + + _ + Public ReadOnly Property TITLEColumn() As Global.System.Data.DataColumn + Get + Return Me.columnTITLE + End Get + End Property + + _ + Public ReadOnly Property EMAIL_SUBJECTColumn() As Global.System.Data.DataColumn + Get + Return Me.columnEMAIL_SUBJECT + End Get + End Property + + _ + Public ReadOnly Property EMAIL_BODY1Column() As Global.System.Data.DataColumn + Get + Return Me.columnEMAIL_BODY1 + End Get + End Property + + _ + Public ReadOnly Property EMAIL_BODY2Column() As Global.System.Data.DataColumn + Get + Return Me.columnEMAIL_BODY2 + End Get + End Property + + _ + Public ReadOnly Property EMAIL_BODY3Column() As Global.System.Data.DataColumn + Get + Return Me.columnEMAIL_BODY3 + End Get + End Property + + _ + Public ReadOnly Property ADDED_WHOColumn() As Global.System.Data.DataColumn + Get + Return Me.columnADDED_WHO + End Get + End Property + + _ + Public ReadOnly Property ADDED_WHENColumn() As Global.System.Data.DataColumn + Get + Return Me.columnADDED_WHEN + End Get + End Property + + _ + Public ReadOnly Property CHANGED_WHOColumn() As Global.System.Data.DataColumn + Get + Return Me.columnCHANGED_WHO + End Get + End Property + + _ + Public ReadOnly Property CHANGED_WHENColumn() As Global.System.Data.DataColumn + Get + Return Me.columnCHANGED_WHEN + End Get + End Property + + _ + Public ReadOnly Property Count() As Integer + Get + Return Me.Rows.Count + End Get + End Property + + _ + Public Default ReadOnly Property Item(ByVal index As Integer) As TBDD_EMAIL_TEMPLATERow + Get + Return CType(Me.Rows(index),TBDD_EMAIL_TEMPLATERow) + End Get + End Property + + _ + Public Event TBDD_EMAIL_TEMPLATERowChanging As TBDD_EMAIL_TEMPLATERowChangeEventHandler + + _ + Public Event TBDD_EMAIL_TEMPLATERowChanged As TBDD_EMAIL_TEMPLATERowChangeEventHandler + + _ + Public Event TBDD_EMAIL_TEMPLATERowDeleting As TBDD_EMAIL_TEMPLATERowChangeEventHandler + + _ + Public Event TBDD_EMAIL_TEMPLATERowDeleted As TBDD_EMAIL_TEMPLATERowChangeEventHandler + + _ + Public Overloads Sub AddTBDD_EMAIL_TEMPLATERow(ByVal row As TBDD_EMAIL_TEMPLATERow) + Me.Rows.Add(row) + End Sub + + _ + Public Overloads Function AddTBDD_EMAIL_TEMPLATERow(ByVal TITLE As String, ByVal EMAIL_SUBJECT As String, ByVal EMAIL_BODY1 As String, ByVal EMAIL_BODY2 As String, ByVal EMAIL_BODY3 As String, ByVal ADDED_WHO As String, ByVal ADDED_WHEN As Date, ByVal CHANGED_WHO As String, ByVal CHANGED_WHEN As Date) As TBDD_EMAIL_TEMPLATERow + Dim rowTBDD_EMAIL_TEMPLATERow As TBDD_EMAIL_TEMPLATERow = CType(Me.NewRow,TBDD_EMAIL_TEMPLATERow) + Dim columnValuesArray() As Object = New Object() {Nothing, TITLE, EMAIL_SUBJECT, EMAIL_BODY1, EMAIL_BODY2, EMAIL_BODY3, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN} + rowTBDD_EMAIL_TEMPLATERow.ItemArray = columnValuesArray + Me.Rows.Add(rowTBDD_EMAIL_TEMPLATERow) + Return rowTBDD_EMAIL_TEMPLATERow + End Function + + _ + Public Function FindByGUID(ByVal GUID As Integer) As TBDD_EMAIL_TEMPLATERow + Return CType(Me.Rows.Find(New Object() {GUID}),TBDD_EMAIL_TEMPLATERow) + End Function + + _ + Public Overrides Function Clone() As Global.System.Data.DataTable + Dim cln As TBDD_EMAIL_TEMPLATEDataTable = CType(MyBase.Clone,TBDD_EMAIL_TEMPLATEDataTable) + cln.InitVars + Return cln + End Function + + _ + Protected Overrides Function CreateInstance() As Global.System.Data.DataTable + Return New TBDD_EMAIL_TEMPLATEDataTable() + End Function + + _ + Friend Sub InitVars() + Me.columnGUID = MyBase.Columns("GUID") + Me.columnTITLE = MyBase.Columns("TITLE") + Me.columnEMAIL_SUBJECT = MyBase.Columns("EMAIL_SUBJECT") + Me.columnEMAIL_BODY1 = MyBase.Columns("EMAIL_BODY1") + Me.columnEMAIL_BODY2 = MyBase.Columns("EMAIL_BODY2") + Me.columnEMAIL_BODY3 = MyBase.Columns("EMAIL_BODY3") + Me.columnADDED_WHO = MyBase.Columns("ADDED_WHO") + Me.columnADDED_WHEN = MyBase.Columns("ADDED_WHEN") + Me.columnCHANGED_WHO = MyBase.Columns("CHANGED_WHO") + Me.columnCHANGED_WHEN = MyBase.Columns("CHANGED_WHEN") + End Sub + + _ + Private Sub InitClass() + Me.columnGUID = New Global.System.Data.DataColumn("GUID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnGUID) + Me.columnTITLE = New Global.System.Data.DataColumn("TITLE", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnTITLE) + Me.columnEMAIL_SUBJECT = New Global.System.Data.DataColumn("EMAIL_SUBJECT", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnEMAIL_SUBJECT) + Me.columnEMAIL_BODY1 = New Global.System.Data.DataColumn("EMAIL_BODY1", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnEMAIL_BODY1) + Me.columnEMAIL_BODY2 = New Global.System.Data.DataColumn("EMAIL_BODY2", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnEMAIL_BODY2) + Me.columnEMAIL_BODY3 = New Global.System.Data.DataColumn("EMAIL_BODY3", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnEMAIL_BODY3) + Me.columnADDED_WHO = New Global.System.Data.DataColumn("ADDED_WHO", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnADDED_WHO) + Me.columnADDED_WHEN = New Global.System.Data.DataColumn("ADDED_WHEN", GetType(Date), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnADDED_WHEN) + Me.columnCHANGED_WHO = New Global.System.Data.DataColumn("CHANGED_WHO", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnCHANGED_WHO) + Me.columnCHANGED_WHEN = New Global.System.Data.DataColumn("CHANGED_WHEN", GetType(Date), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnCHANGED_WHEN) + Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnGUID}, true)) + Me.columnGUID.AutoIncrement = true + Me.columnGUID.AutoIncrementSeed = 1 + Me.columnGUID.AllowDBNull = false + Me.columnGUID.ReadOnly = true + Me.columnGUID.Unique = true + Me.columnTITLE.AllowDBNull = false + Me.columnTITLE.MaxLength = 100 + Me.columnEMAIL_SUBJECT.AllowDBNull = false + Me.columnEMAIL_SUBJECT.MaxLength = 900 + Me.columnEMAIL_BODY1.AllowDBNull = false + Me.columnEMAIL_BODY1.MaxLength = 2147483647 + Me.columnEMAIL_BODY2.AllowDBNull = false + Me.columnEMAIL_BODY2.DefaultValue = CType("",String) + Me.columnEMAIL_BODY2.MaxLength = 2147483647 + Me.columnEMAIL_BODY3.AllowDBNull = false + Me.columnEMAIL_BODY3.DefaultValue = CType("",String) + Me.columnEMAIL_BODY3.MaxLength = 2147483647 + Me.columnADDED_WHO.AllowDBNull = false + Me.columnADDED_WHO.MaxLength = 30 + Me.columnCHANGED_WHO.MaxLength = 30 + End Sub + + _ + Public Function NewTBDD_EMAIL_TEMPLATERow() As TBDD_EMAIL_TEMPLATERow + Return CType(Me.NewRow,TBDD_EMAIL_TEMPLATERow) + End Function + + _ + Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow + Return New TBDD_EMAIL_TEMPLATERow(builder) + End Function + + _ + Protected Overrides Function GetRowType() As Global.System.Type + Return GetType(TBDD_EMAIL_TEMPLATERow) + End Function + + _ + Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanged(e) + If (Not (Me.TBDD_EMAIL_TEMPLATERowChangedEvent) Is Nothing) Then + RaiseEvent TBDD_EMAIL_TEMPLATERowChanged(Me, New TBDD_EMAIL_TEMPLATERowChangeEvent(CType(e.Row,TBDD_EMAIL_TEMPLATERow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanging(e) + If (Not (Me.TBDD_EMAIL_TEMPLATERowChangingEvent) Is Nothing) Then + RaiseEvent TBDD_EMAIL_TEMPLATERowChanging(Me, New TBDD_EMAIL_TEMPLATERowChangeEvent(CType(e.Row,TBDD_EMAIL_TEMPLATERow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleted(e) + If (Not (Me.TBDD_EMAIL_TEMPLATERowDeletedEvent) Is Nothing) Then + RaiseEvent TBDD_EMAIL_TEMPLATERowDeleted(Me, New TBDD_EMAIL_TEMPLATERowChangeEvent(CType(e.Row,TBDD_EMAIL_TEMPLATERow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleting(e) + If (Not (Me.TBDD_EMAIL_TEMPLATERowDeletingEvent) Is Nothing) Then + RaiseEvent TBDD_EMAIL_TEMPLATERowDeleting(Me, New TBDD_EMAIL_TEMPLATERowChangeEvent(CType(e.Row,TBDD_EMAIL_TEMPLATERow), e.Action)) + End If + End Sub + + _ + Public Sub RemoveTBDD_EMAIL_TEMPLATERow(ByVal row As TBDD_EMAIL_TEMPLATERow) + Me.Rows.Remove(row) + End Sub + + _ + Public Shared Function GetTypedTableSchema(ByVal xs As Global.System.Xml.Schema.XmlSchemaSet) As Global.System.Xml.Schema.XmlSchemaComplexType + Dim type As Global.System.Xml.Schema.XmlSchemaComplexType = New Global.System.Xml.Schema.XmlSchemaComplexType() + Dim sequence As Global.System.Xml.Schema.XmlSchemaSequence = New Global.System.Xml.Schema.XmlSchemaSequence() + Dim ds As DD_DMSLiteDataSet = New DD_DMSLiteDataSet() + Dim any1 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny() + any1.Namespace = "http://www.w3.org/2001/XMLSchema" + any1.MinOccurs = New Decimal(0) + any1.MaxOccurs = Decimal.MaxValue + any1.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax + sequence.Items.Add(any1) + Dim any2 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny() + any2.Namespace = "urn:schemas-microsoft-com:xml-diffgram-v1" + any2.MinOccurs = New Decimal(1) + any2.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax + sequence.Items.Add(any2) + Dim attribute1 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute() + attribute1.Name = "namespace" + attribute1.FixedValue = ds.Namespace + type.Attributes.Add(attribute1) + Dim attribute2 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute() + attribute2.Name = "tableTypeName" + attribute2.FixedValue = "TBDD_EMAIL_TEMPLATEDataTable" + type.Attributes.Add(attribute2) + type.Particle = sequence + Dim dsSchema As Global.System.Xml.Schema.XmlSchema = ds.GetSchemaSerializable + If xs.Contains(dsSchema.TargetNamespace) Then + Dim s1 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() + Dim s2 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() + Try + Dim schema As Global.System.Xml.Schema.XmlSchema = Nothing + dsSchema.Write(s1) + Dim schemas As Global.System.Collections.IEnumerator = xs.Schemas(dsSchema.TargetNamespace).GetEnumerator + Do While schemas.MoveNext + schema = CType(schemas.Current,Global.System.Xml.Schema.XmlSchema) + s2.SetLength(0) + schema.Write(s2) + If (s1.Length = s2.Length) Then + s1.Position = 0 + s2.Position = 0 + + Do While ((s1.Position <> s1.Length) _ + AndAlso (s1.ReadByte = s2.ReadByte)) + + + Loop + If (s1.Position = s1.Length) Then + Return type + End If + End If + + Loop + Finally + If (Not (s1) Is Nothing) Then + s1.Close + End If + If (Not (s2) Is Nothing) Then + s2.Close + End If + End Try + End If + xs.Add(dsSchema) + Return type + End Function + End Class + ''' '''Represents the strongly named DataTable class. ''' @@ -8883,7 +9328,11 @@ Partial Public Class DD_DMSLiteDataSet Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Public Property SQL_PROVIDER() As String Get - Return CType(Me(Me.tableTBDD_CONNECTION.SQL_PROVIDERColumn),String) + Try + Return CType(Me(Me.tableTBDD_CONNECTION.SQL_PROVIDERColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte SQL_PROVIDER in Tabelle TBDD_CONNECTION ist DBNull.", e) + End Try End Get Set Me(Me.tableTBDD_CONNECTION.SQL_PROVIDERColumn) = value @@ -9032,6 +9481,17 @@ Partial Public Class DD_DMSLiteDataSet End Set End Property + _ + Public Property SYS_CONNECTION() As Boolean + Get + Return CType(Me(Me.tableTBDD_CONNECTION.SYS_CONNECTIONColumn),Boolean) + End Get + Set + Me(Me.tableTBDD_CONNECTION.SYS_CONNECTIONColumn) = value + End Set + End Property + _ Public Function IsBEZEICHNUNGNull() As Boolean @@ -9044,6 +9504,18 @@ Partial Public Class DD_DMSLiteDataSet Me(Me.tableTBDD_CONNECTION.BEZEICHNUNGColumn) = Global.System.Convert.DBNull End Sub + _ + Public Function IsSQL_PROVIDERNull() As Boolean + Return Me.IsNull(Me.tableTBDD_CONNECTION.SQL_PROVIDERColumn) + End Function + + _ + Public Sub SetSQL_PROVIDERNull() + Me(Me.tableTBDD_CONNECTION.SQL_PROVIDERColumn) = Global.System.Convert.DBNull + End Sub + _ Public Function IsSERVERNull() As Boolean @@ -11701,6 +12173,180 @@ Partial Public Class DD_DMSLiteDataSet End Sub End Class + ''' + '''Represents strongly named DataRow class. + ''' + Partial Public Class TBDD_EMAIL_TEMPLATERow + Inherits Global.System.Data.DataRow + + Private tableTBDD_EMAIL_TEMPLATE As TBDD_EMAIL_TEMPLATEDataTable + + _ + Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) + MyBase.New(rb) + Me.tableTBDD_EMAIL_TEMPLATE = CType(Me.Table,TBDD_EMAIL_TEMPLATEDataTable) + End Sub + + _ + Public Property GUID() As Integer + Get + Return CType(Me(Me.tableTBDD_EMAIL_TEMPLATE.GUIDColumn),Integer) + End Get + Set + Me(Me.tableTBDD_EMAIL_TEMPLATE.GUIDColumn) = value + End Set + End Property + + _ + Public Property TITLE() As String + Get + Return CType(Me(Me.tableTBDD_EMAIL_TEMPLATE.TITLEColumn),String) + End Get + Set + Me(Me.tableTBDD_EMAIL_TEMPLATE.TITLEColumn) = value + End Set + End Property + + _ + Public Property EMAIL_SUBJECT() As String + Get + Return CType(Me(Me.tableTBDD_EMAIL_TEMPLATE.EMAIL_SUBJECTColumn),String) + End Get + Set + Me(Me.tableTBDD_EMAIL_TEMPLATE.EMAIL_SUBJECTColumn) = value + End Set + End Property + + _ + Public Property EMAIL_BODY1() As String + Get + Return CType(Me(Me.tableTBDD_EMAIL_TEMPLATE.EMAIL_BODY1Column),String) + End Get + Set + Me(Me.tableTBDD_EMAIL_TEMPLATE.EMAIL_BODY1Column) = value + End Set + End Property + + _ + Public Property EMAIL_BODY2() As String + Get + Return CType(Me(Me.tableTBDD_EMAIL_TEMPLATE.EMAIL_BODY2Column),String) + End Get + Set + Me(Me.tableTBDD_EMAIL_TEMPLATE.EMAIL_BODY2Column) = value + End Set + End Property + + _ + Public Property EMAIL_BODY3() As String + Get + Return CType(Me(Me.tableTBDD_EMAIL_TEMPLATE.EMAIL_BODY3Column),String) + End Get + Set + Me(Me.tableTBDD_EMAIL_TEMPLATE.EMAIL_BODY3Column) = value + End Set + End Property + + _ + Public Property ADDED_WHO() As String + Get + Return CType(Me(Me.tableTBDD_EMAIL_TEMPLATE.ADDED_WHOColumn),String) + End Get + Set + Me(Me.tableTBDD_EMAIL_TEMPLATE.ADDED_WHOColumn) = value + End Set + End Property + + _ + Public Property ADDED_WHEN() As Date + Get + Try + Return CType(Me(Me.tableTBDD_EMAIL_TEMPLATE.ADDED_WHENColumn),Date) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ADDED_WHEN in Tabelle TBDD_EMAIL_TEMPLATE ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableTBDD_EMAIL_TEMPLATE.ADDED_WHENColumn) = value + End Set + End Property + + _ + Public Property CHANGED_WHO() As String + Get + Try + Return CType(Me(Me.tableTBDD_EMAIL_TEMPLATE.CHANGED_WHOColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CHANGED_WHO in Tabelle TBDD_EMAIL_TEMPLATE ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableTBDD_EMAIL_TEMPLATE.CHANGED_WHOColumn) = value + End Set + End Property + + _ + Public Property CHANGED_WHEN() As Date + Get + Try + Return CType(Me(Me.tableTBDD_EMAIL_TEMPLATE.CHANGED_WHENColumn),Date) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CHANGED_WHEN in Tabelle TBDD_EMAIL_TEMPLATE ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableTBDD_EMAIL_TEMPLATE.CHANGED_WHENColumn) = value + End Set + End Property + + _ + Public Function IsADDED_WHENNull() As Boolean + Return Me.IsNull(Me.tableTBDD_EMAIL_TEMPLATE.ADDED_WHENColumn) + End Function + + _ + Public Sub SetADDED_WHENNull() + Me(Me.tableTBDD_EMAIL_TEMPLATE.ADDED_WHENColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsCHANGED_WHONull() As Boolean + Return Me.IsNull(Me.tableTBDD_EMAIL_TEMPLATE.CHANGED_WHOColumn) + End Function + + _ + Public Sub SetCHANGED_WHONull() + Me(Me.tableTBDD_EMAIL_TEMPLATE.CHANGED_WHOColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsCHANGED_WHENNull() As Boolean + Return Me.IsNull(Me.tableTBDD_EMAIL_TEMPLATE.CHANGED_WHENColumn) + End Function + + _ + Public Sub SetCHANGED_WHENNull() + Me(Me.tableTBDD_EMAIL_TEMPLATE.CHANGED_WHENColumn) = Global.System.Convert.DBNull + End Sub + End Class + ''' '''Represents strongly named DataRow class. ''' @@ -12544,6 +13190,42 @@ Partial Public Class DD_DMSLiteDataSet End Property End Class + ''' + '''Row event argument class + ''' + _ + Public Class TBDD_EMAIL_TEMPLATERowChangeEvent + Inherits Global.System.EventArgs + + Private eventRow As TBDD_EMAIL_TEMPLATERow + + Private eventAction As Global.System.Data.DataRowAction + + _ + Public Sub New(ByVal row As TBDD_EMAIL_TEMPLATERow, ByVal action As Global.System.Data.DataRowAction) + MyBase.New + Me.eventRow = row + Me.eventAction = action + End Sub + + _ + Public ReadOnly Property Row() As TBDD_EMAIL_TEMPLATERow + Get + Return Me.eventRow + End Get + End Property + + _ + Public ReadOnly Property Action() As Global.System.Data.DataRowAction + Get + Return Me.eventAction + End Get + End Property + End Class + ''' '''Row event argument class ''' @@ -15114,6 +15796,7 @@ Namespace DD_DMSLiteDataSetTableAdapters tableMapping.ColumnMappings.Add("ERSTELLTWANN", "ERSTELLTWANN") tableMapping.ColumnMappings.Add("GEANDERTWER", "GEANDERTWER") tableMapping.ColumnMappings.Add("GEAENDERTWANN", "GEAENDERTWANN") + tableMapping.ColumnMappings.Add("SYS_CONNECTION", "SYS_CONNECTION") Me._adapter.TableMappings.Add(tableMapping) Me._adapter.DeleteCommand = New Global.System.Data.SqlClient.SqlCommand() Me._adapter.DeleteCommand.Connection = Me.Connection @@ -15123,11 +15806,12 @@ Namespace DD_DMSLiteDataSetTableAdapters Me._adapter.InsertCommand = New Global.System.Data.SqlClient.SqlCommand() Me._adapter.InsertCommand.Connection = Me.Connection Me._adapter.InsertCommand.CommandText = "INSERT INTO TBDD_CONNECTION"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" (BEZEICHNUNG, SQL_PROVIDER,"& _ - " SERVER, DATENBANK, USERNAME, PASSWORD, BEMERKUNG, AKTIV, ERSTELLTWER)"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"VALUES "& _ - " (@BEZEICHNUNG,@SQL_PROVIDER,@SERVER,@DATENBANK,@USERNAME,@PASSWORD,@BEMERK"& _ - "UNG,@AKTIV,@ERSTELLTWER); "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID, BEZEICHNUNG, SQL_PROVIDER, SERVER, DA"& _ - "TENBANK, USERNAME, PASSWORD, BEMERKUNG, AKTIV, ERSTELLTWER, ERSTELLTWANN, GEANDE"& _ - "RTWER, GEAENDERTWANN FROM TBDD_CONNECTION WHERE (GUID = SCOPE_IDENTITY())" + " SERVER, DATENBANK, USERNAME, PASSWORD, BEMERKUNG, AKTIV, ERSTELLTWER, SYS_CONNE"& _ + "CTION)"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"VALUES (@BEZEICHNUNG,@SQL_PROVIDER,@SERVER,@DATENBANK,@USERNAME,@"& _ + "PASSWORD,@BEMERKUNG,@AKTIV,@ERSTELLTWER,@SYS_CONNECTION); "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID, BEZE"& _ + "ICHNUNG, SQL_PROVIDER, SERVER, DATENBANK, USERNAME, PASSWORD, BEMERKUNG, AKTIV, "& _ + "ERSTELLTWER, ERSTELLTWANN, GEANDERTWER, GEAENDERTWANN FROM TBDD_CONNECTION WHERE"& _ + " (GUID = SCOPE_IDENTITY())" Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@BEZEICHNUNG", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "BEZEICHNUNG", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SQL_PROVIDER", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "SQL_PROVIDER", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) @@ -15138,15 +15822,15 @@ Namespace DD_DMSLiteDataSetTableAdapters Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@BEMERKUNG", Global.System.Data.SqlDbType.VarChar, 400, Global.System.Data.ParameterDirection.Input, 0, 0, "BEMERKUNG", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@AKTIV", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "AKTIV", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ERSTELLTWER", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "ERSTELLTWER", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SYS_CONNECTION", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "SYS_CONNECTION", 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 TBDD_CONNECTION"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SET BEZEICHNUNG = @BEZEICHNUNG, SQL_"& _ "PROVIDER = @SQL_PROVIDER, SERVER = @SERVER, DATENBANK = @DATENBANK, USERNAME = @"& _ "USERNAME, PASSWORD = @PASSWORD, BEMERKUNG = @BEMERKUNG, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "& _ - " AKTIV = @AKTIV, GEANDERTWER = @GEANDERTWER"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (GUID = @Original_GU"& _ - "ID); "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID, BEZEICHNUNG, SQL_PROVIDER, SERVER, DATENBANK, USERNAME, PA"& _ - "SSWORD, BEMERKUNG, AKTIV, ERSTELLTWER, ERSTELLTWANN, GEANDERTWER, GEAENDERTWANN "& _ - "FROM TBDD_CONNECTION WHERE (GUID = @GUID)" + " AKTIV = @AKTIV, GEANDERTWER = @GEANDERTWER, SYS_CONNECTION = @SYS_CONNECTION"&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, BEZEICHNUNG, SQL_PROVID"& _ + "ER, SERVER, DATENBANK, USERNAME, PASSWORD, BEMERKUNG, AKTIV, ERSTELLTWER, ERSTEL"& _ + "LTWANN, GEANDERTWER, GEAENDERTWANN FROM TBDD_CONNECTION WHERE (GUID = @GUID)" Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@BEZEICHNUNG", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "BEZEICHNUNG", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SQL_PROVIDER", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "SQL_PROVIDER", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) @@ -15157,6 +15841,7 @@ Namespace DD_DMSLiteDataSetTableAdapters Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@BEMERKUNG", Global.System.Data.SqlDbType.VarChar, 400, Global.System.Data.ParameterDirection.Input, 0, 0, "BEMERKUNG", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@AKTIV", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "AKTIV", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@GEANDERTWER", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "GEANDERTWER", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SYS_CONNECTION", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "SYS_CONNECTION", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GUID", Global.System.Data.SqlDbType.SmallInt, 2, 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.SmallInt, 2, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) End Sub @@ -15175,17 +15860,18 @@ Namespace DD_DMSLiteDataSetTableAdapters Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand() Me._commandCollection(0).Connection = Me.Connection Me._commandCollection(0).CommandText = "SELECT GUID, BEZEICHNUNG, SQL_PROVIDER, SERVER, DATENBANK, USERNAME, PASSW"& _ - "ORD, BEMERKUNG, AKTIV, ERSTELLTWER, ERSTELLTWANN, GEANDERTWER, GEAENDERTWANN"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FR"& _ - "OM TBDD_CONNECTION" + "ORD, BEMERKUNG, AKTIV, ERSTELLTWER, ERSTELLTWANN, GEANDERTWER, GEAENDERTWANN, SY"& _ + "S_CONNECTION"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM TBDD_CONNECTION" Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text Me._commandCollection(1) = New Global.System.Data.SqlClient.SqlCommand() Me._commandCollection(1).Connection = Me.Connection Me._commandCollection(1).CommandText = "INSERT INTO TBDD_CONNECTION"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" (BEZEICHNUNG, SQL_PROVIDER,"& _ - " SERVER, DATENBANK, USERNAME, PASSWORD, BEMERKUNG, AKTIV, ERSTELLTWER)"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"VALUES "& _ - " (@BEZEICHNUNG,@SQL_PROVIDER,@SERVER,@DATENBANK,@USERNAME,@PASSWORD,@BEMERK"& _ - "UNG,@AKTIV,@ERSTELLTWER); "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID, BEZEICHNUNG, SQL_PROVIDER, SERVER, DA"& _ - "TENBANK, USERNAME, PASSWORD, BEMERKUNG, AKTIV, ERSTELLTWER, ERSTELLTWANN, GEANDE"& _ - "RTWER, GEAENDERTWANN FROM TBDD_CONNECTION WHERE (GUID = SCOPE_IDENTITY())" + " SERVER, DATENBANK, USERNAME, PASSWORD, BEMERKUNG, AKTIV, ERSTELLTWER, SYS_CONNE"& _ + "CTION)"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"VALUES (@BEZEICHNUNG,@SQL_PROVIDER,@SERVER,@DATENBANK,@USERNAME,@"& _ + "PASSWORD,@BEMERKUNG,@AKTIV,@ERSTELLTWER,@SYS_CONNECTION); "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID, BEZE"& _ + "ICHNUNG, SQL_PROVIDER, SERVER, DATENBANK, USERNAME, PASSWORD, BEMERKUNG, AKTIV, "& _ + "ERSTELLTWER, ERSTELLTWANN, GEANDERTWER, GEAENDERTWANN FROM TBDD_CONNECTION WHERE"& _ + " (GUID = SCOPE_IDENTITY())" Me._commandCollection(1).CommandType = Global.System.Data.CommandType.Text Me._commandCollection(1).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@BEZEICHNUNG", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "BEZEICHNUNG", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._commandCollection(1).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SQL_PROVIDER", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "SQL_PROVIDER", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) @@ -15196,11 +15882,12 @@ Namespace DD_DMSLiteDataSetTableAdapters Me._commandCollection(1).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@BEMERKUNG", Global.System.Data.SqlDbType.VarChar, 400, Global.System.Data.ParameterDirection.Input, 0, 0, "BEMERKUNG", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._commandCollection(1).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@AKTIV", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "AKTIV", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._commandCollection(1).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ERSTELLTWER", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "ERSTELLTWER", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._commandCollection(1).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SYS_CONNECTION", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "SYS_CONNECTION", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._commandCollection(2) = New Global.System.Data.SqlClient.SqlCommand() Me._commandCollection(2).Connection = Me.Connection Me._commandCollection(2).CommandText = "SELECT GUID, BEZEICHNUNG, SQL_PROVIDER, SERVER, DATENBANK, USERNAME, PASSW"& _ - "ORD, BEMERKUNG, AKTIV, ERSTELLTWER, ERSTELLTWANN, GEANDERTWER, GEAENDERTWANN"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FR"& _ - "OM TBDD_CONNECTION"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (GUID = @ID)" + "ORD, BEMERKUNG, AKTIV, ERSTELLTWER, ERSTELLTWANN, GEANDERTWER, GEAENDERTWANN, SY"& _ + "S_CONNECTION"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM TBDD_CONNECTION"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (GUID = @ID)" Me._commandCollection(2).CommandType = Global.System.Data.CommandType.Text Me._commandCollection(2).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ID", Global.System.Data.SqlDbType.SmallInt, 2, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) End Sub @@ -15308,14 +15995,14 @@ 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 BEZEICHNUNG As String, ByVal SQL_PROVIDER As String, ByVal SERVER As String, ByVal DATENBANK As String, ByVal USERNAME As String, ByVal PASSWORD As String, ByVal BEMERKUNG As String, ByVal AKTIV As Boolean, ByVal ERSTELLTWER As String) As Integer + Public Overloads Overridable Function Insert(ByVal BEZEICHNUNG As String, ByVal SQL_PROVIDER As String, ByVal SERVER As String, ByVal DATENBANK As String, ByVal USERNAME As String, ByVal PASSWORD As String, ByVal BEMERKUNG As String, ByVal AKTIV As Boolean, ByVal ERSTELLTWER As String, ByVal SYS_CONNECTION As Boolean) As Integer If (BEZEICHNUNG Is Nothing) Then Me.Adapter.InsertCommand.Parameters(0).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(0).Value = CType(BEZEICHNUNG,String) End If If (SQL_PROVIDER Is Nothing) Then - Throw New Global.System.ArgumentNullException("SQL_PROVIDER") + Me.Adapter.InsertCommand.Parameters(1).Value = Global.System.DBNull.Value Else Me.Adapter.InsertCommand.Parameters(1).Value = CType(SQL_PROVIDER,String) End If @@ -15350,6 +16037,7 @@ Namespace DD_DMSLiteDataSetTableAdapters Else Me.Adapter.InsertCommand.Parameters(8).Value = CType(ERSTELLTWER,String) End If + Me.Adapter.InsertCommand.Parameters(9).Value = CType(SYS_CONNECTION,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 @@ -15369,14 +16057,14 @@ 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.Update, true)> _ - Public Overloads Overridable Function Update(ByVal BEZEICHNUNG As String, ByVal SQL_PROVIDER As String, ByVal SERVER As String, ByVal DATENBANK As String, ByVal USERNAME As String, ByVal PASSWORD As String, ByVal BEMERKUNG As String, ByVal AKTIV As Boolean, ByVal GEANDERTWER As String, ByVal Original_GUID As Short, ByVal GUID As Short) As Integer + Public Overloads Overridable Function Update(ByVal BEZEICHNUNG As String, ByVal SQL_PROVIDER As String, ByVal SERVER As String, ByVal DATENBANK As String, ByVal USERNAME As String, ByVal PASSWORD As String, ByVal BEMERKUNG As String, ByVal AKTIV As Boolean, ByVal GEANDERTWER As String, ByVal SYS_CONNECTION As Boolean, ByVal Original_GUID As Short, ByVal GUID As Short) As Integer If (BEZEICHNUNG Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(0).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(0).Value = CType(BEZEICHNUNG,String) End If If (SQL_PROVIDER Is Nothing) Then - Throw New Global.System.ArgumentNullException("SQL_PROVIDER") + Me.Adapter.UpdateCommand.Parameters(1).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(1).Value = CType(SQL_PROVIDER,String) End If @@ -15411,8 +16099,9 @@ Namespace DD_DMSLiteDataSetTableAdapters Else Me.Adapter.UpdateCommand.Parameters(8).Value = CType(GEANDERTWER,String) End If - Me.Adapter.UpdateCommand.Parameters(9).Value = CType(Original_GUID,Short) - Me.Adapter.UpdateCommand.Parameters(10).Value = CType(GUID,Short) + Me.Adapter.UpdateCommand.Parameters(9).Value = CType(SYS_CONNECTION,Boolean) + Me.Adapter.UpdateCommand.Parameters(10).Value = CType(Original_GUID,Short) + Me.Adapter.UpdateCommand.Parameters(11).Value = CType(GUID,Short) 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 @@ -15431,7 +16120,7 @@ Namespace DD_DMSLiteDataSetTableAdapters _ - Public Overloads Overridable Function CmdInsert(ByVal BEZEICHNUNG As String, ByVal SQL_PROVIDER As String, ByVal SERVER As String, ByVal DATENBANK As String, ByVal USERNAME As String, ByVal PASSWORD As String, ByVal BEMERKUNG As String, ByVal AKTIV As Boolean, ByVal ERSTELLTWER As String) As Object + Public Overloads Overridable Function CmdInsert(ByVal BEZEICHNUNG As String, ByVal SQL_PROVIDER As String, ByVal SERVER As String, ByVal DATENBANK As String, ByVal USERNAME As String, ByVal PASSWORD As String, ByVal BEMERKUNG As String, ByVal AKTIV As Boolean, ByVal ERSTELLTWER As String, ByVal SYS_CONNECTION As Boolean) As Object Dim command As Global.System.Data.SqlClient.SqlCommand = Me.CommandCollection(1) If (BEZEICHNUNG Is Nothing) Then command.Parameters(0).Value = Global.System.DBNull.Value @@ -15439,7 +16128,7 @@ Namespace DD_DMSLiteDataSetTableAdapters command.Parameters(0).Value = CType(BEZEICHNUNG,String) End If If (SQL_PROVIDER Is Nothing) Then - Throw New Global.System.ArgumentNullException("SQL_PROVIDER") + command.Parameters(1).Value = Global.System.DBNull.Value Else command.Parameters(1).Value = CType(SQL_PROVIDER,String) End If @@ -15474,6 +16163,7 @@ Namespace DD_DMSLiteDataSetTableAdapters Else command.Parameters(8).Value = CType(ERSTELLTWER,String) End If + command.Parameters(9).Value = CType(SYS_CONNECTION,Boolean) Dim previousConnectionState As Global.System.Data.ConnectionState = command.Connection.State If ((command.Connection.State And Global.System.Data.ConnectionState.Open) _ <> Global.System.Data.ConnectionState.Open) Then @@ -19945,6 +20635,376 @@ Namespace DD_DMSLiteDataSetTableAdapters End Function End Class + ''' + '''Represents the connection and commands used to retrieve and save data. + ''' + _ + Partial Public Class TBDD_EMAIL_TEMPLATETableAdapter + Inherits Global.System.ComponentModel.Component + + Private WithEvents _adapter As Global.System.Data.SqlClient.SqlDataAdapter + + Private _connection As Global.System.Data.SqlClient.SqlConnection + + Private _transaction As Global.System.Data.SqlClient.SqlTransaction + + Private _commandCollection() As Global.System.Data.SqlClient.SqlCommand + + Private _clearBeforeFill As Boolean + + _ + Public Sub New() + MyBase.New + Me.ClearBeforeFill = true + End Sub + + _ + Protected Friend ReadOnly Property Adapter() As Global.System.Data.SqlClient.SqlDataAdapter + Get + If (Me._adapter Is Nothing) Then + Me.InitAdapter + End If + Return Me._adapter + End Get + End Property + + _ + Friend Property Connection() As Global.System.Data.SqlClient.SqlConnection + Get + If (Me._connection Is Nothing) Then + Me.InitConnection + End If + Return Me._connection + End Get + Set + Me._connection = value + If (Not (Me.Adapter.InsertCommand) Is Nothing) Then + Me.Adapter.InsertCommand.Connection = value + End If + If (Not (Me.Adapter.DeleteCommand) Is Nothing) Then + Me.Adapter.DeleteCommand.Connection = value + End If + If (Not (Me.Adapter.UpdateCommand) Is Nothing) Then + Me.Adapter.UpdateCommand.Connection = value + End If + Dim i As Integer = 0 + Do While (i < Me.CommandCollection.Length) + If (Not (Me.CommandCollection(i)) Is Nothing) Then + CType(Me.CommandCollection(i),Global.System.Data.SqlClient.SqlCommand).Connection = value + End If + i = (i + 1) + Loop + End Set + End Property + + _ + Friend Property Transaction() As Global.System.Data.SqlClient.SqlTransaction + Get + Return Me._transaction + End Get + Set + Me._transaction = value + Dim i As Integer = 0 + Do While (i < Me.CommandCollection.Length) + Me.CommandCollection(i).Transaction = Me._transaction + i = (i + 1) + Loop + If ((Not (Me.Adapter) Is Nothing) _ + AndAlso (Not (Me.Adapter.DeleteCommand) Is Nothing)) Then + Me.Adapter.DeleteCommand.Transaction = Me._transaction + End If + If ((Not (Me.Adapter) Is Nothing) _ + AndAlso (Not (Me.Adapter.InsertCommand) Is Nothing)) Then + Me.Adapter.InsertCommand.Transaction = Me._transaction + End If + If ((Not (Me.Adapter) Is Nothing) _ + AndAlso (Not (Me.Adapter.UpdateCommand) Is Nothing)) Then + Me.Adapter.UpdateCommand.Transaction = Me._transaction + End If + End Set + End Property + + _ + Protected ReadOnly Property CommandCollection() As Global.System.Data.SqlClient.SqlCommand() + Get + If (Me._commandCollection Is Nothing) Then + Me.InitCommandCollection + End If + Return Me._commandCollection + End Get + End Property + + _ + Public Property ClearBeforeFill() As Boolean + Get + Return Me._clearBeforeFill + End Get + Set + Me._clearBeforeFill = value + End Set + End Property + + _ + Private Sub InitAdapter() + Me._adapter = New Global.System.Data.SqlClient.SqlDataAdapter() + Dim tableMapping As Global.System.Data.Common.DataTableMapping = New Global.System.Data.Common.DataTableMapping() + tableMapping.SourceTable = "Table" + tableMapping.DataSetTable = "TBDD_EMAIL_TEMPLATE" + tableMapping.ColumnMappings.Add("GUID", "GUID") + tableMapping.ColumnMappings.Add("TITLE", "TITLE") + tableMapping.ColumnMappings.Add("EMAIL_SUBJECT", "EMAIL_SUBJECT") + tableMapping.ColumnMappings.Add("EMAIL_BODY1", "EMAIL_BODY1") + tableMapping.ColumnMappings.Add("EMAIL_BODY2", "EMAIL_BODY2") + tableMapping.ColumnMappings.Add("EMAIL_BODY3", "EMAIL_BODY3") + tableMapping.ColumnMappings.Add("ADDED_WHO", "ADDED_WHO") + tableMapping.ColumnMappings.Add("ADDED_WHEN", "ADDED_WHEN") + tableMapping.ColumnMappings.Add("CHANGED_WHO", "CHANGED_WHO") + tableMapping.ColumnMappings.Add("CHANGED_WHEN", "CHANGED_WHEN") + Me._adapter.TableMappings.Add(tableMapping) + Me._adapter.DeleteCommand = New Global.System.Data.SqlClient.SqlCommand() + Me._adapter.DeleteCommand.Connection = Me.Connection + Me._adapter.DeleteCommand.CommandText = "DELETE FROM TBDD_EMAIL_TEMPLATE"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (GUID = @Original_GUID)" + Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text + Me._adapter.DeleteCommand.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.InsertCommand = New Global.System.Data.SqlClient.SqlCommand() + Me._adapter.InsertCommand.Connection = Me.Connection + Me._adapter.InsertCommand.CommandText = "INSERT INTO TBDD_EMAIL_TEMPLATE"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" (TITLE, EMAIL_SUBJECT, "& _ + "EMAIL_BODY1, EMAIL_BODY2, EMAIL_BODY3, ADDED_WHO)"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"VALUES (@TITLE,@EMAIL_"& _ + "SUBJECT,@EMAIL_BODY1,@EMAIL_BODY2,@EMAIL_BODY3,@ADDED_WHO); "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID, TITLE"& _ + ", EMAIL_SUBJECT, EMAIL_BODY1, EMAIL_BODY2, EMAIL_BODY3, ADDED_WHO, ADDED_WHEN, C"& _ + "HANGED_WHO, CHANGED_WHEN FROM TBDD_EMAIL_TEMPLATE WHERE (GUID = SCOPE_IDENTITY()"& _ + ")" + Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@TITLE", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "TITLE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@EMAIL_SUBJECT", Global.System.Data.SqlDbType.VarChar, 900, Global.System.Data.ParameterDirection.Input, 0, 0, "EMAIL_SUBJECT", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@EMAIL_BODY1", Global.System.Data.SqlDbType.VarChar, 2147483647, Global.System.Data.ParameterDirection.Input, 0, 0, "EMAIL_BODY1", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@EMAIL_BODY2", Global.System.Data.SqlDbType.VarChar, 2147483647, Global.System.Data.ParameterDirection.Input, 0, 0, "EMAIL_BODY2", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@EMAIL_BODY3", Global.System.Data.SqlDbType.VarChar, 2147483647, Global.System.Data.ParameterDirection.Input, 0, 0, "EMAIL_BODY3", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ADDED_WHO", Global.System.Data.SqlDbType.VarChar, 30, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHO", 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 TBDD_EMAIL_TEMPLATE"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SET TITLE = @TITLE, EMAIL_SUBJEC"& _ + "T = @EMAIL_SUBJECT, EMAIL_BODY1 = @EMAIL_BODY1, EMAIL_BODY2 = @EMAIL_BODY2, EMAI"& _ + "L_BODY3 = @EMAIL_BODY3, CHANGED_WHO = @CHANGED_WHO"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (GUID = @Origin"& _ + "al_GUID); "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID, TITLE, EMAIL_SUBJECT, EMAIL_BODY1, EMAIL_BODY2, EMAIL_B"& _ + "ODY3, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN FROM TBDD_EMAIL_TEMPLATE "& _ + "WHERE (GUID = @GUID)" + Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@TITLE", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "TITLE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@EMAIL_SUBJECT", Global.System.Data.SqlDbType.VarChar, 900, Global.System.Data.ParameterDirection.Input, 0, 0, "EMAIL_SUBJECT", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@EMAIL_BODY1", Global.System.Data.SqlDbType.VarChar, 2147483647, Global.System.Data.ParameterDirection.Input, 0, 0, "EMAIL_BODY1", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@EMAIL_BODY2", Global.System.Data.SqlDbType.VarChar, 2147483647, Global.System.Data.ParameterDirection.Input, 0, 0, "EMAIL_BODY2", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@EMAIL_BODY3", Global.System.Data.SqlDbType.VarChar, 2147483647, Global.System.Data.ParameterDirection.Input, 0, 0, "EMAIL_BODY3", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CHANGED_WHO", Global.System.Data.SqlDbType.VarChar, 30, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHO", 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 + + _ + Private Sub InitConnection() + Me._connection = New Global.System.Data.SqlClient.SqlConnection() + Me._connection.ConnectionString = Global.DD_PM_WINDREAM.My.MySettings.Default.ConnectionString + End Sub + + _ + Private Sub InitCommandCollection() + Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(0) {} + Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand() + Me._commandCollection(0).Connection = Me.Connection + Me._commandCollection(0).CommandText = "SELECT TBDD_EMAIL_TEMPLATE.*"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM TBDD_EMAIL_TEMPLATE" + Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text + End Sub + + _ + Public Overloads Overridable Function Fill(ByVal dataTable As DD_DMSLiteDataSet.TBDD_EMAIL_TEMPLATEDataTable) As Integer + Me.Adapter.SelectCommand = Me.CommandCollection(0) + If (Me.ClearBeforeFill = true) Then + dataTable.Clear + End If + Dim returnValue As Integer = Me.Adapter.Fill(dataTable) + Return returnValue + End Function + + _ + Public Overloads Overridable Function GetData() As DD_DMSLiteDataSet.TBDD_EMAIL_TEMPLATEDataTable + Me.Adapter.SelectCommand = Me.CommandCollection(0) + Dim dataTable As DD_DMSLiteDataSet.TBDD_EMAIL_TEMPLATEDataTable = New DD_DMSLiteDataSet.TBDD_EMAIL_TEMPLATEDataTable() + Me.Adapter.Fill(dataTable) + Return dataTable + End Function + + _ + Public Overloads Overridable Function Update(ByVal dataTable As DD_DMSLiteDataSet.TBDD_EMAIL_TEMPLATEDataTable) As Integer + Return Me.Adapter.Update(dataTable) + End Function + + _ + Public Overloads Overridable Function Update(ByVal dataSet As DD_DMSLiteDataSet) As Integer + Return Me.Adapter.Update(dataSet, "TBDD_EMAIL_TEMPLATE") + End Function + + _ + Public Overloads Overridable Function Update(ByVal dataRow As Global.System.Data.DataRow) As Integer + Return Me.Adapter.Update(New Global.System.Data.DataRow() {dataRow}) + End Function + + _ + Public Overloads Overridable Function Update(ByVal dataRows() As Global.System.Data.DataRow) As Integer + Return Me.Adapter.Update(dataRows) + End Function + + _ + Public Overloads Overridable Function Delete(ByVal Original_GUID As Integer) As Integer + Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_GUID,Integer) + Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.DeleteCommand.Connection.State + If ((Me.Adapter.DeleteCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ + <> Global.System.Data.ConnectionState.Open) Then + Me.Adapter.DeleteCommand.Connection.Open + End If + Try + Dim returnValue As Integer = Me.Adapter.DeleteCommand.ExecuteNonQuery + Return returnValue + Finally + If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then + Me.Adapter.DeleteCommand.Connection.Close + End If + End Try + End Function + + _ + Public Overloads Overridable Function Insert(ByVal TITLE As String, ByVal EMAIL_SUBJECT As String, ByVal EMAIL_BODY1 As String, ByVal EMAIL_BODY2 As String, ByVal EMAIL_BODY3 As String, ByVal ADDED_WHO As String) As Integer + If (TITLE Is Nothing) Then + Throw New Global.System.ArgumentNullException("TITLE") + Else + Me.Adapter.InsertCommand.Parameters(0).Value = CType(TITLE,String) + End If + If (EMAIL_SUBJECT Is Nothing) Then + Throw New Global.System.ArgumentNullException("EMAIL_SUBJECT") + Else + Me.Adapter.InsertCommand.Parameters(1).Value = CType(EMAIL_SUBJECT,String) + End If + If (EMAIL_BODY1 Is Nothing) Then + Throw New Global.System.ArgumentNullException("EMAIL_BODY1") + Else + Me.Adapter.InsertCommand.Parameters(2).Value = CType(EMAIL_BODY1,String) + End If + If (EMAIL_BODY2 Is Nothing) Then + Throw New Global.System.ArgumentNullException("EMAIL_BODY2") + Else + Me.Adapter.InsertCommand.Parameters(3).Value = CType(EMAIL_BODY2,String) + End If + If (EMAIL_BODY3 Is Nothing) Then + Throw New Global.System.ArgumentNullException("EMAIL_BODY3") + Else + Me.Adapter.InsertCommand.Parameters(4).Value = CType(EMAIL_BODY3,String) + End If + If (ADDED_WHO Is Nothing) Then + Throw New Global.System.ArgumentNullException("ADDED_WHO") + Else + Me.Adapter.InsertCommand.Parameters(5).Value = CType(ADDED_WHO,String) + End If + 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 + Me.Adapter.InsertCommand.Connection.Open + End If + Try + Dim returnValue As Integer = Me.Adapter.InsertCommand.ExecuteNonQuery + Return returnValue + Finally + If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then + Me.Adapter.InsertCommand.Connection.Close + End If + End Try + End Function + + _ + Public Overloads Overridable Function Update(ByVal TITLE As String, ByVal EMAIL_SUBJECT As String, ByVal EMAIL_BODY1 As String, ByVal EMAIL_BODY2 As String, ByVal EMAIL_BODY3 As String, ByVal CHANGED_WHO As String, ByVal Original_GUID As Integer, ByVal GUID As Integer) As Integer + If (TITLE Is Nothing) Then + Throw New Global.System.ArgumentNullException("TITLE") + Else + Me.Adapter.UpdateCommand.Parameters(0).Value = CType(TITLE,String) + End If + If (EMAIL_SUBJECT Is Nothing) Then + Throw New Global.System.ArgumentNullException("EMAIL_SUBJECT") + Else + Me.Adapter.UpdateCommand.Parameters(1).Value = CType(EMAIL_SUBJECT,String) + End If + If (EMAIL_BODY1 Is Nothing) Then + Throw New Global.System.ArgumentNullException("EMAIL_BODY1") + Else + Me.Adapter.UpdateCommand.Parameters(2).Value = CType(EMAIL_BODY1,String) + End If + If (EMAIL_BODY2 Is Nothing) Then + Throw New Global.System.ArgumentNullException("EMAIL_BODY2") + Else + Me.Adapter.UpdateCommand.Parameters(3).Value = CType(EMAIL_BODY2,String) + End If + If (EMAIL_BODY3 Is Nothing) Then + Throw New Global.System.ArgumentNullException("EMAIL_BODY3") + Else + Me.Adapter.UpdateCommand.Parameters(4).Value = CType(EMAIL_BODY3,String) + End If + If (CHANGED_WHO Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(5).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(5).Value = CType(CHANGED_WHO,String) + End If + Me.Adapter.UpdateCommand.Parameters(6).Value = CType(Original_GUID,Integer) + Me.Adapter.UpdateCommand.Parameters(7).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 + Me.Adapter.UpdateCommand.Connection.Open + End If + Try + Dim returnValue As Integer = Me.Adapter.UpdateCommand.ExecuteNonQuery + Return returnValue + Finally + If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then + Me.Adapter.UpdateCommand.Connection.Close + End If + End Try + End Function + End Class + ''' '''TableAdapterManager is used to coordinate TableAdapters in the dataset to enable Hierarchical Update scenarios ''' @@ -19978,6 +21038,8 @@ Namespace DD_DMSLiteDataSetTableAdapters Private _tBPM_CONTROL_TABLETableAdapter As TBPM_CONTROL_TABLETableAdapter + Private _tBDD_EMAIL_TEMPLATETableAdapter As TBDD_EMAIL_TEMPLATETableAdapter + Private _backupDataSetBeforeUpdate As Boolean Private _connection As Global.System.Data.IDbConnection @@ -20133,6 +21195,20 @@ Namespace DD_DMSLiteDataSetTableAdapters End Set End Property + _ + Public Property TBDD_EMAIL_TEMPLATETableAdapter() As TBDD_EMAIL_TEMPLATETableAdapter + Get + Return Me._tBDD_EMAIL_TEMPLATETableAdapter + End Get + Set + Me._tBDD_EMAIL_TEMPLATETableAdapter = value + End Set + End Property + _ Public Property BackupDataSetBeforeUpdate() As Boolean @@ -20192,6 +21268,10 @@ Namespace DD_DMSLiteDataSetTableAdapters AndAlso (Not (Me._tBPM_CONTROL_TABLETableAdapter.Connection) Is Nothing)) Then Return Me._tBPM_CONTROL_TABLETableAdapter.Connection End If + If ((Not (Me._tBDD_EMAIL_TEMPLATETableAdapter) Is Nothing) _ + AndAlso (Not (Me._tBDD_EMAIL_TEMPLATETableAdapter.Connection) Is Nothing)) Then + Return Me._tBDD_EMAIL_TEMPLATETableAdapter.Connection + End If Return Nothing End Get Set @@ -20235,6 +21315,9 @@ Namespace DD_DMSLiteDataSetTableAdapters If (Not (Me._tBPM_CONTROL_TABLETableAdapter) Is Nothing) Then count = (count + 1) End If + If (Not (Me._tBDD_EMAIL_TEMPLATETableAdapter) Is Nothing) Then + count = (count + 1) + End If Return count End Get End Property @@ -20273,6 +21356,15 @@ Namespace DD_DMSLiteDataSetTableAdapters allChangedRows.AddRange(updatedRows) End If End If + If (Not (Me._tBPM_CONTROL_TABLETableAdapter) Is Nothing) Then + Dim updatedRows() As Global.System.Data.DataRow = dataSet.TBPM_CONTROL_TABLE.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.ModifiedCurrent) + updatedRows = Me.GetRealUpdatedRows(updatedRows, allAddedRows) + If ((Not (updatedRows) Is Nothing) _ + AndAlso (0 < updatedRows.Length)) Then + result = (result + Me._tBPM_CONTROL_TABLETableAdapter.Update(updatedRows)) + allChangedRows.AddRange(updatedRows) + End If + End If If (Not (Me._tBPM_PROFILE_FINAL_INDEXINGTableAdapter) Is Nothing) Then Dim updatedRows() As Global.System.Data.DataRow = dataSet.TBPM_PROFILE_FINAL_INDEXING.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.ModifiedCurrent) updatedRows = Me.GetRealUpdatedRows(updatedRows, allAddedRows) @@ -20282,42 +21374,6 @@ Namespace DD_DMSLiteDataSetTableAdapters allChangedRows.AddRange(updatedRows) End If End If - If (Not (Me._tBPM_KONFIGURATIONTableAdapter) Is Nothing) Then - Dim updatedRows() As Global.System.Data.DataRow = dataSet.TBPM_KONFIGURATION.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.ModifiedCurrent) - updatedRows = Me.GetRealUpdatedRows(updatedRows, allAddedRows) - If ((Not (updatedRows) Is Nothing) _ - AndAlso (0 < updatedRows.Length)) Then - result = (result + Me._tBPM_KONFIGURATIONTableAdapter.Update(updatedRows)) - allChangedRows.AddRange(updatedRows) - End If - End If - If (Not (Me._tBDD_USERTableAdapter) Is Nothing) Then - Dim updatedRows() As Global.System.Data.DataRow = dataSet.TBDD_USER.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.ModifiedCurrent) - updatedRows = Me.GetRealUpdatedRows(updatedRows, allAddedRows) - If ((Not (updatedRows) Is Nothing) _ - AndAlso (0 < updatedRows.Length)) Then - result = (result + Me._tBDD_USERTableAdapter.Update(updatedRows)) - allChangedRows.AddRange(updatedRows) - End If - End If - If (Not (Me._tBPM_ERROR_LOGTableAdapter) Is Nothing) Then - Dim updatedRows() As Global.System.Data.DataRow = dataSet.TBPM_ERROR_LOG.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.ModifiedCurrent) - updatedRows = Me.GetRealUpdatedRows(updatedRows, allAddedRows) - If ((Not (updatedRows) Is Nothing) _ - AndAlso (0 < updatedRows.Length)) Then - result = (result + Me._tBPM_ERROR_LOGTableAdapter.Update(updatedRows)) - allChangedRows.AddRange(updatedRows) - End If - End If - If (Not (Me._tBDD_CONNECTIONTableAdapter) Is Nothing) Then - Dim updatedRows() As Global.System.Data.DataRow = dataSet.TBDD_CONNECTION.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.ModifiedCurrent) - updatedRows = Me.GetRealUpdatedRows(updatedRows, allAddedRows) - If ((Not (updatedRows) Is Nothing) _ - AndAlso (0 < updatedRows.Length)) Then - result = (result + Me._tBDD_CONNECTIONTableAdapter.Update(updatedRows)) - allChangedRows.AddRange(updatedRows) - End If - End If If (Not (Me._tBPM_PROFILE_FILESTableAdapter) Is Nothing) Then Dim updatedRows() As Global.System.Data.DataRow = dataSet.TBPM_PROFILE_FILES.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.ModifiedCurrent) updatedRows = Me.GetRealUpdatedRows(updatedRows, allAddedRows) @@ -20327,12 +21383,48 @@ Namespace DD_DMSLiteDataSetTableAdapters allChangedRows.AddRange(updatedRows) End If End If - If (Not (Me._tBPM_CONTROL_TABLETableAdapter) Is Nothing) Then - Dim updatedRows() As Global.System.Data.DataRow = dataSet.TBPM_CONTROL_TABLE.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.ModifiedCurrent) + If (Not (Me._tBDD_CONNECTIONTableAdapter) Is Nothing) Then + Dim updatedRows() As Global.System.Data.DataRow = dataSet.TBDD_CONNECTION.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.ModifiedCurrent) updatedRows = Me.GetRealUpdatedRows(updatedRows, allAddedRows) If ((Not (updatedRows) Is Nothing) _ AndAlso (0 < updatedRows.Length)) Then - result = (result + Me._tBPM_CONTROL_TABLETableAdapter.Update(updatedRows)) + result = (result + Me._tBDD_CONNECTIONTableAdapter.Update(updatedRows)) + allChangedRows.AddRange(updatedRows) + End If + End If + If (Not (Me._tBPM_ERROR_LOGTableAdapter) Is Nothing) Then + Dim updatedRows() As Global.System.Data.DataRow = dataSet.TBPM_ERROR_LOG.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.ModifiedCurrent) + updatedRows = Me.GetRealUpdatedRows(updatedRows, allAddedRows) + If ((Not (updatedRows) Is Nothing) _ + AndAlso (0 < updatedRows.Length)) Then + result = (result + Me._tBPM_ERROR_LOGTableAdapter.Update(updatedRows)) + allChangedRows.AddRange(updatedRows) + End If + End If + If (Not (Me._tBDD_USERTableAdapter) Is Nothing) Then + Dim updatedRows() As Global.System.Data.DataRow = dataSet.TBDD_USER.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.ModifiedCurrent) + updatedRows = Me.GetRealUpdatedRows(updatedRows, allAddedRows) + If ((Not (updatedRows) Is Nothing) _ + AndAlso (0 < updatedRows.Length)) Then + result = (result + Me._tBDD_USERTableAdapter.Update(updatedRows)) + allChangedRows.AddRange(updatedRows) + End If + End If + If (Not (Me._tBPM_KONFIGURATIONTableAdapter) Is Nothing) Then + Dim updatedRows() As Global.System.Data.DataRow = dataSet.TBPM_KONFIGURATION.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.ModifiedCurrent) + updatedRows = Me.GetRealUpdatedRows(updatedRows, allAddedRows) + If ((Not (updatedRows) Is Nothing) _ + AndAlso (0 < updatedRows.Length)) Then + result = (result + Me._tBPM_KONFIGURATIONTableAdapter.Update(updatedRows)) + allChangedRows.AddRange(updatedRows) + End If + End If + If (Not (Me._tBDD_EMAIL_TEMPLATETableAdapter) Is Nothing) Then + Dim updatedRows() As Global.System.Data.DataRow = dataSet.TBDD_EMAIL_TEMPLATE.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.ModifiedCurrent) + updatedRows = Me.GetRealUpdatedRows(updatedRows, allAddedRows) + If ((Not (updatedRows) Is Nothing) _ + AndAlso (0 < updatedRows.Length)) Then + result = (result + Me._tBDD_EMAIL_TEMPLATETableAdapter.Update(updatedRows)) allChangedRows.AddRange(updatedRows) End If End If @@ -20370,6 +21462,14 @@ Namespace DD_DMSLiteDataSetTableAdapters allAddedRows.AddRange(addedRows) End If End If + If (Not (Me._tBPM_CONTROL_TABLETableAdapter) Is Nothing) Then + Dim addedRows() As Global.System.Data.DataRow = dataSet.TBPM_CONTROL_TABLE.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added) + If ((Not (addedRows) Is Nothing) _ + AndAlso (0 < addedRows.Length)) Then + result = (result + Me._tBPM_CONTROL_TABLETableAdapter.Update(addedRows)) + allAddedRows.AddRange(addedRows) + End If + End If If (Not (Me._tBPM_PROFILE_FINAL_INDEXINGTableAdapter) Is Nothing) Then Dim addedRows() As Global.System.Data.DataRow = dataSet.TBPM_PROFILE_FINAL_INDEXING.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added) If ((Not (addedRows) Is Nothing) _ @@ -20378,38 +21478,6 @@ Namespace DD_DMSLiteDataSetTableAdapters allAddedRows.AddRange(addedRows) End If End If - If (Not (Me._tBPM_KONFIGURATIONTableAdapter) Is Nothing) Then - Dim addedRows() As Global.System.Data.DataRow = dataSet.TBPM_KONFIGURATION.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added) - If ((Not (addedRows) Is Nothing) _ - AndAlso (0 < addedRows.Length)) Then - result = (result + Me._tBPM_KONFIGURATIONTableAdapter.Update(addedRows)) - allAddedRows.AddRange(addedRows) - End If - End If - If (Not (Me._tBDD_USERTableAdapter) Is Nothing) Then - Dim addedRows() As Global.System.Data.DataRow = dataSet.TBDD_USER.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added) - If ((Not (addedRows) Is Nothing) _ - AndAlso (0 < addedRows.Length)) Then - result = (result + Me._tBDD_USERTableAdapter.Update(addedRows)) - allAddedRows.AddRange(addedRows) - End If - End If - If (Not (Me._tBPM_ERROR_LOGTableAdapter) Is Nothing) Then - Dim addedRows() As Global.System.Data.DataRow = dataSet.TBPM_ERROR_LOG.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added) - If ((Not (addedRows) Is Nothing) _ - AndAlso (0 < addedRows.Length)) Then - result = (result + Me._tBPM_ERROR_LOGTableAdapter.Update(addedRows)) - allAddedRows.AddRange(addedRows) - End If - End If - If (Not (Me._tBDD_CONNECTIONTableAdapter) Is Nothing) Then - Dim addedRows() As Global.System.Data.DataRow = dataSet.TBDD_CONNECTION.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added) - If ((Not (addedRows) Is Nothing) _ - AndAlso (0 < addedRows.Length)) Then - result = (result + Me._tBDD_CONNECTIONTableAdapter.Update(addedRows)) - allAddedRows.AddRange(addedRows) - End If - End If If (Not (Me._tBPM_PROFILE_FILESTableAdapter) Is Nothing) Then Dim addedRows() As Global.System.Data.DataRow = dataSet.TBPM_PROFILE_FILES.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added) If ((Not (addedRows) Is Nothing) _ @@ -20418,11 +21486,43 @@ Namespace DD_DMSLiteDataSetTableAdapters allAddedRows.AddRange(addedRows) End If End If - If (Not (Me._tBPM_CONTROL_TABLETableAdapter) Is Nothing) Then - Dim addedRows() As Global.System.Data.DataRow = dataSet.TBPM_CONTROL_TABLE.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added) + If (Not (Me._tBDD_CONNECTIONTableAdapter) Is Nothing) Then + Dim addedRows() As Global.System.Data.DataRow = dataSet.TBDD_CONNECTION.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added) If ((Not (addedRows) Is Nothing) _ AndAlso (0 < addedRows.Length)) Then - result = (result + Me._tBPM_CONTROL_TABLETableAdapter.Update(addedRows)) + result = (result + Me._tBDD_CONNECTIONTableAdapter.Update(addedRows)) + allAddedRows.AddRange(addedRows) + End If + End If + If (Not (Me._tBPM_ERROR_LOGTableAdapter) Is Nothing) Then + Dim addedRows() As Global.System.Data.DataRow = dataSet.TBPM_ERROR_LOG.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added) + If ((Not (addedRows) Is Nothing) _ + AndAlso (0 < addedRows.Length)) Then + result = (result + Me._tBPM_ERROR_LOGTableAdapter.Update(addedRows)) + allAddedRows.AddRange(addedRows) + End If + End If + If (Not (Me._tBDD_USERTableAdapter) Is Nothing) Then + Dim addedRows() As Global.System.Data.DataRow = dataSet.TBDD_USER.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added) + If ((Not (addedRows) Is Nothing) _ + AndAlso (0 < addedRows.Length)) Then + result = (result + Me._tBDD_USERTableAdapter.Update(addedRows)) + allAddedRows.AddRange(addedRows) + End If + End If + If (Not (Me._tBPM_KONFIGURATIONTableAdapter) Is Nothing) Then + Dim addedRows() As Global.System.Data.DataRow = dataSet.TBPM_KONFIGURATION.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added) + If ((Not (addedRows) Is Nothing) _ + AndAlso (0 < addedRows.Length)) Then + result = (result + Me._tBPM_KONFIGURATIONTableAdapter.Update(addedRows)) + allAddedRows.AddRange(addedRows) + End If + End If + If (Not (Me._tBDD_EMAIL_TEMPLATETableAdapter) Is Nothing) Then + Dim addedRows() As Global.System.Data.DataRow = dataSet.TBDD_EMAIL_TEMPLATE.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added) + If ((Not (addedRows) Is Nothing) _ + AndAlso (0 < addedRows.Length)) Then + result = (result + Me._tBDD_EMAIL_TEMPLATETableAdapter.Update(addedRows)) allAddedRows.AddRange(addedRows) End If End If @@ -20436,43 +21536,11 @@ Namespace DD_DMSLiteDataSetTableAdapters Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Private Function UpdateDeletedRows(ByVal dataSet As DD_DMSLiteDataSet, ByVal allChangedRows As Global.System.Collections.Generic.List(Of Global.System.Data.DataRow)) As Integer Dim result As Integer = 0 - If (Not (Me._tBPM_CONTROL_TABLETableAdapter) Is Nothing) Then - Dim deletedRows() As Global.System.Data.DataRow = dataSet.TBPM_CONTROL_TABLE.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted) + If (Not (Me._tBDD_EMAIL_TEMPLATETableAdapter) Is Nothing) Then + Dim deletedRows() As Global.System.Data.DataRow = dataSet.TBDD_EMAIL_TEMPLATE.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted) If ((Not (deletedRows) Is Nothing) _ AndAlso (0 < deletedRows.Length)) Then - result = (result + Me._tBPM_CONTROL_TABLETableAdapter.Update(deletedRows)) - allChangedRows.AddRange(deletedRows) - End If - End If - If (Not (Me._tBPM_PROFILE_FILESTableAdapter) Is Nothing) Then - Dim deletedRows() As Global.System.Data.DataRow = dataSet.TBPM_PROFILE_FILES.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted) - If ((Not (deletedRows) Is Nothing) _ - AndAlso (0 < deletedRows.Length)) Then - result = (result + Me._tBPM_PROFILE_FILESTableAdapter.Update(deletedRows)) - allChangedRows.AddRange(deletedRows) - End If - End If - If (Not (Me._tBDD_CONNECTIONTableAdapter) Is Nothing) Then - Dim deletedRows() As Global.System.Data.DataRow = dataSet.TBDD_CONNECTION.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted) - If ((Not (deletedRows) Is Nothing) _ - AndAlso (0 < deletedRows.Length)) Then - result = (result + Me._tBDD_CONNECTIONTableAdapter.Update(deletedRows)) - allChangedRows.AddRange(deletedRows) - End If - End If - If (Not (Me._tBPM_ERROR_LOGTableAdapter) Is Nothing) Then - Dim deletedRows() As Global.System.Data.DataRow = dataSet.TBPM_ERROR_LOG.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted) - If ((Not (deletedRows) Is Nothing) _ - AndAlso (0 < deletedRows.Length)) Then - result = (result + Me._tBPM_ERROR_LOGTableAdapter.Update(deletedRows)) - allChangedRows.AddRange(deletedRows) - End If - End If - If (Not (Me._tBDD_USERTableAdapter) Is Nothing) Then - Dim deletedRows() As Global.System.Data.DataRow = dataSet.TBDD_USER.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted) - If ((Not (deletedRows) Is Nothing) _ - AndAlso (0 < deletedRows.Length)) Then - result = (result + Me._tBDD_USERTableAdapter.Update(deletedRows)) + result = (result + Me._tBDD_EMAIL_TEMPLATETableAdapter.Update(deletedRows)) allChangedRows.AddRange(deletedRows) End If End If @@ -20484,6 +21552,38 @@ Namespace DD_DMSLiteDataSetTableAdapters allChangedRows.AddRange(deletedRows) End If End If + If (Not (Me._tBDD_USERTableAdapter) Is Nothing) Then + Dim deletedRows() As Global.System.Data.DataRow = dataSet.TBDD_USER.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted) + If ((Not (deletedRows) Is Nothing) _ + AndAlso (0 < deletedRows.Length)) Then + result = (result + Me._tBDD_USERTableAdapter.Update(deletedRows)) + allChangedRows.AddRange(deletedRows) + End If + End If + If (Not (Me._tBPM_ERROR_LOGTableAdapter) Is Nothing) Then + Dim deletedRows() As Global.System.Data.DataRow = dataSet.TBPM_ERROR_LOG.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted) + If ((Not (deletedRows) Is Nothing) _ + AndAlso (0 < deletedRows.Length)) Then + result = (result + Me._tBPM_ERROR_LOGTableAdapter.Update(deletedRows)) + allChangedRows.AddRange(deletedRows) + End If + End If + If (Not (Me._tBDD_CONNECTIONTableAdapter) Is Nothing) Then + Dim deletedRows() As Global.System.Data.DataRow = dataSet.TBDD_CONNECTION.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted) + If ((Not (deletedRows) Is Nothing) _ + AndAlso (0 < deletedRows.Length)) Then + result = (result + Me._tBDD_CONNECTIONTableAdapter.Update(deletedRows)) + allChangedRows.AddRange(deletedRows) + End If + End If + If (Not (Me._tBPM_PROFILE_FILESTableAdapter) Is Nothing) Then + Dim deletedRows() As Global.System.Data.DataRow = dataSet.TBPM_PROFILE_FILES.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted) + If ((Not (deletedRows) Is Nothing) _ + AndAlso (0 < deletedRows.Length)) Then + result = (result + Me._tBPM_PROFILE_FILESTableAdapter.Update(deletedRows)) + allChangedRows.AddRange(deletedRows) + End If + End If If (Not (Me._tBPM_PROFILE_FINAL_INDEXINGTableAdapter) Is Nothing) Then Dim deletedRows() As Global.System.Data.DataRow = dataSet.TBPM_PROFILE_FINAL_INDEXING.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted) If ((Not (deletedRows) Is Nothing) _ @@ -20492,6 +21592,14 @@ Namespace DD_DMSLiteDataSetTableAdapters allChangedRows.AddRange(deletedRows) End If End If + If (Not (Me._tBPM_CONTROL_TABLETableAdapter) Is Nothing) Then + Dim deletedRows() As Global.System.Data.DataRow = dataSet.TBPM_CONTROL_TABLE.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted) + If ((Not (deletedRows) Is Nothing) _ + AndAlso (0 < deletedRows.Length)) Then + result = (result + Me._tBPM_CONTROL_TABLETableAdapter.Update(deletedRows)) + allChangedRows.AddRange(deletedRows) + End If + End If If (Not (Me._tBPM_PROFILE_CONTROLSTableAdapter) Is Nothing) Then Dim deletedRows() As Global.System.Data.DataRow = dataSet.TBPM_PROFILE_CONTROLS.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted) If ((Not (deletedRows) Is Nothing) _ @@ -20607,6 +21715,11 @@ Namespace DD_DMSLiteDataSetTableAdapters Throw New Global.System.ArgumentException("Für alle von einem TableAdapterManager verwalteten Instanzen von TableAdapter mus"& _ "s die gleiche Verbindungszeichenfolge verwendet werden.") End If + If ((Not (Me._tBDD_EMAIL_TEMPLATETableAdapter) Is Nothing) _ + AndAlso (Me.MatchTableAdapterConnection(Me._tBDD_EMAIL_TEMPLATETableAdapter.Connection) = false)) Then + Throw New Global.System.ArgumentException("Für alle von einem TableAdapterManager verwalteten Instanzen von TableAdapter mus"& _ + "s die gleiche Verbindungszeichenfolge verwendet werden.") + End If Dim workConnection As Global.System.Data.IDbConnection = Me.Connection If (workConnection Is Nothing) Then Throw New Global.System.ApplicationException("TableAdapterManager enthält keine Verbindungsinformationen. Legen Sie jede TableA"& _ @@ -20731,6 +21844,15 @@ Namespace DD_DMSLiteDataSetTableAdapters adaptersWithAcceptChangesDuringUpdate.Add(Me._tBPM_CONTROL_TABLETableAdapter.Adapter) End If End If + If (Not (Me._tBDD_EMAIL_TEMPLATETableAdapter) Is Nothing) Then + revertConnections.Add(Me._tBDD_EMAIL_TEMPLATETableAdapter, Me._tBDD_EMAIL_TEMPLATETableAdapter.Connection) + Me._tBDD_EMAIL_TEMPLATETableAdapter.Connection = CType(workConnection,Global.System.Data.SqlClient.SqlConnection) + Me._tBDD_EMAIL_TEMPLATETableAdapter.Transaction = CType(workTransaction,Global.System.Data.SqlClient.SqlTransaction) + If Me._tBDD_EMAIL_TEMPLATETableAdapter.Adapter.AcceptChangesDuringUpdate Then + Me._tBDD_EMAIL_TEMPLATETableAdapter.Adapter.AcceptChangesDuringUpdate = false + adaptersWithAcceptChangesDuringUpdate.Add(Me._tBDD_EMAIL_TEMPLATETableAdapter.Adapter) + End If + End If ' '---- Perform updates ----------- ' @@ -20831,6 +21953,10 @@ Namespace DD_DMSLiteDataSetTableAdapters Me._tBPM_CONTROL_TABLETableAdapter.Connection = CType(revertConnections(Me._tBPM_CONTROL_TABLETableAdapter),Global.System.Data.SqlClient.SqlConnection) Me._tBPM_CONTROL_TABLETableAdapter.Transaction = Nothing End If + If (Not (Me._tBDD_EMAIL_TEMPLATETableAdapter) Is Nothing) Then + Me._tBDD_EMAIL_TEMPLATETableAdapter.Connection = CType(revertConnections(Me._tBDD_EMAIL_TEMPLATETableAdapter),Global.System.Data.SqlClient.SqlConnection) + Me._tBDD_EMAIL_TEMPLATETableAdapter.Transaction = Nothing + End If If (0 < adaptersWithAcceptChangesDuringUpdate.Count) Then Dim adapters((adaptersWithAcceptChangesDuringUpdate.Count) - 1) As Global.System.Data.Common.DataAdapter adaptersWithAcceptChangesDuringUpdate.CopyTo(adapters) diff --git a/app/DD_PM_WINDREAM/DD_DMSLiteDataSet.xsc b/app/DD_PM_WINDREAM/DD_DMSLiteDataSet.xsc index 841d30e..b6f023b 100644 --- a/app/DD_PM_WINDREAM/DD_DMSLiteDataSet.xsc +++ b/app/DD_PM_WINDREAM/DD_DMSLiteDataSet.xsc @@ -81,5 +81,23 @@ + + + + + + + + + + + + + + + + + + \ No newline at end of file diff --git a/app/DD_PM_WINDREAM/DD_DMSLiteDataSet.xsd b/app/DD_PM_WINDREAM/DD_DMSLiteDataSet.xsd index 12b027a..58e52f2 100644 --- a/app/DD_PM_WINDREAM/DD_DMSLiteDataSet.xsd +++ b/app/DD_PM_WINDREAM/DD_DMSLiteDataSet.xsd @@ -643,23 +643,23 @@ WHERE (PROFIL_ID = @PROF_ID) - + DELETE FROM TBDD_CONNECTION WHERE (GUID = @Original_GUID) - + INSERT INTO TBDD_CONNECTION - (BEZEICHNUNG, SQL_PROVIDER, SERVER, DATENBANK, USERNAME, PASSWORD, BEMERKUNG, AKTIV, ERSTELLTWER) -VALUES (@BEZEICHNUNG,@SQL_PROVIDER,@SERVER,@DATENBANK,@USERNAME,@PASSWORD,@BEMERKUNG,@AKTIV,@ERSTELLTWER); + (BEZEICHNUNG, SQL_PROVIDER, SERVER, DATENBANK, USERNAME, PASSWORD, BEMERKUNG, AKTIV, ERSTELLTWER, SYS_CONNECTION) +VALUES (@BEZEICHNUNG,@SQL_PROVIDER,@SERVER,@DATENBANK,@USERNAME,@PASSWORD,@BEMERKUNG,@AKTIV,@ERSTELLTWER,@SYS_CONNECTION); SELECT GUID, BEZEICHNUNG, SQL_PROVIDER, SERVER, DATENBANK, USERNAME, PASSWORD, BEMERKUNG, AKTIV, ERSTELLTWER, ERSTELLTWANN, GEANDERTWER, GEAENDERTWANN FROM TBDD_CONNECTION WHERE (GUID = SCOPE_IDENTITY()) - + @@ -667,12 +667,13 @@ SELECT GUID, BEZEICHNUNG, SQL_PROVIDER, SERVER, DATENBANK, USERNAME, PASSWORD, B + - SELECT GUID, BEZEICHNUNG, SQL_PROVIDER, SERVER, DATENBANK, USERNAME, PASSWORD, BEMERKUNG, AKTIV, ERSTELLTWER, ERSTELLTWANN, GEANDERTWER, GEAENDERTWANN + SELECT GUID, BEZEICHNUNG, SQL_PROVIDER, SERVER, DATENBANK, USERNAME, PASSWORD, BEMERKUNG, AKTIV, ERSTELLTWER, ERSTELLTWANN, GEANDERTWER, GEAENDERTWANN, SYS_CONNECTION FROM TBDD_CONNECTION @@ -681,12 +682,12 @@ FROM TBDD_CONNECTION UPDATE TBDD_CONNECTION SET BEZEICHNUNG = @BEZEICHNUNG, SQL_PROVIDER = @SQL_PROVIDER, SERVER = @SERVER, DATENBANK = @DATENBANK, USERNAME = @USERNAME, PASSWORD = @PASSWORD, BEMERKUNG = @BEMERKUNG, - AKTIV = @AKTIV, GEANDERTWER = @GEANDERTWER -WHERE (GUID = @Original_GUID); + AKTIV = @AKTIV, GEANDERTWER = @GEANDERTWER, SYS_CONNECTION = @SYS_CONNECTION +WHERE (GUID = @Original_GUID); SELECT GUID, BEZEICHNUNG, SQL_PROVIDER, SERVER, DATENBANK, USERNAME, PASSWORD, BEMERKUNG, AKTIV, ERSTELLTWER, ERSTELLTWANN, GEANDERTWER, GEAENDERTWANN FROM TBDD_CONNECTION WHERE (GUID = @GUID) - + @@ -694,6 +695,7 @@ SELECT GUID, BEZEICHNUNG, SQL_PROVIDER, SERVER, DATENBANK, USERNAME, PASSWORD, B + @@ -715,33 +717,35 @@ SELECT GUID, BEZEICHNUNG, SQL_PROVIDER, SERVER, DATENBANK, USERNAME, PASSWORD, B + INSERT INTO TBDD_CONNECTION - (BEZEICHNUNG, SQL_PROVIDER, SERVER, DATENBANK, USERNAME, PASSWORD, BEMERKUNG, AKTIV, ERSTELLTWER) -VALUES (@BEZEICHNUNG,@SQL_PROVIDER,@SERVER,@DATENBANK,@USERNAME,@PASSWORD,@BEMERKUNG,@AKTIV,@ERSTELLTWER); + (BEZEICHNUNG, SQL_PROVIDER, SERVER, DATENBANK, USERNAME, PASSWORD, BEMERKUNG, AKTIV, ERSTELLTWER, SYS_CONNECTION) +VALUES (@BEZEICHNUNG,@SQL_PROVIDER,@SERVER,@DATENBANK,@USERNAME,@PASSWORD,@BEMERKUNG,@AKTIV,@ERSTELLTWER,@SYS_CONNECTION); SELECT GUID, BEZEICHNUNG, SQL_PROVIDER, SERVER, DATENBANK, USERNAME, PASSWORD, BEMERKUNG, AKTIV, ERSTELLTWER, ERSTELLTWANN, GEANDERTWER, GEAENDERTWANN FROM TBDD_CONNECTION WHERE (GUID = SCOPE_IDENTITY()) - - - - - - - - - + + + + + + + + + + - + - SELECT GUID, BEZEICHNUNG, SQL_PROVIDER, SERVER, DATENBANK, USERNAME, PASSWORD, BEMERKUNG, AKTIV, ERSTELLTWER, ERSTELLTWANN, GEANDERTWER, GEAENDERTWANN + SELECT GUID, BEZEICHNUNG, SQL_PROVIDER, SERVER, DATENBANK, USERNAME, PASSWORD, BEMERKUNG, AKTIV, ERSTELLTWER, ERSTELLTWANN, GEANDERTWER, GEAENDERTWANN, SYS_CONNECTION FROM TBDD_CONNECTION WHERE (GUID = @ID) @@ -1837,6 +1841,75 @@ FROM dbo.FNPM_GET_FREE_USER_FOR_PROFILE(@PROFILE_ID) AS FNPM_GET_FREE + + + + + + DELETE FROM TBDD_EMAIL_TEMPLATE +WHERE (GUID = @Original_GUID) + + + + + + + + INSERT INTO TBDD_EMAIL_TEMPLATE + (TITLE, EMAIL_SUBJECT, EMAIL_BODY1, EMAIL_BODY2, EMAIL_BODY3, ADDED_WHO) +VALUES (@TITLE,@EMAIL_SUBJECT,@EMAIL_BODY1,@EMAIL_BODY2,@EMAIL_BODY3,@ADDED_WHO); +SELECT GUID, TITLE, EMAIL_SUBJECT, EMAIL_BODY1, EMAIL_BODY2, EMAIL_BODY3, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN FROM TBDD_EMAIL_TEMPLATE WHERE (GUID = SCOPE_IDENTITY()) + + + + + + + + + + + + + SELECT TBDD_EMAIL_TEMPLATE.* +FROM TBDD_EMAIL_TEMPLATE + + + + + + UPDATE TBDD_EMAIL_TEMPLATE +SET TITLE = @TITLE, EMAIL_SUBJECT = @EMAIL_SUBJECT, EMAIL_BODY1 = @EMAIL_BODY1, EMAIL_BODY2 = @EMAIL_BODY2, EMAIL_BODY3 = @EMAIL_BODY3, CHANGED_WHO = @CHANGED_WHO +WHERE (GUID = @Original_GUID); +SELECT GUID, TITLE, EMAIL_SUBJECT, EMAIL_BODY1, EMAIL_BODY2, EMAIL_BODY3, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN FROM TBDD_EMAIL_TEMPLATE WHERE (GUID = @GUID) + + + + + + + + + + + + + + + + + + + + + + + + + + + + @@ -2130,7 +2203,7 @@ FROM dbo.FNPM_GET_FREE_USER_FOR_PROFILE(@PROFILE_ID) AS FNPM_GET_FREE - + @@ -2189,6 +2262,7 @@ FROM dbo.FNPM_GET_FREE_USER_FOR_PROFILE(@PROFILE_ID) AS FNPM_GET_FREE + @@ -2840,6 +2914,64 @@ FROM dbo.FNPM_GET_FREE_USER_FOR_PROFILE(@PROFILE_ID) AS FNPM_GET_FREE + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + @@ -2910,6 +3042,10 @@ FROM dbo.FNPM_GET_FREE_USER_FOR_PROFILE(@PROFILE_ID) AS FNPM_GET_FREE + + + + diff --git a/app/DD_PM_WINDREAM/DD_DMSLiteDataSet.xss b/app/DD_PM_WINDREAM/DD_DMSLiteDataSet.xss index 251ebf1..a217dc9 100644 --- a/app/DD_PM_WINDREAM/DD_DMSLiteDataSet.xss +++ b/app/DD_PM_WINDREAM/DD_DMSLiteDataSet.xss @@ -4,27 +4,28 @@ Changes to this file may cause incorrect behavior and will be lost if the code is regenerated. --> - + - - - - - - - - - - - - - - - - + + + + + + + + + + + + + + + + + - + 549 @@ -36,7 +37,7 @@ - + 175 @@ -52,7 +53,7 @@ - + 603 @@ -64,7 +65,7 @@ - + 1246 @@ -76,7 +77,7 @@ - + 141 diff --git a/app/DD_PM_WINDREAM/DD_PM_WINDREAM.vbproj b/app/DD_PM_WINDREAM/DD_PM_WINDREAM.vbproj index 18841b8..0c5d4d9 100644 --- a/app/DD_PM_WINDREAM/DD_PM_WINDREAM.vbproj +++ b/app/DD_PM_WINDREAM/DD_PM_WINDREAM.vbproj @@ -80,7 +80,6 @@ False - @@ -89,11 +88,9 @@ False - False - @@ -102,27 +99,21 @@ False - False - False - False - False - False - @@ -130,17 +121,14 @@ False - False - False - ..\..\..\DDMonorepo\Controls.DocumentViewer\bin\Debug\DigitalData.Controls.DocumentViewer.dll @@ -258,6 +246,12 @@ DD_DMSLiteDataSet.xsd + + frmAdmin2.vb + + + Form + frmAdminPasswort.vb @@ -336,6 +330,12 @@ Form + + frmPreviewHtml.vb + + + Form + frmRegexEditor.vb @@ -410,6 +410,9 @@ frmAbout.vb + + frmAdmin2.vb + frmAdminPasswort.vb @@ -457,6 +460,9 @@ frmKonfig.vb + + frmPreviewHtml.vb + frmRegexEditor.vb @@ -750,6 +756,7 @@ + diff --git a/app/DD_PM_WINDREAM/My Project/Resources.Designer.vb b/app/DD_PM_WINDREAM/My Project/Resources.Designer.vb index 52e5c92..a10106a 100644 --- a/app/DD_PM_WINDREAM/My Project/Resources.Designer.vb +++ b/app/DD_PM_WINDREAM/My Project/Resources.Designer.vb @@ -510,6 +510,16 @@ Namespace My.Resources End Get End Property + ''' + ''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap. + ''' + Friend ReadOnly Property Hammer_Builder_16xLG() As System.Drawing.Bitmap + Get + Dim obj As Object = ResourceManager.GetObject("Hammer_Builder_16xLG", resourceCulture) + Return CType(obj,System.Drawing.Bitmap) + End Get + End Property + ''' ''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap. ''' diff --git a/app/DD_PM_WINDREAM/My Project/Resources.resx b/app/DD_PM_WINDREAM/My Project/Resources.resx index 5a15b2f..74c24b9 100644 --- a/app/DD_PM_WINDREAM/My Project/Resources.resx +++ b/app/DD_PM_WINDREAM/My Project/Resources.resx @@ -121,9 +121,18 @@ ..\Resources\refresh_16xLG.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + ..\Resources\arrow_refresh.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + ..\Resources\asterisk_yellow.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + ..\Resources\action_add_16xLG.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + + ..\Resources\database_save.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + ..\Resources\key.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a @@ -142,8 +151,8 @@ ..\Resources\save.bmp;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a - - ..\Resources\Open_6296.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + ..\Resources\ampel-rot.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a ..\Resources\doc.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a @@ -169,12 +178,15 @@ ..\Resources\zoom_in.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a - - ..\Resources\ampel-rot.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a - ..\Resources\Settings.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + ..\Resources\Search(Go)_5718.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + + ..\Resources\ampel-gruen.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + ..\Resources\application_form_edit.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a @@ -187,9 +199,6 @@ ..\Resources\txt.PNG;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a - - ..\Resources\properties_16xLG.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a - ..\Resources\checkbox_16xLG.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a @@ -229,8 +238,8 @@ ..\Resources\flag_pink.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a - - ..\Resources\magifier_zoom_out.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + ..\Resources\page_copy.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a ..\Resources\resultset_next.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a @@ -241,8 +250,8 @@ ..\Resources\search_glyph.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a - - ..\Resources\page_copy.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + ..\Resources\properties_16xLG.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a ..\Resources\resultset_last.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a @@ -253,11 +262,8 @@ ..\Resources\refresh_16xMD.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a - - ..\Resources\user.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a - - - ..\Resources\ampel-gruen.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + ..\Resources\shape_square_go.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a ..\Resources\A_1.ico;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a @@ -277,21 +283,12 @@ ..\Resources\delete_12x12.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a - - ..\Resources\bullet_orange.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a - ..\Resources\Nextrequest_10302.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a - - ..\Resources\bullet_red.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a - ..\Resources\cancel.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a - - ..\Resources\shape_square_go.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a - ..\Resources\bullet_green.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a @@ -304,6 +301,9 @@ ..\Resources\database_link.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + ..\Resources\Open_6296.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + ..\Resources\lbl.PNG;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a @@ -313,8 +313,8 @@ ..\Resources\flag_orange.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a - - ..\Resources\arrow_refresh.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + ..\Resources\bullet_red.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a ..\Resources\resultset_previous.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a @@ -337,6 +337,9 @@ ..\Resources\doc_text_image.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + ..\Resources\Einstellungen6.ico;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + ..\Resources\pdf.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a @@ -346,8 +349,8 @@ ..\Resources\WorkItem_16xMD.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a - - ..\Resources\action_add_16xLG.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + ..\Resources\user.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a ..\Resources\resultset_first.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a @@ -361,14 +364,14 @@ ..\Resources\zoom_out.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a - - ..\Resources\database_save.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + ..\Resources\bullet_orange.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a ..\Resources\Checkbox.PNG;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a - - ..\Resources\Einstellungen6.ico;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + ..\Resources\magifier_zoom_out.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a ..\Resources\key1.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a @@ -376,7 +379,7 @@ ..\Resources\user_red.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a - - ..\Resources\Search(Go)_5718.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + ..\Resources\Hammer_Builder_16xLG.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a \ No newline at end of file diff --git a/app/DD_PM_WINDREAM/My Project/licenses.licx b/app/DD_PM_WINDREAM/My Project/licenses.licx index 3b1559f..dc24875 100644 --- a/app/DD_PM_WINDREAM/My Project/licenses.licx +++ b/app/DD_PM_WINDREAM/My Project/licenses.licx @@ -1 +1,4 @@ -DevExpress.XtraBars.BarManager, DevExpress.XtraBars.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a +DevExpress.XtraGrid.GridControl, DevExpress.XtraGrid.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a +DevExpress.XtraNavBar.NavBarControl, DevExpress.XtraNavBar.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a +DevExpress.XtraBars.Ribbon.RibbonControl, DevExpress.XtraBars.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a +DevExpress.XtraCharts.ChartControl, DevExpress.XtraCharts.v19.2.UI, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a diff --git a/app/DD_PM_WINDREAM/My Project/licenses.licx.bak b/app/DD_PM_WINDREAM/My Project/licenses.licx.bak index 4a16e8c..3b1559f 100644 --- a/app/DD_PM_WINDREAM/My Project/licenses.licx.bak +++ b/app/DD_PM_WINDREAM/My Project/licenses.licx.bak @@ -1,14 +1 @@ -DevExpress.XtraCharts.ChartControl, DevExpress.XtraCharts.v15.2.UI, 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.XtraBars.BarManager, DevExpress.XtraBars.v18.1, Version=18.1.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a -DevExpress.XtraGrid.GridControl, DevExpress.XtraGrid.v18.1, Version=18.1.5.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.v18.1, Version=18.1.5.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.Navigation.OfficeNavigationBar, 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.XtraCharts.ChartControl, DevExpress.XtraCharts.v18.1.UI, Version=18.1.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a -DevExpress.XtraEditors.GridLookUpEdit, DevExpress.XtraGrid.v15.2, Version=15.2.16.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a -DevExpress.XtraNavBar.NavBarControl, DevExpress.XtraNavBar.v18.1, Version=18.1.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a -DevExpress.XtraBars.Ribbon.RibbonControl, DevExpress.XtraBars.v18.1, Version=18.1.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a +DevExpress.XtraBars.BarManager, DevExpress.XtraBars.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a diff --git a/app/DD_PM_WINDREAM/Resources/Hammer_Builder_16xLG.png b/app/DD_PM_WINDREAM/Resources/Hammer_Builder_16xLG.png new file mode 100644 index 0000000..b2157ed Binary files /dev/null and b/app/DD_PM_WINDREAM/Resources/Hammer_Builder_16xLG.png differ diff --git a/app/DD_PM_WINDREAM/frmAdmin2.Designer.vb b/app/DD_PM_WINDREAM/frmAdmin2.Designer.vb new file mode 100644 index 0000000..11f57b7 --- /dev/null +++ b/app/DD_PM_WINDREAM/frmAdmin2.Designer.vb @@ -0,0 +1,536 @@ + +Partial Class frmAdmin2 + Inherits DevExpress.XtraBars.Ribbon.RibbonForm + + 'Das Formular überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen. + + Protected Overrides Sub Dispose(ByVal disposing As Boolean) + Try + If disposing AndAlso components IsNot Nothing Then + components.Dispose() + End If + Finally + MyBase.Dispose(disposing) + End Try + End Sub + + 'Wird vom Windows Form-Designer benötigt. + Private components As System.ComponentModel.IContainer + + 'Hinweis: Die folgende Prozedur ist für den Windows Form-Designer erforderlich. + 'Das Bearbeiten ist mit dem Windows Form-Designer möglich. + 'Das Bearbeiten mit dem Code-Editor ist nicht möglich. + + Private Sub InitializeComponent() + Me.components = New System.ComponentModel.Container() + Dim GUIDLabel As System.Windows.Forms.Label + Dim TITLELabel As System.Windows.Forms.Label + Dim EMAIL_SUBJECTLabel As System.Windows.Forms.Label + Dim EMAIL_BODY1Label As System.Windows.Forms.Label + Dim EMAIL_BODY2Label As System.Windows.Forms.Label + Dim EMAIL_BODY3Label As System.Windows.Forms.Label + Dim ADDED_WHOLabel As System.Windows.Forms.Label + Dim ADDED_WHENLabel As System.Windows.Forms.Label + Dim CHANGED_WHOLabel As System.Windows.Forms.Label + Dim CHANGED_WHENLabel As System.Windows.Forms.Label + Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmAdmin2)) + Me.RibbonControl1 = New DevExpress.XtraBars.Ribbon.RibbonControl() + Me.BbitemplateAdd = New DevExpress.XtraBars.BarButtonItem() + Me.BbitemplateSave = New DevExpress.XtraBars.BarButtonItem() + Me.BbitemplateDelete = New DevExpress.XtraBars.BarButtonItem() + Me.BarButtonItem1 = New DevExpress.XtraBars.BarButtonItem() + Me.labelStatus = New DevExpress.XtraBars.BarStaticItem() + Me.RibbonPage1 = New DevExpress.XtraBars.Ribbon.RibbonPage() + Me.RibbonPageGroup1 = New DevExpress.XtraBars.Ribbon.RibbonPageGroup() + Me.RibbonPageGroup2 = New DevExpress.XtraBars.Ribbon.RibbonPageGroup() + Me.RibbonStatusBar1 = New DevExpress.XtraBars.Ribbon.RibbonStatusBar() + Me.RibbonPage2 = New DevExpress.XtraBars.Ribbon.RibbonPage() + Me.XtraTabControl1 = New DevExpress.XtraTab.XtraTabControl() + Me.XtraTabPage1 = New DevExpress.XtraTab.XtraTabPage() + Me.Button1 = New System.Windows.Forms.Button() + Me.GridControl1 = New DevExpress.XtraGrid.GridControl() + Me.TBDD_EMAIL_TEMPLATEBindingSource = New System.Windows.Forms.BindingSource(Me.components) + Me.DD_DMSLiteDataSet = New DD_PM_WINDREAM.DD_DMSLiteDataSet() + Me.GridView1 = New DevExpress.XtraGrid.Views.Grid.GridView() + Me.colGUID = New DevExpress.XtraGrid.Columns.GridColumn() + Me.colTITLE = New DevExpress.XtraGrid.Columns.GridColumn() + Me.GUIDTextBox = New System.Windows.Forms.TextBox() + Me.TITLETextBox = New System.Windows.Forms.TextBox() + Me.EMAIL_SUBJECTTextBox = New System.Windows.Forms.TextBox() + Me.EMAIL_BODY1TextBox = New System.Windows.Forms.TextBox() + Me.EMAIL_BODY2TextBox = New System.Windows.Forms.TextBox() + Me.EMAIL_BODY3TextBox = New System.Windows.Forms.TextBox() + Me.ADDED_WHOTextBox = New System.Windows.Forms.TextBox() + Me.ADDED_WHENTextBox = New System.Windows.Forms.TextBox() + Me.CHANGED_WHOTextBox = New System.Windows.Forms.TextBox() + Me.CHANGED_WHENTextBox = New System.Windows.Forms.TextBox() + Me.XtraTabPage2 = New DevExpress.XtraTab.XtraTabPage() + Me.TBDD_EMAIL_TEMPLATETableAdapter = New DD_PM_WINDREAM.DD_DMSLiteDataSetTableAdapters.TBDD_EMAIL_TEMPLATETableAdapter() + Me.TableAdapterManager = New DD_PM_WINDREAM.DD_DMSLiteDataSetTableAdapters.TableAdapterManager() + GUIDLabel = New System.Windows.Forms.Label() + TITLELabel = New System.Windows.Forms.Label() + EMAIL_SUBJECTLabel = New System.Windows.Forms.Label() + EMAIL_BODY1Label = New System.Windows.Forms.Label() + EMAIL_BODY2Label = New System.Windows.Forms.Label() + EMAIL_BODY3Label = New System.Windows.Forms.Label() + ADDED_WHOLabel = New System.Windows.Forms.Label() + ADDED_WHENLabel = New System.Windows.Forms.Label() + CHANGED_WHOLabel = New System.Windows.Forms.Label() + CHANGED_WHENLabel = New System.Windows.Forms.Label() + CType(Me.RibbonControl1, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.XtraTabControl1, System.ComponentModel.ISupportInitialize).BeginInit() + Me.XtraTabControl1.SuspendLayout() + Me.XtraTabPage1.SuspendLayout() + CType(Me.GridControl1, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.TBDD_EMAIL_TEMPLATEBindingSource, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.DD_DMSLiteDataSet, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.GridView1, System.ComponentModel.ISupportInitialize).BeginInit() + Me.SuspendLayout() + ' + 'GUIDLabel + ' + GUIDLabel.AutoSize = True + GUIDLabel.Location = New System.Drawing.Point(221, 17) + GUIDLabel.Name = "GUIDLabel" + GUIDLabel.Size = New System.Drawing.Size(22, 13) + GUIDLabel.TabIndex = 0 + GUIDLabel.Text = "ID:" + ' + 'TITLELabel + ' + TITLELabel.AutoSize = True + TITLELabel.Location = New System.Drawing.Point(221, 44) + TITLELabel.Name = "TITLELabel" + TITLELabel.Size = New System.Drawing.Size(31, 13) + TITLELabel.TabIndex = 2 + TITLELabel.Text = "Titel:" + ' + 'EMAIL_SUBJECTLabel + ' + EMAIL_SUBJECTLabel.AutoSize = True + EMAIL_SUBJECTLabel.Location = New System.Drawing.Point(221, 71) + EMAIL_SUBJECTLabel.Name = "EMAIL_SUBJECTLabel" + EMAIL_SUBJECTLabel.Size = New System.Drawing.Size(45, 13) + EMAIL_SUBJECTLabel.TabIndex = 4 + EMAIL_SUBJECTLabel.Text = "Betreff:" + ' + 'EMAIL_BODY1Label + ' + EMAIL_BODY1Label.AutoSize = True + EMAIL_BODY1Label.Location = New System.Drawing.Point(221, 95) + EMAIL_BODY1Label.Name = "EMAIL_BODY1Label" + EMAIL_BODY1Label.Size = New System.Drawing.Size(41, 13) + EMAIL_BODY1Label.TabIndex = 6 + EMAIL_BODY1Label.Text = "Body1:" + ' + 'EMAIL_BODY2Label + ' + EMAIL_BODY2Label.AutoSize = True + EMAIL_BODY2Label.Location = New System.Drawing.Point(221, 168) + EMAIL_BODY2Label.Name = "EMAIL_BODY2Label" + EMAIL_BODY2Label.Size = New System.Drawing.Size(41, 13) + EMAIL_BODY2Label.TabIndex = 8 + EMAIL_BODY2Label.Text = "Body2:" + ' + 'EMAIL_BODY3Label + ' + EMAIL_BODY3Label.AutoSize = True + EMAIL_BODY3Label.Location = New System.Drawing.Point(221, 241) + EMAIL_BODY3Label.Name = "EMAIL_BODY3Label" + EMAIL_BODY3Label.Size = New System.Drawing.Size(41, 13) + EMAIL_BODY3Label.TabIndex = 10 + EMAIL_BODY3Label.Text = "Body3:" + ' + 'ADDED_WHOLabel + ' + ADDED_WHOLabel.AutoSize = True + ADDED_WHOLabel.Location = New System.Drawing.Point(221, 317) + ADDED_WHOLabel.Name = "ADDED_WHOLabel" + ADDED_WHOLabel.Size = New System.Drawing.Size(65, 13) + ADDED_WHOLabel.TabIndex = 12 + ADDED_WHOLabel.Text = "Erstellt wer:" + ' + 'ADDED_WHENLabel + ' + ADDED_WHENLabel.AutoSize = True + ADDED_WHENLabel.Location = New System.Drawing.Point(466, 317) + ADDED_WHENLabel.Name = "ADDED_WHENLabel" + ADDED_WHENLabel.Size = New System.Drawing.Size(73, 13) + ADDED_WHENLabel.TabIndex = 14 + ADDED_WHENLabel.Text = "Erstellt wann:" + ' + 'CHANGED_WHOLabel + ' + CHANGED_WHOLabel.AutoSize = True + CHANGED_WHOLabel.Location = New System.Drawing.Point(221, 347) + CHANGED_WHOLabel.Name = "CHANGED_WHOLabel" + CHANGED_WHOLabel.Size = New System.Drawing.Size(77, 13) + CHANGED_WHOLabel.TabIndex = 16 + CHANGED_WHOLabel.Text = "Geändert wer:" + ' + 'CHANGED_WHENLabel + ' + CHANGED_WHENLabel.AutoSize = True + CHANGED_WHENLabel.Location = New System.Drawing.Point(466, 347) + CHANGED_WHENLabel.Name = "CHANGED_WHENLabel" + CHANGED_WHENLabel.Size = New System.Drawing.Size(85, 13) + CHANGED_WHENLabel.TabIndex = 18 + CHANGED_WHENLabel.Text = "Geändert wann:" + ' + 'RibbonControl1 + ' + Me.RibbonControl1.ExpandCollapseItem.Id = 0 + Me.RibbonControl1.Items.AddRange(New DevExpress.XtraBars.BarItem() {Me.RibbonControl1.ExpandCollapseItem, Me.RibbonControl1.SearchEditItem, Me.BbitemplateAdd, Me.BbitemplateSave, Me.BbitemplateDelete, Me.BarButtonItem1, Me.labelStatus}) + Me.RibbonControl1.Location = New System.Drawing.Point(0, 0) + Me.RibbonControl1.MaxItemId = 6 + Me.RibbonControl1.Name = "RibbonControl1" + Me.RibbonControl1.Pages.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPage() {Me.RibbonPage1}) + Me.RibbonControl1.Size = New System.Drawing.Size(919, 158) + Me.RibbonControl1.StatusBar = Me.RibbonStatusBar1 + ' + 'BbitemplateAdd + ' + Me.BbitemplateAdd.Caption = "Neue Vorlage" + Me.BbitemplateAdd.Id = 1 + Me.BbitemplateAdd.ImageOptions.Image = CType(resources.GetObject("BbitemplateAdd.ImageOptions.Image"), System.Drawing.Image) + Me.BbitemplateAdd.ImageOptions.LargeImage = CType(resources.GetObject("BbitemplateAdd.ImageOptions.LargeImage"), System.Drawing.Image) + Me.BbitemplateAdd.Name = "BbitemplateAdd" + ' + 'BbitemplateSave + ' + Me.BbitemplateSave.Caption = "Speichern" + Me.BbitemplateSave.Id = 2 + Me.BbitemplateSave.ImageOptions.Image = CType(resources.GetObject("BbitemplateSave.ImageOptions.Image"), System.Drawing.Image) + Me.BbitemplateSave.ImageOptions.LargeImage = CType(resources.GetObject("BbitemplateSave.ImageOptions.LargeImage"), System.Drawing.Image) + Me.BbitemplateSave.Name = "BbitemplateSave" + ' + 'BbitemplateDelete + ' + Me.BbitemplateDelete.Caption = "Löschen" + Me.BbitemplateDelete.Id = 3 + Me.BbitemplateDelete.ImageOptions.Image = CType(resources.GetObject("BbitemplateDelete.ImageOptions.Image"), System.Drawing.Image) + Me.BbitemplateDelete.ImageOptions.LargeImage = CType(resources.GetObject("BbitemplateDelete.ImageOptions.LargeImage"), System.Drawing.Image) + Me.BbitemplateDelete.Name = "BbitemplateDelete" + Me.BbitemplateDelete.RibbonStyle = DevExpress.XtraBars.Ribbon.RibbonItemStyles.SmallWithText + ' + 'BarButtonItem1 + ' + Me.BarButtonItem1.Caption = "Neu laden" + Me.BarButtonItem1.Id = 4 + Me.BarButtonItem1.ImageOptions.AllowGlyphSkinning = DevExpress.Utils.DefaultBoolean.[True] + Me.BarButtonItem1.ImageOptions.AllowStubGlyph = DevExpress.Utils.DefaultBoolean.[True] + Me.BarButtonItem1.ImageOptions.Image = CType(resources.GetObject("BarButtonItem1.ImageOptions.Image"), System.Drawing.Image) + Me.BarButtonItem1.ImageOptions.LargeImage = CType(resources.GetObject("BarButtonItem1.ImageOptions.LargeImage"), System.Drawing.Image) + Me.BarButtonItem1.Name = "BarButtonItem1" + Me.BarButtonItem1.RibbonStyle = DevExpress.XtraBars.Ribbon.RibbonItemStyles.SmallWithText + ' + 'labelStatus + ' + Me.labelStatus.Id = 5 + Me.labelStatus.ImageOptions.Image = CType(resources.GetObject("labelStatus.ImageOptions.Image"), System.Drawing.Image) + Me.labelStatus.ImageOptions.LargeImage = CType(resources.GetObject("labelStatus.ImageOptions.LargeImage"), System.Drawing.Image) + Me.labelStatus.Name = "labelStatus" + Me.labelStatus.PaintStyle = DevExpress.XtraBars.BarItemPaintStyle.CaptionGlyph + ' + 'RibbonPage1 + ' + Me.RibbonPage1.Groups.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPageGroup() {Me.RibbonPageGroup1, Me.RibbonPageGroup2}) + Me.RibbonPage1.Name = "RibbonPage1" + Me.RibbonPage1.Text = "RibbonPage1" + ' + 'RibbonPageGroup1 + ' + Me.RibbonPageGroup1.ItemLinks.Add(Me.BbitemplateAdd) + Me.RibbonPageGroup1.ItemLinks.Add(Me.BbitemplateSave) + Me.RibbonPageGroup1.ItemLinks.Add(Me.BbitemplateDelete) + Me.RibbonPageGroup1.ItemLinks.Add(Me.BarButtonItem1) + Me.RibbonPageGroup1.Name = "RibbonPageGroup1" + Me.RibbonPageGroup1.Text = "Vorlagen Verwaltung" + ' + 'RibbonPageGroup2 + ' + Me.RibbonPageGroup2.Name = "RibbonPageGroup2" + Me.RibbonPageGroup2.Text = "RibbonPageGroup2" + ' + 'RibbonStatusBar1 + ' + Me.RibbonStatusBar1.ItemLinks.Add(Me.labelStatus) + Me.RibbonStatusBar1.Location = New System.Drawing.Point(0, 559) + Me.RibbonStatusBar1.Name = "RibbonStatusBar1" + Me.RibbonStatusBar1.Ribbon = Me.RibbonControl1 + Me.RibbonStatusBar1.Size = New System.Drawing.Size(919, 24) + ' + 'RibbonPage2 + ' + Me.RibbonPage2.Name = "RibbonPage2" + Me.RibbonPage2.Text = "RibbonPage2" + ' + 'XtraTabControl1 + ' + Me.XtraTabControl1.Dock = System.Windows.Forms.DockStyle.Fill + Me.XtraTabControl1.Location = New System.Drawing.Point(0, 158) + Me.XtraTabControl1.Name = "XtraTabControl1" + Me.XtraTabControl1.SelectedTabPage = Me.XtraTabPage1 + Me.XtraTabControl1.Size = New System.Drawing.Size(919, 401) + Me.XtraTabControl1.TabIndex = 2 + Me.XtraTabControl1.TabPages.AddRange(New DevExpress.XtraTab.XtraTabPage() {Me.XtraTabPage1, Me.XtraTabPage2}) + ' + 'XtraTabPage1 + ' + Me.XtraTabPage1.AutoScroll = True + Me.XtraTabPage1.Controls.Add(Me.Button1) + Me.XtraTabPage1.Controls.Add(Me.GridControl1) + Me.XtraTabPage1.Controls.Add(GUIDLabel) + Me.XtraTabPage1.Controls.Add(Me.GUIDTextBox) + Me.XtraTabPage1.Controls.Add(TITLELabel) + Me.XtraTabPage1.Controls.Add(Me.TITLETextBox) + Me.XtraTabPage1.Controls.Add(EMAIL_SUBJECTLabel) + Me.XtraTabPage1.Controls.Add(Me.EMAIL_SUBJECTTextBox) + Me.XtraTabPage1.Controls.Add(EMAIL_BODY1Label) + Me.XtraTabPage1.Controls.Add(Me.EMAIL_BODY1TextBox) + Me.XtraTabPage1.Controls.Add(EMAIL_BODY2Label) + Me.XtraTabPage1.Controls.Add(Me.EMAIL_BODY2TextBox) + Me.XtraTabPage1.Controls.Add(EMAIL_BODY3Label) + Me.XtraTabPage1.Controls.Add(Me.EMAIL_BODY3TextBox) + Me.XtraTabPage1.Controls.Add(ADDED_WHOLabel) + Me.XtraTabPage1.Controls.Add(Me.ADDED_WHOTextBox) + Me.XtraTabPage1.Controls.Add(ADDED_WHENLabel) + Me.XtraTabPage1.Controls.Add(Me.ADDED_WHENTextBox) + Me.XtraTabPage1.Controls.Add(CHANGED_WHOLabel) + Me.XtraTabPage1.Controls.Add(Me.CHANGED_WHOTextBox) + Me.XtraTabPage1.Controls.Add(CHANGED_WHENLabel) + Me.XtraTabPage1.Controls.Add(Me.CHANGED_WHENTextBox) + Me.XtraTabPage1.Name = "XtraTabPage1" + Me.XtraTabPage1.Size = New System.Drawing.Size(917, 376) + Me.XtraTabPage1.Text = "Email Inhalte Workflow" + ' + 'Button1 + ' + Me.Button1.Location = New System.Drawing.Point(769, 39) + Me.Button1.Name = "Button1" + Me.Button1.Size = New System.Drawing.Size(75, 23) + Me.Button1.TabIndex = 21 + Me.Button1.Text = "Vorschau" + Me.Button1.UseVisualStyleBackColor = True + ' + 'GridControl1 + ' + Me.GridControl1.DataSource = Me.TBDD_EMAIL_TEMPLATEBindingSource + Me.GridControl1.Dock = System.Windows.Forms.DockStyle.Left + Me.GridControl1.Location = New System.Drawing.Point(0, 0) + Me.GridControl1.MainView = Me.GridView1 + Me.GridControl1.MenuManager = Me.RibbonControl1 + Me.GridControl1.Name = "GridControl1" + Me.GridControl1.Size = New System.Drawing.Size(204, 376) + Me.GridControl1.TabIndex = 20 + Me.GridControl1.ViewCollection.AddRange(New DevExpress.XtraGrid.Views.Base.BaseView() {Me.GridView1}) + ' + 'TBDD_EMAIL_TEMPLATEBindingSource + ' + Me.TBDD_EMAIL_TEMPLATEBindingSource.DataMember = "TBDD_EMAIL_TEMPLATE" + Me.TBDD_EMAIL_TEMPLATEBindingSource.DataSource = Me.DD_DMSLiteDataSet + ' + 'DD_DMSLiteDataSet + ' + Me.DD_DMSLiteDataSet.DataSetName = "DD_DMSLiteDataSet" + Me.DD_DMSLiteDataSet.SchemaSerializationMode = System.Data.SchemaSerializationMode.IncludeSchema + ' + 'GridView1 + ' + Me.GridView1.Appearance.EvenRow.BackColor = System.Drawing.Color.PeachPuff + Me.GridView1.Appearance.EvenRow.Options.UseBackColor = True + Me.GridView1.Columns.AddRange(New DevExpress.XtraGrid.Columns.GridColumn() {Me.colGUID, Me.colTITLE}) + Me.GridView1.GridControl = Me.GridControl1 + Me.GridView1.Name = "GridView1" + Me.GridView1.OptionsView.EnableAppearanceEvenRow = True + ' + 'colGUID + ' + Me.colGUID.Caption = "ID" + Me.colGUID.FieldName = "GUID" + Me.colGUID.Name = "colGUID" + Me.colGUID.Visible = True + Me.colGUID.VisibleIndex = 0 + Me.colGUID.Width = 51 + ' + 'colTITLE + ' + Me.colTITLE.Caption = "Titel" + Me.colTITLE.FieldName = "TITLE" + Me.colTITLE.Name = "colTITLE" + Me.colTITLE.Visible = True + Me.colTITLE.VisibleIndex = 1 + Me.colTITLE.Width = 128 + ' + 'GUIDTextBox + ' + Me.GUIDTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBDD_EMAIL_TEMPLATEBindingSource, "GUID", True)) + Me.GUIDTextBox.Location = New System.Drawing.Point(323, 14) + Me.GUIDTextBox.Name = "GUIDTextBox" + Me.GUIDTextBox.Size = New System.Drawing.Size(100, 21) + Me.GUIDTextBox.TabIndex = 1 + ' + 'TITLETextBox + ' + Me.TITLETextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBDD_EMAIL_TEMPLATEBindingSource, "TITLE", True)) + Me.TITLETextBox.Location = New System.Drawing.Point(323, 41) + Me.TITLETextBox.Name = "TITLETextBox" + Me.TITLETextBox.Size = New System.Drawing.Size(428, 21) + Me.TITLETextBox.TabIndex = 3 + ' + 'EMAIL_SUBJECTTextBox + ' + Me.EMAIL_SUBJECTTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBDD_EMAIL_TEMPLATEBindingSource, "EMAIL_SUBJECT", True)) + Me.EMAIL_SUBJECTTextBox.Location = New System.Drawing.Point(323, 68) + Me.EMAIL_SUBJECTTextBox.Name = "EMAIL_SUBJECTTextBox" + Me.EMAIL_SUBJECTTextBox.Size = New System.Drawing.Size(428, 21) + Me.EMAIL_SUBJECTTextBox.TabIndex = 5 + ' + 'EMAIL_BODY1TextBox + ' + Me.EMAIL_BODY1TextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBDD_EMAIL_TEMPLATEBindingSource, "EMAIL_BODY1", True)) + Me.EMAIL_BODY1TextBox.Location = New System.Drawing.Point(323, 95) + Me.EMAIL_BODY1TextBox.Multiline = True + Me.EMAIL_BODY1TextBox.Name = "EMAIL_BODY1TextBox" + Me.EMAIL_BODY1TextBox.ScrollBars = System.Windows.Forms.ScrollBars.Both + Me.EMAIL_BODY1TextBox.Size = New System.Drawing.Size(583, 67) + Me.EMAIL_BODY1TextBox.TabIndex = 7 + ' + 'EMAIL_BODY2TextBox + ' + Me.EMAIL_BODY2TextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBDD_EMAIL_TEMPLATEBindingSource, "EMAIL_BODY2", True)) + Me.EMAIL_BODY2TextBox.Location = New System.Drawing.Point(323, 168) + Me.EMAIL_BODY2TextBox.Multiline = True + Me.EMAIL_BODY2TextBox.Name = "EMAIL_BODY2TextBox" + Me.EMAIL_BODY2TextBox.ScrollBars = System.Windows.Forms.ScrollBars.Both + Me.EMAIL_BODY2TextBox.Size = New System.Drawing.Size(583, 67) + Me.EMAIL_BODY2TextBox.TabIndex = 9 + ' + 'EMAIL_BODY3TextBox + ' + Me.EMAIL_BODY3TextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBDD_EMAIL_TEMPLATEBindingSource, "EMAIL_BODY3", True)) + Me.EMAIL_BODY3TextBox.Location = New System.Drawing.Point(323, 241) + Me.EMAIL_BODY3TextBox.Multiline = True + Me.EMAIL_BODY3TextBox.Name = "EMAIL_BODY3TextBox" + Me.EMAIL_BODY3TextBox.ScrollBars = System.Windows.Forms.ScrollBars.Both + Me.EMAIL_BODY3TextBox.Size = New System.Drawing.Size(583, 67) + Me.EMAIL_BODY3TextBox.TabIndex = 11 + ' + 'ADDED_WHOTextBox + ' + Me.ADDED_WHOTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBDD_EMAIL_TEMPLATEBindingSource, "ADDED_WHO", True)) + Me.ADDED_WHOTextBox.Location = New System.Drawing.Point(323, 314) + Me.ADDED_WHOTextBox.Name = "ADDED_WHOTextBox" + Me.ADDED_WHOTextBox.Size = New System.Drawing.Size(124, 21) + Me.ADDED_WHOTextBox.TabIndex = 13 + ' + 'ADDED_WHENTextBox + ' + Me.ADDED_WHENTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBDD_EMAIL_TEMPLATEBindingSource, "ADDED_WHEN", True)) + Me.ADDED_WHENTextBox.Location = New System.Drawing.Point(556, 314) + Me.ADDED_WHENTextBox.Name = "ADDED_WHENTextBox" + Me.ADDED_WHENTextBox.Size = New System.Drawing.Size(128, 21) + Me.ADDED_WHENTextBox.TabIndex = 15 + ' + 'CHANGED_WHOTextBox + ' + Me.CHANGED_WHOTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBDD_EMAIL_TEMPLATEBindingSource, "CHANGED_WHO", True)) + Me.CHANGED_WHOTextBox.Location = New System.Drawing.Point(323, 344) + Me.CHANGED_WHOTextBox.Name = "CHANGED_WHOTextBox" + Me.CHANGED_WHOTextBox.Size = New System.Drawing.Size(124, 21) + Me.CHANGED_WHOTextBox.TabIndex = 17 + ' + 'CHANGED_WHENTextBox + ' + Me.CHANGED_WHENTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBDD_EMAIL_TEMPLATEBindingSource, "CHANGED_WHEN", True)) + Me.CHANGED_WHENTextBox.Location = New System.Drawing.Point(556, 344) + Me.CHANGED_WHENTextBox.Name = "CHANGED_WHENTextBox" + Me.CHANGED_WHENTextBox.Size = New System.Drawing.Size(128, 21) + Me.CHANGED_WHENTextBox.TabIndex = 19 + ' + 'XtraTabPage2 + ' + Me.XtraTabPage2.Name = "XtraTabPage2" + Me.XtraTabPage2.Size = New System.Drawing.Size(917, 376) + Me.XtraTabPage2.Text = "XtraTabPage2" + ' + 'TBDD_EMAIL_TEMPLATETableAdapter + ' + Me.TBDD_EMAIL_TEMPLATETableAdapter.ClearBeforeFill = True + ' + 'TableAdapterManager + ' + Me.TableAdapterManager.BackupDataSetBeforeUpdate = False + Me.TableAdapterManager.TBDD_CONNECTIONTableAdapter = Nothing + Me.TableAdapterManager.TBDD_EMAIL_TEMPLATETableAdapter = Me.TBDD_EMAIL_TEMPLATETableAdapter + Me.TableAdapterManager.TBDD_USERTableAdapter = Nothing + Me.TableAdapterManager.TBPM_CONTROL_TABLETableAdapter = Nothing + Me.TableAdapterManager.TBPM_ERROR_LOGTableAdapter = Nothing + Me.TableAdapterManager.TBPM_KONFIGURATIONTableAdapter = Nothing + Me.TableAdapterManager.TBPM_PROFILE_CONTROLSTableAdapter = Nothing + Me.TableAdapterManager.TBPM_PROFILE_FILESTableAdapter = Nothing + Me.TableAdapterManager.TBPM_PROFILE_FINAL_INDEXINGTableAdapter = Nothing + Me.TableAdapterManager.TBPM_PROFILETableAdapter = Nothing + Me.TableAdapterManager.TBPM_TYPETableAdapter = Nothing + Me.TableAdapterManager.UpdateOrder = DD_PM_WINDREAM.DD_DMSLiteDataSetTableAdapters.TableAdapterManager.UpdateOrderOption.InsertUpdateDelete + ' + 'frmAdmin2 + ' + Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) + Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font + Me.ClientSize = New System.Drawing.Size(919, 583) + Me.Controls.Add(Me.XtraTabControl1) + Me.Controls.Add(Me.RibbonStatusBar1) + Me.Controls.Add(Me.RibbonControl1) + Me.Name = "frmAdmin2" + Me.Ribbon = Me.RibbonControl1 + Me.StatusBar = Me.RibbonStatusBar1 + Me.Text = "frmAdmin2" + CType(Me.RibbonControl1, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.XtraTabControl1, System.ComponentModel.ISupportInitialize).EndInit() + Me.XtraTabControl1.ResumeLayout(False) + Me.XtraTabPage1.ResumeLayout(False) + Me.XtraTabPage1.PerformLayout() + CType(Me.GridControl1, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.TBDD_EMAIL_TEMPLATEBindingSource, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.DD_DMSLiteDataSet, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.GridView1, System.ComponentModel.ISupportInitialize).EndInit() + Me.ResumeLayout(False) + Me.PerformLayout() + + End Sub + + Friend WithEvents RibbonControl1 As DevExpress.XtraBars.Ribbon.RibbonControl + Friend WithEvents RibbonPage1 As DevExpress.XtraBars.Ribbon.RibbonPage + Friend WithEvents RibbonPageGroup1 As DevExpress.XtraBars.Ribbon.RibbonPageGroup + Friend WithEvents RibbonPageGroup2 As DevExpress.XtraBars.Ribbon.RibbonPageGroup + Friend WithEvents RibbonStatusBar1 As DevExpress.XtraBars.Ribbon.RibbonStatusBar + Friend WithEvents RibbonPage2 As DevExpress.XtraBars.Ribbon.RibbonPage + Friend WithEvents XtraTabControl1 As DevExpress.XtraTab.XtraTabControl + Friend WithEvents XtraTabPage1 As DevExpress.XtraTab.XtraTabPage + Friend WithEvents XtraTabPage2 As DevExpress.XtraTab.XtraTabPage + Friend WithEvents DD_DMSLiteDataSet As DD_DMSLiteDataSet + Friend WithEvents TBDD_EMAIL_TEMPLATEBindingSource As BindingSource + Friend WithEvents TBDD_EMAIL_TEMPLATETableAdapter As DD_DMSLiteDataSetTableAdapters.TBDD_EMAIL_TEMPLATETableAdapter + Friend WithEvents TableAdapterManager As DD_DMSLiteDataSetTableAdapters.TableAdapterManager + Friend WithEvents BbitemplateAdd As DevExpress.XtraBars.BarButtonItem + Friend WithEvents BbitemplateSave As DevExpress.XtraBars.BarButtonItem + Friend WithEvents BbitemplateDelete As DevExpress.XtraBars.BarButtonItem + Friend WithEvents GridControl1 As DevExpress.XtraGrid.GridControl + Friend WithEvents GridView1 As DevExpress.XtraGrid.Views.Grid.GridView + Friend WithEvents colGUID As DevExpress.XtraGrid.Columns.GridColumn + Friend WithEvents colTITLE As DevExpress.XtraGrid.Columns.GridColumn + Friend WithEvents GUIDTextBox As TextBox + Friend WithEvents TITLETextBox As TextBox + Friend WithEvents EMAIL_SUBJECTTextBox As TextBox + Friend WithEvents EMAIL_BODY1TextBox As TextBox + Friend WithEvents EMAIL_BODY2TextBox As TextBox + Friend WithEvents EMAIL_BODY3TextBox As TextBox + Friend WithEvents ADDED_WHOTextBox As TextBox + Friend WithEvents ADDED_WHENTextBox As TextBox + Friend WithEvents CHANGED_WHOTextBox As TextBox + Friend WithEvents CHANGED_WHENTextBox As TextBox + Friend WithEvents BarButtonItem1 As DevExpress.XtraBars.BarButtonItem + Friend WithEvents labelStatus As DevExpress.XtraBars.BarStaticItem + Friend WithEvents Button1 As Button +End Class diff --git a/app/DD_PM_WINDREAM/frmAdmin2.resx b/app/DD_PM_WINDREAM/frmAdmin2.resx new file mode 100644 index 0000000..92e3004 --- /dev/null +++ b/app/DD_PM_WINDREAM/frmAdmin2.resx @@ -0,0 +1,280 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + False + + + False + + + False + + + False + + + False + + + False + + + False + + + False + + + False + + + False + + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAABl0RVh0U29m + dHdhcmUAQWRvYmUgSW1hZ2VSZWFkeXHJZTwAAAAOdEVYdFRpdGxlAFRhc2s7TmV30ugvpgAAAMlJREFU + OE+dj8ENglAQRNGDDVmH0RgTi/DmwQrowQ7UBujAi6XowQbQrDMr87MY9IOHl8/83XlAcavmEYu5LEsL + MDtmlojF6ceZloIE8X2nuQQqCWa9MX6FC5qdJIjFVt4d94XgsrhWCxzG+9HPL+gS3M9b31GWQKV4DhJE + UcpBsAKHKNAsmVnA0NEdFiZgDR6gzgmMQwowOIEn2IC6YQl6C2aAS4Rl/oIX+gokuYBUJkMEZByenV6C + DC4A3usSZPkqGEhb8B9WvACfEYYn0zazQgAAAABJRU5ErkJggg== + + + + + iVBORw0KGgoAAAANSUhEUgAAACAAAAAgCAYAAABzenr0AAAABGdBTUEAALGPC/xhBQAAABl0RVh0U29m + dHdhcmUAQWRvYmUgSW1hZ2VSZWFkeXHJZTwAAAAOdEVYdFRpdGxlAFRhc2s7TmV30ugvpgAAAf9JREFU + WEft1LtKA0EUBuCNisELKIgiPoCIN/ACKj6AWERF7NRKtLHSQuwUCcE38BHsLASLWAsaG/UF7DXoA5iY + 9f+XOcvsMoYhmV0QLD5mdzbnnH82Ue/9ZtXk3rAX8n3fGWk6A9PquhNqMKjuR2BRXQdMjRolTYfhAw5g + Anzg0B0oA0MkGoC2gYMf1fqk1l3QP+fl8/lT8GO4ZxxSjzTthwXg8BPIAt/GM8xDH+gBgqHSRO4bDVAE + fuc8LQ0B97u0vSoUzwtnyxhS1QbWcwXGoTo5VQeMA3/9BeiGY3XP/SyatcIS2AYg7/PuMDhEfLCQALTH + D8KDWktq3UejHnjRGtsI3oBtgDHgXwFDjAKL5mAT3mASwrBsbMs2wBRwMK/5A6xAL4oHyrdbs7hmmDAA + 9m35hBrMqh8g7hraUPwK/Eoiz1VzGw0HoJzWIPJMNbfRVICgWDWIPDu6vIiQZrhuIbm3CmDaJBZJAwhO + xH19sFD7OfC5qvuM1DsLoA2L4/Av+CbpIfVJvIGMWmU4T15T65r0kHqXbyB8zdCuVjl5BVZAgiUSgMMF + h3NoFRgiMpykPok3QHzlPDmHr0NkOEm9ywCkh+DwDYgMFlLvOgAxRAl+HU5Sn0QA4j+d+F6E1DsL0ID/ + AM4CNOXvBnAp3l8YN9Nk3EyTcTNNxs30+N4PvvKeTNimaekAAAAASUVORK5CYII= + + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAABl0RVh0U29m + dHdhcmUAQWRvYmUgSW1hZ2VSZWFkeXHJZTwAAAALdEVYdFRpdGxlAFNhdmU7+ej5CQAAAFhJREFUOE9j + +P//P0UYTEzOWr8XiP+DMJQPZqNjNLm9ID7MAFyKUMTQ5UB8+hgAw9jUYjUAH0ZXiyFICqa+ASA2MXjU + ADwGkIqRDdiOLkkE3g43gHz8nwEAvq7TCya3G6wAAAAASUVORK5CYII= + + + + + iVBORw0KGgoAAAANSUhEUgAAACAAAAAgCAYAAABzenr0AAAABGdBTUEAALGPC/xhBQAAABl0RVh0U29m + dHdhcmUAQWRvYmUgSW1hZ2VSZWFkeXHJZTwAAAALdEVYdFRpdGxlAFNhdmU7+ej5CQAAAQ1JREFUWEft + l9EJwzAMRLNZoF+Zpet0kM7RPQIZw9WJ2JyF5CbQOATy8cCVjqcjfx1SSqfiDnviDntS/Xg936PwERKB + OcO7JquTZ3CPfNMWWCic4eNW2GR12vnCN20BGwZ8PMoA3bMncmKeKQ/ghQUVE14G6J49kRPzTHkALyyo + mPAyQPfsiZyYZ8oDeGFBxYSXAbpnT+TEPFMewAsLKia8DNA9eyIn5pnyAF5YUDHhZVwiZ74HLlmgCfsi + J+9/ho+Ab94FWgUeAma7YB954dpdoBJvhX2M7O4Cd4G7wPUKTEIl3wL7yAvX7gKHwTdtgdmGD2Dmm7YA + PpX33+BfwD3xzarAGbjDnrjDfqThC1oLalOREus2AAAAAElFTkSuQmCC + + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAABl0RVh0U29m + dHdhcmUAQWRvYmUgSW1hZ2VSZWFkeXHJZTwAAAAjdEVYdFRpdGxlAENhbmNlbDtTdG9wO0V4aXQ7QmFy + cztSaWJib247TJaWsgAAAMJJREFUOE+Nk0sKAjEQRHM4YVZ6CS8gfhBGHK/pSRRXbRWkJOlOq4sHSf0Y + BlLMrNy3qzWYef4HZC/s8KzyCxi4+rAHmVvNsrOhcKqCSEfgqSz2Ms7OCCPQfPlIvQ2kIzgPy+QzUIN+ + ZAFpmXQDBAE/0tKVSXcRCI5GQpkEgSDsP5sso2wQEByVRRjpLgj48gGEH9t2vpYbLx35WRbQhiM0+DBa + I5QFPD8yU5zAowppWSCjkSeYJHJk58MZyPIBTmZW3tJAnMwmSptiAAAAAElFTkSuQmCC + + + + + iVBORw0KGgoAAAANSUhEUgAAACAAAAAgCAYAAABzenr0AAAABGdBTUEAALGPC/xhBQAAABl0RVh0U29m + dHdhcmUAQWRvYmUgSW1hZ2VSZWFkeXHJZTwAAAAjdEVYdFRpdGxlAENhbmNlbDtTdG9wO0V4aXQ7QmFy + cztSaWJib247TJaWsgAAAW5JREFUWEfFlk1KBDEUhGfmAg56JTcuHEGP4FFFFMVZz1VcxaomD57pek1e + hLj4FilSP9Dd0LtSyr8ixZlIcSZSnIkUL8+3f6LJOvhzixRr0BV4AXf13I3LuQev4OjzPVKEgeUfoIBv + kBpRM1hOLzM+gRyxEnDxALiaRiM7wpcbzNy3fb8OBi4+gTagd4Qq5/lBda0EgsvksRrboK0RqXIiRRiM + zIh0OZEiTJ6eEUPlRIowtmyNGC4nUoRZEY0YLidSRECEGuFJlRMpImSLaMRSDmRmhBQZsoF65jZgeTFV + ZoQUGRIQlRvLCJUZIUWEKKK3XWndI6SIgN5yPvPwE1XZLVKEubfc7gyPkCKMmXJjaIQUYSJR+Qn4Yk96 + hBRhGCk3UiNWAi7uwVs1+oCeckONeAfdPyTX4Ksas+WW4UecwU3bQ1YCwWXCEVydKicuhyOYIcuJFC0I + 8P/Qn7tosvK/5TOR4kykOBMpzqPsfgBphQ1j4i+mWAAAAABJRU5ErkJggg== + + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAABl0RVh0U29m + dHdhcmUAQWRvYmUgSW1hZ2VSZWFkeXHJZTwAAAAjdEVYdFRpdGxlAENvbnZlcnQ7UmVwZWF0O0Fycm93 + O0V4Y2hhbmdldiNo0gAAAN9JREFUOE+NzrENglAQxnELCgZwCScwwRmYwo4BTCixYAVHoHEAHYEdaNjA + koTi+T/zzhy8I1r8Cu7u+3i7EMJPl+4WUCLZJQNPLHBL7JHa44wOA2ZoQVKyLjjhDhvwlF7BAU9ztGXz + BY05GtGiQB5nn3B5fRxRewW9Oax0Hnc2/EKvO3s0xcMXMp0rQlkMB0w6/x4QkhdIWP4if2O8KKhiWLgv + qG04ylGgxRhnokkKBAsb3vLEISlg+E/4jpNmFgWC5bpkxoAOZ+ztvVh8CI6+Jeudxx1qyXrucYf/C7s3 + +Cul5fQF3VsAAAAASUVORK5CYII= + + + + + iVBORw0KGgoAAAANSUhEUgAAACAAAAAgCAYAAABzenr0AAAABGdBTUEAALGPC/xhBQAAABl0RVh0U29m + dHdhcmUAQWRvYmUgSW1hZ2VSZWFkeXHJZTwAAAAjdEVYdFRpdGxlAENvbnZlcnQ7UmVwZWF0O0Fycm93 + O0V4Y2hhbmdldiNo0gAAAgZJREFUWEfF1D8vBGEQx3EFBa3o8TKUIqG5wjvQ6BQaIlFR60WnuESjQqFS + Ee9CIZGo5ZoLsr4j+6zfzs66P8+F4pPszv7mmcnt3U0VRfGvwmKO/YvTDsJnkbCYg+HFKEuExRzlAtUS + ns83CrkYkhYIl/D5RiEXQ3SBxhI+X7vRYIsV7OIcj3hBH36oVy2h80ztJoWceWzjGp+IBgwj/GLWbizg + bOIG0YHj6Og8U7shoPbwiuigcYz0CRwiOmRc38M7x7dLOs/UbiyELfQQHfSGKxxgA8uYNXKG7+kweBon + uPdLVBeG8BIepFl1sa75iOux4Qu4Q1Ha0bxv3nEHmA8cYUazbaTPhi/iWYabS8375ks5IDnTzCBlT3rn + q264edK8b34qD1BrmhmEfPWnw7A5N9y8a943v8MvMJee09z4Hf+G/JoMTkb+BFbtGY32Trn8yQ9C/qwc + qkb6DjzDvkjfw43m25CbwRE+Up8Y+ldwB/sJVcON5iNk1tHVHvGAgf8D9ziB/XnUhpuU5Xq2tIwNHOAK + b6j1lHrYSv1J7YahaYnqnU/Qoc5KGgVDeJLDX7EXzTGNAuFJDr/Bpp+hwiJNOUt84hrbmI/OV2HR0DzM + En284BHn2MVKdF6bsJhwWGMJn8kVFpVfwj/PFRY9XcI/yxUWI2kJX88VFtvYElE9R1j8O8XUF4SD29A4 + djKoAAAAAElFTkSuQmCC + + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAABl0RVh0U29m + dHdhcmUAQWRvYmUgSW1hZ2VSZWFkeXHJZTwAAAALdEVYdFRpdGxlAEluZm87bRIthgAAAJxJREFUOE+t + k+ENQDAUhDuKafyzlN9MYQkbWEdiAO5rNEEOlZJ8Cb17l77XCk07XqlFLyYx7/DOGtrJf/yoRCcWsd6A + hgfvKYCFQbgiB94YkgJIdcYnqIkB9GW3rSeA0wQ1NSLDcYa3AOgRmbATc5gI4JicmLOD+ZeA2xYyAmIL + xUMsPkYoukhQfJVTCKm2nR00PLEYjgGJD7/zGDZMp1TRLvGgqwAAAABJRU5ErkJggg== + + + + + iVBORw0KGgoAAAANSUhEUgAAACAAAAAgCAYAAABzenr0AAAABGdBTUEAALGPC/xhBQAAABl0RVh0U29m + dHdhcmUAQWRvYmUgSW1hZ2VSZWFkeXHJZTwAAAALdEVYdFRpdGxlAEluZm87bRIthgAAAahJREFUWEfN + lz1SwzAQhcMRSMXkCpyFPkeggg5aJjWTmqNQ5AoU3CC3yFCZ/TzejGQ/WZKNxxRfxuPs232RVj/ZNE2z + Ku3Hw+GzhJ2xN47GyTgblw6eecd3xBCrckSUGrg33oxvoymEWDRoVc6WnIEb49H4MlSREtCSg1yDGmMG + 7ox3QyWdArnIGdVJGSDww1CJ5kDOyIQywFCV/PIf48nYGrfdM+9UbAi5r9OhDDBfStjnGV2IvXvtxaSg + hjRAx5Y23DYs3uVgNFRsH2q0qwNdaIBlowSKOQaAWpEBNo6ada6m4KUXMwa1duhczO6lAlN4E9KANU0Y + sg8NsIWqoCU5hgbYx1XQkpxCAxwmKigJuhAVk+GMzsWcaCooiRd2VEyGC7p/Y2D1KahuQi/sqJgMURNW + L0Mv7KiYDNEyrN2ITDbbQLQR1W7FJptlYLAVQ81hZLJZBgaHEdQcxyabbCB5HEPphcRkkw0kLyRQeiWb + SvZKBqteSh0C/3IkyBUVhzEDwFAxX8WNKUBLjuuwh+QMOHQsy6ZmnyAWTdvtKUoNOMv9OV2PZvMLsfKg + vDjYoZ0AAAAASUVORK5CYII= + + + + 179, 17 + + + 17, 17 + + + 442, 17 + + + 700, 17 + + \ No newline at end of file diff --git a/app/DD_PM_WINDREAM/frmAdmin2.vb b/app/DD_PM_WINDREAM/frmAdmin2.vb new file mode 100644 index 0000000..883da91 --- /dev/null +++ b/app/DD_PM_WINDREAM/frmAdmin2.vb @@ -0,0 +1,101 @@ + + +Imports DevExpress.XtraTab + +Public Class frmAdmin2 + Private Sub TBDD_EMAIL_TEMPLATEBindingNavigatorSaveItem_Click(sender As Object, e As EventArgs) + Me.Validate() + Me.TBDD_EMAIL_TEMPLATEBindingSource.EndEdit() + Me.TableAdapterManager.UpdateAll(Me.DD_DMSLiteDataSet) + + End Sub + + Private Sub frmAdmin2_Load(sender As Object, e As EventArgs) Handles MyBase.Load + 'TODO: Diese Codezeile lädt Daten in die Tabelle "DD_DMSLiteDataSet.TBDD_EMAIL_TEMPLATE". Sie können sie bei Bedarf verschieben oder entfernen. + Load_Email_template() + + End Sub + Sub Status_Changed(text As String) + labelStatus.Visibility = DevExpress.XtraBars.BarItemVisibility.Always + labelStatus.Caption = $"{text} - {Now.ToLongTimeString}" + End Sub + + Private Sub BarButtonItem1_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BbitemplateAdd.ItemClick + TBDD_EMAIL_TEMPLATEBindingSource.AddNew() + End Sub + + + + Private Sub BarButtonItem1_ItemClick_1(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem1.ItemClick + Load_Email_template() + End Sub + Sub Load_Email_template() + Try + TBDD_EMAIL_TEMPLATETableAdapter.Connection.ConnectionString = CONNECTION_STRING + Me.TBDD_EMAIL_TEMPLATETableAdapter.Fill(Me.DD_DMSLiteDataSet.TBDD_EMAIL_TEMPLATE) + Catch ex As Exception + MsgBox(ex.Message, MsgBoxStyle.Critical, "Error in loading EmailTemplates:") + End Try + End Sub + + Private Sub TBDD_EMAIL_TEMPLATEBindingSource_AddingNew(sender As Object, e As System.ComponentModel.AddingNewEventArgs) Handles TBDD_EMAIL_TEMPLATEBindingSource.AddingNew + DD_DMSLiteDataSet.TBDD_EMAIL_TEMPLATE.ADDED_WHOColumn.DefaultValue = USER_USERNAME + End Sub + + Private Sub BbitemplateSave_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BbitemplateSave.ItemClick + Email_Template_Save() + End Sub + Sub Email_Template_Save() + Try + Me.TBDD_EMAIL_TEMPLATEBindingSource.EndEdit() + If Not IsNothing(DD_DMSLiteDataSet.TBDD_EMAIL_TEMPLATE.GetChanges) Then + Me.CHANGED_WHOTextBox.Text = USER_USERNAME + Me.TBDD_EMAIL_TEMPLATEBindingSource.EndEdit() + Me.TBDD_EMAIL_TEMPLATETableAdapter.Update(DD_DMSLiteDataSet.TBDD_EMAIL_TEMPLATE) + Status_Changed("Vorlage gespeichert") + Else + Status_Changed("Keine Änderung") + End If + Catch ex As Exception + MsgBox(ex.Message, MsgBoxStyle.Critical, "Error in Saving EmailTemplates:") + 'MsgBox("Unerwarteter Fehler beim Speichern des Profils: " & vbNewLine & ex.Message, MsgBoxStyle.Critical, Text) + End Try + End Sub + + Private Sub BbitemplateDelete_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BbitemplateDelete.ItemClick + Dim result As MsgBoxResult = MsgBox("Wollen Sie die Vorlage wirklich löschen?", MsgBoxStyle.YesNo, "Bestätigung erforderlich:") + 'wenn Speichern ja + If result = MsgBoxResult.Yes Then + Dim oSQL = $"Delete from TBDD_EMAIL_TEMPLATE where guid = {GUIDTextBox.Text}" + If ClassDatabase.Execute_non_Query(oSQL) = True Then + Load_Email_template() + Status_Changed("Vorlage gelöscht!") + End If + End If + End Sub + + Private Sub XtraTabControl1_SelectedPageChanged(sender As Object, e As TabPageChangedEventArgs) Handles XtraTabControl1.SelectedPageChanged + Select Case XtraTabControl1.SelectedTabPageIndex + Case 0 + RibbonPageGroup1.Enabled = True + RibbonPageGroup2.Enabled = False + Case 1 + RibbonPageGroup2.Enabled = True + RibbonPageGroup1.Enabled = False + + End Select + End Sub + + Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click + Dim oText = EMAIL_BODY1TextBox.Text + If EMAIL_BODY2TextBox.Text <> "" Then + oText = oText & "

" & EMAIL_BODY2TextBox.Text + End If + If EMAIL_BODY3TextBox.Text <> "" Then + oText = oText & "

" & EMAIL_BODY3TextBox.Text + End If + Dim ofrm As New frmPreviewHtml + ofrm.DisplayText = oText + ofrm.ShowDialog() + End Sub +End Class \ No newline at end of file diff --git a/app/DD_PM_WINDREAM/frmAdministration.Designer.vb b/app/DD_PM_WINDREAM/frmAdministration.Designer.vb index 8dc647b..7c1c3f1 100644 --- a/app/DD_PM_WINDREAM/frmAdministration.Designer.vb +++ b/app/DD_PM_WINDREAM/frmAdministration.Designer.vb @@ -759,6 +759,7 @@ Partial Class frmAdministration Me.TableAdapterManager.BackupDataSetBeforeUpdate = False Me.TableAdapterManager.Connection = Nothing Me.TableAdapterManager.TBDD_CONNECTIONTableAdapter = Nothing + Me.TableAdapterManager.TBDD_EMAIL_TEMPLATETableAdapter = Nothing Me.TableAdapterManager.TBDD_USERTableAdapter = Nothing Me.TableAdapterManager.TBPM_CONTROL_TABLETableAdapter = Nothing Me.TableAdapterManager.TBPM_ERROR_LOGTableAdapter = Nothing @@ -1481,9 +1482,9 @@ Partial Class frmAdministration ' 'GridView1 ' - Me.GridView1.Appearance.EvenRow.BackColor = CType(resources.GetObject("GridView1.Appearance.EvenRow.BackColor"), System.Drawing.Color) + Me.GridView1.Appearance.EvenRow.BackColor = System.Drawing.Color.Cyan Me.GridView1.Appearance.EvenRow.Options.UseBackColor = True - Me.GridView1.Appearance.FocusedRow.BackColor = CType(resources.GetObject("GridView1.Appearance.FocusedRow.BackColor"), System.Drawing.Color) + Me.GridView1.Appearance.FocusedRow.BackColor = System.Drawing.Color.Fuchsia Me.GridView1.Appearance.FocusedRow.Options.UseBackColor = True Me.GridView1.Columns.AddRange(New DevExpress.XtraGrid.Columns.GridColumn() {Me.colNAME}) Me.GridView1.DetailHeight = 295 diff --git a/app/DD_PM_WINDREAM/frmAdministration.resx b/app/DD_PM_WINDREAM/frmAdministration.resx index b627538..8ce2464 100644 --- a/app/DD_PM_WINDREAM/frmAdministration.resx +++ b/app/DD_PM_WINDREAM/frmAdministration.resx @@ -2570,7 +2570,7 @@ 6 - 627, 281 + 627, 287 93 @@ -2597,7 +2597,7 @@ 627, 0 - 323, 281 + 323, 287 91 @@ -2618,7 +2618,7 @@ 3, 166 - 950, 281 + 950, 287 94 @@ -3158,12 +3158,6 @@ 3, 3 - - Cyan - - - Fuchsia - Profil-Name diff --git a/app/DD_PM_WINDREAM/frmAdministration.vb b/app/DD_PM_WINDREAM/frmAdministration.vb index 95510f1..21bd616 100644 --- a/app/DD_PM_WINDREAM/frmAdministration.vb +++ b/app/DD_PM_WINDREAM/frmAdministration.vb @@ -955,8 +955,8 @@ Public Class frmAdministration End Sub Private Sub GridView2_FocusedRowChanged(sender As Object, e As Views.Base.FocusedRowChangedEventArgs) Handles viewFinalIndex.FocusedRowChanged - 'Try - Dim view As GridView = sender + Try + Dim view As GridView = sender Dim focusedRow As DataRow = view.GetFocusedDataRow() If IsNothing(focusedRow) Then @@ -1009,11 +1009,11 @@ Public Class frmAdministration PropertyGrid1.SelectedObject = obj PropertyGrid1.Refresh() - 'Catch ex As Exception - ' LOGGER.Error(ex) - ' MsgBox($"Error while loading Final Index properties: {ex.Message}", MsgBoxStyle.Critical) - ' LOGGER.Info($"Error while loading Final Index properties: {ex.Message}") - 'End Try + Catch ex As Exception + LOGGER.Error(ex) + MsgBox($"Error while loading Final Index properties: {ex.Message}", MsgBoxStyle.Critical) + LOGGER.Info($"Error while loading Final Index properties: {ex.Message}") + End Try End Sub Private Sub BindingNavigatorAddNewItem_Click(sender As Object, e As EventArgs) Handles BindingNavigatorAddNewItem.Click diff --git a/app/DD_PM_WINDREAM/frmConnection.Designer.vb b/app/DD_PM_WINDREAM/frmConnection.Designer.vb index a1cdb27..845b18c 100644 --- a/app/DD_PM_WINDREAM/frmConnection.Designer.vb +++ b/app/DD_PM_WINDREAM/frmConnection.Designer.vb @@ -26,14 +26,12 @@ Partial Class frmConnection Dim GEANDERTWERLabel As System.Windows.Forms.Label Dim GEAENDERTWANNLabel As System.Windows.Forms.Label Dim GUIDLabel As System.Windows.Forms.Label + Dim BEMERKUNGLabel As System.Windows.Forms.Label Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmConnection)) Dim DataGridViewCellStyle1 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() - Dim BEMERKUNGLabel As System.Windows.Forms.Label Me.chkOR_ohne_TNS = New System.Windows.Forms.CheckBox() Me.Chckwin_aut = New System.Windows.Forms.CheckBox() Me.txtBezeichnung = New System.Windows.Forms.TextBox() - Me.TBDD_CONNECTIONBindingSource = New System.Windows.Forms.BindingSource(Me.components) - Me.DD_DMSLiteDataSet = New DD_PM_WINDREAM.DD_DMSLiteDataSet() Me.Label1 = New System.Windows.Forms.Label() Me.btnCheck_Con = New System.Windows.Forms.Button() Me.lblDatasource2 = New System.Windows.Forms.Label() @@ -61,6 +59,14 @@ Partial Class frmConnection Me.TBDD_CONNECTIONBindingNavigatorSaveItem = New System.Windows.Forms.ToolStripButton() Me.ToolStripButton2 = New System.Windows.Forms.ToolStripButton() Me.TBDD_CONNECTIONDataGridView = New System.Windows.Forms.DataGridView() + Me.GEANDERTWERTextBox = New System.Windows.Forms.TextBox() + Me.GEAENDERTWANNTextBox = New System.Windows.Forms.TextBox() + Me.SERVERTextBox = New System.Windows.Forms.TextBox() + Me.GUIDTextBox = New System.Windows.Forms.TextBox() + Me.DATENBANKComboBox = New System.Windows.Forms.ComboBox() + Me.BEMERKUNGTextBox = New System.Windows.Forms.TextBox() + Me.TBDD_CONNECTIONBindingSource = New System.Windows.Forms.BindingSource(Me.components) + Me.DD_DMSLiteDataSet = New DD_PM_WINDREAM.DD_DMSLiteDataSet() Me.DataGridViewTextBoxColumn1 = New System.Windows.Forms.DataGridViewTextBoxColumn() Me.DataGridViewTextBoxColumn2 = New System.Windows.Forms.DataGridViewTextBoxColumn() Me.DataGridViewTextBoxColumn3 = New System.Windows.Forms.DataGridViewTextBoxColumn() @@ -69,23 +75,18 @@ Partial Class frmConnection Me.DataGridViewTextBoxColumn6 = New System.Windows.Forms.DataGridViewTextBoxColumn() Me.DataGridViewTextBoxColumn8 = New System.Windows.Forms.DataGridViewTextBoxColumn() Me.DataGridViewCheckBoxColumn1 = New System.Windows.Forms.DataGridViewCheckBoxColumn() - Me.GEANDERTWERTextBox = New System.Windows.Forms.TextBox() - Me.GEAENDERTWANNTextBox = New System.Windows.Forms.TextBox() - Me.SERVERTextBox = New System.Windows.Forms.TextBox() - Me.GUIDTextBox = New System.Windows.Forms.TextBox() Me.TableAdapterManager = New DD_PM_WINDREAM.DD_DMSLiteDataSetTableAdapters.TableAdapterManager() Me.TBDD_CONNECTIONTableAdapter = New DD_PM_WINDREAM.DD_DMSLiteDataSetTableAdapters.TBDD_CONNECTIONTableAdapter() - Me.DATENBANKComboBox = New System.Windows.Forms.ComboBox() - Me.BEMERKUNGTextBox = New System.Windows.Forms.TextBox() + Me.SYS_CONNECTIONCheckBox = New System.Windows.Forms.CheckBox() GEANDERTWERLabel = New System.Windows.Forms.Label() GEAENDERTWANNLabel = New System.Windows.Forms.Label() GUIDLabel = New System.Windows.Forms.Label() BEMERKUNGLabel = New System.Windows.Forms.Label() - CType(Me.TBDD_CONNECTIONBindingSource, System.ComponentModel.ISupportInitialize).BeginInit() - CType(Me.DD_DMSLiteDataSet, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.TBDD_CONNECTIONBindingNavigator, System.ComponentModel.ISupportInitialize).BeginInit() Me.TBDD_CONNECTIONBindingNavigator.SuspendLayout() CType(Me.TBDD_CONNECTIONDataGridView, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.TBDD_CONNECTIONBindingSource, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.DD_DMSLiteDataSet, System.ComponentModel.ISupportInitialize).BeginInit() Me.SuspendLayout() ' 'GEANDERTWERLabel @@ -115,6 +116,15 @@ Partial Class frmConnection GUIDLabel.TabIndex = 64 GUIDLabel.Text = "ID:" ' + 'BEMERKUNGLabel + ' + BEMERKUNGLabel.AutoSize = True + BEMERKUNGLabel.Location = New System.Drawing.Point(532, 83) + BEMERKUNGLabel.Name = "BEMERKUNGLabel" + BEMERKUNGLabel.Size = New System.Drawing.Size(82, 16) + BEMERKUNGLabel.TabIndex = 66 + BEMERKUNGLabel.Text = "Bermerkung:" + ' 'chkOR_ohne_TNS ' Me.chkOR_ohne_TNS.AutoSize = True @@ -148,16 +158,6 @@ Partial Class frmConnection Me.txtBezeichnung.Size = New System.Drawing.Size(294, 23) Me.txtBezeichnung.TabIndex = 1 ' - 'TBDD_CONNECTIONBindingSource - ' - Me.TBDD_CONNECTIONBindingSource.DataMember = "TBDD_CONNECTION" - Me.TBDD_CONNECTIONBindingSource.DataSource = Me.DD_DMSLiteDataSet - ' - 'DD_DMSLiteDataSet - ' - Me.DD_DMSLiteDataSet.DataSetName = "DD_DMSLiteDataSet" - Me.DD_DMSLiteDataSet.SchemaSerializationMode = System.Data.SchemaSerializationMode.IncludeSchema - ' 'Label1 ' Me.Label1.AutoSize = True @@ -315,7 +315,7 @@ Partial Class frmConnection Me.TBDD_CONNECTIONBindingNavigator.MovePreviousItem = Me.BindingNavigatorMovePreviousItem Me.TBDD_CONNECTIONBindingNavigator.Name = "TBDD_CONNECTIONBindingNavigator" Me.TBDD_CONNECTIONBindingNavigator.PositionItem = Me.BindingNavigatorPositionItem - Me.TBDD_CONNECTIONBindingNavigator.Size = New System.Drawing.Size(1176, 25) + Me.TBDD_CONNECTIONBindingNavigator.Size = New System.Drawing.Size(1187, 25) Me.TBDD_CONNECTIONBindingNavigator.TabIndex = 53 Me.TBDD_CONNECTIONBindingNavigator.Text = "BindingNavigator1" ' @@ -436,9 +436,71 @@ Partial Class frmConnection Me.TBDD_CONNECTIONDataGridView.Location = New System.Drawing.Point(12, 276) Me.TBDD_CONNECTIONDataGridView.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4) Me.TBDD_CONNECTIONDataGridView.Name = "TBDD_CONNECTIONDataGridView" - Me.TBDD_CONNECTIONDataGridView.Size = New System.Drawing.Size(1155, 316) + Me.TBDD_CONNECTIONDataGridView.Size = New System.Drawing.Size(1166, 316) Me.TBDD_CONNECTIONDataGridView.TabIndex = 53 ' + 'GEANDERTWERTextBox + ' + Me.GEANDERTWERTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBDD_CONNECTIONBindingSource, "GEANDERTWER", True)) + Me.GEANDERTWERTextBox.Location = New System.Drawing.Point(12, 246) + Me.GEANDERTWERTextBox.Name = "GEANDERTWERTextBox" + Me.GEANDERTWERTextBox.ReadOnly = True + Me.GEANDERTWERTextBox.Size = New System.Drawing.Size(147, 23) + Me.GEANDERTWERTextBox.TabIndex = 57 + ' + 'GEAENDERTWANNTextBox + ' + Me.GEAENDERTWANNTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBDD_CONNECTIONBindingSource, "GEAENDERTWANN", True)) + Me.GEAENDERTWANNTextBox.Location = New System.Drawing.Point(165, 246) + Me.GEAENDERTWANNTextBox.Name = "GEAENDERTWANNTextBox" + Me.GEAENDERTWANNTextBox.ReadOnly = True + Me.GEAENDERTWANNTextBox.Size = New System.Drawing.Size(155, 23) + Me.GEAENDERTWANNTextBox.TabIndex = 63 + ' + 'SERVERTextBox + ' + Me.SERVERTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBDD_CONNECTIONBindingSource, "SERVER", True)) + Me.SERVERTextBox.Location = New System.Drawing.Point(15, 103) + Me.SERVERTextBox.Name = "SERVERTextBox" + Me.SERVERTextBox.Size = New System.Drawing.Size(210, 23) + Me.SERVERTextBox.TabIndex = 2 + ' + 'GUIDTextBox + ' + Me.GUIDTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBDD_CONNECTIONBindingSource, "GUID", True)) + Me.GUIDTextBox.Location = New System.Drawing.Point(532, 53) + Me.GUIDTextBox.Name = "GUIDTextBox" + Me.GUIDTextBox.ReadOnly = True + Me.GUIDTextBox.Size = New System.Drawing.Size(72, 23) + Me.GUIDTextBox.TabIndex = 65 + ' + 'DATENBANKComboBox + ' + Me.DATENBANKComboBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBDD_CONNECTIONBindingSource, "DATENBANK", True)) + Me.DATENBANKComboBox.FormattingEnabled = True + Me.DATENBANKComboBox.Location = New System.Drawing.Point(232, 102) + Me.DATENBANKComboBox.Name = "DATENBANKComboBox" + Me.DATENBANKComboBox.Size = New System.Drawing.Size(259, 24) + Me.DATENBANKComboBox.TabIndex = 66 + ' + 'BEMERKUNGTextBox + ' + Me.BEMERKUNGTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBDD_CONNECTIONBindingSource, "BEMERKUNG", True)) + Me.BEMERKUNGTextBox.Location = New System.Drawing.Point(535, 102) + Me.BEMERKUNGTextBox.Name = "BEMERKUNGTextBox" + Me.BEMERKUNGTextBox.Size = New System.Drawing.Size(219, 23) + Me.BEMERKUNGTextBox.TabIndex = 67 + ' + 'TBDD_CONNECTIONBindingSource + ' + Me.TBDD_CONNECTIONBindingSource.DataMember = "TBDD_CONNECTION" + Me.TBDD_CONNECTIONBindingSource.DataSource = Me.DD_DMSLiteDataSet + ' + 'DD_DMSLiteDataSet + ' + Me.DD_DMSLiteDataSet.DataSetName = "DD_DMSLiteDataSet" + Me.DD_DMSLiteDataSet.SchemaSerializationMode = System.Data.SchemaSerializationMode.IncludeSchema + ' 'DataGridViewTextBoxColumn1 ' Me.DataGridViewTextBoxColumn1.DataPropertyName = "GUID" @@ -488,41 +550,6 @@ Partial Class frmConnection Me.DataGridViewCheckBoxColumn1.HeaderText = "Aktiv" Me.DataGridViewCheckBoxColumn1.Name = "DataGridViewCheckBoxColumn1" ' - 'GEANDERTWERTextBox - ' - Me.GEANDERTWERTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBDD_CONNECTIONBindingSource, "GEANDERTWER", True)) - Me.GEANDERTWERTextBox.Location = New System.Drawing.Point(12, 246) - Me.GEANDERTWERTextBox.Name = "GEANDERTWERTextBox" - Me.GEANDERTWERTextBox.ReadOnly = True - Me.GEANDERTWERTextBox.Size = New System.Drawing.Size(147, 23) - Me.GEANDERTWERTextBox.TabIndex = 57 - ' - 'GEAENDERTWANNTextBox - ' - Me.GEAENDERTWANNTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBDD_CONNECTIONBindingSource, "GEAENDERTWANN", True)) - Me.GEAENDERTWANNTextBox.Location = New System.Drawing.Point(165, 246) - Me.GEAENDERTWANNTextBox.Name = "GEAENDERTWANNTextBox" - Me.GEAENDERTWANNTextBox.ReadOnly = True - Me.GEAENDERTWANNTextBox.Size = New System.Drawing.Size(155, 23) - Me.GEAENDERTWANNTextBox.TabIndex = 63 - ' - 'SERVERTextBox - ' - Me.SERVERTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBDD_CONNECTIONBindingSource, "SERVER", True)) - Me.SERVERTextBox.Location = New System.Drawing.Point(15, 103) - Me.SERVERTextBox.Name = "SERVERTextBox" - Me.SERVERTextBox.Size = New System.Drawing.Size(210, 23) - Me.SERVERTextBox.TabIndex = 2 - ' - 'GUIDTextBox - ' - Me.GUIDTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBDD_CONNECTIONBindingSource, "GUID", True)) - Me.GUIDTextBox.Location = New System.Drawing.Point(532, 53) - Me.GUIDTextBox.Name = "GUIDTextBox" - Me.GUIDTextBox.ReadOnly = True - Me.GUIDTextBox.Size = New System.Drawing.Size(72, 23) - Me.GUIDTextBox.TabIndex = 65 - ' 'TableAdapterManager ' Me.TableAdapterManager.BackupDataSetBeforeUpdate = False @@ -543,37 +570,22 @@ Partial Class frmConnection ' Me.TBDD_CONNECTIONTableAdapter.ClearBeforeFill = True ' - 'DATENBANKComboBox + 'SYS_CONNECTIONCheckBox ' - Me.DATENBANKComboBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBDD_CONNECTIONBindingSource, "DATENBANK", True)) - Me.DATENBANKComboBox.FormattingEnabled = True - Me.DATENBANKComboBox.Location = New System.Drawing.Point(232, 102) - Me.DATENBANKComboBox.Name = "DATENBANKComboBox" - Me.DATENBANKComboBox.Size = New System.Drawing.Size(259, 24) - Me.DATENBANKComboBox.TabIndex = 66 - ' - 'BEMERKUNGLabel - ' - BEMERKUNGLabel.AutoSize = True - BEMERKUNGLabel.Location = New System.Drawing.Point(532, 83) - BEMERKUNGLabel.Name = "BEMERKUNGLabel" - BEMERKUNGLabel.Size = New System.Drawing.Size(82, 16) - BEMERKUNGLabel.TabIndex = 66 - BEMERKUNGLabel.Text = "Bermerkung:" - ' - 'BEMERKUNGTextBox - ' - Me.BEMERKUNGTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBDD_CONNECTIONBindingSource, "BEMERKUNG", True)) - Me.BEMERKUNGTextBox.Location = New System.Drawing.Point(535, 102) - Me.BEMERKUNGTextBox.Name = "BEMERKUNGTextBox" - Me.BEMERKUNGTextBox.Size = New System.Drawing.Size(219, 23) - Me.BEMERKUNGTextBox.TabIndex = 67 + Me.SYS_CONNECTIONCheckBox.DataBindings.Add(New System.Windows.Forms.Binding("CheckState", Me.TBDD_CONNECTIONBindingSource, "SYS_CONNECTION", True)) + Me.SYS_CONNECTIONCheckBox.Location = New System.Drawing.Point(627, 53) + Me.SYS_CONNECTIONCheckBox.Name = "SYS_CONNECTIONCheckBox" + Me.SYS_CONNECTIONCheckBox.Size = New System.Drawing.Size(104, 24) + Me.SYS_CONNECTIONCheckBox.TabIndex = 68 + Me.SYS_CONNECTIONCheckBox.Text = "CheckBox1" + Me.SYS_CONNECTIONCheckBox.UseVisualStyleBackColor = True ' 'frmConnection ' Me.AutoScaleDimensions = New System.Drawing.SizeF(7.0!, 16.0!) Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font - Me.ClientSize = New System.Drawing.Size(1176, 619) + Me.ClientSize = New System.Drawing.Size(1187, 619) + Me.Controls.Add(Me.SYS_CONNECTIONCheckBox) Me.Controls.Add(BEMERKUNGLabel) Me.Controls.Add(Me.BEMERKUNGTextBox) Me.Controls.Add(Me.DATENBANKComboBox) @@ -605,12 +617,12 @@ Partial Class frmConnection Me.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4) Me.Name = "frmConnection" Me.Text = "Verwaltung der Connections" - CType(Me.TBDD_CONNECTIONBindingSource, System.ComponentModel.ISupportInitialize).EndInit() - CType(Me.DD_DMSLiteDataSet, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.TBDD_CONNECTIONBindingNavigator, System.ComponentModel.ISupportInitialize).EndInit() Me.TBDD_CONNECTIONBindingNavigator.ResumeLayout(False) Me.TBDD_CONNECTIONBindingNavigator.PerformLayout() CType(Me.TBDD_CONNECTIONDataGridView, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.TBDD_CONNECTIONBindingSource, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.DD_DMSLiteDataSet, System.ComponentModel.ISupportInitialize).EndInit() Me.ResumeLayout(False) Me.PerformLayout() @@ -663,4 +675,5 @@ Partial Class frmConnection Friend WithEvents GUIDTextBox As TextBox Friend WithEvents DATENBANKComboBox As ComboBox Friend WithEvents BEMERKUNGTextBox As TextBox + Friend WithEvents SYS_CONNECTIONCheckBox As CheckBox End Class diff --git a/app/DD_PM_WINDREAM/frmConnection.resx b/app/DD_PM_WINDREAM/frmConnection.resx index 1fa09ca..7ea30a5 100644 --- a/app/DD_PM_WINDREAM/frmConnection.resx +++ b/app/DD_PM_WINDREAM/frmConnection.resx @@ -126,6 +126,9 @@ False + + False + 179, 17 @@ -213,7 +216,4 @@ 858, 17 - - False - \ No newline at end of file diff --git a/app/DD_PM_WINDREAM/frmConnection.vb b/app/DD_PM_WINDREAM/frmConnection.vb index 6cb17cb..66c06c6 100644 --- a/app/DD_PM_WINDREAM/frmConnection.vb +++ b/app/DD_PM_WINDREAM/frmConnection.vb @@ -199,6 +199,7 @@ Public Class frmConnection Private Sub TBDD_CONNECTIONBindingSource_AddingNew(sender As Object, e As System.ComponentModel.AddingNewEventArgs) Handles TBDD_CONNECTIONBindingSource.AddingNew DD_DMSLiteDataSet.TBDD_CONNECTION.ERSTELLTWERColumn.DefaultValue = USER_USERNAME + DD_DMSLiteDataSet.TBDD_CONNECTION.SQL_PROVIDERColumn.DefaultValue = "MS-SQL" End Sub Private Sub TBDD_CONNECTIONBindingSource_PositionChanged(sender As Object, e As EventArgs) Handles TBDD_CONNECTIONBindingSource.PositionChanged diff --git a/app/DD_PM_WINDREAM/frmFormDesigner.vb b/app/DD_PM_WINDREAM/frmFormDesigner.vb index f25761a..cd3f184 100644 --- a/app/DD_PM_WINDREAM/frmFormDesigner.vb +++ b/app/DD_PM_WINDREAM/frmFormDesigner.vb @@ -32,70 +32,70 @@ Public Class frmFormDesigner Private Sub frmFormDesigner_Load(sender As Object, e As EventArgs) Handles Me.Load - 'Try - ' Setzt den typ des SQL-Befehls für frmSQL_DESIGNER - CURRENT_DESIGN_TYPE = "INPUT_INDEX" - - - ' Profil Name in Fenstertitel setzen - Text = $"Validation Designer - Profil: {ProfileName}" - - ' Try - ' Windream initialisieren - If IDB_ACTIVE = False Then - clsWindream.Create_Session() - End If - - - 'Windream Abfragen, sollten einmal beim Start des Formulars geladen werden - Dim unsortedIndicies - Dim sortedIndicies - If IDB_ACTIVE = False Then - unsortedIndicies = clsWD_GET.GetIndicesByObjecttype(CURRENT_OBJECTTYPE).ToList() - sortedIndicies = unsortedIndicies.OrderBy(Function(index As String) index).ToList() - Else - sortedIndicies = IDBData.GetIndicesByBE(CURRENT_OBJECTTYPE).ToList() - End If - - - Source_AllIndicies = sortedIndicies - Source_VectorIndicies = Source_AllIndicies.FindAll(AddressOf IsVectorIndex) - Source_SimpleIndicies = Source_AllIndicies.Except(Source_VectorIndicies).ToList() - Source_LookupIndicies = Source_AllIndicies. - Where(AddressOf IsNotVectorBooleanIndex). - Where(AddressOf IsNotVectorDateIndex). - Where(AddressOf IsNotVectorDatetimeIndex). - Where(AddressOf IsNotBooleanIndex). - Where(AddressOf IsNotDateIndex). - ToList() - - If IDB_ACTIVE = False Then - Windream_ChoiceLists = New List(Of String) - Windream_ChoiceLists.Add(String.Empty) - Windream_ChoiceLists.AddRange(clsWD_GET.GetChoiceLists()) - End If - - 'Catch ex As Exception - ' LOGGER.Error(ex) - ' MsgBox("Fehler bei Initialisieren von windream: " & vbNewLine & ex.Message, MsgBoxStyle.Critical, "Achtung:") - 'End Try - Try - TBPM_PROFILE_CONTROLSTableAdapter.Connection.ConnectionString = CONNECTION_STRING - TBDD_CONNECTIONTableAdapter.Connection.ConnectionString = CONNECTION_STRING - TBWH_CHECK_PROFILE_CONTROLSTableAdapter.Connection.ConnectionString = CONNECTION_STRING - TBPM_CONTROL_TABLETableAdapter.Connection.ConnectionString = CONNECTION_STRING - TBDD_CONNECTIONTableAdapter.Fill(DD_DMSLiteDataSet.TBDD_CONNECTION) + ' Setzt den typ des SQL-Befehls für frmSQL_DESIGNER + CURRENT_DESIGN_TYPE = "INPUT_INDEX" + + + ' Profil Name in Fenstertitel setzen + Text = $"Validation Designer - Profil: {ProfileName}" + + ' Try + ' Windream initialisieren + If IDB_ACTIVE = False Then + clsWindream.Create_Session() + End If + + + 'Windream Abfragen, sollten einmal beim Start des Formulars geladen werden + Dim unsortedIndicies + Dim sortedIndicies + If IDB_ACTIVE = False Then + unsortedIndicies = clsWD_GET.GetIndicesByObjecttype(CURRENT_OBJECTTYPE).ToList() + sortedIndicies = unsortedIndicies.OrderBy(Function(index As String) index).ToList() + Else + sortedIndicies = IDBData.GetIndicesByBE(CURRENT_OBJECTTYPE).ToList() + End If + + + Source_AllIndicies = sortedIndicies + Source_VectorIndicies = Source_AllIndicies.FindAll(AddressOf IsVectorIndex) + Source_SimpleIndicies = Source_AllIndicies.Except(Source_VectorIndicies).ToList() + Source_LookupIndicies = Source_AllIndicies. + Where(AddressOf IsNotVectorBooleanIndex). + Where(AddressOf IsNotVectorDateIndex). + Where(AddressOf IsNotVectorDatetimeIndex). + Where(AddressOf IsNotBooleanIndex). + Where(AddressOf IsNotDateIndex). + ToList() + + If IDB_ACTIVE = False Then + Windream_ChoiceLists = New List(Of String) + Windream_ChoiceLists.Add(String.Empty) + Windream_ChoiceLists.AddRange(clsWD_GET.GetChoiceLists()) + End If + + 'Catch ex As Exception + ' LOGGER.Error(ex) + ' MsgBox("Fehler bei Initialisieren von windream: " & vbNewLine & ex.Message, MsgBoxStyle.Critical, "Achtung:") + 'End Try + + Try + TBPM_PROFILE_CONTROLSTableAdapter.Connection.ConnectionString = CONNECTION_STRING + TBDD_CONNECTIONTableAdapter.Connection.ConnectionString = CONNECTION_STRING + TBWH_CHECK_PROFILE_CONTROLSTableAdapter.Connection.ConnectionString = CONNECTION_STRING + TBPM_CONTROL_TABLETableAdapter.Connection.ConnectionString = CONNECTION_STRING + TBDD_CONNECTIONTableAdapter.Fill(DD_DMSLiteDataSet.TBDD_CONNECTION) + Catch ex As Exception + LOGGER.Error(ex) + MsgBox("Fehler bei Laden der Connection-Strings und Grunddaten: " & vbNewLine & ex.Message, MsgBoxStyle.Critical, "Achtung:") + End Try + + LoadControls() Catch ex As Exception LOGGER.Error(ex) - MsgBox("Fehler bei Laden der Connection-Strings und Grunddaten: " & vbNewLine & ex.Message, MsgBoxStyle.Critical, "Achtung:") + MsgBox(ex.Message, MsgBoxStyle.Critical, "error loading form:") End Try - - LoadControls() - 'Catch ex As Exception - ' LOGGER.Error(ex) - ' MsgBox(ex.Message, MsgBoxStyle.Critical, "error loading form:") - 'End Try End Sub Private Sub frmFormDesigner_FormClosing(sender As Object, e As FormClosingEventArgs) Handles Me.FormClosing diff --git a/app/DD_PM_WINDREAM/frmMain.Designer.vb b/app/DD_PM_WINDREAM/frmMain.Designer.vb index 050ee40..0f76697 100644 --- a/app/DD_PM_WINDREAM/frmMain.Designer.vb +++ b/app/DD_PM_WINDREAM/frmMain.Designer.vb @@ -44,8 +44,10 @@ Partial Class frmMain Me.ToolStripButton2 = New System.Windows.Forms.ToolStripButton() Me.ToolStripButton1 = New System.Windows.Forms.ToolStripButton() Me.ToolStripSeparator1 = New System.Windows.Forms.ToolStripSeparator() - Me.tstrpbtn_Config = New System.Windows.Forms.ToolStripButton() Me.tsbtnrefresh = New System.Windows.Forms.ToolStripButton() + Me.tsddConfig = New System.Windows.Forms.ToolStripDropDownButton() + Me.ProfileUndBasisToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() + Me.KonfigurationenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() Me.StatusStrip1 = New System.Windows.Forms.StatusStrip() Me.tsstlblUser = New System.Windows.Forms.ToolStripStatusLabel() Me.tslblLicenses = New System.Windows.Forms.ToolStripStatusLabel() @@ -95,6 +97,7 @@ Partial Class frmMain Me.TimerReminder = New System.Windows.Forms.Timer(Me.components) Me.Timer5Mins = New System.Windows.Forms.Timer(Me.components) Me.ToolTip1 = New System.Windows.Forms.ToolTip(Me.components) + Me.LöscheAlleFilterToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() CType(Me.SplitContainerDashboard, System.ComponentModel.ISupportInitialize).BeginInit() Me.SplitContainerDashboard.Panel1.SuspendLayout() Me.SplitContainerDashboard.Panel2.SuspendLayout() @@ -254,6 +257,7 @@ Partial Class frmMain Me.TableAdapterManager.BackupDataSetBeforeUpdate = False Me.TableAdapterManager.Connection = Nothing Me.TableAdapterManager.TBDD_CONNECTIONTableAdapter = Nothing + Me.TableAdapterManager.TBDD_EMAIL_TEMPLATETableAdapter = Nothing Me.TableAdapterManager.TBDD_USERTableAdapter = Nothing Me.TableAdapterManager.TBPM_CONTROL_TABLETableAdapter = Nothing Me.TableAdapterManager.TBPM_ERROR_LOGTableAdapter = Nothing @@ -269,7 +273,7 @@ Partial Class frmMain ' resources.ApplyResources(Me.ToolStrip1, "ToolStrip1") Me.ToolStrip1.ImageScalingSize = New System.Drawing.Size(20, 20) - Me.ToolStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.ToolStripButton2, Me.ToolStripButton1, Me.ToolStripSeparator1, Me.tstrpbtn_Config, Me.tsbtnrefresh}) + Me.ToolStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.ToolStripButton2, Me.ToolStripButton1, Me.ToolStripSeparator1, Me.tsbtnrefresh, Me.tsddConfig}) Me.ToolStrip1.Name = "ToolStrip1" ' 'ToolStripButton2 @@ -283,7 +287,7 @@ Partial Class frmMain 'ToolStripButton1 ' Me.ToolStripButton1.Alignment = System.Windows.Forms.ToolStripItemAlignment.Right - Me.ToolStripButton1.Image = Global.DD_PM_WINDREAM.My.Resources.Resources.Einstellungen6 + Me.ToolStripButton1.Image = Global.DD_PM_WINDREAM.My.Resources.Resources.Hammer_Builder_16xLG resources.ApplyResources(Me.ToolStripButton1, "ToolStripButton1") Me.ToolStripButton1.Name = "ToolStripButton1" ' @@ -293,19 +297,30 @@ Partial Class frmMain Me.ToolStripSeparator1.Name = "ToolStripSeparator1" resources.ApplyResources(Me.ToolStripSeparator1, "ToolStripSeparator1") ' - 'tstrpbtn_Config - ' - Me.tstrpbtn_Config.Alignment = System.Windows.Forms.ToolStripItemAlignment.Right - Me.tstrpbtn_Config.Image = Global.DD_PM_WINDREAM.My.Resources.Resources.puzzle2 - resources.ApplyResources(Me.tstrpbtn_Config, "tstrpbtn_Config") - Me.tstrpbtn_Config.Name = "tstrpbtn_Config" - ' 'tsbtnrefresh ' Me.tsbtnrefresh.Image = Global.DD_PM_WINDREAM.My.Resources.Resources.refresh_16xLG resources.ApplyResources(Me.tsbtnrefresh, "tsbtnrefresh") Me.tsbtnrefresh.Name = "tsbtnrefresh" ' + 'tsddConfig + ' + Me.tsddConfig.Alignment = System.Windows.Forms.ToolStripItemAlignment.Right + Me.tsddConfig.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.ProfileUndBasisToolStripMenuItem, Me.KonfigurationenToolStripMenuItem}) + resources.ApplyResources(Me.tsddConfig, "tsddConfig") + Me.tsddConfig.Name = "tsddConfig" + ' + 'ProfileUndBasisToolStripMenuItem + ' + Me.ProfileUndBasisToolStripMenuItem.Image = Global.DD_PM_WINDREAM.My.Resources.Resources.puzzle2 + Me.ProfileUndBasisToolStripMenuItem.Name = "ProfileUndBasisToolStripMenuItem" + resources.ApplyResources(Me.ProfileUndBasisToolStripMenuItem, "ProfileUndBasisToolStripMenuItem") + ' + 'KonfigurationenToolStripMenuItem + ' + resources.ApplyResources(Me.KonfigurationenToolStripMenuItem, "KonfigurationenToolStripMenuItem") + Me.KonfigurationenToolStripMenuItem.Name = "KonfigurationenToolStripMenuItem" + ' 'StatusStrip1 ' resources.ApplyResources(Me.StatusStrip1, "StatusStrip1") @@ -391,7 +406,7 @@ Partial Class frmMain 'ContextMenuGrid ' Me.ContextMenuGrid.ImageScalingSize = New System.Drawing.Size(20, 20) - Me.ContextMenuGrid.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.CMGroupStart, Me.CMFileStart, Me.ToolStripSeparator4, Me.tsmiMarkedFilesFinish, Me.ToolStripSeparator3, Me.TabellenlayoutZurücksetzenToolStripMenuItem, Me.LayoutSpeichernToolStripMenuItem}) + Me.ContextMenuGrid.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.CMGroupStart, Me.CMFileStart, Me.ToolStripSeparator4, Me.tsmiMarkedFilesFinish, Me.ToolStripSeparator3, Me.LöscheAlleFilterToolStripMenuItem, Me.TabellenlayoutZurücksetzenToolStripMenuItem, Me.LayoutSpeichernToolStripMenuItem}) Me.ContextMenuGrid.Name = "ContextMenuStrip1" resources.ApplyResources(Me.ContextMenuGrid, "ContextMenuGrid") ' @@ -435,7 +450,7 @@ Partial Class frmMain ' 'GridView_Docs ' - Me.GridView_Docs.Appearance.EvenRow.BackColor = CType(resources.GetObject("GridView_Docs.Appearance.EvenRow.BackColor"), System.Drawing.Color) + Me.GridView_Docs.Appearance.EvenRow.BackColor = System.Drawing.Color.LightBlue Me.GridView_Docs.Appearance.EvenRow.Options.UseBackColor = True Me.GridView_Docs.GridControl = Me.GridControl_Docs Me.GridView_Docs.Name = "GridView_Docs" @@ -620,6 +635,11 @@ Partial Class frmMain Me.Timer5Mins.Enabled = True Me.Timer5Mins.Interval = 350000 ' + 'LöscheAlleFilterToolStripMenuItem + ' + resources.ApplyResources(Me.LöscheAlleFilterToolStripMenuItem, "LöscheAlleFilterToolStripMenuItem") + Me.LöscheAlleFilterToolStripMenuItem.Name = "LöscheAlleFilterToolStripMenuItem" + ' 'frmMain ' resources.ApplyResources(Me, "$this") @@ -681,7 +701,6 @@ Partial Class frmMain Friend WithEvents ToolStripButton1 As System.Windows.Forms.ToolStripButton Friend WithEvents NotifyIcon1 As System.Windows.Forms.NotifyIcon Friend WithEvents TimerRefresh As System.Windows.Forms.Timer - Friend WithEvents tstrpbtn_Config As System.Windows.Forms.ToolStripButton Friend WithEvents ToolStripSeparator1 As System.Windows.Forms.ToolStripSeparator Friend WithEvents TBPM_USERBindingSource As System.Windows.Forms.BindingSource Friend WithEvents TBPM_USERTableAdapter As DD_PM_WINDREAM.DD_DMSLiteDataSetTableAdapters.TBDD_USERTableAdapter @@ -741,4 +760,8 @@ Partial Class frmMain Friend WithEvents Timer5Mins As Timer Friend WithEvents tsslblDEBUG_LOG As ToolStripStatusLabel Friend WithEvents ToolTip1 As ToolTip + Friend WithEvents tsddConfig As ToolStripDropDownButton + Friend WithEvents ProfileUndBasisToolStripMenuItem As ToolStripMenuItem + Friend WithEvents KonfigurationenToolStripMenuItem As ToolStripMenuItem + Friend WithEvents LöscheAlleFilterToolStripMenuItem As ToolStripMenuItem End Class diff --git a/app/DD_PM_WINDREAM/frmMain.resx b/app/DD_PM_WINDREAM/frmMain.resx index d740a49..7232fe9 100644 --- a/app/DD_PM_WINDREAM/frmMain.resx +++ b/app/DD_PM_WINDREAM/frmMain.resx @@ -488,7 +488,7 @@ AAEAAAD/////AQAAAAAAAAAMAgAAAFdTeXN0ZW0uV2luZG93cy5Gb3JtcywgVmVyc2lvbj00LjAuMC4w LCBDdWx0dXJlPW5ldXRyYWwsIFB1YmxpY0tleVRva2VuPWI3N2E1YzU2MTkzNGUwODkFAQAAACZTeXN0 ZW0uV2luZG93cy5Gb3Jtcy5JbWFnZUxpc3RTdHJlYW1lcgEAAAAERGF0YQcCAgAAAAkDAAAADwMAAADw - CAAAAk1TRnQBSQFMAgEBAgEAAWQBBAFkAQQBEAEAARABAAT/AQkBAAj/AUIBTQE2AQQGAAE2AQQCAAEo + CAAAAk1TRnQBSQFMAgEBAgEAAYQBBAGEAQQBEAEAARABAAT/AQkBAAj/AUIBTQE2AQQGAAE2AQQCAAEo AwABQAMAARADAAEBAQABCAYAAQQYAAGAAgABgAMAAoABAAGAAwABgAEAAYABAAKAAgADwAEAAcAB3AHA AQAB8AHKAaYBAAEzBQABMwEAATMBAAEzAQACMwIAAxYBAAMcAQADIgEAAykBAANVAQADTQEAA0IBAAM5 AQABgAF8Af8BAAJQAf8BAAGTAQAB1gEAAf8B7AHMAQABxgHWAe8BAAHWAucBAAGQAakBrQIAAf8BMwMA @@ -547,51 +547,6 @@ Tahoma, 9pt - - Magenta - - - 24, 24 - - - ToolStripButton2 - - - MiddleLeft - - - Magenta - - - 136, 24 - - - Grundeinstellungen - - - 6, 27 - - - Magenta - - - 145, 24 - - - Verwaltungs-Konsole - - - False - - - Magenta - - - 99, 24 - - - Aktualisieren - 0, 0 @@ -616,12 +571,109 @@ 3 + + Magenta + + + 24, 24 + + + ToolStripButton2 + + + MiddleLeft + + + Magenta + + + 136, 24 + + + Grundeinstellungen + + + 6, 27 + + + Magenta + + + 99, 24 + + + Aktualisieren + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8 + YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAACpSURBVDhPvVLLDcMgDO0InYktmIIVemKHZA2m4NQLe7g9 + wJXwrBoRBdJGiWrpoScbPz8+t1GklPIv+GzfBopKqV38T+BF7xUOC4xwnQMiuscYHyVBSAq01nVzD1Wg + kGcIgRPGGAa49z5ba7vNAAtgMpqRQKMUhUNk5IQFysK20TBNcz0nuDhxzu0K1GntBQlHDS4k3+IygUNH + aIewwOlLPP2MEr2P9B0pLx8WRpfW43ukAAAAAElFTkSuQmCC + + + + Magenta + + + 103, 24 + + + Verwaltung + + + 200, 26 + + + Profile und Zuordnung + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO + xAAADsQBlSsOGwAAAQNJREFUOE+VUrkNg0AQpASXQAkuwSKnADICCiCmAFJEThfkEJOTk0NARnqeWe9Z + x2NOHmmE8Dy3ezj4F9u25eCqfOrPfsAcgv04jibLMlOWpWGJyn7Q3DSNiaJImCTJfQHECpQR+QS/YXIY + BhbkYr4CAyD3TPnkyDZc1zW1Xq1nQJQTdU95MmjfQRaHat8DAsM0SIi7OuH7m6c4z/NaFIXhbduT9cLI + VK1n2DA/kbPncfzrCY5hmpdlMXYSFjmsNPYBw+Dadd0ufJjk9+4QJpp4Er+tG74d2wKimOM4lhJ3Em+Y + YAHDbon+y/xhAqaqbVspIL07HwHjgyUgg+QEvlT2IAje23iU4vnsUjYAAAAASUVORK5CYII= + + + + 200, 26 + + + Konfigurationen + 1015, 17 Tahoma, 9pt + + 0, 498 + + + 1023, 29 + + + 3 + + + StatusStrip1 + + + StatusStrip1 + + + System.Windows.Forms.StatusStrip, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + Panel1 + + + 4 + 150, 24 @@ -676,30 +728,6 @@ False - - 0, 498 - - - 1023, 29 - - - 3 - - - StatusStrip1 - - - StatusStrip1 - - - System.Windows.Forms.StatusStrip, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - Panel1 - - - 4 - 392, 95 @@ -736,6 +764,22 @@ 266, 6 + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO + wwAADsMBx2+oZAAAAP9JREFUOE9jAIHv3787fHz5/P/DQ3v+f/v2jSQMNuDr168NZ/qa/i9U4/1/sCQF + RcGRPbvAYk/v3fkfGRn538nJCY7hBgBdkPDs/Kn/y4xlwIYcaywGS17YueX/Gget/6fnTv6fkpKCohnF + ABAAcV7fufl/o68l3BCQgddWzIe7BhuGaocYAMKgsIC5ZFuUO4YGdAzVjukCkNNBNC7no3gBGIj7b29d + C7cZFpAg54PEbh/Zjz8MQM4GaUTWDMOgwAW5CkQji8Mw2AAg4z1IIygq0RUQwmADvnz5YgDi4PIrLgw3 + AARAHGyK8GEMA8jBUO1UMgCbM/Fh6htAOv72HwANMrXhfARkwAAAAABJRU5ErkJggg== + + + + 269, 26 + + + Lösche alle Filter + 269, 26 @@ -749,7 +793,7 @@ Layout speichern - 270, 146 + 270, 172 ContextMenuGrid @@ -760,9 +804,6 @@ 242, 87 - - LightBlue - 631, 380 @@ -984,12 +1025,6 @@ 541, 95 - - 219, 26 - - - Starte Validierung für Profil - 220, 30 @@ -1214,6 +1249,12 @@ 2 + + 219, 26 + + + Starte Validierung für Profil + 1132, 17 @@ -1654,18 +1695,30 @@ System.Windows.Forms.ToolStripSeparator, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - tstrpbtn_Config - - - System.Windows.Forms.ToolStripButton, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - tsbtnrefresh System.Windows.Forms.ToolStripButton, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + tsddConfig + + + System.Windows.Forms.ToolStripDropDownButton, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + ProfileUndBasisToolStripMenuItem + + + System.Windows.Forms.ToolStripMenuItem, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + KonfigurationenToolStripMenuItem + + + System.Windows.Forms.ToolStripMenuItem, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + tsstlblUser @@ -1918,6 +1971,12 @@ System.Windows.Forms.ToolTip, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + LöscheAlleFilterToolStripMenuItem + + + System.Windows.Forms.ToolStripMenuItem, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + frmMain diff --git a/app/DD_PM_WINDREAM/frmMain.vb b/app/DD_PM_WINDREAM/frmMain.vb index c0d5735..08c78a1 100644 --- a/app/DD_PM_WINDREAM/frmMain.vb +++ b/app/DD_PM_WINDREAM/frmMain.vb @@ -77,12 +77,7 @@ Public Class frmMain Private Sub frmMain_Load(sender As Object, e As System.EventArgs) Handles Me.Load formopenClose = True LOGGER.Debug("Initializing MainForm....") - 'Try - ' UserLookAndFeel.Default.SetSkinStyle("VS2010") - 'Catch ex As Exception - ' LOGGER.Error(ex) - 'End Try ' Create helper to save/load expanded GroupColumns at runtime RefreshHelper = New RefreshHelper(GridView_Docs, "GUID") @@ -125,9 +120,9 @@ Public Class frmMain End If End If If USER_IS_ADMIN = True Then - tstrpbtn_Config.Visible = True + tsddConfig.Visible = True Else - tstrpbtn_Config.Visible = False + tsddConfig.Visible = False End If 'Anzahl der eingeloggten User If USER_LANGUAGE <> "de-DE" Then @@ -913,16 +908,7 @@ Public Class frmMain TimerRefresh.Start() End If End Sub - Private Sub ToolStripButton2_Click(sender As System.Object, e As EventArgs) Handles tstrpbtn_Config.Click - Dim AdminSecurity As Boolean = False - AdminSecurity = TBPM_KONFIGURATIONTableAdapter.cmdGetAdminSecurity() - If AdminSecurity = True Then - frmLoginAdmin.ShowDialog() - Else - frmAdministration.ShowDialog() - End If - Decide_Load() - End Sub + Private Sub ToolStripButton2_Click_1(sender As Object, e As EventArgs) Handles tsbtnrefresh.Click If GridControl_Docs.Visible = True And formopenClose = False Then @@ -968,37 +954,37 @@ Public Class frmMain Sub Load_Profil_from_Grid(ID As Integer) - 'Try - 'Me.Visible = False - CURRENT_ProfilGUID = ID - CURRENT_ProfilName = ClassDatabase.Execute_Scalar("SELECT NAME FROM TBPM_PROFILE WHERE GUID = " & CURRENT_ProfilGUID, CONNECTION_STRING) - CURRENT_DT_PROFILE = ClassDatabase.Return_Datatable(String.Format("select * from TBPM_PROFILE where GUID = {0}", CURRENT_ProfilGUID)) - CURRENT_DT_PROFILE_SEARCHES_DOC = ClassDatabase.Return_Datatable(String.Format("select * from TBPM_PROFILE_SEARCH where PROFILE_ID = {0} AND TYPE = 'DOC' AND ACTIVE = 1 ORDER BY TAB_INDEX", CURRENT_ProfilGUID)) - CURRENT_DT_PROFILE_SEARCHES_SQL = ClassDatabase.Return_Datatable(String.Format("select * from TBPM_PROFILE_SEARCH where PROFILE_ID = {0} AND TYPE = 'SQL' AND ACTIVE = 1 ORDER BY TAB_INDEX", CURRENT_ProfilGUID)) - My.Settings.Save() + Try + 'Me.Visible = False + CURRENT_ProfilGUID = ID + CURRENT_ProfilName = ClassDatabase.Execute_Scalar("SELECT NAME FROM TBPM_PROFILE WHERE GUID = " & CURRENT_ProfilGUID, CONNECTION_STRING) + CURRENT_DT_PROFILE = ClassDatabase.Return_Datatable(String.Format("select * from TBPM_PROFILE where GUID = {0}", CURRENT_ProfilGUID)) + CURRENT_DT_PROFILE_SEARCHES_DOC = ClassDatabase.Return_Datatable(String.Format("select * from TBPM_PROFILE_SEARCH where PROFILE_ID = {0} AND TYPE = 'DOC' AND ACTIVE = 1 ORDER BY TAB_INDEX", CURRENT_ProfilGUID)) + CURRENT_DT_PROFILE_SEARCHES_SQL = ClassDatabase.Return_Datatable(String.Format("select * from TBPM_PROFILE_SEARCH where PROFILE_ID = {0} AND TYPE = 'SQL' AND ACTIVE = 1 ORDER BY TAB_INDEX", CURRENT_ProfilGUID)) + My.Settings.Save() - If TimerRefresh.Enabled Then - TimerRefresh.Stop() - End If - Dim th As System.Threading.Thread - If Not Application.OpenForms().OfType(Of frmValidator).Any Then - th = New Threading.Thread(AddressOf Task_A) - th.SetApartmentState(ApartmentState.STA) - th.Start() - Else - LOGGER.Debug("Validator is already open...") - Exit Sub - End If + If TimerRefresh.Enabled Then + TimerRefresh.Stop() + End If + Dim th As System.Threading.Thread + If Not Application.OpenForms().OfType(Of frmValidator).Any Then + th = New Threading.Thread(AddressOf Task_A) + th.SetApartmentState(ApartmentState.STA) + th.Start() + Else + LOGGER.Debug("Validator is already open...") + Exit Sub + End If - ' frmValidator.ShowDialog() - Do While th.IsAlive + ' frmValidator.ShowDialog() + Do While th.IsAlive - Loop - LOGGER.Debug("th has ended!") - 'Catch ex As Exception - ' LOGGER.Error(ex) - ' MsgBox(ex.Message, MsgBoxStyle.Critical, "Unexpected error in Load_Profil_from_Grid: ") - 'End Try + Loop + LOGGER.Debug("th has ended!") + Catch ex As Exception + LOGGER.Error(ex) + MsgBox(ex.Message, MsgBoxStyle.Critical, "Unexpected error in Load_Profil_from_Grid: ") + End Try ' Me.Visible = True Decide_Load() @@ -1038,92 +1024,92 @@ Public Class frmMain Item_Scope("CMROW") End Sub Private Sub Item_Scope(startedFrom As String) - 'Try - 'GridView_Docs.EndSelection() - CURRENT_JUMP_DOC_GUID = 0 - Dim hitInfo As GridHitInfo = GridView_Docs.CalcHitInfo(GridCursorLocation) - - Dim groupRowText - Dim PROFIL_ID - If hitInfo.InGroupRow Then - GridViewItem_Clicked = "GROUP" - groupRowText = GridView_Docs.GetGroupRowDisplayText(hitInfo.RowHandle) - PROFIL_ID = GridView_Docs.GetRowCellValue(GridView_Docs.GetDataRowHandleByGroupRowHandle(hitInfo.RowHandle), GridView_Docs.Columns("PROFILE_ID")) - ElseIf hitInfo.InDataRow Then - GridViewItem_Clicked = "ROW" - If GRID_LOAD_TYPE = "OVERVIEW" Then - groupRowText = GridView_Docs.GetGroupRowDisplayText(GridView_Docs.GetParentRowHandle(hitInfo.RowHandle)) - PROFIL_ID = GridView_Docs.GetRowCellValue(GridView_Docs.GetDataRowHandleByGroupRowHandle(GridView_Docs.GetParentRowHandle(hitInfo.RowHandle)), GridView_Docs.Columns("PROFILE_ID")) - Else - PROFIL_ID = CURRENT_CLICKED_PROFILE_ID - End If - - Else - Exit Sub - End If - Dim PROFIL_TITLE - If GRID_LOAD_TYPE = "OVERVIEW" Then - Try - groupRowText = LTrim(RTrim(groupRowText.ToString.Replace("GROUP_TEXT: ", ""))) - Catch ex As Exception - - End Try - - Dim _SPLIT As String() - _SPLIT = groupRowText.Split("|") - PROFIL_TITLE = LTrim(RTrim(_SPLIT(0).ToString)) - Else - - End If - - - If Not IsNothing(PROFIL_ID) And IsNumeric(PROFIL_ID) Then - - Dim expression As String - expression = "PROFILE_ID = " & PROFIL_ID - If hitInfo.InGroupRow Or (startedFrom = "CMGROUP" And hitInfo.InDataRow) Then - CURRENT_JUMP_DOC_GUID = 0 - CURRENT_DOC_GUID = 0 - CURRENT_ProfilGUID = PROFIL_ID - - - Load_Profil_from_Grid(PROFIL_ID) + Try + 'GridView_Docs.EndSelection() + CURRENT_JUMP_DOC_GUID = 0 + Dim hitInfo As GridHitInfo = GridView_Docs.CalcHitInfo(GridCursorLocation) + Dim groupRowText + Dim PROFIL_ID + If hitInfo.InGroupRow Then + GridViewItem_Clicked = "GROUP" + groupRowText = GridView_Docs.GetGroupRowDisplayText(hitInfo.RowHandle) + PROFIL_ID = GridView_Docs.GetRowCellValue(GridView_Docs.GetDataRowHandleByGroupRowHandle(hitInfo.RowHandle), GridView_Docs.Columns("PROFILE_ID")) ElseIf hitInfo.InDataRow Then - Dim DOC_GUID = GridView_Docs.GetFocusedRowCellValue(GridView_Docs.Columns("GUID")) - Dim DOC_ID = GridView_Docs.GetFocusedRowCellValue(GridView_Docs.Columns("DOC_ID")) - If IsNothing(DOC_ID) Then Exit Sub - Dim DOC_PATH = GridView_Docs.GetFocusedRowCellValue(GridView_Docs.Columns("FULL_FILE_PATH")) - DOC_PATH = DOC_PATH.Replace("W:", "\\windream\objects") - DOC_PATH = DOC_PATH.Replace("K:", "\\windream\objects") - 'Checking if table really contains one record with profile-id and docid - expression = expression & " AND DOC_ID = " & DOC_ID - Dim TEMP_TABLE = CURR_DT_PROFILEGRID - Dim foundRows() As DataRow - foundRows = TEMP_TABLE.Select(expression) - Dim result = 0 - For i = 0 To foundRows.GetUpperBound(0) - result += 1 - Next - If result = 1 Then - CURRENT_DOC_ID = DOC_ID - CURRENT_JUMP_DOC_GUID = DOC_GUID - CURRENT_DOC_GUID = CURRENT_JUMP_DOC_GUID - CURRENT_DOC_PATH = DOC_PATH - Load_Profil_from_Grid(PROFIL_ID) + GridViewItem_Clicked = "ROW" + If GRID_LOAD_TYPE = "OVERVIEW" Then + groupRowText = GridView_Docs.GetGroupRowDisplayText(GridView_Docs.GetParentRowHandle(hitInfo.RowHandle)) + PROFIL_ID = GridView_Docs.GetRowCellValue(GridView_Docs.GetDataRowHandleByGroupRowHandle(GridView_Docs.GetParentRowHandle(hitInfo.RowHandle)), GridView_Docs.Columns("PROFILE_ID")) Else - Exit Sub + PROFIL_ID = CURRENT_CLICKED_PROFILE_ID End If + Else + Exit Sub End If - Else - MsgBox("Could not get the ProfileID of file! - Check Your configuration of MainView!", MsgBoxStyle.Critical) + Dim PROFIL_TITLE + If GRID_LOAD_TYPE = "OVERVIEW" Then + Try + groupRowText = LTrim(RTrim(groupRowText.ToString.Replace("GROUP_TEXT: ", ""))) + Catch ex As Exception - End If - 'Catch ex As Exception - ' LOGGER.Error(ex) - ' MsgBox("Unexpected error in Item_Scope: " & ex.Message, MsgBoxStyle.Critical) - 'End Try + End Try + + Dim _SPLIT As String() + _SPLIT = groupRowText.Split("|") + PROFIL_TITLE = LTrim(RTrim(_SPLIT(0).ToString)) + Else + + End If + + + If Not IsNothing(PROFIL_ID) And IsNumeric(PROFIL_ID) Then + + Dim expression As String + expression = "PROFILE_ID = " & PROFIL_ID + If hitInfo.InGroupRow Or (startedFrom = "CMGROUP" And hitInfo.InDataRow) Then + CURRENT_JUMP_DOC_GUID = 0 + CURRENT_DOC_GUID = 0 + CURRENT_ProfilGUID = PROFIL_ID + + + Load_Profil_from_Grid(PROFIL_ID) + + ElseIf hitInfo.InDataRow Then + Dim DOC_GUID = GridView_Docs.GetFocusedRowCellValue(GridView_Docs.Columns("GUID")) + Dim DOC_ID = GridView_Docs.GetFocusedRowCellValue(GridView_Docs.Columns("DOC_ID")) + If IsNothing(DOC_ID) Then Exit Sub + Dim DOC_PATH = GridView_Docs.GetFocusedRowCellValue(GridView_Docs.Columns("FULL_FILE_PATH")) + DOC_PATH = DOC_PATH.Replace("W:", "\\windream\objects") + DOC_PATH = DOC_PATH.Replace("K:", "\\windream\objects") + 'Checking if table really contains one record with profile-id and docid + expression = expression & " AND DOC_ID = " & DOC_ID + Dim TEMP_TABLE = CURR_DT_PROFILEGRID + Dim foundRows() As DataRow + foundRows = TEMP_TABLE.Select(expression) + Dim result = 0 + For i = 0 To foundRows.GetUpperBound(0) + result += 1 + Next + If result = 1 Then + CURRENT_DOC_ID = DOC_ID + CURRENT_JUMP_DOC_GUID = DOC_GUID + CURRENT_DOC_GUID = CURRENT_JUMP_DOC_GUID + CURRENT_DOC_PATH = DOC_PATH + Load_Profil_from_Grid(PROFIL_ID) + Else + Exit Sub + End If + + End If + Else + MsgBox("Could not get the ProfileID of file! - Check Your configuration of MainView!", MsgBoxStyle.Critical) + + End If + Catch ex As Exception + LOGGER.Error(ex) + MsgBox("Unexpected error in Item_Scope: " & ex.Message, MsgBoxStyle.Critical) + End Try End Sub Private Function Init_IDB() Try @@ -1419,35 +1405,7 @@ Public Class frmMain LOGGER.Error(ex) LOGGER.Info("Unexpected Error in Formatting Grid: " & ex.Message) End Try - 'Try - ' For Each grid_column As GridColumn In GridView_Docs.Columns - ' Dim GridDXCaption = grid_column.Caption - ' Dim GridDXTextCaption = grid_column.GetTextCaption - ' Dim GridDXColumnEditName = grid_column.ColumnEditName - ' Dim GridDXFieldName = grid_column.FieldName - ' Dim exists As Boolean = False - ' For Each col As DataColumn In CURR_DT_PROFILEGRID.Columns - - ' If col.Caption = GridDXTextCaption Then - ' exists = True - ' Exit For - ' End If - ' Next - ' If exists = False Then - ' If grid_column.Visible = True Then - ' Try - ' grid_column.Dispose() - ' Catch ex As Exception - ' LOGGER.Error(ex) - ' End Try - ' End If - ' End If - ' Next - 'Catch ex As Exception - ' LOGGER.Error(ex) - ' LOGGER.Info("Unexpected Error in Checking ColumnsGrid: " & ex.Message) - 'End Try SaveGridLayout() If GridView_Docs.Columns.Count <= 2 Then @@ -1695,4 +1653,29 @@ Public Class frmMain Private Sub frmMain_Closing(sender As Object, e As CancelEventArgs) Handles Me.Closing End Sub + + Private Sub ProfileUndBasisToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles ProfileUndBasisToolStripMenuItem.Click + Dim AdminSecurity As Boolean = False + AdminSecurity = TBPM_KONFIGURATIONTableAdapter.cmdGetAdminSecurity() + If AdminSecurity = True Then + frmLoginAdmin.ShowDialog() + Else + frmAdministration.ShowDialog() + End If + Decide_Load() + End Sub + Private Sub KonfigurationenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles KonfigurationenToolStripMenuItem.Click + frmAdmin2.ShowDialog() + End Sub + + Private Sub LöscheAlleFilterToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles LöscheAlleFilterToolStripMenuItem.Click + Try + GridView_Docs.ClearFindFilter() + GridView_Docs.ClearColumnsFilter() + SaveGridLayout() + Catch ex As Exception + + End Try + + End Sub End Class \ No newline at end of file diff --git a/app/DD_PM_WINDREAM/frmPreviewHtml.Designer.vb b/app/DD_PM_WINDREAM/frmPreviewHtml.Designer.vb new file mode 100644 index 0000000..4cb71c0 --- /dev/null +++ b/app/DD_PM_WINDREAM/frmPreviewHtml.Designer.vb @@ -0,0 +1,81 @@ + _ +Partial Class frmPreviewHtml + Inherits System.Windows.Forms.Form + + 'Das Formular überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen. + _ + Protected Overrides Sub Dispose(ByVal disposing As Boolean) + Try + If disposing AndAlso components IsNot Nothing Then + components.Dispose() + End If + Finally + MyBase.Dispose(disposing) + End Try + End Sub + + 'Wird vom Windows Form-Designer benötigt. + Private components As System.ComponentModel.IContainer + + 'Hinweis: Die folgende Prozedur ist für den Windows Form-Designer erforderlich. + 'Das Bearbeiten ist mit dem Windows Form-Designer möglich. + 'Das Bearbeiten mit dem Code-Editor ist nicht möglich. + _ + Private Sub InitializeComponent() + Me.Panel1 = New System.Windows.Forms.Panel() + Me.WebBrowser1 = New System.Windows.Forms.WebBrowser() + Me.Label1 = New System.Windows.Forms.Label() + Me.Panel1.SuspendLayout() + Me.SuspendLayout() + ' + 'Panel1 + ' + Me.Panel1.Controls.Add(Me.Label1) + Me.Panel1.Dock = System.Windows.Forms.DockStyle.Top + Me.Panel1.Location = New System.Drawing.Point(0, 0) + Me.Panel1.Name = "Panel1" + Me.Panel1.Size = New System.Drawing.Size(800, 45) + Me.Panel1.TabIndex = 0 + ' + 'WebBrowser1 + ' + Me.WebBrowser1.Dock = System.Windows.Forms.DockStyle.Fill + Me.WebBrowser1.Location = New System.Drawing.Point(0, 45) + Me.WebBrowser1.MinimumSize = New System.Drawing.Size(20, 20) + Me.WebBrowser1.Name = "WebBrowser1" + Me.WebBrowser1.Size = New System.Drawing.Size(800, 405) + Me.WebBrowser1.TabIndex = 1 + ' + 'Label1 + ' + Me.Label1.AutoSize = True + Me.Label1.Font = New System.Drawing.Font("Calibri", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label1.Location = New System.Drawing.Point(3, 9) + Me.Label1.Name = "Label1" + Me.Label1.Size = New System.Drawing.Size(641, 30) + Me.Label1.TabIndex = 0 + Me.Label1.Text = "Dies ist nur eine rudimentäre Ansicht zur Darstellung der HTML-Strukturen. Bitte " & + "testen Sie vor produktivem Versand " & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "den Inhalt und Aufbau in einer email." + ' + 'frmPreviewHtml + ' + Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) + Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font + Me.ClientSize = New System.Drawing.Size(800, 450) + Me.Controls.Add(Me.WebBrowser1) + Me.Controls.Add(Me.Panel1) + Me.Font = New System.Drawing.Font("Calibri", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.FixedDialog + Me.MinimizeBox = False + Me.Name = "frmPreviewHtml" + Me.Text = "Preview HTML" + Me.Panel1.ResumeLayout(False) + Me.Panel1.PerformLayout() + Me.ResumeLayout(False) + + End Sub + + Friend WithEvents Panel1 As Panel + Friend WithEvents Label1 As Label + Friend WithEvents WebBrowser1 As WebBrowser +End Class diff --git a/app/DD_PM_WINDREAM/frmPreviewHtml.resx b/app/DD_PM_WINDREAM/frmPreviewHtml.resx new file mode 100644 index 0000000..1af7de1 --- /dev/null +++ b/app/DD_PM_WINDREAM/frmPreviewHtml.resx @@ -0,0 +1,120 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + \ No newline at end of file diff --git a/app/DD_PM_WINDREAM/frmPreviewHtml.vb b/app/DD_PM_WINDREAM/frmPreviewHtml.vb new file mode 100644 index 0000000..6c3cd7f --- /dev/null +++ b/app/DD_PM_WINDREAM/frmPreviewHtml.vb @@ -0,0 +1,9 @@ +Public Class frmPreviewHtml + Public DisplayText As String + + Private Sub frmPreviewHtml_Load(sender As Object, e As EventArgs) Handles Me.Load + WebBrowser1.Refresh() + Dim otext = "" + DisplayText + "" + WebBrowser1.DocumentText = otext + End Sub +End Class \ No newline at end of file diff --git a/app/DD_PM_WINDREAM/frmValidator.vb b/app/DD_PM_WINDREAM/frmValidator.vb index 08a305f..251da94 100644 --- a/app/DD_PM_WINDREAM/frmValidator.vb +++ b/app/DD_PM_WINDREAM/frmValidator.vb @@ -1556,151 +1556,151 @@ Public Class frmValidator 'Me.lblerror.Visible = False _Indexe_Loaded = False LOGGER.Debug("In Load_Next_Document") - 'Try - If first = True Then - LOGGER.Debug("First Document") - CURRENT_WMFILE = Nothing - Else - LOGGER.Debug("Following Document ") - docCounter += 1 - End If - - ' Controls nicht beim ersten Laden leeren - If first = False Then - Clear_all_Input() - End If - - 'Select Case navtype - ' Case "next" - ' Case "previous" - ' Case "first" - ' Case "last" - 'End Select - LOGGER.Debug($"CURRENT_JUMP_DOC_GUID: {CURRENT_JUMP_DOC_GUID}'") - If CURRENT_JUMP_DOC_GUID = 0 Then - CURRENT_DOC_GUID = Get_Next_GUID() - ElseIf first = False Then - CURRENT_DOC_GUID = 0 - End If - LOGGER.Debug("Dokument-GUID: '" & CURRENT_DOC_GUID.ToString & "'") - If CURRENT_DOC_GUID > 0 Then - If GetWMDocPathWindows(0) = False Then - MsgBox("Could not acces the file! Check the log!", MsgBoxStyle.Critical, "") - Exit Sub + Try + If first = True Then + LOGGER.Debug("First Document") + CURRENT_WMFILE = Nothing + Else + LOGGER.Debug("Following Document ") + docCounter += 1 End If - If IDB_ACTIVE = False Then - If CreateWMObject() = False Then + + ' Controls nicht beim ersten Laden leeren + If first = False Then + Clear_all_Input() + End If + + 'Select Case navtype + ' Case "next" + ' Case "previous" + ' Case "first" + ' Case "last" + 'End Select + LOGGER.Debug($"CURRENT_JUMP_DOC_GUID: {CURRENT_JUMP_DOC_GUID}'") + If CURRENT_JUMP_DOC_GUID = 0 Then + CURRENT_DOC_GUID = Get_Next_GUID() + ElseIf first = False Then + CURRENT_DOC_GUID = 0 + End If + LOGGER.Debug("Dokument-GUID: '" & CURRENT_DOC_GUID.ToString & "'") + If CURRENT_DOC_GUID > 0 Then + If GetWMDocPathWindows(0) = False Then + MsgBox("Could not acces the file! Check the log!", MsgBoxStyle.Critical, "") Exit Sub End If - End If - 'Beschriftung des Navigators - 'lblNavigator_anzDok.Text = position & " of " & Anzahl_ValDoks & " files" - If WMDocPathWindows <> String.Empty Then - ' >> >> >> >> >> >>##### Das Dokument in Bearbeitung nehmen ########################### - Dim sql = $"UPDATE TBPM_PROFILE_FILES SET IN_WORK = 1, IN_WORK_WHEN = GETDATE(), WORK_USER = '{USER_USERNAME}' WHERE GUID = {CURRENT_DOC_GUID}" - ClassDatabase.Execute_non_Query(sql) - - ' ############ Infos eintragen ################# - tsslblDocID.Text = "Document-ID: " & CURRENT_DOC_ID & " - DocGUID: " & CURRENT_DOC_GUID - ' txtDateipfad.Text = Document_Path - tstrlbl_Info.Text = "Datei " & docCounter.ToString & " von " & Anzahl_ValDoks.ToString - LOGGER.Info(">> Validierung für Dokument '" & WMDocPathWindows & "' gestartet") - tsslblDocID.Text = "Document-ID: " & CURRENT_DOC_ID & " - GUID: " & CURRENT_DOC_GUID - - LOGGER.Debug("AllDocInfo created...") If IDB_ACTIVE = False Then - oErrorMessage = Windream_get_Doc_info() - Else - ' oErrorMessage = IDB_GetDocInfo() + If CreateWMObject() = False Then + Exit Sub + End If End If + 'Beschriftung des Navigators + 'lblNavigator_anzDok.Text = position & " of " & Anzahl_ValDoks & " files" + If WMDocPathWindows <> String.Empty Then + ' >> >> >> >> >> >>##### Das Dokument in Bearbeitung nehmen ########################### + Dim sql = $"UPDATE TBPM_PROFILE_FILES SET IN_WORK = 1, IN_WORK_WHEN = GETDATE(), WORK_USER = '{USER_USERNAME}' WHERE GUID = {CURRENT_DOC_GUID}" + ClassDatabase.Execute_non_Query(sql) + ' ############ Infos eintragen ################# + tsslblDocID.Text = "Document-ID: " & CURRENT_DOC_ID & " - DocGUID: " & CURRENT_DOC_GUID + ' txtDateipfad.Text = Document_Path + tstrlbl_Info.Text = "Datei " & docCounter.ToString & " von " & Anzahl_ValDoks.ToString + LOGGER.Info(">> Validierung für Dokument '" & WMDocPathWindows & "' gestartet") + tsslblDocID.Text = "Document-ID: " & CURRENT_DOC_ID & " - GUID: " & CURRENT_DOC_GUID - - If oErrorMessage = "" Then - - load_viewer() - LOGGER.Debug("Viewer geladen") - If WMDocPathWindows.ToLower.EndsWith(".pdf") Then - ToolStripButtonAnnotation.Visible = True + LOGGER.Debug("AllDocInfo created...") + If IDB_ACTIVE = False Then + oErrorMessage = Windream_get_Doc_info() Else - ToolStripButtonAnnotation.Visible = False + ' oErrorMessage = IDB_GetDocInfo() End If + If oErrorMessage = "" Then - - FillIndexValues(first) - - For Each oControl As Control In pnldesigner.Controls - LoadSQLData(oControl, DirectCast(oControl.Tag, ClassControlCreator.ControlMetadata).Guid) - Next - - LOGGER.Debug("Indexmaske geladen") - LOGGER.Debug("") - - 'Nun im Vektoprindex loggen das das Profil geladen wurde - 'If PROFIL_VEKTORINDEX <> "" Then - ' Dim Profilstring = "DD-PM" & Delimiter & "Profil: '" & PROFIL_NAME & "'" & Delimiter & USER_NAME & Delimiter & Now.ToString - ' If Indexiere_VektorfeldPM(Profilstring, PROFIL_VEKTORINDEX) = False Then - ' If LogErrorsOnly = False Then LOGGER.Info(" >> Profilname erfolgreich in Vektorfeld PM geschrieben") - ' 'Else - ' ' errormessage = "Fehler beim finalen Indexieren:" & vbNewLine & idxerr_message - ' ' My.Settings.Save() - ' ' frmError.ShowDialog() - ' ' _error = True - ' End If - 'End If - 'Nun loggen das das Profil geladen wurde - If PROFIL_LOGINDEX <> "" Then - Dim Profilstring = $"DD-PMLog{Delimiter}Loaded profile: [{CURRENT_ProfilName}]{Delimiter}{USER_USERNAME}{Delimiter}{Now.ToString}" - If IDB_ACTIVE = False Then - WMIndexVectofield(Profilstring, PROFIL_LOGINDEX) - 'Else - 'IDBData.SetVariableValue(PROFIL_LOGINDEX, Profilstring) - 'LOGGER.Debug("Profilname erfolgreich in Vektorfeld LOG geschrieben") - 'Else - ' errormessage = "Fehler beim finalen Indexieren:" & vbNewLine & idxerr_message - ' My.Settings.Save() - ' frmError.ShowDialog() - ' _error = True + load_viewer() + LOGGER.Debug("Viewer geladen") + If WMDocPathWindows.ToLower.EndsWith(".pdf") Then + ToolStripButtonAnnotation.Visible = True + Else + ToolStripButtonAnnotation.Visible = False End If + + + + + + FillIndexValues(first) + + For Each oControl As Control In pnldesigner.Controls + LoadSQLData(oControl, DirectCast(oControl.Tag, ClassControlCreator.ControlMetadata).Guid) + Next + + LOGGER.Debug("Indexmaske geladen") + LOGGER.Debug("") + + 'Nun im Vektoprindex loggen das das Profil geladen wurde + 'If PROFIL_VEKTORINDEX <> "" Then + ' Dim Profilstring = "DD-PM" & Delimiter & "Profil: '" & PROFIL_NAME & "'" & Delimiter & USER_NAME & Delimiter & Now.ToString + ' If Indexiere_VektorfeldPM(Profilstring, PROFIL_VEKTORINDEX) = False Then + ' If LogErrorsOnly = False Then LOGGER.Info(" >> Profilname erfolgreich in Vektorfeld PM geschrieben") + ' 'Else + ' ' errormessage = "Fehler beim finalen Indexieren:" & vbNewLine & idxerr_message + ' ' My.Settings.Save() + ' ' frmError.ShowDialog() + ' ' _error = True + ' End If + 'End If + 'Nun loggen das das Profil geladen wurde + If PROFIL_LOGINDEX <> "" Then + Dim Profilstring = $"DD-PMLog{Delimiter}Loaded profile: [{CURRENT_ProfilName}]{Delimiter}{USER_USERNAME}{Delimiter}{Now.ToString}" + If IDB_ACTIVE = False Then + WMIndexVectofield(Profilstring, PROFIL_LOGINDEX) + 'Else + 'IDBData.SetVariableValue(PROFIL_LOGINDEX, Profilstring) + 'LOGGER.Debug("Profilname erfolgreich in Vektorfeld LOG geschrieben") + 'Else + ' errormessage = "Fehler beim finalen Indexieren:" & vbNewLine & idxerr_message + ' My.Settings.Save() + ' frmError.ShowDialog() + ' _error = True + End If + End If + activate_controls(True) + Me.BringToFront() + Else + errormessage = oErrorMessage + frmError.ShowDialog() End If - activate_controls(True) - Me.BringToFront() Else errormessage = oErrorMessage frmError.ShowDialog() End If Else - errormessage = oErrorMessage - frmError.ShowDialog() - End If - Else - If oErrorMessage <> "" Then - errormessage = oErrorMessage - frmError.ShowDialog() - Else - LOGGER.Info("End of profile - no more document!") - If USER_LANGUAGE <> "de-DE" Then - MsgBox("No more document! End of profile!" & vbNewLine & "Validation will be closed.", MsgBoxStyle.Information, "") + If oErrorMessage <> "" Then + errormessage = oErrorMessage + frmError.ShowDialog() Else - MsgBox("Kein weiteres Dokument gefunden - Ende des Profils!" & vbNewLine & "Das Formular wird nun geschlossen.", MsgBoxStyle.Information, "Hinweis:") + LOGGER.Info("End of profile - no more document!") + If USER_LANGUAGE <> "de-DE" Then + MsgBox("No more document! End of profile!" & vbNewLine & "Validation will be closed.", MsgBoxStyle.Information, "") + Else + MsgBox("Kein weiteres Dokument gefunden - Ende des Profils!" & vbNewLine & "Das Formular wird nun geschlossen.", MsgBoxStyle.Information, "Hinweis:") + End If + + activate_controls(True) + Me.Close() End If - - activate_controls(True) - Me.Close() End If - End If - 'Catch ex As Exception - ' LOGGER.Error(ex) - ' allgFunk.Insert_LogEntry(CURRENT_ProfilGUID, "Unvorhergesehener Fehler bei Load_Next_Document - DocGUID: " & CURRENT_DOC_GUID & " - ERROR: " & ex.Message, USER_USERNAME) - ' errormessage = "Unvorhergesehener Fehler bei Load_Next_Document:" & ex.Message - ' My.Settings.Save() - ' LOGGER.Info("Unvorhergesehener Fehler in Load_Next_Document: " & ex.Message) - ' frmError.ShowDialog() - 'End Try + Catch ex As Exception + LOGGER.Error(ex) + allgFunk.Insert_LogEntry(CURRENT_ProfilGUID, "Unvorhergesehener Fehler bei Load_Next_Document - DocGUID: " & CURRENT_DOC_GUID & " - ERROR: " & ex.Message, USER_USERNAME) + errormessage = "Unvorhergesehener Fehler bei Load_Next_Document:" & ex.Message + My.Settings.Save() + LOGGER.Info("Unvorhergesehener Fehler in Load_Next_Document: " & ex.Message) + frmError.ShowDialog() + End Try End Sub Sub load_viewer() DocumentViewer1.LoadFile(WMDocPathWindows) @@ -2681,36 +2681,6 @@ Public Class frmValidator Finish_WFStep() btnSave.Enabled = True End Sub - 'Sub CloseWDDocview() - ' Try - ' Dim oFileName = New FileInfo(CURRENT_WMFILE.aPath) - ' Dim oProcesses As Process() = Process.GetProcesses() - ' Dim oViewerNames As New List(Of String) From { - ' "WMPViewX", - ' "WMPViewXNG" - ' } - - ' For Each p In oProcesses - ' If oViewerNames.Contains(p.ProcessName) Then - ' p.Kill() - ' End If - ' Next - ' Catch ex As Exception - ' LOGGER.Error(ex) - ' LOGGER.Info(" ### FEHLER in CloseDocView") - ' LOGGER.Info("### " & ex.Message & " ###") - ' End Try - - ' 'Try - ' ' If VIEWER_ALL = "docview" Then - ' ' DocView.CloseView(CURRENT_WMFILE.aPath, 0) - ' ' End If - ' 'Catch ex As Exception - ' ' LOGGER.Error(ex) - ' ' LOGGER.Info(" ### FEHLER in CloseDocView") - ' ' LOGGER.Info("### " & ex.Message & " ###") - ' 'End Try - 'End Sub Sub Finish_WFStep() btnSave.Enabled = False @@ -2720,278 +2690,278 @@ Public Class frmValidator 'Eingaben auf Form überprüfen If Check_UpdateIndexe() = False Then 'lblerror.Visible = False - 'Try - Dim oErrorOcurred As Boolean = False + Try + Dim oErrorOcurred As Boolean = False - TBPM_PROFILE_FINAL_INDEXINGTableAdapter.Fill(FinalIndexDataSet.TBPM_PROFILE_FINAL_INDEXING, CURRENT_ProfilName) - Dim oDTFinalIndexes As DataTable = FinalIndexDataSet.TBPM_PROFILE_FINAL_INDEXING - If oDTFinalIndexes.Rows.Count > 0 Then - 'Jetzt finale Indexe setzen - LOGGER.Debug("FINAL INDEXING STARTING...") - For Each oFinalIndexRow As DataRow In oDTFinalIndexes.Rows - Dim oValue As String = oFinalIndexRow.Item("VALUE").ToString - Dim oIndexType = 0 - If IDB_ACTIVE = False Then - oIndexType = WINDREAM.GetTypeOfIndex(oFinalIndexRow.Item("INDEXNAME")) - End If - If oValue.ToUpper = "SQL-Command".ToUpper Then '###### Indexierung mit variablen SQL ### - LOGGER.Debug("Indexierung mit dynamischem SQL!") - Dim oSQLCommand = oFinalIndexRow.Item("SQL_COMMAND") - - LOGGER.Debug("SQL_COMMAND before ReplaceAllValues: " & oSQLCommand) - oSQLCommand = clsPatterns.ReplaceAllValues(oSQLCommand, pnldesigner, CURRENT_WMFILE, USER_PRENAME, USER_SURNAME, USER_SHORTNAME, USER_EMAIL, USER_ID, CURRENT_CLICKED_PROFILE_ID) - If IsNothing(oSQLCommand) Then - errormessage = "Error while replacing Values in final indexing - Check the log" - My.Settings.Save() - frmError.ShowDialog() - oErrorOcurred = True - End If - If Not IsNothing(oSQLCommand) Then - LOGGER.Debug("SQL_COMMAND after ReplaceAllValues: " & oSQLCommand) - Dim dynamic_value = ClassDatabase.Execute_Scalar(oSQLCommand, CONNECTION_STRING, True) - - If Not IsNothing(dynamic_value) Then - LOGGER.Debug("DYNAMIC VALUE IS: " & dynamic_value.ToString) - oValue = dynamic_value - Else - LOGGER.Info("ATTENTION: DYNAMIC VALUE IS NOTHING!") - End If - End If - - Else - If oValue.StartsWith("v") Then - Select Case oFinalIndexRow.Item("VALUE").ToString - Case "vDate" - oValue = Now.ToShortDateString - Case "vUserName" - oValue = USER_USERNAME - Case Else - oValue = oFinalIndexRow.Item("VALUE") - End Select - End If - End If - If oErrorOcurred Then - Exit For - End If - Dim oResult() As String - ReDim Preserve oResult(0) - oResult(0) = oValue - - LOGGER.Debug($"oIndexType {oIndexType.ToString}") - If oIndexType > 4000 And oIndexType < 5000 Then - 'If dr.Item("INDEXNAME").ToString.StartsWith("[%VKT") Then - ' Dim PM_String = Return_PM_VEKTOR(value, dr.Item("INDEXNAME")) - 'Hier muss nun separat als Vektorfeld indexiert werden - If WMIndexVectofield(oValue, oFinalIndexRow.Item("INDEXNAME"), oFinalIndexRow.Item("PREVENT_DUPLICATES"), oFinalIndexRow.Item("ALLOW_NEW_VALUES")) = False Then - LOGGER.Debug("FINALER Vektorindex '" & oFinalIndexRow.Item("INDEXNAME").ToString & "' WURDE ERFOLGREICH GESETZT") - Else - errormessage = "Fehler beim finalen Indexieren:" & vbNewLine & idxerr_message - My.Settings.Save() - frmError.ShowDialog() - oErrorOcurred = True - End If - Else - LOGGER.Debug("Now the final indexing...") - Dim oFIResult As Boolean = False + TBPM_PROFILE_FINAL_INDEXINGTableAdapter.Fill(FinalIndexDataSet.TBPM_PROFILE_FINAL_INDEXING, CURRENT_ProfilName) + Dim oDTFinalIndexes As DataTable = FinalIndexDataSet.TBPM_PROFILE_FINAL_INDEXING + If oDTFinalIndexes.Rows.Count > 0 Then + 'Jetzt finale Indexe setzen + LOGGER.Debug("FINAL INDEXING STARTING...") + For Each oFinalIndexRow As DataRow In oDTFinalIndexes.Rows + Dim oValue As String = oFinalIndexRow.Item("VALUE").ToString + Dim oIndexType = 0 If IDB_ACTIVE = False Then - If Indexiere_File(CURRENT_WMFILE, oFinalIndexRow.Item("INDEXNAME"), oResult) = True Then - oFIResult = True - LOGGER.Debug("FINALER INDEX '" & oFinalIndexRow.Item("INDEXNAME") & "' WURDE ERFOLGREICH GESETZT") + oIndexType = WINDREAM.GetTypeOfIndex(oFinalIndexRow.Item("INDEXNAME")) + End If + If oValue.ToUpper = "SQL-Command".ToUpper Then '###### Indexierung mit variablen SQL ### + LOGGER.Debug("Indexierung mit dynamischem SQL!") + Dim oSQLCommand = oFinalIndexRow.Item("SQL_COMMAND") - 'Nun das Logging - If PROFIL_LOGINDEX <> "" Then - Dim logstr = Return_LOGString(oValue, "DDFINALINDEX", oFinalIndexRow.Item("INDEXNAME")) - WMIndexVectofield(logstr, PROFIL_LOGINDEX) + LOGGER.Debug("SQL_COMMAND before ReplaceAllValues: " & oSQLCommand) + oSQLCommand = clsPatterns.ReplaceAllValues(oSQLCommand, pnldesigner, CURRENT_WMFILE, USER_PRENAME, USER_SURNAME, USER_SHORTNAME, USER_EMAIL, USER_ID, CURRENT_CLICKED_PROFILE_ID) + If IsNothing(oSQLCommand) Then + errormessage = "Error while replacing Values in final indexing - Check the log" + My.Settings.Save() + frmError.ShowDialog() + oErrorOcurred = True + End If + If Not IsNothing(oSQLCommand) Then + LOGGER.Debug("SQL_COMMAND after ReplaceAllValues: " & oSQLCommand) + Dim dynamic_value = ClassDatabase.Execute_Scalar(oSQLCommand, CONNECTION_STRING, True) + + If Not IsNothing(dynamic_value) Then + LOGGER.Debug("DYNAMIC VALUE IS: " & dynamic_value.ToString) + oValue = dynamic_value + Else + LOGGER.Info("ATTENTION: DYNAMIC VALUE IS NOTHING!") End If End If - 'Else - ' If IDBData.SetVariableValue(oFinalIndexRow.Item("INDEXNAME"), oValue) = True Then - ' oFIResult = True - ' LOGGER.Debug("final index '" & oFinalIndexRow.Item("INDEXNAME") & "' was written to IDB") - ' If PROFIL_LOGINDEX <> "" Then - ' Dim logstr = Return_LOGString(oValue, "DDFINALINDEX", oFinalIndexRow.Item("INDEXNAME")) - ' oFIResult = IDBData.SetVariableValue(PROFIL_LOGINDEX, logstr) - ' End If - ' End If + + Else + If oValue.StartsWith("v") Then + Select Case oFinalIndexRow.Item("VALUE").ToString + Case "vDate" + oValue = Now.ToShortDateString + Case "vUserName" + oValue = USER_USERNAME + Case Else + oValue = oFinalIndexRow.Item("VALUE") + End Select + End If End If - If oFIResult = False Then - errormessage = "Error in final indexing:" & vbNewLine & idxerr_message + If oErrorOcurred Then + Exit For + End If + Dim oResult() As String + ReDim Preserve oResult(0) + oResult(0) = oValue + + LOGGER.Debug($"oIndexType {oIndexType.ToString}") + If oIndexType > 4000 And oIndexType < 5000 Then + 'If dr.Item("INDEXNAME").ToString.StartsWith("[%VKT") Then + ' Dim PM_String = Return_PM_VEKTOR(value, dr.Item("INDEXNAME")) + 'Hier muss nun separat als Vektorfeld indexiert werden + If WMIndexVectofield(oValue, oFinalIndexRow.Item("INDEXNAME"), oFinalIndexRow.Item("PREVENT_DUPLICATES"), oFinalIndexRow.Item("ALLOW_NEW_VALUES")) = False Then + LOGGER.Debug("FINALER Vektorindex '" & oFinalIndexRow.Item("INDEXNAME").ToString & "' WURDE ERFOLGREICH GESETZT") + Else + errormessage = "Fehler beim finalen Indexieren:" & vbNewLine & idxerr_message + My.Settings.Save() + frmError.ShowDialog() + oErrorOcurred = True + End If + Else + LOGGER.Debug("Now the final indexing...") + Dim oFIResult As Boolean = False + If IDB_ACTIVE = False Then + If Indexiere_File(CURRENT_WMFILE, oFinalIndexRow.Item("INDEXNAME"), oResult) = True Then + oFIResult = True + LOGGER.Debug("FINALER INDEX '" & oFinalIndexRow.Item("INDEXNAME") & "' WURDE ERFOLGREICH GESETZT") + + 'Nun das Logging + If PROFIL_LOGINDEX <> "" Then + Dim logstr = Return_LOGString(oValue, "DDFINALINDEX", oFinalIndexRow.Item("INDEXNAME")) + WMIndexVectofield(logstr, PROFIL_LOGINDEX) + End If + End If + 'Else + ' If IDBData.SetVariableValue(oFinalIndexRow.Item("INDEXNAME"), oValue) = True Then + ' oFIResult = True + ' LOGGER.Debug("final index '" & oFinalIndexRow.Item("INDEXNAME") & "' was written to IDB") + ' If PROFIL_LOGINDEX <> "" Then + ' Dim logstr = Return_LOGString(oValue, "DDFINALINDEX", oFinalIndexRow.Item("INDEXNAME")) + ' oFIResult = IDBData.SetVariableValue(PROFIL_LOGINDEX, logstr) + ' End If + ' End If + End If + If oFIResult = False Then + errormessage = "Error in final indexing:" & vbNewLine & idxerr_message + My.Settings.Save() + frmError.ShowDialog() + oErrorOcurred = True + End If + + End If + If oErrorOcurred = True Then + Exit For + End If + Next + End If + ''Wenn kein Fehler nach der finalen Indexierung gesetzt wurde + If Override = True And Override_SQLCommand <> "" Then + ClassDatabase.Execute_non_Query(Override_SQLCommand) + End If + If oErrorOcurred = False Then + + 'TBPM_PROFILE_FILESTableAdapter.CmdSETWORK(False, "", Document_ID) + ''Das Dokument + 'TBPM_PROFILE_FILESTableAdapter.CmdSetEdit(Document_ID) + Dim WORK_HISTORY_ENTRY = Nothing + + Try + WORK_HISTORY_ENTRY = CURRENT_DT_PROFILE.Rows(0).Item("WORK_HISTORY_ENTRY") + If IsDBNull(WORK_HISTORY_ENTRY) Then + WORK_HISTORY_ENTRY = Nothing + End If + Catch ex As Exception + LOGGER.Error(ex) + WORK_HISTORY_ENTRY = Nothing + End Try + + + If Not IsNothing(WORK_HISTORY_ENTRY) Then + If WORK_HISTORY_ENTRY <> String.Empty Then + Dim preg As String = "\[%{1}[a-zA-Z0-9\!\$\&\/\(\)\=\?\,\.\-\;\:_öÖüÜäÄ\#\'\+\*\~\{\}\@\€\<\>\ ]+]{1}" + ' einen Regulären Ausdruck laden + Dim regulärerAusdruck As System.Text.RegularExpressions.Regex = New System.Text.RegularExpressions.Regex(preg) + ' die Vorkommen im SQL-String auslesen + Dim elemente As System.Text.RegularExpressions.MatchCollection = regulärerAusdruck.Matches(WORK_HISTORY_ENTRY) + '#### + ' alle Vorkommen innerhalbd er Namenkonvention durchlaufen + For Each element As System.Text.RegularExpressions.Match In elemente + Try + LOGGER.Debug("element in RegeX WORK_HISTORY_ENTRY: " & element.Value) + Dim CTRL_ID = element.Value.Substring(2, element.Value.Length - 3) + CTRL_ID = CTRL_ID.Replace("CTRLID", "") + Dim value_from_control + If IsNumeric(CTRL_ID) Then + For Each oControl As Control In Me.pnldesigner.Controls + Try + If IsNothing(DirectCast(oControl.Tag, ClassControlCreator.ControlMetadata).Guid) Then + Continue For + End If + Catch ex As Exception + Continue For + End Try + + If DirectCast(oControl.Tag, ClassControlCreator.ControlMetadata).Guid = CTRL_ID Then + '###### + Dim Type As String = oControl.GetType.ToString + Select Case Type + Case "System.Windows.Forms.TextBox" + Try + value_from_control = oControl.Text + Catch ex As Exception + LOGGER.Error(ex) + value_from_control = String.Empty + End Try + + Case "System.Windows.Forms.ComboBox" + Dim cmb As ComboBox = oControl + Try + value_from_control = cmb.Text + Catch ex As Exception + LOGGER.Error(ex) + value_from_control = String.Empty + End Try + Case "System.Windows.Forms.DateTimePicker" + Dim dtp As DateTimePicker = oControl + Try + value_from_control = dtp.Value.ToString + Catch ex As Exception + LOGGER.Error(ex) + value_from_control = String.Empty + End Try + + Case "System.Windows.Forms.CheckBox" + Dim chk As CheckBox = oControl + Try + value_from_control = chk.Checked + Catch ex As Exception + LOGGER.Error(ex) + value_from_control = String.Empty + End Try + End Select + + End If + Next + End If + + If Not IsNothing(value_from_control) And value_from_control <> String.Empty Then + WORK_HISTORY_ENTRY = WORK_HISTORY_ENTRY.ToString.Replace(element.Value, value_from_control) + End If + Catch ex As Exception + LOGGER.Error(ex) + LOGGER.Info("Unexpected Error in Checking control values for WORK_HISTORY_ENTRY - ERROR: " & ex.Message) + End Try + Next + If WORK_HISTORY_ENTRY.ToString.Contains("@DATE") Then + WORK_HISTORY_ENTRY = WORK_HISTORY_ENTRY.ToString.Replace("@DATE", Now.ToShortDateString) + End If + If WORK_HISTORY_ENTRY.ToString.Contains("@USERNAME") Then + WORK_HISTORY_ENTRY = WORK_HISTORY_ENTRY.ToString.Replace("@USERNAME", USER_USERNAME) + End If + Else + WORK_HISTORY_ENTRY = "" + End If + End If + Dim ins = String.Format("INSERT INTO TBPM_FILES_WORK_HISTORY (PROFIL_ID, DOC_ID,WORKED_BY,WORKED_WHERE,STATUS_COMMENT) VALUES ({0},{1},'{2}','{3}','{4}')", CURRENT_ProfilGUID, CURRENT_DOC_ID, USER_USERNAME, Environment.MachineName, WORK_HISTORY_ENTRY) + ClassDatabase.Execute_non_Query(ins) + Dim oFIsql As String + 'Close_document_viewer() + If WMDocPathWindows.ToLower.EndsWith(".pdf") Then + If Not IsNothing(WORK_HISTORY_ENTRY) Then + If CBool(CURRENT_DT_PROFILE.Rows(0).Item("ANNOTATE_WORK_HISTORY_ENTRY")) = True Then + oFIsql = 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(oFIsql, 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, False) + End If + End If + End If + Dim value = CURRENT_DT_PROFILE.Rows(0).Item("ANNOTATE_ALL_WORK_HISTORY_ENTRIES") + If CBool(value) = True Then + oFIsql = String.Format("SELECT * FROM TBPM_FILES_WORK_HISTORY WHERE DOC_ID = {1} ORDER BY GUID", CURRENT_ProfilGUID, CURRENT_DOC_ID) + Dim DT_ENTRIES As DataTable = ClassDatabase.Return_Datatable(oFIsql, 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, False, 10, 40) + End If + End If + End If + End If + End If + + 'wenn Move2Folder aktiviert wurde + If Move2Folder <> "" Then + idxerr_message = allgFunk.Move2Folder(WMDocPathWindows, Move2Folder, CURRENT_ProfilGUID, _windream) + If idxerr_message <> "" Then + errormessage = "Fehler bei Move2Folder:" & vbNewLine & idxerr_message My.Settings.Save() frmError.ShowDialog() oErrorOcurred = True End If - End If - If oErrorOcurred = True Then - Exit For - End If - Next - End If - ''Wenn kein Fehler nach der finalen Indexierung gesetzt wurde - If Override = True And Override_SQLCommand <> "" Then - ClassDatabase.Execute_non_Query(Override_SQLCommand) - End If - If oErrorOcurred = False Then - - 'TBPM_PROFILE_FILESTableAdapter.CmdSETWORK(False, "", Document_ID) - ''Das Dokument - 'TBPM_PROFILE_FILESTableAdapter.CmdSetEdit(Document_ID) - Dim WORK_HISTORY_ENTRY = Nothing - - Try - WORK_HISTORY_ENTRY = CURRENT_DT_PROFILE.Rows(0).Item("WORK_HISTORY_ENTRY") - If IsDBNull(WORK_HISTORY_ENTRY) Then - WORK_HISTORY_ENTRY = Nothing - End If - Catch ex As Exception - LOGGER.Error(ex) - WORK_HISTORY_ENTRY = Nothing - End Try + 'Validierungsfile löschen wenn vorhanden + 'allgFunk.Delete_xffres(WMDocPathWindows, _windream) + 'LOGGER.Debug("Delete_xffres ausgeführt") - If Not IsNothing(WORK_HISTORY_ENTRY) Then - If WORK_HISTORY_ENTRY <> String.Empty Then - Dim preg As String = "\[%{1}[a-zA-Z0-9\!\$\&\/\(\)\=\?\,\.\-\;\:_öÖüÜäÄ\#\'\+\*\~\{\}\@\€\<\>\ ]+]{1}" - ' einen Regulären Ausdruck laden - Dim regulärerAusdruck As System.Text.RegularExpressions.Regex = New System.Text.RegularExpressions.Regex(preg) - ' die Vorkommen im SQL-String auslesen - Dim elemente As System.Text.RegularExpressions.MatchCollection = regulärerAusdruck.Matches(WORK_HISTORY_ENTRY) - '#### - ' alle Vorkommen innerhalbd er Namenkonvention durchlaufen - For Each element As System.Text.RegularExpressions.Match In elemente - Try - LOGGER.Debug("element in RegeX WORK_HISTORY_ENTRY: " & element.Value) - Dim CTRL_ID = element.Value.Substring(2, element.Value.Length - 3) - CTRL_ID = CTRL_ID.Replace("CTRLID", "") - Dim value_from_control - If IsNumeric(CTRL_ID) Then - For Each oControl As Control In Me.pnldesigner.Controls - Try - If IsNothing(DirectCast(oControl.Tag, ClassControlCreator.ControlMetadata).Guid) Then - Continue For - End If - Catch ex As Exception - Continue For - End Try - - If DirectCast(oControl.Tag, ClassControlCreator.ControlMetadata).Guid = CTRL_ID Then - '###### - Dim Type As String = oControl.GetType.ToString - Select Case Type - Case "System.Windows.Forms.TextBox" - Try - value_from_control = oControl.Text - Catch ex As Exception - LOGGER.Error(ex) - value_from_control = String.Empty - End Try - - Case "System.Windows.Forms.ComboBox" - Dim cmb As ComboBox = oControl - Try - value_from_control = cmb.Text - Catch ex As Exception - LOGGER.Error(ex) - value_from_control = String.Empty - End Try - Case "System.Windows.Forms.DateTimePicker" - Dim dtp As DateTimePicker = oControl - Try - value_from_control = dtp.Value.ToString - Catch ex As Exception - LOGGER.Error(ex) - value_from_control = String.Empty - End Try - - Case "System.Windows.Forms.CheckBox" - Dim chk As CheckBox = oControl - Try - value_from_control = chk.Checked - Catch ex As Exception - LOGGER.Error(ex) - value_from_control = String.Empty - End Try - End Select - - End If - Next - End If - - If Not IsNothing(value_from_control) And value_from_control <> String.Empty Then - WORK_HISTORY_ENTRY = WORK_HISTORY_ENTRY.ToString.Replace(element.Value, value_from_control) - End If - Catch ex As Exception - LOGGER.Error(ex) - LOGGER.Info("Unexpected Error in Checking control values for WORK_HISTORY_ENTRY - ERROR: " & ex.Message) - End Try - Next - If WORK_HISTORY_ENTRY.ToString.Contains("@DATE") Then - WORK_HISTORY_ENTRY = WORK_HISTORY_ENTRY.ToString.Replace("@DATE", Now.ToShortDateString) - End If - If WORK_HISTORY_ENTRY.ToString.Contains("@USERNAME") Then - WORK_HISTORY_ENTRY = WORK_HISTORY_ENTRY.ToString.Replace("@USERNAME", USER_USERNAME) - End If - Else - WORK_HISTORY_ENTRY = "" - End If - End If - Dim ins = String.Format("INSERT INTO TBPM_FILES_WORK_HISTORY (PROFIL_ID, DOC_ID,WORKED_BY,WORKED_WHERE,STATUS_COMMENT) VALUES ({0},{1},'{2}','{3}','{4}')", CURRENT_ProfilGUID, CURRENT_DOC_ID, USER_USERNAME, Environment.MachineName, WORK_HISTORY_ENTRY) - ClassDatabase.Execute_non_Query(ins) - Dim oFIsql As String - 'Close_document_viewer() - If WMDocPathWindows.ToLower.EndsWith(".pdf") Then - If Not IsNothing(WORK_HISTORY_ENTRY) Then - If CBool(CURRENT_DT_PROFILE.Rows(0).Item("ANNOTATE_WORK_HISTORY_ENTRY")) = True Then - oFIsql = 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(oFIsql, 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, False) - End If - End If - End If - Dim value = CURRENT_DT_PROFILE.Rows(0).Item("ANNOTATE_ALL_WORK_HISTORY_ENTRIES") - If CBool(value) = True Then - oFIsql = String.Format("SELECT * FROM TBPM_FILES_WORK_HISTORY WHERE DOC_ID = {1} ORDER BY GUID", CURRENT_ProfilGUID, CURRENT_DOC_ID) - Dim DT_ENTRIES As DataTable = ClassDatabase.Return_Datatable(oFIsql, 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, False, 10, 40) - End If - End If - End If - End If End If - 'wenn Move2Folder aktiviert wurde - If Move2Folder <> "" Then - idxerr_message = allgFunk.Move2Folder(WMDocPathWindows, Move2Folder, CURRENT_ProfilGUID, _windream) - If idxerr_message <> "" Then - errormessage = "Fehler bei Move2Folder:" & vbNewLine & idxerr_message - My.Settings.Save() - frmError.ShowDialog() - oErrorOcurred = True - End If - End If - 'Validierungsfile löschen wenn vorhanden - 'allgFunk.Delete_xffres(WMDocPathWindows, _windream) - 'LOGGER.Debug("Delete_xffres ausgeführt") - - - End If - - 'Catch ex As Exception - ' LOGGER.Error(ex) - ' errormessage = "Unexpected error in Finish:" & ex.Message - ' My.Settings.Save() - ' frmError.ShowDialog() - ' LOGGER.Info("Unexpected error in Finish: " & ex.Message, True) - 'End Try + Catch ex As Exception + LOGGER.Error(ex) + errormessage = "Unexpected error in Finish:" & ex.Message + My.Settings.Save() + frmError.ShowDialog() + LOGGER.Info("Unexpected error in Finish: " & ex.Message, True) + End Try Else 'lblerror.Visible = True 'lblerror.Text = errmessage